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

(public
	mountReg 0
)

(instance mountReg of Rgn
	(properties)
	
	(method (handleEvent pEvent)
		(if (pEvent claimed?) (return 1))
		(return
			(if (== (pEvent type?) evSAID)
				(cond 
					((Said 'look/cliff') (Print 511 0))
					((Said 'climb,cross/cliff') (Print 511 1))
				)
			else
				0
			)
		)
	)
)
