/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 94)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
/******************************************************************************/
(instance public rm094 of Rm
	(properties
		picture scriptNumber
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
  (if(not(send gEgo: has(INV_TOOLS)))
  (aTools: init())
  )
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
   (method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if(Said('look>'))
(if(Said('/hammer,wrench,tools'))
)
(if(Said('/'))
Print("You're looking at the toolbox.")
        )
        )
(if(Said('take>'))
(if(Said('/hammer,wrench'))
(if(send gEgo: has(INV_TOOLS))
Print("There's nothing to take anymore.")
return
)
Print("Instead of taking a single tool, you grab them both.")
+= gScore 2
(aTools: hide())
(send gEgo: get(INV_TOOLS))
return
)
(if(Said('/tools'))
(if(send gEgo: has(INV_TOOLS))
Print("There's nothing to take anymore.")
return
)
Print("Ok")
Print("You grab the both tools.")
+= gScore 2
(send gEgo: get(INV_TOOLS))
(aTools: hide())
return
)
(if(Said('/toolbox'))
(if(send gEgo: has(INV_TOOLS))
Print("Nah!")
return
)
Print("Try taking the tools inside it.")
)
)
         (if(Said('back,exit,leave'))
         (send gRoom: newRoom(96))
  )
)
)
(instance aTools of Prop
(properties
view 121
x 160
y 98
))
/******************************************************************************/
