/******************************************************************************/
(include "sci.sh")
(include "game.sh")
/******************************************************************************/
(script 225)
/******************************************************************************/
(use "main")
(use "game")
(use "menubar")
(use "obj")
(use "cycle")
(use "user")
(use "controls")
(use "feature")
/******************************************************************************/
(instance public rm225 of Rm
	(properties
		picture 228
		
	)
	(method (init)
			ProgramControl()
		= gProgramControl FALSE
		(send gGame:setSpeed(1))
		(SL:disable())
		(TheMenuBar:hide())
		(super:init())
		(self:setScript(RoomScript))

		(switch(gPreviousRoomNumber)
			(default
				(send gEgo:
					posn(150 130)
					loop(1)
				)
			)
		)
			

	(send gEgo:
			init()
			hide()
		)

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

	
	(method (handleEvent pEvent)
		(super:handleEvent(pEvent))
		// handle Said's, etc...
(if((== (send pEvent:type) evKEYBOARD))
	(send gRoom:newRoom(INITROOMS_SCRIPT))
)
	
			
	)
	
(method (changeState newState)
		(= state newState)
		(switch (newState)
			(case 0
				= seconds 1


			)
			(case 1
				= cycles 70
			)
			(case 2 
				= cycles 160
				(Into:init())
			)
			(case 3
				= cycles 199
				(Title:init())
				(Titla:init())
				(Title:setCycle(Fwd))
				(Titla:setCycle(Fwd))
			)
		
		)
)

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

(instance Into of Prop
	(properties
		x 167
		y 111
		view 176
		loop 0
		priority 14
	)

)
(instance Title of Prop
	(properties
		x 48
		y 148
		view 178
		loop 0
		priority 14
	)

)
(instance Titla of Prop
	(properties
		x 155
		y 156
		view 179
		loop 0
		priority 14
	)

)