BuyBulkCrystals::doit:
		link	$1
		lsp	param[$1]
		ldi	$1
		eq?
		bnt	code_02d1
		pushi	$132		; 306, fromStr
		push1
		lofsa	BulkCountStr
		push
		pushi	$8d		; 141, new
		push0
		class	LongInt
		send	$4
		bnot
		sat	temp[$0]
		send	$6
		bnot
		pushi	$129		; 297, less
		push1
		push1
		lat	temp[$0]
		send	$6
		bnot
		bnt	code_028b
		pushi	$8		; fixPriority
		lofsa	string_051f	; "You must specify a number that is greater than 0."
		push
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0551	; "Okay"
		push
		push1
		pushi	$74		; 116, 't', all
		lofsa	string_0556	; "Error"
		push
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $10
		bnot
		ldi	$ff		; 255, asInteger
		ret

code_028b:	pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$498		; 1176, buyBulk
		pushi	$4		; scaleX
		pushi	$499		; 1177, pShopId
		push0
		pushi	$36		; 54, '6', client
		push0
		pToa	scratch
		send	$4
		bnot
		send	$4
		bnot
		push
		pushi	$350		; 848, pIndex
		push0
		pushi	$1e1		; 481, curItem
		push0
		pushi	$49a		; 1178, pItemSelector
		push0
		pushi	$36		; 54, '6', client
		push0
		pToa	scratch
		send	$4
		bnot
		send	$4
		bnot
		send	$4
		bnot
		send	$4
		bnot
		push
		lst	temp[$0]
		pTos	scratch
		lag	global[$6a]
		send	$c
		bnot
code_02d1:	ret

buyBtn::choose:
		link	$1
		pushi	$1cb		; 459, choose
		push0
		&rest	$1
		super	gameBarBtn, $4
		bnot
		pushi	$71		; 113, 'q', data
		push0
		lofsa	BulkCountStr
		send	$4
		bnot
		not
		bnt	code_02ff
		pushi	$71		; 113, 'q', data
		push1
		push2
		push2
		lofsa	string_0570	; "1"
		push
		callk	kernel_92, $4
		bnot
		push
		lofsa	BulkCountStr
		send	$6
		bnot
code_02ff:	pushi	$1e1		; 481, curItem
		push0
		pushi	$49a		; 1178, pItemSelector
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$0]
		pushi	$2bb		; 699, pType
		push0
		send	$4
		bnot
		push
		ldi	$5		; scaleY
		eq?
		bnt	code_0361
		pushi	$8c		; 140, scratch
		push1
		pushSelf
		lofsa	BuyBulkCrystals
		send	$6
		bnot
		pushi	$11		; 17, bitmap
		lofsa	string_0572	; "How many mana crystals do you want to purchase?"
		push
		pushi	$76		; 118, 'v', textLeft
		lofsa	BulkCountStr
		push
		pushi	$8		; fixPriority
		pushi	$77		; 119, 'w', textTop
		lofsa	string_056c	; "Buy"
		push
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_05a2	; "Cancel"
		push
		push0
		pushi	$74		; 116, 't', all
		lofsa	string_05a9	; "Bulk Buy"
		push
		pushi	$91		; 145, bitPutIndex
		push2
		pushi	$93		; 147, pLine
		lofsa	BuyBulkCrystals
		push
		pushi	$45		; 69, 'E', doit
		calle	export60029_0, $22
		bnot
		jmp	code_038a

code_0361:	pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$49b		; 1179, buyShopItem
		pushi	$3		; z
		pushi	$499		; 1177, pShopId
		push0
		pToa	client
		send	$4
		bnot
		push
		pushi	$350		; 848, pIndex
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pushSelf
		lag	global[$6a]
		send	$a
		bnot
code_038a:	ret

buyBtn::cue:
		link	$3
		pushi	$1e1		; 481, curItem
		push0
		pushi	$49a		; 1178, pItemSelector
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$1]
		pushi	$2bb		; 699, pType
		push0
		send	$4
		bnot
		push
		dup
		ldi	$3		; z
		eq?
		bnt	code_03f0
		pushi	$49c		; 1180, getAssets
		push0
		pToa	client
		send	$4
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		pushi	$49d		; 1181, pAssets
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		push1
		pushi	$49d		; 1181, pAssets
		push0
		pToa	client
		send	$4
		bnot
		push
		callk	kernel_32, $2
		bnot
		pushi	$f5		; 245, format
		push2
		lofsa	string_05b2	; "You have aquired a %s spell."
		push
		pushi	$315		; 789, pName
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		jmp	code_0474

code_03f0:	dup
		ldi	$2
		eq?
		bnt	code_0438
		pushi	$49c		; 1180, getAssets
		push0
		pToa	client
		send	$4
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		pushi	$49d		; 1181, pAssets
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		push1
		pushi	$49d		; 1181, pAssets
		push0
		pToa	client
		send	$4
		bnot
		push
		callk	kernel_32, $2
		bnot
		pushi	$f5		; 245, format
		push2
		lofsa	string_05cf	; "You purchased the %s."
		push
		pushi	$315		; 789, pName
		push0
		lat	temp[$1]
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		jmp	code_0474

