166 lines
2.4 KiB
Plaintext
166 lines
2.4 KiB
Plaintext
BDescribed::init:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super WorldObjectBase, $4
|
|
bnot
|
|
lofsa blankText
|
|
aTop pText
|
|
ret
|
|
|
|
BDescribed::dispose:
|
|
pToa pText
|
|
bnt code_0074
|
|
push
|
|
lofsa blankText
|
|
ne?
|
|
bnt code_0070
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pText
|
|
send $4
|
|
bnot
|
|
code_0070: ldi $0
|
|
aTop pText
|
|
code_0074: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super WorldObjectBase, $4
|
|
bnot
|
|
ret
|
|
|
|
BDescribed::handlesAction:
|
|
push2
|
|
lsp param[$1]
|
|
pushi $2fd ; 765, see
|
|
calle export60025_4, $4
|
|
bnot
|
|
ret
|
|
|
|
BDescribed::see:
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
bnt code_00a6
|
|
push1
|
|
lofsa string_0085 ; "Trying to see a BDescribed with script attached to pSelf."
|
|
push
|
|
calle export60029_0, $2
|
|
bnot
|
|
jmp code_00ba
|
|
|
|
code_00a6: pushi $c9 ; 201, setScript
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa GetDescriptionScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
code_00ba: ldi $0
|
|
ret
|
|
|
|
BDescribed::setText:
|
|
pToa pText
|
|
bnt code_00d5
|
|
push
|
|
lofsa blankText
|
|
ne?
|
|
bnt code_00d1
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pText
|
|
send $4
|
|
bnot
|
|
code_00d1: ldi $0
|
|
aTop pText
|
|
code_00d5: lap param[$1]
|
|
bnt code_00ed
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
push2
|
|
pushi $9 ; inLeft
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
aTop pText
|
|
code_00ed: ret
|
|
|
|
BDescribed::fromPacket:
|
|
ret
|
|
|
|
GetDescriptionScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_0120
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
aTop register
|
|
pushi $4fa ; 1274, getDescription
|
|
pushi $3 ; z
|
|
pTos client
|
|
pTos register
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_015d
|
|
|
|
code_0120: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_015d
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $6 ; maxScale
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pTos register
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
pushi $77 ; 119, 'w', textTop
|
|
lofsa string_00ca ; "Okay"
|
|
push
|
|
push0
|
|
pushi $91 ; 145, bitPutIndex
|
|
push2
|
|
calle export60029_0, $c
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa register
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_015d: toss
|
|
ret
|
|
|