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

(public
	Room697 0
)

(instance Room697 of Rm
	(properties
		picture 697
		style $0008
	)
	
	(method (init)
		(super init:)
		(= global204 1)
		(self setScript: showMessage)
	)
)

(instance showMessage of Script
	(properties)
	
	(method (changeState newState)
		(switch (= state newState)
			(0
				(User canControl: 0 canInput: 0)
				(= global120 (Print 697 0 67 -1 118 88))
				((Sound new:) number: 67 play: self)
			)
			(1
				(proc0_21)
				(= gCurRoomNum gPrevRoomNum)
				(= global204 0)
				(User canControl: 1 canInput: 1)
				(gRoom newRoom: gNewRoomNumber)
			)
		)
	)
)
