137 lines
2.1 KiB
Plaintext
137 lines
2.1 KiB
Plaintext
BShop::buildVerbList:
|
|
link $2
|
|
class VerbList
|
|
sat temp[$0]
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldEgo
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0068
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $3f ; 63, '?', xStep
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $2b5c ; 11100
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $2b75 ; 11125
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_011e
|
|
|
|
code_0068: pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_011e
|
|
pushi $3a8 ; 936, owns
|
|
push2
|
|
lsp param[$1]
|
|
push1
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
bnt code_011e
|
|
pushi $40d ; 1037, pMoney
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_009f
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
code_009f: bt code_00ab
|
|
pushi $40d ; 1037, pMoney
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
code_00ab: bnt code_011e
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_00c4
|
|
pushi $41e ; 1054, pIsWorn
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_00c4: not
|
|
bnt code_00d2
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $49 ; 73, 'I', replay
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_00d2: pushi $35c ; 860, getBase
|
|
push1
|
|
class BUse
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_00eb
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $7c ; 124, '|', titleBack
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_00eb: pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_0103
|
|
pushi $41e ; 1054, pIsWorn
|
|
push0
|
|
send $4
|
|
bnot
|
|
not
|
|
code_0103: bt code_0111
|
|
pushi $386 ; 902, hasBase
|
|
push1
|
|
class BMix
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_0111: bnt code_011e
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $25 ; 37, '%', fore
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_011e: ret
|
|
|