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

(public
	Ogre_s_Region 0
)
(synonyms
	(kiss kiss embrace)
	(giant giant giant giant man giant)
)

(instance Ogre_s_Region of Rgn
	(properties
		name "Ogre's Region"
	)
	
	(method (handleEvent pEvent &tmp gInvSaidMe)
		(if (pEvent claimed?) (return 1))
		(return
			(if
				(and
					(== (pEvent type?) evSAID)
					(gCast contains: gNewAct)
				)
				(cond 
					((Said 'look/giant') (Print 517 0))
					((Said 'converse') (Print 517 1))
					((Said 'kill/giant') (Print 517 2))
					((Said 'get,capture/giant') (Print 517 3))
					((Said 'kiss') (Print 517 4))
					((Said 'deliver>')
						(if
							(and
								(= gInvSaidMe (gInv saidMe:))
								(gEgo has: (gInv indexOf: gInvSaidMe))
							)
							(Print 517 5)
						else
							(Print 517 6)
						)
					)
				)
			else
				0
			)
		)
	)
)
