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



    (send gEgo:put(INV_LETTER scriptNumber))
    (send gEgo:put(INV_KEYCARD scriptNumber))
    (send gEgo:put(INV_FRONT_DOOR_KEY scriptNumber))
    (send gEgo:put(INV_RECEIT scriptNumber))
    (send gEgo:put(INV_TRANSMITTER scriptNumber))
    = wc FALSE
    = bc FALSE
    = doorOpened FALSE
  (send gTheMusic:
			prevSignal(0)
			stop()
			number(4)
			loop(-1)
			play()
		)
        Display(
			" A Few moments later you find\n"+
            "yourself in some strange place..."
            dsCOORD 65 71
			dsCOLOUR 1
            dsFONT 900
			dsBACKGROUND clTRANSPARENT
		)
             Display(
			" A Few moments later you find\n"+
            "yourself in some strange place..."
            dsCOORD 64 70
			dsCOLOUR 9
            dsFONT 900
			dsBACKGROUND clTRANSPARENT
		)

         = objective 3
      ProgramControl()
		= gProgramControl FALSE
         ProgramControl()
		(SL:disable())
		(TheMenuBar:hide())
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)

(method (handleEvent pEvent)
        (super:handleEvent(pEvent))
        (if( not (send pEvent:claimed) )
			(if( (== (send pEvent:type) evKEYBOARD) and (== (send pEvent:message) $3C00) )
				ToggleSound()
			)(else
          (send gRoom:newRoom(9))
          PlayerControl()

(TheMenuBar:draw())
		(SL:enable())
 )
 )
 )
 )
/******************************************************************************/
