/******************************************************************************/
(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)
            "  you finally reach the ground.\n"+
            "      Aaahh... the daylight!"
            dsCOORD 61 66
            dsFONT 900
			dsCOLOUR 1)
           Display(
			"   After some time of walking,\n"+
            "  you finally reach the ground.\n"+
            "      Aaahh... the daylight!"
            dsCOORD 60 65
            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())
 )
 )
 )
)
/******************************************************************************/