code_0438:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_0474
		pushi	$49c		; 1180, getAssets
		push0
		pToa	client
		send	$4
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		pushi	$49d		; 1181, pAssets
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		push1
		pushi	$49d		; 1181, pAssets
		push0
		pToa	client
		send	$4
		bnot
		push
		callk	kernel_32, $2
		bnot
		pushi	$f5		; 245, format
		push1
		lofsa	string_05e5	; "You purchased the crystals."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
code_0474:	toss
		pushi	$8		; fixPriority
		lst	temp[$0]
		pushi	$65		; 101, 'e', topString
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0551	; "Okay"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $10
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		ret

buyBtn::handleError:
		link	$3
		ldi	$0
		sat	temp[$0]
		lsp	param[$1]
		lag	global[$6a]
		eq?
		bnt	code_0610
		lsp	param[$3]
		dup
		ldi	$271e		; 10014
		eq?
		bnt	code_056d
		ldi	$0
		sat	temp[$1]
		pushi	$1e1		; 481, curItem
		push0
		pushi	$49a		; 1178, pItemSelector
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$2]
		pushi	$2bb		; 699, pType
		push0
		send	$4
		bnot
		push
		dup
		ldi	$3		; z
		eq?
		bnt	code_04f8
		pushi	$f5		; 245, format
		push2
		lofsa	string_0601	; "gold to purchase the %s spell."
		push
		pushi	$315		; 789, pName
		push0
		lat	temp[$2]
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$1]
		jmp	code_054f

code_04f8:	dup
		ldi	$4		; scaleX
		eq?
		bnt	code_0519
		pushi	$f5		; 245, format
		push2
		lofsa	string_0620	; "build points to improve your\n"
		push
		pushi	$315		; 789, pName
		push0
		lat	temp[$2]
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$1]
		jmp	code_054f

code_0519:	dup
		ldi	$2
		eq?
		bnt	code_053a
		pushi	$f5		; 245, format
		push2
		lofsa	string_0647	; "gold to purchase the %s."
		push
		pushi	$315		; 789, pName
		push0
		lat	temp[$2]
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$1]
		jmp	code_054f

code_053a:	dup
		ldi	$5		; scaleY
		eq?
		bnt	code_054f
		pushi	$f5		; 245, format
		push1
		lofsa	string_0660	; "gold to purchase the crystals."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$1]
code_054f:	toss
		pushi	$f5		; 245, format
		push2
		lofsa	string_067f	; "I am unable to fulfill your request because\n"
		push
		lst	temp[$1]
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		jmp	code_060d

code_056d:	dup
		ldi	$271d		; 10013
		eq?
		bnt	code_059e
		pushi	$f5		; 245, format
		push2
		lofsa	string_06c1	; "My apologies, I cannot sell you the %s because it would be too heavy for you to carry.\n"
		push
		pushi	$315		; 789, pName
		push0
		pushi	$1e1		; 481, curItem
		push0
		pushi	$49a		; 1178, pItemSelector
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		jmp	code_060d

code_059e:	dup
		ldi	$271c		; 10012
		eq?
		bnt	code_05ce
		pushi	$f5		; 245, format
		push2
		lofsa	string_0759	; "My apologies, I cannot sell you the %s because it would be to bulky for you to carry.\n"
		push
		pushi	$315		; 789, pName
		push0
		pushi	$1e1		; 481, curItem
		push0
		pushi	$49a		; 1178, pItemSelector
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		jmp	code_060d

code_05ce:	dup
		ldi	$271a		; 10010
		eq?
		bnt	code_05fe
		pushi	$f5		; 245, format
		push2
		lofsa	string_07f0	; "My apologies leige, but you have learned all you can of %s.\n"
		push
		pushi	$315		; 789, pName
		push0
		pushi	$1e1		; 481, curItem
		push0
		pushi	$49a		; 1178, pItemSelector
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		jmp	code_060d

code_05fe:	pushi	$d0		; 208, with
		push1
		lofsa	string_082d	; "You cannot buy that."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
code_060d:	toss
		jmp	code_061f

code_0610:	pushi	$d0		; 208, with
		push1
		lofsa	string_082d	; "You cannot buy that."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
code_061f:	pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$8		; fixPriority
		lst	temp[$0]
		pushi	$65		; 101, 'e', topString
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0551	; "Okay"
		push
		push1
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $10
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

lookBtn::choose:
		pushi	$1cb		; 459, choose
		push0
		&rest	$1
		super	gameBarBtn, $4
		bnot
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$8d		; 141, new
		push0
		class	Str
		send	$4
		bnot
		aTop	scratch
		pushi	$49e		; 1182, examineShopItem
		pushi	$4		; scaleX
		pushi	$499		; 1177, pShopId
		push0
		pToa	client
		send	$4
		bnot
		push
		pushi	$350		; 848, pIndex
		push0
		pushi	$1e1		; 481, curItem
		push0
		pushi	$49a		; 1178, pItemSelector
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		send	$4
		bnot
		push
		pTos	scratch
		pushSelf
		lag	global[$6a]
		send	$c
		bnot
		ret

lookBtn::cue:
		pushi	$6		; maxScale
		pTos	scratch
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0551	; "Okay"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $c
		bnot
		pushi	$95		; 149, dispose
		push0
		pToa	scratch
		send	$4
		bnot
		pushi	$278		; 632, controlOn
		push0
		lag	global[$2]
		send	$4
		bnot
		ret

