1841 lines
27 KiB
Plaintext
1841 lines
27 KiB
Plaintext
HandsOnCode::cue:
|
|
pushi $276 ; 630, handsOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
<NIL>::getNextVerb:
|
|
push2
|
|
push0
|
|
pushSelf
|
|
callk kernel_158, $4
|
|
bnot
|
|
ret
|
|
|
|
<NIL>::clearQueue:
|
|
push1
|
|
push1
|
|
callk kernel_158, $2
|
|
bnot
|
|
ret
|
|
|
|
NullMover::doit:
|
|
pushi $64 ; 100, 'd', moveDone
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
Money::buildBaseList:
|
|
pushi $387 ; 903, addBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
pushi $387 ; 903, addBase
|
|
push1
|
|
class BDescribed
|
|
push
|
|
self $c
|
|
bnot
|
|
ret
|
|
|
|
Money::buildVerbList:
|
|
link $1
|
|
pushi $366 ; 870, buildVerbList
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super WorldObject, $6
|
|
bnot
|
|
pushi $337 ; 823, pValue
|
|
push0
|
|
pToa pOwner
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
not
|
|
bt code_04e3
|
|
pushi $12b ; 299, lessEqual
|
|
push1
|
|
push0
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_04e3: bnt code_0503
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $a ; 10, inTop
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $1d ; 29, brTop
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $b ; 11, inRight
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_0503: ret
|
|
|
|
Money::see:
|
|
link $2
|
|
pushi $337 ; 823, pValue
|
|
push0
|
|
pToa pOwner
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_0531
|
|
pushi $12d ; 301, greater
|
|
push1
|
|
push0
|
|
send $6
|
|
bnot
|
|
bnt code_0531
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_048d ; "You see %s in your money bag."
|
|
push
|
|
pTos pName
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0540
|
|
|
|
code_0531: pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_04ab ; "You see your empty money bag!"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_0540: pushi $4 ; scaleX
|
|
pushi $7 ; priority
|
|
push2
|
|
pushSelf
|
|
lst temp[$0]
|
|
callk kernel_118, $8
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Mana::buildBaseList:
|
|
pushi $387 ; 903, addBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
pushi $387 ; 903, addBase
|
|
push1
|
|
class BDescribed
|
|
push
|
|
self $c
|
|
bnot
|
|
ret
|
|
|
|
Mana::buildVerbList:
|
|
link $1
|
|
pushi $366 ; 870, buildVerbList
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super WorldObject, $6
|
|
bnot
|
|
pushi $338 ; 824, pManaValue
|
|
push0
|
|
pToa pOwner
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
not
|
|
bt code_058f
|
|
pushi $12b ; 299, lessEqual
|
|
push1
|
|
push0
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_058f: bnt code_05af
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $a ; 10, inTop
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $1d ; 29, brTop
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $b ; 11, inRight
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_05af: ret
|
|
|
|
Mana::see:
|
|
link $2
|
|
pushi $338 ; 824, pManaValue
|
|
push0
|
|
pToa pOwner
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_05dd
|
|
pushi $12d ; 301, greater
|
|
push1
|
|
push0
|
|
send $6
|
|
bnot
|
|
bnt code_05dd
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_04ce ; "You see %s in your crystal sack."
|
|
push
|
|
pTos pName
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_05ec
|
|
|
|
code_05dd: pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_04ef ; "You see your empty crystal sack!"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_05ec: pushi $4 ; scaleX
|
|
pushi $7 ; priority
|
|
push2
|
|
pushSelf
|
|
lst temp[$0]
|
|
callk kernel_118, $8
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::init:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super WorldActor, $4
|
|
bnot
|
|
class PolyPath
|
|
aTop pMover
|
|
pushi $8c ; 140, scratch
|
|
push1
|
|
pushSelf
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class MovieSet
|
|
send $4
|
|
bnot
|
|
aTop pOutgoingMovie
|
|
send $6
|
|
bnot
|
|
pushi $1ac ; 428, setLooper
|
|
push1
|
|
class Grooper
|
|
push
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::buildVerbList:
|
|
pushi $366 ; 870, buildVerbList
|
|
push0
|
|
&rest $1
|
|
super WorldActor, $4
|
|
bnot
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class SpellList
|
|
send $4
|
|
bnot
|
|
bnt code_0666
|
|
pushi $54f ; 1359, pFlags
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $100 ; 256, strMax
|
|
and
|
|
not
|
|
bnt code_0666
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $3a ; 58, ':', b_i1
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_0666: pTos pAction
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_067a
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $50 ; 80, 'P', claimed
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
jmp code_069a
|
|
|
|
code_067a: pushi $2c8 ; 712, lookup
|
|
push1
|
|
pushi $380 ; 896, pWhoToFollow
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$6a]
|
|
send $6
|
|
bnot
|
|
bnt code_069a
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $72 ; 114, 'r', skip
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_069a: ret
|
|
|
|
WorldEgo::fromPacket:
|
|
pushi $36c ; 876, fromPacket
|
|
push0
|
|
&rest $1
|
|
super WorldActor, $4
|
|
bnot
|
|
pushi $343 ; 835, pOwner
|
|
push1
|
|
pushSelf
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Money
|
|
send $4
|
|
bnot
|
|
aTop pMoneyObj
|
|
send $a
|
|
bnot
|
|
pushi $343 ; 835, pOwner
|
|
push1
|
|
pushSelf
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Mana
|
|
send $4
|
|
bnot
|
|
aTop pManaObj
|
|
send $a
|
|
bnot
|
|
pushi $38e ; 910, take
|
|
push1
|
|
pTos pMoneyObj
|
|
self $6
|
|
bnot
|
|
pushi $38e ; 910, take
|
|
push1
|
|
pTos pManaObj
|
|
self $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pTos pManaObj
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
self $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pTos pManaObj
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
self $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pTos pMoneyObj
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
self $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $aa ; 170, addToFront
|
|
push1
|
|
pTos pMoneyObj
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
self $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::setValue:
|
|
pushi $3d5 ; 981, setValue
|
|
push0
|
|
&rest $1
|
|
super WorldActor, $4
|
|
bnot
|
|
pushi $3d5 ; 981, setValue
|
|
push0
|
|
&rest $1
|
|
pToa pMoneyObj
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::setManaValue:
|
|
pushi $3d8 ; 984, setManaValue
|
|
push0
|
|
&rest $1
|
|
super WorldActor, $4
|
|
bnot
|
|
pushi $3d8 ; 984, setManaValue
|
|
push0
|
|
&rest $1
|
|
pToa pManaObj
|
|
send $4
|
|
bnot
|
|
pushi $3 ; z
|
|
pushi $6 ; maxScale
|
|
pushi $4 ; scaleX
|
|
pushi $338 ; 824, pManaValue
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
callk kernel_118, $6
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::hide:
|
|
pushi $383 ; 899, curPanel
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
pushi $a410 ; -23536
|
|
push0
|
|
callk kernel_2, $4
|
|
bnot
|
|
eq?
|
|
bnt code_07c2
|
|
pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_07cb
|
|
pTos signal
|
|
ldi $8 ; fixPriority
|
|
or
|
|
aTop signal
|
|
push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
jmp code_07cb
|
|
|
|
code_07c2: pushi $69 ; 105, 'i', hide
|
|
push0
|
|
&rest $1
|
|
super WorldActor, $4
|
|
bnot
|
|
code_07cb: ret
|
|
|
|
WorldEgo::startTargetting:
|
|
link $2
|
|
ldi $0
|
|
sat temp[$0]
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_07e0
|
|
lap param[$2]
|
|
aTop pClient
|
|
jmp code_07e5
|
|
|
|
code_07e0: ldi $0
|
|
aTop pClient
|
|
code_07e5: lap param[$1]
|
|
aTop pTargetting
|
|
pTos pTargetting
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0804
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_0510 ; "Choose target..."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0830
|
|
|
|
code_0804: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_081b
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_0521 ; "Choose grid location..."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0830
|
|
|
|
code_081b: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_0830
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_0539 ; "Choose location..."
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_0830: toss
|
|
ldi $0
|
|
sat temp[$1]
|
|
lag global[$d3]
|
|
bnt code_083d
|
|
ldi $e ; 14, view
|
|
sat temp[$1]
|
|
code_083d: lat temp[$0]
|
|
bnt code_0860
|
|
pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
push
|
|
pushi $5 ; scaleY
|
|
pushi $1e ; 30, brRight
|
|
lat temp[$1]
|
|
add
|
|
push
|
|
pushi $ff ; 255, asInteger
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class ShadowText
|
|
send $4
|
|
bnot
|
|
sal local[$0]
|
|
send $c
|
|
bnot
|
|
code_0860: ret
|
|
|
|
WorldEgo::stopTargetting:
|
|
lap param[$0]
|
|
not
|
|
bt code_0868
|
|
lap param[$1]
|
|
code_0868: bnt code_0879
|
|
pToa pClient
|
|
bnt code_0879
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
code_0879: push1
|
|
lsl local[$0]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0892
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lal local[$0]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sal local[$0]
|
|
code_0892: pToa pTargetting
|
|
bnt code_08b6
|
|
pushi $271 ; 625, handsLevel
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_08b6
|
|
pushi $1f5 ; 501, setIcon
|
|
push1
|
|
pushi $483 ; 1155, pLastIcon
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$6]
|
|
send $6
|
|
bnot
|
|
code_08b6: ldi $0
|
|
aTop pTargetting
|
|
aTop pClient
|
|
ret
|
|
|
|
WorldEgo::stopAction:
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
&rest $1
|
|
super WorldActor, $4
|
|
bnot
|
|
pushi $45c ; 1116, stopTargetting
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::handleEvent:
|
|
link $6
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pTos pMode
|
|
ldi $2
|
|
and
|
|
bnt code_08e8
|
|
ldi $0
|
|
ret
|
|
|
|
code_08e8: pToa pMovieCmd
|
|
bt code_08f2
|
|
pTos pAffectedLo
|
|
ldi $0
|
|
and
|
|
code_08f2: bnt code_0900
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
ret
|
|
|
|
code_0900: lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bt code_0918
|
|
lap param[$2]
|
|
not
|
|
bt code_0918
|
|
pushi $37d ; 893, servIDEquals
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
lap param[$2]
|
|
send $8
|
|
bnot
|
|
code_0918: bnt code_09d4
|
|
pushi $b9 ; 185, localize
|
|
push1
|
|
push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
bnt code_093d
|
|
selfID
|
|
sap param[$2]
|
|
jmp code_09d4
|
|
|
|
code_093d: ldi $0
|
|
aTop pDirectObject
|
|
aTop pIndirectObject
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $33 ; 51, '3', play
|
|
eq?
|
|
bnt code_097a
|
|
pushi $120 ; 288, setBit
|
|
push1
|
|
pushi $33 ; 51, '3', play
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
push2
|
|
pushi $33 ; 51, '3', play
|
|
pushi $279 ; 633, pFocusedRoom
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
jmp code_09d4
|
|
|
|
code_097a: lag global[$3]
|
|
bnt code_09a3
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $1ae ; 430, horizon
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_09a3
|
|
push2
|
|
push1
|
|
pushi $1ae ; 430, horizon
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_09a3: pushi $120 ; 288, setBit
|
|
push1
|
|
push1
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
pushi $3 ; z
|
|
push1
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $a
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
ret
|
|
|
|
code_09d4: lsp param[$0]
|
|
ldi $2
|
|
lt?
|
|
bnt code_09f6
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
bnt code_09eb
|
|
selfID
|
|
sap param[$2]
|
|
jmp code_09f6
|
|
|
|
code_09eb: pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
super WorldActor, $6
|
|
bnot
|
|
ret
|
|
|
|
code_09f6: lst temp[$0]
|
|
ldi $4000 ; 16384
|
|
and
|
|
bnt code_0e56
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pLastVerb
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $3a ; 58, ':', b_i1
|
|
eq?
|
|
bnt code_0a66
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $a3 ; 163, contains
|
|
push1
|
|
lsp param[$1]
|
|
push0
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_0e53
|
|
pushi $120 ; 288, setBit
|
|
push1
|
|
pushi $3a ; 58, ':', b_i1
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
pushi $3 ; z
|
|
pushi $3a ; 58, ':', b_i1
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $a
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0a66: dup
|
|
ldi $1b ; 27, illegalBits
|
|
eq?
|
|
bnt code_0b79
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0e53
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0e53
|
|
pTos pMode
|
|
ldi $2
|
|
and
|
|
bnt code_0e53
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_0e53
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
bnt code_0e53
|
|
pushi $4cc ; 1228, pFriend
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0e53
|
|
lap param[$2]
|
|
aTop pDirectObject
|
|
ldi $0
|
|
aTop pIndirectObject
|
|
push1
|
|
pushi $40f ; 1039, pWeapon
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0b15
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class BWeapon
|
|
push
|
|
pushi $40f ; 1039, pWeapon
|
|
push0
|
|
self $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_0b15
|
|
pushi $4e3 ; 1251, pDamageType
|
|
push0
|
|
pushi $40f ; 1039, pWeapon
|
|
push0
|
|
self $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_0b15
|
|
pushi $120 ; 288, setBit
|
|
push1
|
|
pushi $1b ; 27, illegalBits
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
push1
|
|
pushi $1b ; 27, illegalBits
|
|
self $6
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0b15: pushi $4 ; scaleX
|
|
pushi $43b ; 1083, pCombatX
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $43c ; 1084, pCombatY
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $43b ; 1083, pCombatX
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $43c ; 1084, pCombatY
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
callk kernel_64, $8
|
|
bnot
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_0b5d
|
|
pushi $120 ; 288, setBit
|
|
push1
|
|
pushi $1b ; 27, illegalBits
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
push1
|
|
pushi $1b ; 27, illegalBits
|
|
self $6
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0b5d: pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_054c ; "You are too far away to attack.\n"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$9c]
|
|
send $6
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0b79: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_0db4
|
|
pTos pTargetting
|
|
ldi $1
|
|
eq?
|
|
bnt code_0bd6
|
|
push1
|
|
lsp param[$2]
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bt code_0bb1
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $37d ; 893, servIDEquals
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
not
|
|
bt code_0bb1
|
|
pushi $37d ; 893, servIDEquals
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
lap param[$2]
|
|
send $8
|
|
bnot
|
|
code_0bb1: bnt code_0bd6
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
lofsa string_056d ; "That is not a valid target.\n"
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$9c]
|
|
send $6
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0bd6: pTos pTargetting
|
|
ldi $2
|
|
eq?
|
|
bnt code_0c5f
|
|
push1
|
|
lsp param[$2]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0c5f
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0c5f
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0c5f
|
|
pTos pMode
|
|
ldi $2
|
|
and
|
|
bnt code_0c5f
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_0c5f
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
bnt code_0c5f
|
|
pushi $43c ; 1084, pCombatY
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $18 ; 24, lsRight
|
|
mul
|
|
push
|
|
pushi $43b ; 1083, pCombatX
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
add
|
|
sat temp[$5]
|
|
push
|
|
ldi $1b0 ; 432, prevDir
|
|
lt?
|
|
bnt code_0e53
|
|
lst temp[$5]
|
|
ldi $0
|
|
ge?
|
|
bnt code_0e53
|
|
lat temp[$5]
|
|
sag global[$dd]
|
|
aTop pDirectObject
|
|
pushi $45c ; 1116, stopTargetting
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0c5f: pTos pTargetting
|
|
ldi $1
|
|
eq?
|
|
bnt code_0cce
|
|
push1
|
|
lsp param[$2]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0cce
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bt code_0cb0
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0cce
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
sat temp[$2]
|
|
bnt code_0cce
|
|
pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
pushi $4b0 ; 1200, pContainerButton
|
|
push0
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_0cb0: bnt code_0cce
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $37d ; 893, servIDEquals
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0cce
|
|
lap param[$2]
|
|
aTop pDirectObject
|
|
pushi $45c ; 1116, stopTargetting
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0cce: pushi $32d ; 813, pObj
|
|
push0
|
|
class WDragger
|
|
send $4
|
|
bnot
|
|
bnt code_0d3e
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
lap param[$2]
|
|
aTop pDirectObject
|
|
push
|
|
pushi $32d ; 813, pObj
|
|
push0
|
|
class WDragger
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_0d03
|
|
ldi $0
|
|
aTop pIndirectObject
|
|
pushi $38a ; 906, getVerb
|
|
push1
|
|
pushSelf
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0d03: lsp param[$2]
|
|
selfID
|
|
eq?
|
|
bnt code_0d25
|
|
pushi $32d ; 813, pObj
|
|
push0
|
|
class WDragger
|
|
send $4
|
|
bnot
|
|
aTop pDirectObject
|
|
ldi $0
|
|
aTop pIndirectObject
|
|
pushi $38a ; 906, getVerb
|
|
push1
|
|
pushSelf
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0d25: pushi $32d ; 813, pObj
|
|
push0
|
|
class WDragger
|
|
send $4
|
|
bnot
|
|
aTop pIndirectObject
|
|
pushi $38a ; 906, getVerb
|
|
push1
|
|
pTos pIndirectObject
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0d3e: pushi $381 ; 897, pMode
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
not
|
|
bnt code_0d8a
|
|
pushi $48 ; 72, 'H', modifiers
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0d8a
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0d8a
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0d8a
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $358 ; 856, startDragging
|
|
push1
|
|
lsp param[$2]
|
|
class WDragger
|
|
send $6
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0d8a: pushi $eb ; 235, onMe
|
|
push1
|
|
lsp param[$1]
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0e53
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
lap param[$2]
|
|
aTop pDirectObject
|
|
ldi $0
|
|
aTop pIndirectObject
|
|
pushi $38a ; 906, getVerb
|
|
push1
|
|
pushSelf
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0db4: dup
|
|
ldi $4b ; 75, 'K', at
|
|
eq?
|
|
bnt code_0de5
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $2f6 ; 758, zoom
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0e53
|
|
pushi $2f6 ; 758, zoom
|
|
push2
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$2]
|
|
send $8
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0de5: dup
|
|
ldi $4c ; 76, 'L', next
|
|
eq?
|
|
bnt code_0e06
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $2f7 ; 759, unzoom
|
|
lap param[$2]
|
|
send $6
|
|
bnot
|
|
bnt code_0e53
|
|
pushi $2f7 ; 759, unzoom
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0e06: dup
|
|
ldi $33 ; 51, '3', play
|
|
eq?
|
|
bnt code_0e3a
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
ldi $0
|
|
aTop pDirectObject
|
|
aTop pIndirectObject
|
|
pushi $120 ; 288, setBit
|
|
push1
|
|
pushi $33 ; 51, '3', play
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
pushi $316 ; 790, handleVerb
|
|
push2
|
|
pushi $33 ; 51, '3', play
|
|
pushi $279 ; 633, pFocusedRoom
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
jmp code_0e53
|
|
|
|
code_0e3a: pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
pushi $316 ; 790, handleVerb
|
|
push1
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_0e53: toss
|
|
jmp code_0e60
|
|
|
|
code_0e56: pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
super WorldActor, $6
|
|
bnot
|
|
code_0e60: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::handleVerb:
|
|
link $1
|
|
push1
|
|
pTos pDirectObject
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0e97
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class ContainerDisplay
|
|
push
|
|
pToa pDirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_0e97
|
|
pushi $365 ; 869, pSelf
|
|
push0
|
|
pushi $4b4 ; 1204, pContainer
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
aTop pDirectObject
|
|
code_0e97: push1
|
|
pTos pIndirectObject
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0ec3
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class ContainerDisplay
|
|
push
|
|
pToa pIndirectObject
|
|
send $6
|
|
bnot
|
|
bnt code_0ec3
|
|
pushi $365 ; 869, pSelf
|
|
push0
|
|
pushi $4b4 ; 1204, pContainer
|
|
push0
|
|
pToa pIndirectObject
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
aTop pIndirectObject
|
|
code_0ec3: lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0ed0
|
|
lap param[$2]
|
|
sat temp[$0]
|
|
jmp code_0ed4
|
|
|
|
code_0ed0: ldi $0
|
|
sat temp[$0]
|
|
code_0ed4: pToa pDirectObject
|
|
bnt code_0ef9
|
|
lsp param[$1]
|
|
ldi $2
|
|
eq?
|
|
bnt code_0ef9
|
|
pushi $39b ; 923, goto
|
|
push2
|
|
push1
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
pToa pDirectObject
|
|
send $4
|
|
bnot
|
|
push
|
|
self $8
|
|
bnot
|
|
ldi $1
|
|
ret
|
|
|
|
code_0ef9: lsp param[$1]
|
|
ldi $0
|
|
ne?
|
|
bnt code_0f12
|
|
pushi $123 ; 291, getBit
|
|
push1
|
|
lsp param[$1]
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_0f12
|
|
ldi $0
|
|
ret
|
|
|
|
code_0f12: pushi $316 ; 790, handleVerb
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super WorldActor, $6
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::showContents:
|
|
pushi $488 ; 1160, showInventoryPanel
|
|
push0
|
|
lag global[$6]
|
|
send $4
|
|
bnot
|
|
pushi $3a4 ; 932, showContents
|
|
push2
|
|
pushi $16e ; 366, dynamic
|
|
pushi $16b ; 363, clip
|
|
super WorldActor, $8
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::setMode:
|
|
pushi $3ba ; 954, setMode
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super WorldActor, $6
|
|
bnot
|
|
pushi $487 ; 1159, replaceIcons
|
|
push2
|
|
lsp param[$1]
|
|
push0
|
|
lag global[$6]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::clearMode:
|
|
pushi $3bb ; 955, clearMode
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super WorldActor, $6
|
|
bnot
|
|
pushi $487 ; 1159, replaceIcons
|
|
push2
|
|
pTos pMode
|
|
push0
|
|
lag global[$6]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::restoreMode:
|
|
pushi $3bd ; 957, restoreMode
|
|
push0
|
|
super WorldActor, $4
|
|
bnot
|
|
pushi $487 ; 1159, replaceIcons
|
|
push2
|
|
pTos pMode
|
|
push0
|
|
lag global[$6]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::isWizard:
|
|
lsg global[$d1]
|
|
ldi $64 ; 100, 'd', moveDone
|
|
eq?
|
|
ret
|
|
|
|
WorldEgo::see:
|
|
pushi $c2 ; 194, register
|
|
push1
|
|
pushSelf
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa LookAtCharacter
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
ret
|
|
|
|
WorldEgo::doit:
|
|
link $1
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
&rest $1
|
|
super WorldActor, $4
|
|
bnot
|
|
pushi $271 ; 625, handsLevel
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
bt code_0fb7
|
|
pToa script
|
|
bt code_0fb7
|
|
pToa pMovieCmd
|
|
code_0fb7: bnt code_0fba
|
|
ret
|
|
|
|
code_0fba: pushi $625 ; 1573, getNextVerb
|
|
push0
|
|
class <NIL>
|
|
send $4
|
|
bnot
|
|
bnt code_1003
|
|
pushi $624 ; 1572, pVerbID
|
|
push0
|
|
class <NIL>
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $120 ; 288, setBit
|
|
push1
|
|
push
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
pushi $31e ; 798, pDirectObject
|
|
push0
|
|
class <NIL>
|
|
send $4
|
|
bnot
|
|
aTop pDirectObject
|
|
pushi $3e3 ; 995, pIndirectObject
|
|
push0
|
|
class <NIL>
|
|
send $4
|
|
bnot
|
|
aTop pIndirectObject
|
|
pushi $316 ; 790, handleVerb
|
|
push2
|
|
lst temp[$0]
|
|
lofsa HandsOnCode
|
|
push
|
|
self $8
|
|
bnot
|
|
code_1003: ret
|
|
|
|
WorldEgo::setPassword:
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
pushi $31e ; 798, pDirectObject
|
|
push1
|
|
lsg global[$1]
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
pushi $c9 ; 201, setScript
|
|
push2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class WANetNewPassScript
|
|
send $4
|
|
bnot
|
|
push
|
|
pushSelf
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
LookAtCharacter::changeState:
|
|
link $3
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_1061
|
|
pushi $277 ; 631, controlOff
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
aTop scratch
|
|
pushi $50e ; 1294, getBiography
|
|
pushi $3 ; z
|
|
pTos register
|
|
pTos scratch
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $a
|
|
bnot
|
|
jmp code_10cc
|
|
|
|
code_1061: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_108b
|
|
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_10cc
|
|
|
|
code_108b: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_10b6
|
|
push1
|
|
pTos scratch
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_10a6
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa scratch
|
|
send $4
|
|
bnot
|
|
code_10a6: pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pTos register
|
|
class CreateLookDialog
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop cycles
|
|
jmp code_10cc
|
|
|
|
code_10b6: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_10cc
|
|
pushi $278 ; 632, controlOn
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_10cc: toss
|
|
ret
|
|
|