gDialogList::add:
		pushi	$9f		; 159, add
		push1
		lsp	param[$1]
		&rest	$2
		super	Set, $6
		bnot
		ret

gDialogList::dispose:
		link	$3
		push1
		pushi	$c		; 12, inBottom
		callk	kernel_118, $2
		bnot
		pushi	$5a		; 90, 'Z', size
		push0
		self	$4
		bnot
		sat	temp[$1]
		ldi	$0
		sat	temp[$0]
code_015e:	lst	temp[$0]
		lat	temp[$1]
		lt?
		bnt	code_0195
		pushi	$4b		; 75, 'K', at
		push1
		lst	temp[$0]
		self	$6
		bnot
		sat	temp[$2]
		push1
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0191
		pushi	$97		; 151, isKindOf
		push1
		class	Dialog
		push
		lat	temp[$2]
		send	$6
		bnot
		bnt	code_0191
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
code_0191:	+at	temp[$0]
		jmp	code_015e

code_0195:	pushi	$a6		; 166, release
		push0
		self	$4
		bnot
		ldi	$0
		aTop	size
		ret

VerbDialog::new:
		pushi	$4		; scaleX
		pushi	$9		; inLeft
		push0
		pushi	$24		; 36, '$', elements
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		lsp	param[$2]
		callk	kernel_118, $8
		bnot
		lap	param[$2]
		aTop	pObject
		pushi	$9f		; 159, add
		push1
		pushSelf
		class	gDialogList
		send	$6
		bnot
		selfID
		ret

VerbDialog::dispose:
		pushi	$58		; 88, 'X', delete
		push1
		pushSelf
		class	gDialogList
		send	$6
		bnot
		push2
		pushi	$9		; inLeft
		push1
		callk	kernel_118, $4
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	FancyDialog, $4
		bnot
		ret

GetAmount::new:
		lap	param[$0]
		not
		bnt	code_01ee
		lag	global[$1]
		aTop	pDirectObject
		jmp	code_01f2

code_01ee:	lap	param[$1]
		aTop	pDirectObject
code_01f2:	pushi	$8d		; 141, new
		push0
		&rest	$2
		super	Script, $4
		bnot
		ret

GetAmount::changeState:
		link	$6
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_0258
		pushi	$337		; 823, pValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		not
		bt	code_0227
		pushi	$127		; 295, equal
		push1
		push0
		pushi	$337		; 823, pValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		send	$6
		bnot
code_0227:	bnt	code_0251
		pushi	$a		; 10, inTop
		lofsa	string_0117	; "You don't have any gold!"
		push
		pushi	$fdf5		; -523
		lsg	global[$55]
		pushi	$8b		; 139, numLines
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0130	; "Okay"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $14
		bnot
		pTos	state
		ldi	$2
		add
		aTop	state
code_0251:	ldi	$1
		aTop	cycles
		jmp	code_0316

code_0258:	dup
		ldi	$1
		eq?
		bnt	code_0309
		pushi	$10f		; 271, setLong
		push1
		pushi	$337		; 823, pValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		push
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$2]
		send	$6
		bnot
		pushi	$f5		; 245, format
		push2
		lofsa	string_0135	; "You have %s gold coins available to transfer.\n"
		push
		pushi	$131		; 305, asStr
		push0
		pushi	$337		; 823, pValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$5]
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		pushi	$95		; 149, dispose
		push0
		lat	temp[$5]
		send	$4
		bnot
		pushi	$15		; 21, nsBottom
		lsp	param[$0]
		ldi	$2
		ge?
		bnt	code_02b3
		lap	param[$2]
		jmp	code_02b5

code_02b3:	lat	temp[$0]
code_02b5:	push
		pushi	$81		; 129, magnifier
		pushi	$8d		; 141, new
		push0
		class	SetMoneyEditItem
		send	$4
		bnot
		aTop	scratch
		push
		pushi	$fdf5		; -523
		lsg	global[$55]
		pushi	$8b		; 139, numLines
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_016c	; "ALL"
		push
		push2
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0170	; " OK "
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0175	; "Cancel"
		push
		push0
		pushi	$93		; 147, pLine
		pushSelf
		pushi	$c8		; 200, handleEvent
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $2a
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
		jmp	code_0316

code_0309:	dup
		ldi	$2
		eq?
		bnt	code_0316
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_0316:	toss
		ret

