/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 123)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(local
fading
)
/******************************************************************************/
(instance public rm123 of Rm
	(properties
		picture scriptNumber
		north 0
		east 118
		south 0
		west 124
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))

		(switch(gPreviousRoomNumber)
   (case 118
				(send gEgo:
					posn(315 122)
					loop(1)
				)
			)
      (case 124
           (send gTheMusic:
			prevSignal(0)
			stop()
			number(40)
			loop(-1)
			play()
		)
				(send gEgo:
					posn(5 117)
					loop(0)
				)
			)
   (case 121
				(send gEgo:
					posn(266 86)
					loop(3)
				)
			)
		)

		SetUpEgo()
		(send gEgo:init())
      (aRope1: init() cel(rope1))
     (aRope2: init() cel(rope2))
      (aRope3: init() cel(rope3))
	)
)
/******************************************************************************/
(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("There floor doesn't look interesting.")
)
(if(Said('/bridge'))
Print("Now as the bridge is lowered, you can get over.")
)
(if(Said('/crack,(cliff<crack)'))
Print("You have to get over it. But it's too wide to jump over.")
Print("So use the bridge.")
)
(if(Said('/ropes'))
Print("These 3 hanging ropes control the bridge.")
)
(if(Said('/wall'))
Print("There are some scratches on the wall. These are not important.")
)
(if(Said('/'))
Print("You're at the lowered bridge. On the wall, you can see 3 ropes hanging.")
)
)
      (if(Said('jump/over,cliff,crack,(cliff<crack)'))
   Print("Use the bridge.")
   )
   
   (if(Said('lower/bridge'))
   Print("The bridge is already down.")
   )
   (if(Said('use,pull/rope'))
   Print("You don't have to do it anymore.")
   )
   )
)
(instance aRope1 of Prop
(properties
view 106
x 252
y 61
))
(instance aRope2 of Prop
(properties
view 106
x 266
y 61
))
(instance aRope3 of Prop
(properties
view 106
x 281
y 61
))
/******************************************************************************/
