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

		(switch(gPreviousRoomNumber)
			(case 79
				(send gEgo:
					posn(169 185)
					loop(3)
				)
			)
		)

		SetUpEgo()
		(send gEgo:init())
  (if(not(send gEgo: has(INV_AXE)))
  (aAxe: init())
  )
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
(method (handleEvent pEvent)
(super:handleEvent(pEvent))
        (if(Said('lay/down'))
        Print("No time for that. You have a planet to save.")
        )
       (if(Said('look>'))
        (if(Said('/sky'))
 Print("The sky is cloudless. On days like these you wish to lay on the ground and just lazy.")
 )
   (if(Said('/axe'))
 (if(send gEgo: has(INV_AXE))
 Print("Press TAB to see it in your inventory.")
 return
 )
 Print("Looks like a pretty good and useful axe.")
)
  (if(Said('/tree'))
 Print("They look like everywhere else. Not worth watching for long.")
)
(if(Said('/'))
(if(send gEgo: has(INV_AXE))
Print("You're in the woods. Some trees grow here.")
return
)
Print("You're in the woods. Some trees grow here. Someone has left its axe here by the tree.")

         ))

(if(Said('take/axe,tool'))
(if(==(send gEgo: onControl()) ctlNAVY)
(if(send gEgo: has(INV_AXE))
Print("You have already taken it.")
return
)
Print("Ok")
+= gScore 2
(send gEgo: get(INV_AXE))
(aAxe: hide())
return
)
Print("You're too far away form the axe at the tree.")
)

)
)
(instance aAxe of Prop
(properties
view 166
x 156
y 147
))
/******************************************************************************/