lookBtn::handleError:
		link	$1
		ldi	$0
		sat	temp[$0]
		pushi	$d0		; 208, with
		push1
		lofsa	string_0851	; "You cannot see it clearly."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$0]
		pushi	$276		; 630, handsOn
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$8		; fixPriority
		lst	temp[$0]
		pushi	$65		; 101, 'e', topString
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0551	; "Okay"
		push
		push1
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $10
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

prevBtn::choose:
		link	$1
		pushi	$1cb		; 459, choose
		push0
		&rest	$1
		super	gameBarBtn, $4
		bnot
		pushi	$343		; 835, pOwner
		push0
		pushi	$1e1		; 481, curItem
		push0
		pushi	$49a		; 1178, pItemSelector
		push0
		pToa	client
		send	$4
		bnot
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$0]
		pushi	$49f		; 1183, newList
		push1
		push
		pToa	client
		send	$6
		bnot
		ret

browseBtn::choose:
		pushi	$1cb		; 459, choose
		push0
		&rest	$1
		super	gameBarBtn, $4
		bnot
		pushi	$49f		; 1183, newList
		push0
		pToa	client
		send	$4
		bnot
		ret

topBtn::choose:
		pushi	$1cb		; 459, choose
		push0
		&rest	$1
		super	gameBarBtn, $4
		bnot
		pushi	$49f		; 1183, newList
		push0
		pToa	client
		send	$4
		bnot
		ret

TradeDlg::handleEvent:
		link	$1
		ldi	$0
		sat	temp[$0]
		pushi	$4		; scaleX
		pushi	$2b		; 43, '+', type
		push0
		lap	param[$1]
		send	$4
		bnot
		eq?
		bnt	code_0790
		pushi	$1b		; 27, illegalBits
		pushi	$31		; 49, '1', message
		push0
		lap	param[$1]
		send	$4
		bnot
		eq?
		bnt	code_0790
		pushSelf
		pushi	$1d0		; 464, pScreen
		push0
		lag	global[$3]
		send	$4
		bnot
		ne?
		bnt	code_0790
		lat	temp[$0]
		ret

code_0790:	pushi	$c8		; 200, handleEvent
		push1
		lsp	param[$1]
		&rest	$2
		super	FancyDialog, $6
		bnot
		ret

TradeDlg::init:
		link	$5
		pushi	$277		; 631, controlOff
		push0
		lag	global[$2]
		send	$4
		bnot
		pushi	$94		; 148, init
		push0
		&rest	$3		; z
		super	FancyDialog, $4
		bnot
		pTos	state
		ldi	$fd		; 253, strip
		and
		aTop	state
		pToa	priority
		not
		bt	code_07c3
		pTos	priority
		ldi	$ff		; 255, asInteger
		eq?
code_07c3:	bnt	code_07d0
		push0
		callk	kernel_44, $0
		bnot
		push
		ldi	$1
		add
		aTop	priority
