/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 148)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
/******************************************************************************/
(instance public rm148 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(188 91)
					loop(1)
				)
			)
		)

		SetUpEgo()
		(send gEgo:init())
  (if(not(gasTanked))
  (aGas: init())
  Print("There seems to be a can of fuel at the sink.")
  )

	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
(method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if(Said('wash/hand,feet,foot,face'))
Print("You can wait with that until you get home.")
)
          (if(Said('look>'))
(if(Said('/tile,wall,floor'))
Print("You see nothing special.")
)
(if(Said('/door'))
Print("Regular people use this door to enter this bathroom. Not like you, coming in trough a window.")
)
(if(Said('/mirror'))
Print("It used to be a mirror as you can see.")
)
(if(Said('/window'))
Print("You can get in and out using this window.")
)
(if(Said('/toilet'))
Print("Now that looks dirty and sleazy and untidy and unwashed and awful and filled with poo.")
Print("(You din't want to know that, did you?)")
)
(if(Said('/sink'))
Print("It looks clean. No rings or coins in it.")
)
(if(Said('/'))
Print("You climbed into the bathroom of the gas-station. Doesn't look that sleazy for a gas-station.")
        )
        )

(if(Said('open,unlock/door'))
Print("The door seems to be locked from the outside.")
)
(if(Said('take/(gas<can),can,gas'))
(if(< (send gEgo:distanceTo(aGas)) 35)
(if(not(send gEgo: has(INV_GAS)))
+= gScore 3
(send gEgo: get(INV_GAS))
Print("You pick up the can of fuel. Now you should be able to drive on with your car.")
(aGas: dispose())
return
)
Print("You've already taken it.")
return
)
Print("You're not close enough.")
)

(if(Said('(climb,get,go<out,up,trough),leave,use,climb,enter/window,house,building') or
(if(Said('(climb,get,go<out,up,trough),leave'))))
(if(not(==(send gEgo: onControl()) ctlNAVY))
Print("You're not close enough to the window.")
return
)
Print("Ok")
(send gRoom: newRoom(137))
)
)
 
)
(instance aGas of Prop
(properties
view 209
x 155
y 85
))
/******************************************************************************/
