export40111_0	= code_20ba
export40111_1	= WACombatMoveScript

ShowCombatAction::doit:
		link	$1
		ldi	$f1		; 241, scale
		sat	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		class	SpellList
		send	$4
		bnot
		bnt	code_024e
		lst	temp[$0]
		ldi	$2
		or
		sat	temp[$0]
code_024e:	pushi	$45		; 69, 'E', doit
		pushi	$3		; z
		lofsa	ItemList
		push
		lsg	global[$1]
		lofsa	EdibleCode
		push
		lofsa	MakeItemList
		send	$a
		bnot
		pushi	$5a		; 90, 'Z', size
		push0
		lofsa	ItemList
		send	$4
		bnot
		bnt	code_0275
		lst	temp[$0]
		ldi	$4		; scaleX
		or
		sat	temp[$0]
code_0275:	pushi	$95		; 149, dispose
		push0
		lofsa	ItemList
		send	$4
		bnot
		pushi	$45		; 69, 'E', doit
		pushi	$3		; z
		lofsa	ItemList
		push
		lsg	global[$1]
		lofsa	UseableCode
		push
		lofsa	MakeItemList
		send	$a
		bnot
		pushi	$45		; 69, 'E', doit
		pushi	$4		; scaleX
		lofsa	ItemList
		push
		lsg	global[$1]
		lofsa	EquipCode
		push
		push0
		lofsa	MakeItemList
		send	$c
		bnot
		pushi	$5a		; 90, 'Z', size
		push0
		lofsa	ItemList
		send	$4
		bnot
		bnt	code_02bc
		lst	temp[$0]
		ldi	$8		; fixPriority
		or
		sat	temp[$0]
code_02bc:	pushi	$95		; 149, dispose
		push0
		lofsa	ItemList
		send	$4
		bnot
		pushi	$3		; z
		pushi	$9		; inLeft
		push2
		lst	temp[$0]
		callk	kernel_118, $6
		bnot
		ret

BasicCursorController::doit:
		link	$1
		pushi	$271		; 625, handsLevel
		push0
		lag	global[$2]
		send	$4
		bnot
		bnt	code_02e4
		ldi	$ff		; 255, asInteger
		aTop	pLastCursor
		ret

code_02e4:	pushi	$f4		; 244, curEvent
		push0
		lag	global[$e]
		send	$4
		bnot
		sat	temp[$0]
		pushi	$2b		; 43, '+', type
		push0
		send	$4
		bnot
		not
		bnt	code_0358
		pTos	pActiveCursor
		pToa	pLastCursor
		ne?
		bnt	code_0303
		ldi	$ff		; 255, asInteger
		aTop	pOnScreen
code_0303:	pushi	$a3		; 163, contains
		push1
		lst	temp[$0]
		push0
		push0
		lag	global[$3]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0338
		pTos	pOnScreen
		ldi	$1
		ne?
		bnt	code_0358
		pushi	$1b3		; 435, setCursor
		push2
		pushi	$270d		; 9997
		pTos	pActiveCursor
		pushi	$57		; 87, 'W', draw
		push0
		lofsa	combatCursor
		send	$c
		bnot
		pToa	pActiveCursor
		aTop	pLastCursor
		ldi	$1
		aTop	pOnScreen
		jmp	code_0358

code_0338:	pTos	pOnScreen
		ldi	$0
		ne?
		bnt	code_0358
		pushi	$1b3		; 435, setCursor
		push2
		pushi	$270d		; 9997
		push0
		pushi	$57		; 87, 'W', draw
		push0
		lofsa	combatCursor
		send	$c
		bnot
		pToa	pActiveCursor
		aTop	pLastCursor
		ldi	$0
		aTop	pOnScreen
code_0358:	ret

CombatDragItem::track:
		pushi	$b9		; 185, localize
		push1
		push0
		push0
		pToa	client
		send	$4
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pOfsX
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		aTop	pOfsY
		pushi	$ba		; 186, globalize
		push0
		lap	param[$1]
		send	$4
		bnot
		pushi	$ec		; 236, track
		push1
		lsp	param[$1]
		super	Button, $6
		bnot
		ret

CombatDragItem::trackDoit:
		pushi	$ba		; 186, globalize
		push0
		lap	param[$1]
		send	$4
		bnot
		pushi	$db		; 219, moveTo
		push2
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pOfsX
		sub
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pOfsY
		sub
		push
		push0
		push0
		pToa	client
		send	$4
		bnot
		send	$8
		bnot
		push1
		push0
		push0
		pToa	client
		send	$4
		bnot
		push
		callk	kernel_42, $2
		bnot
		ret

cancelButton::doit:
		ldi	$1
		sal	local[$a]
		lal	local[$e]
		bnt	code_03e0
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$e]
code_03e0:	ret

HelpText::doit:
		lal	local[$9]
		bnt	code_03f0
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$9]
code_03f0:	lap	param[$1]
		not
		bnt	code_03f6
		ret

code_03f6:	pushi	$11		; 17, bitmap
		lsp	param[$1]
		pushi	$64		; 100, 'd', moveDone
		pushi	$170		; 368, display
		pushi	$148		; 328, divisions
		pushi	$6a		; 106, 'j', scaleSignal
		pushi	$fb		; 251, subStr
		pushi	$90		; 144, bitGetIndex
		pushi	$64		; 100, 'd', moveDone
		pushi	$74		; 116, 't', all
		lofsa	string_0943	; "Help"
		push
		pushi	$91		; 145, bitPutIndex
		push0
		pushi	$81		; 129, magnifier
		lofsa	cancelButton
		push
		pushi	$fdea		; -534
		pushi	$3c		; 60, '<', b_di
		pushi	$47		; 71, 'G', looper
		calle	export60029_0, $22
		bnot
		sal	local[$9]
		ret

CastSpell::doit:
		ldi	$0
		sal	local[$e]
		lsp	param[$1]
		dup
		ldi	$0
		eq?
		bnt	code_0441
		ldi	$1
		sal	local[$a]
		jmp	code_050d

code_0441:	pushi	$2bb		; 699, pType
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$10		; 16, cel
		and
		bnt	code_04af
		pushi	$321		; 801, pID
		push0
		lap	param[$1]
		send	$4
		bnot
		sal	local[$b]
		pushi	$2bb		; 699, pType
		push0
		lap	param[$1]
		send	$4
		bnot
		sal	local[$c]
		push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		pushi	$9		; inLeft
		pushi	$e		; 14, view
		lofsa	string_0951	; "tbwppbb"
		push
		pushi	$70		; 112, 'p', coordType
		pushi	$5		; scaleY
		lsl	local[$b]
		lsl	local[$d]
		dup
		push0
		push0
		callk	kernel_128, $12
		bnot
		lal	local[$f]
		bnt	code_049b
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_049b:	push2
		pushi	$1f		; 31, brBottom
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		jmp	code_050d

code_04af:	pushi	$2bb		; 699, pType
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		and
		bnt	code_04df
		pushi	$321		; 801, pID
		push0
		lap	param[$1]
		send	$4
		bnot
		sal	local[$b]
		pushi	$2bb		; 699, pType
		push0
		lap	param[$1]
		send	$4
		bnot
		sal	local[$c]
		push2
		pushi	$1f		; 31, brBottom
		pushi	$3		; z
		callk	kernel_118, $4
		bnot
		jmp	code_050d

code_04df:	pushi	$2bb		; 699, pType
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$8		; fixPriority
		and
		bnt	code_050d
		pushi	$321		; 801, pID
		push0
		lap	param[$1]
		send	$4
		bnot
		sal	local[$b]
		pushi	$2bb		; 699, pType
		push0
		lap	param[$1]
		send	$4
		bnot
		sal	local[$c]
		push2
		pushi	$1f		; 31, brBottom
		pushi	$3		; z
		callk	kernel_118, $4
		bnot
code_050d:	toss
		ldi	$1
		ret

ChooseItemToEat::doit:
		ldi	$0
		sal	local[$e]
		lsp	param[$1]
		dup
		ldi	$0
		eq?
		bnt	code_0523
		ldi	$1
		sal	local[$a]
		jmp	code_056d

code_0523:	push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		pushi	$5		; scaleY
		pushi	$e		; 14, view
		lofsa	string_0963	; "tbp"
		push
		pushi	$70		; 112, 'p', coordType
		pushi	$6		; maxScale
		pushi	$8c		; 140, scratch
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		callk	kernel_128, $a
		bnot
		lal	local[$f]
		bnt	code_055b
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_055b:	push2
		pushi	$1f		; 31, brBottom
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
code_056d:	toss
		ldi	$1
		ret

ChooseItemToEquip::doit:
		ldi	$0
		sal	local[$e]
		lsp	param[$1]
		dup
		ldi	$0
		eq?
		bnt	code_0583
		ldi	$1
		sal	local[$a]
		jmp	code_05cd

code_0583:	push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		pushi	$5		; scaleY
		pushi	$e		; 14, view
		lofsa	string_0963	; "tbp"
		push
		pushi	$70		; 112, 'p', coordType
		pushi	$8		; fixPriority
		pushi	$8c		; 140, scratch
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		callk	kernel_128, $a
		bnot
		lal	local[$f]
		bnt	code_05bb
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_05bb:	push2
		pushi	$1f		; 31, brBottom
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
code_05cd:	toss
		ldi	$1
		ret

ChooseItemToUse::doit:
		link	$2
		ldi	$0
		sal	local[$e]
		lsp	param[$1]
		dup
		ldi	$0
		eq?
		bnt	code_05e6
		ldi	$1
		sal	local[$a]
		jmp	code_0686

code_05e6:	push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		pushi	$8c		; 140, scratch
		push0
		lap	param[$1]
		send	$4
		bnot
		sap	param[$1]
		pushi	$45		; 69, 'E', doit
		push1
		push
		lofsa	UseableCode
		send	$6
		bnot
		bnt	code_0653
		pushi	$35c		; 860, getBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$454		; 1108, pSpell
		push0
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0686
		lap	param[$1]
		sal	local[$d]
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$454		; 1108, pSpell
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		push2
		pushi	$9cac		; -25428
		pushi	$6		; maxScale
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		sat	temp[$1]
		pushi	$45		; 69, 'E', doit
		push1
		push
		lofsa	CastSpell
		send	$6
		bnot
		jmp	code_0686

