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

		(switch(gPreviousRoomNumber)
			(default
				(send gEgo:
					posn(253 175)
					loop(2)
				)
			)
		)

		SetUpEgo()
		(send gEgo:init())
  (car2: init())
        (send gTheMusic:
			stop()
			number(4)
			loop(2)
			play()
		)
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
     (method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if(Said('look>'))
 (if(Said('/sign,ad'))
Print("       Fungame Production is proud to present... \n\n\            Dr.Jummybummy's Space Adventure 2 \n\n\n             an adventure game by Eigen Lenk" #width 280)
)
(if(Said('/stair'))
Print("A stone stair leading to the door. Two lamps on the both side of the stair.")
)
(if(Said('/lights,lamps'))
Print("In the evenings those lamps light the way.")
Print("They would, if they'd work.")
)
(if(Said('/door'))
Print("The door is sealed closed. Don't waste time trying to open it.")
)
(if(Said('/ladder'))
Print("It goes up to the roof.")
)
(if(Said('/fence'))
Print("This fence seems to lose its formal glory as it's rottening and will probably collapse.")
)
(if(Said('/'))
Print("This should be the totally top secret aliens hideout. This place used to be a hair dresser salong.")
Print("A ladder goes up to the roof on the wall. The door has been sealed.")
        )
        )

(if(Said('climb,use/ladder'))
(if(==(send gEgo: onControl()) ctlRED)
Print("You climb the ladder up to the roof.")
(send gRoom: newRoom(200))
return
)
Print("You're too far away from the ladder.")
)

)
 
)
(instance car2 of Act
(properties
view 191
x 258
y 188
loop 1
))
/******************************************************************************/
