/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 134)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "menubar")
(use "rev")
/******************************************************************************/
(instance public rm134 of Rm
	(properties
		picture scriptNumber
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
 		(SL:disable())
		(TheMenuBar:hide())
  (aDoor: init() cel(0))
  (aShip: init() moveSpeed(1) setMotion(MoveTo 116 116 RoomScript))
  (aText: init() cycleSpeed(2) setCycle(End RoomScript))
  (send gGame:setSpeed(3))
  (aLight: init() cycleSpeed(2) setCycle(Fwd))
       (send gTheMusic:
			prevSignal(0)
			stop()
			number(51)
			loop(-1)
			play()
		)
 )
)

//  (aDoor: init() cycleSpeed(2) setCycle(End))
/******************************************************************************/
(instance RoomScript of Script
	(properties)
  (method (changeState newState)
  = state newState
  (switch (state)
    (case 1
  (aDoor: cycleSpeed(0) setCycle(End RoomScript))
  (aShip: moveSpeed(1) setMotion(MoveTo 202 45 RoomScript))
  )
  (case 2
  (aDoor: dispose())
  )
  (case 3
  		(TheMenuBar:draw())
		(SL:enable())
   DisposeScript(980)
   (send gRoom: newRoom(74))

    )
    )
    )

)
(instance aDoor of Act
(properties
view 174
x 181
y 60
))
(instance aShip of Act
(properties
view 175
x 1
y 185
))
(instance aText of Act
(properties
view 176
x 60
y 185
))
(instance aLight of Act
(properties
view 177
x 159
y 17
))
/******************************************************************************/