code_0653:	pushi	$5		; scaleY
		pushi	$e		; 14, view
		lofsa	string_0963	; "tbp"
		push
		pushi	$70		; 112, 'p', coordType
		pushi	$8		; fixPriority
		lsp	param[$1]
		callk	kernel_128, $a
		bnot
		lal	local[$f]
		bnt	code_0674
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_0674:	push2
		pushi	$1f		; 31, brBottom
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
code_0686:	toss
		ldi	$1
		ret

HandleCombatAction::doit:
		link	$2
		lap	param[$1]
		aTop	scratch
		push
		dup
		ldi	$2bfa		; 11258
		eq?
		bnt	code_06c1
		pushi	$3a6		; 934, stopAction
		push0
		lag	global[$1]
		send	$4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		class	gDialogList
		send	$4
		bnot
		pushi	$497		; 1175, exitCombat
		push1
		pushSelf
		lag	global[$6a]
		send	$6
		bnot
		jmp	code_07fb

code_06c1:	dup
		ldi	$2bf2		; 11250
		eq?
		bnt	code_0702
		push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		pushi	$4		; scaleX
		pushi	$e		; 14, view
		lofsa	string_0999	; "tb"
		push
		pushi	$70		; 112, 'p', coordType
		pushi	$4		; scaleX
		callk	kernel_128, $8
		bnot
		lal	local[$f]
		bnt	code_06f6
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_06f6:	pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		jmp	code_07fb

code_0702:	dup
		ldi	$2bf9		; 11257
		eq?
		bnt	code_0742
		push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		pushi	$4		; scaleX
		pushi	$e		; 14, view
		lofsa	string_0999	; "tb"
		push
		pushi	$70		; 112, 'p', coordType
		push2
		callk	kernel_128, $8
		bnot
		lal	local[$f]
		bnt	code_0736
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_0736:	pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		jmp	code_07fb

code_0742:	dup
		ldi	$2bf7		; 11255
		eq?
		bnt	code_0758
		push2
		pushi	$1f		; 31, brBottom
		push2
		callk	kernel_118, $4
		bnot
		ldi	$1
		sal	local[$10]
		jmp	code_07fb

code_0758:	dup
		ldi	$2bf8		; 11256
		eq?
		bnt	code_076e
		push2
		pushi	$1f		; 31, brBottom
		push2
		callk	kernel_118, $4
		bnot
		ldi	$7		; priority
		sal	local[$10]
		jmp	code_07fb

code_076e:	dup
		ldi	$2bf6		; 11254
		eq?
		bnt	code_0781
		push2
		pushi	$1f		; 31, brBottom
		pushi	$4		; scaleX
		callk	kernel_118, $4
		bnot
		jmp	code_07fb

code_0781:	dup
		ldi	$2bf4		; 11252
		eq?
		bnt	code_07af
		pushi	$45		; 69, 'E', doit
		push2
		lofsa	EdibleCode
		push
		lofsa	ChooseItemToEat
		push
		lofsa	MakeContainerDialog
		send	$8
		bnot
		bnt	code_07a9
		pushi	$55d		; 1373, pActiveCursor
		push1
		push2
		class	BasicCursorController
		send	$6
		bnot
		jmp	code_07fb

code_07a9:	ldi	$1
		sal	local[$a]
		jmp	code_07fb

code_07af:	dup
		ldi	$2bf5		; 11253
		eq?
		bnt	code_07e2
		pushi	$45		; 69, 'E', doit
		pushi	$3		; z
		lofsa	UseableCode
		push
		lofsa	ChooseItemToUse
		push
		lofsa	EquipCode
		push
		lofsa	MakeContainerDialog
		send	$a
		bnot
		bnt	code_07dc
		pushi	$55d		; 1373, pActiveCursor
		push1
		push2
		class	BasicCursorController
		send	$6
		bnot
		jmp	code_07fb

code_07dc:	ldi	$1
		sal	local[$a]
		jmp	code_07fb

code_07e2:	dup
		ldi	$2bf3		; 11251
		eq?
		bnt	code_07fb
		lag	global[$1]
		sal	local[$d]
		pushi	$3		; z
		pushi	$e		; 14, view
		lofsa	CastSpell
		push
		pushi	$45		; 69, 'E', doit
		callk	kernel_118, $6
		bnot
code_07fb:	toss
		ldi	$ff		; 255, asInteger
		ret

HandleTimerEnd::cue:
		ldi	$0
		sal	local[$f]
		lal	local[$e]
		bnt	code_0812
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$e]
code_0812:	push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		pushi	$55d		; 1373, pActiveCursor
		push1
		push2
		class	BasicCursorController
		send	$6
		bnot
		pushi	$45		; 69, 'E', doit
		push1
		pushi	$2bf9		; 11257
		lofsa	HandleCombatAction
		send	$6
		bnot
		ret

GetCombatAction::doit:
		link	$1
		pushi	$45		; 69, 'E', doit
		push0
		lofsa	ShowCombatAction
		send	$4
		bnot
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		ldi	$708		; 1800, BAD SELECTOR
		sat	temp[$0]
		lsg	global[$ee]
		dup
		ldi	$1
		eq?
		bnt	code_0861
		ldi	$12c		; 300, lessEqualLong
		sat	temp[$0]
		jmp	code_0893

code_0861:	dup
		ldi	$2
		eq?
		bnt	code_086e
		ldi	$258		; 600, setOpenRect
		sat	temp[$0]
		jmp	code_0893

code_086e:	dup
		ldi	$3		; z
		eq?
		bnt	code_087b
		ldi	$4b0		; 1200, pContainerButton
		sat	temp[$0]
		jmp	code_0893

code_087b:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_0888
		ldi	$708		; 1800, BAD SELECTOR
		sat	temp[$0]
		jmp	code_0893

code_0888:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_0893
		ldi	$a8c		; 2700, BAD SELECTOR
		sat	temp[$0]
code_0893:	toss
		pushi	$20		; 32, ' ', name
		push1
		lofsa	string_09be	; "lTurnTimer"
		push
		pushi	$107		; 263, setTicks
		push2
		lst	temp[$0]
		lofsa	HandleTimerEnd
		push
		class	DisplayTimer
		send	$8
		bnot
		sal	local[$f]
		send	$6
		bnot
		ret

CombatRoom::init:
		link	$f
		push2
		pushi	$1f		; 31, brBottom
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		ldi	$0
		sal	local[$6]
		ldi	$0
		sal	local[$7]
		ldi	$0
		sal	local[$8]
		ldi	$0
		sal	local[$40]
		push2
		pushi	$6		; maxScale
		dup
		callk	kernel_118, $4
		bnot
		pushi	$55d		; 1373, pActiveCursor
		push1
		push0
		class	BasicCursorController
		send	$6
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$141		; 321, stop
		push0
		class	MusicMgr
		send	$4
		bnot
		push2
		push0
		push1
		callk	kernel_60, $4
		bnot
		push
		dup
		ldi	$0
		eq?
		bnt	code_090d
		pushi	$33		; 51, '3', play
		push1
		lofsa	string_09d9	; "engage1.mid"
		push
		class	MusicMgr
		send	$6
		bnot
		jmp	code_091f

code_090d:	dup
		ldi	$1
		eq?
		bnt	code_091f
		pushi	$33		; 51, '3', play
		push1
		lofsa	string_09e5	; "engage2.mid"
		push
		class	MusicMgr
		send	$6
		bnot
code_091f:	toss
		pushi	$b5		; 181, set
		pushi	$4		; scaleX
		push0
		push0
		pushi	$27f		; 639, rename
		pushi	$13d		; 317, putArray
		pToa	plane
		send	$c
		bnot
		pushi	$dd		; 221, moveBy
		push2
		push0
		pushi	$e3		; 227, expand
		pToa	plane
		send	$8
		bnot
		pushi	$7		; priority
		push1
		push2
		pToa	plane
		send	$6
		bnot
		push1
		pTos	plane
		callk	kernel_42, $2
		bnot
		ldi	$1
		aTop	pInitted
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	pLeftGroup
		pushi	$8d		; 141, new
		push0
		class	Set
		send	$4
		bnot
		aTop	pRightGroup
		pushi	$aa		; 170, addToFront
		push1
		pushSelf
		lag	global[$27]
		send	$6
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$4a		; 74, 'J', setPri
		push1
		pushi	$3e8		; 1000, pUpdateClient
		pushi	$69		; 105, 'i', hide
		push0
		lofsa	GridBox
		send	$e
		bnot
		pushi	$44a		; 1098, pRoomPic
		push0
		pToa	pMovieParams
		send	$4
		bnot
		aTop	picture
		pTos	picture
		ldi	$fa0		; 4000, BAD SELECTOR
		eq?
		bnt	code_099e
		ldi	$bb8		; 3000, BAD SELECTOR
		aTop	picture
code_099e:	pushi	$a1		; 161, firstEqual
		push2
		pushi	$6d		; 109, 'm', picture
		pTos	picture
		push2
		pushi	$9cac		; -25428
		pushi	$5		; scaleY
		callk	kernel_2, $4
		bnot
		send	$8
		bnot
		sat	temp[$7]
		pushi	$1ae		; 430, horizon
		push1
		pushi	$1ae		; 430, horizon
		push0
		send	$4
		bnot
		push
		self	$6
		bnot
		ldi	$0
		aTop	horizon
		sat	temp[$0]
code_09ca:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$428		; 1064, pLeftGroup
		push0
		pToa	pMovieParams
		send	$4
		bnot
		send	$4
		bnot
		lt?
		bnt	code_09fc
		pushi	$31b		; 795, addCombatant
		push2
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pushi	$428		; 1064, pLeftGroup
		push0
		pToa	pMovieParams
		send	$4
		bnot
		send	$6
		bnot
		push
		push0
		self	$8
		bnot
		+at	temp[$0]
		jmp	code_09ca

code_09fc:	ldi	$0
		sat	temp[$0]
