;;; Sierra Script 1.0 - (do not remove this comment)
(script# 99)
(include sci.sh)
(use Main)
(use Cycle)
(use Game)
(use MenuBar)

(public
	rm99 0
)

(local
	local0
)
(instance rm99 of Rm
	(properties
		picture 991
		style $0006
	)
	
	(method (init)
		(proc0_8)
		(super init:)
		(gEgo
			view: 991
			setLoop: 0
			posn: 20 99
			setStep: 1 1
			setMotion: MoveTo 300 100
			setCycle: Fwd
			init:
		)
		(gGame setSpeed: 0)
	)
	
	(method (doit)
		(super doit:)
		(if (== (++ global222) 1)
			(= local0 (+ 60 (GetTime)))
		)
		(if (< local0 (GetTime))
			(cond 
				((<= global222 30) (= global223 0))
				((<= global222 60) (= global223 1))
				(else (= global223 2))
			)
			(gGame setSpeed: 6)
			(TheMenuBar draw:)
			(SL enable:)
			(proc0_9)
			(gEgo view: 2 setLoop: -1)
			(gRoom newRoom: 25)
		)
	)
)
