8075 lines
118 KiB
Plaintext
8075 lines
118 KiB
Plaintext
export40005_0 = catchUpOnMessages
|
|
export40005_1 = code_086a
|
|
export40005_2 = code_08b8
|
|
|
|
GPolyBitmap::init:
|
|
link $e
|
|
ret
|
|
|
|
pToa bitmap
|
|
bnt code_047f
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop bitmap
|
|
code_047f: pushi $5 ; scaleY
|
|
push0
|
|
pushi $280 ; 640, disposeWhenDone
|
|
pushi $1e0 ; 480, isControl
|
|
push0
|
|
push0
|
|
callk kernel_35, $a
|
|
bnot
|
|
aTop bitmap
|
|
lap param[$0]
|
|
bnt code_04a1
|
|
pushi $16d ; 365, obstacles
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_04b3
|
|
|
|
code_04a1: pushi $16d ; 365, obstacles
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
code_04b3: lat temp[$1]
|
|
not
|
|
bnt code_04b9
|
|
ret
|
|
|
|
code_04b9: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_04c7: lst temp[$0]
|
|
lat temp[$2]
|
|
lt?
|
|
bnt code_0651
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $5b ; 91, '[', points
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$5]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
sat temp[$7]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push1
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
sat temp[$8]
|
|
lat temp[$7]
|
|
sat temp[$a]
|
|
lat temp[$8]
|
|
sat temp[$b]
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4 ; scaleX
|
|
gt?
|
|
bnt code_051f
|
|
ldi $3f ; 63, '?', xStep
|
|
sat temp[$c]
|
|
jmp code_0523
|
|
|
|
code_051f: ldi $2b ; 43, '+', type
|
|
sat temp[$c]
|
|
code_0523: ldi $1
|
|
sat temp[$6]
|
|
code_0527: lst temp[$6]
|
|
lat temp[$5]
|
|
lt?
|
|
bnt code_05e1
|
|
pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
lst temp[$7]
|
|
lst temp[$8]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$6]
|
|
ldi $2
|
|
mul
|
|
push
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
push
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$6]
|
|
ldi $2
|
|
mul
|
|
push
|
|
ldi $1
|
|
add
|
|
push
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
push
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Line
|
|
send $4
|
|
bnot
|
|
sat temp[$d]
|
|
send $c
|
|
bnot
|
|
pushi $16b ; 363, clip
|
|
push1
|
|
push0
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$d]
|
|
send $6
|
|
bnot
|
|
bnt code_05af
|
|
pushi $7 ; priority
|
|
push2
|
|
pTos bitmap
|
|
pushi $167 ; 359, pX1
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $168 ; 360, pY1
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $169 ; 361, pX2
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $16a ; 362, pY2
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$c]
|
|
callk kernel_35, $e
|
|
bnot
|
|
code_05af: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$6]
|
|
ldi $2
|
|
mul
|
|
push
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
sat temp[$7]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$6]
|
|
ldi $2
|
|
mul
|
|
push
|
|
ldi $1
|
|
add
|
|
push
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
sat temp[$8]
|
|
+at temp[$6]
|
|
jmp code_0527
|
|
|
|
code_05e1: pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
lst temp[$7]
|
|
lst temp[$8]
|
|
lst temp[$a]
|
|
lst temp[$b]
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Line
|
|
send $4
|
|
bnot
|
|
sat temp[$d]
|
|
send $c
|
|
bnot
|
|
pushi $16b ; 363, clip
|
|
push1
|
|
push0
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$d]
|
|
send $6
|
|
bnot
|
|
bnt code_0643
|
|
pushi $7 ; priority
|
|
push2
|
|
pTos bitmap
|
|
pushi $167 ; 359, pX1
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $168 ; 360, pY1
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $169 ; 361, pX2
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $16a ; 362, pY2
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$c]
|
|
callk kernel_35, $e
|
|
bnot
|
|
code_0643: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$d]
|
|
send $4
|
|
bnot
|
|
+at temp[$0]
|
|
jmp code_04c7
|
|
|
|
code_0651: ldi $1e0 ; 480, isControl
|
|
aTop y
|
|
aTop z
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $2
|
|
super View, $4
|
|
bnot
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
ret
|
|
|
|
VerbArray::setBit:
|
|
link $4
|
|
pToa data
|
|
not
|
|
bnt code_067e
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $c8 ; 200, handleEvent
|
|
pTos type
|
|
callk kernel_91, $6
|
|
bnot
|
|
aTop data
|
|
code_067e: lsp param[$1]
|
|
ldi $8 ; fixPriority
|
|
div
|
|
sat temp[$0]
|
|
push2
|
|
lsp param[$1]
|
|
pushi $8 ; fixPriority
|
|
calle export60025_1, $4
|
|
bnot
|
|
sat temp[$1]
|
|
push1
|
|
shl
|
|
sat temp[$2]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
sat temp[$3]
|
|
push
|
|
lat temp[$2]
|
|
or
|
|
sat temp[$3]
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$0]
|
|
push
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
VerbArray::getBit:
|
|
link $4
|
|
pToa data
|
|
not
|
|
bnt code_06c6
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $c8 ; 200, handleEvent
|
|
pTos type
|
|
callk kernel_91, $6
|
|
bnot
|
|
aTop data
|
|
code_06c6: lsp param[$1]
|
|
ldi $8 ; fixPriority
|
|
div
|
|
sat temp[$0]
|
|
push2
|
|
lsp param[$1]
|
|
pushi $8 ; fixPriority
|
|
calle export60025_1, $4
|
|
bnot
|
|
sat temp[$1]
|
|
push1
|
|
shl
|
|
sat temp[$2]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
sat temp[$3]
|
|
push
|
|
lat temp[$2]
|
|
and
|
|
ret
|
|
|
|
VerbArray::clearBit:
|
|
link $4
|
|
pToa data
|
|
not
|
|
bnt code_0703
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $c8 ; 200, handleEvent
|
|
pTos type
|
|
callk kernel_91, $6
|
|
bnot
|
|
aTop data
|
|
code_0703: lsp param[$1]
|
|
ldi $8 ; fixPriority
|
|
div
|
|
sat temp[$0]
|
|
push2
|
|
lsp param[$1]
|
|
pushi $8 ; fixPriority
|
|
calle export60025_1, $4
|
|
bnot
|
|
sat temp[$1]
|
|
push1
|
|
shl
|
|
sat temp[$2]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
xor
|
|
sat temp[$2]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
sat temp[$3]
|
|
push
|
|
lat temp[$2]
|
|
and
|
|
sat temp[$3]
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$0]
|
|
push
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
VerbArray::fill:
|
|
link $1
|
|
pToa data
|
|
sat temp[$0]
|
|
pushi $3 ; z
|
|
push0
|
|
pushi $c8 ; 200, handleEvent
|
|
pTos type
|
|
callk kernel_91, $6
|
|
bnot
|
|
aTop data
|
|
lat temp[$0]
|
|
bnt code_075c
|
|
push2
|
|
pushi $4 ; scaleX
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
code_075c: pushi $d6 ; 214, fill
|
|
push0
|
|
&rest $1
|
|
super ByteArray, $4
|
|
bnot
|
|
ret
|
|
|
|
VerbList::add:
|
|
link $1
|
|
ldi $0
|
|
sat temp[$0]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
self $4
|
|
bnot
|
|
not
|
|
bnt code_077e
|
|
pToa elements
|
|
sat temp[$0]
|
|
ldi $0
|
|
aTop elements
|
|
code_077e: pushi $120 ; 288, setBit
|
|
push1
|
|
lsp param[$1]
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lsp param[$1]
|
|
super Set, $6
|
|
bnot
|
|
lat temp[$0]
|
|
bnt code_079f
|
|
push2
|
|
push1
|
|
push
|
|
callk kernel_90, $4
|
|
bnot
|
|
code_079f: ret
|
|
|
|
VerbList::release:
|
|
pushi $94 ; 148, init
|
|
push1
|
|
push0
|
|
class VerbArray
|
|
send $6
|
|
bnot
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
super Set, $4
|
|
bnot
|
|
ret
|
|
|
|
catchUpOnMessages::doit:
|
|
link $a
|
|
lag global[$d5]
|
|
sat temp[$0]
|
|
ldi $0
|
|
sag global[$4f]
|
|
push0
|
|
callk kernel_121, $0
|
|
bnot
|
|
sat temp[$5]
|
|
ldi $1
|
|
sat temp[$9]
|
|
code_07c9: lag global[$32]
|
|
not
|
|
bnt code_0861
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class MovieCmdList
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
bnt code_0861
|
|
lat temp[$9]
|
|
bnt code_0861
|
|
ldi $0
|
|
sat temp[$1]
|
|
code_07e5: lst temp[$1]
|
|
lat temp[$2]
|
|
lt?
|
|
bnt code_084f
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$1]
|
|
class MovieCmdList
|
|
send $6
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $33f ; 831, pClient
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
ldi $0
|
|
sat temp[$9]
|
|
lat temp[$4]
|
|
bnt code_084b
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_084b
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
bnt code_0827
|
|
lst temp[$4]
|
|
lag global[$1]
|
|
ne?
|
|
code_0827: bt code_0843
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class LongInt
|
|
push
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
bnt code_084b
|
|
pushi $37d ; 893, servIDEquals
|
|
push1
|
|
lst temp[$4]
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
not
|
|
code_0843: bnt code_084b
|
|
ldi $1
|
|
sat temp[$9]
|
|
jmp code_084f
|
|
|
|
code_084b: +at temp[$1]
|
|
jmp code_07e5
|
|
|
|
code_084f: lat temp[$9]
|
|
not
|
|
bnt code_0856
|
|
jmp code_0861
|
|
|
|
code_0856: pushi $45 ; 69, 'E', doit
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
jmp code_07c9
|
|
|
|
code_0861: ldi $1
|
|
sag global[$4f]
|
|
lat temp[$0]
|
|
sag global[$d5]
|
|
code_0869: ret
|
|
|
|
; export40005_1
|
|
code_086a: lal local[$0]
|
|
not
|
|
bnt code_08b5
|
|
pushi $9f ; 159, add
|
|
push2
|
|
pushi $fe ; 254, strIndex
|
|
pushi $4b ; 75, 'K', at
|
|
class Remaps
|
|
send $8
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push2
|
|
pushi $f0 ; 240, drawSelected
|
|
pushi $32 ; 50, '2', edit
|
|
class Remaps
|
|
send $8
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push2
|
|
pushi $f1 ; 241, scale
|
|
pushi $41 ; 65, 'A', moveSpeed
|
|
class Remaps
|
|
send $8
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push2
|
|
pushi $f2 ; 242, pCast
|
|
pushi $50 ; 80, 'P', claimed
|
|
class Remaps
|
|
send $8
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push2
|
|
pushi $f3 ; 243, nextEvent
|
|
pushi $5f ; 95, '_', min
|
|
class Remaps
|
|
send $8
|
|
bnot
|
|
code_08b5: +al local[$0]
|
|
code_08b7: ret
|
|
|
|
; export40005_2
|
|
code_08b8: -al local[$0]
|
|
not
|
|
bnt code_08f4
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $fe ; 254, strIndex
|
|
class Remaps
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $f0 ; 240, drawSelected
|
|
class Remaps
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $f1 ; 241, scale
|
|
class Remaps
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $f2 ; 242, pCast
|
|
class Remaps
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $f3 ; 243, nextEvent
|
|
class Remaps
|
|
send $6
|
|
bnot
|
|
code_08f4: ret
|
|
|
|
WorldObject::init:
|
|
ldi $0
|
|
aTop pAffectedLo
|
|
aTop pAffectedHi
|
|
pTos pBaseView
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0906
|
|
pToa view
|
|
aTop pBaseView
|
|
code_0906: pTos pBaseView
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0914
|
|
pTos pBaseView
|
|
pToa pAction
|
|
add
|
|
aTop view
|
|
code_0914: ldi $5 ; scaleY
|
|
aTop approachX
|
|
aTop approachY
|
|
pToa pMover
|
|
not
|
|
bnt code_0923
|
|
class MoveTo
|
|
aTop pMover
|
|
code_0923: pushi $373 ; 883, setAction
|
|
push1
|
|
pTos pAction
|
|
pushi $3c8 ; 968, matchScaler
|
|
push1
|
|
lsg global[$3]
|
|
self $c
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Act, $4
|
|
bnot
|
|
pushi $389 ; 905, buildBaseList
|
|
push0
|
|
pushi $19d ; 413, setSignal
|
|
push1
|
|
pushi $1000 ; 4096, -objID-
|
|
pushi $3ae ; 942, setColor
|
|
push1
|
|
pTos pColor
|
|
pushi $3c2 ; 962, generatePolygon
|
|
push0
|
|
pushi $3c3 ; 963, submitPolygon
|
|
push0
|
|
self $18
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
bt code_0972
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
self $6
|
|
bnot
|
|
bt code_0972
|
|
pToa pClutStart
|
|
code_0972: aTop pBitmapBased
|
|
lag global[$f3]
|
|
not
|
|
bnt code_0996
|
|
pToa pName
|
|
bnt code_0996
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bnt code_0996
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
pTos pName
|
|
class Str
|
|
send $6
|
|
bnot
|
|
aTop pName
|
|
code_0996: ret
|
|
|
|
WorldObject::dispose:
|
|
link $7
|
|
push2
|
|
push2
|
|
pushSelf
|
|
callk kernel_158, $4
|
|
bnot
|
|
pushi $3 ; z
|
|
pushi $12 ; 18, nsLeft
|
|
push1
|
|
pushSelf
|
|
callk kernel_118, $6
|
|
bnot
|
|
push1
|
|
pTos pMovieCmd
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_09fb
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class MovieCmd
|
|
push
|
|
pToa pMovieCmd
|
|
send $6
|
|
bnot
|
|
bnt code_09fb
|
|
pushi $418 ; 1048, pCmd
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2710 ; 10000
|
|
ne?
|
|
bnt code_09fb
|
|
pushi $418 ; 1048, pCmd
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3e ; 62, '>', b_incr
|
|
ne?
|
|
bnt code_09fb
|
|
pushi $5 ; scaleY
|
|
lofsa string_02a2 ; "%s(0x%x) is being disposed while a movie command is active on it.\n"
|
|
push
|
|
pTos pName
|
|
pushSelf
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos pMovieCmd
|
|
callk kernel_132, $a
|
|
bnot
|
|
code_09fb: pushi $9d ; 157, eachElementDo
|
|
pushi $3 ; z
|
|
pushi $9c ; 156, handleError
|
|
class DisposeNotifyList
|
|
push
|
|
pushSelf
|
|
class DisposeNotifyList
|
|
send $a
|
|
bnot
|
|
lag global[$1]
|
|
bnt code_0a54
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_0a54
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WANetScript
|
|
push
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_0a54
|
|
pushi $31e ; 798, pDirectObject
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
selfID
|
|
eq?
|
|
bt code_0a49
|
|
pushi $3e3 ; 995, pIndirectObject
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
selfID
|
|
eq?
|
|
code_0a49: bnt code_0a54
|
|
pushi $3a6 ; 934, stopAction
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
code_0a54: push1
|
|
pTos pInvisibleClut
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0a85
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Clut
|
|
push
|
|
pToa pInvisibleClut
|
|
send $6
|
|
bnot
|
|
bnt code_0a85
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pInvisibleClut
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pInvisibleClut
|
|
push0
|
|
call code_08b7, $0
|
|
bnot
|
|
code_0a85: push1
|
|
pTos pFrozenClut
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0ab0
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Clut
|
|
push
|
|
pToa pFrozenClut
|
|
send $6
|
|
bnot
|
|
bnt code_0ab0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pFrozenClut
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pFrozenClut
|
|
code_0ab0: push1
|
|
pTos clut
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0ad7
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Clut
|
|
push
|
|
pToa clut
|
|
send $6
|
|
bnot
|
|
bnt code_0ad7
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa clut
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop clut
|
|
code_0ad7: pushi $3c6 ; 966, deleteFromRoom
|
|
push0
|
|
self $4
|
|
bnot
|
|
ldi $0
|
|
sat temp[$3]
|
|
code_0ae2: lst temp[$3]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class gDialogList
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0b3f
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$3]
|
|
class gDialogList
|
|
send $6
|
|
bnot
|
|
sat temp[$6]
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0b3b
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class VerbDialog
|
|
push
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
bnt code_0b3b
|
|
pushi $142 ; 322, pObject
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
push
|
|
selfID
|
|
eq?
|
|
bnt code_0b3b
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lst temp[$6]
|
|
class gDialogList
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_0b3f
|
|
|
|
code_0b3b: +at temp[$3]
|
|
jmp code_0ae2
|
|
|
|
code_0b3f: pushi $32d ; 813, pObj
|
|
push0
|
|
class WDragger
|
|
send $4
|
|
bnot
|
|
push
|
|
selfID
|
|
eq?
|
|
bnt code_0b56
|
|
pushi $359 ; 857, stopDragging
|
|
push0
|
|
class WDragger
|
|
send $4
|
|
bnot
|
|
code_0b56: pToa pBaseList
|
|
bnt code_0b66
|
|
pushi $3 ; z
|
|
pushi $13 ; 19, nsTop
|
|
push
|
|
pushi $36e ; 878, preDispose
|
|
callk kernel_90, $6
|
|
bnot
|
|
code_0b66: pushi $3dc ; 988, deleteFromServer
|
|
push0
|
|
self $4
|
|
bnot
|
|
pToa pBaseList
|
|
bnt code_0bd8
|
|
push1
|
|
push0
|
|
callk kernel_90, $2
|
|
bnot
|
|
sat temp[$1]
|
|
ldi $0
|
|
sat temp[$3]
|
|
code_0b7e: lst temp[$3]
|
|
push2
|
|
pushi $17 ; 23, lsTop
|
|
pTos pBaseList
|
|
callk kernel_90, $4
|
|
bnot
|
|
lt?
|
|
bnt code_0ba7
|
|
pushi $3 ; z
|
|
pushi $b ; 11, inRight
|
|
lst temp[$1]
|
|
pushi $3 ; z
|
|
pushi $11 ; 17, bitmap
|
|
pTos pBaseList
|
|
lst temp[$3]
|
|
callk kernel_90, $6
|
|
bnot
|
|
push
|
|
callk kernel_90, $6
|
|
bnot
|
|
+at temp[$3]
|
|
jmp code_0b7e
|
|
|
|
code_0ba7: push2
|
|
push1
|
|
pTos pBaseList
|
|
callk kernel_90, $4
|
|
bnot
|
|
push1
|
|
push0
|
|
callk kernel_90, $2
|
|
bnot
|
|
aTop pBaseList
|
|
pushi $3 ; z
|
|
pushi $13 ; 19, nsTop
|
|
lst temp[$1]
|
|
pushi $95 ; 149, dispose
|
|
callk kernel_90, $6
|
|
bnot
|
|
push2
|
|
push1
|
|
lst temp[$1]
|
|
callk kernel_90, $4
|
|
bnot
|
|
push2
|
|
push1
|
|
pTos pBaseList
|
|
callk kernel_90, $4
|
|
bnot
|
|
ldi $0
|
|
aTop pBaseList
|
|
code_0bd8: pToa pUpdatorList
|
|
bnt code_0beb
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $8
|
|
bnot
|
|
ldi $0
|
|
aTop pUpdatorList
|
|
code_0beb: pToa pOutgoingMovie
|
|
bnt code_0bfa
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pOutgoingMovie
|
|
code_0bfa: pushi $3b0 ; 944, disposeBitmap
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $3c4 ; 964, removePolygon
|
|
push0
|
|
self $4
|
|
bnot
|
|
pToa pPolygon
|
|
bnt code_0c24
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0c24
|
|
pushi $16f ; 367, pDispose
|
|
push1
|
|
push1
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pPolygon
|
|
send $a
|
|
bnot
|
|
ldi $0
|
|
aTop pPolygon
|
|
code_0c24: pToa pValue
|
|
bnt code_0c33
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pValue
|
|
code_0c33: pToa pManaValue
|
|
bnt code_0c42
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pManaValue
|
|
code_0c42: pushi $3df ; 991, setServID
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
self $8
|
|
bnot
|
|
pToa pCombatGroup
|
|
bnt code_0c5d
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pCombatGroup
|
|
code_0c5d: pushi $38c ; 908, setMessage
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
pushi $3db ; 987, setName
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
pToa pAffectedHi
|
|
bnt code_0c7c
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pAffectedHi
|
|
code_0c7c: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Act, $4
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::handleEvent:
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4000 ; 16384
|
|
and
|
|
bnt code_0ca3
|
|
pushi $c8 ; 200, handleEvent
|
|
push2
|
|
lsp param[$1]
|
|
pushSelf
|
|
lag global[$1]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
code_0ca3: ldi $0
|
|
ret
|
|
|
|
WorldObject::onMe:
|
|
pTos pServIDLo
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0cb7
|
|
pTos pServIDHi
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0cb7
|
|
ldi $0
|
|
ret
|
|
|
|
code_0cb7: pushi $eb ; 235, onMe
|
|
push0
|
|
&rest $1
|
|
super Act, $4
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::doit:
|
|
link $1
|
|
pToa pDispose
|
|
bnt code_0cea
|
|
pToa pMovieCmd
|
|
sat temp[$0]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
push1
|
|
lst temp[$0]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0cf8
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
jmp code_0cf8
|
|
|
|
code_0cea: pToa pPaused
|
|
not
|
|
bnt code_0cf8
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
&rest $1
|
|
super Act, $4
|
|
bnot
|
|
code_0cf8: ret
|
|
|
|
WorldObject::update:
|
|
pToa pMsgStr
|
|
bnt code_0d05
|
|
pushi $32e ; 814, follow
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_0d05: lag global[$64]
|
|
not
|
|
bnt code_0d12
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
code_0d12: pushi $1ad ; 429, update
|
|
push0
|
|
super Act, $4
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::getBitmap:
|
|
link $1
|
|
pToa pBitmapBased
|
|
bnt code_0d2e
|
|
pushi $3aa ; 938, createDisplay
|
|
push1
|
|
pushi $1d ; 29, brTop
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_0d42
|
|
|
|
code_0d2e: pushi $7 ; priority
|
|
pushi $9 ; inLeft
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
push1
|
|
callk kernel_35, $e
|
|
bnot
|
|
sat temp[$0]
|
|
code_0d42: pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::buildVerbList:
|
|
link $1
|
|
pushi $a6 ; 166, release
|
|
push0
|
|
class VerbList
|
|
send $4
|
|
bnot
|
|
pTos pServIDLo
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0d86
|
|
pTos pServIDHi
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_0d86
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Money
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_0d86
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Mana
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_0d86
|
|
ldi $0
|
|
ret
|
|
|
|
code_0d86: pToa pBaseList
|
|
bnt code_0e10
|
|
pushi $3 ; z
|
|
pushi $13 ; 19, nsTop
|
|
push
|
|
pushi $366 ; 870, buildVerbList
|
|
&rest $1
|
|
callk kernel_90, $6
|
|
bnot
|
|
pushi $35b ; 859, getOwner
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
selfID
|
|
ne?
|
|
bnt code_0e10
|
|
pushi $54f ; 1359, pFlags
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $400 ; 1024, pEndurance
|
|
and
|
|
bnt code_0de5
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $11 ; 17, bitmap
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $12 ; 18, nsLeft
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $7 ; priority
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushi $1d ; 29, brTop
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_0de5: pushi $54f ; 1359, pFlags
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $200 ; 512, bottomValue
|
|
and
|
|
bnt code_0e10
|
|
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
|
|
code_0e10: pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldEgo
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0e8a
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $3 ; z
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
pushSelf
|
|
lag global[$1]
|
|
ne?
|
|
bnt code_0e54
|
|
pushSelf
|
|
pushi $3a7 ; 935, getBaseOwner
|
|
push0
|
|
self $4
|
|
bnot
|
|
eq?
|
|
bnt code_0e54
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
ne?
|
|
bnt code_0e54
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push2
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_0e54: pushi $35c ; 860, getBase
|
|
push1
|
|
class BDye
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_0e8a
|
|
pushi $631 ; 1585, pHairDye
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_0e8a
|
|
pushi $3a9 ; 937, isOwnedBy
|
|
push1
|
|
lsg global[$1]
|
|
self $6
|
|
bnot
|
|
bnt code_0e8a
|
|
lsg global[$1]
|
|
lap param[$1]
|
|
eq?
|
|
bnt code_0e8a
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $2b8e ; 11150
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_0e8a: ret
|
|
|
|
WorldObject::handleVerb:
|
|
ldi $0
|
|
ret
|
|
|
|
WorldObject::getVerb:
|
|
pushi $366 ; 870, buildVerbList
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
class VerbList
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_0ea3
|
|
ret
|
|
|
|
code_0ea3: pushi $8d ; 141, new
|
|
push2
|
|
class VerbList
|
|
push
|
|
pushSelf
|
|
class VerbDialog
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::cue:
|
|
pToa pMsgStr
|
|
bnt code_0eb9
|
|
ldi $0
|
|
aTop pMsgStr
|
|
code_0eb9: ret
|
|
|
|
WorldObject::setMessage:
|
|
link $1
|
|
lag global[$1]
|
|
not
|
|
bt code_0ed9
|
|
pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
not
|
|
bt code_0ed9
|
|
push0
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
push0
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
ne?
|
|
code_0ed9: bnt code_0ef1
|
|
push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0ef0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
code_0ef0: ret
|
|
|
|
code_0ef1: pToa pMsgStr
|
|
bnt code_0f18
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0f18
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class ShadowText
|
|
push
|
|
pToa pMsgStr
|
|
send $6
|
|
bnot
|
|
bnt code_0f18
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pMsgStr
|
|
send $4
|
|
bnot
|
|
code_0f18: ldi $0
|
|
aTop pMsgStr
|
|
lap param[$1]
|
|
bnt code_0f9d
|
|
push2
|
|
push1
|
|
push2
|
|
pushi $9 ; inLeft
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_92, $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
div
|
|
sat temp[$0]
|
|
push
|
|
ldi $3 ; z
|
|
lt?
|
|
bnt code_0f40
|
|
ldi $3 ; z
|
|
sat temp[$0]
|
|
code_0f40: lst temp[$0]
|
|
ldi $8 ; fixPriority
|
|
gt?
|
|
bnt code_0f4b
|
|
ldi $8 ; fixPriority
|
|
sat temp[$0]
|
|
code_0f4b: pushi $8d ; 141, new
|
|
push0
|
|
class ShadowText
|
|
send $4
|
|
bnot
|
|
aTop pMsgStr
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_0f67
|
|
pushi $25 ; 37, '%', fore
|
|
push1
|
|
lsp param[$2]
|
|
pToa pMsgStr
|
|
send $6
|
|
bnot
|
|
code_0f67: pushi $94 ; 148, init
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
push0
|
|
push0
|
|
lst temp[$0]
|
|
pushi $df ; 223, centerOn
|
|
push1
|
|
pushi $3a7 ; 935, getBaseOwner
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pToa pMsgStr
|
|
send $12
|
|
bnot
|
|
push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0f9d
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sap param[$1]
|
|
code_0f9d: ret
|
|
|
|
WorldObject::perform:
|
|
link $6
|
|
ldi $1
|
|
sat temp[$1]
|
|
pToa pBaseList
|
|
bnt code_1030
|
|
pushi $4 ; scaleX
|
|
pushi $14 ; 20, nsRight
|
|
push
|
|
pushi $367 ; 871, handlesAction
|
|
lsp param[$1]
|
|
callk kernel_90, $8
|
|
bnot
|
|
sat temp[$0]
|
|
push2
|
|
pushi $17 ; 23, lsTop
|
|
pTos pBaseList
|
|
callk kernel_90, $4
|
|
bnot
|
|
sat temp[$4]
|
|
ldi $0
|
|
sat temp[$5]
|
|
code_0fc8: lst temp[$5]
|
|
lat temp[$4]
|
|
lt?
|
|
bnt code_1019
|
|
pushi $3 ; z
|
|
pushi $11 ; 17, bitmap
|
|
pTos pBaseList
|
|
lst temp[$5]
|
|
callk kernel_90, $6
|
|
bnot
|
|
sat temp[$3]
|
|
push
|
|
lat temp[$0]
|
|
ne?
|
|
bnt code_1015
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
lsp param[$1]
|
|
lat temp[$3]
|
|
send $6
|
|
bnot
|
|
bnt code_1015
|
|
pushi $367 ; 871, handlesAction
|
|
push1
|
|
lsp param[$1]
|
|
lat temp[$3]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_1015
|
|
lsp param[$1]
|
|
push0
|
|
&rest $2
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
ldi $1
|
|
ne?
|
|
bnt code_1015
|
|
jmp code_1019
|
|
|
|
code_1015: +at temp[$5]
|
|
jmp code_0fc8
|
|
|
|
code_1019: lst temp[$1]
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_102f
|
|
lat temp[$0]
|
|
bnt code_102f
|
|
lsp param[$1]
|
|
push0
|
|
&rest $2
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
code_102f: toss
|
|
code_1030: lat temp[$1]
|
|
ret
|
|
|
|
WorldObject::getBase:
|
|
pToa pBaseList
|
|
bnt code_1046
|
|
pushi $4 ; scaleX
|
|
pushi $14 ; 20, nsRight
|
|
push
|
|
pushi $97 ; 151, isKindOf
|
|
lsp param[$1]
|
|
callk kernel_90, $8
|
|
bnot
|
|
ret
|
|
|
|
code_1046: ldi $0
|
|
ret
|
|
|
|
WorldObject::getBaseCharacter:
|
|
pToa pBaseList
|
|
bnt code_105d
|
|
pushi $4 ; scaleX
|
|
pushi $14 ; 20, nsRight
|
|
push
|
|
pushi $97 ; 151, isKindOf
|
|
class BCharacter
|
|
push
|
|
callk kernel_90, $8
|
|
bnot
|
|
ret
|
|
|
|
code_105d: ldi $0
|
|
ret
|
|
|
|
WorldObject::hasBase:
|
|
link $1
|
|
pushi $2bb ; 699, pType
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $10 ; 16, cel
|
|
ge?
|
|
bnt code_1083
|
|
lst temp[$0]
|
|
ldi $10 ; 16, cel
|
|
sub
|
|
sat temp[$0]
|
|
pTos pBaseBitsHi
|
|
push1
|
|
shl
|
|
and
|
|
ret
|
|
|
|
jmp code_108c
|
|
|
|
code_1083: pTos pBaseBitsLo
|
|
push1
|
|
lat temp[$0]
|
|
shl
|
|
and
|
|
ret
|
|
|
|
code_108c: ret
|
|
|
|
WorldObject::addBase:
|
|
link $2
|
|
pushi $365 ; 869, pSelf
|
|
push1
|
|
pushSelf
|
|
pushi $315 ; 789, pName
|
|
push1
|
|
pushi $315 ; 789, pName
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $2
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
send $14
|
|
bnot
|
|
sat temp[$0]
|
|
pToa pBaseList
|
|
not
|
|
bnt code_10c5
|
|
push1
|
|
push0
|
|
callk kernel_90, $2
|
|
bnot
|
|
aTop pBaseList
|
|
code_10c5: pushi $3 ; z
|
|
pushi $b ; 11, inRight
|
|
pTos pBaseList
|
|
lst temp[$0]
|
|
callk kernel_90, $6
|
|
bnot
|
|
lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::deleteBase:
|
|
link $1
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_10f8
|
|
pushi $3 ; z
|
|
pushi $10 ; 16, cel
|
|
pTos pBaseList
|
|
push
|
|
callk kernel_90, $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_10f8: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::buildBaseList:
|
|
ret
|
|
|
|
WorldObject::open:
|
|
pushi $63 ; 99, 'c', perform
|
|
push1
|
|
pushi $248 ; 584, open
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::close:
|
|
pushi $63 ; 99, 'c', perform
|
|
push1
|
|
pushi $253 ; 595, close
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::lock:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $34a ; 842, lock
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::unlock:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $38d ; 909, unlock
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::take:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $38e ; 910, take
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::give:
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $3 ; z
|
|
pushi $38f ; 911, give
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
self $a
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::drop:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $390 ; 912, drop
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::see:
|
|
link $4
|
|
pushi $63 ; 99, 'c', perform
|
|
push1
|
|
pushi $2fd ; 765, see
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
ret
|
|
|
|
WorldObject::look:
|
|
link $1
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $391 ; 913, look
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_1180
|
|
pushi $2fd ; 765, see
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_1180: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::putOn:
|
|
link $1
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $392 ; 914, putOn
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_11ba
|
|
pushi $3a8 ; 936, owns
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_11ae
|
|
pushi $38e ; 910, take
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
code_11ae: pushi $393 ; 915, bePutOn
|
|
push1
|
|
pushSelf
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_11ba: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::bePutOn:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $393 ; 915, bePutOn
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::takeOff:
|
|
link $1
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $394 ; 916, takeOff
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_1205
|
|
push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1205
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_1205
|
|
pushi $395 ; 917, beTakenOff
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
code_1205: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::beTakenOff:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $395 ; 917, beTakenOff
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::eat:
|
|
link $1
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $396 ; 918, eat
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_1235
|
|
pushi $397 ; 919, beEaten
|
|
push1
|
|
pushSelf
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_1235: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::beEaten:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $397 ; 919, beEaten
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::drink:
|
|
link $1
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $398 ; 920, drink
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_1265
|
|
pushi $399 ; 921, beDrunk
|
|
push1
|
|
pushSelf
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_1265: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::beDrunk:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $399 ; 921, beDrunk
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::trigger:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $39a ; 922, trigger
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::goto:
|
|
lap param[$1]
|
|
aTop x
|
|
lap param[$2]
|
|
aTop y
|
|
ldi $0
|
|
ret
|
|
|
|
WorldObject::approach:
|
|
link $a
|
|
ldi $2
|
|
sat temp[$0]
|
|
push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bt code_12ab
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
not
|
|
code_12ab: bnt code_12b0
|
|
lat temp[$0]
|
|
ret
|
|
|
|
code_12b0: pushi $3a7 ; 935, getBaseOwner
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_12bf
|
|
sap param[$1]
|
|
code_12bf: pushi $4 ; scaleX
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos x
|
|
pTos y
|
|
callk kernel_63, $8
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $4 ; scaleX
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos x
|
|
pTos y
|
|
callk kernel_64, $8
|
|
bnot
|
|
sat temp[$5]
|
|
pushi $4 ; scaleX
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4e ; 78, 'N', width
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
sat temp[$7]
|
|
push
|
|
pToa approachDist
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
sat temp[$6]
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
mul
|
|
push
|
|
ldi $85 ; 133, roll
|
|
div
|
|
sat temp[$8]
|
|
push1
|
|
push2
|
|
lst temp[$4]
|
|
pushi $64 ; 100, 'd', moveDone
|
|
callk kernel_67, $4
|
|
bnot
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
sat temp[$7]
|
|
lst temp[$6]
|
|
push
|
|
lst temp[$6]
|
|
lat temp[$8]
|
|
sub
|
|
mul
|
|
push
|
|
ldi $64 ; 100, 'd', moveDone
|
|
div
|
|
sub
|
|
sat temp[$6]
|
|
lsp param[$2]
|
|
dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_1351
|
|
lst temp[$6]
|
|
ldi $a ; 10, inTop
|
|
mul
|
|
sat temp[$6]
|
|
jmp code_13d5
|
|
|
|
code_1351: dup
|
|
ldi $3f ; 63, '?', xStep
|
|
eq?
|
|
bnt code_1362
|
|
lst temp[$6]
|
|
ldi $4 ; scaleX
|
|
mul
|
|
sat temp[$6]
|
|
jmp code_13d5
|
|
|
|
code_1362: dup
|
|
ldi $49 ; 73, 'I', replay
|
|
eq?
|
|
bnt code_1373
|
|
lst temp[$6]
|
|
ldi $4 ; scaleX
|
|
mul
|
|
sat temp[$6]
|
|
jmp code_13d5
|
|
|
|
code_1373: dup
|
|
ldi $7c ; 124, '|', titleBack
|
|
eq?
|
|
bnt code_1384
|
|
lst temp[$6]
|
|
ldi $4 ; scaleX
|
|
mul
|
|
sat temp[$6]
|
|
jmp code_13d5
|
|
|
|
code_1384: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_1395
|
|
lst temp[$6]
|
|
ldi $4 ; scaleX
|
|
mul
|
|
sat temp[$6]
|
|
jmp code_13d5
|
|
|
|
code_1395: dup
|
|
ldi $c ; 12, inBottom
|
|
eq?
|
|
bnt code_13a6
|
|
lst temp[$6]
|
|
ldi $2
|
|
mul
|
|
sat temp[$6]
|
|
jmp code_13d5
|
|
|
|
code_13a6: dup
|
|
ldi $d ; 13, seenRect
|
|
eq?
|
|
bnt code_13b7
|
|
lst temp[$6]
|
|
ldi $2
|
|
mul
|
|
sat temp[$6]
|
|
jmp code_13d5
|
|
|
|
code_13b7: dup
|
|
ldi $7 ; priority
|
|
eq?
|
|
bnt code_13c8
|
|
lst temp[$6]
|
|
ldi $4 ; scaleX
|
|
mul
|
|
sat temp[$6]
|
|
jmp code_13d5
|
|
|
|
code_13c8: dup
|
|
ldi $1d ; 29, brTop
|
|
eq?
|
|
bnt code_13d5
|
|
lst temp[$6]
|
|
ldi $2
|
|
mul
|
|
sat temp[$6]
|
|
code_13d5: toss
|
|
lsp param[$2]
|
|
dup
|
|
ldi $6d ; 109, 'm', picture
|
|
eq?
|
|
bnt code_13f8
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $7 ; priority
|
|
add
|
|
sat temp[$3]
|
|
jmp code_1428
|
|
|
|
code_13f8: push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
lst temp[$4]
|
|
lst temp[$6]
|
|
ldi $2
|
|
sub
|
|
push
|
|
callk kernel_66, $4
|
|
bnot
|
|
add
|
|
sat temp[$2]
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
lst temp[$4]
|
|
lst temp[$6]
|
|
ldi $2
|
|
sub
|
|
push
|
|
callk kernel_67, $4
|
|
bnot
|
|
sub
|
|
sat temp[$3]
|
|
code_1428: toss
|
|
lsp param[$1]
|
|
selfID
|
|
ne?
|
|
bnt code_148d
|
|
lst temp[$5]
|
|
lat temp[$6]
|
|
gt?
|
|
bnt code_148d
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
ne?
|
|
bnt code_148d
|
|
pushi $41b ; 1051, pApproachX
|
|
push1
|
|
lst temp[$2]
|
|
pushi $41c ; 1052, pApproachY
|
|
push1
|
|
lst temp[$3]
|
|
pushi $41d ; 1053, pDistance
|
|
push1
|
|
lst temp[$6]
|
|
pushi $142 ; 322, pObject
|
|
push1
|
|
lsp param[$1]
|
|
pushi $33f ; 831, pClient
|
|
push1
|
|
pushSelf
|
|
pushi $c4 ; 196, caller
|
|
push1
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_1472
|
|
lap param[$3]
|
|
jmp code_1474
|
|
|
|
code_1472: ldi $0
|
|
code_1474: push
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa ApproachScript
|
|
send $4
|
|
bnot
|
|
send $28
|
|
bnot
|
|
ldi $0
|
|
sat temp[$0]
|
|
jmp code_14c8
|
|
|
|
code_148d: lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_14c8
|
|
lap param[$3]
|
|
bnt code_14c8
|
|
lsp param[$1]
|
|
selfID
|
|
ne?
|
|
bnt code_14bf
|
|
lst temp[$5]
|
|
lat temp[$6]
|
|
gt?
|
|
bnt code_14bf
|
|
pushi $9c ; 156, handleError
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
pushi $c350 ; -15536
|
|
pushi $c351 ; -15535
|
|
lap param[$3]
|
|
send $a
|
|
bnot
|
|
jmp code_14c8
|
|
|
|
code_14bf: pushi $c7 ; 199, cue
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
code_14c8: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::face:
|
|
link $4
|
|
ldi $0
|
|
sat temp[$1]
|
|
lap param[$1]
|
|
bnt code_14e5
|
|
pushi $3a7 ; 935, getBaseOwner
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_14e5
|
|
lat temp[$1]
|
|
sap param[$1]
|
|
code_14e5: lap param[$1]
|
|
not
|
|
bt code_14fd
|
|
lsp param[$1]
|
|
selfID
|
|
eq?
|
|
bt code_14fd
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
ldi $3 ; z
|
|
eq?
|
|
code_14fd: bnt code_1519
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_153f
|
|
lap param[$2]
|
|
bnt code_153f
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
jmp code_153f
|
|
|
|
code_1519: pushi $4 ; scaleX
|
|
pTos x
|
|
pTos y
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_63, $8
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $15a ; 346, setHeading
|
|
push1
|
|
push
|
|
&rest $2
|
|
self $6
|
|
bnot
|
|
code_153f: ldi $0
|
|
sat temp[$0]
|
|
ret
|
|
|
|
WorldObject::saveMover:
|
|
pToa pMover
|
|
aTop pLastMover
|
|
ret
|
|
|
|
WorldObject::restoreMover:
|
|
pToa pLastMover
|
|
aTop pMover
|
|
ret
|
|
|
|
WorldObject::showContents:
|
|
link $1
|
|
pushi $63 ; 99, 'c', perform
|
|
push1
|
|
pushi $3a4 ; 932, showContents
|
|
&rest $1
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
ret
|
|
|
|
WorldObject::hideContents:
|
|
pushi $63 ; 99, 'c', perform
|
|
push1
|
|
pushi $3a5 ; 933, hideContents
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::modifyProp:
|
|
pushi $63 ; 99, 'c', perform
|
|
pushi $3 ; z
|
|
pushi $368 ; 872, modifyProp
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
self $a
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::getProp:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $369 ; 873, getProp
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::buy:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $3a0 ; 928, buy
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::sell:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $3a1 ; 929, sell
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::examine:
|
|
link $1
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $39e ; 926, examine
|
|
lsp param[$1]
|
|
&rest $2
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_15c2
|
|
pushi $39f ; 927, beExamined
|
|
push1
|
|
pushSelf
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_15c2: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::beExamined:
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $39f ; 927, beExamined
|
|
lsp param[$1]
|
|
&rest $2
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::stopAction:
|
|
pToa pMovieCmd
|
|
bnt code_1674
|
|
pToa mover
|
|
bt code_15f7
|
|
push1
|
|
pTos script
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1674
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WANetScript
|
|
push
|
|
pToa script
|
|
send $6
|
|
bnot
|
|
not
|
|
code_15f7: bnt code_1674
|
|
pushi $7 ; priority
|
|
lofsa string_02f9 ; "Object(%s, %s[$%x], %s[%d], %s) stopped at bad place. The programmers have been made aware of this and it will be fixed very soon."
|
|
push
|
|
pTos name
|
|
push1
|
|
pTos pMovieCmd
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1619
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
jmp code_161c
|
|
|
|
code_1619: lofsa string_037c ; "<bad movie>"
|
|
code_161c: push
|
|
pTos pMovieCmd
|
|
push1
|
|
pTos script
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1636
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
pToa script
|
|
send $4
|
|
bnot
|
|
jmp code_1639
|
|
|
|
code_1636: lofsa string_0388 ; "<no script>"
|
|
code_1639: push
|
|
push1
|
|
pTos script
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1651
|
|
pushi $29 ; 41, ')', state
|
|
push0
|
|
pToa script
|
|
send $4
|
|
bnot
|
|
jmp code_1653
|
|
|
|
code_1651: ldi $ff ; 255, asInteger
|
|
code_1653: push
|
|
push1
|
|
pTos mover
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_166c
|
|
pushi $20 ; 32, ' ', name
|
|
push0
|
|
pToa mover
|
|
send $4
|
|
bnot
|
|
jmp code_166f
|
|
|
|
code_166c: lofsa string_0394 ; "<no mover>"
|
|
code_166f: push
|
|
callk kernel_132, $e
|
|
bnot
|
|
code_1674: pushi $15c ; 348, setMotion
|
|
push1
|
|
push0
|
|
pushi $c9 ; 201, setScript
|
|
push1
|
|
push0
|
|
self $c
|
|
bnot
|
|
pToa pApproachScript
|
|
bnt code_168e
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_168e: ldi $1
|
|
ret
|
|
|
|
WorldObject::getOwner:
|
|
link $2
|
|
selfID
|
|
sat temp[$1]
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_16ae
|
|
pushi $343 ; 835, pOwner
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
code_16ae: lst temp[$1]
|
|
ldi $0
|
|
eq?
|
|
bnt code_16b9
|
|
selfID
|
|
sat temp[$1]
|
|
code_16b9: lat temp[$1]
|
|
ret
|
|
|
|
WorldObject::getBaseOwner:
|
|
link $2
|
|
selfID
|
|
sat temp[$0]
|
|
selfID
|
|
sat temp[$1]
|
|
code_16c4: lst temp[$1]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_16e3
|
|
lst temp[$0]
|
|
pushi $35b ; 859, getOwner
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
ne?
|
|
bnt code_16e3
|
|
lat temp[$1]
|
|
sat temp[$0]
|
|
jmp code_16c4
|
|
|
|
code_16e3: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::owns:
|
|
push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_170f
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_170f
|
|
pushi $3a9 ; 937, isOwnedBy
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
code_170f: ldi $0
|
|
ret
|
|
|
|
WorldObject::isOwnedBy:
|
|
link $3
|
|
push1
|
|
lsp param[$1]
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_172d
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_172d: not
|
|
bnt code_1734
|
|
ldi $0
|
|
ret
|
|
|
|
code_1734: selfID
|
|
sat temp[$0]
|
|
selfID
|
|
sat temp[$1]
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_1749
|
|
lap param[$2]
|
|
sat temp[$2]
|
|
jmp code_174e
|
|
|
|
code_1749: ldi $2710 ; 10000
|
|
sat temp[$2]
|
|
code_174e: lat temp[$2]
|
|
bnt code_1777
|
|
lst temp[$1]
|
|
pushi $35b ; 859, getOwner
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
ne?
|
|
bnt code_1777
|
|
lst temp[$0]
|
|
lap param[$1]
|
|
eq?
|
|
bnt code_176f
|
|
ldi $1
|
|
ret
|
|
|
|
code_176f: lat temp[$0]
|
|
sat temp[$1]
|
|
-at temp[$2]
|
|
jmp code_174e
|
|
|
|
code_1777: ldi $0
|
|
ret
|
|
|
|
WorldObject::updateDisplay:
|
|
link $1
|
|
pTos pBaseView
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_179d
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_179d
|
|
pToa pBitmapBased
|
|
not
|
|
bt code_179d
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos view
|
|
callk kernel_5, $4
|
|
bnot
|
|
not
|
|
code_179d: bnt code_17a0
|
|
ret
|
|
|
|
code_17a0: pToa bitmap
|
|
sat temp[$0]
|
|
pushi $7 ; priority
|
|
pushi $9 ; inLeft
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
push1
|
|
callk kernel_35, $e
|
|
bnot
|
|
aTop bitmap
|
|
pushi $4 ; scaleX
|
|
pushi $8 ; fixPriority
|
|
pTos bitmap
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_34, $8
|
|
bnot
|
|
push
|
|
pushi $4 ; scaleX
|
|
push1
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_34, $8
|
|
bnot
|
|
push
|
|
callk kernel_35, $8
|
|
bnot
|
|
pToa clut
|
|
bnt code_17ee
|
|
pushi $3 ; z
|
|
pushi $a ; 10, inTop
|
|
pTos bitmap
|
|
push
|
|
callk kernel_35, $6
|
|
bnot
|
|
code_17ee: lat temp[$0]
|
|
bnt code_17fd
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_17fd: push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::createDisplay:
|
|
link $6
|
|
pToa -info-
|
|
sat temp[$3]
|
|
pToa pUpdateClient
|
|
bnt code_1818
|
|
pushi $1007 ; 4103, -info-
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
code_1818: pToa pAction
|
|
sat temp[$0]
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_1831
|
|
lap param[$2]
|
|
aTop cel
|
|
code_1831: pToa bitmap
|
|
sat temp[$1]
|
|
ldi $0
|
|
aTop bitmap
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
self $6
|
|
bnot
|
|
lsp param[$1]
|
|
ldi $21 ; 33, '!', key
|
|
eq?
|
|
bnt code_1871
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$5]
|
|
bnt code_1871
|
|
pushi $41e ; 1054, pIsWorn
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_1871
|
|
pushi $3b3 ; 947, addCel
|
|
pushi $3 ; z
|
|
pushi $233c ; 9020
|
|
push0
|
|
push0
|
|
self $a
|
|
bnot
|
|
code_1871: pToa pUpdateClient
|
|
bnt code_187d
|
|
pushi $3b1 ; 945, remapBitmap
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_187d: pToa bitmap
|
|
sat temp[$2]
|
|
not
|
|
bnt code_1898
|
|
push0
|
|
callk kernel_129, $0
|
|
bnot
|
|
push2
|
|
lofsa string_039f ; "createDisplay generated a NULL bitmap (view == %d)"
|
|
push
|
|
pTos view
|
|
calle export60029_1, $4
|
|
bnot
|
|
code_1898: pushi $373 ; 883, setAction
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
lat temp[$1]
|
|
aTop bitmap
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
lat temp[$3]
|
|
aTop -info-
|
|
pToa pUpdateClient
|
|
bnt code_18bd
|
|
pushi $1007 ; 4103, -info-
|
|
push1
|
|
lst temp[$4]
|
|
send $6
|
|
bnot
|
|
code_18bd: lat temp[$2]
|
|
ret
|
|
|
|
WorldObject::createBitmap:
|
|
link $1
|
|
pToa bitmap
|
|
sat temp[$0]
|
|
pToa plane
|
|
bnt code_1939
|
|
pTos pBaseView
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_1939
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos view
|
|
callk kernel_5, $4
|
|
bnot
|
|
bnt code_1939
|
|
pushi $7 ; priority
|
|
pushi $9 ; inLeft
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
push1
|
|
callk kernel_35, $e
|
|
bnot
|
|
aTop bitmap
|
|
pushi $4 ; scaleX
|
|
pushi $8 ; fixPriority
|
|
pTos bitmap
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_34, $8
|
|
bnot
|
|
push
|
|
pushi $4 ; scaleX
|
|
push1
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_34, $8
|
|
bnot
|
|
push
|
|
callk kernel_35, $8
|
|
bnot
|
|
pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_192a
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
code_192a: lat temp[$0]
|
|
bnt code_1939
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_1939: ret
|
|
|
|
WorldObject::disposeBitmap:
|
|
pToa bitmap
|
|
bnt code_194d
|
|
pushi $9f ; 159, add
|
|
push1
|
|
push
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
aTop bitmap
|
|
code_194d: ret
|
|
|
|
WorldObject::addBitmap:
|
|
pToa bitmap
|
|
bnt code_1967
|
|
lap param[$1]
|
|
bnt code_1967
|
|
pushi $5 ; scaleY
|
|
pushi $6 ; maxScale
|
|
pTos bitmap
|
|
lsp param[$1]
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
callk kernel_35, $a
|
|
bnot
|
|
code_1967: ret
|
|
|
|
WorldObject::addCel:
|
|
pToa bitmap
|
|
bnt code_199e
|
|
lsp param[$2]
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
bnt code_199e
|
|
lsp param[$3]
|
|
ldi $ff ; 255, asInteger
|
|
gt?
|
|
bnt code_199e
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
lsp param[$1]
|
|
callk kernel_5, $4
|
|
bnot
|
|
bnt code_199e
|
|
pushi $8 ; fixPriority
|
|
pushi $3 ; z
|
|
pTos bitmap
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
push1
|
|
callk kernel_35, $10
|
|
bnot
|
|
code_199e: ret
|
|
|
|
WorldObject::addLinkedCel:
|
|
pToa bitmap
|
|
bnt code_19e2
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
lsp param[$1]
|
|
callk kernel_5, $4
|
|
bnot
|
|
bnt code_19e2
|
|
pushi $7 ; priority
|
|
pushi $3 ; z
|
|
pTos bitmap
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
pushi $5 ; scaleY
|
|
push2
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$4]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
pushi $5 ; scaleY
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$4]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
callk kernel_35, $e
|
|
bnot
|
|
code_19e2: ret
|
|
|
|
WorldObject::addLinkedBitmap:
|
|
link $2
|
|
pToa bitmap
|
|
bnt code_1aa0
|
|
lap param[$1]
|
|
bnt code_1aa0
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
gt?
|
|
bnt code_1a25
|
|
pushi $5 ; scaleY
|
|
push2
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$2]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
lap param[$3]
|
|
sub
|
|
sat temp[$0]
|
|
pushi $5 ; scaleY
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$2]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
lap param[$4]
|
|
sub
|
|
sat temp[$1]
|
|
jmp code_1a90
|
|
|
|
code_1a25: pushi $5 ; scaleY
|
|
push2
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$2]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pushi $e ; 14, view
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_34, $8
|
|
bnot
|
|
sub
|
|
sat temp[$0]
|
|
pushi $5 ; scaleY
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$2]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
pushi $4 ; scaleX
|
|
push1
|
|
pushi $e ; 14, view
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_34, $8
|
|
bnot
|
|
sub
|
|
sat temp[$1]
|
|
code_1a90: pushi $6 ; maxScale
|
|
dup
|
|
pTos bitmap
|
|
lsp param[$1]
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
push1
|
|
callk kernel_35, $c
|
|
bnot
|
|
code_1aa0: ret
|
|
|
|
WorldObject::insertLinkedBitmap:
|
|
link $1
|
|
pToa bitmap
|
|
bnt code_1b41
|
|
push2
|
|
pushi $b ; 11, inRight
|
|
push
|
|
callk kernel_35, $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $6 ; maxScale
|
|
dup
|
|
pTos bitmap
|
|
lsp param[$1]
|
|
pushi $5 ; scaleY
|
|
push2
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$2]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pushi $e ; 14, view
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_34, $8
|
|
bnot
|
|
sub
|
|
push
|
|
pushi $5 ; scaleY
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$2]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
pushi $4 ; scaleX
|
|
push1
|
|
pushi $e ; 14, view
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
lap param[$3]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_34, $8
|
|
bnot
|
|
sub
|
|
push
|
|
push1
|
|
callk kernel_35, $c
|
|
bnot
|
|
pushi $5 ; scaleY
|
|
pushi $6 ; maxScale
|
|
pTos bitmap
|
|
lst temp[$0]
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
callk kernel_35, $a
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_1b41: ret
|
|
|
|
WorldObject::insertLinkedCel:
|
|
link $1
|
|
pToa bitmap
|
|
bnt code_1bac
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
lsp param[$1]
|
|
callk kernel_5, $4
|
|
bnot
|
|
bnt code_1bac
|
|
push2
|
|
pushi $b ; 11, inRight
|
|
pTos bitmap
|
|
callk kernel_35, $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $7 ; priority
|
|
pushi $3 ; z
|
|
pTos bitmap
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
pushi $5 ; scaleY
|
|
push2
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$4]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
pushi $5 ; scaleY
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lsp param[$4]
|
|
callk kernel_36, $a
|
|
bnot
|
|
push
|
|
callk kernel_35, $e
|
|
bnot
|
|
pushi $5 ; scaleY
|
|
pushi $6 ; maxScale
|
|
pTos bitmap
|
|
lst temp[$0]
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
callk kernel_35, $a
|
|
bnot
|
|
pushi $9f ; 159, add
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$66]
|
|
send $6
|
|
bnot
|
|
code_1bac: ret
|
|
|
|
WorldObject::remapBitmap:
|
|
pToa bitmap
|
|
bnt code_1bef
|
|
pToa clut
|
|
bnt code_1bef
|
|
pToa pFrozenClut
|
|
bnt code_1bcb
|
|
pushi $3 ; z
|
|
pushi $a ; 10, inTop
|
|
pTos bitmap
|
|
push
|
|
callk kernel_35, $6
|
|
bnot
|
|
jmp code_1bef
|
|
|
|
code_1bcb: pToa pInvisibleClut
|
|
bnt code_1bdf
|
|
pushi $3 ; z
|
|
pushi $a ; 10, inTop
|
|
pTos bitmap
|
|
push
|
|
callk kernel_35, $6
|
|
bnot
|
|
jmp code_1bef
|
|
|
|
code_1bdf: pToa clut
|
|
bnt code_1bef
|
|
pushi $3 ; z
|
|
pushi $a ; 10, inTop
|
|
pTos bitmap
|
|
push
|
|
callk kernel_35, $6
|
|
bnot
|
|
code_1bef: ret
|
|
|
|
WorldObject::addUpdator:
|
|
link $2
|
|
pTos pUpdatorList
|
|
ldi $0
|
|
eq?
|
|
bnt code_1c10
|
|
pushi $340 ; 832, pSortSelector
|
|
push1
|
|
pushi $2fe ; 766, pLayer
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class SortedList
|
|
send $4
|
|
bnot
|
|
aTop pUpdatorList
|
|
send $6
|
|
bnot
|
|
code_1c10: pushi $9f ; 159, add
|
|
push1
|
|
lsp param[$1]
|
|
pToa pUpdatorList
|
|
send $6
|
|
bnot
|
|
pushi $365 ; 869, pSelf
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3e9 ; 1001, pUpdateObj
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
selfID
|
|
sat temp[$1]
|
|
code_1c31: pushi $3e8 ; 1000, pUpdateClient
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_1c4a
|
|
pushi $3e8 ; 1000, pUpdateClient
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_1c31
|
|
|
|
code_1c4a: pushi $3e8 ; 1000, pUpdateClient
|
|
push1
|
|
lst temp[$1]
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $3ac ; 940, inheritClut
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::deleteUpdator:
|
|
link $1
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
lsp param[$1]
|
|
pToa pUpdatorList
|
|
send $6
|
|
bnot
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pUpdatorList
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
eq?
|
|
bnt code_1c8f
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pUpdatorList
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pUpdatorList
|
|
code_1c8f: pushi $365 ; 869, pSelf
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $3e8 ; 1000, pUpdateClient
|
|
push1
|
|
push0
|
|
pushi $3e9 ; 1001, pUpdateObj
|
|
push1
|
|
push0
|
|
send $c
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::createClut:
|
|
pToa pClutStart
|
|
bnt code_1cc6
|
|
pToa clut
|
|
not
|
|
bnt code_1cc6
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Clut
|
|
send $4
|
|
bnot
|
|
aTop clut
|
|
code_1cc6: ret
|
|
|
|
WorldObject::inheritClut:
|
|
link $b
|
|
pushi $3ab ; 939, createClut
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $17a ; 378, clut
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_1dac
|
|
pushi $3ea ; 1002, pClutStart
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $330 ; 816, pColor
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
and
|
|
sat temp[$2]
|
|
pushi $330 ; 816, pColor
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8 ; fixPriority
|
|
shr
|
|
sat temp[$3]
|
|
bnt code_1d17
|
|
pushi $45 ; 69, 'E', doit
|
|
push2
|
|
lsp param[$1]
|
|
push
|
|
class SetScale
|
|
send $8
|
|
bnot
|
|
code_1d17: lst temp[$4]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_1d2e
|
|
push2
|
|
pTos clut
|
|
lst temp[$2]
|
|
calle export40206_0, $4
|
|
bnot
|
|
jmp code_1dac
|
|
|
|
code_1d2e: lst temp[$4]
|
|
ldi $4 ; scaleX
|
|
add
|
|
sat temp[$5]
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$8]
|
|
pToa clut
|
|
sat temp[$a]
|
|
code_1d43: pushi $97 ; 151, isKindOf
|
|
push1
|
|
class ClutOverride
|
|
push
|
|
lat temp[$a]
|
|
send $6
|
|
bnot
|
|
bnt code_1d5f
|
|
pushi $41f ; 1055, pClut
|
|
push0
|
|
lat temp[$a]
|
|
send $4
|
|
bnot
|
|
sat temp[$a]
|
|
jmp code_1d43
|
|
|
|
code_1d5f: pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$a]
|
|
send $4
|
|
bnot
|
|
sat temp[$9]
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_1d6d: lst temp[$0]
|
|
ldi $ff ; 255, asInteger
|
|
lt?
|
|
bnt code_1dac
|
|
pushi $3 ; z
|
|
push2
|
|
lst temp[$8]
|
|
lst temp[$0]
|
|
callk kernel_91, $6
|
|
bnot
|
|
sat temp[$2]
|
|
push
|
|
lat temp[$0]
|
|
ne?
|
|
bt code_1d97
|
|
lst temp[$0]
|
|
lat temp[$4]
|
|
ge?
|
|
bnt code_1da8
|
|
lst temp[$0]
|
|
lat temp[$5]
|
|
lt?
|
|
code_1d97: bnt code_1da8
|
|
pushi $4 ; scaleX
|
|
pushi $3 ; z
|
|
lst temp[$9]
|
|
lst temp[$0]
|
|
lst temp[$2]
|
|
callk kernel_91, $8
|
|
bnot
|
|
code_1da8: +at temp[$0]
|
|
jmp code_1d6d
|
|
|
|
code_1dac: pToa pUpdateObj
|
|
bnt code_1dba
|
|
pushi $3ac ; 940, inheritClut
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
code_1dba: pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::removeClut:
|
|
pToa clut
|
|
bnt code_1dd3
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop clut
|
|
code_1dd3: ret
|
|
|
|
WorldObject::setColor:
|
|
link $5
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_1de3
|
|
lap param[$2]
|
|
jmp code_1de5
|
|
|
|
code_1de3: pToa pClutStart
|
|
code_1de5: sat temp[$2]
|
|
pTos pColor
|
|
ldi $ff ; 255, asInteger
|
|
and
|
|
sat temp[$0]
|
|
pTos pColor
|
|
ldi $8 ; fixPriority
|
|
shr
|
|
sat temp[$1]
|
|
bnt code_1e04
|
|
pushi $45 ; 69, 'E', doit
|
|
push2
|
|
pushSelf
|
|
push
|
|
class SetScale
|
|
send $8
|
|
bnot
|
|
code_1e04: pushi $3ab ; 939, createClut
|
|
push0
|
|
self $4
|
|
bnot
|
|
lst temp[$2]
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_1e22
|
|
push2
|
|
pTos clut
|
|
lst temp[$0]
|
|
calle export40206_0, $4
|
|
bnot
|
|
jmp code_1e78
|
|
|
|
code_1e22: lap param[$1]
|
|
aTop pColor
|
|
sat temp[$0]
|
|
lst temp[$2]
|
|
lsp param[$0]
|
|
ldi $2
|
|
gt?
|
|
bnt code_1e37
|
|
lap param[$3]
|
|
jmp code_1e39
|
|
|
|
code_1e37: ldi $4 ; scaleX
|
|
code_1e39: add
|
|
sat temp[$3]
|
|
push1
|
|
pTos clut
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bt code_1e57
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Clut
|
|
push
|
|
pToa clut
|
|
send $6
|
|
bnot
|
|
not
|
|
code_1e57: bnt code_1e5a
|
|
ret
|
|
|
|
code_1e5a: lat temp[$2]
|
|
sat temp[$4]
|
|
code_1e5e: lst temp[$4]
|
|
lat temp[$3]
|
|
lt?
|
|
bnt code_1e78
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$4]
|
|
lst temp[$0]
|
|
pToa clut
|
|
send $8
|
|
bnot
|
|
+at temp[$0]
|
|
+at temp[$4]
|
|
jmp code_1e5e
|
|
|
|
code_1e78: lat temp[$2]
|
|
bnt code_1e8a
|
|
pToa pUpdateObj
|
|
bnt code_1e8a
|
|
pushi $3ac ; 940, inheritClut
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_1e8a: ret
|
|
|
|
WorldObject::setMode:
|
|
pTos pMode
|
|
lap param[$1]
|
|
or
|
|
aTop pMode
|
|
ret
|
|
|
|
WorldObject::clearMode:
|
|
lap param[$0]
|
|
bnt code_1ea3
|
|
pTos pMode
|
|
lap param[$1]
|
|
bnot
|
|
and
|
|
aTop pMode
|
|
jmp code_1ea7
|
|
|
|
code_1ea3: ldi $0
|
|
aTop pMode
|
|
code_1ea7: ret
|
|
|
|
WorldObject::saveMode:
|
|
pToa pMode
|
|
aTop pLastMode
|
|
ret
|
|
|
|
WorldObject::restoreMode:
|
|
pToa pLastMode
|
|
aTop pMode
|
|
ret
|
|
|
|
WorldObject::pause:
|
|
ipToa pPaused
|
|
ret
|
|
|
|
WorldObject::unpause:
|
|
pToa pPaused
|
|
bnt code_1ebc
|
|
dpToa pPaused
|
|
code_1ebc: ret
|
|
|
|
WorldObject::setAction:
|
|
link $1
|
|
pushi $63 ; 99, 'c', perform
|
|
push2
|
|
pushi $373 ; 883, setAction
|
|
lsp param[$1]
|
|
self $8
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_1f65
|
|
lsp param[$1]
|
|
ldi $1c ; 28, brLeft
|
|
eq?
|
|
bnt code_1ef1
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos pBaseView
|
|
lap param[$1]
|
|
add
|
|
push
|
|
callk kernel_5, $4
|
|
bnot
|
|
not
|
|
bnt code_1ef1
|
|
ldi $1d ; 29, brTop
|
|
sap param[$1]
|
|
code_1ef1: push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos pBaseView
|
|
lap param[$1]
|
|
add
|
|
push
|
|
callk kernel_5, $4
|
|
bnot
|
|
not
|
|
bnt code_1f14
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos pBaseView
|
|
callk kernel_5, $4
|
|
bnot
|
|
bnt code_1f14
|
|
ldi $0
|
|
sap param[$1]
|
|
code_1f14: lap param[$1]
|
|
aTop pAction
|
|
pTos pBaseView
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_1f32
|
|
pTos pBaseView
|
|
pToa pAction
|
|
add
|
|
aTop view
|
|
pToa pMoney
|
|
not
|
|
bnt code_1f32
|
|
ldi $0
|
|
aTop cel
|
|
code_1f32: pToa pUpdatorList
|
|
bnt code_1f61
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_1f61
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class SortedList
|
|
push
|
|
pToa pUpdatorList
|
|
send $6
|
|
bnot
|
|
bnt code_1f61
|
|
pushi $9d ; 157, eachElementDo
|
|
push2
|
|
pushi $36b ; 875, updateAction
|
|
lsp param[$1]
|
|
pToa pUpdatorList
|
|
send $8
|
|
bnot
|
|
code_1f61: ldi $0
|
|
sat temp[$0]
|
|
code_1f65: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::hide:
|
|
pushSelf
|
|
lag global[$1]
|
|
ne?
|
|
bnt code_1f83
|
|
pushi $3a9 ; 937, isOwnedBy
|
|
push1
|
|
lsg global[$1]
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_1f83
|
|
pushi $3a5 ; 933, hideContents
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_1f83: pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_1f9a
|
|
pTos signal
|
|
ldi $8 ; fixPriority
|
|
or
|
|
aTop signal
|
|
push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
code_1f9a: ret
|
|
|
|
WorldObject::show:
|
|
pushi $3e0 ; 992, setVisible
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::lastCel:
|
|
link $2
|
|
pToa view
|
|
sat temp[$0]
|
|
pTos pBaseView
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_1fb8
|
|
pTos pBaseView
|
|
pToa pAction
|
|
add
|
|
aTop view
|
|
code_1fb8: push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos view
|
|
callk kernel_5, $4
|
|
bnot
|
|
bnt code_1fd2
|
|
pushi $161 ; 353, lastCel
|
|
push0
|
|
super Act, $4
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_1fd6
|
|
|
|
code_1fd2: ldi $0
|
|
sat temp[$1]
|
|
code_1fd6: lat temp[$0]
|
|
aTop view
|
|
lat temp[$1]
|
|
ret
|
|
|
|
WorldObject::generatePolygon:
|
|
link $10
|
|
ldi $2
|
|
sat temp[$0]
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bnt code_1fee
|
|
lat temp[$0]
|
|
ret
|
|
|
|
code_1fee: pToa pPolygon
|
|
not
|
|
bnt code_1fff
|
|
pushi $63 ; 99, 'c', perform
|
|
push1
|
|
pushi $3c2 ; 962, generatePolygon
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
code_1fff: lag global[$1]
|
|
not
|
|
bt code_2025
|
|
pTos cel
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_2025
|
|
pTos view
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_2025
|
|
pToa pPolygon
|
|
bt code_2025
|
|
push2
|
|
pushi $80 ; 128, lastKey
|
|
pTos view
|
|
callk kernel_5, $4
|
|
bnot
|
|
not
|
|
code_2025: bnt code_202e
|
|
lat temp[$0]
|
|
ret
|
|
|
|
jmp code_220f
|
|
|
|
code_202e: lst temp[$0]
|
|
ldi $2
|
|
ne?
|
|
bnt code_220f
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Polygon
|
|
send $4
|
|
bnot
|
|
aTop pPolygon
|
|
ldi $0
|
|
sat temp[$2]
|
|
ldi $0
|
|
sat temp[$3]
|
|
code_2049: lst temp[$2]
|
|
ldi $9 ; inLeft
|
|
lt?
|
|
bnt code_20a5
|
|
pushi $5 ; scaleY
|
|
push2
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lst temp[$2]
|
|
callk kernel_36, $a
|
|
bnot
|
|
sat temp[$4]
|
|
pushi $5 ; scaleY
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
lst temp[$2]
|
|
callk kernel_36, $a
|
|
bnot
|
|
sat temp[$5]
|
|
lst temp[$4]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bt code_2081
|
|
lst temp[$5]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
code_2081: bnt code_20a1
|
|
pushi $4b ; 75, 'K', at
|
|
pushi $3 ; z
|
|
lst temp[$3]
|
|
lst temp[$4]
|
|
lst temp[$5]
|
|
pushi $5b ; 91, '[', points
|
|
push0
|
|
pToa pPolygon
|
|
send $4
|
|
bnot
|
|
send $a
|
|
bnot
|
|
lst temp[$3]
|
|
ldi $2
|
|
add
|
|
sat temp[$3]
|
|
code_20a1: +at temp[$2]
|
|
jmp code_2049
|
|
|
|
code_20a5: lst temp[$3]
|
|
ldi $2
|
|
div
|
|
push
|
|
ldi $3 ; z
|
|
ge?
|
|
bnt code_20bf
|
|
pushi $5a ; 90, 'Z', size
|
|
push1
|
|
lst temp[$3]
|
|
ldi $2
|
|
div
|
|
push
|
|
pToa pPolygon
|
|
send $6
|
|
bnot
|
|
code_20bf: pushi $5a ; 90, 'Z', size
|
|
push0
|
|
pToa pPolygon
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_21c5
|
|
pushi $3 ; z
|
|
pushi $e ; 14, view
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_29, $6
|
|
bnot
|
|
push
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_29, $6
|
|
bnot
|
|
lt?
|
|
bnt code_2143
|
|
pushi $d1 ; 209, newWith
|
|
pushi $6 ; maxScale
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pushi $3 ; z
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_29, $6
|
|
bnot
|
|
push
|
|
pushi $3 ; z
|
|
pushi $e ; 14, view
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_29, $6
|
|
bnot
|
|
sub
|
|
push
|
|
push0
|
|
push0
|
|
push0
|
|
class IntArray
|
|
send $10
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_2156
|
|
|
|
code_2143: pushi $d1 ; 209, newWith
|
|
pushi $5 ; scaleY
|
|
pushi $4 ; scaleX
|
|
push0
|
|
push0
|
|
push0
|
|
push0
|
|
class IntArray
|
|
send $e
|
|
bnot
|
|
sat temp[$1]
|
|
code_2156: pushi $6 ; maxScale
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
push0
|
|
push0
|
|
callk kernel_27, $c
|
|
bnot
|
|
pushi $b5 ; 181, set
|
|
pushi $4 ; scaleX
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $14 ; 20, nsRight
|
|
sub
|
|
push
|
|
pushi $fa ; 250, lower
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push2
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
ldi $14 ; 20, nsRight
|
|
add
|
|
push
|
|
pushi $6 ; maxScale
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Rect
|
|
send $4
|
|
bnot
|
|
send $10
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $172 ; 370, fromRect
|
|
push1
|
|
lst temp[$6]
|
|
pToa pPolygon
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
jmp code_220f
|
|
|
|
code_21c5: pushi $dd ; 221, moveBy
|
|
push2
|
|
push0
|
|
pushi $4 ; scaleX
|
|
push0
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_34, $8
|
|
bnot
|
|
sub
|
|
push
|
|
push0
|
|
pushi $4 ; scaleX
|
|
push1
|
|
pTos view
|
|
pTos loop
|
|
pTos cel
|
|
callk kernel_34, $8
|
|
bnot
|
|
sub
|
|
push
|
|
pToa pPolygon
|
|
send $8
|
|
bnot
|
|
push1
|
|
pTos pPolygon
|
|
callk kernel_137, $2
|
|
bnot
|
|
sat temp[$d]
|
|
push
|
|
ldi $1
|
|
eq?
|
|
bnt code_2206
|
|
push2
|
|
pTos pPolygon
|
|
push1
|
|
callk kernel_137, $4
|
|
bnot
|
|
code_2206: push1
|
|
pTos pPolygon
|
|
callk kernel_137, $2
|
|
bnot
|
|
sat temp[$d]
|
|
code_220f: lat temp[$0]
|
|
ret
|
|
|
|
WorldObject::submitPolygon:
|
|
link $3
|
|
pToa pRoom
|
|
not
|
|
bt code_2232
|
|
pToa pPolygon
|
|
not
|
|
bt code_2232
|
|
pTos pPolygon
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_2232
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
code_2232: bnt code_2239
|
|
ret
|
|
|
|
jmp code_227b
|
|
|
|
code_2239: pushi $2b ; 43, '+', type
|
|
push1
|
|
push2
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pTos pPolygon
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Polygon
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $c
|
|
bnot
|
|
pushi $f1 ; 241, scale
|
|
push1
|
|
pTos scaleX
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $dd ; 221, moveBy
|
|
push2
|
|
pTos x
|
|
pTos y
|
|
pToa z
|
|
sub
|
|
push
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
lat temp[$0]
|
|
aTop pAddedPolygon
|
|
pushi $2bd ; 701, addPolygon
|
|
push1
|
|
push
|
|
pToa pRoom
|
|
send $6
|
|
bnot
|
|
code_227b: ret
|
|
|
|
WorldObject::removePolygon:
|
|
pToa pAddedPolygon
|
|
bnt code_229d
|
|
pushi $2be ; 702, deletePolygon
|
|
push1
|
|
push
|
|
pToa pRoom
|
|
send $6
|
|
bnot
|
|
pushi $16f ; 367, pDispose
|
|
push1
|
|
push1
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pAddedPolygon
|
|
send $a
|
|
bnot
|
|
ldi $0
|
|
aTop pAddedPolygon
|
|
code_229d: ret
|
|
|
|
WorldObject::addToCast:
|
|
link $2
|
|
ldi $0
|
|
sat temp[$0]
|
|
lap param[$0]
|
|
bnt code_22ad
|
|
lap param[$1]
|
|
sat temp[$0]
|
|
code_22ad: lat temp[$0]
|
|
not
|
|
bnt code_22c1
|
|
lag global[$3]
|
|
bnt code_22c1
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
code_22c1: lat temp[$0]
|
|
not
|
|
bnt code_22c8
|
|
ret
|
|
|
|
code_22c8: pushi $17b ; 379, addToCast
|
|
push1
|
|
lsp param[$1]
|
|
super Act, $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::deleteFromCast:
|
|
link $1
|
|
pToa client
|
|
bnt code_2355
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_22f9
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $69 ; 105, 'i', hide
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_22f9: pToa pRoom
|
|
bnt code_230e
|
|
pushi $3c4 ; 964, removePolygon
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
pToa pRoom
|
|
send $6
|
|
bnot
|
|
code_230e: push1
|
|
pTos client
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_2332
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $58 ; 88, 'X', delete
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
bnt code_2332
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_2332: pushi $69 ; 105, 'i', hide
|
|
push0
|
|
self $4
|
|
bnot
|
|
pToa scaler
|
|
bnt code_234f
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scaler
|
|
ldi $80 ; 128, lastKey
|
|
aTop scaleY
|
|
aTop scaleX
|
|
code_234f: ldi $0
|
|
aTop client
|
|
aTop pRoom
|
|
code_2355: ret
|
|
|
|
WorldObject::addToRoom:
|
|
link $1
|
|
lsp param[$1]
|
|
pToa pRoom
|
|
eq?
|
|
bnt code_236e
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $319 ; 793, pHead
|
|
self $6
|
|
bnot
|
|
bnt code_236e
|
|
ret
|
|
|
|
code_236e: push1
|
|
pushSelf
|
|
callk kernel_31, $2
|
|
bnot
|
|
lap param[$1]
|
|
bnt code_23dd
|
|
pushi $3c7 ; 967, deleteFromCast
|
|
push0
|
|
self $4
|
|
bnot
|
|
lap param[$1]
|
|
aTop pRoom
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
pushi $421 ; 1057, pWObjectList
|
|
push0
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $17b ; 379, addToCast
|
|
push1
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $3c8 ; 968, matchScaler
|
|
push1
|
|
lsp param[$1]
|
|
pushi $3c2 ; 962, generatePolygon
|
|
push0
|
|
pushi $3c3 ; 963, submitPolygon
|
|
push0
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $1a
|
|
bnot
|
|
pushi $3e0 ; 992, setVisible
|
|
push0
|
|
self $4
|
|
bnot
|
|
pToa script
|
|
sat temp[$0]
|
|
code_23c2: lat temp[$0]
|
|
bnt code_23dd
|
|
pushi $c5 ; 197, pRoom
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_23c2
|
|
|
|
code_23dd: ret
|
|
|
|
WorldObject::deleteFromRoom:
|
|
pushSelf
|
|
lag global[$1]
|
|
ne?
|
|
bnt code_23ec
|
|
pushi $3a5 ; 933, hideContents
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_23ec: pushi $3c7 ; 967, deleteFromCast
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::matchScaler:
|
|
pToa pDoScaler
|
|
bnt code_243f
|
|
lap param[$1]
|
|
bnt code_243f
|
|
pushi $144 ; 324, scaler
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_243f
|
|
pTos scaleSignal
|
|
ldi $1
|
|
or
|
|
aTop scaleSignal
|
|
pTos scaleSignal
|
|
ldi $fd ; 253, strip
|
|
and
|
|
aTop scaleSignal
|
|
pToa scaler
|
|
bnt code_2422
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_2422: pushi $36 ; 54, '6', client
|
|
push1
|
|
pushSelf
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
pushi $144 ; 324, scaler
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
aTop scaler
|
|
send $a
|
|
bnot
|
|
code_243f: ret
|
|
|
|
WorldObject::validatePosn:
|
|
link $1
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
self $6
|
|
bnot
|
|
bnt code_249b
|
|
pTos pAction
|
|
ldi $3 ; z
|
|
lt?
|
|
bnt code_249b
|
|
pushi $45 ; 69, 'E', doit
|
|
pushi $4 ; scaleX
|
|
pushi $422 ; 1058, pSafeX
|
|
push0
|
|
pToa pRoom
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $423 ; 1059, pSafeY
|
|
push0
|
|
pToa pRoom
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos x
|
|
pTos y
|
|
push2
|
|
pushi $eac4 ; -5436
|
|
push1
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $c
|
|
bnot
|
|
sat temp[$0]
|
|
push1
|
|
push0
|
|
send $4
|
|
bnot
|
|
aTop x
|
|
push2
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
aTop y
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_249b: ret
|
|
|
|
WorldObject::setVisible:
|
|
pushi $144 ; 324, scaler
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_24b3
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
pushi $144 ; 324, scaler
|
|
push0
|
|
self $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
code_24b3: pToa pHidden
|
|
bnt code_24c1
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_2592
|
|
|
|
code_24c1: pushi $3a7 ; 935, getBaseOwner
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
selfID
|
|
ne?
|
|
bnt code_24d7
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_2592
|
|
|
|
code_24d7: lag global[$1]
|
|
bnt code_2508
|
|
pToa pCombatGroup
|
|
bnt code_2508
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class CombatRoom
|
|
push
|
|
lag global[$3]
|
|
send $6
|
|
bnot
|
|
not
|
|
bt code_24fc
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
not
|
|
code_24fc: bnt code_2508
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_2592
|
|
|
|
code_2508: lag global[$1]
|
|
bnt code_2548
|
|
pToa pCombatGroup
|
|
bnt code_2548
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class CombatRoom
|
|
push
|
|
lag global[$3]
|
|
send $6
|
|
bnot
|
|
not
|
|
bt code_253c
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
self $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
not
|
|
code_253c: bnt code_2548
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_2592
|
|
|
|
code_2548: lag global[$1]
|
|
bnt code_2582
|
|
pushSelf
|
|
ne?
|
|
bnt code_2582
|
|
pushi $35f ; 863, getAffectedState
|
|
push1
|
|
pushi $12 ; 18, nsLeft
|
|
self $6
|
|
bnot
|
|
bt code_2567
|
|
pushi $35f ; 863, getAffectedState
|
|
push1
|
|
pushi $15 ; 21, nsBottom
|
|
self $6
|
|
bnot
|
|
code_2567: bnt code_2582
|
|
pushi $35f ; 863, getAffectedState
|
|
push1
|
|
pushi $11 ; 17, bitmap
|
|
lag global[$1]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_2582
|
|
pushi $69 ; 105, 'i', hide
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_2592
|
|
|
|
code_2582: pushi $75 ; 117, 'u', show
|
|
push0
|
|
&rest $1
|
|
super Act, $4
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_2592: ret
|
|
|
|
WorldObject::fromPacket:
|
|
link $14
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
not
|
|
bnt code_25a4
|
|
ldi $0
|
|
ret
|
|
|
|
code_25a4: ldi $0
|
|
sat temp[$d]
|
|
sat temp[$0]
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_25ca
|
|
lap param[$2]
|
|
sat temp[$0]
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
not
|
|
bnt code_25ce
|
|
ldi $0
|
|
sat temp[$0]
|
|
jmp code_25ce
|
|
|
|
code_25ca: ldi $0
|
|
sat temp[$0]
|
|
code_25ce: ldi $ff ; 255, asInteger
|
|
aTop pPolygon
|
|
ldi $0
|
|
sat temp[$8]
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $3c6 ; 966, deleteFromRoom
|
|
push0
|
|
self $8
|
|
bnot
|
|
ldi $0
|
|
aTop pPolygon
|
|
push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
sat temp[$9]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push
|
|
push2
|
|
pushi $9cb6 ; -25418
|
|
push0
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
sat temp[$a]
|
|
bnt code_260c
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_260c: pushi $373 ; 883, setAction
|
|
push1
|
|
pTos pAction
|
|
self $6
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
bt code_2624
|
|
pToa pClutStart
|
|
code_2624: aTop pBitmapBased
|
|
push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
aTop pServIDLo
|
|
push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
aTop pServIDHi
|
|
pushi $386 ; 902, hasBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_2655
|
|
push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
aTop pColor
|
|
code_2655: pushi $2c8 ; 712, lookup
|
|
push2
|
|
pTos pServIDLo
|
|
pTos pServIDHi
|
|
lag global[$6a]
|
|
send $8
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_2671
|
|
pushi $3df ; 991, setServID
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
self $8
|
|
bnot
|
|
code_2671: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_26b2
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Str
|
|
send $4
|
|
bnot
|
|
sat temp[$12]
|
|
push2
|
|
pushi $4 ; scaleX
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
pushi $71 ; 113, 'q', data
|
|
push1
|
|
pushi $3 ; z
|
|
pushi $8 ; fixPriority
|
|
lsp param[$1]
|
|
push0
|
|
callk kernel_156, $6
|
|
bnot
|
|
push
|
|
lat temp[$12]
|
|
send $6
|
|
bnot
|
|
pushi $3db ; 987, setName
|
|
push1
|
|
lst temp[$12]
|
|
self $6
|
|
bnot
|
|
code_26b2: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
sat temp[$b]
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_26cf
|
|
pushi $3d3 ; 979, setAffectedState
|
|
push1
|
|
lst temp[$b]
|
|
self $6
|
|
bnot
|
|
jmp code_26b2
|
|
|
|
code_26cf: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_2706
|
|
ldi $1
|
|
aTop pMoney
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$b]
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
push
|
|
push0
|
|
lat temp[$b]
|
|
send $8
|
|
bnot
|
|
jmp code_2728
|
|
|
|
code_2706: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_2728
|
|
ldi $1
|
|
aTop pMoney
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$b]
|
|
pushi $3 ; z
|
|
pushi $6 ; maxScale
|
|
lsp param[$1]
|
|
push
|
|
callk kernel_156, $6
|
|
bnot
|
|
code_2728: toss
|
|
pushi $3dd ; 989, addToServer
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_277c
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
sag global[$e3]
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
sag global[$e4]
|
|
pushi $1a9 ; 425, setStep
|
|
push2
|
|
lsg global[$e3]
|
|
push
|
|
self $8
|
|
bnot
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
aTop xScaleAdj
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
aTop yScaleAdj
|
|
pushi $36c ; 876, fromPacket
|
|
push1
|
|
lsp param[$1]
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
code_277c: pToa pClutStart
|
|
bnt code_278a
|
|
pushi $3ae ; 942, setColor
|
|
push1
|
|
pTos pColor
|
|
self $6
|
|
bnot
|
|
code_278a: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
sat temp[$13]
|
|
push
|
|
ldi $10 ; 16, cel
|
|
and
|
|
bnt code_27a6
|
|
ldi $0
|
|
aTop pDoScaler
|
|
lst temp[$13]
|
|
ldi $ef ; 239, dragDoit
|
|
and
|
|
sat temp[$13]
|
|
code_27a6: lat temp[$13]
|
|
bnt code_2831
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$c]
|
|
lst temp[$13]
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_27d6
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
push
|
|
push0
|
|
lat temp[$c]
|
|
send $8
|
|
bnot
|
|
jmp code_27e9
|
|
|
|
code_27d6: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_27e9
|
|
pushi $3 ; z
|
|
pushi $6 ; maxScale
|
|
lsp param[$1]
|
|
lst temp[$c]
|
|
callk kernel_156, $6
|
|
bnot
|
|
code_27e9: toss
|
|
pushi $2c6 ; 710, findRoom
|
|
push2
|
|
lst temp[$c]
|
|
push0
|
|
lag global[$30]
|
|
send $8
|
|
bnot
|
|
sat temp[$8]
|
|
push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
aTop x
|
|
push2
|
|
pushi $4 ; scaleX
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
aTop y
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
aTop loop
|
|
pTos loop
|
|
push1
|
|
pushSelf
|
|
callk kernel_21, $2
|
|
bnot
|
|
ge?
|
|
bnt code_2828
|
|
ldi $0
|
|
aTop loop
|
|
code_2828: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$c]
|
|
send $4
|
|
bnot
|
|
code_2831: pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_2856
|
|
pushi $36c ; 876, fromPacket
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
bnt code_2856
|
|
pushi $38e ; 910, take
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_2856: pushi $35c ; 860, getBase
|
|
push1
|
|
class BWeapon
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_288c
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_28da
|
|
lat temp[$0]
|
|
bnt code_28da
|
|
pushi $424 ; 1060, pWearer
|
|
push1
|
|
lst temp[$0]
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
pushi $393 ; 915, bePutOn
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
jmp code_28da
|
|
|
|
code_288c: pushi $35c ; 860, getBase
|
|
push1
|
|
class BHead
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_28a7
|
|
pushi $36c ; 876, fromPacket
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_28da
|
|
|
|
code_28a7: pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_28da
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_28da
|
|
lat temp[$0]
|
|
bnt code_28da
|
|
pushi $424 ; 1060, pWearer
|
|
push1
|
|
lst temp[$0]
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
pushi $393 ; 915, bePutOn
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
code_28da: pushi $35c ; 860, getBase
|
|
push1
|
|
class BDescribed
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_290e
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_2901
|
|
pushi $645 ; 1605, pIsBook
|
|
push1
|
|
push1
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
jmp code_2916
|
|
|
|
code_2901: pushi $645 ; 1605, pIsBook
|
|
push1
|
|
push0
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
jmp code_2916
|
|
|
|
code_290e: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
code_2916: pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_292e
|
|
pushi $36c ; 876, fromPacket
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
code_292e: pushi $35c ; 860, getBase
|
|
push1
|
|
class BOpenable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_296c
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_296c
|
|
pushi $425 ; 1061, pOpen
|
|
push1
|
|
push1
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $1e ; 30, brRight
|
|
self $6
|
|
bnot
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
push1
|
|
pushSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
self $6
|
|
bnot
|
|
code_296c: pushi $35c ; 860, getBase
|
|
push1
|
|
class BSwitch
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_2997
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_2997
|
|
pushi $425 ; 1061, pOpen
|
|
push1
|
|
push1
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
code_2997: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
sat temp[$11]
|
|
bnt code_29f2
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BLockable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
not
|
|
bnt code_29c0
|
|
pushi $387 ; 903, addBase
|
|
push1
|
|
class BLockable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$4]
|
|
code_29c0: pushi $426 ; 1062, pLocked
|
|
push1
|
|
lst temp[$11]
|
|
ldi $2
|
|
and
|
|
bnt code_29d1
|
|
ldi $1
|
|
jmp code_29d3
|
|
|
|
code_29d1: ldi $0
|
|
code_29d3: push
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
pushi $427 ; 1063, pAutoLock
|
|
push1
|
|
lst temp[$11]
|
|
ldi $4 ; scaleX
|
|
and
|
|
bnt code_29ea
|
|
ldi $1
|
|
jmp code_29ec
|
|
|
|
code_29ea: ldi $0
|
|
code_29ec: push
|
|
lat temp[$4]
|
|
send $6
|
|
bnot
|
|
code_29f2: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_2a50
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
pushi $3 ; z
|
|
self $6
|
|
bnot
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
push1
|
|
pushSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
ldi $1
|
|
sub
|
|
push
|
|
self $6
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$c]
|
|
pushi $3 ; z
|
|
pushi $6 ; maxScale
|
|
lsp param[$1]
|
|
push
|
|
callk kernel_156, $6
|
|
bnot
|
|
pushi $384 ; 900, pSittingOn
|
|
push1
|
|
pushi $2c8 ; 712, lookup
|
|
push1
|
|
lst temp[$c]
|
|
lag global[$6a]
|
|
send $6
|
|
bnot
|
|
push
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
self $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$c]
|
|
send $4
|
|
bnot
|
|
code_2a50: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_2a73
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BTalk
|
|
push
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_2a73
|
|
pushi $387 ; 903, addBase
|
|
push1
|
|
class BTalk
|
|
push
|
|
self $6
|
|
bnot
|
|
code_2a73: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_2a86
|
|
pushi $3fb ; 1019, pHidden
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
code_2a86: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_2b67
|
|
pToa pCombatGroup
|
|
not
|
|
bnt code_2aa7
|
|
pushi $8d ; 141, new
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
aTop pCombatGroup
|
|
code_2aa7: pushi $3 ; z
|
|
pushi $6 ; maxScale
|
|
lsp param[$1]
|
|
pTos pCombatGroup
|
|
callk kernel_156, $6
|
|
bnot
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class CombatRoom
|
|
push
|
|
lag global[$3]
|
|
send $6
|
|
bnot
|
|
not
|
|
bt code_2ad8
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pTos pCombatGroup
|
|
pushi $2ca ; 714, pServID
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
not
|
|
code_2ad8: not
|
|
bnt code_2ae0
|
|
lag global[$3]
|
|
sat temp[$8]
|
|
code_2ae0: lag global[$1]
|
|
bnt code_2b5f
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_2b5f
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_2b5f
|
|
pushi $128 ; 296, equalLong
|
|
push1
|
|
pushi $2fb ; 763, pCombatGroup
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pCombatGroup
|
|
send $6
|
|
bnot
|
|
bnt code_2b5f
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $319 ; 793, pHead
|
|
self $6
|
|
bnot
|
|
bnt code_2b54
|
|
push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
bnt code_2b3f
|
|
pushi $31b ; 795, addCombatant
|
|
push2
|
|
pushSelf
|
|
push0
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
jmp code_2b67
|
|
|
|
code_2b3f: pushi $31b ; 795, addCombatant
|
|
push2
|
|
pushSelf
|
|
push1
|
|
pushi $c5 ; 197, pRoom
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
jmp code_2b67
|
|
|
|
code_2b54: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
jmp code_2b67
|
|
|
|
code_2b5f: push2
|
|
push2
|
|
lsp param[$1]
|
|
callk kernel_156, $4
|
|
bnot
|
|
code_2b67: pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_2bc0
|
|
push2
|
|
push1
|
|
push2
|
|
pushi $9 ; inLeft
|
|
pushi $35d ; 861, pProperName
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_91, $4
|
|
bnot
|
|
push
|
|
callk kernel_92, $4
|
|
bnot
|
|
bnt code_2bad
|
|
pushi $3db ; 987, setName
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
pushi $35d ; 861, pProperName
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
jmp code_2bc0
|
|
|
|
code_2bad: pushi $3db ; 987, setName
|
|
push1
|
|
pushi $d0 ; 208, with
|
|
push1
|
|
pTos pName
|
|
class Str
|
|
send $6
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
code_2bc0: pToa pMoney
|
|
bnt code_2bed
|
|
pTos pBaseView
|
|
ldi $c5a8 ; -14936
|
|
eq?
|
|
bnt code_2bdb
|
|
pushi $3d8 ; 984, setManaValue
|
|
push1
|
|
lst temp[$b]
|
|
self $6
|
|
bnot
|
|
jmp code_2be4
|
|
|
|
code_2bdb: pushi $3d5 ; 981, setValue
|
|
push1
|
|
lst temp[$b]
|
|
self $6
|
|
bnot
|
|
code_2be4: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$b]
|
|
send $4
|
|
bnot
|
|
code_2bed: lat temp[$8]
|
|
bnt code_2bfa
|
|
pushi $3c5 ; 965, addToRoom
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
code_2bfa: pushi $3e0 ; 992, setVisible
|
|
push0
|
|
self $4
|
|
bnot
|
|
pushi $3c2 ; 962, generatePolygon
|
|
push0
|
|
pushi $3c3 ; 963, submitPolygon
|
|
push0
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $e
|
|
bnot
|
|
pTos pServIDLo
|
|
pToa pServIDHi
|
|
eq?
|
|
bnt code_2c1d
|
|
pprev
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
code_2c1d: bt code_2c30
|
|
lat temp[$0]
|
|
not
|
|
bnt code_2c36
|
|
lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_2c36
|
|
lap param[$2]
|
|
code_2c30: bnt code_2c36
|
|
ldi $0
|
|
ret
|
|
|
|
code_2c36: ldi $1
|
|
ret
|
|
|
|
WorldObject::fromExtendedPacket:
|
|
link $5
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$4]
|
|
push
|
|
ldi $2
|
|
and
|
|
bnt code_2ccb
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pStrength
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pDexterity
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pIntelligence
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pEndurance
|
|
pushi $3d5 ; 981, setValue
|
|
push1
|
|
pushi $136 ; 310, getLong
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $3d8 ; 984, setManaValue
|
|
push1
|
|
pushi $136 ; 310, getLong
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $135 ; 309, getWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pLevel
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pAlignment
|
|
jmp code_2cfb
|
|
|
|
code_2ccb: pushi $8d ; 141, new
|
|
push2
|
|
push0
|
|
push0
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
ldi $0
|
|
aTop pStrength
|
|
aTop pDexterity
|
|
aTop pIntelligence
|
|
aTop pEndurance
|
|
pushi $3d5 ; 981, setValue
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $3d8 ; 984, setManaValue
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
ldi $0
|
|
aTop pLevel
|
|
aTop pAlignment
|
|
code_2cfb: pushi $135 ; 309, getWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pHealth
|
|
pushi $135 ; 309, getWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pHealthHi
|
|
pushi $135 ; 309, getWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pHealthMax
|
|
pushi $135 ; 309, getWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pHealthMaxHi
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCharacter
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_2f9a
|
|
pushi $139 ; 313, getString
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$3]
|
|
pushi $42a ; 1066, setTitle
|
|
push1
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$3]
|
|
send $4
|
|
bnot
|
|
lst temp[$4]
|
|
ldi $2
|
|
and
|
|
bnt code_2e8d
|
|
pushi $42b ; 1067, pExperience
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
bnt code_2d7e
|
|
pushi $136 ; 310, getLong
|
|
push1
|
|
pushi $42b ; 1067, pExperience
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_2d91
|
|
|
|
code_2d7e: pushi $42b ; 1067, pExperience
|
|
push1
|
|
pushi $136 ; 310, getLong
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
code_2d91: pushi $42c ; 1068, pStealingCount
|
|
push1
|
|
pushi $136 ; 310, getLong
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $42d ; 1069, pStealingUnserved
|
|
push1
|
|
pushi $136 ; 310, getLong
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $42e ; 1070, pKillingCount
|
|
push1
|
|
pushi $136 ; 310, getLong
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $42f ; 1071, pKillingUnserved
|
|
push1
|
|
pushi $136 ; 310, getLong
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
sat temp[$2]
|
|
code_2de1: lst temp[$2]
|
|
ldi $1f ; 31, brBottom
|
|
lt?
|
|
bnt code_2e08
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$2]
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $430 ; 1072, pSkillArray
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
+at temp[$2]
|
|
jmp code_2de1
|
|
|
|
code_2e08: ldi $0
|
|
sat temp[$2]
|
|
code_2e0c: lst temp[$2]
|
|
ldi $94 ; 148, init
|
|
lt?
|
|
bnt code_2e34
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$2]
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $431 ; 1073, pSpellArray
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
+at temp[$2]
|
|
jmp code_2e0c
|
|
|
|
code_2e34: ldi $0
|
|
sat temp[$2]
|
|
code_2e38: lst temp[$2]
|
|
ldi $64 ; 100, 'd', moveDone
|
|
lt?
|
|
bnt code_2e77
|
|
pushi $322 ; 802, pStatusArray
|
|
push0
|
|
class CharInfo
|
|
send $4
|
|
bnot
|
|
bnt code_2e6a
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$2]
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $322 ; 802, pStatusArray
|
|
push0
|
|
class CharInfo
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
jmp code_2e73
|
|
|
|
code_2e6a: pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
code_2e73: +at temp[$2]
|
|
jmp code_2e38
|
|
|
|
code_2e77: pushi $432 ; 1074, pBuildPoints
|
|
push1
|
|
pushi $135 ; 309, getWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_2f78
|
|
|
|
code_2e8d: pushi $42b ; 1067, pExperience
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push2
|
|
push0
|
|
push0
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $42c ; 1068, pStealingCount
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push2
|
|
push0
|
|
push0
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $42d ; 1069, pStealingUnserved
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push2
|
|
push0
|
|
push0
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $42e ; 1070, pKillingCount
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push2
|
|
push0
|
|
push0
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
pushi $42f ; 1071, pKillingUnserved
|
|
push1
|
|
pushi $8d ; 141, new
|
|
push2
|
|
push0
|
|
push0
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
sat temp[$2]
|
|
code_2efa: lst temp[$2]
|
|
ldi $1f ; 31, brBottom
|
|
lt?
|
|
bnt code_2f18
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$2]
|
|
push0
|
|
pushi $430 ; 1072, pSkillArray
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
+at temp[$2]
|
|
jmp code_2efa
|
|
|
|
code_2f18: ldi $0
|
|
sat temp[$2]
|
|
code_2f1c: lst temp[$2]
|
|
ldi $94 ; 148, init
|
|
lt?
|
|
bnt code_2f3b
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$2]
|
|
push0
|
|
pushi $431 ; 1073, pSpellArray
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
+at temp[$2]
|
|
jmp code_2f1c
|
|
|
|
code_2f3b: ldi $0
|
|
sat temp[$2]
|
|
code_2f3f: lst temp[$2]
|
|
ldi $64 ; 100, 'd', moveDone
|
|
lt?
|
|
bnt code_2f6e
|
|
pushi $322 ; 802, pStatusArray
|
|
push0
|
|
class CharInfo
|
|
send $4
|
|
bnot
|
|
bnt code_2f68
|
|
pushi $4b ; 75, 'K', at
|
|
push2
|
|
lst temp[$2]
|
|
push0
|
|
pushi $322 ; 802, pStatusArray
|
|
push0
|
|
class CharInfo
|
|
send $4
|
|
bnot
|
|
send $8
|
|
bnot
|
|
jmp code_2f6a
|
|
|
|
code_2f68: ldi $0
|
|
code_2f6a: +at temp[$2]
|
|
jmp code_2f3f
|
|
|
|
code_2f6e: pushi $432 ; 1074, pBuildPoints
|
|
push1
|
|
push0
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
code_2f78: pushi $135 ; 309, getWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pArmorClass
|
|
selfID
|
|
sat temp[$1]
|
|
pushi $433 ; 1075, pPeaceful
|
|
push1
|
|
pushi $134 ; 308, getByte
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
code_2f9a: ret
|
|
|
|
WorldObject::buildExtendedPacket:
|
|
link $1
|
|
pushi $13a ; 314, putByte
|
|
push1
|
|
pTos pStrength
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $13a ; 314, putByte
|
|
push1
|
|
pTos pDexterity
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $13a ; 314, putByte
|
|
push1
|
|
pTos pIntelligence
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $13a ; 314, putByte
|
|
push1
|
|
pTos pEndurance
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $13a ; 314, putByte
|
|
push1
|
|
pTos pAlignment
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $13a ; 314, putByte
|
|
push1
|
|
pTos xScaleAdj
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $13a ; 314, putByte
|
|
push1
|
|
pTos yScaleAdj
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::getServIDs:
|
|
push1
|
|
lofsa string_03d2 ; "getServIDs called"
|
|
push
|
|
calle export60029_0, $2
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::nextFeature:
|
|
pushi $63 ; 99, 'c', perform
|
|
push1
|
|
pushi $3a2 ; 930, nextFeature
|
|
&rest $1
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::prevFeature:
|
|
pushi $63 ; 99, 'c', perform
|
|
push1
|
|
pushi $3a3 ; 931, prevFeature
|
|
&rest $1
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::setView:
|
|
lap param[$1]
|
|
aTop pBaseView
|
|
pTos pBaseView
|
|
pToa pAction
|
|
add
|
|
aTop view
|
|
ret
|
|
|
|
WorldObject::changed:
|
|
link $1
|
|
pToa pMovieCmd
|
|
bnt code_3042
|
|
pushi $434 ; 1076, pDone
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_303a
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
jmp code_3042
|
|
|
|
code_303a: pushi $45 ; 69, 'E', doit
|
|
push0
|
|
pToa pMovieCmd
|
|
send $4
|
|
bnot
|
|
code_3042: pToa pBaseList
|
|
bnt code_3078
|
|
pushi $4 ; scaleX
|
|
pushi $14 ; 20, nsRight
|
|
push
|
|
pushi $97 ; 151, isKindOf
|
|
class BContainer
|
|
push
|
|
callk kernel_90, $8
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_3078
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_3078
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $3cb ; 971, changed
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_3078: ret
|
|
|
|
WorldObject::sendMovie:
|
|
link $3
|
|
pToa pSendMovie
|
|
bt code_308a
|
|
lsp param[$0]
|
|
ldi $0
|
|
gt?
|
|
bnt code_3131
|
|
lap param[$1]
|
|
code_308a: bnt code_3131
|
|
pToa mover
|
|
bnt code_309d
|
|
pushi $3ce ; 974, recordMotion
|
|
push2
|
|
pTos x
|
|
pTos y
|
|
self $8
|
|
bnot
|
|
code_309d: pToa pOutgoingMovie
|
|
bnt code_3131
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_3131
|
|
pushi $2f8 ; 760, buildPacket
|
|
push0
|
|
pToa pOutgoingMovie
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
pToa pRoom
|
|
bnt code_30f4
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class CombatRoom
|
|
push
|
|
pToa pRoom
|
|
send $6
|
|
bnot
|
|
bnt code_30e6
|
|
pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push0
|
|
pushi $2c1 ; 705, pRoomList
|
|
push0
|
|
lag global[$30]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
jmp code_30f8
|
|
|
|
code_30e6: pushi $2f5 ; 757, pNumber
|
|
push0
|
|
pToa pRoom
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
jmp code_30f8
|
|
|
|
code_30f4: ldi $0
|
|
sat temp[$2]
|
|
code_30f8: pushi $7 ; priority
|
|
pushi $e ; 14, view
|
|
lofsa string_03e4 ; "tpla"
|
|
push
|
|
pushi $29 ; 41, ')', state
|
|
pushSelf
|
|
lst temp[$2]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $71 ; 113, 'q', data
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_128, $e
|
|
bnot
|
|
ldi $0
|
|
aTop pSendMovie
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
pushi $435 ; 1077, toss
|
|
push0
|
|
pToa pOutgoingMovie
|
|
send $4
|
|
bnot
|
|
code_3131: ret
|
|
|
|
WorldObject::moveDone:
|
|
pToa pPlayMovie
|
|
not
|
|
bnt code_3143
|
|
pushi $3ce ; 974, recordMotion
|
|
push2
|
|
pTos x
|
|
pTos y
|
|
self $8
|
|
bnot
|
|
code_3143: ret
|
|
|
|
WorldObject::recordPosn:
|
|
pToa pOutgoingMovie
|
|
bnt code_317d
|
|
pToa pPlayMovie
|
|
not
|
|
bnt code_317d
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $94 ; 148, init
|
|
pushi $3 ; z
|
|
pTos x
|
|
pTos y
|
|
pTos loop
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push1
|
|
push1
|
|
push2
|
|
pushi $9ca5 ; -25435
|
|
push0
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
send $e
|
|
bnot
|
|
push
|
|
pToa pOutgoingMovie
|
|
send $6
|
|
bnot
|
|
code_317d: ret
|
|
|
|
WorldObject::recordMotion:
|
|
pToa pOutgoingMovie
|
|
bnt code_31b9
|
|
pToa pPlayMovie
|
|
not
|
|
bnt code_31b9
|
|
pToa pRecordMotion
|
|
bnt code_31b9
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $94 ; 148, init
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push1
|
|
push1
|
|
push2
|
|
pushi $9ca5 ; -25435
|
|
push1
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
send $c
|
|
bnot
|
|
push
|
|
pToa pOutgoingMovie
|
|
send $6
|
|
bnot
|
|
code_31b9: ret
|
|
|
|
WorldObject::recordHide:
|
|
pToa pOutgoingMovie
|
|
bnt code_31ec
|
|
pToa pPlayMovie
|
|
not
|
|
bnt code_31ec
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push1
|
|
push1
|
|
push2
|
|
pushi $9ca5 ; -25435
|
|
pushi $3 ; z
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
send $8
|
|
bnot
|
|
push
|
|
pToa pOutgoingMovie
|
|
send $6
|
|
bnot
|
|
code_31ec: ret
|
|
|
|
WorldObject::recordShow:
|
|
pToa pOutgoingMovie
|
|
bnt code_321e
|
|
pToa pPlayMovie
|
|
not
|
|
bnt code_321e
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push1
|
|
push1
|
|
push2
|
|
pushi $9ca5 ; -25435
|
|
push2
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
send $8
|
|
bnot
|
|
push
|
|
pToa pOutgoingMovie
|
|
send $6
|
|
bnot
|
|
code_321e: ret
|
|
|
|
WorldObject::recordHeading:
|
|
pToa pOutgoingMovie
|
|
bnt code_3259
|
|
pToa pPlayMovie
|
|
not
|
|
bnt code_3259
|
|
pToa pRecordMotion
|
|
bnt code_3259
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $94 ; 148, init
|
|
push1
|
|
lsp param[$1]
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push1
|
|
push1
|
|
push2
|
|
pushi $9ca5 ; -25435
|
|
pushi $4 ; scaleX
|
|
callk kernel_2, $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
send $a
|
|
bnot
|
|
push
|
|
pToa pOutgoingMovie
|
|
send $6
|
|
bnot
|
|
code_3259: ret
|
|
|
|
WorldObject::setHeading:
|
|
link $1
|
|
pToa loop
|
|
sat temp[$0]
|
|
push2
|
|
pushSelf
|
|
lsp param[$1]
|
|
callk kernel_95, $4
|
|
bnot
|
|
lst temp[$0]
|
|
pToa loop
|
|
ne?
|
|
bnt code_3292
|
|
pToa pPlayMovie
|
|
not
|
|
bnt code_327f
|
|
pushi $3d1 ; 977, recordHeading
|
|
push1
|
|
lsp param[$1]
|
|
self $6
|
|
bnot
|
|
code_327f: lat temp[$0]
|
|
aTop loop
|
|
pushi $15a ; 346, setHeading
|
|
push1
|
|
lsp param[$1]
|
|
&rest $2
|
|
super Act, $6
|
|
bnot
|
|
jmp code_32a5
|
|
|
|
code_3292: lsp param[$0]
|
|
ldi $1
|
|
gt?
|
|
bnt code_32a5
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
ldi $1
|
|
lapi param[$1]
|
|
send $4
|
|
bnot
|
|
code_32a5: ret
|
|
|
|
WorldObject::getAffectedState:
|
|
pToa pAffectedHi
|
|
bnt code_32b4
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
code_32b4: ldi $0
|
|
ret
|
|
|
|
WorldObject::setAffectedState:
|
|
link $3
|
|
pToa pAffectedHi
|
|
not
|
|
bnt code_32cc
|
|
pushi $8d ; 141, new
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
class ByteArray
|
|
send $6
|
|
bnot
|
|
aTop pAffectedHi
|
|
code_32cc: pushi $4b ; 75, 'K', at
|
|
push2
|
|
lsp param[$1]
|
|
push1
|
|
pToa pAffectedHi
|
|
send $8
|
|
bnot
|
|
lsp param[$1]
|
|
ldi $12 ; 18, nsLeft
|
|
eq?
|
|
bt code_32e4
|
|
lsp param[$1]
|
|
ldi $15 ; 21, nsBottom
|
|
eq?
|
|
code_32e4: bnt code_332d
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldEgo
|
|
push
|
|
self $6
|
|
bnot
|
|
bt code_3302
|
|
lag global[$1]
|
|
bnt code_3345
|
|
pushi $35f ; 863, getAffectedState
|
|
push1
|
|
pushi $11 ; 17, bitmap
|
|
send $6
|
|
bnot
|
|
code_3302: bnt code_3345
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class InvisibleClut
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
send $4
|
|
bnot
|
|
lat temp[$0]
|
|
aTop pInvisibleClut
|
|
push0
|
|
call code_0869, $0
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
jmp code_3345
|
|
|
|
code_332d: lsp param[$1]
|
|
ldi $58 ; 88, 'X', delete
|
|
ge?
|
|
bnt code_3345
|
|
lsp param[$1]
|
|
ldi $62 ; 98, 'b', vol
|
|
le?
|
|
bnt code_3345
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
code_3345: pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_335b
|
|
pushi $436 ; 1078, updateContainerButton
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_335b: pushi $3e0 ; 992, setVisible
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::clearAffectedState:
|
|
link $2
|
|
pToa pAffectedHi
|
|
not
|
|
bnt code_336c
|
|
ret
|
|
|
|
code_336c: pushi $4b ; 75, 'K', at
|
|
push2
|
|
lsp param[$1]
|
|
push0
|
|
pToa pAffectedHi
|
|
send $8
|
|
bnot
|
|
lsp param[$1]
|
|
ldi $12 ; 18, nsLeft
|
|
eq?
|
|
bt code_3384
|
|
lsp param[$1]
|
|
ldi $15 ; 21, nsBottom
|
|
eq?
|
|
code_3384: bnt code_33aa
|
|
pToa pInvisibleClut
|
|
bnt code_33dd
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pInvisibleClut
|
|
push0
|
|
call code_08b7, $0
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
jmp code_33dd
|
|
|
|
code_33aa: lsp param[$1]
|
|
ldi $58 ; 88, 'X', delete
|
|
ge?
|
|
bnt code_33c5
|
|
lsp param[$1]
|
|
ldi $62 ; 98, 'b', vol
|
|
le?
|
|
bnt code_33c5
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
jmp code_33dd
|
|
|
|
code_33c5: lsp param[$1]
|
|
ldi $58 ; 88, 'X', delete
|
|
ge?
|
|
bnt code_33dd
|
|
lsp param[$1]
|
|
ldi $62 ; 98, 'b', vol
|
|
le?
|
|
bnt code_33dd
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
code_33dd: pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_33f3
|
|
pushi $436 ; 1078, updateContainerButton
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_33f3: pushi $3e0 ; 992, setVisible
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::setValue:
|
|
link $4
|
|
pToa pValue
|
|
not
|
|
bnt code_340e
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop pValue
|
|
code_340e: pushi $b5 ; 181, set
|
|
push2
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pValue
|
|
send $8
|
|
bnot
|
|
pushi $129 ; 297, less
|
|
push1
|
|
push0
|
|
pToa pValue
|
|
send $6
|
|
bnot
|
|
bnt code_3443
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
push0
|
|
push0
|
|
pToa pValue
|
|
send $8
|
|
bnot
|
|
code_3443: pToa pMoney
|
|
bnt code_354f
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
pToa pValue
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $3db ; 987, setName
|
|
push1
|
|
pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_03e9 ; "%s gold coin%s"
|
|
push
|
|
lst temp[$2]
|
|
pushi $127 ; 295, equal
|
|
push1
|
|
push1
|
|
pToa pValue
|
|
send $6
|
|
bnot
|
|
bnt code_3477
|
|
lofsa string_03f8 ; ""
|
|
jmp code_347a
|
|
|
|
code_3477: lofsa string_03f9 ; "s"
|
|
code_347a: push
|
|
class Str
|
|
send $a
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $110 ; 272, addLong
|
|
push1
|
|
pTos pValue
|
|
send $6
|
|
bnot
|
|
pushi $127 ; 295, equal
|
|
push2
|
|
push0
|
|
push0
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
not
|
|
bnt code_3524
|
|
pushi $113 ; 275, mul
|
|
push1
|
|
pushi $a ; 10, inTop
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $115 ; 277, div
|
|
push1
|
|
pushi $32 ; 50, '2', edit
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $129 ; 297, less
|
|
push1
|
|
push0
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
bnt code_34de
|
|
pushi $b5 ; 181, set
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_34de: pushi $12d ; 301, greater
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
bnt code_34f7
|
|
pushi $b5 ; 181, set
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_34f7: pushi $113 ; 275, mul
|
|
push1
|
|
push1
|
|
pushSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $115 ; 277, div
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
aTop cel
|
|
jmp code_3528
|
|
|
|
code_3524: ldi $0
|
|
aTop cel
|
|
code_3528: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_354f
|
|
pushi $436 ; 1078, updateContainerButton
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_354f: pushSelf
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_3593
|
|
push1
|
|
pushi $437 ; 1079, pMoneyObj
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_3593
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Money
|
|
push
|
|
pushi $437 ; 1079, pMoneyObj
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_3593
|
|
pushi $3d5 ; 981, setValue
|
|
push1
|
|
pTos pValue
|
|
pushi $437 ; 1079, pMoneyObj
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_3593: ret
|
|
|
|
WorldObject::setManaValue:
|
|
link $4
|
|
pToa pManaValue
|
|
not
|
|
bnt code_35a7
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
aTop pManaValue
|
|
code_35a7: pushi $b5 ; 181, set
|
|
push2
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10e ; 270, hiWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pManaValue
|
|
send $8
|
|
bnot
|
|
pushi $129 ; 297, less
|
|
push1
|
|
push0
|
|
pToa pManaValue
|
|
send $6
|
|
bnot
|
|
bnt code_35dc
|
|
pushi $b5 ; 181, set
|
|
push2
|
|
push0
|
|
push0
|
|
pToa pManaValue
|
|
send $8
|
|
bnot
|
|
code_35dc: pToa pMoney
|
|
bnt code_36e8
|
|
pushi $131 ; 305, asStr
|
|
push0
|
|
pToa pManaValue
|
|
send $4
|
|
bnot
|
|
sat temp[$2]
|
|
pushi $3db ; 987, setName
|
|
push1
|
|
pushi $f5 ; 245, format
|
|
pushi $3 ; z
|
|
lofsa string_03fb ; "%s mana crystal%s"
|
|
push
|
|
lst temp[$2]
|
|
pushi $127 ; 295, equal
|
|
push1
|
|
push1
|
|
pToa pManaValue
|
|
send $6
|
|
bnot
|
|
bnt code_3610
|
|
lofsa string_03f8 ; ""
|
|
jmp code_3613
|
|
|
|
code_3610: lofsa string_03f9 ; "s"
|
|
code_3613: push
|
|
class Str
|
|
send $a
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$2]
|
|
send $4
|
|
bnot
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $110 ; 272, addLong
|
|
push1
|
|
pTos pManaValue
|
|
send $6
|
|
bnot
|
|
pushi $127 ; 295, equal
|
|
push2
|
|
push0
|
|
push0
|
|
lat temp[$0]
|
|
send $8
|
|
bnot
|
|
not
|
|
bnt code_36bd
|
|
pushi $113 ; 275, mul
|
|
push1
|
|
pushi $a ; 10, inTop
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $115 ; 277, div
|
|
push1
|
|
pushi $32 ; 50, '2', edit
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $129 ; 297, less
|
|
push1
|
|
push0
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
bnt code_3677
|
|
pushi $b5 ; 181, set
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_3677: pushi $12d ; 301, greater
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
bnt code_3690
|
|
pushi $b5 ; 181, set
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
code_3690: pushi $113 ; 275, mul
|
|
push1
|
|
push1
|
|
pushSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $115 ; 277, div
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $10d ; 269, lowWord
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
add
|
|
aTop cel
|
|
jmp code_36c1
|
|
|
|
code_36bd: ldi $0
|
|
aTop cel
|
|
code_36c1: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
self $6
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_36e8
|
|
pushi $436 ; 1078, updateContainerButton
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_36e8: pushSelf
|
|
lag global[$1]
|
|
eq?
|
|
bnt code_372c
|
|
push1
|
|
pushi $438 ; 1080, pManaObj
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_372c
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class Mana
|
|
push
|
|
pushi $438 ; 1080, pManaObj
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
bnt code_372c
|
|
pushi $3d8 ; 984, setManaValue
|
|
push1
|
|
pTos pValue
|
|
pushi $438 ; 1080, pManaObj
|
|
push0
|
|
lag global[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_372c: ret
|
|
|
|
WorldObject::addValue:
|
|
link $1
|
|
pToa pValue
|
|
bnt code_3765
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $110 ; 272, addLong
|
|
push1
|
|
pTos pValue
|
|
send $6
|
|
bnot
|
|
pushi $110 ; 272, addLong
|
|
push1
|
|
lsp param[$1]
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $3d5 ; 981, setValue
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_3765: ret
|
|
|
|
WorldObject::subValue:
|
|
link $1
|
|
pToa pValue
|
|
bnt code_379e
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $110 ; 272, addLong
|
|
push1
|
|
pTos pValue
|
|
send $6
|
|
bnot
|
|
pushi $112 ; 274, subLong
|
|
push1
|
|
lsp param[$1]
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $3d5 ; 981, setValue
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_379e: ret
|
|
|
|
WorldObject::addManaValue:
|
|
link $1
|
|
pToa pManaValue
|
|
bnt code_37d7
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $110 ; 272, addLong
|
|
push1
|
|
pTos pManaValue
|
|
send $6
|
|
bnot
|
|
pushi $110 ; 272, addLong
|
|
push1
|
|
lsp param[$1]
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $3d8 ; 984, setManaValue
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_37d7: ret
|
|
|
|
WorldObject::subManaValue:
|
|
link $1
|
|
pToa pManaValue
|
|
bnt code_3810
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class LongInt
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
pushi $110 ; 272, addLong
|
|
push1
|
|
pTos pManaValue
|
|
send $6
|
|
bnot
|
|
pushi $112 ; 274, subLong
|
|
push1
|
|
lsp param[$1]
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
pushi $3d8 ; 984, setManaValue
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_3810: ret
|
|
|
|
WorldObject::setName:
|
|
link $1
|
|
push1
|
|
pTos pName
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_382d
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa pName
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop pName
|
|
code_382d: lap param[$1]
|
|
bnt code_3852
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_3845
|
|
lap param[$1]
|
|
aTop pName
|
|
jmp code_3852
|
|
|
|
code_3845: pushi $d0 ; 208, with
|
|
push1
|
|
lsp param[$1]
|
|
class Str
|
|
send $6
|
|
bnot
|
|
aTop pName
|
|
code_3852: pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_3868
|
|
pushi $436 ; 1078, updateContainerButton
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_3868: pToa pName
|
|
ret
|
|
|
|
WorldObject::setServID:
|
|
lap param[$1]
|
|
aTop pServIDLo
|
|
lap param[$2]
|
|
aTop pServIDHi
|
|
ret
|
|
|
|
WorldObject::servIDEquals:
|
|
lsp param[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_388d
|
|
pushi $127 ; 295, equal
|
|
push2
|
|
pTos pServIDLo
|
|
pTos pServIDHi
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
jmp code_389d
|
|
|
|
code_388d: pTos pServIDLo
|
|
lap param[$1]
|
|
eq?
|
|
bnt code_389c
|
|
pTos pServIDHi
|
|
ldi $1
|
|
lapi param[$1]
|
|
eq?
|
|
code_389c: ret
|
|
|
|
code_389d: ret
|
|
|
|
WorldObject::matchServID:
|
|
pushi $127 ; 295, equal
|
|
push2
|
|
pTos pServIDLo
|
|
pTos pServIDHi
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::setCombatGroup:
|
|
pToa pCombatGroup
|
|
not
|
|
bnt code_38c2
|
|
pushi $8d ; 141, new
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
class LongInt
|
|
send $8
|
|
bnot
|
|
aTop pCombatGroup
|
|
code_38c2: pushi $10f ; 271, setLong
|
|
push1
|
|
lsp param[$1]
|
|
pToa pCombatGroup
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::deleteFromServer:
|
|
link $1
|
|
lag global[$6a]
|
|
bnt code_38ef
|
|
pTos pServIDLo
|
|
pToa pServIDHi
|
|
eq?
|
|
bnt code_38e2
|
|
pprev
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
code_38e2: not
|
|
bnt code_38ef
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $6
|
|
bnot
|
|
code_38ef: pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_391b
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_391b
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $3dc ; 988, deleteFromServer
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_391b: pushi $3df ; 991, setServID
|
|
push2
|
|
pushi $ff ; 255, asInteger
|
|
dup
|
|
self $8
|
|
bnot
|
|
ret
|
|
|
|
WorldObject::addToServer:
|
|
link $2
|
|
lag global[$6a]
|
|
bnt code_3947
|
|
pTos pServIDLo
|
|
pToa pServIDHi
|
|
eq?
|
|
bnt code_3939
|
|
pprev
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
code_3939: not
|
|
bnt code_3947
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$6a]
|
|
send $6
|
|
bnot
|
|
code_3947: pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
self $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_3973
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_3973
|
|
pushi $9d ; 157, eachElementDo
|
|
push1
|
|
pushi $3dd ; 989, addToServer
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
code_3973: ret
|
|
|
|
WorldObject::getName:
|
|
pToa pIDName
|
|
bnt code_39a4
|
|
pushi $35f ; 863, getAffectedState
|
|
push1
|
|
pushi $20 ; 32, ' ', name
|
|
self $6
|
|
bnot
|
|
bt code_398e
|
|
pushi $35f ; 863, getAffectedState
|
|
push1
|
|
pushi $57 ; 87, 'W', draw
|
|
self $6
|
|
bnot
|
|
code_398e: bnt code_39a4
|
|
pushi $35f ; 863, getAffectedState
|
|
push1
|
|
pushi $4a ; 74, 'J', setPri
|
|
self $6
|
|
bnot
|
|
not
|
|
bnt code_39a4
|
|
pToa pIDName
|
|
ret
|
|
|
|
jmp code_39a7
|
|
|
|
code_39a4: pToa pName
|
|
ret
|
|
|
|
code_39a7: ret
|
|
|
|
link $1
|
|
lsp param[$1]
|
|
ldi $30 ; 48, '0', who
|
|
sub
|
|
sap param[$1]
|
|
push
|
|
ldi $4 ; scaleX
|
|
div
|
|
push
|
|
ldi $3 ; z
|
|
mul
|
|
push
|
|
ldi $b ; 11, inRight
|
|
add
|
|
sat temp[$0]
|
|
ret
|
|
|
|
link $2
|
|
push2
|
|
pushi $9 ; inLeft
|
|
lsp param[$1]
|
|
callk kernel_91, $4
|
|
bnot
|
|
sat temp[$1]
|
|
pushi $b ; 11, inRight
|
|
pushi $3 ; z
|
|
push2
|
|
push
|
|
push0
|
|
callk kernel_91, $6
|
|
bnot
|
|
push
|
|
pushi $61 ; 97, 'a', frame
|
|
pushi $65 ; 101, 'e', topString
|
|
pushi $69 ; 105, 'i', hide
|
|
pushi $6f ; 111, 'o', resY
|
|
pushi $75 ; 117, 'u', show
|
|
pushi $41 ; 65, 'A', moveSpeed
|
|
pushi $45 ; 69, 'E', doit
|
|
pushi $49 ; 73, 'I', replay
|
|
pushi $4f ; 79, 'O', pragmaFail
|
|
pushi $55 ; 85, 'U', button
|
|
calle export60025_4, $16
|
|
bnot
|
|
bnt code_3a0b
|
|
pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_0419 ; "n %s"
|
|
push
|
|
lst temp[$1]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
jmp code_3a1c
|
|
|
|
code_3a0b: pushi $f5 ; 245, format
|
|
push2
|
|
lofsa string_041e ; " %s"
|
|
push
|
|
lst temp[$1]
|
|
class Str
|
|
send $8
|
|
bnot
|
|
sat temp[$0]
|
|
code_3a1c: lat temp[$0]
|
|
ret
|
|
|
|
ApproachScript::init:
|
|
pToa pClient
|
|
bnt code_3a2c
|
|
pushi $40c ; 1036, pApproachScript
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_3a2c: pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super DemonsScript, $4
|
|
bnot
|
|
ret
|
|
|
|
ApproachScript::dispose:
|
|
pToa pClient
|
|
bnt code_3a44
|
|
pushi $40c ; 1036, pApproachScript
|
|
push1
|
|
push0
|
|
send $6
|
|
bnot
|
|
code_3a44: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super DemonsScript, $4
|
|
bnot
|
|
ret
|
|
|
|
ApproachScript::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
push
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_3a88
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $2
|
|
and
|
|
bnt code_3a75
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_3ae2
|
|
|
|
code_3a75: pushi $39b ; 923, goto
|
|
pushi $3 ; z
|
|
pTos pApproachX
|
|
pTos pApproachY
|
|
pushSelf
|
|
pToa pClient
|
|
send $a
|
|
bnot
|
|
jmp code_3ae2
|
|
|
|
code_3a88: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_3ae2
|
|
lsg global[$ff]
|
|
ldi $1f ; 31, brBottom
|
|
and
|
|
not
|
|
bnt code_3adb
|
|
pToa caller
|
|
bnt code_3adb
|
|
pushi $4 ; scaleX
|
|
push1
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
pToa pClient
|
|
send $4
|
|
bnot
|
|
push
|
|
push1
|
|
push0
|
|
pToa pObject
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
pToa pObject
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_64, $8
|
|
bnot
|
|
push
|
|
pToa pDistance
|
|
gt?
|
|
bnt code_3adb
|
|
pushi $9c ; 156, handleError
|
|
pushi $3 ; z
|
|
pTos pClient
|
|
pushi $c350 ; -15536
|
|
dup
|
|
pToa caller
|
|
send $a
|
|
bnot
|
|
code_3adb: pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_3ae2: toss
|
|
ret
|
|
|