code_0a00:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$429		; 1065, pRightGroup
		push0
		pToa	pMovieParams
		send	$4
		bnot
		send	$4
		bnot
		lt?
		bnt	code_0a32
		pushi	$31b		; 795, addCombatant
		push2
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pushi	$429		; 1065, pRightGroup
		push0
		pToa	pMovieParams
		send	$4
		bnot
		send	$6
		bnot
		push
		push1
		self	$8
		bnot
		+at	temp[$0]
		jmp	code_0a00

code_0a32:	pushi	$44b		; 1099, pCloudX
		push0
		pToa	pMovieParams
		send	$4
		bnot
		aTop	prevX
		pushi	$44c		; 1100, pCloudY
		push0
		pToa	pMovieParams
		send	$4
		bnot
		aTop	prevY
		pushi	$1bb		; 443, drawPic
		push1
		pTos	picture
		self	$6
		bnot
		pushi	$19a		; 410, setScale
		pushi	$4		; scaleX
		pushi	$40		; 64, '@', yStep
		dup
		pushi	$1e0		; 480, isControl
		push0
		self	$c
		bnot
		push1
		pushi	$8c		; 140, scratch
		push0
		pToa	pMovieParams
		send	$4
		bnot
		push
		callk	kernel_60, $2
		bnot
		push2
		pushi	$5		; scaleY
		pushi	$f		; 15, loop
		callk	kernel_60, $4
		bnot
		sat	temp[$d]
		ldi	$0
		sat	temp[$0]
code_0a7f:	lst	temp[$0]
		lat	temp[$d]
		lt?
		bnt	code_0bc0
		push2
		push0
		pushi	$17		; 23, lsTop
		callk	kernel_60, $4
		bnot
		sat	temp[$9]
		push2
		push0
		pushi	$11		; 17, bitmap
		callk	kernel_60, $4
		bnot
		sat	temp[$a]
		lst	temp[$9]
		ldi	$1a		; 26, signal
		mul
		sat	temp[$b]
		lst	temp[$a]
		ldi	$b		; 11, inRight
		mul
		sat	temp[$c]
		lst	temp[$b]
		ldi	$d		; 13, seenRect
		add
		sat	temp[$b]
		lst	temp[$c]
		ldi	$5		; scaleY
		add
		sat	temp[$c]
		pTos	picture
		dup
		ldi	$bb8		; 3000, BAD SELECTOR
		eq?
		bnt	code_0ad7
		push2
		push0
		push1
		callk	kernel_60, $4
		bnot
		push2
		pushi	$413		; 1043, pDestLoop
		pushi	$41b		; 1051, pApproachX
		callk	kernel_60, $4
		bnot
		sat	temp[$e]
		jmp	code_0b80

code_0ad7:	dup
		ldi	$d4c		; 3404, BAD SELECTOR
		eq?
		bnt	code_0b14
		push2
		push0
		push1
		callk	kernel_60, $4
		bnot
		bnt	code_0b04
		push2
		pushi	$427		; 1063, pAutoLock
		pushi	$429		; 1065, pRightGroup
		callk	kernel_60, $4
		bnot
		sat	temp[$e]
		push
		ldi	$429		; 1065, pRightGroup
		eq?
		bnt	code_0b80
		ldi	$450		; 1104, pCombatants
		sat	temp[$e]
		jmp	code_0b80

code_0b04:	push2
		pushi	$9e2		; 2530, BAD SELECTOR
		pushi	$9e9		; 2537, BAD SELECTOR
		callk	kernel_60, $4
		bnot
		sat	temp[$e]
		jmp	code_0b80

code_0b14:	dup
		ldi	$d4d		; 3405, BAD SELECTOR
		eq?
		bnt	code_0b50
		push2
		push0
		push1
		callk	kernel_60, $4
		bnot
		bnt	code_0b41
		push2
		pushi	$427		; 1063, pAutoLock
		pushi	$429		; 1065, pRightGroup
		callk	kernel_60, $4
		bnot
		sat	temp[$e]
		push
		ldi	$429		; 1065, pRightGroup
		eq?
		bnt	code_0b80
		ldi	$450		; 1104, pCombatants
		sat	temp[$e]
		jmp	code_0b80

code_0b41:	push2
		pushi	$9e2		; 2530, BAD SELECTOR
		pushi	$9e9		; 2537, BAD SELECTOR
		callk	kernel_60, $4
		bnot
		sat	temp[$e]
		jmp	code_0b80

code_0b50:	dup
		ldi	$bff		; 3071, BAD SELECTOR
		eq?
		bnt	code_0b6c
		push2
		push0
		push1
		callk	kernel_60, $4
		bnot
		push2
		push0
		pushi	$9		; inLeft
		callk	kernel_60, $4
		bnot
		lali	local[$36]
		sat	temp[$e]
		jmp	code_0b80

code_0b6c:	push2
		push0
		push1
		callk	kernel_60, $4
		bnot
		push2
		pushi	$413		; 1043, pDestLoop
		pushi	$41b		; 1051, pApproachX
		callk	kernel_60, $4
		bnot
		sat	temp[$e]
code_0b80:	toss
		pushi	$e		; 14, view
		push1
		lst	temp[$e]
		push1
		push1
		lst	temp[$b]
		ldi	$5		; scaleY
		add
		push
		push2
		push1
		lst	temp[$c]
		ldi	$6e		; 110, 'n', resX
		add
		push
		pushi	$19a		; 410, setScale
		push0
		pushi	$19d		; 413, setSignal
		push1
		pushi	$1000		; 4096, -objID-
		pushi	$4		; scaleX
		push1
		pushi	$40		; 64, '@', yStep
		pushi	$5		; scaleY
		push1
		pushi	$40		; 64, '@', yStep
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	Prop
		send	$4
		bnot
		send	$2c
		bnot
		+at	temp[$0]
		jmp	code_0a7f

code_0bc0:	pTos	picture
		dup
		ldi	$bb8		; 3000, BAD SELECTOR
		eq?
		bnt	code_0bec
		pushi	$e		; 14, view
		push1
		pushi	$4e0		; 1248, pGrabLoop
		push1
		push1
		push0
		push2
		push1
		push1
		pushi	$3		; z
		push1
		push1
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		send	$1c
		bnot
		jmp	code_0c3c

code_0bec:	dup
		ldi	$bb9		; 3001, BAD SELECTOR
		eq?
		bnt	code_0c15
		pushi	$e		; 14, view
		push1
		pushi	$4e1		; 1249, pGrabAction
		push1
		push1
		push0
		push2
		push1
		push1
		pushi	$3		; z
		push1
		push1
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		send	$1c
		bnot
		jmp	code_0c3c

code_0c15:	dup
		ldi	$fa0		; 4000, BAD SELECTOR
		eq?
		bnt	code_0c3c
		pushi	$e		; 14, view
		push1
		pushi	$4e0		; 1248, pGrabLoop
		push1
		push1
		push0
		push2
		push1
		push1
		pushi	$3		; z
		push1
		push1
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	View
		send	$4
		bnot
		send	$1c
		bnot
code_0c3c:	toss
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$94		; 148, init
		lofsa	LocatorList
		send	$6
		bnot
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$63		; 99, 'c', perform
		lofsa	LocatorList
		send	$6
		bnot
		ldi	$0
		aTop	pMovieParams
		pushi	$9f		; 159, add
		push1
		pushSelf
		class	WinDialogSet
		send	$6
		bnot
		pushi	$c9		; 201, setScript
		push1
		pushi	$8d		; 141, new
		push0
		lofsa	ReadyingForCombatScript
		send	$4
		bnot
		push
		self	$6
		bnot
		ret

CombatRoom::dispose:
		link	$2
		push2
		pushi	$1f		; 31, brBottom
		push1
		callk	kernel_118, $4
		bnot
		lal	local[$f]
		bnt	code_0c90
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_0c90:	pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		class	WinDialogSet
		send	$6
		bnot
		push2
		pushi	$9		; inLeft
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push2
		pushi	$6		; maxScale
		pushi	$7		; priority
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		pushi	$2c4		; 708, pRestart
		push0
		lag	global[$30]
		send	$4
		bnot
		not
		bnt	code_0ccf
		pushi	$55f		; 1375, restoreCombatant
		push1
		lsg	global[$1]
		self	$6
		bnot
code_0ccf:	pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		lag	global[$27]
		send	$6
		bnot
		pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		pToa	pLeftGroup
		send	$8
		bnot
		pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		pToa	pRightGroup
		send	$8
		bnot
		ldi	$0
		aTop	pRightGroup
		aTop	pLeftGroup
		pToa	pServID
		bnt	code_0d07
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pServID
code_0d07:	pushi	$45		; 69, 'E', doit
		push0
		class	RestoreMusic
		send	$4
		bnot
		ldi	$0
		sag	global[$eb]
		pushi	$95		; 149, dispose
		push0
		super	NetRoom, $4
		bnot
		ret

CombatRoom::delete:
		pushi	$2c4		; 708, pRestart
		push0
		lag	global[$30]
		send	$4
		bnot
		not
		bnt	code_0d33
		pushi	$31c		; 796, delCombatant
		push1
		lsp	param[$1]
		&rest	$2
		self	$6
		bnot
code_0d33:	pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		&rest	$2
		super	NetRoom, $6
		bnot
		ret

CombatRoom::endCombatMode:
		link	$2
		push2
		pushi	$9		; inLeft
		pushi	$4		; scaleX
		callk	kernel_118, $4
		bnot
		push2
		pushi	$1f		; 31, brBottom
		push1
		callk	kernel_118, $4
		bnot
		ldi	$0
		sat	temp[$0]