code_07d0:	pushi	$89		; 137, top
		push1
		push0
		pushi	$87		; 135, left
		push1
		push0
		pushi	$8a		; 138, bottom
		push1
		pushi	$f7		; 247, cat
		pushi	$88		; 136, right
		push1
		pushi	$1ae		; 430, horizon
		pushi	$7		; priority
		push1
		pTos	priority
		pushi	$57		; 87, 'W', draw
		push0
		pToa	plane
		send	$22
		bnot
		lap	param[$1]
		aTop	pShopId
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$55]
		pushi	$23		; 35, '#', text
		push1
		lofsa	string_08a1	; "Category"
		push
		pushi	$db		; 219, moveTo
		push2
		pushi	$64		; 100, 'd', moveDone
		pushi	$1b		; 27, illegalBits
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$9a		; 154, yourself
		push0
		pushi	$75		; 117, 'u', show
		push0
		pushi	$8d		; 141, new
		push0
		class	TextItem
		send	$4
		bnot
		aTop	pNameText
		send	$22
		bnot
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$55]
		pushi	$23		; 35, '#', text
		push1
		pushi	$d0		; 208, with
		push1
		lofsa	string_08aa	; "Price"
		push
		class	Str
		send	$6
		bnot
		push
		pushi	$db		; 219, moveTo
		push2
		pushi	$e2		; 226, heighten
		pushi	$1b		; 27, illegalBits
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$9a		; 154, yourself
		push0
		pushi	$69		; 105, 'i', hide
		push1
		push0
		pushi	$8d		; 141, new
		push0
		class	TextItem
		send	$4
		bnot
		aTop	pPriceText
		send	$24
		bnot
		pushi	$88		; 136, right
		push0
		pToa	plane
		send	$4
		bnot
		push
		pushi	$3		; z
		pushi	$232a		; 9002
		push0
		push0
		callk	kernel_28, $6
		bnot
		sub
		sat	temp[$2]
		pushi	$3		; z
		pushi	$232a		; 9002
		push0
		push0
		callk	kernel_29, $6
		bnot
		sat	temp[$3]
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$2]
		pushi	$28		; 40, '(', style
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	buyBtn
		send	$14
		bnot
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$2]
		pushi	$89		; 137, top
		push0
		lofsa	buyBtn
		send	$4
		bnot
		push
		lat	temp[$3]
		add
		push
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	lookBtn
		send	$14
		bnot
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$2]
		pushi	$89		; 137, top
		push0
		lofsa	buyBtn
		send	$4
		bnot
		push
		lst	temp[$3]
		ldi	$2
		mul
		add
		push
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	prevBtn
		send	$14
		bnot
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$2]
		pushi	$89		; 137, top
		push0
		lofsa	buyBtn
		send	$4
		bnot
		push
		lst	temp[$3]
		ldi	$3		; z
		mul
		add
		push
		pushi	$1b4		; 436, enable
		push1
		push1
		lofsa	browseBtn
		send	$14
		bnot
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$2]
		pushi	$89		; 137, top
		push0
		lofsa	buyBtn
		send	$4
		bnot
		push
		lst	temp[$3]
		ldi	$3		; z
		mul
		add
		push
		pushi	$1b4		; 436, enable
		push1
		push1
		pushi	$69		; 105, 'i', hide
		push0
		lofsa	topBtn
		send	$18
		bnot
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$2]
		pushi	$89		; 137, top
		push0
		lofsa	buyBtn
		send	$4
		bnot
		push
		lst	temp[$3]
		ldi	$4		; scaleX
		mul
		add
		push
		pushi	$1b4		; 436, enable
		push1
		push1
		lofsa	exitBtn
		send	$14
		bnot
		pushi	$131		; 305, asStr
		push0
		pushi	$337		; 823, pValue
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$0]
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$55]
		pushi	$23		; 35, '#', text
		push1
		pushi	$f5		; 245, format
		push2
		lofsa	string_08b0	; "Available gold:\n"
		push
		lst	temp[$0]
		class	Str
		send	$8
		bnot
		push
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$2]
		ldi	$5		; scaleY
		add
		push
		pushi	$89		; 137, top
		push0
		lofsa	buyBtn
		send	$4
		bnot
		push
		lst	temp[$3]
		ldi	$5		; scaleY
		mul
		add
		push
		ldi	$5		; scaleY
		add
		push
		pushi	$1be		; 446, setSize
		push1
		pushi	$3		; z
		pushi	$232a		; 9002
		push0
		push0
		callk	kernel_28, $6
		bnot
		push
		ldi	$5		; scaleY
		sub
		push
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$9a		; 154, yourself
		push0
		pushi	$75		; 117, 'u', show
		push0
		pushi	$8d		; 141, new
		push0
		class	TextItem
		send	$4
		bnot
		aTop	pAssets
		send	$28
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$55]
		pushi	$23		; 35, '#', text
		push1
		pushi	$f5		; 245, format
		push2
		lofsa	string_08c3	; "Your build points:\n"
		push
		pushi	$432		; 1074, pBuildPoints
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$1]
		send	$6
		bnot
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		push
		pushi	$db		; 219, moveTo
		push2
		lst	temp[$2]
		ldi	$5		; scaleY
		add
		push
		pushi	$89		; 137, top
		push0
		lofsa	buyBtn
		send	$4
		bnot
		push
		lst	temp[$3]
		ldi	$6		; maxScale
		mul
		add
		push
		ldi	$5		; scaleY
		add
		push
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$9a		; 154, yourself
		push0
		pushi	$75		; 117, 'u', show
		push0
		pushi	$8d		; 141, new
		push0
		class	TextItem
		send	$4
		bnot
		aTop	pPoints
		send	$22
		bnot
		pushi	$8d		; 141, new
		push0
		class	ShopList
		send	$4
		bnot
		aTop	pItemList
		pushi	$343		; 835, pOwner
		push1
		pTos	pItemList
		pToa	pItemList
		send	$6
		bnot
		pushi	$4ab		; 1195, pDlg
		push1
		pushSelf
		pushi	$8d		; 141, new
		push0
		lofsa	CategoryInput
		send	$4
		bnot
		aTop	pHandleInput
		send	$6
		bnot
		pushi	$36c		; 876, fromPacket
		push1
		lsp	param[$2]
		self	$6
		bnot
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	pItemList
		send	$4
		bnot
		bnt	code_0a92
		pushi	$4a7		; 1191, buildSelector
		push0
		self	$4
		bnot
		jmp	code_0ad5

code_0a92:	pushi	$25		; 37, '%', fore
		push1
		lsg	global[$55]
		pushi	$23		; 35, '#', text
		push1
		pushi	$d0		; 208, with
		push1
		lofsa	string_08d9	; "I am sorry, I have nothing\n"
		push
		class	Str
		send	$6
		bnot
		push
		pushi	$db		; 219, moveTo
		push2
		pushi	$1e		; 30, brRight
		pushi	$78		; 120, 'x', textRight
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$9a		; 154, yourself
		push0
		pushi	$75		; 117, 'u', show
		push0
		pushi	$8d		; 141, new
		push0
		class	TextItem
		send	$4
		bnot
		sat	temp[$4]
		send	$22
		bnot
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	browseBtn
		send	$6
		bnot
code_0ad5:	pushi	$de		; 222, centerIn
		push1
		push0
		push0
		lag	global[$3]
		send	$4
		bnot
		push
		pushi	$dd		; 221, moveBy
		push2
		push0
		pushi	$10		; 16, cel
		pToa	plane
		send	$e
		bnot
		pushi	$1d3		; 467, modal
		push1
		push2
		pushi	$248		; 584, open
		push0
		self	$a
		bnot
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	pItemList
		send	$4
		bnot
		bnt	code_0b11
		pushi	$1d4		; 468, selectItem
		push1
		push0
		pushi	$1ad		; 429, update
		push0
		pToa	pItemSelector
		send	$a
		bnot
