/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 135)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "menubar")
/******************************************************************************/
(instance public rm135 of Rm
	(properties
		picture 134
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
  (aShip: init() moveSpeed(1) setMotion(MoveTo 140 85 RoomScript))
  (send gGame:setSpeed(3))
  (aLight: init() cycleSpeed(2) setCycle(Fwd))
  Print("...and get the hell out of there!")
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
  (method (changeState newState)
  = state newState
  (switch (state)
    (case 1
    (aEx: init() setCycle(End RoomScript))
     (aShip: moveSpeed(1) setMotion(MoveTo 127 95))
     )
    (case 2
  ShakeScreen(4 ssFULL_SHAKE)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(4 ssFULL_SHAKE)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(5 ssFULL_SHAKE)
  Wait(50)
  (aEx: dispose())
  (aTex: init() cycleSpeed(4) setCycle(Fwd))
  (aShip: posn(202 45) moveSpeed(1) setMotion(MoveTo 140 85 RoomScript))
  (send gGame:setSpeed(7))
  )
 (case 3
    (aEx: init() cel(0) cycleSpeed(1) setCycle(End RoomScript))
     (aShip: moveSpeed(1) setMotion(MoveTo 127 95))
    )
    (case 4
  ShakeScreen(4 ssFULL_SHAKE)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(4 ssFULL_SHAKE)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(5 ssFULL_SHAKE)
    DrawPic(8)
      (aShip: hide())
  (aEx: hide())
  (aLight: hide())
  (aTex: hide())
  (aShip: hide() moveSpeed(1) setMotion(MoveTo 125 98 RoomScript))
  
  )
  (case 5

 Print("WHAT THE **** WAS THAT!!??" #font 7)
  Print("WHO BLEW THAT UP??!!!" #font 7)
  Print("But you can't stay around and think about it. You have to stop the troops.")
  (aShip: hide() moveSpeed(1) setMotion(MoveTo 120 105 RoomScript))
  )
  (case 6
  Print("After a bit, you find the button labeled 'Light Speed' and press it.")
 SaveSpeed(1)
  DrawPic(80)
 (aShip: show() posn(320 70) moveSpeed(0) xStep(5) setMotion(MoveTo 0 70 RoomScript))
  )
  (case 7
  (aShip: hide())
  RestoreSpeed()
  Print("Few moments later you already see the Earth! Yeehaa! You're back!")
  (send gRoom: newRoom(139))
    )
    )
    )
)

(instance aShip of Act
(properties
view 175
x 202
y 45
cel 1
))
(instance aLight of Act
(properties
view 177
x 159
y 17
))
(instance aEx of Act
(properties
view 178
x 150
y 120
))
(instance aTex of Act
(properties
view 179
x 150
y 180
))
/******************************************************************************/