code_0d56:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		lap	param[$1]
		send	$4
		bnot
		lt?
		bnt	code_0dd6
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$1]
		pushi	$4cc		; 1228, pFriend
		push1
		push0
		send	$6
		bnot
		pushi	$3ec		; 1004, pAction
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		ldi	$1c		; 28, brLeft
		ne?
		bnt	code_0dd1
		pushi	$3a6		; 934, stopAction
		push0
		pushi	$3bb		; 955, clearMode
		push1
		push2
		pushi	$3ba		; 954, setMode
		push1
		pushi	$4		; scaleX
		pushi	$373		; 883, setAction
		push1
		push1
		lat	temp[$1]
		send	$16
		bnot
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		lat	temp[$1]
		send	$6
		bnot
		lst	temp[$1]
		lag	global[$1]
		eq?
		bnt	code_0dd1
		pushi	$33		; 51, '3', play
		push1
		lofsa	string_09f1	; "victory.mid"
		push
		class	MusicMgr
		send	$6
		bnot
		pushi	$69		; 105, 'i', hide
		push0
		lofsa	GridBox
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		lofsa	SpellBtnList
		send	$4
		bnot
code_0dd1:	+at	temp[$0]
		jmp	code_0d56

code_0dd6:	ldi	$1
		sal	local[$4]
		ret

CombatRoom::doit:
		link	$5
		pushi	$45		; 69, 'E', doit
		push0
		super	NetRoom, $4
		bnot
		push2
		pushi	$1f		; 31, brBottom
		push0
		callk	kernel_118, $4
		bnot
		sat	temp[$3]
		lal	local[$a]
		bnt	code_0e0a
		pushi	$55d		; 1373, pActiveCursor
		push1
		push0
		class	BasicCursorController
		send	$6
		bnot
		pushi	$45		; 69, 'E', doit
		push0
		lofsa	ShowCombatAction
		send	$4
		bnot
		ldi	$0
		sal	local[$a]
code_0e0a:	pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		bnt	code_0e22
		pushi	$45		; 69, 'E', doit
		push0
		class	BasicCursorController
		send	$4
		bnot
code_0e22:	pushi	$f4		; 244, curEvent
		push0
		lag	global[$e]
		send	$4
		bnot
		sat	temp[$4]
		push1
		push1
		push1
		push0
		send	$4
		bnot
		push
		push2
		push1
		push2
		push0
		lat	temp[$4]
		send	$4
		bnot
		push
		pushi	$2b		; 43, '+', type
		push1
		pushi	$2b		; 43, '+', type
		push0
		lat	temp[$4]
		send	$4
		bnot
		push
		lofsa	CombatEvent
		send	$12
		bnot
		push2
		lofsa	CombatEvent
		push
		pTos	plane
		callk	kernel_81, $4
		bnot
		pushi	$2b		; 43, '+', type
		push0
		lat	temp[$4]
		send	$4
		bnot
		bnt	code_0e6b
		ldi	$0
		jmp	code_0f86

code_0e6b:	pToa	script
		bnt	code_0e74
		ldi	$0
		jmp	code_0f86

code_0e74:	pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		bnt	code_0f7d
		pushi	$271		; 625, handsLevel
		push0
		lag	global[$2]
		send	$4
		bnot
		not
		bnt	code_0f7d
		lst	temp[$3]
		ldi	$4		; scaleX
		eq?
		bt	code_0ea5
		lst	temp[$3]
		ldi	$3		; z
		eq?
		bnt	code_0f7d
		lsl	local[$c]
		ldi	$8		; fixPriority
		and
code_0ea5:	bnt	code_0f7d
		pushi	$564		; 1380, getGridX
		push1
		push1
		push0
		lofsa	CombatEvent
		send	$4
		bnot
		push
		self	$6
		bnot
		sal	local[$2]
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0f7d
		pushi	$565		; 1381, getGridY
		push1
		push2
		push0
		lofsa	CombatEvent
		send	$4
		bnot
		push
		self	$6
		bnot
		sal	local[$3]
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_0f7d
		push1
		push0
		lofsa	GridBox
		send	$4
		bnot
		push
		pushi	$562		; 1378, getXFromGrid
		push1
		lsl	local[$2]
		self	$6
		bnot
		ne?
		bt	code_0f02
		push2
		push0
		lofsa	GridBox
		send	$4
		bnot
		push
		pushi	$563		; 1379, getYFromGrid
		push1
		lsl	local[$3]
		self	$6
		bnot
		ne?
code_0f02:	bnt	code_0f22
		pushi	$dc		; 220, posn
		push2
		pushi	$562		; 1378, getXFromGrid
		push1
		lsl	local[$2]
		self	$6
		bnot
		push
		pushi	$563		; 1379, getYFromGrid
		push1
		lsl	local[$3]
		self	$6
		bnot
		push
		lofsa	GridBox
		send	$8
		bnot
code_0f22:	pushi	$560		; 1376, isLegalMove
		pushi	$3		; z
		lsg	global[$1]
		lsl	local[$2]
		lsl	local[$3]
		self	$a
		bnot
		bt	code_0f40
		pushi	$f		; 15, loop
		push0
		lofsa	combatCursor
		send	$4
		bnot
		push
		ldi	$2
		eq?
code_0f40:	bnt	code_0f48
		ldi	$0
		sat	temp[$2]
		jmp	code_0f4c

code_0f48:	ldi	$1
		sat	temp[$2]
code_0f4c:	lst	temp[$2]
		pushi	$10		; 16, cel
		push0
		lofsa	GridBox
		send	$4
		bnot
		ne?
		bnt	code_0f65
		pushi	$10		; 16, cel
		push1
		lst	temp[$2]
		lofsa	GridBox
		send	$6
		bnot
code_0f65:	pushi	$7		; priority
		push1
		push0
		callk	kernel_44, $0
		bnot
		push
		ldi	$1
		add
		push
		pushi	$75		; 117, 'u', show
		push0
		lofsa	GridBox
		send	$a
		bnot
		jmp	code_0f86

code_0f7d:	pushi	$69		; 105, 'i', hide
		push0
		lofsa	GridBox
		send	$4
		bnot
code_0f86:	ret

CombatRoom::handleEvent:
		link	$2
		pushi	$50		; 80, 'P', claimed
		push1
		push0
		lap	param[$1]
		send	$6
		bnot
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$100		; 256, strMax
		eq?
		bnt	code_0fc1
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$8		; fixPriority
		eq?
		bnt	code_0fc1
		pushi	$45		; 69, 'E', doit
		push1
		pushi	$48		; 72, 'H', modifiers
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lofsa	HandleCombatAction
		send	$6
		bnot
code_0fc1:	pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		bnt	code_1364
		pushi	$632		; 1586, pHealthHi
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$0
		ge?
		bnt	code_1364
		pushi	$406		; 1030, pHealth
		push0
		lag	global[$1]
		send	$4
		bnot
		bnt	code_1364
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1
		eq?
		bnt	code_133a
		pushi	$48		; 72, 'H', modifiers
		push0
		lap	param[$1]
		send	$4
		bnot
		not
		bnt	code_133a
		pushi	$b9		; 185, localize
		push1
		pTos	plane
		lap	param[$1]
		send	$6
		bnot
		push2
		pushi	$1f		; 31, brBottom
		push0
		callk	kernel_118, $4
		bnot
		push
		dup
		ldi	$2
		eq?
		bnt	code_10d8
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$58		; 88, 'X', delete
		push1
		lsg	global[$1]
		pToa	pWObjectList
		send	$6
		bnot
		pushi	$a0		; 160, firstTrue
		pushi	$3		; z
		pushi	$eb		; 235, onMe
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pWObjectList
		send	$a
		bnot
		sat	temp[$1]
		pushi	$9f		; 159, add
		push1
		lsg	global[$1]
		pToa	pWObjectList
		send	$6
		bnot
		lat	temp[$1]
		bnt	code_132b
		pushi	$3ec		; 1004, pAction
		push0
		send	$4
		bnot
		push
		ldi	$1c		; 28, brLeft
		ne?
		bnt	code_132b
		pushi	$2cb		; 715, pServIDLo
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bt	code_1090
		pushi	$2cc		; 716, pServIDHi
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
code_1090:	bnt	code_132b
		pushi	$5		; scaleY
		pushi	$e		; 14, view
		lofsa	string_0963	; "tbp"
		push
		pushi	$70		; 112, 'p', coordType
		lsl	local[$10]
		lst	temp[$1]
		callk	kernel_128, $a
		bnot
		lal	local[$f]
		bnt	code_10b4
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_10b4:	push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		push2
		pushi	$1f		; 31, brBottom
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		jmp	code_132b

code_10d8:	dup
		ldi	$3		; z
		eq?
		bnt	code_1288
		lsl	local[$c]
		ldi	$8		; fixPriority
		and
		bnt	code_1154
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		lsl	local[$2]
		ldi	$0
		lt?
		bt	code_10fc
		lsl	local[$3]
		ldi	$0
		lt?
code_10fc:	bnt	code_1107
		pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		ret

code_1107:	pushi	$9		; inLeft
		pushi	$e		; 14, view
		lofsa	string_0951	; "tbwppbb"
		push
		pushi	$70		; 112, 'p', coordType
		pushi	$5		; scaleY
		lsl	local[$b]
		lsl	local[$d]
		lsg	global[$1]
		lsl	local[$2]
		lsl	local[$3]
		callk	kernel_128, $12
		bnot
		lal	local[$f]
		bnt	code_1130
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_1130:	push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		push2
		pushi	$1f		; 31, brBottom
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		jmp	code_132b

code_1154:	pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		ldi	$0
		sat	temp[$1]
		not
		bnt	code_11b5
		lsl	local[$c]
		ldi	$20		; 32, ' ', name
		and
		bnt	code_11b5
		lag	global[$db]
		bnt	code_1195
		pushi	$a0		; 160, firstTrue
		pushi	$3		; z
		pushi	$eb		; 235, onMe
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pLeftGroup
		send	$a
		bnot
		sat	temp[$1]
		jmp	code_11b5

code_1195:	pushi	$a0		; 160, firstTrue
		pushi	$3		; z
		pushi	$eb		; 235, onMe
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pRightGroup
		send	$a
		bnot
		sat	temp[$1]
code_11b5:	lat	temp[$1]
		not
		bnt	code_120b
		lsl	local[$c]
		ldi	$40		; 64, '@', yStep
		and
		bnt	code_120b
		lag	global[$db]
		bnt	code_11eb
		pushi	$a0		; 160, firstTrue
		pushi	$3		; z
		pushi	$eb		; 235, onMe
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pRightGroup
		send	$a
		bnot
		sat	temp[$1]
		jmp	code_120b

