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

		(switch(gPreviousRoomNumber)
			(default
				(send gEgo:
					posn(54 172)
					loop(3)
				)
			)
		)

		SetUpEgo()
		(send gEgo:init())



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

 )
)
/******************************************************************************/
(instance RoomScript of Script
(properties)
(method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if(Said('close/locker'))
Print("All those lockers are closed.")
)
(if(Said('take,use>'))
(if(Said('/clothes'))
Print("All the clothes are in the lockers and the lockers are locked so you can take those.")
)
)
(if(Said('open/locker'))
Print("You don't have to open those lockers.")
)
(if(Said('take/paper'))
Print("Huh?")
)

(if(Said('look>'))
(if(Said('/clothes,paper'))
Print("Huh?")
)
(if(Said('/locker'))
Print("There are lot of them here. All of them are closed.")
)
(if(Said('/floor,wall,ceiling'))
Print("You don't see anything special about it.")
)
(if(Said('/sauna'))
Print("The sauna room is hardly visibe trough the steam in the shower room.")
)
(if(Said('/in/locker'))
Print("The locker doors are closed so you can't see in them.")
)
(if(Said('/'))
Print("You're in a locker room. Lots of lockers. There's another door leading to the shower room.")
)
)

)


   (method(doit)
 (if(==(send gEgo: onControl())ctlRED)
 (if(not(shower))
 = shower TRUE
 Print("You don't want to go to the the showers and see all the naked aliens there.")
 return
 )
 )
 (if(==(send gEgo: onControl())ctlBLACK)
 = shower FALSE

 )
 (if(==(send gEgo: onControl())ctlYELLOW)
 (send gRoom: newRoom(41))

 )
 )
)

/******************************************************************************/