code_0b11:	pushi	$278		; 632, controlOn
		push0
		lag	global[$2]
		send	$4
		bnot
		ret

TradeDlg::getAssets:
		link	$2
		pushi	$131		; 305, asStr
		push0
		pushi	$337		; 823, pValue
		push0
		lag	global[$1]
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$1]
		pushi	$f5		; 245, format
		push2
		lofsa	string_08b0	; "Available gold:\n"
		push
		lst	temp[$1]
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		pushi	$d3		; 211, copy
		push1
		push
		pushi	$23		; 35, '#', text
		push0
		pToa	pAssets
		send	$4
		bnot
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$1]
		send	$4
		bnot
		ret

TradeDlg::getBuildPoints:
		link	$1
		pushi	$f5		; 245, format
		push2
		lofsa	string_08c3	; "Your build points:\n"
		push
		pushi	$432		; 1074, pBuildPoints
		push0
		pushi	$35c		; 860, getBase
		push1
		class	BCharacter
		push
		lag	global[$1]
		send	$6
		bnot
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		pushi	$d3		; 211, copy
		push1
		push
		pushi	$23		; 35, '#', text
		push0
		pToa	pPoints
		send	$4
		bnot
		send	$6
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

TradeDlg::dispose:
		pushi	$95		; 149, dispose
		push0
		pToa	pNameText
		send	$4
		bnot
		push1
		pTos	pItemList
		calle	export60000_0, $2
		bnot
		bnt	code_0bc0
		pushi	$95		; 149, dispose
		push0
		pToa	pItemList
		send	$4
		bnot
code_0bc0:	pushi	$95		; 149, dispose
		push0
		pToa	pHandleInput
		send	$4
		bnot
		push1
		pTos	pItemSelector
		calle	export60000_0, $2
		bnot
		bnt	code_0be8
		pushi	$9d		; 157, eachElementDo
		push1
		pushi	$95		; 149, dispose
		pushi	$219		; 537, displayList
		push0
		pToa	pItemSelector
		send	$4
		bnot
		send	$6
		bnot
code_0be8:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	FancyDialog, $4
		bnot
		ret

TradeDlg::fromPacket:
		link	$4
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		pushi	$134		; 308, getByte
		push0
		lap	param[$1]
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		pushi	$136		; 310, getLong
		push0
		lap	param[$1]
		send	$4
		bnot
		send	$4
		bnot
		pushi	$139		; 313, getString
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$1]
		pushi	$3		; z
		push1
		push2
		pushi	$9		; inLeft
		push
		callk	kernel_91, $4
		bnot
		push
		lsg	global[$3a]
		callk	kernel_70, $6
		bnot
		sat	temp[$2]
		pushi	$25		; 37, '%', fore
		push1
		lsg	global[$55]
		pushi	$23		; 35, '#', text
		push1
		lst	temp[$1]
		pushi	$1be		; 446, setSize
		push1
		push
		pushi	$db		; 219, moveTo
		push2
		pushi	$4e		; 78, 'N', width
		push0
		pToa	plane
		send	$4
		bnot
		push
		ldi	$2
		div
		push
		lst	temp[$2]
		ldi	$2
		div
		sub
		push
		ldi	$5		; scaleY
		add
		push
		pushi	$e		; 14, view
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$9a		; 154, yourself
		push0
		pushi	$75		; 117, 'u', show
		push0
		pushi	$8d		; 141, new
		push0
		class	TextItem
		send	$4
		bnot
		sat	temp[$3]
		send	$28
		bnot
		pushi	$135		; 309, getWord
		push0
		lap	param[$1]
		send	$4
		bnot
		sat	temp[$0]
code_0c9a:	lat	temp[$0]
		bnt	code_0cad
		pushi	$4a6		; 1190, buildList
		push2
		pTos	pItemList
		lsp	param[$1]
		self	$8
		bnot
		-at	temp[$0]
		jmp	code_0c9a

code_0cad:	ret

TradeDlg::buildList:
		link	$8
		pushi	$134		; 308, getByte
		push0
		lap	param[$2]
		send	$4
		bnot
		sat	temp[$0]
		pushi	$135		; 309, getWord
		push0
		lap	param[$2]
		send	$4
		bnot
		sat	temp[$1]
		pushi	$134		; 308, getByte
		push0
		lap	param[$2]
		send	$4
		bnot
		sat	temp[$2]
		pushi	$134		; 308, getByte
		push0
		lap	param[$2]
		send	$4
		bnot
		sat	temp[$3]
		pushi	$136		; 310, getLong
		push0
		lap	param[$2]
		send	$4
		bnot
		sat	temp[$4]
		pushi	$139		; 313, getString
		push0
		lap	param[$2]
		send	$4
		bnot
		sat	temp[$5]
		push2
		pushi	$80		; 128, lastKey
		lst	temp[$1]
		callk	kernel_5, $4
		bnot
		not
		bnt	code_0d04
		ldi	$2334		; 9012
		sat	temp[$1]