code_11eb:	pushi	$a0		; 160, firstTrue
		pushi	$3		; z
		pushi	$eb		; 235, onMe
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pToa	pLeftGroup
		send	$a
		bnot
		sat	temp[$1]
code_120b:	lat	temp[$1]
		bnt	code_132b
		pushi	$3ec		; 1004, pAction
		push0
		send	$4
		bnot
		push
		ldi	$1c		; 28, brLeft
		ne?
		bnt	code_132b
		pushi	$2cb		; 715, pServIDLo
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bt	code_123a
		pushi	$2cc		; 716, pServIDHi
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
code_123a:	bnt	code_132b
		pushi	$9		; inLeft
		pushi	$e		; 14, view
		lofsa	string_0951	; "tbwppbb"
		push
		pushi	$70		; 112, 'p', coordType
		pushi	$5		; scaleY
		lsl	local[$b]
		lsl	local[$d]
		lst	temp[$1]
		push0
		push0
		callk	kernel_128, $12
		bnot
		lal	local[$f]
		bnt	code_1264
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_1264:	push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		push2
		pushi	$1f		; 31, brBottom
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		jmp	code_132b

code_1288:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_132b
		pushi	$50		; 80, 'P', claimed
		push1
		push1
		lap	param[$1]
		send	$6
		bnot
		pushi	$10		; 16, cel
		push0
		lofsa	GridBox
		send	$4
		bnot
		push
		ldi	$0
		eq?
		bnt	code_132b
		pushi	$17c		; 380, isNotHidden
		push0
		lofsa	GridBox
		send	$4
		bnot
		bnt	code_132b
		pushi	$564		; 1380, getGridX
		push1
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		sal	local[$0]
		pushi	$565		; 1381, getGridY
		push1
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		sal	local[$1]
		pushi	$560		; 1376, isLegalMove
		pushi	$3		; z
		lsg	global[$1]
		lsl	local[$0]
		push
		self	$a
		bnot
		bnt	code_132b
		pushi	$6		; maxScale
		pushi	$e		; 14, view
		lofsa	string_09fd	; "tbbb"
		push
		pushi	$70		; 112, 'p', coordType
		push0
		lsl	local[$0]
		lsl	local[$1]
		callk	kernel_128, $c
		bnot
		lal	local[$f]
		bnt	code_130a
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		sal	local[$f]
code_130a:	push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		push2
		pushi	$1f		; 31, brBottom
		pushi	$5		; scaleY
		callk	kernel_118, $4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
code_132b:	toss
		pushi	$ba		; 186, globalize
		push1
		pTos	plane
		lap	param[$1]
		send	$6
		bnot
		jmp	code_1364

code_133a:	lal	local[$9]
		bnt	code_1364
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		eq?
		bnt	code_1364
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1b		; 27, illegalBits
		eq?
		bnt	code_1364
		pushi	$45		; 69, 'E', doit
		push0
		lofsa	ShowCombatAction
		send	$4
		bnot
code_1364:	pushi	$50		; 80, 'P', claimed
		push0
		lap	param[$1]
		send	$4
		bnot
		ret

CombatRoom::addCombatant:
		lsp	param[$2]
		ldi	$0
		eq?
		bnt	code_1381
		pushi	$9f		; 159, add
		push1
		lsp	param[$1]
		pToa	pLeftGroup
		send	$6
		bnot
		jmp	code_138c

code_1381:	pushi	$9f		; 159, add
		push1
		lsp	param[$1]
		pToa	pRightGroup
		send	$6
		bnot
code_138c:	ret

CombatRoom::delCombatant:
		pToa	pLeftGroup
		bnt	code_13c1
		pushi	$a3		; 163, contains
		push1
		lsp	param[$1]
		send	$6
		bnot
		bnt	code_13aa
		pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		pToa	pLeftGroup
		send	$6
		bnot
		jmp	code_13c1

code_13aa:	pushi	$a3		; 163, contains
		push1
		lsp	param[$1]
		pToa	pRightGroup
		send	$6
		bnot
		bnt	code_13c1
		pushi	$58		; 88, 'X', delete
		push1
		lsp	param[$1]
		pToa	pRightGroup
		send	$6
		bnot
code_13c1:	ret

CombatRoom::restoreCombatant:
		link	$4
code_13c4:	pushi	$a0		; 160, firstTrue
		push2
		pushi	$97		; 151, isKindOf
		class	Pile of Stuff
		push
		pToa	pWObjectList
		send	$8
		bnot
		sat	temp[$2]
		bnt	code_13e1
		pushi	$46b		; 1131, unMakePile
		push0
		send	$4
		bnot
		jmp	code_13c4

code_13e1:	pushi	$b1		; 177, duplicate
		push0
		pToa	pWObjectList
		send	$4
		bnot
		sat	temp[$1]
		ldi	$0
		sat	temp[$3]
code_13f0:	lst	temp[$3]
		pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$1]
		send	$4
		bnot
		lt?
		bnt	code_141d
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$3]
		lat	temp[$1]
		send	$6
		bnot
		sat	temp[$2]
		push
		lag	global[$1]
		ne?
		bnt	code_1419
		pushi	$3e0		; 992, setVisible
		push0
		lat	temp[$2]
		send	$4
		bnot
code_1419:	+at	temp[$3]
		jmp	code_13f0

code_141d:	pushi	$4b		; 75, 'K', at
		push1
		push0
		pushi	$2c1		; 705, pRoomList
		push0
		lag	global[$30]
		send	$4
		bnot
		send	$6
		bnot
		sat	temp[$0]
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$3c6		; 966, deleteFromRoom
		lat	temp[$1]
		send	$6
		bnot
		pushi	$9d		; 157, eachElementDo
		push2
		pushi	$3c5		; 965, addToRoom
		lst	temp[$0]
		lat	temp[$1]
		send	$8
		bnot
		pushi	$a6		; 166, release
		push0
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$8
		bnot
		ret

CombatRoom::isLegalMove:
		link	$7
		ldi	$0
		sat	temp[$0]
code_145d:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	pLeftGroup
		send	$4
		bnot
		lt?
		bnt	code_14ae
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pToa	pLeftGroup
		send	$6
		bnot
		sat	temp[$3]
		push
		lap	param[$1]
		ne?
		bnt	code_14aa
		push1
		lst	temp[$3]
		calle	export60000_0, $2
		bnot
		bnt	code_14aa
		lsp	param[$2]
		pushi	$43b		; 1083, pCombatX
		push0
		lat	temp[$3]
		send	$4
		bnot
		eq?
		bnt	code_14aa
		lsp	param[$3]
		pushi	$43c		; 1084, pCombatY
		push0
		lat	temp[$3]
		send	$4
		bnot
		eq?
		bnt	code_14aa
		ldi	$0
		ret

code_14aa:	+at	temp[$0]
		jmp	code_145d

code_14ae:	ldi	$0
		sat	temp[$0]
code_14b2:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	pRightGroup
		send	$4
		bnot
		lt?
		bnt	code_1504
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pToa	pRightGroup
		send	$6
		bnot
		sat	temp[$3]
		push
		lap	param[$1]
		ne?
		bnt	code_1500
		push1
		lst	temp[$3]
		calle	export60000_0, $2
		bnot
		bnt	code_1500
		lsp	param[$2]
		pushi	$43b		; 1083, pCombatX
		push0
		lat	temp[$3]
		send	$4
		bnot
		eq?
		bnt	code_1500
		lsp	param[$3]
		pushi	$43c		; 1084, pCombatY
		push0
		lat	temp[$3]
		send	$4
		bnot
		eq?
		bnt	code_1500
		ldi	$0
		ret

code_1500:	+at	temp[$0]
		jmp	code_14b2

code_1504:	pushi	$564		; 1380, getGridX
		push1
		push1
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		sat	temp[$1]
		pushi	$565		; 1381, getGridY
		push1
		push2
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		self	$6
		bnot
		sat	temp[$2]
		ldi	$1
		ret

CombatRoom::posnOnGrid:
		pushi	$dc		; 220, posn
		push2
		pushi	$562		; 1378, getXFromGrid
		push1
		lsp	param[$2]
		self	$6
		bnot
		push
		ldi	$d		; 13, seenRect
		add
		push
		pushi	$563		; 1379, getYFromGrid
		push1
		lsp	param[$3]
		self	$6
		bnot
		push
		ldi	$5		; scaleY
		add
		push
		lap	param[$1]
		send	$8
		bnot
		ret

CombatRoom::getXFromGrid:
		pushi	$5		; scaleY
		lsp	param[$1]
		ldi	$1a		; 26, signal
		mul
		add
		ret

CombatRoom::getYFromGrid:
		pushi	$6e		; 110, 'n', resX
		lsp	param[$1]
		ldi	$b		; 11, inRight
		mul
		add
		ret

CombatRoom::getGridX:
		pushi	$275		; 629, notify
		lap	param[$1]
		ge?
		bnt	code_157c
		pprev
		ldi	$5		; scaleY
		ge?
		bnt	code_157c
		lsp	param[$1]
		ldi	$5		; scaleY
		sub
		push
		ldi	$1a		; 26, signal
		div
		ret

		jmp	code_157f

code_157c:	ldi	$ff		; 255, asInteger
		ret

code_157f:	ret

CombatRoom::getGridY:
		pushi	$134		; 308, getByte
		lap	param[$1]
		ge?
		bnt	code_159b
		pprev
		ldi	$6e		; 110, 'n', resX
		ge?
		bnt	code_159b
		lsp	param[$1]
		ldi	$6e		; 110, 'n', resX
		sub
		push
		ldi	$b		; 11, inRight
		div
		ret

		jmp	code_159e

code_159b:	ldi	$ff		; 255, asInteger
		ret

code_159e:	ret

