/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 33)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "menubar")
(local
text1
text2
text3
)
/******************************************************************************/
(instance public rm033 of Rm
	(properties
		picture 61
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))

		(switch(gPreviousRoomNumber)
			(default

			)
		)

Display("    After moving around in space for a while,    " dsFONT 900 dsCOORD 11 61 dsCOLOUR 1)
Display("  you remeber about the key the man gave you.  " dsFONT 900 dsCOORD 11 71 dsCOLOUR 1)
Display("       You decide to enter it now to set" dsFONT 900 dsCOORD 3 81 dsCOLOUR 1)
Display("                     the right course. " dsFONT 900 dsCOORD 3 91 dsCOLOUR 1)
Display("    After moving around in space for a while,    " dsFONT 900 dsCOORD 10 60 dsCOLOUR 9)
Display("  you remeber about the key the man gave you.  " dsFONT 900 dsCOORD 10 70 dsCOLOUR 9)
Display("       You decide to enter it now to set" dsFONT 900 dsCOORD 2 80 dsCOLOUR 9)
Display("                     the right course. " dsFONT 900 dsCOORD 2 90 dsCOLOUR 9)



 (aE: init() setMotion(MoveTo 320 180 RoomScript))
 = hidd TRUE
 )
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)

 (method (changeState newState)

  = state newState
  (switch (state)
    (case 0
   (send gGame:setSpeed(3))

   )
    (case 1
   DrawPic(61)
   Display("           ... causing a malfunction!       " dsFONT 900 dsCOORD 26 81 dsCOLOUR 1)
   Display("           ... causing a malfunction!       " dsFONT 900 dsCOORD 25 80 dsCOLOUR 9)
   (aE: setMotion(MoveTo 125 10 RoomScript))
   )
   (case 2
 DrawPic(62)
 Display(" MALFUNCTION! " dsFONT 200 dsCOORD 119 10 dsCOLOUR clNAVY dsBACKGROUND clBLACK)
Display("* Electronic systems offline!" dsFONT 999 dsCOORD 15 40 dsCOLOUR clRED dsBACKGROUND clBLACK)
(aE: setMotion(MoveTo 55 10 RoomScript))
      )
    (case 3
Display("* Manual system ... Failed!" dsFONT 999 dsCOORD 15 50 dsCOLOUR clRED dsBACKGROUND clBLACK)
(aE: setMotion(MoveTo 2 10 RoomScript))
      )
    (case 4

Display("* Switching to mechanical system ... Failed!" dsFONT 999 dsCOORD 15 60 dsCOLOUR clRED dsBACKGROUND clBLACK)
(aE: init() setMotion(MoveTo 55 10 RoomScript))
      )
    (case 5
Display("* Self-destruction ... Activated!" dsFONT 999 dsCOORD 15 70 dsCOLOUR clRED dsBACKGROUND clBLACK)
   (aE: init() setMotion(MoveTo 2 10 RoomScript))
        )
    (case 6
    Display(" Please enter the escape pod!" dsFONT 1 dsCOORD 90 169 dsCOLOUR clNAVY dsBACKGROUND clTRANSPARENT)
     (aE: init() setMotion(MoveTo 150 10 RoomScript))
          )
    (case 7
    (send gRoom: newRoom(34))
    )
   )
   )
   (method(doit)
   (SL:disable())
(TheMenuBar:hide())


 )
)
 (instance aE of Act
 (properties
 view 300
 x 30
 y 10
))
/****************************************************************************/