code_0d04:	lst	temp[$0]
		dup
		ldi	$1
		eq?
		bnt	code_0d4a
		pushi	$8d		; 141, new
		push0
		lofsa	CategoryItem
		send	$4
		bnot
		sat	temp[$7]
		pushi	$94		; 148, init
		push1
		lsp	param[$1]
		send	$6
		bnot
		pushi	$343		; 835, pOwner
		push1
		pushi	$343		; 835, pOwner
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$315		; 789, pName
		push1
		lst	temp[$5]
		pushi	$e		; 14, view
		push1
		lst	temp[$1]
		lat	temp[$7]
		send	$12
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$4]
		send	$4
		bnot
		jmp	code_0d9b

code_0d4a:	pushi	$8d		; 141, new
		push0
		lofsa	TradeItem
		send	$4
		bnot
		sat	temp[$7]
		pushi	$94		; 148, init
		push0
		send	$4
		bnot
		pushi	$343		; 835, pOwner
		push1
		pushi	$343		; 835, pOwner
		push0
		lap	param[$1]
		send	$4
		bnot
		push
		pushi	$315		; 789, pName
		push1
		lst	temp[$5]
		pushi	$e		; 14, view
		push1
		lst	temp[$1]
		pushi	$3ea		; 1002, pClutStart
		push1
		lst	temp[$2]
		pushi	$330		; 816, pColor
		push1
		lst	temp[$3]
		pushi	$4ac		; 1196, pPrice
		push1
		lst	temp[$4]
		pushi	$350		; 848, pIndex
		push1
		pTos	pItemAmt
		pushi	$2bb		; 699, pType
		push1
		lst	temp[$0]
		lat	temp[$7]
		send	$30
		bnot
		ipToa	pItemAmt
code_0d9b:	toss
		pushi	$ab		; 171, addToEnd
		push1
		lst	temp[$7]
		lap	param[$1]
		send	$6
		bnot
		lst	temp[$0]
		ldi	$1
		eq?
		bnt	code_0dd4
		pushi	$135		; 309, getWord
		push0
		lap	param[$2]
		send	$4
		bnot
		sat	temp[$6]
code_0db9:	lat	temp[$6]
		bnt	code_0dd4
		pushi	$4a6		; 1190, buildList
		push2
		pushi	$ce		; 206, pList
		push0
		lat	temp[$7]
		send	$4
		bnot
		push
		lsp	param[$2]
		self	$8
		bnot
		-at	temp[$6]
		jmp	code_0db9

code_0dd4:	ret

TradeDlg::buildSelector:
		link	$2
		pushi	$5a		; 90, 'Z', size
		push0
		pToa	pItemList
		send	$4
		bnot
		bnt	code_0ede
		pToa	pItemList
		sat	temp[$0]
		pushi	$97		; 151, isKindOf
		push1
		lofsa	CategoryItem
		push
		pushi	$a5		; 165, first
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0e28
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	buyBtn
		send	$6
		bnot
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	lookBtn
		send	$6
		bnot
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	prevBtn
		send	$6
		bnot
		pushi	$69		; 105, 'i', hide
		push1
		push0
		pToa	pPriceText
		send	$6
		bnot
		jmp	code_0e6b

code_0e28:	pushi	$1b4		; 436, enable
		push1
		push1
		lofsa	buyBtn
		send	$6
		bnot
		pushi	$1b4		; 436, enable
		push1
		push1
		lofsa	lookBtn
		send	$6
		bnot
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	prevBtn
		send	$6
		bnot
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	browseBtn
		send	$6
		bnot
		pushi	$23		; 35, '#', text
		push1
		lofsa	string_090b	; "Item"
		push
		pushi	$57		; 87, 'W', draw
		push0
		pToa	pNameText
		send	$a
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		pToa	pPriceText
		send	$4
		bnot
code_0e6b:	pushi	$17d		; 381, addItem
		pushi	$5		; scaleY
		class	Selector
		push
		pushi	$213		; 531, itemWidth
		pushi	$4e		; 78, 'N', width
		push0
		pushi	$a5		; 165, first
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$4
		bnot
		push
		pushi	$212		; 530, itemHeight
		pushi	$e1		; 225, height
		push0
		pushi	$a5		; 165, first
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$4
		bnot
		push
		self	$e
		bnot
		aTop	pItemSelector
		pushi	$1e2		; 482, itemsPerPage
		push1
		pushi	$4		; scaleX
		pushi	$21a		; 538, allowDoubleClick
		push1
		push1
		pushi	$1c7		; 455, handler
		push1
		pTos	pHandleInput
		pushi	$21f		; 543, setList
		push1
		lst	temp[$0]
		pushi	$94		; 148, init
		push1
		pushSelf
		pushi	$db		; 219, moveTo
		push2
		pushi	$a		; 10, inTop
		pushi	$28		; 40, '(', style
		pToa	pItemSelector
		send	$26
		bnot
		pushi	$1e1		; 481, curItem
		push1
		pushi	$a5		; 165, first
		push0
		lat	temp[$0]
		send	$4
		bnot
		push
		pToa	pItemSelector
		send	$6
		bnot
		jmp	code_0f0c

code_0ede:	pushi	$d0		; 208, with
		push1
		lofsa	string_0910	; "I have nothing to sell you."
		push
		class	Str
		send	$6
		bnot
		sat	temp[$1]
		pushi	$8		; fixPriority
		push
		pushi	$65		; 101, 'e', topString
		push1
		pushi	$77		; 119, 'w', textTop
		lofsa	string_0551	; "Okay"
		push
		push0
		pushi	$91		; 145, bitPutIndex
		push2
		calle	export60029_0, $10
		bnot
		pushi	$95		; 149, dispose
		push0
		self	$4
		bnot