CombatRoom::getGridNum:
		link	$2
		ldi	$ff		; 255, asInteger
		sat	temp[$0]
		pushi	$f4		; 244, curEvent
		push0
		lag	global[$e]
		send	$4
		bnot
		sat	temp[$1]
		push1
		push1
		push1
		push0
		send	$4
		bnot
		push
		push2
		push1
		push2
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$2b		; 43, '+', type
		push1
		pushi	$2b		; 43, '+', type
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		lofsa	CombatEvent
		send	$12
		bnot
		push2
		lofsa	CombatEvent
		push
		pTos	plane
		callk	kernel_81, $4
		bnot
		push2
		push0
		lofsa	CombatEvent
		send	$4
		bnot
		push
		ldi	$6e		; 110, 'n', resX
		ge?
		bnt	code_1611
		pushi	$18		; 24, lsRight
		push2
		push0
		lofsa	CombatEvent
		send	$4
		bnot
		push
		ldi	$6e		; 110, 'n', resX
		sub
		mul
		push
		ldi	$b		; 11, inRight
		div
		push
		push1
		push0
		lofsa	CombatEvent
		send	$4
		bnot
		push
		ldi	$1a		; 26, signal
		div
		add
		sat	temp[$0]
code_1611:	lat	temp[$0]
		ret

ReadyingForCombatScript::handleError:
		lsp	param[$1]
		lag	global[$6a]
		eq?
		bnt	code_1631
		push1
		lofsa	string_0a0d	; "Error in starting combat."
		push
		calle	export60029_0, $2
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	client
		send	$4
		bnot
code_1631:	ret

ReadyingForCombatScript::dispose:
		lal	local[$40]
		not
		bnt	code_1640
		pushi	$278		; 632, controlOn
		push0
		lag	global[$2]
		send	$4
		bnot
code_1640:	pushi	$95		; 149, dispose
		push0
		super	Script, $4
		bnot
		ret

ReadyingForCombatScript::changeState:
		link	$5
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_1915
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$94		; 148, init
		push0
		pushi	$8d		; 141, new
		push0
		class	CombatWaitText
		send	$4
		bnot
		send	$4
		bnot
		ldi	$0
		sal	local[$4]
		ldi	$0
		sal	local[$5]
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$428		; 1064, pLeftGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		not
		bt	code_169c
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$429		; 1065, pRightGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		not
code_169c:	bnt	code_16bd
		pushi	$278		; 632, controlOn
		push0
		lag	global[$2]
		send	$4
		bnot
		push1
		lofsa	string_0a27	; "Error in starting combat. No opponents."
		push
		calle	export60029_0, $2
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	client
		send	$4
		bnot
code_16bd:	pushi	$d0		; 208, with
		push1
		lofsa	string_0a4f	; "Waiting to start combat...\n"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$3]
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$9c]
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$3]
		send	$4
		bnot
		pushi	$9f		; 159, add
		push1
		pushi	$94		; 148, init
		push1
		lsg	global[$1]
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push1
		push1
		push2
		pushi	$9ca5		; -25435
		pushi	$16		; 22, lsLeft
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		send	$a
		bnot
		push
		pushi	$3f6		; 1014, pOutgoingMovie
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$6
		bnot
		pushi	$3cc		; 972, sendMovie
		push1
		push1
		lag	global[$1]
		send	$6
		bnot
		ldi	$0
		sat	temp[$0]
code_171d:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$428		; 1064, pLeftGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		lt?
		bnt	code_17f7
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pushi	$428		; 1064, pLeftGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		sat	temp[$1]
		bnt	code_17f2
		pushi	$2fb		; 763, pCombatGroup
		push0
		send	$4
		bnot
		bnt	code_17df
		pushi	$128		; 296, equalLong
		push1
		pushi	$2fb		; 763, pCombatGroup
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$2fb		; 763, pCombatGroup
		push0
		lat	temp[$1]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_17df
		pushi	$561		; 1377, posnOnGrid
		pushi	$3		; z
		lst	temp[$1]
		pushi	$43b		; 1083, pCombatX
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$43c		; 1084, pCombatY
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pToa	client
		send	$a
		bnot
		pushi	$f		; 15, loop
		push1
		push0
		pushi	$105		; 261, setCycle
		push1
		class	End
		push
		pushi	$373		; 883, setAction
		push1
		push1
		lst	temp[$1]
		call	code_20b9, $2
		bnot
		push
		pushi	$4cc		; 1228, pFriend
		push1
		pushi	$a3		; 163, contains
		push1
		lsg	global[$1]
		pushi	$428		; 1064, pLeftGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_17c4
		ldi	$1
		jmp	code_17c6

code_17c4:	ldi	$0
code_17c6:	push
		lat	temp[$1]
		send	$18
		bnot
		pushi	$3c5		; 965, addToRoom
		push1
		pTos	client
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		lat	temp[$1]
		send	$c
		bnot
		jmp	code_17f2

code_17df:	pushi	$58		; 88, 'X', delete
		push1
		lst	temp[$1]
		pushi	$428		; 1064, pLeftGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		-at	temp[$0]
code_17f2:	+at	temp[$0]
		jmp	code_171d

code_17f7:	ldi	$0
		sat	temp[$0]
code_17fb:	lst	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$429		; 1065, pRightGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		lt?
		bnt	code_18d5
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		pushi	$429		; 1065, pRightGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		sat	temp[$1]
		bnt	code_18d0
		pushi	$2fb		; 763, pCombatGroup
		push0
		send	$4
		bnot
		bnt	code_18bd
		pushi	$128		; 296, equalLong
		push1
		pushi	$2fb		; 763, pCombatGroup
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		pushi	$2fb		; 763, pCombatGroup
		push0
		lat	temp[$1]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_18bd
		pushi	$561		; 1377, posnOnGrid
		pushi	$3		; z
		lst	temp[$1]
		pushi	$43b		; 1083, pCombatX
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$43c		; 1084, pCombatY
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pToa	client
		send	$a
		bnot
		pushi	$f		; 15, loop
		push1
		push1
		pushi	$105		; 261, setCycle
		push1
		class	End
		push
		pushi	$373		; 883, setAction
		push1
		push1
		lst	temp[$1]
		call	code_20b9, $2
		bnot
		push
		pushi	$4cc		; 1228, pFriend
		push1
		pushi	$a3		; 163, contains
		push1
		lsg	global[$1]
		pushi	$429		; 1065, pRightGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_18a2
		ldi	$1
		jmp	code_18a4

code_18a2:	ldi	$0
code_18a4:	push
		lat	temp[$1]
		send	$18
		bnot
		pushi	$3c5		; 965, addToRoom
		push1
		pTos	client
		pushi	$36a		; 874, updateDisplay
		push1
		push1
		lat	temp[$1]
		send	$c
		bnot
		jmp	code_18d0

code_18bd:	pushi	$58		; 88, 'X', delete
		push1
		lst	temp[$1]
		pushi	$429		; 1065, pRightGroup
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		-at	temp[$0]
code_18d0:	+at	temp[$0]
		jmp	code_17fb

code_18d5:	pushi	$d0		; 208, with
		push1
		lofsa	string_0a6b	; "Combat begins!\n"
		push
		class	Str
		send	$6
		bnot
		sat	temp[$3]
		pushi	$9f		; 159, add
		push1
		push
		lag	global[$9c]
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$3]
		send	$4
		bnot
		pushi	$278		; 632, controlOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$33e		; 830, pHandleActions
		push1
		push1
		class	ActionQMgr
		send	$6
		bnot
		ldi	$1
		sal	local[$40]
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_1915:	toss
		ret

WANetCombatMoveScript::handleError:
		ldi	$1
		aTop	pDone
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		ret

WANetCombatMoveScript::changeState:
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_1951
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		ldi	$1
		aTop	pHandsOff
		pushi	$c9		; 201, setScript
		push2
		pushi	$8d		; 141, new
		push0
		class	WAReady
		send	$4
		bnot
		push
		pushSelf
		self	$8
		bnot
		jmp	code_19e1

code_1951:	dup
		ldi	$1
		eq?
		bnt	code_19cf
		lag	global[$db]
		bnt	code_19a1
		pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		bnt	code_19a1
		pushi	$a3		; 163, contains
		push1
		push2
		pushi	$a410		; -23536
		push1
		callk	kernel_2, $4
		bnot
		push
		lag	global[$6]
		send	$6
		bnot
		bnt	code_19a1
		pushi	$486		; 1158, swapIcons
		push2
		push2
		pushi	$a410		; -23536
		push1
		callk	kernel_2, $4
		bnot
		push
		push2
		pushi	$a410		; -23536
		pushi	$3		; z
		callk	kernel_2, $4
		bnot
		push
		lag	global[$6]
		send	$8
		bnot
code_19a1:	pushi	$381		; 897, pMode
		push0
		lag	global[$1]
		send	$4
		bnot
		push
		ldi	$2
		and
		bnt	code_19c8
		ldi	$0
		aTop	pHandsOff
		pushi	$56a		; 1386, combatMove
		pushi	$3		; z
		lsl	local[$0]
		lsl	local[$1]
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
		jmp	code_19e1

code_19c8:	ldi	$1
		aTop	cycles
		jmp	code_19e1

code_19cf:	dup
		ldi	$2
		eq?
		bnt	code_19e1
		ldi	$1
		aTop	pDone
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_19e1:	toss
		ret

MakeItemList::doit:
		link	$4
		lsp	param[$0]
		ldi	$4		; scaleX
		lt?
		bt	code_19ee
		lap	param[$4]
code_19ee:	bnt	code_19fa
		pushi	$a6		; 166, release
		push0
		lap	param[$1]
		send	$4
		bnot
code_19fa:	pushi	$35c		; 860, getBase
		push1
		class	BContainer
		push
		lap	param[$2]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$420		; 1056, pContents
		push0
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$1]
		ldi	$0
		sat	temp[$3]
code_1a1b:	lst	temp[$3]
		lat	temp[$1]
		lt?
		bnt	code_1a8c
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$3]
		pushi	$420		; 1056, pContents
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
		sat	temp[$2]
		pushi	$45		; 69, 'E', doit
		push1
		push
		lap	param[$3]
		send	$6
		bnot
		bnt	code_1a67
		pushi	$9f		; 159, add
		push1
		pushi	$94		; 148, init
		push0
		pushi	$8c		; 140, scratch
		push1
		lst	temp[$2]
		pushi	$9a		; 154, yourself
		push0
		pushi	$8d		; 141, new
		push0
		lofsa	objectDisplay
		send	$4
		bnot
		send	$e
		bnot
		push
		lap	param[$1]
		send	$6
		bnot
