/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 152)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "rev")
/******************************************************************************/
(instance public rm152 of Rm
	(properties
		picture scriptNumber
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))


        (aE: init() setMotion(MoveTo 15 180 RoomScript))
		SetUpEgo()
		(send gEgo:init() posn(140 135) loop(0))
    (aSonny: init())
  (aHairpin: init())
  (aDoor: init())
       (aAction: init() cycleSpeed(1) setCycle(End))
    (aE: init() setMotion(MoveTo 105 180 RoomScript))
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
  (method(doit)
  (send gGame:setSpeed(3))
 )

 (method(changeState newState)
 = state newState
 (switch(state)
 (case 1
(aAction: setCycle(Rev RoomScript))
(aE: setMotion(MoveTo 121 180 RoomScript))
 )
 (case 2
 (aAction: dispose())
(aE: setMotion(MoveTo 105 180 RoomScript))
 )
 (case 3
 Print("Hi! Could you help me to get out from here?"#title"Dr.Jummybummy:"  #icon 777 0 18)
Print("If I can. What you're in for?"#title"Sonny:" #icon 777 0 3)
Print("I was just experimenting with my time traveling machine when I got on this planet. Then some guy arrested me and took to the Lord...ummm..."#title"Dr.Jummybummy:" #icon 777 0 18)
 (aE: init() setMotion(MoveTo 25 180 RoomScript))
 )
 (case 4
Print("...CUT!..."#title"Eigen:" #icon 777 0 5)
(aE: init() setMotion(MoveTo 34 180 RoomScript))
)
(case 5
Print("What are you doing?!"#title"Eigen:" #icon 777 0 5)
(aE: init() setMotion(MoveTo 18 180 RoomScript))
)
(case 6
 Print("I can't remember the name."#title"Dr.Jummybummy:"  #icon 777 0 18)
(aE: init() setMotion(MoveTo 35 180 RoomScript))
)
(case 7
Print("OH MY GOD!... It's Lord Bather...(Why me?!!)"#title"Eigen:" #icon 777 0 5)
(aE: init() setMotion(MoveTo 15 180 RoomScript))
)
(case 8
Print("Let's do the scene again! And people, we're trying to make a game here." #title "Eigen:" #icon 777 0 5)
(aE: init() setMotion(MoveTo 25 180 RoomScript))
)
(case 9
Wait(10)
(send gRoom: newRoom(157))

)
)
)
)
(instance aHairpin of Act
(properties
view 688
loop 204
x 175
y 148
))
(instance aSonny of Act
(properties
view 36
loop 1
x 227
y 132
))
  (instance aE of Act
 (properties
 view 300
 x 1
 y 180
 ))
 (instance aDoor of Act
(properties
view 230
cel 0
x 68
y 152
))
   (instance aAction of Act
 (properties
 view 201
 x 220
 y 160
 ))
/******************************************************************************/