code_0f0c:	ret

TradeDlg::newList:
		link	$2
		lap	param[$0]
		bnt	code_0f2b
		lap	param[$1]
		sat	temp[$0]
		pushi	$1e1		; 481, curItem
		push1
		pushi	$a5		; 165, first
		push0
		send	$4
		bnot
		push
		pToa	pItemSelector
		send	$6
		bnot
		jmp	code_0f85

code_0f2b:	push1
		pushi	$1e1		; 481, curItem
		push0
		pToa	pItemSelector
		send	$4
		bnot
		push
		calle	export60000_0, $2
		bnot
		bnt	code_0f81
		pushi	$97		; 151, isKindOf
		push1
		lofsa	CategoryItem
		push
		pushi	$1e1		; 481, curItem
		push0
		pToa	pItemSelector
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_0f81
		pushi	$5a		; 90, 'Z', size
		push0
		pushi	$ce		; 206, pList
		push0
		pushi	$1e1		; 481, curItem
		push0
		pToa	pItemSelector
		send	$4
		bnot
		send	$4
		bnot
		send	$4
		bnot
		bnt	code_0f81
		pushi	$ce		; 206, pList
		push0
		pushi	$1e1		; 481, curItem
		push0
		pToa	pItemSelector
		send	$4
		bnot
		send	$4
		bnot
		sat	temp[$0]
		jmp	code_0f85

code_0f81:	pToa	pItemList
		sat	temp[$0]
code_0f85:	pushi	$5a		; 90, 'Z', size
		push0
		lat	temp[$0]
		send	$4
		bnot
		bnt	code_10c6
		pushi	$97		; 151, isKindOf
		push1
		lofsa	CategoryItem
		push
		pushi	$a5		; 165, first
		push0
		lat	temp[$0]
		send	$4
		bnot
		send	$6
		bnot
		bnt	code_1022
		pushi	$21a		; 538, allowDoubleClick
		push1
		push1
		pToa	pItemSelector
		send	$6
		bnot
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	buyBtn
		send	$6
		bnot
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	lookBtn
		send	$6
		bnot
		pushi	$69		; 105, 'i', hide
		push0
		lofsa	topBtn
		send	$4
		bnot
		pushi	$75		; 117, 'u', show
		push0
		lofsa	browseBtn
		send	$4
		bnot
		pushi	$a5		; 165, first
		push0
		pToa	pItemList
		send	$4
		bnot
		push
		pushi	$a5		; 165, first
		push0
		lat	temp[$0]
		send	$4
		bnot
		eq?
		bnt	code_0ffc
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	prevBtn
		send	$6
		bnot
		jmp	code_1007

code_0ffc:	pushi	$1b4		; 436, enable
		push1
		push1
		lofsa	prevBtn
		send	$6
		bnot
code_1007:	pushi	$23		; 35, '#', text
		push1
		lofsa	string_08a1	; "Category"
		push
		pushi	$57		; 87, 'W', draw
		push0
		pToa	pNameText
		send	$a
		bnot
		pushi	$69		; 105, 'i', hide
		push1
		push0
		pToa	pPriceText
		send	$6
		bnot
		jmp	code_1099

code_1022:	pushi	$21a		; 538, allowDoubleClick
		push1
		push0
		pToa	pItemSelector
		send	$6
		bnot
		pushi	$1b4		; 436, enable
		push1
		push1
		lofsa	buyBtn
		send	$6
		bnot
		pushi	$1b4		; 436, enable
		push1
		push1
		lofsa	lookBtn
		send	$6
		bnot
		pushi	$69		; 105, 'i', hide
		push0
		lofsa	browseBtn
		send	$4
		bnot
		pushi	$75		; 117, 'u', show
		push0
		lofsa	topBtn
		send	$4
		bnot
		pushi	$a5		; 165, first
		push0
		pToa	pItemList
		send	$4
		bnot
		push
		pushi	$a5		; 165, first
		push0
		lat	temp[$0]
		send	$4
		bnot
		eq?
		bnt	code_1077
		pushi	$1b4		; 436, enable
		push1
		push0
		lofsa	prevBtn
		send	$6
		bnot
		jmp	code_1082

code_1077:	pushi	$1b4		; 436, enable
		push1
		push1
		lofsa	prevBtn
		send	$6
		bnot
code_1082:	pushi	$23		; 35, '#', text
		push1
		lofsa	string_090b	; "Item"
		push
		pushi	$57		; 87, 'W', draw
		push0
		pToa	pNameText
		send	$a
		bnot
		pushi	$57		; 87, 'W', draw
		push0
		pToa	pPriceText
		send	$4
		bnot
code_1099:	pushi	$21f		; 543, setList
		push1
		lst	temp[$0]
		pushi	$1d4		; 468, selectItem
		push1
		push0
		pushi	$d7		; 215, move
		push1
		push0
		pushi	$1ad		; 429, update
		push0
		pToa	pItemSelector
		send	$16
		bnot
		pushi	$51		; 81, 'Q', value
		push1
		push0
		pushi	$1ad		; 429, update
		push0
		pushi	$218		; 536, scrollBar
		push0
		pToa	pItemSelector
		send	$4
		bnot
		send	$a
		bnot
