764 lines
11 KiB
Plaintext
764 lines
11 KiB
Plaintext
export45014_0 = CharMenu
|
|
|
|
CharMenu::init:
|
|
link $c
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super StaticRealmRoom, $4
|
|
bnot
|
|
ldi $0
|
|
sag global[$f7]
|
|
ldi $1
|
|
sag global[$d3]
|
|
pushi $8d ; 141, new
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
sal local[$0]
|
|
pushi $33 ; 51, '3', play
|
|
push1
|
|
lofsa string_00fe ; "charmenu.mid"
|
|
push
|
|
class MusicMgr
|
|
send $6
|
|
bnot
|
|
pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $f ; 15, loop
|
|
push2
|
|
class StockCharacters
|
|
send $8
|
|
bnot
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $36a ; 874, updateDisplay
|
|
class StockCharacters
|
|
send $6
|
|
bnot
|
|
push2
|
|
push2
|
|
push1
|
|
callk kernel_118, $4
|
|
bnot
|
|
pushi $3 ; z
|
|
push1
|
|
push0
|
|
pushi $24 ; 36, '$', elements
|
|
push0
|
|
class StockCharacters
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_118, $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
class WinDialogSet
|
|
send $6
|
|
bnot
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
CharMenu::dispose:
|
|
lag global[$9e]
|
|
bnt code_00b4
|
|
pushi $3c6 ; 966, deleteFromRoom
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_00b4: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class StockCharacters
|
|
send $4
|
|
bnot
|
|
bnt code_00ca
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $3c6 ; 966, deleteFromRoom
|
|
class StockCharacters
|
|
send $6
|
|
bnot
|
|
code_00ca: pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
class WinDialogSet
|
|
send $6
|
|
bnot
|
|
push2
|
|
push1
|
|
push1
|
|
callk kernel_118, $4
|
|
bnot
|
|
push2
|
|
push2
|
|
push0
|
|
callk kernel_118, $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super StaticRealmRoom, $4
|
|
bnot
|
|
ret
|
|
|
|
CharMenu::handleEvent:
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $100 ; 256, strMax
|
|
eq?
|
|
bnt code_01ce
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_014d
|
|
pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sag global[$1]
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
push
|
|
class StockCharacters
|
|
send $6
|
|
bnot
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $95 ; 149, dispose
|
|
class StockCharacters
|
|
send $6
|
|
bnot
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
class StockCharacters
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sag global[$9e]
|
|
ldi $1
|
|
sag global[$fe]
|
|
pushi $c9 ; 201, setScript
|
|
push1
|
|
lofsa loginScript
|
|
push
|
|
lag global[$3]
|
|
send $6
|
|
bnot
|
|
jmp code_01cd
|
|
|
|
code_014d: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0173
|
|
pushi $24e ; 590, handsOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sag global[$9e]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class fNBody
|
|
send $4
|
|
bnot
|
|
sag global[$9e]
|
|
ldi $afd7 ; -20521
|
|
sag global[$36]
|
|
jmp code_01cd
|
|
|
|
code_0173: dup
|
|
ldi $f ; 15, loop
|
|
eq?
|
|
bnt code_01b6
|
|
pushi $24e ; 590, handsOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sag global[$9e]
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
pushi $2cb ; 715, pServIDLo
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2cc ; 716, pServIDHi
|
|
push0
|
|
lag global[$9e]
|
|
send $4
|
|
bnot
|
|
push
|
|
lal local[$0]
|
|
send $8
|
|
bnot
|
|
pushi $c9 ; 201, setScript
|
|
push1
|
|
lofsa eraseScript
|
|
push
|
|
lag global[$3]
|
|
send $6
|
|
bnot
|
|
jmp code_01cd
|
|
|
|
code_01b6: dup
|
|
ldi $e ; 14, view
|
|
eq?
|
|
bnt code_01cd
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
class CreateLookDialog
|
|
send $6
|
|
bnot
|
|
code_01cd: toss
|
|
code_01ce: toss
|
|
ret
|
|
|
|
loginScript::dispose:
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
loginScript::handleError:
|
|
link $1
|
|
lsp param[$1]
|
|
lag global[$6a]
|
|
eq?
|
|
bnt code_0220
|
|
pushi $f5 ; 245, format
|
|
push1
|
|
lofsa string_0114 ; "Server Error: Unable to login."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $6 ; maxScale
|
|
push
|
|
pushi $65 ; 101, 'e', topString
|
|
push1
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_0133 ; "Okay"
|
|
push
|
|
push0
|
|
calle export60029_0, $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0220: ret
|
|
|
|
loginScript::changeState:
|
|
link $6
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_0246
|
|
pushi $24e ; 590, handsOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $549 ; 1353, getExtendedProps
|
|
push2
|
|
lsg global[$1]
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_03d5
|
|
|
|
code_0246: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_02b6
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
ldi $0
|
|
sat temp[$2]
|
|
code_025e: lst temp[$2]
|
|
ldi $94 ; 148, init
|
|
lt?
|
|
bnt code_0299
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
pushi $431 ; 1073, pSpellArray
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_0295
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
push2
|
|
pushi $9cac ; -25428
|
|
pushi $6 ; maxScale
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
push
|
|
class SpellList
|
|
send $6
|
|
bnot
|
|
code_0295: +at temp[$2]
|
|
jmp code_025e
|
|
|
|
code_0299: pushi $5a5 ; 1445, loginCharacter
|
|
push2
|
|
lsg global[$1]
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
push1
|
|
pushi $16 ; 22, lsLeft
|
|
callk kernel_118, $2
|
|
bnot
|
|
push1
|
|
pushi $3 ; z
|
|
callk kernel_118, $2
|
|
bnot
|
|
jmp code_03d5
|
|
|
|
code_02b6: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_02fc
|
|
pushi $6 ; maxScale
|
|
dup
|
|
pushi $5 ; scaleY
|
|
pushi $406 ; 1030, pHealth
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $632 ; 1586, pHealthHi
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $407 ; 1031, pHealthMax
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $633 ; 1587, pHealthMaxHi
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_118, $c
|
|
bnot
|
|
pushi $5b6 ; 1462, getStartingPosn
|
|
push2
|
|
lsg global[$1]
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_03d5
|
|
|
|
code_02fc: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_03d5
|
|
pushi $127 ; 295, equal
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
lag global[$d7]
|
|
send $8
|
|
bnot
|
|
not
|
|
bnt code_0324
|
|
push1
|
|
push1
|
|
lsg global[$d8]
|
|
push2
|
|
push1
|
|
lsg global[$d9]
|
|
pushi $f ; 15, loop
|
|
push1
|
|
lsg global[$da]
|
|
lag global[$1]
|
|
send $12
|
|
bnot
|
|
code_0324: pushi $3bb ; 955, clearMode
|
|
push1
|
|
push2
|
|
pushi $3bb ; 955, clearMode
|
|
push1
|
|
pushi $4 ; scaleX
|
|
pushi $3ba ; 954, setMode
|
|
push1
|
|
push1
|
|
pushi $3cd ; 973, recordPosn
|
|
push0
|
|
pushi $3cc ; 972, sendMovie
|
|
push1
|
|
push1
|
|
lag global[$1]
|
|
send $1c
|
|
bnot
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
push2
|
|
lofsa string_0138 ; "firstRoom"
|
|
push
|
|
lst temp[$1]
|
|
callk kernel_125, $4
|
|
bnot
|
|
bnt code_036b
|
|
pushi $ff ; 255, asInteger
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0378
|
|
|
|
code_036b: push2
|
|
pushi $13b ; 315, putWord
|
|
pushi $140 ; 320, pHandle
|
|
callk kernel_60, $4
|
|
bnot
|
|
sat temp[$0]
|
|
code_0378: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $141 ; 321, stop
|
|
push0
|
|
class MusicMgr
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $10f ; 271, setLong
|
|
push1
|
|
lsg global[$d7]
|
|
send $6
|
|
bnot
|
|
pushi $127 ; 295, equal
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
lat temp[$4]
|
|
send $8
|
|
bnot
|
|
bnt code_03c3
|
|
pushi $5a6 ; 1446, firstRoom
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push1
|
|
lst temp[$0]
|
|
class LongInt
|
|
send $6
|
|
bnot
|
|
push
|
|
lag global[$6a]
|
|
send $6
|
|
bnot
|
|
jmp code_03ce
|
|
|
|
code_03c3: pushi $5a6 ; 1446, firstRoom
|
|
push1
|
|
lst temp[$4]
|
|
lag global[$6a]
|
|
send $6
|
|
bnot
|
|
code_03ce: pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_03d5: toss
|
|
ret
|
|
|
|
eraseScript::handleError:
|
|
link $1
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
eraseScript::changeState:
|
|
link $6
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_0409
|
|
lag global[$9e]
|
|
aTop register
|
|
pushi $5a3 ; 1443, destroyCharacter
|
|
push2
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_043c
|
|
|
|
code_0409: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_043c
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pTos register
|
|
class StockCharacters
|
|
send $6
|
|
bnot
|
|
pushi $3 ; z
|
|
push1
|
|
pushi $3 ; z
|
|
pushi $24 ; 36, '$', elements
|
|
push0
|
|
class StockCharacters
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_118, $6
|
|
bnot
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_043c: toss
|
|
ret
|
|
|
|
LookAtCharacter::changeState:
|
|
link $3
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_0490
|
|
pushi $24e ; 590, handsOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
pushi $319 ; 793, pHead
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
bnt code_047d
|
|
pushi $50e ; 1294, getBiography
|
|
pushi $3 ; z
|
|
pTos register
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_0535
|
|
|
|
code_047d: pushi $4fa ; 1274, getDescription
|
|
pushi $3 ; z
|
|
pTos register
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_0535
|
|
|
|
code_0490: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_04e9
|
|
pushi $319 ; 793, pHead
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
bnt code_04c5
|
|
pushi $4ca ; 1226, setBiography
|
|
push1
|
|
pTos scratch
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
pToa register
|
|
send $6
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $549 ; 1353, getExtendedProps
|
|
push2
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
jmp code_0535
|
|
|
|
code_04c5: pushi $6 ; maxScale
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos scratch
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_0133 ; "Okay"
|
|
push
|
|
push0
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
calle export60029_0, $c
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_0535
|
|
|
|
code_04e9: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_051f
|
|
push1
|
|
pTos scratch
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0504
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa scratch
|
|
send $4
|
|
bnot
|
|
code_0504: pushi $319 ; 793, pHead
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
bnt code_0519
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pTos register
|
|
class CreateLookDialog
|
|
send $6
|
|
bnot
|
|
code_0519: ldi $1
|
|
aTop cycles
|
|
jmp code_0535
|
|
|
|
code_051f: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_0535
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0535: toss
|
|
ret
|
|
|