65 lines
764 B
Plaintext
65 lines
764 B
Plaintext
Follow::doit:
|
|
pushi $165 ; 357, distanceTo
|
|
push1
|
|
pTos who
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
push
|
|
pToa distance
|
|
le?
|
|
bnt code_009f
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
aTop xLast
|
|
push2
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
aTop yLast
|
|
pushi $166 ; 358, dirLoop
|
|
push1
|
|
pushi $4 ; scaleX
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
push1
|
|
push0
|
|
pToa who
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
pToa who
|
|
send $4
|
|
bnot
|
|
push
|
|
callk kernel_63, $8
|
|
bnot
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
jmp code_00a6
|
|
|
|
code_009f: pushi $45 ; 69, 'E', doit
|
|
push0
|
|
super Chase, $4
|
|
bnot
|
|
code_00a6: ret
|
|
|