GetAmount::handleEvent:
		link	$1
		lap	param[$0]
		bnt	code_040d
		lsp	param[$1]
		dup
		ldi	$0
		eq?
		bnt	code_0334
		pushi	$b5		; 181, set
		push1
		push0
		pToa	register
		send	$6
		bnot
		jmp	code_0405

code_0334:	dup
		ldi	$1
		eq?
		bnt	code_03cc
		push1
		class	SetMoneyEditItem
		push
		calle	export60000_0, $2
		bnot
		bnt	code_03c0
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$23		; 35, '#', text
		push0
		pToa	scratch
		send	$4
		bnot
		send	$4
		bnot
		push
		ldi	$0
		gt?
		bnt	code_03c0
		pushi	$132		; 306, fromStr
		push1
		pushi	$23		; 35, '#', text
		push0
		pToa	scratch
		send	$4
		bnot
		push
		pToa	register
		send	$6
		bnot
		pushi	$10f		; 271, setLong
		push1
		pTos	register
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		send	$6
		bnot
		pushi	$12e		; 302, greaterLong
		push1
		pushi	$337		; 823, pValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_03b5
		pushi	$3		; z
		lofsa	string_017c	; "Transaction Failed!\n"
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0130	; "Okay"
		push
		calle	export60029_0, $6
		bnot
		pushi	$b5		; 181, set
		push1
		push0
		pToa	register
		send	$6
		bnot
code_03b5:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		jmp	code_0405

code_03c0:	pushi	$b5		; 181, set
		push1
		push0
		pToa	register
		send	$6
		bnot
		jmp	code_0405

code_03cc:	dup
		ldi	$2
		eq?
		bnt	code_03e7
		pushi	$10f		; 271, setLong
		push1
		pushi	$337		; 823, pValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		push
		pToa	register
		send	$6
		bnot
		jmp	code_0405

code_03e7:	pushi	$3		; z
		lofsa	string_01aa	; "Transaction Failed!\n"
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0130	; "Okay"
		push
		calle	export60029_0, $6
		bnot
		pushi	$b5		; 181, set
		push2
		push0
		push0
		pToa	register
		send	$8
		bnot
code_0405:	toss
		ldi	$1
		aTop	cycles
		ldi	$0
		ret

code_040d:	ret

GetManaAmount::new:
		lap	param[$0]
		not
		bnt	code_0419
		lag	global[$1]
		aTop	pDirectObject
		jmp	code_041d

code_0419:	lap	param[$1]
		aTop	pDirectObject
code_041d:	pushi	$8d		; 141, new
		push0
		&rest	$2
		super	Script, $4
		bnot
		ret

GetManaAmount::changeState:
		link	$5
		lap	param[$1]
		aTop	state
		push
		dup
		ldi	$0
		eq?
		bnt	code_0483
		pushi	$338		; 824, pManaValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		not
		bt	code_0452
		pushi	$127		; 295, equal
		push1
		push0
		pushi	$338		; 824, pManaValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		send	$6
		bnot
code_0452:	bnt	code_047c
		pushi	$a		; 10, inTop
		lofsa	string_01dd	; "You don't have any mana crystals!"
		push
		pushi	$fdf5		; -523
		lsg	global[$55]
		pushi	$8b		; 139, numLines
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0130	; "Okay"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $14
		bnot
		pTos	state
		ldi	$2
		add
		aTop	state
code_047c:	ldi	$1
		aTop	cycles
		jmp	code_0541

code_0483:	dup
		ldi	$1
		eq?
		bnt	code_0534
		pushi	$10f		; 271, setLong
		push1
		pushi	$338		; 824, pManaValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		push
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$2]
		send	$6
		bnot
		pushi	$f5		; 245, format
		push2
		lofsa	string_01ff	; "You have %s mana crystals available to transfer.\n"
		push
		pushi	$131		; 305, asStr
		push0
		pushi	$338		; 824, pManaValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$4]
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		pushi	$95		; 149, dispose
		push0
		lat	temp[$4]
		send	$4
		bnot
		pushi	$15		; 21, nsBottom
		lsp	param[$0]
		ldi	$2
		ge?
		bnt	code_04de
		lap	param[$2]
		jmp	code_04e0