code_1a67:	pushi	$386		; 902, hasBase
		push1
		class	BContainer
		push
		lat	temp[$2]
		send	$6
		bnot
		bnt	code_1a88
		pushi	$45		; 69, 'E', doit
		pushi	$4		; scaleX
		lsp	param[$1]
		lst	temp[$2]
		lsp	param[$3]
		push0
		lofsa	MakeItemList
		send	$c
		bnot
code_1a88:	+at	temp[$3]
		jmp	code_1a1b

code_1a8c:	ret

objectDisplay::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	BitMap, $4
		bnot
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$aa		; 170, addToFront
		pushi	$e1		; 225, height
		push1
		pushi	$2a		; 42, '*', font
		self	$c
		bnot
		ret

objectDisplay::draw:
		link	$2
		lap	param[$1]
		bnt	code_1ab4
		ldi	$1
		sat	temp[$0]
		jmp	code_1ab8

code_1ab4:	lag	global[$54]
		sat	temp[$0]
code_1ab8:	pushi	$5		; scaleY
		push0
		pushi	$4e		; 78, 'N', width
		push0
		self	$4
		bnot
		push
		pushi	$e1		; 225, height
		push0
		self	$4
		bnot
		push
		pushi	$fe		; 254, strIndex
		lst	temp[$0]
		callk	kernel_35, $a
		bnot
		aTop	bitmap
		pushi	$3aa		; 938, createDisplay
		push1
		pushi	$21		; 33, '!', key
		pToa	scratch
		send	$6
		bnot
		sat	temp[$1]
		pushi	$5		; scaleY
		pushi	$6		; maxScale
		pTos	bitmap
		push
		push0
		push0
		callk	kernel_35, $a
		bnot
		push2
		push1
		lst	temp[$1]
		callk	kernel_35, $4
		bnot
		pushi	$1ad		; 429, update
		push0
		pToa	scratch
		send	$4
		bnot
		pushi	$17d		; 381, addItem
		pushi	$6		; maxScale
		pushi	$3		; z
		pushi	$35e		; 862, pIDName
		push0
		pToa	scratch
		send	$4
		bnot
		bnt	code_1b3c
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$20		; 32, ' ', name
		pToa	scratch
		send	$6
		bnot
		bt	code_1b2d
		pushi	$35f		; 863, getAffectedState
		push1
		pushi	$57		; 87, 'W', draw
		pToa	scratch
		send	$6
		bnot
code_1b2d:	bnt	code_1b3c
		pushi	$35e		; 862, pIDName
		push0
		pToa	scratch
		send	$4
		bnot
		jmp	code_1b45

code_1b3c:	pushi	$315		; 789, pName
		push0
		pToa	scratch
		send	$4
		bnot
code_1b45:	push
		pushi	$32		; 50, '2', edit
		pushi	$a		; 10, inTop
		lsg	global[$55]
		lst	temp[$0]
		self	$10
		bnot
		ret

objectSelector::selectItem:
		link	$1
		pushi	$4b		; 75, 'K', at
		push1
		lsp	param[$1]
		pToa	elements
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_1b79
		pushi	$1b4		; 436, enable
		push1
		push1
		lofsa	chooseBtn
		send	$6
		bnot
		pushi	$51		; 81, 'Q', value
		push1
		lst	temp[$0]
		lofsa	chooseBtn
		send	$6
		bnot
code_1b79:	pushi	$1d4		; 468, selectItem
		push1
		lsp	param[$1]
		&rest	$2
		super	Selector, $6
		bnot
		ret

ChooseObjectDialog::init:
		link	$5
		pushi	$94		; 148, init
		push0
		&rest	$2
		super	FancyDialog, $4
		bnot
		pushi	$26		; 38, '&', back
		push1
		push0
		pToa	plane
		send	$6
		bnot
		pushi	$17d		; 381, addItem
		push1
		lofsa	objectSelector
		push
		self	$6
		bnot
		sat	temp[$0]
		pushi	$21f		; 543, setList
		push1
		lofsa	ItemList
		push
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$db		; 219, moveTo
		push2
		pushi	$a		; 10, inTop
		pushi	$28		; 40, '(', style
		lat	temp[$0]
		send	$14
		bnot
		pushi	$17d		; 381, addItem
		push1
		lofsa	chooseCancelBtn
		push
		self	$6
		bnot
		sat	temp[$3]
		pushi	$249		; 585, posnItem
		pushi	$3		; z
		push
		pushi	$50		; 80, 'P', claimed
		pushi	$e6		; 230, sizeToCel
		self	$a
		bnot
		pushi	$17d		; 381, addItem
		push1
		lofsa	chooseBtn
		push
		self	$6
		bnot
		sat	temp[$3]
		pushi	$249		; 585, posnItem
		pushi	$3		; z
		push
		pushi	$a		; 10, inTop
		pushi	$e6		; 230, sizeToCel
		self	$a
		bnot
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	chooseBtn
		send	$6
		bnot
		pushi	$1be		; 446, setSize
		push0
		self	$4
		bnot
		pushi	$e0		; 224, widen
		push1
		pushi	$5		; scaleY
		pToa	plane
		send	$6
		bnot
		pushi	$17d		; 381, addItem
		pushi	$5		; scaleY
		class	TitleItem
		push
		pushi	$23		; 35, '#', text
		lofsa	string_0afd	; "Choose An Object"
		push
		pushi	$25		; 37, '%', fore
		pushi	$2b		; 43, '+', type
		self	$e
		bnot
		sat	temp[$1]
		pushi	$17d		; 381, addItem
		pushi	$3		; z
		class	UnderlineItem
		push
		pushi	$8c		; 140, scratch
		lst	temp[$1]
		self	$a
		bnot
		sat	temp[$2]
		pushi	$249		; 585, posnItem
		pushi	$3		; z
		lst	temp[$1]
		pushi	$fb		; 251, subStr
		pushi	$5		; scaleY
		self	$a
		bnot
		pushi	$249		; 585, posnItem
		pushi	$3		; z
		lst	temp[$2]
		pushi	$87		; 135, left
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		pushi	$8a		; 138, bottom
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		ldi	$1
		add
		push
		self	$a
		bnot
		pushi	$de		; 222, centerIn
		push1
		push0
		push0
		lag	global[$3]
		send	$4
		bnot
		push
		pushi	$dd		; 221, moveBy
		push2
		push0
		pushi	$e		; 14, view
		pToa	plane
		send	$e
		bnot
		lap	param[$1]
		aTop	retObject
		ldi	$45		; 69, 'E', doit
		aTop	retSelector
		pushi	$1d3		; 467, modal
		push1
		push2
		pushi	$248		; 584, open
		push0
		self	$a
		bnot
		ret

ChooseObjectDialog::dispose:
		pushi	$95		; 149, dispose
		push0
		lofsa	ItemList
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	FancyDialog, $4
		bnot
		ret

MakeContainerDialog::doit:
		link	$3
		pushi	$45		; 69, 'E', doit
		pushi	$3		; z
		lofsa	ItemList
		push
		lsg	global[$1]
		lsp	param[$1]
		lofsa	MakeItemList
		send	$a
		bnot
		lsp	param[$0]
		ldi	$2
		gt?
		bnt	code_1cec
		lap	param[$3]
		bnt	code_1cec
		pushi	$45		; 69, 'E', doit
		pushi	$4		; scaleX
		lofsa	ItemList
		push
		lsg	global[$1]
		lsp	param[$3]
		push0
		lofsa	MakeItemList
		send	$c
		bnot
code_1cec:	pushi	$5a		; 90, 'Z', size
		push0
		lofsa	ItemList
		send	$4
		bnot
		bnt	code_1d09
		pushi	$3		; z
		pushi	$14		; 20, nsRight
		lofsa	ItemList
		push
		lsp	param[$2]
		callk	kernel_118, $6
		bnot
		ldi	$1
		ret

code_1d09:	ldi	$0
		ret

EdibleCode::doit:
		pushi	$386		; 902, hasBase
		push1
		class	BConsume
		push
		lap	param[$1]
		send	$6
		bnot
		ret

EquipCode::doit:
		link	$1
		pushi	$35c		; 860, getBase
		push1
		class	BWearable
		push
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$0]
		bnt	code_1d4d
		pushi	$35c		; 860, getBase
		push1
		class	BHead
		push
		lap	param[$1]
		send	$6
		bnot
		not
		bnt	code_1d4d
		pushi	$3a8		; 936, owns
		push2
		lsp	param[$1]
		push1
		lag	global[$1]
		send	$8
		bnot
		bnt	code_1d4d
		ldi	$1
		ret

code_1d4d:	ldi	$0
		ret

UseableCode::doit:
		link	$2
		pushi	$35c		; 860, getBase
		push1
		class	BUse
		push
		lap	param[$1]
		send	$6
		bnot
		sat	temp[$0]
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$1]
		send	$6
		bnot
		sat	temp[$1]
		lat	temp[$0]
		bnt	code_1dd1
		lat	temp[$1]
		bnt	code_1dd1
		pushi	$454		; 1108, pSpell
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		ldi	$ff		; 255, asInteger
		ne?
		bnt	code_1dd1
		pushi	$2bb		; 699, pType
		push0
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$454		; 1108, pSpell
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		push2
		pushi	$9cac		; -25428
		pushi	$6		; maxScale
		callk	kernel_2, $4
		bnot
		send	$6
		bnot
		send	$4
		bnot
		push
		ldi	$1
		and
		bnt	code_1dd1
		pushi	$4b		; 75, 'K', at
		push1
		pushi	$10		; 16, cel
		pushi	$430		; 1072, pSkillArray
		push0
		lat	temp[$1]
		send	$4
		bnot
		send	$6
		bnot
		push
		pushi	$501		; 1281, pTheurgism
		push0
		lat	temp[$0]
		send	$4
		bnot
		ge?
		bnt	code_1dd1
		ldi	$1
		ret

