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


				(send gEgo:
					posn(285 180)
					loop(1)
				)


		SetUpEgo()
		(send gEgo:init())

	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
 (method(changeState newState)
= state newState
(switch(state)
(case 1
 Print("You place the dynamato sticks near the wall.")
  (aDyn: init())
  = dynPlaced TRUE
))

 )
(method (handleEvent pEvent)
(super:handleEvent(pEvent))
     (if(Said('look>'))
  (if(Said('/wire'))
 Print("It's for preventing criminals crossing the wall.")
 )
 (if(Said('/wall'))
 Print("It's a high brick wall. There's dangerous wire on the top of the wall.")
 )
(if(Said('/'))
Print("You're outside the Starbase. It's surrounded by a very high wall.")
        )
        )

  (if(Said('climb/wall'))
  Print("This wall is way too high to climb over. You need some other way to get (HINT >>) trough it.")
  )
  (if(Said('set,place,(set<up),(put<down),drop/explosive'))
  (send gEgo: setMotion(MoveTo 160 160 RoomScript))
  )
  (if(Said('lit,fuse,light/explosive/glasses,lense,(glass<lense)') or (if(Said('use/glasses/bomb'))))
  (if(dynPlaced)
   (if(< (send gEgo:distanceTo(aDyn)) 30)
  Print("Excellent suggestion sir!")
  Print("After lighting the dynamato, you RUN! away.")
  (send gEgo: put(INV_DYNAMATO))
 (send gEgo: hide())
  (aDyn: hide())
    DrawPic(26)
  Print("TAKE COVER!" #font 7)
  ShakeScreen(4 ssFULL_SHAKE)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(4 ssFULL_SHAKE)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(4 ssFULL_SHAKE)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(4 ssFULL_SHAKE)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(4 ssFULL_SHAKE)
  ShakeScreen(4 ssLEFTRIGHT)
  ShakeScreen(5 ssFULL_SHAKE)
  (send gRoom: newRoom(73))
  return
  )
  Print("You're too far away from the dynamato.")
return
  )
  Print("The dynamitos are in your pocket. You don't want to blow yourself up.")
  return

  )
  (if(Said('lit,fuse,light/explosive'))
  Print("This is a very good idea, but specify with what do you want to lit it with.")

  )
 )
)
(instance aDyn of Prop
(properties
view 141
x 155
y 152
))
/******************************************************************************/
