2433 lines
36 KiB
Plaintext
2433 lines
36 KiB
Plaintext
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
|
|
|