/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 127)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(local
insult
)
/******************************************************************************/
(instance public rm127 of Rm
	(properties
		picture scriptNumber
		north 0
		east 0
		south 0
		west 0
	)
	(method (init)
		(super:init())
		(self:setScript(RoomScript))
		(switch(gPreviousRoomNumber)
    (case 86

				(send gEgo:
                    init()
					posn(106 110)
					loop(3)
				)
            (send gGame:setSpeed(3))
			)
    (case 81
				(send gEgo:
					posn(143 156)
					loop(3)
				)
			)
   

		)

  (send gTheMusic:
			prevSignal(0)
			stop()
			number(323)
			loop(-1)
			play())


		SetUpEgo()
		(send gEgo:init())

	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)

   (method (handleEvent pEvent)
        (super:handleEvent(pEvent))
              (if(Said('look>'))
(if(Said('/painting'))
Print("Signed by Lardo Dy Wancy... must be some famous artist...")
)
(if(Said('/closet'))
Print("They are locked with a key. And you don't have it.")
Print("And don't need it.")
)
(if(Said('/lamp,light'))
Print("It doesn't look interesting. But still...")
Print("...no intrest.")
)
(if(Said('/bed,pillow'))
Print("You call this comfortable?")
)
(if(Said('/blanket'))
Print("This blanket looks like a flat board... maybe it's just because of the background artist...")
Print("...nah!")
)
(if(Said('/tv'))
Print("Elohttub? Is that some new brand?")
)
(if(Said('/window'))
Print("Hey! This is a good sight to shoot Lord Bather!")
)
(if(Said('/'))
Print("You're in your hotel room. You see a bed, a bedside closet, a tv, a closet and a opened window.")
        )
        )
(if(Said('use,take,shoot,sight,aim,look/sniper,sight,(optical<sight)') or (if(Said('shoot,take,aim/sniper,sight,(optical<sight)window') or (if(Said('shoot,take,/window') or (if(Said('kill/lord'))))))))
         (if(send gEgo: has(INV_SNIPER))
         (if(==(send gEgo: onControl()) ctlNAVY)
         (if(not(killed))
         = shotsLeft 5
         (send gRoom: newRoom(86))
         return
         )
         Print("You don't have to do it again.")
         return
         )
         Print("You're too far away from the window.")
         return
         )
         Print("You need a weapon for that.")
         )

        )
 (method(doit)
 (if(== gPreviousRoomNumber 86)
= gPreviousRoomNumber 999
Print("...Come in Dr.Jummybummy! This is Krap. Come in..." #at 45 15 #icon 821 0 1)
Print("Krap, this is Dr.Jummybummy. Go ahead!" #at 55 15 #title"Dr.Jummybummy:" #icon 821 0 1)
Print("Good job! But now you have to get out of the hotel. The guards and police are looking for you. Don't use the main entrance to leave." #at 45 15 #icon 821 0 1)
Print("I'm are waiting you behind the hotel. Come as soon as you can!" #at 45 15 #icon 821 0 1)
Print("Got it! Over and out!" #at 70 15 #title"Dr.Jummybummy:" #icon 821 0 1)
+= gScore 3
Wait(40)
= insult Print("I've got a few things to say to you now. Do want me to say it" #title "Eigen" #button " Comly " 2 #button " The hard way " 1 #icon 777 0 5)
(if(== insult 1)
Print("You stupid moron! You killed a person! You killing freak!" #title"Eigen:" #font 900 #icon 777 0 5)
Print("Maybe go on and kill some more, you pshyotic maniac?!" #title"Eigen:" #font 900 #icon 777 0 5)
Print("Go on! What does another murder do to you? Stupid butthole!" #title"Eigen:" #font 900 #icon 777 0 5)
Print("I still can't go on without saying what a freaking moron you are. Idiotic dumbass!" #title"Eigen:" #font 900 #icon 777 0 5)
Print("What do you have to say for yourself, braindead?" #title"Eigen:" #font 900 #icon 777 0 5)
Print("Nothing? You're even bigger buttass than I thought, you assfart!" #title"Eigen:" #font 900 #icon 777 0 5)
Print("Is your mom proud of you now, I ask?" #title"Eigen:" #icon 777 0 5 #font 900)
= insult 0
)
(if(== insult 2)
Print("Killing a person, even if it's a lamest creature on the planet, is not nice. In certain places, it's known as a felony." #title"Eigen:" #font 900 #icon 777 0 5)
Print("So, don't do it again!" #title"Eigen:" #font 900 #icon 777 0 5)
= insult 0
)
 )
 (if(==(send gEgo: onControl()) ctlRED)
 (send gRoom: newRoom(81))
 )
 )
)
/******************************************************************************/
