311 lines
4.2 KiB
Plaintext
311 lines
4.2 KiB
Plaintext
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
|
|
|