;;; Sierra Script 1.0 - (do not remove this comment)
(script# 700)
(include sci.sh)
(use Main)
(use Game)
(use User)
(use Obj)

(public
	Room700 0
)

(instance Room700 of Rm
	(properties)
	
	(method (init)
		(gRoom drawPic: 700 6)
		(self setScript: wait)
		(User canInput: 0)
		(= gUserFont gSmallFont)
		(super init:)
	)
	
	(method (dispose)
		(User canInput: 1)
		(super dispose:)
	)
)

(instance wait of Script
	(properties)
	
	(method (changeState newState)
		(switch (= state newState)
			(0
				(Display 700 0 100 70 170 102 0 103 7)
				(= seconds 3)
			)
			(1 (gRoom newRoom: 699))
		)
	)
)
