;;; Sierra Script 1.0 - (do not remove this comment)
(script# 0)
(include sci.sh)
(use Class_255_0)
(use n802)
(use RegionPath)
(use SQRoom)
(use SQEgo)
(use Elevator)
(use PseudoMouse)
(use Slider)
(use BorderWindow)
(use IconI)
(use RandCycle)
(use PolyPath)
(use Polygon)
(use StopWalk)
(use DCIcon)
(use Grooper)
(use Sound)
(use Game)
(use InvI)
(use User)
(use PicView)
(use Obj)

(public
	sq1 0
	proc0_1 1
	proc0_2 2
	proc0_3 3
	proc0_4 4
	proc0_5 5
	proc0_6 6
	proc0_7 7
	proc0_8 8
	proc0_9 9
	proc0_10 10
	proc0_11 11
	proc0_12 12
	proc0_13 13
	proc0_14 14
	proc0_15 15
	proc0_16 16
	proc0_17 17
	SpiderList 18
)

(local
	gEgo
	gGame
	global2
	gNewSpeed =  6
	global4
	gCast
	gRegions
	gTimers
	gSounds
	gInv
	gAddToPics
	gTheRoom
	gNorth
	gNewRoomNumber
	global14
	global15
	global16
	global17 =  7
	global18
	gCursorNumber
	global20 =  999
	global21 =  20
	global22 =  1
	global23 =  4
	gPEvent
	gTheNewDialog
	global26 =  1
	global27
	gLocales
	global29
	global30 =  10
	gPicAngle
	gFeatures
	gSFeatures
	global34
	global35
	gPicNumber =  -1
	global37
	gSq1Win
	global39 =  3
	global40
	global41
	global42
	global43
	global44
	global45
	global46
	global47
	global48
	global49
	global50
	global51
	global52
	global53
	global54
	global55
	global56
	global57
	global58
	global59
	global60
	global61
	global62
	global63
	gSq1FtrInit
	gSq1DoVerbCode
	global66
	global67 =  1
	global68
	gIconBar
	gPEventX
	gPEventY
	gSq1KeyDownHandler
	gSq1MouseDownHandler
	gSq1DirectionHandler
	global75
	global76
	gPseudoMouse
	gTheDoits
	global79 =  60
	gUser
	global81
	global82
	global83
	gNewEventHandler
	gFont
	global86
	global87
	gCycleCnt
	global89
	global90
	global91
	global92
	global93
	global94
	global95
	global96
	global97
	global98
	global99
	gLongSong
	global101
	global102
	global103 =  1
	global104
	global105
	global106
	global107
	global108
	global109
	global110
	global111
	gSpiderListAdd
	gGCursorNumber
	global114
	global115
	gEgoHead
	gStopGroop
	global118
	global119
	global120
	global121
	global122
	global123
	global124
	global125
	global126
	global127
	global128
	global129
	global130
	global131
	global132
	global133
	global134
	global135
	global136
	global137
	global138
	global139
	global140
	global141
	global142
	global143
	global144
	global145
	global146
	global147
	global148
	global149
	global150
	global151
	global152
	global153
	gLongSong2
	global155
	global156
	global157
	global158
	global159
	global160
	global161
	global162
	gRobotX
	gRobotY
	global165 =  3
	global166 =  1
	global167
	global168
	global169
	global170
	global171
	global172
	global173
	global174
	global175
	global176 =  12
	gSoundEffects
	global178 =  2000
	gX
	gY
	gGTheRoom
	global182
	global183 =  7000
	global184
	global185
	global186
	global187
	global188
	global189
)
(procedure (proc0_1 param1 param2 param3 &tmp temp0)
	(= temp0 0)
	(if (> argc 0)
		(gEgo loop: param1)
		(if (> argc 1)
			(gEgo view: param2)
			(if (> argc 2) (= temp0 param3))
		)
	)
	(if (not temp0) (= temp0 60))
	(gEgo
		normal: 1
		moveHead: 1
		setLoop: -1
		setLoop: stopGroop
		setPri: -1
		setMotion: 0
		setCycle: StopWalk temp0
		setStep: 4 2
		illegalBits: 0
		ignoreActors: 0
		ignoreHorizon: 1
		moveSpeed: (gGame egoMoveSpeed?)
		cycleSpeed: (gGame egoMoveSpeed?)
	)
)

(procedure (proc0_2 &tmp gIconBarCurIcon)
	(User canControl: 0 canInput: 0)
	(gEgo setMotion: 0)
	(= gIconBarCurIcon (gIconBar curIcon?))
	(gIconBar disable: 7 6 5 4 3 2 1 0)
	(gIconBar curIcon: gIconBarCurIcon)
	(if (not (HaveMouse))
		(= global114 ((User curEvent?) x?))
		(= global115 ((User curEvent?) y?))
		(gGame setCursor: global21 1 310 180)
	else
		(gGame setCursor: global21 1)
	)
	(if gPseudoMouse (gPseudoMouse stop:))
)

(procedure (proc0_3)
	(User canControl: 1 canInput: 1)
	(gIconBar enable: 0 1 2 3 4 5 6 7)
	(gEgo
		moveSpeed: (gGame egoMoveSpeed?)
		cycleSpeed: (gGame egoMoveSpeed?)
	)
	(if (not (gIconBar curInvIcon?)) (gIconBar disable: 6))
	(if (not (HaveMouse))
		(gGame
			setCursor: ((gIconBar curIcon?) cursor?) 1 global114 global115
		)
	else
		(gGame setCursor: ((gIconBar curIcon?) cursor?))
	)
)

(procedure (proc0_4 param1)
	(return (u> (MemoryInfo 1) param1))
)

(procedure (proc0_5 param1 param2)
	(return (if (& (param1 onControl: 1) param2) (return 1) else 0))
)

(procedure (proc0_6 param1)
	(return
		(&
			[global118 (/ param1 16)]
			(>> $8000 (mod param1 16))
		)
	)
)

(procedure (proc0_7 param1 &tmp temp0)
	(= temp0 (proc0_6 param1))
	(= [global118 (/ param1 16)]
		(|
			[global118 (/ param1 16)]
			(>> $8000 (mod param1 16))
		)
	)
	(return temp0)
)

(procedure (proc0_8 param1 &tmp temp0)
	(= temp0 (proc0_6 param1))
	(= [global118 (/ param1 16)]
		(&
			[global118 (/ param1 16)]
			(~ (>> $8000 (mod param1 16)))
		)
	)
	(return temp0)
)

(procedure (proc0_9 param1 &tmp temp0)
	(= temp0 0)
	(if argc (= temp0 param1) else (= temp0 60))
	((= gEgoHead egoHead)
		init: gEgo
		view: temp0
		cycleSpeed: 40
	)
)

(procedure (proc0_10 param1 param2 param3 param4 &tmp temp0 temp1 temp2 [temp3 300])
	(asm
		pushi    #eachElementDo
		pushi    1
		pushi    154
		lag      gSounds
		send     6
		lap      argc
		bnt      code_1bb2
		lap      param1
		sat      temp0
		lap      param2
		sat      temp1
		lap      param3
		sat      temp2
		pushi    1
		lea      @temp3
		push    
		&rest    param4
		callk    Format,  2
		jmp      code_1bcb
code_1bb2:
		ldi      944
		sat      temp0
		ldi      0
		sat      temp1
		ldi      0
		sat      temp2
		pushi    3
		lea      @temp3
		push    
		pushi    0
		pushi    28
		callk    Format,  6
code_1bcb:
		pushi    #number
		pushi    1
		pushi    900
		pushi    97
		pushi    1
		pushi    127
		pushi    6
		pushi    1
		pushi    1
		pushi    102
		pushi    1
		pushi    1
		pushi    42
		pushi    0
		lag      gLongSong
		send     28
		pushi    #setCursor
		pushi    2
		lsg      global20
		pushi    1
		lofsa    sq1
		send     8
code_1bf1:
		pushi    16
		lea      @temp3
		push    
		pushi    30
		pushi    1
		pushi    81
		lofsa    {Restore}
		push    
		pushi    1
		pushi    81
		lofsa    {Restart}
		push    
		pushi    2
		pushi    81
		lofsa    {____Quit____}
		push    
		pushi    3
		pushi    82
		lst      temp0
		lst      temp1
		lst      temp2
		calle    proc255_0,  32
		push    
		dup     
		ldi      1
		eq?     
		bnt      code_1c2e
		pushi    #restore
		pushi    0
		lag      gGame
		send     4
		jmp      code_1c4d
code_1c2e:
		dup     
		ldi      2
		eq?     
		bnt      code_1c3f
		pushi    #restart
		pushi    0
		lag      gGame
		send     4
		jmp      code_1c4d
code_1c3f:
		dup     
		ldi      3
		eq?     
		bnt      code_1c4d
		ldi      1
		sag      global4
		jmp      code_1c51
code_1c4d:
		toss    
		jmp      code_1bf1
code_1c51:
		ret     
	)
)

(procedure (proc0_11 param1 param2)
	(if (not (proc0_6 param2))
		(gGame changeScore: param1)
		(proc0_7 param2)
		(pointsSound play:)
	)
)

(procedure (proc0_12 param1 &tmp temp0 temp1 temp2 temp3 temp4 temp5 temp6 temp7 temp8)
	(return
		(if (== argc 1)
			(Display 0 29 108 [param1 0])
			(if (not (HaveMouse))
				(gGame setCursor: gGCursorNumber 1)
			)
		else
			(= temp4 (= temp5 -1))
			(= temp0 0)
			(= temp1 68)
			(= temp2 69)
			(= temp3 320)
			(= temp6 global130)
			(= temp7 0)
			(= temp8 1)
			(while (< temp8 argc)
				(switch [param1 temp8]
					(30
						(= temp0 [param1 (++ temp8)])
					)
					(33
						(= temp2 (+ (= temp1 [param1 (++ temp8)]) 1))
					)
					(70
						(= temp3 [param1 (++ temp8)])
					)
					(67
						(= temp4 [param1 (++ temp8)])
						(= temp5 [param1 (++ temp8)])
					)
					(28
						(= temp6 [param1 (++ temp8)])
					)
					(29
						(= temp7 [param1 (++ temp8)])
					)
				)
				(++ temp8)
			)
			(if (not (HaveMouse))
				(= gGCursorNumber gCursorNumber)
				(gGame setCursor: 69 1)
			)
			(= temp8
				(Display
					[param1 0]
					100
					temp4
					temp5
					102
					temp7
					106
					temp3
					101
					temp0
					105
					temp2
					107
				)
			)
			(Display
				[param1 0]
				100
				temp4
				temp5
				102
				temp6
				106
				temp3
				101
				temp0
				105
				temp1
			)
			(return temp8)
		)
	)
)

(procedure (proc0_13 param1 param2 param3 param4 &tmp temp0 temp1 temp2 temp3)
	(= temp3 0)
	(if (IsObject param2)
		(= temp1 (param2 x?))
		(= temp2 (param2 y?))
		(if (== argc 3) (= temp3 param3))
	else
		(= temp1 param2)
		(= temp2 param3)
		(if (== argc 4) (= temp3 param4))
	)
	(= temp0
		(GetAngle (param1 x?) (param1 y?) temp1 temp2)
	)
	(param1
		setHeading: temp0 (if (IsObject temp3) temp3 else 0)
	)
)

(procedure (proc0_14 param1)
	(StrCpy @param1 {__Space Quest I - The Sarien Encounter})
	(DrawStatus @param1 0 (proc0_17 global158 global155))
)

(procedure (proc0_15 &tmp newList [temp1 2] userCurEvent temp4 [temp5 5])
	(= gGCursorNumber (gGame setCursor: 69 1))
	(= userCurEvent (User curEvent?))
	(redX
		x: (userCurEvent x?)
		y: (+ 300 (userCurEvent y?))
		z: 300
		show:
	)
	((= newList (List new:)) add: redX)
	(Animate (newList elements?) 1)
	(Animate (gCast elements?) 0)
	(= temp4 (GetTime))
	(while
		(and
			(not (not (< (Abs (- temp4 (GetTime))) 40)))
			(not
				(proc999_5 ((= userCurEvent (Event new:)) type?) 4 1)
			)
		)
		(userCurEvent dispose:)
	)
	(if (IsObject userCurEvent) (userCurEvent dispose:))
	(redX hide: posn: 1000 -1000)
	(Animate (newList elements?) 1)
	(newList delete: redX dispose:)
	(gGame setCursor: gGCursorNumber)
)

(procedure (proc0_16 param1 param2 param3 &tmp [temp0 500])
	(if (u< param2 1000)
		(GetFarText param2 param3 @temp0)
	else
		(StrCpy @temp0 param2)
	)
	(babbleIcon
		view: param1
		cycleSpeed: (* (+ global87 1) 4)
	)
	(if (u< param2 1000)
		(proc255_0 @temp0 &rest 82 babbleIcon 0 0)
	else
		(proc255_0 @temp0 param3 &rest 82 babbleIcon 0 0)
	)
)

(procedure (proc0_17 param1 param2)
	(if (< param1 0) (= param1 0))
	(if (> param1 255) (= param1 255))
	(if (< param2 0) (= param2 0))
	(if (> param2 15) (= param2 15))
	(return
		(if
			(not
				(if (<= 2 global105)
					(<= (if (> param2 15) (= param2 15)) 16)
				)
			)
			param1
		else
			param2
		)
	)
)

(procedure (localproc_1f8a param1 param2 param3 &tmp [temp0 30] [temp30 30] temp60 [temp61 100] [temp161 19] [temp180 30] [temp210 20])
	(= gGCursorNumber (gGame setCursor: 69 1))
	(if (not (StrLen @global42))
		(StrCpy @temp30 {})
		(proc255_2
			@temp30
			30
			{Enter drive & directory for new response log...}
		)
		(StrCpy @global42 @temp30)
	)
	(StrCpy @temp0 @global42)
	(StrCat @temp0 {newresp.log})
	(if (IsObject param2)
		(StrCpy @temp180 (param2 name?))
	else
		(StrCpy @temp180 {Default Response})
	)
	(Format
		@temp61
		0
		30
		gTheRoom
		@temp180
		((gIconBar curIcon?) helpStr?)
	)
	(if (== param1 4)
		(StrCat @temp61 ((gIconBar curInvIcon?) name?))
		(StrCat
			@temp61
			(Format @temp161 {
\n(switch theItem (%d} param3)
		)
		(StrCat @temp61 {
\n})
	)
	(StrCpy @temp210 {})
	(if (== param1 4)
		(StrCpy @temp210 {verbUse})
	else
		(switch ((gIconBar curIcon?) cursor?)
			(19
				(StrCpy @temp210 {verbLook})
			)
			(20 (StrCpy @temp210 {verbDo}))
			(7 (StrCpy @temp210 {verbTalk}))
			(30
				(StrCpy @temp210 {verbSmell})
			)
			(31
				(StrCpy @temp210 {verbTaste})
			)
		)
	)
	(Format @temp161 0 31 @temp210)
	(StrCat @temp61 @temp161)
	(StrCat @temp61 {\t\t\t(Print
\n})
	(StrCat @temp61 {\t\t\t\t"})
	(= temp60 (FileIO 0 @temp0 0))
	(FileIO 6 temp60 @temp61)
	(repeat
		(= temp61 0)
		(proc255_2 @temp61 50 {doVerb message:})
		(breakif (== (StrLen @temp61) 0))
		(FileIO 6 temp60 @temp61)
		(FileIO 6 temp60 {
\n\t\t\t\t})
	)
	(gGame setCursor: gGCursorNumber)
)

(instance ego of SQEgo
	(properties
		description {Roger Wilco}
		sightAngle 180
		lookStr {It's you, Roger Wilco, janitor sub-extraordinaire.}
	)
	
	(method (doVerb theVerb param2)
		(switch theVerb
			(5 (proc255_0 0 0))
			(3 (proc255_0 0 1))
			(11 (proc255_0 0 2))
			(12 (proc255_0 0 3))
			(4
				(switch param2
					(5
						(cond 
							((global2 script?) (proc255_0 0 4))
							(
							(proc999_5 gTheRoom 37 18 19 20 21 22 23 24 25 26 27) (global2 setScript: (ScriptID 704 4)))
							(else (proc255_0 0 5))
						)
					)
					(13 (proc255_0 0 6))
					(11
						(if (== gTheRoom 51)
							(proc255_0 0 7)
						else
							(proc255_0 0 8)
						)
					)
					(4 (proc255_0 0 9))
					(else 
						(switch (Random 1 5)
							(1 (proc255_0 0 10))
							(2 (proc255_0 0 11))
							(3 (proc255_0 0 12))
							(4 (proc255_0 0 13))
							(5 (proc255_0 0 14))
						)
					)
				)
			)
			(else  (super doVerb: theVerb))
		)
	)
)

(instance egoHead of Head
	(properties
		description {Roger Wilco}
		lookStr {This is your brain take-out container.}
		view 60
	)
	
	(method (doVerb theVerb param2)
		(gEgo doVerb: theVerb param2)
	)
)

(instance longSong of Sound
	(properties)
)

(instance longSong2 of Sound
	(properties)
)

(instance invSound of Sound
	(properties
		flags $0001
	)
)

(instance soundEffects of Sound
	(properties)
	
	(method (check)
		(DoSound 17 self)
		(if signal
			(= prevSignal signal)
			(= signal 0)
			(cond 
				((> (self loop?) 1)
					(self loop: (- (self loop?) 1))
					(DoSound sndVOLUME self 0)
				)
				((IsObject client) (client cue: self))
			)
		)
	)
)

(instance pointsSound of Sound
	(properties
		flags $0001
		number 901
	)
)

(instance stopGroop of Grooper
	(properties)
	
	(method (doit)
		(if
			(and
				(IsObject (gEgo cycler?))
				((gEgo cycler?) isKindOf: StopWalk)
			)
			(gEgo view: ((gEgo cycler?) vWalking?))
		)
		(super doit: &rest)
	)
)

(instance babbleIcon of DCIcon
	(properties)
	
	(method (init)
		((= cycler (RandCycle new:)) init: self 20)
	)
)

(instance sq1KeyDownHandler of EventHandler
	(properties)
)

(instance sq1MouseDownHandler of EventHandler
	(properties)
)

(instance sq1DirectionHandler of EventHandler
	(properties)
)

(instance sq1 of Game
	(properties)
	
	(method (init &tmp temp0)
		(= global187 0)
		(= gSq1Win sq1Win)
		(proc802_0)
		(= gStopGroop stopGroop)
		(= global186 (Random 1 20))
		(= global34 1)
		(= gSpiderListAdd (SpiderList add:))
		StopWalk
		Polygon
		PolyPath
		SQRoom
		IconBar
		Inv
		(ScriptID 982)
		RandCycle
		(super init: &rest)
		(StrCpy @global42 {})
		(= gSq1DoVerbCode sq1DoVerbCode)
		(= gSq1FtrInit sq1FtrInit)
		((= gSq1KeyDownHandler sq1KeyDownHandler) add:)
		((= gSq1MouseDownHandler sq1MouseDownHandler) add:)
		((= gSq1DirectionHandler sq1DirectionHandler) add:)
		(= gPseudoMouse PseudoMouse)
		(self egoMoveSpeed: 5 setSpeed: 0)
		((= gEgo ego)
			_head: (= gEgoHead egoHead)
			moveSpeed: (self egoMoveSpeed?)
			cycleSpeed: (self egoMoveSpeed?)
		)
		(gEgoHead client: gEgo)
		(User canControl: 0 canInput: 0 alterEgo: gEgo)
		((= gLongSong longSong) owner: self init: flags: 1)
		((= gLongSong2 longSong2) owner: self init:)
		(= gSoundEffects soundEffects)
		(= global27 {x.yyy})
		(= global21 997)
		(= global16 201)
		(= global22 4)
		(= global106 (DoSound sndDISPOSE))
		(= global105 (Graph grGET_COLOURS))
		(sq1Win
			color: 0
			back: (proc0_17 global158 global155)
			topBordColor: global130
			lftBordColor: (proc0_17 global159 global130)
			rgtBordColor: (proc0_17 global157 global156)
			botBordColor: global156
		)
		(gcWin
			color: 0
			back: (proc0_17 global158 global155)
			topBordColor: global130
			lftBordColor: (proc0_17 global159 global130)
			rgtBordColor: (proc0_17 global157 global156)
			botBordColor: global156
		)
		(invWin
			topBordHgt: 4
			botBordHgt: 25
			color: 0
			priority: -1
			back: (proc0_17 global156 global155)
			topBordColor: (proc0_17 global158 global130)
			lftBordColor: (proc0_17 global157 global130)
			rgtBordColor: (proc0_17 global155 global156)
			botBordColor: (proc0_17 global155 global156)
			insideColor: (proc0_17 global155 global156)
			topBordColor2: global129
			lftBordColor2: global129
			botBordColor2: (proc0_17 global158 global130)
			rgtBordColor2: (proc0_17 global159 global129)
		)
		((= gIconBar IconBar)
			add: icon0 icon1 icon2 icon3 icon6 icon7 icon4 icon5 icon8 icon9
			eachElementDo: #init
			eachElementDo: #highlightColor 0
			eachElementDo: #lowlightColor (proc0_17 global158 global155)
			curIcon: icon0
			useIconItem: icon4
			helpIconItem: icon9
			disable:
		)
		(icon5 message: (if (HaveMouse) 3840 else 9))
		(Inv
			init:
			add:
				Cartridge
				keyCard
				Gadget
				Survival_Kit
				Knife
				Dehydrated_Water
				Broken_Glass
				Rock
				Orat_Part
				Skimmer_Key
				buckazoid
				Jetpack
				Pulseray_Laser_Pistol
				Grenade
				Remote
				Widget
				Plant
				Bar_Coupon
				Droids-B-Us_coupon
				Sarien_ID_Card
				invLook
				invHand
				invSelect
				invHelp
				ok
			eachElementDo: #highlightColor 0
			eachElementDo: #lowlightColor (proc0_17 global155 global156)
			eachElementDo: #init
			window: invWin
			helpIconItem: invHelp
			selectIcon: invSelect
			okButton: ok
		)
		(GameControls
			window: gcWin
			add:
				iconOk
				(detailSlider
					theObj: self
					selector: 291
					topValue: 3
					yStep: (- 3 global87)
					bottomValue: 0
					yourself:
				)
				(volumeSlider
					theObj: self
					selector: 381
					topValue: (if (> global106 1) 15 else 1)
					bottomValue: 0
					yStep: (- 3 global87)
					yourself:
				)
				(speedSlider
					theObj: speedORama
					selector: 60
					yStep: (- 3 global87)
					yourself:
				)
				(iconSave theObj: self selector: 78 yourself:)
				(iconRestore theObj: self selector: 79 yourself:)
				(iconRestart theObj: self selector: 104 yourself:)
				(iconQuit theObj: self selector: 103 yourself:)
				(iconAbout
					theObj: (ScriptID 811 0)
					selector: 60
					yourself:
				)
				iconHelp
			eachElementDo: #highlightColor 0
			eachElementDo: #lowlightColor (proc0_17 global157 global156)
			helpIconItem: iconHelp
			curIcon: iconRestore
		)
		(buckazoid owner: gEgo)
		(= global107 (if (GameIsRestarting) 4 else 1))
		(self newRoom: 803)
	)
	
	(method (replay)
		(Palette 4 0 255 100)
		(super replay:)
	)
	
	(method (startRoom param1)
		(if gPseudoMouse (gPseudoMouse stop:))
		(gSounds eachElementDo: #perform soundReset)
		((ScriptID 801) doit: param1)
		(if
			(and
				global187
				global185
				(!= (- (MemoryInfo 1) 2) (MemoryInfo 0))
				(proc255_0 0 17 81 {Who cares} 0 81 {Debug} 1)
			)
			(SetDebug)
		)
		(redX init: hide: setPri: 15 posn: 1000 -1000)
		(if global14 (SetDebug))
		(cond 
			((proc999_5 param1 3 4 5 6 7 8 9 10 11 12 13 103) Elevator (ScriptID 700))
			(
			(proc999_5 param1 37 18 19 20 21 22 23 24 25 26 27) (ScriptID 704))
			(
			(proc999_5 param1 54 55 57 58 59 60 61 62 63 64 65 66 67) Elevator RegionPath (ScriptID 703) (= global102 703))
			(else 0)
		)
		(if
			(proc999_5
				param1
				3
				35
				40
				41
				42
				43
				45
				46
				58
				59
				60
				61
				62
				63
				64
				66
				68
			)
			RandCycle
		)
		(if (and global187 (not (proc999_5 param1 999)))
			((ScriptID 800) init:)
		)
		(super startRoom: param1)
		(if (gCast contains: gEgo)
			(if
				(and
					(gEgo normal?)
					(not ((gEgo cycler?) isKindOf: StopWalk))
				)
				(gEgo
					setCycle:
						StopWalk
						(switch (gEgo view?)
							(0 60)
							(1 61)
							(416 65)
							(2 62)
						)
				)
			)
			(if (not (gEgo looper?)) (gEgo setLoop: stopGroop))
			(proc0_9 (egoHead view?))
		)
	)
	
	(method (restart)
		(babbleIcon view: 946 cycleSpeed: (* (+ global87 1) 4))
		(if
			(proc255_0
				0
				16
				81
				{Of course I'm sure!}
				1
				81
				{Changed My Mind.\nLet's Play!}
				0
				82
				babbleIcon
				0
				0
			)
			(super restart:)
		)
	)
	
	(method (handleEvent pEvent)
		(super handleEvent: pEvent)
		(if (pEvent claimed?) (return 1))
		(return
			(switch (pEvent type?)
				(evKEYBOARD
					(switch (pEvent message?)
						(KEY_TAB
							(if (not (& (icon5 signal?) $0004))
								(Inv showSelf: gEgo)
							)
						)
						(KEY_SHIFTTAB
							(if (not (& (icon5 signal?) $0004))
								(Inv showSelf: gEgo)
							)
						)
						(KEY_CONTROL
							(gGame quitGame:)
							(pEvent claimed: 1)
						)
						(KEY_F1 (GameControls show:))
						(KEY_F2
							(cond 
								((gGame masterVolume:) (gGame masterVolume: 0))
								((> global106 1) (gGame masterVolume: 15))
								(else (gGame masterVolume: 1))
							)
							(pEvent claimed: 1)
						)
						(KEY_F5
							(gGame save:)
							(pEvent claimed: 1)
						)
						(KEY_F7
							(gGame restore:)
							(pEvent claimed: 1)
						)
						(KEY_F9
							(gGame restart:)
							(pEvent claimed: 1)
						)
					)
				)
			)
		)
	)
	
	(method (quitGame)
		(babbleIcon view: 946 cycleSpeed: (* (+ global87 1) 4))
		(super
			quitGame:
				(proc255_0
					0
					15
					81
					{Let me out of here!\n(Quit)}
					1
					81
					{I don't know WHAT\nI was thinking.\nLet's Play!}
					0
					82
					babbleIcon
					0
					0
				)
		)
	)
	
	(method (pragmaFail)
		(if (User canInput:)
			(if (and global187 (proc0_6 0))
				(localproc_1f8a)
			else
				(proc0_15)
			)
		)
	)
)

(instance soundReset of Code
	(properties)
	
	(method (doit param1)
		(if
		(and (== (param1 prevSignal?) -1) (param1 number?))
			(param1 number: 0)
		)
	)
)

(instance speedORama of Code
	(properties)
	
	(method (doit param1)
		(if argc
			(gGame egoMoveSpeed: param1)
			(if (User canControl:)
				(gEgo
					moveSpeed: (gGame egoMoveSpeed?)
					cycleSpeed: (gGame egoMoveSpeed?)
				)
			)
		)
		(gGame egoMoveSpeed?)
	)
)

(instance ok of IconI
	(properties
		view 901
		loop 3
		cel 0
		nsLeft 40
		cursor 999
		signal $0043
		helpStr {Select this Icon to close this window.}
	)
	
	(method (init)
		(self
			highlightColor: 0
			lowlightColor: (proc0_17 global158 global155)
		)
		(super init:)
	)
)

(instance invLook of IconI
	(properties
		view 901
		loop 2
		cel 0
		cursor 19
		message 2
		helpStr {Select this Icon then select an inventory item you'd like a description of.}
	)
	
	(method (init)
		(self
			highlightColor: 0
			lowlightColor: (proc0_17 global158 global155)
		)
		(super init:)
	)
)

(instance invHand of IconI
	(properties
		view 901
		loop 0
		cel 0
		cursor 20
		message 3
		helpStr {This allows you to do something to an item.}
	)
	
	(method (init)
		(self
			highlightColor: 0
			lowlightColor: (proc0_17 global158 global155)
		)
		(super init:)
	)
)

(instance invHelp of IconI
	(properties
		view 901
		loop 1
		cel 0
		cursor 29
		message 6
	)
	
	(method (init)
		(self
			highlightColor: 0
			lowlightColor: (proc0_17 global158 global155)
		)
		(super init:)
	)
)

(instance invSelect of IconI
	(properties
		view 901
		loop 4
		cel 0
		cursor 999
		helpStr {This allows you to select an item.}
	)
	
	(method (init)
		(self
			highlightColor: 0
			lowlightColor: (proc0_17 global158 global155)
		)
		(super init:)
	)
)

(class RInvItem of InvI
	(properties
		view 0
		loop 0
		cel 0
		nsLeft 0
		nsTop 0
		nsRight 0
		nsBottom 0
		state $0000
		cursor 999
		type $4000
		message 4
		modifiers $0000
		signal $0000
		helpStr 0
		maskView 0
		maskLoop 0
		maskCel 0
		highlightColor 0
		lowlightColor 0
		description 0
		owner 0
		script 0
		value 0
	)
	
	(method (doVerb theVerb param2)
		(switch theVerb
			(4
				(if (== (Inv at: param2) self)
					(proc255_0 0 18)
				else
					(proc255_0 view param2 0)
				)
			)
			(else 
				(super doVerb: theVerb param2)
			)
		)
	)
)

(instance Cartridge of RInvItem
	(properties
		view 551
		cursor 1
		signal $0002
		description {It's a cartridge from the Arcada's Data Archive.}
		owner 3
	)
)

(instance keyCard of RInvItem
	(properties
		view 550
		cursor 2
		signal $0002
		description {This keycard fits an electronic lock someplace on the Arcada.}
		owner 5
	)
)

(instance Gadget of RInvItem
	(properties
		view 552
		cursor 3
		signal $0002
		description {This is some sort of gadget. You're not sure what it does exactly, but it has a switch.}
		owner 11
	)
	
	(method (doVerb theVerb param2)
		(switch theVerb
			(3
				(cond 
					((global2 script?) (proc255_0 0 19))
					((proc0_6 48)
						(proc0_8 48)
						(invSound number: 902 loop: 1 flags: 1 play:)
						(proc255_0 0 20)
					)
					(else
						(proc0_7 48)
						(invSound number: 902 loop: 1 flags: 1 play:)
						(proc255_0 0 21)
					)
				)
			)
			(else 
				(super doVerb: theVerb param2)
			)
		)
	)
)

(instance Rock of RInvItem
	(properties
		view 557
		cel 1
		cursor 10
		signal $0002
		description {It's the cone shaped tip of a stalagmite.}
		owner 30
	)
	
	(method (doVerb theVerb param2)
		(switch theVerb
			(3
				(cond 
					((global2 script?) (proc255_0 0 22))
					((== cel 1)
						(proc255_0 0 23)
						(proc0_8 70)
						(gEgo get: 16)
						(self cel: 0)
						(Inv hide: showSelf: gEgo)
					)
					(else (proc255_0 0 24))
				)
			)
			(else 
				(super doVerb: theVerb param2)
			)
		)
	)
)

(instance Survival_Kit of RInvItem
	(properties
		view 553
		cursor 4
		signal $0002
		description {A Survival Kit}
		owner 18
		name "Survival Kit"
	)
	
	(method (doVerb theVerb param2)
		(switch theVerb
			(3
				(cond 
					((global2 script?) (proc255_0 0 19))
					((proc0_6 61) (proc255_0 0 25))
					(else
						(proc0_7 61)
						(proc255_0 0 26)
						(gEgo get: 5)
						(gEgo get: 4)
						(Inv hide: showSelf: gEgo)
					)
				)
			)
			(else 
				(super doVerb: theVerb param2)
			)
		)
	)
)

(instance Knife of RInvItem
	(properties
		view 554
		cursor 5
		signal $0002
		description {It's a Xenon Army knife}
	)
)

(instance Dehydrated_Water of RInvItem
	(properties
		view 555
		cursor 8
		signal $0002
		description {The can label says "Pelvitron Dehydrated Water (H2) - All you add is air! Makes 10 gallons! Caution - Do not attempt to open or rupture container! Misuse could result in personal injury and/or flash flooding."}
		name "Dehydrated Water"
	)
)

(instance Broken_Glass of RInvItem
	(properties
		view 556
		cursor 9
		signal $0002
		description {It's that highly reflective piece of broken cockpit glass.}
		owner 18
		name "Broken Glass"
	)
)

(instance Orat_Part of RInvItem
	(properties
		view 558
		cursor 11
		signal $0002
		description {This cute little item is an Orat part - you're not sure what part though.}
		owner 28
		name "Orat Part"
	)
)

(instance Skimmer_Key of RInvItem
	(properties
		view 559
		cursor 12
		signal $0002
		description {This key operates the skimmer.}
		owner 35
		name "Skimmer Key"
	)
)

(instance buckazoid of RInvItem
	(properties
		view 560
		cursor 13
		signal $0002
		description {buckazoid}
	)
	
	(method (show)
		(= view (if (>= global165 3) 560 else 574))
		(super show: &rest)
	)
	
	(method (doVerb theVerb param2)
		(switch theVerb
			(2
				(proc255_4
					0
					27
					global165
					(if (== global165 1) {.} else {s.})
				)
			)
			(else 
				(super doVerb: theVerb param2)
			)
		)
	)
)

(instance Keronian_Ale of RInvItem
	(properties
		view 561
		cursor 25
		signal $0002
		description {Ummm! Keronian Ale!}
		owner 43
		name "Keronian Ale"
	)
)

(instance Jetpack of RInvItem
	(properties
		view 562
		cursor 14
		signal $0002
		description {This is a used jetpack. Real used.}
		owner 41
	)
)

(instance Pulseray_Laser_Pistol of RInvItem
	(properties
		view 563
		cursor 15
		signal $0002
		description {It's a pulseray laser pistol. Remember, this isn't a play toy!}
		owner 58
		name "Pulseray Laser Pistol"
	)
)

(instance Grenade of RInvItem
	(properties
		view 564
		cursor 16
		signal $0002
		description {You have a small innocuous looking grenade.}
		owner 58
	)
)

(instance Remote of RInvItem
	(properties
		view 565
		cursor 17
		signal $0002
		description {This is a small single function remote control.}
		owner 64
	)
)

(instance Widget of RInvItem
	(properties
		view 570
		cursor 18
		signal $0002
		description {It's a genuine Widget. You're not sure what it does but it's heavy, it looks cool, and it might be magnetic. Please keep this away from the game disks!}
		owner 7
	)
)

(instance Plant of RInvItem
	(properties
		view 571
		cursor 21
		signal $0002
		description {This is simply a piece of sticky, stinking, rotting, plant}
		owner 19
	)
)

(instance Bar_Coupon of RInvItem
	(properties
		view 572
		cursor 22
		signal $0002
		description {Hey kids! This bar coupon is good for 5 bucakzoids and a free Keronian Ale!}
		name "Bar Coupon"
	)
)

(instance Droids-B-Us_coupon of RInvItem
	(properties
		view 573
		cursor 23
		signal $0002
		description {This coupon gives you a 20% discount at a Droids-B-Us near you! How helpful! Those suckers have the highest droid prices in this universe.}
		name "Droids-B-Us coupon"
	)
)

(instance Sarien_ID_Card of RInvItem
	(properties
		view 569
		cursor 24
		signal $0002
		description {In the pocket of this ugly outfit is a Sarien ID card. The name on the card is Butston Freem. You wonder if this is a common Sarien name (and if it is, you're glad you're not Sarien).}
		owner 57
		name "Sarien ID Card"
	)
)

(instance redX of View
	(properties
		view 903
	)
)

(instance icon0 of IconI
	(properties
		view 900
		loop 0
		cel 0
		cursor 6
		message 1
		signal $0041
		helpStr {This icon is for walking.}
		maskView 900
		maskLoop 14
		maskCel 1
	)
)

(instance icon1 of IconI
	(properties
		view 900
		loop 1
		cel 0
		cursor 19
		message 2
		signal $0041
		helpStr {This icon is for looking.}
		maskView 900
		maskLoop 14
		maskCel 1
	)
)

(instance icon2 of IconI
	(properties
		view 900
		loop 2
		cel 0
		cursor 20
		message 3
		signal $0041
		helpStr {This icon is for doing.}
		maskView 900
		maskLoop 14
	)
)

(instance icon3 of IconI
	(properties
		view 900
		loop 3
		cel 0
		cursor 7
		message 5
		signal $0041
		helpStr {This icon is for talking.}
		maskView 900
		maskLoop 14
		maskCel 3
	)
)

(instance icon4 of IconI
	(properties
		view 900
		loop 4
		cel 0
		cursor 999
		message 4
		signal $0041
		helpStr {This window displays the current inventory item.}
		maskView 900
		maskLoop 14
		maskCel 4
	)
)

(instance icon5 of IconI
	(properties
		view 900
		loop 5
		cel 0
		cursor 999
		type $0000
		message 0
		signal $0043
		helpStr {This icon brings up the inventory window.}
		maskView 900
		maskLoop 14
		maskCel 2
	)
	
	(method (select)
		(if (super select:) (Inv showSelf: gEgo))
	)
)

(instance icon6 of IconI
	(properties
		view 900
		loop 10
		cel 0
		cursor 30
		message 12
		signal $0041
		helpStr {This icon is for smelling.}
		maskView 900
		maskLoop 14
	)
)

(instance icon7 of IconI
	(properties
		view 900
		loop 11
		cel 0
		cursor 31
		message 11
		signal $0041
		helpStr {This icon is for tasting.}
		maskView 900
		maskLoop 14
		maskCel 1
	)
)

(instance icon8 of IconI
	(properties
		view 900
		loop 7
		cel 0
		cursor 999
		message 8
		signal $0043
		helpStr {This icon brings up the control panel.}
		maskView 900
		maskLoop 14
		maskCel 1
	)
	
	(method (select)
		(if (super select:)
			(gIconBar hide:)
			(GameControls show:)
		)
	)
)

(instance icon9 of IconI
	(properties
		view 900
		loop 9
		cel 0
		cursor 29
		message 6
		signal $0003
		helpStr {This icon tells you about other icons.}
		maskView 900
		maskLoop 14
	)
)

(instance sq1DoVerbCode of Code
	(properties)
	
	(method (doit param1 param2 param3 &tmp temp0)
		(= temp0 (param2 description?))
		(switch param1
			(2
				(if (param2 facingMe: gEgo)
					(cond 
						((param2 lookStr?) (proc255_0 (param2 lookStr?)))
						((not (proc0_6 0)) (proc0_15))
						(else (localproc_1f8a param1 param2))
					)
				)
			)
			(else 
				(if (not (proc0_6 0))
					(proc0_15)
				else
					(localproc_1f8a param1 param2 param3)
				)
			)
		)
	)
)

(instance sq1FtrInit of Code
	(properties)
	
	(method (doit param1)
		(if (== (param1 sightAngle?) 26505)
			(param1 sightAngle: 90)
		)
		(if (== (param1 actions?) 26505) (param1 actions: 0))
	)
)

(instance sq1Win of BorderWindow
	(properties)
	
	(method (dispose)
		(super dispose: &rest)
		(if (not (HaveMouse))
			(gGame setCursor: gGCursorNumber 1)
		)
	)
	
	(method (open)
		(if (not (HaveMouse))
			(= gGCursorNumber gCursorNumber)
			(gGame setCursor: 69 1)
		)
		(super open: &rest)
	)
)

(instance invWin of InsetWindow
	(properties)
)

(instance gcWin of BorderWindow
	(properties)
	
	(method (open &tmp temp0 temp1 temp2 temp3 temp4 temp5 temp6 temp7 temp8 temp9 temp10 temp11 temp12 temp13 [temp14 15] [temp29 4])
		(= temp12 -1)
		(self
			top: (/ (- 200 (+ (CelHigh 947 1 1) 6)) 2)
			left: (/ (- 320 (+ 151 (CelWide 947 0 1))) 2)
			bottom:
				(+
					(CelHigh 947 1 1)
					6
					(/ (- 200 (+ (CelHigh 947 1 1) 6)) 2)
				)
			right:
				(+
					151
					(CelWide 947 0 1)
					(/ (- 320 (+ 151 (CelWide 947 0 1))) 2)
				)
			priority: temp12
		)
		(super open:)
		(DrawCel
			947
			0
			5
			(+
				(/
					(-
						(- (+ 151 (CelWide 947 0 1)) (+ 4 (CelWide 947 1 1)))
						(CelWide 947 0 5)
					)
					2
				)
				4
				(CelWide 947 1 1)
			)
			6
			temp12
		)
		(DrawCel 947 1 1 4 3 temp12)
		(DrawCel 947 1 0 94 38 temp12)
		(DrawCel 947 1 0 135 38 temp12)
		(DrawCel
			947
			0
			4
			63
			(- 37 (+ (CelHigh 947 0 4) 3))
			temp12
		)
		(DrawCel
			947
			0
			3
			101
			(- 37 (+ (CelHigh 947 0 4) 3))
			temp12
		)
		(DrawCel
			947
			0
			2
			146
			(- 37 (+ (CelHigh 947 0 4) 3))
			temp12
		)
		(= temp5 (+ (= temp2 (+ 46 (CelHigh 947 0 1))) 13))
		(= temp4
			(+
				(= temp3 (+ 10 (CelWide 947 1 1)))
				(-
					(+ 151 (CelWide 947 0 1))
					(+ 10 (CelWide 947 1 1) 6)
				)
			)
		)
		(= temp6 0)
		(= temp8 global156)
		(= temp11 (proc0_17 global157 global156))
		(= temp10 (proc0_17 global159 global130))
		(= temp9 global130)
		(= temp1 3)
		(= temp7 1)
		(Graph
			grFILL_BOX
			temp2
			temp3
			(+ temp5 1)
			(+ temp4 1)
			temp7
			temp6
			temp12
		)
		(= temp2 (- temp2 temp1))
		(= temp3 (- temp3 temp1))
		(= temp4 (+ temp4 temp1))
		(= temp5 (+ temp5 temp1))
		(Graph
			grFILL_BOX
			temp2
			temp3
			(+ temp2 temp1)
			temp4
			temp7
			temp8
			temp12
		)
		(Graph
			grFILL_BOX
			(- temp5 temp1)
			temp3
			temp5
			temp4
			temp7
			temp9
			temp12
		)
		(= temp13 0)
		(while (< temp13 temp1)
			(Graph
				grDRAW_LINE
				(+ temp2 temp13)
				(+ temp3 temp13)
				(- temp5 (+ temp13 1))
				(+ temp3 temp13)
				temp11
				temp12
				-1
			)
			(Graph
				grDRAW_LINE
				(+ temp2 temp13)
				(- temp4 (+ temp13 1))
				(- temp5 (+ temp13 1))
				(- temp4 (+ temp13 1))
				temp10
				temp12
				-1
			)
			(++ temp13)
		)
		(Graph
			grUPDATE_BOX
			temp2
			temp3
			(+ temp5 1)
			(+ temp4 1)
			1
		)
		(Format @temp14 0 32 global15 global16)
		(TextSize @temp29 @temp14 999 0)
		(Display
			@temp14
			105
			999
			102
			(proc0_17 global159 global130)
			100
			(+
				10
				(CelWide 947 1 1)
				(/
					(-
						(-
							(+ 151 (CelWide 947 0 1))
							(+ 10 (CelWide 947 1 1) 6)
						)
						[temp29 3]
					)
					2
				)
			)
			(+ 46 (CelHigh 947 0 1) 3)
		)
	)
)

(instance detailSlider of Slider
	(properties
		view 947
		loop 0
		cel 1
		nsLeft 67
		nsTop 37
		signal $0080
		helpStr {Raises and lowers the level of graphics detail.}
		sliderView 947
		topValue 3
	)
)

(instance volumeSlider of Slider
	(properties
		view 947
		loop 0
		cel 1
		nsLeft 107
		nsTop 37
		signal $0080
		helpStr {Adjusts sound volume.}
		sliderView 947
		topValue 15
	)
)

(instance speedSlider of Slider
	(properties
		view 947
		loop 0
		cel 1
		nsLeft 147
		nsTop 37
		signal $0080
		helpStr {Adjusts the speed of the your character's animation (within the limits of your computer's capability).}
		sliderView 947
		bottomValue 15
	)
)

(instance iconSave of ControlIcon
	(properties
		view 947
		loop 2
		cel 0
		nsLeft 8
		nsTop 6
		message 9
		signal $01c3
		helpStr {Saves your current game.}
	)
)

(instance iconRestore of ControlIcon
	(properties
		view 947
		loop 3
		cel 0
		nsLeft 8
		nsTop 26
		message 9
		signal $01c3
		helpStr {Restores a previously saved game.}
	)
)

(instance iconRestart of ControlIcon
	(properties
		view 947
		loop 4
		cel 0
		nsLeft 8
		nsTop 46
		message 9
		signal $01c3
		helpStr {Restarts the Game.}
	)
)

(instance iconQuit of ControlIcon
	(properties
		view 947
		loop 5
		cel 0
		nsLeft 8
		nsTop 66
		message 9
		signal $01c3
		helpStr {Exits the game.}
	)
)

(instance iconAbout of ControlIcon
	(properties
		view 947
		loop 6
		cel 0
		nsLeft 8
		nsTop 86
		message 9
		signal $01c3
		helpStr {Information about the game.}
	)
)

(instance iconHelp of IconI
	(properties
		view 947
		loop 7
		cel 0
		nsLeft 34
		nsTop 86
		cursor 70
		message 6
		signal $0183
	)
)

(instance iconOk of IconI
	(properties
		view 947
		loop 8
		cel 0
		nsLeft 8
		nsTop 106
		cursor 70
		message 9
		signal $01c3
		helpStr {Exits this menu.}
	)
)

(instance SpiderList of List
	(properties)
)