/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 34)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "menubar")
/******************************************************************************/
(instance public rm034 of Rm
	(properties
		picture 80
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
       Print("...and you decide to get the hell out of there...")
       (aPod: init() setMotion(MoveTo 150 56 RoomScript))

	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
     (method (changeState newState)
 = state newState
  (switch (state)
    (case 0

 = cycles 1
     )
    (case 1
    )
    (case 2
    Print("Suddenly you notice a small indicator showing the fuel level...")
    Wait(30)
    Print("It shows that the tank is .... empty!")
    Wait(45)
    Print("You know what that means...?")
    Wait(150)
    Print("\"Start falling now ...!!\"")
    Wait(150)
    Print("\"Eigen to pod! ... I scipted you to fall ..\"")
    Wait(25)
      (send gGame:setSpeed(0))
     (aPod: init() moveSpeed(0) setMotion(MoveTo 147 53 RoomScript))
     )
     (case 3
    (aPod: init() moveSpeed(0) setMotion(MoveTo 147 190 RoomScript))
     )
    (case 4
    (aPod: hide())    (send gGame:setSpeed(4))
    (aE: setMotion(MoveTo 60 20 RoomScript))
    ShakeScreen(4 ssFULL_SHAKE)

    (TheMenuBar:draw())
    (SL:enable())
    (send gRoom: newRoom(27))
    
    )
   )
   )
)
(instance aPod of Act
(properties
view 703
x 320
y 50
moveSpeed 1
))
 (instance aE of Act
 (properties
 view 300
 x 1
 y 20
 ))
/******************************************************************************/