code_1dd1:	ldi	$0
		ret

WACombatMoveScript::changeState:
		link	$a
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_205d
		lsl	local[$6]
		ldi	$0
		eq?
		bnt	code_1e31
		push2
		push0
		pushi	$64		; 100, 'd', moveDone
		callk	kernel_60, $4
		bnot
		sat	temp[$9]
		push
		ldi	$19		; 25, lsBottom
		lt?
		bnt	code_1e0a
		pushi	$33		; 51, '3', play
		push1
		lofsa	string_0b56	; "battle3.mid"
		push
		class	MusicMgr
		send	$6
		bnot
		jmp	code_1e2d

code_1e0a:	lst	temp[$9]
		ldi	$32		; 50, '2', edit
		lt?
		bnt	code_1e21
		pushi	$33		; 51, '3', play
		push1
		lofsa	string_0b62	; "battle2.mid"
		push
		class	MusicMgr
		send	$6
		bnot
		jmp	code_1e2d

code_1e21:	pushi	$33		; 51, '3', play
		push1
		lofsa	string_0b6e	; "battle1.mid"
		push
		class	MusicMgr
		send	$6
		bnot
code_1e2d:	ldi	$1
		sal	local[$6]
code_1e31:	pTos	client
		lag	global[$1]
		eq?
		bnt	code_1e43
		pushi	$3ee		; 1006, pPlayMovie
		push1
		push1
		pToa	client
		send	$6
		bnot
code_1e43:	pushi	$43d		; 1085, pDestX
		push0
		pToa	pMovieCmd
		send	$4
		bnot
		sat	temp[$2]
		pushi	$43e		; 1086, pDestY
		push0
		pToa	pMovieCmd
		send	$4
		bnot
		sat	temp[$3]
		pushi	$43b		; 1083, pCombatX
		push1
		lst	temp[$2]
		pushi	$43c		; 1084, pCombatY
		push1
		push
		pToa	client
		send	$c
		bnot
		pushi	$562		; 1378, getXFromGrid
		push1
		lst	temp[$2]
		pushi	$c5		; 197, pRoom
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		push
		ldi	$d		; 13, seenRect
		add
		sat	temp[$6]
		pushi	$563		; 1379, getYFromGrid
		push1
		lst	temp[$3]
		pushi	$c5		; 197, pRoom
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		push
		ldi	$5		; scaleY
		add
		sat	temp[$7]
		push1
		lst	temp[$6]
		push1
		push0
		pToa	client
		send	$4
		bnot
		sub
		push
		callk	kernel_61, $2
		bnot
		sat	temp[$4]
		push1
		lst	temp[$7]
		push2
		push0
		pToa	client
		send	$4
		bnot
		sub
		push
		callk	kernel_61, $2
		bnot
		sat	temp[$5]
		push2
		pTos	client
		pushi	$4		; scaleX
		push1
		push0
		pToa	client
		send	$4
		bnot
		push
		push2
		push0
		pToa	client
		send	$4
		bnot
		push
		lst	temp[$6]
		lst	temp[$7]
		callk	kernel_63, $8
		bnot
		push
		callk	kernel_95, $4
		bnot
		push1
		pushi	$40f		; 1039, pWeapon
		push0
		pToa	client
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_1f1f
		pushi	$97		; 151, isKindOf
		push1
		class	BWeapon
		push
		pushi	$40f		; 1039, pWeapon
		push0
		pToa	client
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_1f1f
		pushi	$4e3		; 1251, pDamageType
		push0
		pushi	$40f		; 1039, pWeapon
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		aTop	scratch
		jmp	code_1f23

code_1f1f:	ldi	$ff		; 255, asInteger
		aTop	scratch
code_1f23:	pTos	scratch
		ldi	$0
		eq?
		bnt	code_1f39
		pushi	$373		; 883, setAction
		push1
		pushi	$b		; 11, inRight
		pToa	client
		send	$6
		bnot
		jmp	code_1f86

code_1f39:	pTos	scratch
		ldi	$2
		eq?
		bnt	code_1f4f
		pushi	$373		; 883, setAction
		push1
		pushi	$12		; 18, nsLeft
		pToa	client
		send	$6
		bnot
		jmp	code_1f86

code_1f4f:	pTos	scratch
		ldi	$1
		eq?
		bnt	code_1f65
		pushi	$373		; 883, setAction
		push1
		pushi	$e		; 14, view
		pToa	client
		send	$6
		bnot
		jmp	code_1f86

code_1f65:	pTos	scratch
		ldi	$3		; z
		eq?
		bnt	code_1f7b
		pushi	$373		; 883, setAction
		push1
		pushi	$e		; 14, view
		pToa	client
		send	$6
		bnot
		jmp	code_1f86

code_1f7b:	pushi	$373		; 883, setAction
		push1
		pushi	$12		; 18, nsLeft
		pToa	client
		send	$6
		bnot
code_1f86:	pushi	$6a		; 106, 'j', scaleSignal
		push1
		pushi	$6a		; 106, 'j', scaleSignal
		push0
		pToa	client
		send	$4
		bnot
		push
		ldi	$4		; scaleX
		or
		push
		pushi	$105		; 261, setCycle
		push1
		class	Fwd
		push
		pushi	$15c		; 348, setMotion
		pushi	$4		; scaleX
		class	MoveTo
		push
		lst	temp[$6]
		lst	temp[$7]
		pushSelf
		pToa	client
		send	$18
		bnot
		push1
		pTos	client
		callk	kernel_22, $2
		bnot
		sat	temp[$8]
		pushi	$507		; 1287, saveStep
		push0
		pToa	client
		send	$4
		bnot
		pushi	$1a9		; 425, setStep
		push2
		push2
		lst	temp[$4]
		lat	temp[$8]
		div
		push
		push1
		calle	export60025_3, $4
		bnot
		push
		push2
		lst	temp[$5]
		lat	temp[$8]
		div
		push
		push1
		calle	export60025_3, $4
		bnot
		push
		pToa	client
		send	$8
		bnot
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	client
		send	$4
		bnot
		push
		ldi	$64		; 100, 'd', moveDone
		eq?
		bt	code_2009
		pushi	$3ed		; 1005, pBaseView
		push0
		pToa	client
		send	$4
		bnot
		push
		ldi	$c8		; 200, handleEvent
		eq?
code_2009:	bnt	code_20b8
		push2
		push0
		push2
		callk	kernel_60, $4
		bnot
		push
		dup
		ldi	$0
		eq?
		bnt	code_202c
		pushi	$33		; 51, '3', play
		push2
		lofsa	string_0b7a	; "step1.wav"
		push
		pTos	client
		class	SoundMgr
		send	$8
		bnot
		jmp	code_2059

code_202c:	dup
		ldi	$1
		eq?
		bnt	code_2044
		pushi	$33		; 51, '3', play
		push2
		lofsa	string_0b84	; "step2.wav"
		push
		pTos	client
		class	SoundMgr
		send	$8
		bnot
		jmp	code_2059

code_2044:	dup
		ldi	$2
		eq?
		bnt	code_2059
		pushi	$33		; 51, '3', play
		push2
		lofsa	string_0b84	; "step2.wav"
		push
		pTos	client
		class	SoundMgr
		send	$8
		bnot
code_2059:	toss
		jmp	code_20b8

code_205d:	dup
		ldi	$1
		eq?
		bnt	code_20b8
		pushi	$6a		; 106, 'j', scaleSignal
		push1
		pushi	$6a		; 106, 'j', scaleSignal
		push0
		pToa	client
		send	$4
		bnot
		push
		ldi	$fb		; 251, subStr
		and
		push
		pushi	$105		; 261, setCycle
		push1
		push0
		pushi	$373		; 883, setAction
		push1
		push1
		pTos	client
		call	code_20b9, $2
		bnot
		push
		pushi	$508		; 1288, restoreStep
		push0
		pToa	client
		send	$16
		bnot
		pTos	client
		lag	global[$1]
		eq?
		bnt	code_20a1
		pushi	$3ee		; 1006, pPlayMovie
		push1
		push0
		lag	global[$1]
		send	$6
		bnot
code_20a1:	pushi	$9d		; 157, eachElementDo
		push1
		pushi	$63		; 99, 'c', perform
		lofsa	LocatorList
		send	$6
		bnot
		ldi	$1
		aTop	pDone
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_20b8:	toss
code_20b9:	ret

; export40111_0
code_20ba:	link	$2
		pushi	$3ec		; 1004, pAction
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		ldi	$1c		; 28, brLeft
		eq?
		bnt	code_20cf
		ldi	$1c		; 28, brLeft
		ret

code_20cf:	pushi	$2fb		; 763, pCombatGroup
		push0
		lap	param[$1]
		send	$4
		bnot
		not
		bnt	code_20df
		ldi	$1
		ret

code_20df:	push1
		pushi	$40f		; 1039, pWeapon
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_211f
		pushi	$97		; 151, isKindOf
		push1
		class	BWeapon
		push
		pushi	$40f		; 1039, pWeapon
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_211f
		pushi	$4e3		; 1251, pDamageType
		push0
		pushi	$40f		; 1039, pWeapon
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$0]
		jmp	code_2123

code_211f:	ldi	$ff		; 255, asInteger
		sat	temp[$0]
code_2123:	lst	temp[$0]
		dup
		ldi	$0
		eq?
		bnt	code_2133
		ldi	$a		; 10, inTop
		sat	temp[$1]
		jmp	code_2161

code_2133:	dup
		ldi	$2
		eq?
		bnt	code_2141
		ldi	$11		; 17, bitmap
		sat	temp[$1]
		jmp	code_2161

code_2141:	dup
		ldi	$1
		eq?
		bnt	code_214f
		ldi	$d		; 13, seenRect
		sat	temp[$1]
		jmp	code_2161

code_214f:	dup
		ldi	$3		; z
		eq?
		bnt	code_215d
		ldi	$d		; 13, seenRect
		sat	temp[$1]
		jmp	code_2161

code_215d:	ldi	$11		; 17, bitmap
		sat	temp[$1]
code_2161:	toss
		lat	temp[$1]
		ret