code_04de:	lat	temp[$0]
code_04e0:	push
		pushi	$81		; 129, magnifier
		pushi	$8d		; 141, new
		push0
		class	SetManaEditItem
		send	$4
		bnot
		aTop	scratch
		push
		pushi	$fdf5		; -523
		lsg	global[$55]
		pushi	$8b		; 139, numLines
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_016c	; "ALL"
		push
		push2
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0170	; " OK "
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0175	; "Cancel"
		push
		push0
		pushi	$93		; 147, pLine
		pushSelf
		pushi	$c8		; 200, handleEvent
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $2a
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$2]
		send	$4
		bnot
		jmp	code_0541

code_0534:	dup
		ldi	$2
		eq?
		bnt	code_0541
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_0541:	toss
		ret

GetManaAmount::handleEvent:
		link	$1
		lap	param[$0]
		bnt	code_0639
		lsp	param[$1]
		dup
		ldi	$0
		eq?
		bnt	code_055f
		pushi	$b5		; 181, set
		push1
		push0
		pToa	register
		send	$6
		bnot
		jmp	code_0631

code_055f:	dup
		ldi	$1
		eq?
		bnt	code_05f8
		push1
		class	SetMoneyEditItem
		push
		calle	export60000_0, $2
		bnot
		bnt	code_05ec
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$23		; 35, '#', text
		push0
		pToa	scratch
		send	$4
		bnot
		send	$4
		bnot
		push
		ldi	$0
		gt?
		bnt	code_05ec
		pushi	$132		; 306, fromStr
		push1
		pushi	$23		; 35, '#', text
		push0
		pToa	scratch
		send	$4
		bnot
		push
		pToa	register
		send	$6
		bnot
		pushi	$10f		; 271, setLong
		push1
		pTos	register
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		send	$6
		bnot
		pushi	$12e		; 302, greaterLong
		push1
		pushi	$338		; 824, pManaValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		push
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_05e1
		pushi	$3		; z
		lofsa	string_017c	; "Transaction Failed!\n"
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0130	; "Okay"
		push
		calle	export60029_0, $6
		bnot
		pushi	$b5		; 181, set
		push1
		push0
		pToa	register
		send	$6
		bnot
code_05e1:	pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		jmp	code_0631

code_05ec:	pushi	$b5		; 181, set
		push1
		push0
		pToa	register
		send	$6
		bnot
		jmp	code_0631

code_05f8:	dup
		ldi	$2
		eq?
		bnt	code_0613
		pushi	$10f		; 271, setLong
		push1
		pushi	$338		; 824, pManaValue
		push0
		pToa	pDirectObject
		send	$4
		bnot
		push
		pToa	register
		send	$6
		bnot
		jmp	code_0631

code_0613:	pushi	$3		; z
		lofsa	string_01aa	; "Transaction Failed!\n"
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0130	; "Okay"
		push
		calle	export60029_0, $6
		bnot
		pushi	$b5		; 181, set
		push2
		push0
		push0
		pToa	register
		send	$8
		bnot
code_0631:	toss
		ldi	$1
		aTop	cycles
		ldi	$0
		ret

code_0639:	ret

ScriptPrompt::doit:
		lap	param[$0]
		bnt	code_0661
		lap	param[$1]
		bnt	code_064d
		pushi	$c7		; 199, cue
		push0
		pToa	pClient
		send	$4
		bnot
		jmp	code_0658

code_064d:	pushi	$9f		; 159, add
		push1
		pTos	pClient
		class	DeadObjects
		send	$6
		bnot
code_0658:	pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
		jmp	code_06a7

code_0661:	pushi	$9f		; 159, add
		push1
		pushi	$15		; 21, nsBottom
		pTos	pPrompt
		pushi	$76		; 118, 'v', textLeft
		pTos	pStr
		pTos	pMax
		pushi	$fdf5		; -523
		lsg	global[$55]
		pushi	$fdf4		; -524
		lsg	global[$3a]
		pushi	$8b		; 139, numLines
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0170	; " OK "
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0175	; "Cancel"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		pushi	$93		; 147, pLine
		pushSelf
		pushi	$45		; 69, 'E', doit
		&rest	$2
		calle	export60029_0, $2a
		bnot
		aTop	pPrint
		push
		class	gDialogList
		send	$6
		bnot
code_06a7:	ret

ScriptPrompt::dispose:
		pushi	$58		; 88, 'X', delete
		push1
		pTos	pPrint
		class	gDialogList
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	Code, $4
		bnot
		ret

