Upload files to "Script"
This commit is contained in:
parent
ea03d6814d
commit
c8ed29ef43
|
|
@ -0,0 +1,155 @@
|
|||
Cycle::init:
|
||||
lap param[$0]
|
||||
bnt code_00a2
|
||||
lap param[$1]
|
||||
aTop client
|
||||
code_00a2: lag global[$40]
|
||||
aTop cycleCnt
|
||||
ldi $0
|
||||
aTop completed
|
||||
pushi $161 ; 353, lastCel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop clientLastCel
|
||||
ret
|
||||
|
||||
Cycle::nextCel:
|
||||
pushi $10 ; 16, cel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa cycleDir
|
||||
add
|
||||
ret
|
||||
|
||||
Cycle::cycleDone:
|
||||
ret
|
||||
|
||||
Cycle::motionCue:
|
||||
pushi $15b ; 347, cycler
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Cycle::dispose:
|
||||
pToa caller
|
||||
bnt code_0100
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $cb ; 203, cuee
|
||||
push1
|
||||
push
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Cue
|
||||
send $4
|
||||
bnot
|
||||
send $a
|
||||
bnot
|
||||
push
|
||||
pushi $ca ; 202, pCuees
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
code_0100: pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Fwd::doit:
|
||||
link $1
|
||||
pushi $10 ; 16, cel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $15f ; 351, nextCel
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
ne?
|
||||
bnt code_015d
|
||||
pTos clientLastCel
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_012c
|
||||
ret
|
||||
|
||||
jmp code_0146
|
||||
|
||||
code_012c: lst temp[$0]
|
||||
pToa clientLastCel
|
||||
gt?
|
||||
bnt code_013c
|
||||
pushi $160 ; 352, cycleDone
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_0146
|
||||
|
||||
code_013c: pushi $10 ; 16, cel
|
||||
push1
|
||||
lst temp[$0]
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_0146: pushi $1007 ; 4103, -info-
|
||||
push1
|
||||
pushi $1007 ; 4103, -info-
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8 ; fixPriority
|
||||
or
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_015d: ret
|
||||
|
||||
Fwd::cycleDone:
|
||||
pushi $10 ; 16, cel
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
Walk::doit:
|
||||
link $1
|
||||
pushi $162 ; 354, isStopped
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bnt code_017d
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super Fwd, $4
|
||||
bnot
|
||||
code_017d: ret
|
||||
|
||||
|
|
@ -0,0 +1,125 @@
|
|||
CT::init:
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
lsp param[$1]
|
||||
super Cycle, $6
|
||||
bnot
|
||||
lap param[$3]
|
||||
aTop cycleDir
|
||||
lsp param[$0]
|
||||
ldi $4 ; scaleX
|
||||
eq?
|
||||
bnt code_00ad
|
||||
lap param[$4]
|
||||
aTop caller
|
||||
code_00ad: lsp param[$2]
|
||||
pToa clientLastCel
|
||||
gt?
|
||||
bnt code_00b8
|
||||
pToa clientLastCel
|
||||
jmp code_00ba
|
||||
|
||||
code_00b8: lap param[$2]
|
||||
code_00ba: aTop endCel
|
||||
ret
|
||||
|
||||
CT::doit:
|
||||
link $2
|
||||
pushi $10 ; 16, cel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
push
|
||||
pushi $15f ; 351, nextCel
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
ne?
|
||||
bnt code_0107
|
||||
pushi $1007 ; 4103, -info-
|
||||
push1
|
||||
pushi $1007 ; 4103, -info-
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8 ; fixPriority
|
||||
or
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
lst temp[$1]
|
||||
pToa endCel
|
||||
eq?
|
||||
bnt code_00fd
|
||||
pushi $160 ; 352, cycleDone
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_0107
|
||||
|
||||
code_00fd: pushi $10 ; 16, cel
|
||||
push1
|
||||
lst temp[$0]
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_0107: ret
|
||||
|
||||
CT::cycleDone:
|
||||
ldi $1
|
||||
aTop completed
|
||||
pushi $159 ; 345, motionCue
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
End::init:
|
||||
pushi $94 ; 148, init
|
||||
pushi $4 ; scaleX
|
||||
lsp param[$1]
|
||||
pushi $161 ; 353, lastCel
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push1
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_0132
|
||||
lap param[$2]
|
||||
jmp code_0134
|
||||
|
||||
code_0132: ldi $0
|
||||
code_0134: push
|
||||
super CT, $c
|
||||
bnot
|
||||
ret
|
||||
|
||||
Beg::init:
|
||||
pushi $94 ; 148, init
|
||||
pushi $4 ; scaleX
|
||||
lsp param[$1]
|
||||
push0
|
||||
pushi $ff ; 255, asInteger
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_0150
|
||||
lap param[$2]
|
||||
jmp code_0152
|
||||
|
||||
code_0150: ldi $0
|
||||
code_0152: push
|
||||
super CT, $c
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,39 @@
|
|||
Rev::doit:
|
||||
link $1
|
||||
pushi $15f ; 351, nextCel
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
ldi $0
|
||||
lt?
|
||||
bnt code_0050
|
||||
pushi $160 ; 352, cycleDone
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_005a
|
||||
|
||||
code_0050: pushi $10 ; 16, cel
|
||||
push1
|
||||
lst temp[$0]
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_005a: ret
|
||||
|
||||
Rev::cycleDone:
|
||||
pushi $10 ; 16, cel
|
||||
push1
|
||||
pushi $161 ; 353, lastCel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,520 @@
|
|||
Jump::init:
|
||||
link $1
|
||||
lap param[$1]
|
||||
aTop client
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_00c5
|
||||
lap param[$2]
|
||||
aTop caller
|
||||
code_00c5: pushi $1a ; 26, signal
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop signal
|
||||
pushi $4a ; 74, 'J', setPri
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
pTos xStep
|
||||
ldi $4e20 ; 20000
|
||||
eq?
|
||||
bnt code_0127
|
||||
pushi $43 ; 67, 'C', heading
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
ldi $14a ; 330, cycleSpeed
|
||||
gt?
|
||||
bt code_0104
|
||||
lst temp[$0]
|
||||
ldi $1e ; 30, brRight
|
||||
lt?
|
||||
bt code_0104
|
||||
pushi $96 ; 150, isClass
|
||||
lat temp[$0]
|
||||
lt?
|
||||
bnt code_010a
|
||||
pprev
|
||||
ldi $d2 ; 210, copyToFrom
|
||||
lt?
|
||||
code_0104: bnt code_010a
|
||||
ldi $0
|
||||
jmp code_0125
|
||||
|
||||
code_010a: lst temp[$0]
|
||||
ldi $b4 ; 180, end
|
||||
lt?
|
||||
bnt code_011c
|
||||
pushi $3f ; 63, '?', xStep
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
jmp code_0125
|
||||
|
||||
code_011c: pushi $3f ; 63, '?', xStep
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
neg
|
||||
code_0125: aTop xStep
|
||||
code_0127: pToa waitApogeeX
|
||||
bnt code_0134
|
||||
pTos xStep
|
||||
pToa gx
|
||||
mul
|
||||
push
|
||||
ldi $0
|
||||
lt?
|
||||
code_0134: not
|
||||
bnt code_013b
|
||||
ldi $0
|
||||
aTop waitApogeeX
|
||||
code_013b: pToa waitApogeeY
|
||||
bnt code_0148
|
||||
pTos yStep
|
||||
pToa gy
|
||||
mul
|
||||
push
|
||||
ldi $0
|
||||
lt?
|
||||
code_0148: not
|
||||
bnt code_014f
|
||||
ldi $0
|
||||
aTop waitApogeeY
|
||||
code_014f: lag global[$40]
|
||||
aTop b_moveCnt
|
||||
pushi $179 ; 377, setTest
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Jump::doit:
|
||||
link $2
|
||||
push1
|
||||
lsg global[$40]
|
||||
pToa b_moveCnt
|
||||
sub
|
||||
push
|
||||
callk kernel_61, $2
|
||||
bnot
|
||||
push
|
||||
pushi $41 ; 65, 'A', moveSpeed
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
ge?
|
||||
bnt code_027e
|
||||
lag global[$40]
|
||||
aTop b_moveCnt
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop xLast
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop yLast
|
||||
push1
|
||||
push1
|
||||
pTos xLast
|
||||
pToa xStep
|
||||
add
|
||||
push
|
||||
push2
|
||||
push1
|
||||
pTos yLast
|
||||
pToa yStep
|
||||
add
|
||||
push
|
||||
pToa client
|
||||
send $c
|
||||
bnot
|
||||
pToa xStep
|
||||
sat temp[$0]
|
||||
pToa yStep
|
||||
sat temp[$1]
|
||||
pTos xStep
|
||||
pToa gx
|
||||
add
|
||||
aTop xStep
|
||||
pTos yStep
|
||||
pToa gy
|
||||
add
|
||||
aTop yStep
|
||||
pToa waitApogeeX
|
||||
not
|
||||
bnt code_01f9
|
||||
pTos x
|
||||
ldi $4e20 ; 20000
|
||||
ne?
|
||||
bnt code_01f9
|
||||
push0
|
||||
pTos dx
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa x
|
||||
sub
|
||||
mul
|
||||
le?
|
||||
bnt code_01f9
|
||||
push1
|
||||
push1
|
||||
pTos x
|
||||
pushi $1007 ; 4103, -info-
|
||||
push1
|
||||
pushi $1007 ; 4103, -info-
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8 ; fixPriority
|
||||
or
|
||||
push
|
||||
pToa client
|
||||
send $c
|
||||
bnot
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_027e
|
||||
|
||||
code_01f9: pToa waitApogeeY
|
||||
not
|
||||
bnt code_023b
|
||||
pTos y
|
||||
ldi $4e20 ; 20000
|
||||
ne?
|
||||
bnt code_023b
|
||||
push0
|
||||
pTos dy
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa y
|
||||
sub
|
||||
mul
|
||||
le?
|
||||
bnt code_023b
|
||||
push2
|
||||
push1
|
||||
pTos y
|
||||
pushi $1007 ; 4103, -info-
|
||||
push1
|
||||
pushi $1007 ; 4103, -info-
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8 ; fixPriority
|
||||
or
|
||||
push
|
||||
pToa client
|
||||
send $c
|
||||
bnot
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_027e
|
||||
|
||||
code_023b: lst temp[$0]
|
||||
pToa xStep
|
||||
mul
|
||||
push
|
||||
ldi $0
|
||||
le?
|
||||
bnt code_0251
|
||||
ldi $0
|
||||
aTop waitApogeeX
|
||||
pushi $179 ; 377, setTest
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_0251: lst temp[$1]
|
||||
pToa yStep
|
||||
mul
|
||||
push
|
||||
ldi $0
|
||||
le?
|
||||
bnt code_0267
|
||||
ldi $0
|
||||
aTop waitApogeeY
|
||||
pushi $179 ; 377, setTest
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_0267: pushi $1007 ; 4103, -info-
|
||||
push1
|
||||
pushi $1007 ; 4103, -info-
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8 ; fixPriority
|
||||
or
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_027e: ret
|
||||
|
||||
Jump::moveDone:
|
||||
pushi $1a ; 26, signal
|
||||
push1
|
||||
pTos signal
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
pToa caller
|
||||
bnt code_0298
|
||||
ldi $1
|
||||
aTop completed
|
||||
pushi $159 ; 345, motionCue
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_0298: ret
|
||||
|
||||
Jump::setTest:
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa x
|
||||
gt?
|
||||
bt code_02b8
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa x
|
||||
eq?
|
||||
bnt code_02be
|
||||
pTos xStep
|
||||
ldi $0
|
||||
gt?
|
||||
code_02b8: bnt code_02be
|
||||
ldi $ff ; 255, asInteger
|
||||
jmp code_02c0
|
||||
|
||||
code_02be: ldi $1
|
||||
code_02c0: aTop dx
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa y
|
||||
gt?
|
||||
bt code_02e1
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa y
|
||||
eq?
|
||||
bnt code_02e7
|
||||
pTos yStep
|
||||
ldi $0
|
||||
gt?
|
||||
code_02e1: bnt code_02e7
|
||||
ldi $ff ; 255, asInteger
|
||||
jmp code_02e9
|
||||
|
||||
code_02e7: ldi $1
|
||||
code_02e9: aTop dy
|
||||
ret
|
||||
|
||||
Jump::motionCue:
|
||||
pushi $44 ; 68, 'D', mover
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
pToa completed
|
||||
bnt code_0324
|
||||
pToa caller
|
||||
bnt code_0324
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushi $cb ; 203, cuee
|
||||
push1
|
||||
pTos caller
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Cue
|
||||
send $4
|
||||
bnot
|
||||
send $a
|
||||
bnot
|
||||
push
|
||||
pushi $ca ; 202, pCuees
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
code_0324: pushi $95 ; 149, dispose
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
JumpTo::init:
|
||||
link $36
|
||||
lap param[$1]
|
||||
aTop client
|
||||
lap param[$2]
|
||||
aTop x
|
||||
lap param[$3]
|
||||
aTop y
|
||||
pTos x
|
||||
push1
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
eq?
|
||||
bnt code_0363
|
||||
pTos y
|
||||
push2
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
eq?
|
||||
bnt code_0363
|
||||
pushi $1a ; 26, signal
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop signal
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
code_0363: pTos x
|
||||
push1
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sub
|
||||
sat temp[$0]
|
||||
pTos y
|
||||
push2
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sub
|
||||
sat temp[$1]
|
||||
pushi $4 ; scaleX
|
||||
pushSelf
|
||||
lst temp[$0]
|
||||
push
|
||||
pTos gy
|
||||
callk kernel_99, $8
|
||||
bnot
|
||||
lat temp[$0]
|
||||
not
|
||||
bnt code_0391
|
||||
ldi $4e20 ; 20000
|
||||
aTop x
|
||||
code_0391: lat temp[$1]
|
||||
not
|
||||
bnt code_039b
|
||||
ldi $4e20 ; 20000
|
||||
aTop y
|
||||
code_039b: lsp param[$0]
|
||||
dup
|
||||
ldi $3 ; z
|
||||
eq?
|
||||
bnt code_03af
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
lsp param[$1]
|
||||
super Jump, $6
|
||||
bnot
|
||||
jmp code_03c1
|
||||
|
||||
code_03af: dup
|
||||
ldi $4 ; scaleX
|
||||
eq?
|
||||
bnt code_03c1
|
||||
pushi $94 ; 148, init
|
||||
push2
|
||||
lsp param[$1]
|
||||
lsp param[$4]
|
||||
super Jump, $8
|
||||
bnot
|
||||
code_03c1: toss
|
||||
ret
|
||||
|
||||
JumpTo::moveDone:
|
||||
pTos x
|
||||
ldi $4e20 ; 20000
|
||||
ne?
|
||||
bnt code_03d4
|
||||
push1
|
||||
push1
|
||||
pTos x
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_03d4: pTos y
|
||||
ldi $4e20 ; 20000
|
||||
ne?
|
||||
bnt code_03e5
|
||||
push2
|
||||
push1
|
||||
pTos y
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_03e5: pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
super Jump, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,310 @@
|
|||
export60049_0 = StopWalk
|
||||
|
||||
StopWalk::init:
|
||||
lap param[$0]
|
||||
bnt code_005f
|
||||
pushi $e ; 14, view
|
||||
push0
|
||||
lap param[$1]
|
||||
aTop client
|
||||
send $4
|
||||
bnot
|
||||
aTop vWalking
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_005f
|
||||
lap param[$2]
|
||||
aTop vStopped
|
||||
code_005f: pushi $94 ; 148, init
|
||||
push1
|
||||
pTos client
|
||||
super Fwd, $6
|
||||
bnot
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
StopWalk::dispose:
|
||||
pushi $e ; 14, view
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa vStopped
|
||||
eq?
|
||||
bnt code_0088
|
||||
pushi $e ; 14, view
|
||||
push1
|
||||
pTos vWalking
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_0088: pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Fwd, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
StopWalk::doit:
|
||||
link $3
|
||||
pushi $162 ; 354, isStopped
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
bnt code_01b1
|
||||
pToa stopped
|
||||
bnt code_0121
|
||||
pTos vStopped
|
||||
ldi $ff ; 255, asInteger
|
||||
ne?
|
||||
bnt code_011d
|
||||
pToa clientLastCel
|
||||
bnt code_011d
|
||||
pToa skipTime
|
||||
bnt code_00b8
|
||||
dpToa skipTime
|
||||
ret
|
||||
|
||||
jmp code_011d
|
||||
|
||||
code_00b8: pushi $10 ; 16, cel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $15f ; 351, nextCel
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
ne?
|
||||
bnt code_011d
|
||||
lst temp[$2]
|
||||
pToa clientLastCel
|
||||
gt?
|
||||
bnt code_00fc
|
||||
pushi $10 ; 16, cel
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
pushi $14a ; 330, cycleSpeed
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pTos clientLastCel
|
||||
ldi $1
|
||||
add
|
||||
mul
|
||||
push
|
||||
push2
|
||||
pushi $5 ; scaleY
|
||||
pushi $d ; 13, seenRect
|
||||
callk kernel_60, $4
|
||||
bnot
|
||||
mul
|
||||
aTop skipTime
|
||||
jmp code_0106
|
||||
|
||||
code_00fc: pushi $10 ; 16, cel
|
||||
push1
|
||||
lst temp[$2]
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_0106: pushi $1007 ; 4103, -info-
|
||||
push1
|
||||
pushi $1007 ; 4103, -info-
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8 ; fixPriority
|
||||
or
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_011d: ret
|
||||
|
||||
jmp code_0193
|
||||
|
||||
code_0121: pTos vStopped
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_0165
|
||||
pushi $f ; 15, loop
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push1
|
||||
pTos client
|
||||
callk kernel_21, $2
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
sub
|
||||
ne?
|
||||
bnt code_0165
|
||||
pushi $f ; 15, loop
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
push1
|
||||
pTos client
|
||||
callk kernel_21, $2
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
sub
|
||||
push
|
||||
pushi $196 ; 406, setCel
|
||||
push1
|
||||
lst temp[$0]
|
||||
pToa client
|
||||
send $c
|
||||
bnot
|
||||
jmp code_0193
|
||||
|
||||
code_0165: pTos vStopped
|
||||
ldi $ff ; 255, asInteger
|
||||
ne?
|
||||
bnt code_0193
|
||||
pushi $e ; 14, view
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pToa vWalking
|
||||
eq?
|
||||
bnt code_0193
|
||||
pushi $e ; 14, view
|
||||
push1
|
||||
pTos vStopped
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
pushi $161 ; 353, lastCel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
sub
|
||||
aTop clientLastCel
|
||||
code_0193: pushi $1007 ; 4103, -info-
|
||||
push1
|
||||
pushi $1007 ; 4103, -info-
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8 ; fixPriority
|
||||
or
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
ldi $1
|
||||
aTop stopped
|
||||
jmp code_0231
|
||||
|
||||
code_01b1: pToa stopped
|
||||
bnt code_022a
|
||||
ldi $0
|
||||
aTop stopped
|
||||
aTop skipTime
|
||||
pTos vStopped
|
||||
dup
|
||||
pushi $e ; 14, view
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
eq?
|
||||
bnt code_01e1
|
||||
pushi $e ; 14, view
|
||||
push1
|
||||
pTos vWalking
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
pushi $161 ; 353, lastCel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop clientLastCel
|
||||
jmp code_0229
|
||||
|
||||
code_01e1: dup
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_0229
|
||||
pushi $195 ; 405, setLoop
|
||||
push1
|
||||
pushi $ff ; 255, asInteger
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
pushi $f ; 15, loop
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push1
|
||||
pTos client
|
||||
callk kernel_21, $2
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
sub
|
||||
eq?
|
||||
bnt code_0229
|
||||
pushi $f ; 15, loop
|
||||
push1
|
||||
pushi $10 ; 16, cel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $10 ; 16, cel
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $c
|
||||
bnot
|
||||
pushi $161 ; 353, lastCel
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop clientLastCel
|
||||
code_0229: toss
|
||||
code_022a: pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super Fwd, $4
|
||||
bnot
|
||||
code_0231: ret
|
||||
|
||||
Loading…
Reference in New Issue