/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 116)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
/******************************************************************************/
(instance public rm116 of Rm
	(properties
		picture scriptNumber
		north 110
		east 115
		south 117
		west 118
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))

		(switch(gPreviousRoomNumber)
   	(case 110
				(send gEgo:
					posn(141 105)
					loop(2)
				)
			)
   	(case 117
				(send gEgo:
					posn(159 185)
					loop(3)
				)
			)
   	(case 115
				(send gEgo:
					posn(315 145)
					loop(1)
				)
			)
   	(case 118
        (send gTheMusic:
			prevSignal(0)
			stop()
			number(39)
			loop(-1)
			play()
		)
				(send gEgo:
					posn(5 145)
					loop(0)
				)
			)
		)
         (send gRoom: horizon(104))

		SetUpEgo()
		(send gEgo:init())
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
 
    (method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if(Said('look>'))
(if(Said('/door,doorway'))
Print("It leads to another room.")
)
(if(Said('/floor'))
Print("It's just a stone floor.")
)
(if(Said('/marking,markings'))
Print("It's an small arrow, leading left.")
)
(if(Said('/wall'))
Print("On closer look you discover a small marking on the wall. It looks like an arrow.")
)
(if(Said('/'))
Print("You're in one of the rooms of the maze. The walls contain lots of scratches and stuff. You can go any direction.")
)
)

)

)
/******************************************************************************/
