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

		(switch(gPreviousRoomNumber)
			(case 92
				(send gEgo:
					posn(281 133)
					loop(1)
				)
			)
		)
         (aMan: init())
		SetUpEgo()
		(send gEgo:init())
  (aPoster: init())
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
    (method (handleEvent pEvent)
   (super:handleEvent(pEvent))
 (if(Said('cut,pull/wire'))
 Print("Better not.")
 )
   (if(Said('take/poster,sign'))
  Print("You can't; it's taped to the wall. And besides you don't need it anyaway.")
   )
    (if(Said('look>'))
(if(Said('/vent,hole/entrance') or (if(Said('/vent,hole'))))
Print("It doesn't look interesting. It's just a ventilation hole.")
)
(if(Said('/wires'))
Print("These wires give electricity to the freezers.")
)
(if(Said('/grid'))
Print("It covers the air ventilation hole.")
)
(if(Said('/counter,desk'))
Print("There's a cash register on the counter. Jerk The Clerk is standing behind it.")
)
(if(Said('/man,shopkeeper,salesman,clerk,jerk'))
Print("He's just staring at the door. Does he wait for customers or the end of the workday...?")
)
(if(Said('/door,doorway,exit'))
Print("You can see the outside world from there.")
)
(if(Said('/fridge,shelf,freezer'))
Print("They don't look very stacked as you'd expect from a store.")
)
(if(Said('/poster,sign'))
Print("WOW! -40 per cent.")
)
(if(Said('/wall'))
Print("The cold-drinks cabinet is along the wall. There is also a air ventilation hole up in the wall and a poster.")
)
(if(Said('/money,cash,box,register,till,drawer'))
Print("Great money goes trough there. But not in this store.")
)
(if(Said('/'))
Print("You're inside the local store. The variety of goods really strucks. Jerk The Clerk is looking straight at the door.")
        )
        )
   
   (if(Said('talk/man,shopkeeper,salesman,clerk'))
    (if(==(send gEgo: onControl()) ctlRED)
    (if(talkedSaler)
    Print("He already told you the history of this town.")
    return
    )
    = talkedSaler TRUE
Print("Hi! Could you tell me about Lost Angle? Maybe some places I could go to?" #title "Dr.Jummybummy:" #icon 777 0 0)
Print("Of course! Lost Angle was founded in 3264 by Akramar Ramarka. Back then it was a hunters village and a great trading center. It was called Arkara." #title "Clerk:" #icon 778 0 9)
Print("Ooh ooh, I like history. Please tell me more." #title "Dr.Jummybummy:" #icon 777 0 0)
Print("In 3311 Arkara was attacked by barbarian tribe and soon after the town was renamed to Lost Angle. The uncivilized and barbarious tribe tought us writing and reading." #title "Clerk:" #icon 778 0 9)
Print("They also brought us inventions like electricity, tv, jacuzzi and many more. Like I said, they were uncivilized tribe back then." #title "Clerk:" #icon 778 0 9)
Print("Ok, thanks. But what about places I could go to?" #title "Dr.Jummybummy:" #icon 777 0 0)
Print("Lost Angle is a very large city, but some places I would recommend going to are this store, the hotel, the casino and the famous tool-store." #title "Clerk:" #icon 778 0 9)
Print("You can take the bus to get to these locations. Make sure to pop into the casino, so you'd have some money for the bus tickets." #title "Clerk:" #icon 778 0 9)
Print("Thank you. I'll now go and check those places out." #title "Dr.Jummybummy:" #icon 777 0 0)
Print("My pleaseure. Can I get you anything?" #title "Clerk:" #icon 778 0 9)
Print("No, not at the moment." #title "Dr.Jummybummy:" #icon 777 0 0)
     += gScore 2
    return
    )
    Print("You're too far away from him.")
   )
   )
  (method(doit)
 (if(==(send gEgo: onControl()) ctlNAVY)
 (if(talkedSaler)
  (if(not(rebelsCalled))
Print("Someone is calling ..." #at 58 20 #icon 821 0 1)
Print("...Come in Dr.Jummybummy! This is Rebel Base. Come in doctor..." #at 45 15 #icon 821 0 1)
Print("This Dr.Jummybummy, go ahead Rebel Base." #at 45 15 #title"Dr.Jummybummy:" #icon 821 0 1)
Print("...We have information that Lord Bather is staying in Lost Angle. He's staying in a buidling just across the hotel. Find a way to eliminate him..." #at 45 15 #icon 821 0 1)
Print("But how?" #at 108 15 #title"Dr.Jummybummy:" #icon 821 0 1)
Print("...The only way that we see is using a sniper. But weapons are forbidden in Lost Angle. Find Jonny, he's working in the tool store. We're sure that he can help. If he asks any passwords, it's 'CHAINSAW'..." #at 45 15 #icon 821 0 1)
Print("Got it! Over and out!" #at 85 15 #title"Dr.Jummybummy:" #icon 821 0 1)
= rebelsCalled TRUE
+= gScore 3
))
 (send gRoom: newRoom(92))
  )

 )
)
(instance aMan of Act
(properties
view 124
x 43
y 103
))
(instance aPoster of Act
(properties
view 125
x 220
y 60
))
/******************************************************************************/
