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

		(switch(gPreviousRoomNumber)
			(default
				(send gEgo:
					posn(150 130)
					loop(1)
				)
			)
		)
        Display("   After some time of walking," dsCOORD 61 66 dsFONT 900 dsCOLOUR 1)
        Display("  you finally reach the ground." dsCOORD 61 76 dsFONT 900 dsCOLOUR 1)
        Display("      Aaahh... the daylight!" dsCOORD 61 86 dsFONT 900 dsCOLOUR 1)
         Display("   After some time of walking," dsCOORD 60 65 dsFONT 900 dsCOLOUR 9)
        Display("  you finally reach the ground." dsCOORD 60 75 dsFONT 900 dsCOLOUR 9)
        Display("      Aaahh... the daylight!" dsCOORD 60 85 dsFONT 900 dsCOLOUR 9)
        ProgramControl()
		= gProgramControl FALSE
        (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) )

			)(else
          (send gRoom:newRoom(98))
          PlayerControl()

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