1383 lines
20 KiB
Plaintext
1383 lines
20 KiB
Plaintext
BWearable::preDispose:
|
|
pushi $395 ; 917, beTakenOff
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
BWearable::init:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super WorldObjectBase, $4
|
|
bnot
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_00cf
|
|
pushi $387 ; 903, addBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
code_00cf: ret
|
|
|
|
BWearable::buildVerbList:
|
|
link $1
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldObject
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_019d
|
|
pushi $381 ; 897, pMode
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1
|
|
and
|
|
bnt code_019d
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_014a
|
|
pushi $35b ; 859, getOwner
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
lap param[$1]
|
|
eq?
|
|
bnt code_014a
|
|
pToa pIsWorn
|
|
bnt code_0122
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $2f ; 47, '/', mark
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
jmp code_019d
|
|
|
|
code_0122: pushi $35c ; 860, getBase
|
|
push1
|
|
class BWeapon
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
bnt code_013d
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $3d ; 61, '=', b_xAxis
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
jmp code_019d
|
|
|
|
code_013d: pushi $9f ; 159, add
|
|
push1
|
|
pushi $16 ; 22, lsLeft
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
jmp code_019d
|
|
|
|
code_014a: pushi $35c ; 860, getBase
|
|
push1
|
|
class BDye
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_019d
|
|
pushi $631 ; 1585, pHairDye
|
|
push0
|
|
send $4
|
|
bnot
|
|
not
|
|
bnt code_019d
|
|
pushi $386 ; 902, hasBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_019d
|
|
pushi $386 ; 902, hasBase
|
|
push1
|
|
class BDye
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
not
|
|
bnt code_019d
|
|
pushi $3a9 ; 937, isOwnedBy
|
|
push1
|
|
lsg global[$1]
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_019d
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $80 ; 128, lastKey
|
|
class VerbList
|
|
send $6
|
|
bnot
|
|
code_019d: ret
|
|
|
|
BWearable::handlesAction:
|
|
pushi $3 ; z
|
|
lsp param[$1]
|
|
pushi $393 ; 915, bePutOn
|
|
pushi $395 ; 917, beTakenOff
|
|
calle export60025_4, $6
|
|
bnot
|
|
ret
|
|
|
|
BWearable::updateDisplay:
|
|
pToa pSelf
|
|
bnt code_0238
|
|
pToa pWearer
|
|
bnt code_0238
|
|
pushi $e ; 14, view
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0238
|
|
pushi $3e7 ; 999, pUpdatorList
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
bnt code_020e
|
|
pushi $f ; 15, loop
|
|
push1
|
|
pushi $f ; 15, loop
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pSelf
|
|
send $c
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
pushi $3b2 ; 946, addBitmap
|
|
push1
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0238
|
|
|
|
code_020e: pushi $3b3 ; 947, addCel
|
|
pushi $3 ; z
|
|
pushi $e ; 14, view
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pActionOffset
|
|
add
|
|
push
|
|
pushi $f ; 15, loop
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $a
|
|
bnot
|
|
code_0238: ret
|
|
|
|
BWearable::setAreaWorn:
|
|
lap param[$1]
|
|
aTop pAreaWorn
|
|
ret
|
|
|
|
BWearable::bePutOn:
|
|
link $7
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class WorldActor
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_0284
|
|
pTos pMask
|
|
ldi $3 ; z
|
|
and
|
|
bnt code_0284
|
|
pushi $4d2 ; 1234, getSex
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0279
|
|
pTos pMask
|
|
ldi $fe ; 254, strIndex
|
|
eq?
|
|
bnt code_0272
|
|
ldi $0
|
|
aTop pActionOffset
|
|
jmp code_0283
|
|
|
|
code_0272: ldi $2710 ; 10000
|
|
aTop pActionOffset
|
|
jmp code_0283
|
|
|
|
code_0279: dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_0283
|
|
ldi $0
|
|
aTop pActionOffset
|
|
code_0283: toss
|
|
code_0284: ldi $1
|
|
sat temp[$3]
|
|
pushi $36b ; 875, updateAction
|
|
push1
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $6
|
|
bnot
|
|
pushi $3e9 ; 1001, pUpdateObj
|
|
push1
|
|
lsp param[$1]
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
ldi $1
|
|
aTop pIsWorn
|
|
lap param[$1]
|
|
aTop pWearer
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $318 ; 792, pShirtView
|
|
send $6
|
|
bnot
|
|
bnt code_0541
|
|
pTos pAreaWorn
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_02d7
|
|
pushi $4d3 ; 1235, pHelmetView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0540
|
|
|
|
code_02d7: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_038b
|
|
pushi $318 ; 792, pShirtView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $4d4 ; 1236, pRobeView
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0540
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_0540
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
ldi $0
|
|
sat temp[$5]
|
|
code_031f: lst temp[$5]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0540
|
|
pushi $4d4 ; 1236, pRobeView
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$5]
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_0384
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$5]
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
send $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_0384
|
|
pushi $41e ; 1054, pIsWorn
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_0384
|
|
pushi $3ac ; 940, inheritClut
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$5]
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
push
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
sat temp[$3]
|
|
code_0384: +at temp[$5]
|
|
jmp code_031f
|
|
|
|
jmp code_0540
|
|
|
|
code_038b: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_03a7
|
|
pushi $4d4 ; 1236, pRobeView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0540
|
|
|
|
code_03a7: dup
|
|
ldi $6 ; maxScale
|
|
eq?
|
|
bnt code_0466
|
|
pushi $4d5 ; 1237, pPantsView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $3ac ; 940, inheritClut
|
|
push1
|
|
pTos pSelf
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
pushi $4d6 ; 1238, pSkirtView
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0540
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_0540
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
ldi $0
|
|
sat temp[$5]
|
|
code_03fa: lst temp[$5]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0540
|
|
pushi $4d6 ; 1238, pSkirtView
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$5]
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_045f
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$5]
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
send $6
|
|
bnot
|
|
sat temp[$4]
|
|
bnt code_045f
|
|
pushi $41e ; 1054, pIsWorn
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_045f
|
|
pushi $3ac ; 940, inheritClut
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$5]
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
push
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
ldi $0
|
|
sat temp[$3]
|
|
code_045f: +at temp[$5]
|
|
jmp code_03fa
|
|
|
|
jmp code_0540
|
|
|
|
code_0466: dup
|
|
ldi $7 ; priority
|
|
eq?
|
|
bnt code_0482
|
|
pushi $4d7 ; 1239, pShoesView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0540
|
|
|
|
code_0482: dup
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_049e
|
|
pushi $4d8 ; 1240, pBeltView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0540
|
|
|
|
code_049e: dup
|
|
ldi $9 ; inLeft
|
|
eq?
|
|
bnt code_04ba
|
|
pushi $4d6 ; 1238, pSkirtView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0540
|
|
|
|
code_04ba: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_04d6
|
|
pushi $4d9 ; 1241, pCowlView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0540
|
|
|
|
code_04d6: dup
|
|
ldi $63 ; 99, 'c', perform
|
|
eq?
|
|
bnt code_04f1
|
|
pushi $4da ; 1242, pBaldricView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0540
|
|
|
|
code_04f1: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_050c
|
|
pushi $4db ; 1243, pWristView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0540
|
|
|
|
code_050c: dup
|
|
ldi $11 ; 17, bitmap
|
|
eq?
|
|
bnt code_0527
|
|
pushi $4dc ; 1244, pShieldView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_0540
|
|
|
|
code_0527: dup
|
|
ldi $64 ; 100, 'd', moveDone
|
|
eq?
|
|
bnt code_0540
|
|
pushi $4dd ; 1245, pWeaponView
|
|
push1
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_0540: toss
|
|
code_0541: lat temp[$3]
|
|
bnt code_0550
|
|
pushi $3ac ; 940, inheritClut
|
|
push1
|
|
pTos pSelf
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_0550: pTos pAreaWorn
|
|
ldi $0
|
|
eq?
|
|
bnt code_059c
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $319 ; 793, pHead
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
bnt code_059c
|
|
push1
|
|
pushi $319 ; 793, pHead
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_059c
|
|
pushi $4de ; 1246, updateBitmaps
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BHead
|
|
push
|
|
pushi $319 ; 793, pHead
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
code_059c: pushi $436 ; 1078, updateContainerButton
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
BWearable::beTakenOff:
|
|
link $3
|
|
pToa pIsWorn
|
|
bnt code_0837
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $318 ; 792, pShirtView
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
bnt code_07db
|
|
pTos pAreaWorn
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_05d0
|
|
pushi $4d3 ; 1235, pHelmetView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
jmp code_07da
|
|
|
|
code_05d0: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_05e4
|
|
pushi $318 ; 792, pShirtView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
jmp code_07da
|
|
|
|
code_05e4: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_068c
|
|
pushi $4d4 ; 1236, pRobeView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
pushi $318 ; 792, pShirtView
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_07da
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_07da
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
ldi $0
|
|
sat temp[$2]
|
|
code_0624: lst temp[$2]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_07da
|
|
pushi $318 ; 792, pShirtView
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_0685
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_0685
|
|
pushi $41e ; 1054, pIsWorn
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_0685
|
|
pushi $3ac ; 940, inheritClut
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
code_0685: +at temp[$2]
|
|
jmp code_0624
|
|
|
|
jmp code_07da
|
|
|
|
code_068c: dup
|
|
ldi $6 ; maxScale
|
|
eq?
|
|
bnt code_06a0
|
|
pushi $4d5 ; 1237, pPantsView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
jmp code_07da
|
|
|
|
code_06a0: dup
|
|
ldi $7 ; priority
|
|
eq?
|
|
bnt code_06b4
|
|
pushi $4d7 ; 1239, pShoesView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
jmp code_07da
|
|
|
|
code_06b4: dup
|
|
ldi $8 ; fixPriority
|
|
eq?
|
|
bnt code_06c8
|
|
pushi $4d8 ; 1240, pBeltView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
jmp code_07da
|
|
|
|
code_06c8: dup
|
|
ldi $9 ; inLeft
|
|
eq?
|
|
bnt code_0770
|
|
pushi $4d6 ; 1238, pSkirtView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
pushi $4d5 ; 1237, pPantsView
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_07da
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BContainer
|
|
push
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_07da
|
|
pushi $420 ; 1056, pContents
|
|
push0
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
ldi $0
|
|
sat temp[$2]
|
|
code_0708: lst temp[$2]
|
|
pushi $5a ; 90, 'Z', size
|
|
push0
|
|
lat temp[$1]
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_07da
|
|
pushi $4d5 ; 1237, pPantsView
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $3ed ; 1005, pBaseView
|
|
push0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_0769
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BWearable
|
|
push
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_0769
|
|
pushi $41e ; 1054, pIsWorn
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_0769
|
|
pushi $3ac ; 940, inheritClut
|
|
push1
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
lst temp[$2]
|
|
lat temp[$1]
|
|
send $6
|
|
bnot
|
|
push
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
code_0769: +at temp[$2]
|
|
jmp code_0708
|
|
|
|
jmp code_07da
|
|
|
|
code_0770: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_0784
|
|
pushi $4d9 ; 1241, pCowlView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
jmp code_07da
|
|
|
|
code_0784: dup
|
|
ldi $63 ; 99, 'c', perform
|
|
eq?
|
|
bnt code_0798
|
|
pushi $4da ; 1242, pBaldricView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
jmp code_07da
|
|
|
|
code_0798: dup
|
|
ldi $4 ; scaleX
|
|
eq?
|
|
bnt code_07ab
|
|
pushi $4db ; 1243, pWristView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
jmp code_07da
|
|
|
|
code_07ab: dup
|
|
ldi $11 ; 17, bitmap
|
|
eq?
|
|
bnt code_07be
|
|
pushi $4dc ; 1244, pShieldView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
jmp code_07da
|
|
|
|
code_07be: dup
|
|
ldi $64 ; 100, 'd', moveDone
|
|
eq?
|
|
bnt code_07da
|
|
pushi $40f ; 1039, pWeapon
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
pushi $4dd ; 1245, pWeaponView
|
|
push1
|
|
pushi $ff ; 255, asInteger
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
code_07da: toss
|
|
code_07db: pTos pAreaWorn
|
|
ldi $0
|
|
eq?
|
|
bnt code_081e
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $319 ; 793, pHead
|
|
pToa pWearer
|
|
send $6
|
|
bnot
|
|
bnt code_081e
|
|
push1
|
|
pushi $319 ; 793, pHead
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_081e
|
|
pushi $4de ; 1246, updateBitmaps
|
|
push0
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BHead
|
|
push
|
|
pushi $319 ; 793, pHead
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
send $4
|
|
bnot
|
|
code_081e: ldi $0
|
|
aTop pIsWorn
|
|
pushi $3e9 ; 1001, pUpdateObj
|
|
push1
|
|
push0
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
pushi $436 ; 1078, updateContainerButton
|
|
push0
|
|
self $4
|
|
bnot
|
|
ldi $0
|
|
aTop pWearer
|
|
code_0837: ldi $0
|
|
ret
|
|
|
|
BWearable::updateAction:
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
lsp param[$1]
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
BWearable::updateContainerButton:
|
|
link $1
|
|
pushi $35c ; 860, getBase
|
|
push1
|
|
class BCarryable
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_085f
|
|
pushi $436 ; 1078, updateContainerButton
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_085f: ret
|
|
|
|
BWearable::fromPacket:
|
|
link $1
|
|
pushi $135 ; 309, getWord
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop pMask
|
|
pushi $2c8 ; 712, lookup
|
|
push1
|
|
pushi $136 ; 310, getLong
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lag global[$6a]
|
|
send $6
|
|
bnot
|
|
sat temp[$0]
|
|
bnt code_088c
|
|
pushi $393 ; 915, bePutOn
|
|
push1
|
|
push
|
|
self $6
|
|
bnot
|
|
code_088c: ret
|
|
|
|
BLinkedWearable::updateDisplay:
|
|
link $2
|
|
pushi $e ; 14, view
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_09a3
|
|
pToa pGrabLoop
|
|
bnt code_08c8
|
|
pToa pWearer
|
|
bnt code_08c8
|
|
pTos pGrabAction
|
|
ldi $ff ; 255, asInteger
|
|
eq?
|
|
bt code_08ba
|
|
pushi $3ec ; 1004, pAction
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa pGrabAction
|
|
eq?
|
|
code_08ba: bnt code_08c8
|
|
pushi $f ; 15, loop
|
|
push0
|
|
pToa pWearer
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
jmp code_08cc
|
|
|
|
code_08c8: ldi $0
|
|
sat temp[$1]
|
|
code_08cc: push1
|
|
pTos pSelf
|
|
callk kernel_21, $2
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
ldi $1
|
|
add
|
|
ge?
|
|
bnt code_09a3
|
|
pushi $3e7 ; 999, pUpdatorList
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $0
|
|
ne?
|
|
sat temp[$0]
|
|
bnt code_08f8
|
|
pushi $f ; 15, loop
|
|
push1
|
|
lst temp[$1]
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
code_08f8: push1
|
|
pTos pSelf
|
|
callk kernel_22, $2
|
|
bnot
|
|
push
|
|
ldi $2
|
|
eq?
|
|
bnt code_095a
|
|
lat temp[$0]
|
|
bnt code_0941
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
push1
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
pushi $3b6 ; 950, insertLinkedBitmap
|
|
pushi $3 ; z
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos pLinkPoint
|
|
pTos pSelf
|
|
lap param[$1]
|
|
send $a
|
|
bnot
|
|
pushi $10 ; 16, cel
|
|
push1
|
|
push0
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
jmp code_095a
|
|
|
|
code_0941: pushi $3b7 ; 951, insertLinkedCel
|
|
pushi $4 ; scaleX
|
|
pushi $e ; 14, view
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
push1
|
|
pTos pLinkPoint
|
|
lap param[$1]
|
|
send $c
|
|
bnot
|
|
code_095a: lat temp[$0]
|
|
bnt code_0982
|
|
pushi $36a ; 874, updateDisplay
|
|
push1
|
|
push1
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
pushi $3b5 ; 949, addLinkedBitmap
|
|
pushi $3 ; z
|
|
pushi $11 ; 17, bitmap
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos pLinkPoint
|
|
pTos pSelf
|
|
lap param[$1]
|
|
send $a
|
|
bnot
|
|
jmp code_09a3
|
|
|
|
code_0982: pushi $3b4 ; 948, addLinkedCel
|
|
pushi $4 ; scaleX
|
|
pushi $e ; 14, view
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
lst temp[$1]
|
|
pushi $10 ; 16, cel
|
|
push0
|
|
pToa pSelf
|
|
send $4
|
|
bnot
|
|
push
|
|
pTos pLinkPoint
|
|
lap param[$1]
|
|
send $c
|
|
bnot
|
|
code_09a3: ret
|
|
|
|
BLinkedWearable::updateAction:
|
|
pushi $373 ; 883, setAction
|
|
push1
|
|
lsp param[$1]
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_09b4
|
|
ldi $0
|
|
jmp code_09b6
|
|
|
|
code_09b4: ldi $1
|
|
code_09b6: toss
|
|
push
|
|
pToa pSelf
|
|
send $6
|
|
bnot
|
|
ret
|
|
|