code_10c6:	ret

CategoryInput::doit:
		pushi	$49f		; 1183, newList
		push0
		pToa	pDlg
		send	$4
		bnot
		ret

StoreItem::init:
		pushi	$94		; 148, init
		push0
		&rest	$1
		super	BitMap, $4
		bnot
		pushi	$4e		; 78, 'N', width
		push1
		pushi	$10e		; 270, hiWord
		pushi	$e1		; 225, height
		push1
		pushi	$30		; 48, '0', who
		self	$c
		bnot
		ret

StoreItem::addToCast:
		ret

StoreItem::dispose:
		pushi	$95		; 149, dispose
		push0
		pToa	pName
		send	$4
		bnot
		pToa	pClut
		bnt	code_1100
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
code_1100:	pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	BitMap, $4
		bnot
		ret

StoreItem::setName:
		pToa	pName
		bnt	code_111a
		pushi	$95		; 149, dispose
		push0
		send	$4
		bnot
		ldi	$0
		aTop	pName
code_111a:	pushi	$d0		; 208, with
		push1
		lsp	param[$1]
		class	Str
		send	$6
		bnot
		aTop	pName
		ret

StoreItem::draw:
		link	$1
		lap	param[$1]
		bnt	code_1134
		ldi	$1
		sat	temp[$0]
		jmp	code_1138

code_1134:	lag	global[$54]
		sat	temp[$0]
code_1138:	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
		pTos	pColor
		ldi	$0
		ne?
		bnt	code_118c
		pToa	pClut
		not
		bnt	code_118c
		pushi	$8d		; 141, new
		push0
		class	Clut
		send	$4
		bnot
		aTop	pClut
		pushi	$4b		; 75, 'K', at
		pushi	$5		; scaleY
		pTos	pClutStart
		pTos	pColor
		pTos	pColor
		ldi	$1
		add
		push
		pTos	pColor
		ldi	$2
		add
		push
		pTos	pColor
		ldi	$3		; z
		add
		push
		pToa	pClut
		send	$e
		bnot
code_118c:	pushi	$17d		; 381, addItem
		pushi	$6		; maxScale
		push2
		pTos	view
		pTos	loop
		pTos	cel
		push0
		push0
		self	$10
		bnot
		pToa	pClut
		bnt	code_11ad
		pushi	$3		; z
		pushi	$a		; 10, inTop
		pTos	bitmap
		push
		callk	kernel_35, $6
		bnot
code_11ad:	pushi	$17d		; 381, addItem
		pushi	$7		; priority
		pushi	$3		; z
		pTos	pName
		pushi	$32		; 50, '2', edit
		pushi	$a		; 10, inTop
		lsg	global[$55]
		lst	temp[$0]
		pushi	$4		; scaleX
		self	$12
		bnot
		ret

StoreItem::width:
		lap	param[$0]
		bnt	code_11d4
		pTos	left
		lap	param[$1]
		add
		push
		ldi	$1
		sub
		aTop	right
code_11d4:	pTos	right
		pToa	left
		sub
		push
		ldi	$1
		add
		ret

StoreItem::height:
		lap	param[$0]
		bnt	code_11ed
		pTos	top
		lap	param[$1]
		add
		push
		ldi	$1
		sub
		aTop	bottom
code_11ed:	pTos	bottom
		pToa	top
		sub
		push
		ldi	$1
		add
		ret

CategoryItem::dispose:
		pushi	$95		; 149, dispose
		push0
		pToa	pList
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	StoreItem, $4
		bnot
		ret

CategoryItem::init:
		pushi	$94		; 148, init
		push0
		&rest	$2
		super	StoreItem, $4
		bnot
		pushi	$343		; 835, pOwner
		push1
		lsp	param[$1]
		pushi	$8d		; 141, new
		push0
		class	ShopList
		send	$4
		bnot
		aTop	pList
		send	$6
		bnot
		ret

TradeItem::dispose:
		pushi	$95		; 149, dispose
		push0
		pToa	pPrice
		send	$4
		bnot
		pushi	$95		; 149, dispose
		push0
		&rest	$1
		super	StoreItem, $4
		bnot
		ret

TradeItem::draw:
		link	$2
		pushi	$57		; 87, 'W', draw
		push1
		lsp	param[$1]
		&rest	$2
		super	StoreItem, $6
		bnot
		lap	param[$1]
		bnt	code_125a
		ldi	$1
		sat	temp[$1]
		jmp	code_125e

code_125a:	lag	global[$54]
		sat	temp[$1]
code_125e:	pushi	$f5		; 245, format
		push2
		lofsa	string_095a	; "%s"
		push
		pushi	$131		; 305, asStr
		push0
		pToa	pPrice
		send	$4
		bnot
		push
		class	Str
		send	$8
		bnot
		sat	temp[$0]
		pushi	$17d		; 381, addItem
		pushi	$7		; priority
		pushi	$3		; z
		pushi	$71		; 113, 'q', data
		push0
		send	$4
		bnot
		push
		pushi	$d7		; 215, move
		pushi	$a		; 10, inTop
		lsg	global[$55]
		lst	temp[$1]
		pushi	$4		; scaleX
		self	$12
		bnot
		pushi	$95		; 149, dispose
		push0
		lat	temp[$0]
		send	$4
		bnot
		ret

