815 lines
12 KiB
Plaintext
815 lines
12 KiB
Plaintext
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
|
|
|