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

(public
	Room8 0
)

(instance Room8 of Rm
	(properties
		picture 8
	)
	
	(method (init)
		(= north 2)
		(= south 14)
		(= east 9)
		(= west 7)
		(= horizon 68)
		(= global101 0)
		(super init:)
		(if global100 (gRoom overlay: 108))
		(gEgo view: 2 init:)
		(self setRegions: 506 514)
	)
	
	(method (handleEvent pEvent)
		(if (pEvent claimed?) (return 1))
		(return
			(if (== (pEvent type?) evSAID)
				(cond 
					((Said '/door') (Print 8 0))
					((Said '/window>')
						(cond 
							((Said 'open') (Print 8 1))
							((Said 'break') (Print 8 2))
							((Said 'look')
								(if (gEgo inRect: 10 134 57 140)
									(Print 8 3)
								else
									(Print 800 1)
								)
							)
						)
					)
				)
				(if (Said 'look>')
					(cond 
						((Said '/cottage') (Print 8 4))
						((Said '[<around][/room]') (Print 8 5))
					)
				)
			else
				0
			)
		)
	)
	
	(method (newRoom newRoomNumber)
		(if (gCast contains: gNewAct_5)
			(= global211 global160)
			(= global212 global159)
		)
		(super newRoom: newRoomNumber)
	)
)
