1207 lines
17 KiB
Plaintext
1207 lines
17 KiB
Plaintext
Act::init:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Prop, $4
|
|
bnot
|
|
pToa x
|
|
aTop xLast
|
|
pToa y
|
|
aTop yLast
|
|
ret
|
|
|
|
Act::dispose:
|
|
pTos mover
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0120
|
|
pushi $15c ; 348, setMotion
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
code_0120: pushi $1a4 ; 420, setAvoider
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
pToa baseSetter
|
|
bnt code_0137
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop baseSetter
|
|
code_0137: pToa looper
|
|
bnt code_0146
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop looper
|
|
code_0146: pToa viewer
|
|
bnt code_0155
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop viewer
|
|
code_0155: pToa blocks
|
|
bnt code_0164
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop blocks
|
|
code_0164: pToa code
|
|
bnt code_0173
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop code
|
|
code_0173: pushi $95 ; 149, dispose
|
|
push0
|
|
super Prop, $4
|
|
bnot
|
|
ret
|
|
|
|
Act::doit:
|
|
link $4
|
|
pToa script
|
|
bnt code_0188
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0188: pTos signal
|
|
ldi $1
|
|
and
|
|
bnt code_0275
|
|
pToa mover
|
|
bnt code_019a
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_019a: pToa cycler
|
|
bnt code_01a4
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_01a4: pTos -info-
|
|
ldi $8 ; fixPriority
|
|
and
|
|
bnt code_0275
|
|
pTos cel
|
|
ldi $0
|
|
lt?
|
|
bnt code_01b7
|
|
ldi $0
|
|
aTop cel
|
|
code_01b7: pTos scaleSignal
|
|
ldi $1
|
|
and
|
|
bnt code_0240
|
|
pToa scaleX
|
|
sat temp[$3]
|
|
pToa scaler
|
|
bnt code_01cd
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_01cd: pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_01dd
|
|
pushi $1ad ; 429, update
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_01dd: ldi $0
|
|
bnt code_0250
|
|
pTos scaleSignal
|
|
ldi $4 ; scaleX
|
|
and
|
|
not
|
|
bnt code_0250
|
|
pTos scaleX
|
|
lat temp[$3]
|
|
ne?
|
|
bnt code_0250
|
|
pTos origStep
|
|
ldi $8 ; fixPriority
|
|
shr
|
|
push
|
|
pToa scaleX
|
|
mul
|
|
push
|
|
ldi $80 ; 128, lastKey
|
|
div
|
|
sat temp[$2]
|
|
bnt code_0205
|
|
jmp code_0207
|
|
|
|
code_0205: ldi $1
|
|
code_0207: sat temp[$0]
|
|
pTos origStep
|
|
ldi $ff ; 255, asInteger
|
|
and
|
|
push
|
|
pToa scaleY
|
|
mul
|
|
push
|
|
ldi $80 ; 128, lastKey
|
|
div
|
|
sat temp[$2]
|
|
bnt code_021e
|
|
jmp code_0220
|
|
|
|
code_021e: ldi $1
|
|
code_0220: sat temp[$1]
|
|
lst temp[$0]
|
|
pToa xStep
|
|
ne?
|
|
bt code_022e
|
|
lst temp[$1]
|
|
pToa yStep
|
|
ne?
|
|
code_022e: bnt code_0250
|
|
pushi $1a9 ; 425, setStep
|
|
pushi $3 ; z
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
push1
|
|
self $a
|
|
bnot
|
|
jmp code_0250
|
|
|
|
code_0240: pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_0250
|
|
pushi $1ad ; 429, update
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_0250: pTos signal
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
not
|
|
bnt code_025a
|
|
jmp code_026d
|
|
|
|
code_025a: pToa baseSetter
|
|
bnt code_0267
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
jmp code_026d
|
|
|
|
code_0267: push1
|
|
pushSelf
|
|
callk kernel_94, $2
|
|
bnot
|
|
code_026d: pToa x
|
|
aTop xLast
|
|
pToa y
|
|
aTop yLast
|
|
code_0275: ret
|
|
|
|
Act::posn:
|
|
pushi $dc ; 220, posn
|
|
push2
|
|
lsp param[$1]
|
|
lsp param[$2]
|
|
&rest $3 ; z
|
|
super Prop, $8
|
|
bnot
|
|
lap param[$1]
|
|
aTop xLast
|
|
lap param[$2]
|
|
aTop yLast
|
|
ret
|
|
|
|
Act::setMotion:
|
|
pToa mover
|
|
bnt code_02a0
|
|
push
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_02a0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa mover
|
|
send $4
|
|
bnot
|
|
code_02a0: lap param[$1]
|
|
bnt code_02ca
|
|
pushi $96 ; 150, isClass
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_02b8
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_02ba
|
|
|
|
code_02b8: lap param[$1]
|
|
code_02ba: aTop mover
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
pToa mover
|
|
send $6
|
|
bnot
|
|
jmp code_02ce
|
|
|
|
code_02ca: ldi $0
|
|
aTop mover
|
|
code_02ce: ret
|
|
|
|
Act::setAvoider:
|
|
pToa avoider
|
|
bnt code_02da
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_02da: lap param[$1]
|
|
bnt code_02f7
|
|
pushi $1007 ; 4103, -info-
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8000 ; -32768
|
|
and
|
|
bnt code_02f7
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_02f9
|
|
|
|
code_02f7: lap param[$1]
|
|
code_02f9: aTop avoider
|
|
pToa avoider
|
|
bnt code_0309
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
send $6
|
|
bnot
|
|
code_0309: ret
|
|
|
|
Act::isStopped:
|
|
pToa mover
|
|
not
|
|
bt code_0329
|
|
pTos x
|
|
pushi $155 ; 341, xLast
|
|
push0
|
|
pToa mover
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_0329
|
|
pTos y
|
|
pushi $151 ; 337, yLast
|
|
push0
|
|
pToa mover
|
|
send $4
|
|
bnot
|
|
eq?
|
|
code_0329: ret
|
|
|
|
Act::isBlocked:
|
|
pTos signal
|
|
ldi $400 ; 1024, pEndurance
|
|
and
|
|
ret
|
|
|
|
Act::ignoreHorizon:
|
|
lap param[$0]
|
|
not
|
|
bt code_0338
|
|
lap param[$1]
|
|
code_0338: bnt code_0344
|
|
pTos signal
|
|
ldi $2000 ; 8192
|
|
or
|
|
aTop signal
|
|
jmp code_034c
|
|
|
|
code_0344: pTos signal
|
|
ldi $dfff ; -8193
|
|
and
|
|
aTop signal
|
|
code_034c: ret
|
|
|
|
Act::observeBlocks:
|
|
pToa blocks
|
|
not
|
|
bnt code_035d
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class Set
|
|
send $4
|
|
bnot
|
|
aTop blocks
|
|
code_035d: pushi $9f ; 159, add
|
|
push0
|
|
&rest $1
|
|
pToa blocks
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
Act::ignoreBlocks:
|
|
pToa blocks
|
|
bnt code_038d
|
|
pushi $58 ; 88, 'X', delete
|
|
push0
|
|
&rest $1
|
|
send $4
|
|
bnot
|
|
pushi $a4 ; 164, isEmpty
|
|
push0
|
|
pToa blocks
|
|
send $4
|
|
bnot
|
|
bnt code_038d
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
pToa blocks
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop blocks
|
|
code_038d: ret
|
|
|
|
Act::distanceTo:
|
|
pushi $5 ; scaleY
|
|
pTos x
|
|
pTos y
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
lsg global[$3f]
|
|
callk kernel_64, $a
|
|
bnot
|
|
ret
|
|
|
|
Act::cantBeHere:
|
|
link $1
|
|
ldi $0
|
|
ret
|
|
|
|
pTos signal
|
|
ldi $20 ; 32, ' ', name
|
|
and
|
|
not
|
|
bnt code_03ba
|
|
jmp code_03cd
|
|
|
|
code_03ba: pToa baseSetter
|
|
bnt code_03c7
|
|
pushi $45 ; 69, 'E', doit
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
jmp code_03cd
|
|
|
|
code_03c7: push1
|
|
pushSelf
|
|
callk kernel_94, $2
|
|
bnot
|
|
code_03cd: push2
|
|
pushSelf
|
|
pushi $24 ; 36, '$', elements
|
|
push0
|
|
pushi $f2 ; 242, pCast
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_96, $4
|
|
bnot
|
|
bnt code_03e7
|
|
jmp code_0417
|
|
|
|
code_03e7: pTos signal
|
|
ldi $2000 ; 8192
|
|
and
|
|
not
|
|
bnt code_0404
|
|
lag global[$3]
|
|
bnt code_0404
|
|
pTos y
|
|
pushi $1ae ; 430, horizon
|
|
push0
|
|
send $4
|
|
bnot
|
|
lt?
|
|
bnt code_0404
|
|
ldi $ff ; 255, asInteger
|
|
jmp code_0417
|
|
|
|
code_0404: pToa blocks
|
|
bnt code_0417
|
|
pushi $a2 ; 162, allTrue
|
|
push2
|
|
pushi $45 ; 69, 'E', doit
|
|
pushSelf
|
|
send $8
|
|
bnot
|
|
not
|
|
bnt code_0417
|
|
ldi $fe ; 254, strIndex
|
|
code_0417: sat temp[$0]
|
|
ret
|
|
|
|
Act::inRect:
|
|
lsp param[$0]
|
|
ldi $1
|
|
eq?
|
|
bnt code_0430
|
|
pushi $a3 ; 163, contains
|
|
push2
|
|
pTos x
|
|
pTos y
|
|
lap param[$1]
|
|
send $8
|
|
bnot
|
|
jmp code_044a
|
|
|
|
code_0430: lsp param[$1]
|
|
pToa x
|
|
le?
|
|
bnt code_044a
|
|
pTos x
|
|
lap param[$3]
|
|
lt?
|
|
bnt code_044a
|
|
lsp param[$2]
|
|
pToa y
|
|
le?
|
|
bnt code_044a
|
|
pTos y
|
|
lap param[$4]
|
|
lt?
|
|
code_044a: ret
|
|
|
|
Act::setStep:
|
|
link $2
|
|
pTos origStep
|
|
ldi $8 ; fixPriority
|
|
shr
|
|
sat temp[$0]
|
|
pTos origStep
|
|
ldi $ff ; 255, asInteger
|
|
and
|
|
sat temp[$1]
|
|
lsp param[$0]
|
|
ldi $1
|
|
ge?
|
|
bnt code_046e
|
|
lsp param[$1]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_046e
|
|
lap param[$1]
|
|
sat temp[$0]
|
|
code_046e: lsp param[$0]
|
|
ldi $2
|
|
ge?
|
|
bnt code_0480
|
|
lsp param[$2]
|
|
ldi $ff ; 255, asInteger
|
|
ne?
|
|
bnt code_0480
|
|
lap param[$2]
|
|
sat temp[$1]
|
|
code_0480: lsp param[$0]
|
|
ldi $3 ; z
|
|
lt?
|
|
bt code_048a
|
|
lap param[$3]
|
|
not
|
|
code_048a: bnt code_0497
|
|
lst temp[$0]
|
|
ldi $8 ; fixPriority
|
|
shl
|
|
push
|
|
lat temp[$1]
|
|
add
|
|
aTop origStep
|
|
code_0497: lat temp[$0]
|
|
aTop xStep
|
|
lat temp[$1]
|
|
aTop yStep
|
|
pToa mover
|
|
bnt code_04c8
|
|
pushi $98 ; 152, isMemberOf
|
|
push1
|
|
class MoveTo
|
|
push
|
|
pToa mover
|
|
send $6
|
|
bnot
|
|
bt code_04bd
|
|
pushi $98 ; 152, isMemberOf
|
|
push1
|
|
class PolyPath
|
|
push
|
|
pToa mover
|
|
send $6
|
|
bnot
|
|
code_04bd: bnt code_04c8
|
|
pushi $94 ; 148, init
|
|
push0
|
|
pToa mover
|
|
send $4
|
|
bnot
|
|
code_04c8: ret
|
|
|
|
Act::setDirection:
|
|
link $c
|
|
pushi $6c ; 108, 'l', vanishingY
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
ldi $8ad0 ; -30000
|
|
eq?
|
|
bnt code_04e0
|
|
pToa x
|
|
jmp code_04e8
|
|
|
|
code_04e0: pushi $6b ; 107, 'k', vanishingX
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
code_04e8: sat temp[$0]
|
|
pTos xStep
|
|
ldi $0
|
|
eq?
|
|
bnt code_04f9
|
|
pTos yStep
|
|
ldi $0
|
|
eq?
|
|
bnt code_04f9
|
|
ret
|
|
|
|
code_04f9: pushi $7d00 ; 32000
|
|
push2
|
|
pTos xStep
|
|
pTos yStep
|
|
calle export60025_3, $4
|
|
bnot
|
|
div
|
|
sat temp[$5]
|
|
lsp param[$1]
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_051f
|
|
pushi $15c ; 348, setMotion
|
|
push1
|
|
push0
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
jmp code_05b9
|
|
|
|
code_051f: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_0536
|
|
lst temp[$0]
|
|
pToa x
|
|
sub
|
|
sat temp[$2]
|
|
lst temp[$1]
|
|
pToa y
|
|
sub
|
|
sat temp[$3]
|
|
jmp code_05b9
|
|
|
|
code_0536: dup
|
|
ldi $5 ; scaleY
|
|
eq?
|
|
bnt code_054d
|
|
pTos x
|
|
lat temp[$0]
|
|
sub
|
|
sat temp[$2]
|
|
pTos y
|
|
lat temp[$1]
|
|
sub
|
|
sat temp[$3]
|
|
jmp code_05b9
|
|
|
|
code_054d: dup
|
|
ldi $3 ; z
|
|
eq?
|
|
bnt code_055e
|
|
lat temp[$5]
|
|
sat temp[$2]
|
|
ldi $0
|
|
sat temp[$3]
|
|
jmp code_05b9
|
|
|
|
code_055e: dup
|
|
ldi $7 ; priority
|
|
eq?
|
|
bnt code_0570
|
|
lat temp[$5]
|
|
neg
|
|
sat temp[$2]
|
|
ldi $0
|
|
sat temp[$3]
|
|
jmp code_05b9
|
|
|
|
code_0570: pushi $b4 ; 180, end
|
|
pushi $4 ; scaleX
|
|
pTos x
|
|
pTos y
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
callk kernel_63, $8
|
|
bnot
|
|
sat temp[$4]
|
|
lt?
|
|
bnt code_058e
|
|
lst temp[$4]
|
|
ldi $168 ; 360, pY1
|
|
sub
|
|
sat temp[$4]
|
|
code_058e: lst temp[$4]
|
|
ldi $5a ; 90, 'Z', size
|
|
add
|
|
push
|
|
ldi $2
|
|
div
|
|
push
|
|
pushi $2d ; 45, '-', cursor
|
|
lsp param[$1]
|
|
ldi $2
|
|
sub
|
|
mul
|
|
add
|
|
sat temp[$4]
|
|
push2
|
|
push
|
|
pushi $64 ; 100, 'd', moveDone
|
|
callk kernel_66, $4
|
|
bnot
|
|
sat temp[$2]
|
|
push2
|
|
lst temp[$4]
|
|
pushi $64 ; 100, 'd', moveDone
|
|
callk kernel_67, $4
|
|
bnot
|
|
neg
|
|
sat temp[$3]
|
|
code_05b9: toss
|
|
lst temp[$5]
|
|
ldi $5 ; scaleY
|
|
div
|
|
sat temp[$5]
|
|
code_05c1: push1
|
|
lst temp[$3]
|
|
callk kernel_61, $2
|
|
bnot
|
|
push
|
|
lat temp[$5]
|
|
lt?
|
|
bnt code_05eb
|
|
push1
|
|
lst temp[$2]
|
|
callk kernel_61, $2
|
|
bnot
|
|
push
|
|
lat temp[$5]
|
|
lt?
|
|
bnt code_05eb
|
|
lst temp[$2]
|
|
ldi $5 ; scaleY
|
|
mul
|
|
sat temp[$2]
|
|
lst temp[$3]
|
|
ldi $5 ; scaleY
|
|
mul
|
|
sat temp[$3]
|
|
jmp code_05c1
|
|
|
|
code_05eb: pushi $16d ; 365, obstacles
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
sat temp[$7]
|
|
bnt code_06f9
|
|
lag global[$4b]
|
|
bnt code_06f9
|
|
pushi $8d ; 141, new
|
|
push0
|
|
class IntArray
|
|
send $4
|
|
bnot
|
|
sat temp[$6]
|
|
pushi $88 ; 136, right
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $87 ; 135, left
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
sub
|
|
push
|
|
ldi $1
|
|
add
|
|
sat temp[$a]
|
|
pushi $8a ; 138, bottom
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
push
|
|
pushi $89 ; 137, top
|
|
push0
|
|
pToa plane
|
|
send $4
|
|
bnot
|
|
sub
|
|
push
|
|
ldi $1
|
|
add
|
|
sat temp[$b]
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pushi $8 ; fixPriority
|
|
pTos x
|
|
pTos y
|
|
pTos x
|
|
lat temp[$2]
|
|
add
|
|
push
|
|
pTos y
|
|
lat temp[$3]
|
|
add
|
|
push
|
|
lst temp[$7]
|
|
lst temp[$a]
|
|
lst temp[$b]
|
|
push0
|
|
callk kernel_100, $10
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push2
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
sat temp[$8]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
pushi $3 ; z
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
sat temp[$9]
|
|
lst temp[$8]
|
|
pToa x
|
|
sub
|
|
sat temp[$2]
|
|
lst temp[$9]
|
|
pToa y
|
|
sub
|
|
sat temp[$3]
|
|
lag global[$2e]
|
|
bnt code_06f0
|
|
pushi $d3 ; 211, copy
|
|
push1
|
|
pushi $8 ; fixPriority
|
|
pTos x
|
|
pTos y
|
|
lst temp[$8]
|
|
lst temp[$9]
|
|
push
|
|
lst temp[$a]
|
|
lst temp[$b]
|
|
push0
|
|
callk kernel_100, $10
|
|
bnot
|
|
push
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push2
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
push
|
|
pTos x
|
|
lat temp[$2]
|
|
add
|
|
ne?
|
|
bt code_06cf
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
pushi $3 ; z
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
push
|
|
pTos y
|
|
lat temp[$3]
|
|
add
|
|
ne?
|
|
code_06cf: bnt code_06f0
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
push2
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
push
|
|
pToa x
|
|
sub
|
|
sat temp[$2]
|
|
pushi $4b ; 75, 'K', at
|
|
push1
|
|
pushi $3 ; z
|
|
lat temp[$6]
|
|
send $6
|
|
bnot
|
|
push
|
|
pToa y
|
|
sub
|
|
sat temp[$3]
|
|
code_06f0: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$6]
|
|
send $4
|
|
bnot
|
|
code_06f9: ret
|
|
|
|
Act::motionCue:
|
|
pToa mover
|
|
bnt code_0710
|
|
pushi $154 ; 340, completed
|
|
push0
|
|
send $4
|
|
bnot
|
|
bnt code_0710
|
|
pushi $159 ; 345, motionCue
|
|
push0
|
|
pToa mover
|
|
send $4
|
|
bnot
|
|
code_0710: pushi $159 ; 345, motionCue
|
|
push0
|
|
super Prop, $4
|
|
bnot
|
|
ret
|
|
|
|
Act::setLooper:
|
|
link $1
|
|
pToa looper
|
|
bnt code_072a
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop looper
|
|
code_072a: lap param[$0]
|
|
bnt code_075f
|
|
lap param[$1]
|
|
bnt code_075f
|
|
pushi $1007 ; 4103, -info-
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8000 ; -32768
|
|
and
|
|
bnt code_074f
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_0751
|
|
|
|
code_074f: lap param[$1]
|
|
code_0751: sat temp[$0]
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
aTop looper
|
|
send $6
|
|
bnot
|
|
code_075f: ret
|
|
|
|
Act::checkDetail:
|
|
pToa detailLevel
|
|
not
|
|
bnt code_0768
|
|
jmp code_078f
|
|
|
|
code_0768: lap param[$0]
|
|
bnt code_0770
|
|
lap param[$1]
|
|
jmp code_0779
|
|
|
|
code_0770: pushi $19e ; 414, detailLevel
|
|
push0
|
|
lag global[$2]
|
|
send $4
|
|
bnot
|
|
code_0779: push
|
|
pToa detailLevel
|
|
lt?
|
|
bnt code_0788
|
|
pTos signal
|
|
ldi $fe ; 254, strIndex
|
|
and
|
|
aTop signal
|
|
jmp code_078f
|
|
|
|
code_0788: pTos signal
|
|
ldi $1
|
|
or
|
|
aTop signal
|
|
code_078f: ret
|
|
|
|
Act::setSpeed:
|
|
lap param[$0]
|
|
bnt code_079a
|
|
lap param[$1]
|
|
aTop cycleSpeed
|
|
aTop moveSpeed
|
|
code_079a: pToa moveSpeed
|
|
ret
|
|
|
|
Act::setHeading:
|
|
lap param[$0]
|
|
bnt code_07a5
|
|
lap param[$1]
|
|
aTop heading
|
|
code_07a5: pToa looper
|
|
bnt code_07c3
|
|
pushi $45 ; 69, 'E', doit
|
|
pushi $3 ; z
|
|
pushSelf
|
|
pTos heading
|
|
lsp param[$0]
|
|
ldi $2
|
|
ge?
|
|
bnt code_07ba
|
|
lap param[$2]
|
|
code_07ba: push
|
|
pToa looper
|
|
send $a
|
|
bnot
|
|
jmp code_07f6
|
|
|
|
code_07c3: push2
|
|
pushSelf
|
|
pTos heading
|
|
callk kernel_95, $4
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $2
|
|
ge?
|
|
bnt code_07e1
|
|
lap param[$2]
|
|
bnt code_07e1
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
&rest $3 ; z
|
|
lap param[$2]
|
|
send $4
|
|
bnot
|
|
code_07e1: pToa cycler
|
|
bnt code_07f6
|
|
pushi $15e ; 350, clientLastCel
|
|
push1
|
|
pushi $161 ; 353, lastCel
|
|
push0
|
|
self $4
|
|
bnot
|
|
push
|
|
pToa cycler
|
|
send $6
|
|
bnot
|
|
code_07f6: pToa heading
|
|
ret
|
|
|
|
Act::setScale:
|
|
pToa scaler
|
|
bnt code_0808
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
ldi $0
|
|
aTop scaler
|
|
code_0808: lsp param[$0]
|
|
dup
|
|
ldi $0
|
|
eq?
|
|
bnt code_081b
|
|
pushi $19a ; 410, setScale
|
|
push0
|
|
super Prop, $4
|
|
bnot
|
|
jmp code_08ab
|
|
|
|
code_081b: dup
|
|
ldi $1
|
|
eq?
|
|
bnt code_082e
|
|
pushi $19a ; 410, setScale
|
|
push1
|
|
lsp param[$1]
|
|
super Prop, $6
|
|
bnot
|
|
jmp code_08ab
|
|
|
|
code_082e: dup
|
|
ldi $2
|
|
eq?
|
|
bnt code_086a
|
|
pushi $8d ; 141, new
|
|
push0
|
|
pushi $144 ; 324, scaler
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
send $4
|
|
bnot
|
|
aTop scaler
|
|
pushi $6a ; 106, 'j', scaleSignal
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop scaleSignal
|
|
pushi $6 ; maxScale
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
aTop maxScale
|
|
pushi $36 ; 54, '6', client
|
|
push1
|
|
pushSelf
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
pToa scaler
|
|
send $a
|
|
bnot
|
|
jmp code_08ab
|
|
|
|
code_086a: pushi $1007 ; 4103, -info-
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $8000 ; -32768
|
|
and
|
|
bnt code_0885
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
jmp code_0887
|
|
|
|
code_0885: lap param[$1]
|
|
code_0887: aTop scaler
|
|
pTos scaleSignal
|
|
ldi $1
|
|
or
|
|
aTop scaleSignal
|
|
pTos scaleSignal
|
|
ldi $fd ; 253, strip
|
|
and
|
|
aTop scaleSignal
|
|
pushi $94 ; 148, init
|
|
pushi $5 ; scaleY
|
|
pushSelf
|
|
lsp param[$2]
|
|
lsp param[$3]
|
|
lsp param[$4]
|
|
lsp param[$5]
|
|
pToa scaler
|
|
send $e
|
|
bnot
|
|
code_08ab: toss
|
|
ret
|
|
|
|
Act::update:
|
|
pushi $17c ; 380, isNotHidden
|
|
push0
|
|
self $4
|
|
bnot
|
|
bnt code_08bc
|
|
push1
|
|
pushSelf
|
|
callk kernel_32, $2
|
|
bnot
|
|
code_08bc: ret
|
|
|