/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 88)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(local
butt
)
/******************************************************************************/
(instance public rm088 of Rm
	(properties
		picture scriptNumber
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
       (send gEgo: init() posn(191 95))
		(switch(gPreviousRoomNumber)

			(default
				(send gEgo:
					posn(242 114)
					loop(1)
				)
			)
   (case 87
    (SL: doit())
            (send gGame: setSpeed(spp))

				(send gEgo:
					posn(210 99)
					loop(3)
				)
			)
     (case 90
     (SL: doit())
    (send gGame: setSpeed(spp))

				(send gEgo:
					posn(130 99)
					loop(3)
				)
			)
     (case 132
     (SL: doit())
    (send gGame: setSpeed(spp))

				(send gEgo:
					posn(110 120)
					loop(1)
				)
			)
		)


        (aMan1: init())
         (aMan2: init())
          (aMan3: init())
            (aMan4: init())
               (aMan5: init() ignoreControl(ctlWHITE))
                    (aMan6: init())
		SetUpEgo()
		(send gEgo:init())
    = numm2 0
(send gTheMusic:
			prevSignal(0)
			stop()
			number(5)
			loop(-1)
			play()
		)

	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
 (method(doit)
  (if(==(send gEgo: onControl()) ctlNAVY)
 (send gRoom: newRoom(89))
 )
 )
     (method (handleEvent pEvent)
(super:handleEvent(pEvent))
 (if(Said('look>'))
(if(Said('/door'))
Print("This is the way back to the reality.")
)
(if(Said('/man,alien'))
Print("They are all playing very hard.")
)
(if(Said('/slots,roulette,slot,game,machine,(slots,slot<machine)'))
Print("There's only one machine available. Go and occupy it.")
)
(if(Said('/'))
Print("You're inside the casino. There's only one game machine available.")
        )
        )
(if(Said('play,use/slots,slot,roulette,game,machine,(slots,roulette,slot,game<machine)') or if(Said('play')))
 (if(==(send gEgo: onControl()) ctlRED)
 = spp (send gGame: gameSpeed)
 (send gRoom: newRoom(87))
 return
 )
 (if(==(send gEgo: onControl()) ctlYELLOW)
 (send gRoom: newRoom(132))
 return
 )
  (if(==(send gEgo: onControl()) ctlCYAN)
 (send gRoom: newRoom(90))
 return
 )
 Print("You're not close to any game.")
 )

)
)
(instance aMan1 of Act
(properties
view 136
x 48
y 166
))
(instance aMan2 of Act
(properties
view 136
x 54
y 149
loop 1
))
(instance aMan3 of Act
(properties
view 136
x 66
y 135
loop 1
cel 1
))
(instance aMan4 of Act
(properties
view 136
x 250
y 169
loop 1
cel 2
))
(instance aMan5 of Act
(properties
view 136
x 108
y 98
loop 1
cel 3
))
(instance aMan6 of Act
(properties
view 136
x 184
y 99
loop 1
cel 4
))
/******************************************************************************/
