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

(public
	Ocean_Region 0
)
(synonyms
	(flora flora flora blossom flora flora)
	(ocean seawater ocean)
)

(instance Ocean_Region of Rgn
	(properties
		name "Ocean Region"
	)
	
	(method (handleEvent pEvent)
		(if (pEvent claimed?) (return 1))
		(return
			(if (== (pEvent type?) evSAID)
				(cond 
					(
						(or
							(Said 'look<in/ocean,water')
							(Said 'look<under/ocean,water')
							(Said 'look<in/water')
							(Said 'look<under/water')
						)
						(Print 519 0)
					)
					((Said 'look/fish')
						(cond 
							((gEgo has: 24) ((Inv at: 24) showSelf:))
							((not global100) (Print 519 1))
							(else (Print 519 2))
						)
					)
					((Said 'converse/fish')
						(if (not global100)
							(Print 519 3)
						else
							(Print 519 4)
						)
					)
					((Said 'chew,kill,kiss/fish')
						(if (not global100)
							(Print 519 5)
						else
							(Print 519 4)
						)
					)
					(
					(or (Said 'get,capture/fish') (Said 'fish[/!*]')) (Print 519 6))
					((Said 'look/ocean,water') (Print 519 7))
					((Said 'look/sky')
						(if (not global100)
							(Print 519 8)
						else
							(Print 519 9)
						)
					)
					((Said 'bathe[/!*]') (Print 519 10))
					(
						(or
							(Said 'dive/ocean,water')
							(Said 'dive[/!*]')
							(Said 'bathe<under/ocean,water')
						)
						(Print 519 11)
					)
					((or (Said 'get/drink') (Said 'drink')) (Print 519 12))
				)
			else
				0
			)
		)
	)
)
