90 lines
1.3 KiB
Plaintext
90 lines
1.3 KiB
Plaintext
BUse::buildVerbList:
|
|
link $2
|
|
class VerbList
|
|
sat temp[$0]
|
|
pToa pOwner
|
|
not
|
|
bnt code_00c8
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldEgo
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_00c8
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
not
|
|
bt code_006b
|
|
pushi $3a9 ; 937, isOwnedBy
|
|
push1
|
|
lsg global[$1]
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
code_006b: bnt code_00c8
|
|
pTos pVerb
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0082
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $79 ; 121, 'y', textBottom
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_00c7
|
|
|
|
code_0082: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_0095
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $7a ; 122, 'z', borderColor
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_00c7
|
|
|
|
code_0095: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_00a8
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $7b ; 123, '{', titleFore
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_00c7
|
|
|
|
code_00a8: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_00bc
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $81 ; 129, magnifier
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_00c7
|
|
|
|
code_00bc: pushi $9f ; 159, add
|
|
push1
|
|
pushi $7 ; priority
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_00c7: toss
|
|
code_00c8: ret
|
|
|