;;; Sierra Script 1.0 - (do not remove this comment)
(script# TITLEROOM_SCRIPT)
(include sci.sh)
(include Verbs.sh)
(include 0.shm)
(include game.sh)
(use Main)
(use Controls)
(use Print)
(use Cycle)
(use Game)
(use Actor)
(use System)

(public
	rm100 0
)

(local
	PaletteCycleDirection = 1
	ScreenPaletteStart = 71
	ScreenPaletteEnd = 87
	TicksPerCycle = 8
	CyclePos = 1
	lastPal = 0
)

(instance myDialog of Dialog
	(properties)
)

(instance rm100 of Room
	(properties
		picture 100
	)
	
	(method (init)
		; Set port to the entire screen, since our title image is 200px high.
		(SetPort 0 0 200 320 0 0)
		(if gDialog (gDialog dispose:))
		(super init:)
		(gOldMH addToFront: self)
		(gOldKH addToFront: self)
		(gGame setCursor: 996 1)
		(gIconBar hide: disable:)
		(gUser canInput: TRUE)
		(self setScript: rmScript)
)
	
	(method (dispose)
		; Restore the port to standard size.
		(SetPort 0 0 190 320 10 0)
		(gIconBar hide: enable:)
		(= gNormalCursor 999)
		(gGame setCursor: 996 1)
		(gOldKH delete: self)
		(gOldMH delete: self)
		(super dispose: &rest)
	)
	
	(method (handleEvent pEvent)
		(if
			(and
				(!= (rmScript state?) 1)
				(&
					(pEvent type?)
					(| evVERB evMOUSEBUTTON evMOUSERELEASE evKEYBOARD)
				)
			)
			; Skip to state 4 if the keyboard or mouse is used
			;(rmScript changeState: 1)
			(pEvent claimed: TRUE)
			(return)
		else
			(super handleEvent: pEvent)
		)
	)
)

(instance rmScript of Script
	(properties)

	(method (init)
		(super init: &rest)
		(= lastPal (GetTime))
	)
	
	(method (doit &tmp onControl)
		(super doit:)
		(= TicksPerCycle 1)
			(if (> PaletteCycleDirection 0)
				(if (< CyclePos 8)
					(if (> (GetTime) (+ lastPal TicksPerCycle))
						(Palette
							palANIMATE
							ScreenPaletteStart
							ScreenPaletteEnd
							PaletteCycleDirection
						)
						(++ CyclePos)
						(= lastPal (GetTime))
					)
				else
					(= PaletteCycleDirection -1)
					(if (> (GetTime) (+ lastPal TicksPerCycle))
						(Palette
							palANIMATE
							ScreenPaletteStart
							ScreenPaletteEnd
							PaletteCycleDirection
						)
						(-- CyclePos)
						(= lastPal (GetTime))
					)
				)
			else
				(if (> CyclePos 1)
					(if (> (GetTime) (+ lastPal TicksPerCycle))
						(Palette
							palANIMATE
							ScreenPaletteStart
							ScreenPaletteEnd
							PaletteCycleDirection
						)
						(-- CyclePos)
						(= lastPal (GetTime))
					)
				else
					(= PaletteCycleDirection 1)
					(if (> (GetTime) (+ lastPal TicksPerCycle))
						(Palette
							palANIMATE
							ScreenPaletteStart
							ScreenPaletteEnd
							PaletteCycleDirection
						)
						(++ CyclePos)
						(= lastPal (GetTime))
;
					)
				)
			)
	)
	
	(method (changeState newState &tmp temp0 [temp1 10])
		(switch (= state newState)
			(0 )
			; Wait 4 seconds before going to the next state.
			(1
				(= seconds 0)
				(= gNormalCursor 999)
				(gGame setCursor: 999 1)
				(Print
					dialog: myDialog
					font: gFont
					width: 150
					mode: alCENTER
					addText: N_TITLEMENU V_LOOK 0 4 0 0 0
					addText: N_TITLEMENU V_LOOK 0 5 0 10 0
					addColorButton: 0 N_TITLEMENU V_LOOK 0 1 0 20 0 0 11 23 5 5 5
					addColorButton: 1 N_TITLEMENU V_LOOK 0 2 0 30 0 0 11 23 5 5 5
				)
				(= temp0
					(Print
						addColorButton: 2 N_TITLEMENU V_LOOK 0 3 0 40 0 0 11 23 5 5 5
						init:
					)
				)
				(switch temp0
					(0 (gRoom newRoom: 110))
					(1
						(gGame restore:)
						(self changeState: state)
					)
					(2 (= gQuitGame TRUE))
				)
			)
		)
	)
)