42 lines
580 B
Plaintext
42 lines
580 B
Plaintext
BSit::buildVerbList:
|
|
link $2
|
|
class VerbList
|
|
sat temp[$0]
|
|
pushi $35b ; 859, getOwner
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pSelf
|
|
eq?
|
|
bnt code_0070
|
|
pToa pOwner
|
|
not
|
|
bnt code_0070
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldEgo
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0070
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
ne?
|
|
bnt code_0070
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $1a ; 26, signal
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_0070: ret
|
|
|