/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 146)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
/******************************************************************************/
(instance public rm146 of Rm
	(properties
		picture scriptNumber
		north 0
		east 0
		south 76
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
      	(switch(gPreviousRoomNumber)
			(default
				(send gEgo:
					posn(160 167)
					loop(2)
				)
			)

   )
     (aShip: init())
 Print("You've crashed outside your home town. Now get going, and soon!, to stop the troops on time!")
 Print("The vessel is a total wreck. Nothing useful to take from it.")
         SetUpEgo()
         (send gGame:setSpeed(3))
		(send gEgo: init())
 )
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
  (method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if(Said('climb,(climb<up)/tree'))
Print("Not in this game you are.")
)
(if(Said('enter,(get<in)/rocket,pod,vessel,vehicle'))
Print("You were lucky to get out of there alive. You don't want to go back in there.")
)
  (if(Said('look>'))
(if(Said('/grass,path,sky'))
Print("Trust me, it's not interesting.")
)
(if(Said('/crack'))
Print("Can't you see those yourself?")
)
(if(Said('/glass,window,(front<window)'))
Print("You can see a lot of cracks in the front window of the vessel.")
)
(if(Said('/cloud'))
Print("The sky is cloudless.")
)
(if(Said('/mountain'))
Print("These mountains sure are far away.")
)
(if(Said('/rocket,pod,vessel,vehicle'))
Print("This vessel is a total wreck. Nothing to see here.")
)
(if(Said('/tree'))
Print("Luckily you missed the tree when landing.")
)
(if(Said('/'))
Print("You've crashed outside your home town. The wreck of the vessel is laying nearby.")
        )
        )
    )
)
(instance aShip of Act
(properties
view 204
x 154
y 164
cel 0
))
/******************************************************************************/
