RealmFiles/Script/Script40205.txt

921 lines
13 KiB
Plaintext

Pile of Stuff::buildBaseList:
pushi $387 ; 903, addBase
push1
class BContainer
push
pushi $387 ; 903, addBase
push1
class BDescribed
push
self $c
bnot
pushi $46c ; 1132, pWeightCap
push1
pushi $3e8 ; 1000, pUpdateClient
pushi $46d ; 1133, pBulkCap
push1
pushi $10e ; 270, hiWord
pushi $35c ; 860, getBase
push1
class BContainer
push
self $6
bnot
send $c
bnot
ret
Pile of Stuff::centerOn:
link $2
push1
lsp param[$1]
callk kernel_20, $2
bnot
pushi $4e ; 78, 'N', width
push0
lap param[$1]
send $4
bnot
sat temp[$0]
pushi $df ; 223, centerOn
push2
pushi $88 ; 136, right
push0
lap param[$1]
send $4
bnot
push
lst temp[$0]
ldi $2
div
sub
push
pushi $89 ; 137, top
push0
lap param[$1]
send $4
bnot
push
super WorldObject, $8
bnot
pTos left
ldi $0
lt?
bnt code_01bc
pushi $db ; 219, moveTo
push2
push0
pTos top
self $8
bnot
code_01bc: pTos top
ldi $0
lt?
bnt code_01cd
pushi $db ; 219, moveTo
push2
pTos left
push0
self $8
bnot
code_01cd: push0
push0
lag global[$3]
send $4
bnot
sat temp[$1]
pTos right
ldi $3c ; 60, '<', b_di
add
push
pushi $88 ; 136, right
push0
lat temp[$1]
send $4
bnot
gt?
bnt code_0201
pushi $dd ; 221, moveBy
push2
pushi $88 ; 136, right
push0
lat temp[$1]
send $4
bnot
push
pTos right
ldi $3c ; 60, '<', b_di
add
sub
push
push0
self $8
bnot
code_0201: pTos bottom
ldi $3c ; 60, '<', b_di
add
push
pushi $8a ; 138, bottom
push0
lat temp[$1]
send $4
bnot
gt?
bnt code_022c
pushi $dd ; 221, moveBy
push2
push0
pushi $8a ; 138, bottom
push0
lat temp[$1]
send $4
bnot
push
pTos bottom
ldi $3c ; 60, '<', b_di
add
sub
push
self $8
bnot
code_022c: pToa left
aTop x
pToa top
aTop y
pToa bitmap
bnt code_023e
push1
pushSelf
callk kernel_32, $2
bnot
code_023e: ret
Pile of Stuff::give:
link $4
pushi $38f ; 911, give
push0
&rest $1
super WorldObject, $4
bnot
pushi $35c ; 860, getBase
push1
class BContainer
push
self $6
bnot
sat temp[$0]
pushi $5a ; 90, 'Z', size
push0
pushi $420 ; 1056, pContents
push0
send $4
bnot
send $4
bnot
sat temp[$2]
push
pToa pThresholdCount
lt?
bnt code_0276
pushi $46b ; 1131, unMakePile
push0
self $4
bnot
jmp code_027e
code_0276: pushi $36a ; 874, updateDisplay
push1
push1
self $6
bnot
code_027e: ret
Pile of Stuff::unMakePile:
link $4
pushi $35c ; 860, getBase
push1
class BContainer
push
self $6
bnot
sat temp[$0]
pushi $5a ; 90, 'Z', size
push0
pushi $420 ; 1056, pContents
push0
send $4
bnot
send $4
bnot
sat temp[$2]
ldi $0
sat temp[$3]
code_02a0: lst temp[$3]
lat temp[$2]
lt?
bnt code_02e8
pushi $4b ; 75, 'K', at
push1
lst temp[$3]
pushi $420 ; 1056, pContents
push0
lat temp[$0]
send $4
bnot
send $6
bnot
sat temp[$1]
pushi $40d ; 1037, pMoney
push0
send $4
bnot
bnt code_02d7
pushi $46e ; 1134, pShow
push1
push0
pushi $35c ; 860, getBase
push1
class BCarryable
push
lat temp[$1]
send $6
bnot
send $6
bnot
code_02d7: pushi $390 ; 912, drop
push1
lst temp[$1]
self $6
bnot
-at temp[$3]
-at temp[$2]
+at temp[$3]
jmp code_02a0
code_02e8: pushi $95 ; 149, dispose
push0
self $4
bnot
ret
Pile of Stuff::makePiles:
link $a
pushi $8d ; 141, new
push0
class Set
send $4
bnot
sat temp[$6]
pushi $8d ; 141, new
push0
class Set
send $4
bnot
sat temp[$4]
pushi $8d ; 141, new
push0
class Set
send $4
bnot
sat temp[$7]
ldi $0
sat temp[$0]
code_0317: lst temp[$0]
pushi $5a ; 90, 'Z', size
push0
pushi $421 ; 1057, pWObjectList
push0
lag global[$3]
send $4
bnot
send $4
bnot
lt?
bnt code_0380
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
pushi $421 ; 1057, pWObjectList
push0
lag global[$3]
send $4
bnot
send $6
bnot
sat temp[$2]
pushi $97 ; 151, isKindOf
push1
class Pile of Stuff
push
lat temp[$2]
send $6
bnot
bnt code_0358
pushi $9f ; 159, add
push1
lst temp[$2]
lat temp[$6]
send $6
bnot
code_0358: pushi $35c ; 860, getBase
push1
class BCarryable
push
lat temp[$2]
send $6
bnot
bnt code_037c
pushi $17c ; 380, isNotHidden
push0
lat temp[$2]
send $4
bnot
bnt code_037c
pushi $9f ; 159, add
push1
lst temp[$2]
lat temp[$4]
send $6
bnot
code_037c: +at temp[$0]
jmp code_0317
code_0380: ldi $0
sat temp[$0]
code_0384: lst temp[$0]
pushi $5a ; 90, 'Z', size
push0
lat temp[$6]
send $4
bnot
lt?
bnt code_0424
ldi $0
sat temp[$9]
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lat temp[$6]
send $6
bnot
sat temp[$3]
ldi $0
sat temp[$1]
code_03a6: lst temp[$1]
pushi $5a ; 90, 'Z', size
push0
lat temp[$4]
send $4
bnot
lt?
bnt code_040d
pushi $4b ; 75, 'K', at
push1
lst temp[$1]
lat temp[$4]
send $6
bnot
sat temp[$2]
push
lat temp[$3]
ne?
bnt code_0409
pushi $165 ; 357, distanceTo
push1
lst temp[$3]
lat temp[$2]
send $6
bnot
push
pushi $467 ; 1127, pMergeDistance
push0
self $4
bnot
le?
bnt code_0409
pushi $40d ; 1037, pMoney
push0
lat temp[$2]
send $4
bnot
bnt code_03fa
pushi $46e ; 1134, pShow
push1
push1
pushi $35c ; 860, getBase
push1
class BCarryable
push
lat temp[$2]
send $6
bnot
send $6
bnot
code_03fa: pushi $38e ; 910, take
push1
lst temp[$2]
lat temp[$3]
send $6
bnot
ldi $1
sat temp[$9]
code_0409: +at temp[$1]
jmp code_03a6
code_040d: lat temp[$9]
bnt code_041f
pushi $36a ; 874, updateDisplay
push1
push1
lat temp[$3]
send $6
bnot
ldi $0
sat temp[$9]
code_041f: +at temp[$0]
jmp code_0384
code_0424: pushi $a6 ; 166, release
push0
lat temp[$4]
send $4
bnot
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
lat temp[$6]
send $8
bnot
ldi $0
sat temp[$0]
code_043e: lst temp[$0]
pushi $5a ; 90, 'Z', size
push0
pushi $421 ; 1057, pWObjectList
push0
lag global[$3]
send $4
bnot
send $4
bnot
lt?
bnt code_048d
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
pushi $421 ; 1057, pWObjectList
push0
lag global[$3]
send $4
bnot
send $6
bnot
sat temp[$2]
pushi $35c ; 860, getBase
push1
class BCarryable
push
lat temp[$2]
send $6
bnot
bnt code_0489
pushi $17c ; 380, isNotHidden
push0
lat temp[$2]
send $4
bnot
bnt code_0489
pushi $9f ; 159, add
push1
lst temp[$2]
lat temp[$4]
send $6
bnot
code_0489: +at temp[$0]
jmp code_043e
code_048d: pushi $8d ; 141, new
push0
class Set
send $4
bnot
sat temp[$8]
ldi $0
sat temp[$0]
code_049c: lst temp[$0]
pushi $5a ; 90, 'Z', size
push0
lat temp[$4]
send $4
bnot
lt?
bnt code_05c4
ldi $1
sat temp[$9]
pushi $a6 ; 166, release
push0
lat temp[$7]
send $4
bnot
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lat temp[$4]
send $6
bnot
sat temp[$2]
ldi $0
sat temp[$1]
code_04c7: lst temp[$1]
pushi $5a ; 90, 'Z', size
push0
lat temp[$4]
send $4
bnot
lt?
bnt code_052b
pushi $4b ; 75, 'K', at
push1
lst temp[$1]
lat temp[$4]
send $6
bnot
sat temp[$3]
lst temp[$2]
ne?
bnt code_0527
pushi $a3 ; 163, contains
push1
lst temp[$3]
lat temp[$8]
send $6
bnot
not
bnt code_0527
pushi $165 ; 357, distanceTo
push1
lst temp[$3]
lat temp[$2]
send $6
bnot
push
pushi $467 ; 1127, pMergeDistance
push0
self $4
bnot
le?
bnt code_0527
lat temp[$9]
bnt code_051c
pushi $9f ; 159, add
push1
lst temp[$2]
lat temp[$7]
send $6
bnot
ldi $0
sat temp[$9]
code_051c: pushi $9f ; 159, add
push1
lst temp[$3]
lat temp[$7]
send $6
bnot
code_0527: +at temp[$1]
jmp code_04c7
code_052b: pushi $5a ; 90, 'Z', size
push0
lat temp[$7]
send $4
bnot
push
pushi $468 ; 1128, pMergeCount
push0
self $4
bnot
ge?
bnt code_05bf
pushi $94 ; 148, init
push0
pushi $df ; 223, centerOn
push1
pushi $4b ; 75, 'K', at
push1
push0
lat temp[$7]
send $6
bnot
push
pushi $8d ; 141, new
push0
class Pile of Stuff
send $4
bnot
sat temp[$5]
send $a
bnot
ldi $0
sat temp[$0]
code_0564: lst temp[$0]
pushi $5a ; 90, 'Z', size
push0
lat temp[$7]
send $4
bnot
lt?
bnt code_05b4
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
lat temp[$7]
send $6
bnot
sat temp[$2]
pushi $40d ; 1037, pMoney
push0
send $4
bnot
bnt code_059a
pushi $46e ; 1134, pShow
push1
push1
pushi $35c ; 860, getBase
push1
class BCarryable
push
lat temp[$2]
send $6
bnot
send $6
bnot
code_059a: pushi $38e ; 910, take
push1
lst temp[$2]
lat temp[$5]
send $6
bnot
pushi $9f ; 159, add
push1
lst temp[$2]
lat temp[$8]
send $6
bnot
+at temp[$0]
jmp code_0564
code_05b4: pushi $3c5 ; 965, addToRoom
push1
lsg global[$3]
lat temp[$5]
send $6
bnot
code_05bf: +at temp[$0]
jmp code_049c
code_05c4: pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
lat temp[$8]
send $8
bnot
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
lat temp[$7]
send $8
bnot
pushi $a6 ; 166, release
push0
pushi $95 ; 149, dispose
push0
lat temp[$4]
send $8
bnot
ret
Pile of Stuff::updateDisplay:
link $4
pTos signal
ldi $df ; 223, centerOn
and
aTop signal
pToa bitmap
bnt code_060d
pushi $9f ; 159, add
push1
push
lag global[$66]
send $6
bnot
ldi $0
aTop bitmap
push1
pushSelf
callk kernel_31, $2
bnot
code_060d: ldi $0
sat temp[$1]
pushi $35c ; 860, getBase
push1
class BContainer
push
self $6
bnot
sat temp[$2]
pushi $420 ; 1056, pContents
push0
send $4
bnot
bnt code_076b
pushi $5 ; scaleY
push0
pushi $3c ; 60, '<', b_di
dup
pushi $ff ; 255, asInteger
dup
callk kernel_35, $a
bnot
aTop bitmap
pushi $4 ; scaleX
pushi $8 ; fixPriority
pTos bitmap
pushi $1e ; 30, brRight
dup
callk kernel_35, $8
bnot
push1
pushSelf
callk kernel_30, $2
bnot
ldi $0
sat temp[$0]
code_064d: lst temp[$0]
pushi $5a ; 90, 'Z', size
push0
pushi $420 ; 1056, pContents
push0
lat temp[$2]
send $4
bnot
send $4
bnot
lt?
bnt code_076b
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
pushi $420 ; 1056, pContents
push0
lat temp[$2]
send $4
bnot
send $6
bnot
sat temp[$3]
lst temp[$0]
ldi $0
eq?
bnt code_0685
pushi $3c8 ; 968, matchScaler
push1
lsg global[$3]
self $6
bnot
code_0685: pushi $35c ; 860, getBase
push1
class BWeapon
push
lat temp[$3]
send $6
bnot
bnt code_069c
lst temp[$1]
ldi $1
or
sat temp[$1]
jmp code_06e5
code_069c: pushi $35c ; 860, getBase
push1
class BWearable
push
lat temp[$3]
send $6
bnot
bnt code_06b3
lst temp[$1]
ldi $2
or
sat temp[$1]
jmp code_06e5
code_06b3: pushi $35c ; 860, getBase
push1
class BConsume
push
lat temp[$3]
send $6
bnot
bnt code_06ca
lst temp[$1]
ldi $4 ; scaleX
or
sat temp[$1]
jmp code_06e5
code_06ca: pushi $40d ; 1037, pMoney
push0
lat temp[$3]
send $4
bnot
bnt code_06de
lst temp[$1]
ldi $8 ; fixPriority
or
sat temp[$1]
jmp code_06e5
code_06de: lst temp[$1]
ldi $10 ; 16, cel
or
sat temp[$1]
code_06e5: lst temp[$1]
ldi $2
and
bnt code_06ff
pushi $7 ; priority
pushi $3 ; z
pTos bitmap
pushi $2791 ; 10129
push0
push0
pushi $20 ; 32, ' ', name
pushi $13 ; 19, nsTop
callk kernel_35, $e
bnot
code_06ff: lst temp[$1]
ldi $1
and
bnt code_0719
pushi $7 ; priority
pushi $3 ; z
pTos bitmap
pushi $3be1 ; 15329
push0
push0
pushi $f ; 15, loop
pushi $3 ; z
callk kernel_35, $e
bnot
code_0719: lst temp[$1]
ldi $4 ; scaleX
and
bnt code_0732
pushi $7 ; priority
pushi $3 ; z
pTos bitmap
pushi $cba1 ; -13407
push0
push0
push2
pushi $1e ; 30, brRight
callk kernel_35, $e
bnot
code_0732: lst temp[$1]
ldi $8 ; fixPriority
and
bnt code_074c
pushi $7 ; priority
pushi $3 ; z
pTos bitmap
pushi $c5c5 ; -14907
push0
push0
pushi $14 ; 20, nsRight
pushi $20 ; 32, ' ', name
callk kernel_35, $e
bnot
code_074c: lst temp[$1]
ldi $10 ; 16, cel
and
bnt code_0766
pushi $7 ; priority
pushi $3 ; z
pTos bitmap
pushi $d5c9 ; -10807
push0
push0
pushi $29 ; 41, ')', state
pushi $5 ; scaleY
callk kernel_35, $e
bnot
code_0766: +at temp[$0]
jmp code_064d
code_076b: ret