/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 73)
/******************************************************************************/
(use "controls")
(use "cycle")
(use "door")
(use "feature")
(use "game")
(use "inv")
(use "main")
(use "obj")
(use "menubar")
/******************************************************************************/
(instance public rm073 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(303 156)
					loop(1)
				)
			)
		)

		SetUpEgo()
		(send gEgo:init())
  Print("Man..! This hole is huge!!")
  Print("You can now enter the base." #at 90 140)
	)
)
/******************************************************************************/
(instance RoomScript of Script
	(properties)
(method (handleEvent pEvent)
(super:handleEvent(pEvent))
(if(Said('climb,enter,(get<in)>'))
(if(Said('/wall'))
Print("The wall is too high to climb. Use the hole to enter the base.")
)
(if(Said('/base,hole'))
(if(==(send gEgo: onControl()) ctlBLUE)
Print("You enter the base...")
(send gEgo: dispose())
		(SL:disable())
		(TheMenuBar:hide())
DrawPic(8)
Print("After some time wondering around, you notice that the base is empty." #at 70 140)
Print("Only thing you could find, is a teleporter." #at 70 140)
Print("You step on it and...")
Print("..POOF!!...")
(send gRoom: newRoom(134))
return
)
Print("You better move closer to the hole in the wall, if you want to enter.")
)
(if(Said('/'))
Print("If you want to enter the base, type 'enter base'.")
)
))


)
/******************************************************************************/
