283 lines
3.7 KiB
Plaintext
283 lines
3.7 KiB
Plaintext
Motion::init:
|
|
link $2
|
|
lap param[$0]
|
|
bnt code_00e3
|
|
push
|
|
ldi $1
|
|
ge?
|
|
bnt code_00cd
|
|
lap param[$1]
|
|
aTop client
|
|
lsp param[$0]
|
|
ldi $2
|
|
ge?
|
|
bnt code_00cd
|
|
lap param[$2]
|
|
aTop x
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
ge?
|
|
bnt code_00cd
|
|
lap param[$3]
|
|
aTop y
|
|
lsp param[$0]
|
|
ldi $4 ; scaleX
|
|
ge?
|
|
bnt code_00cd
|
|
lap param[$4]
|
|
aTop caller
|
|
code_00cd: ldi $0
|
|
aTop completed
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
aTop xLast
|
|
push2
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
aTop yLast
|
|
code_00e3: pushi $4 ; scaleX
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
push2
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
push
|
|
pTos x
|
|
pTos y
|
|
callk kernel_64, $8
|
|
bnot
|
|
bnt code_011b
|
|
pushi $15a ; 346, setHeading
|
|
push1
|
|
pushi $4 ; scaleX
|
|
lst temp[$0]
|
|
lst temp[$1]
|
|
pTos x
|
|
pTos y
|
|
callk kernel_63, $8
|
|
bnot
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_011b: push1
|
|
pushSelf
|
|
callk kernel_97, $2
|
|
bnot
|
|
pushi $15b ; 347, cycler
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
sat temp[$1]
|
|
bnt code_0137
|
|
pushi $102 ; 258, cycleCnt
|
|
push0
|
|
send $4
|
|
bnot
|
|
aTop b_moveCnt
|
|
code_0137: ret
|
|
|
|
Motion::dispose:
|
|
push1
|
|
pTos client
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0159
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
bnt code_0159
|
|
pushi $64 ; 100, 'd', moveDone
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
code_0159: push1
|
|
pTos caller
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_019b
|
|
pToa pImmediateCue
|
|
bnt code_0174
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
pToa caller
|
|
send $4
|
|
bnot
|
|
jmp code_019b
|
|
|
|
code_0174: 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_019b: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
Motion::onTarget:
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa x
|
|
eq?
|
|
bnt code_01be
|
|
push2
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa y
|
|
eq?
|
|
code_01be: ret
|
|
|
|
Motion::setTarget:
|
|
lap param[$0]
|
|
bnt code_01cb
|
|
lap param[$1]
|
|
aTop x
|
|
lap param[$2]
|
|
aTop y
|
|
code_01cb: ret
|
|
|
|
Motion::doit:
|
|
link $6
|
|
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
|
|
push1
|
|
pushSelf
|
|
callk kernel_98, $2
|
|
bnot
|
|
ret
|
|
|
|
Motion::moveDone:
|
|
push1
|
|
pTos client
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_020d
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $64 ; 100, 'd', moveDone
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
bnt code_020d
|
|
pushi $64 ; 100, 'd', moveDone
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
code_020d: ldi $1
|
|
aTop completed
|
|
pushi $159 ; 345, motionCue
|
|
push0
|
|
self $4
|
|
bnot
|
|
ret
|
|
|
|
Motion::motionCue:
|
|
pushi $15c ; 348, setMotion
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
MoveTo::onTarget:
|
|
push1
|
|
push1
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa x
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
push
|
|
pushi $3f ; 63, '?', xStep
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
le?
|
|
bnt code_025c
|
|
push1
|
|
push2
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
push
|
|
pToa y
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
push
|
|
pushi $40 ; 64, '@', yStep
|
|
push0
|
|
pToa client
|
|
send $4
|
|
bnot
|
|
le?
|
|
code_025c: ret
|
|
|