Upload files to "Script"
This commit is contained in:
parent
74e2a3c083
commit
1f192eaf2c
|
|
@ -0,0 +1,545 @@
|
|||
View::init:
|
||||
link $1
|
||||
pTos signal
|
||||
ldi $f7 ; 247, cat
|
||||
and
|
||||
aTop signal
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
&rest $1
|
||||
super Feature, $4
|
||||
bnot
|
||||
pTos view
|
||||
ldi $ff ; 255, asInteger
|
||||
ne?
|
||||
bnt code_00fc
|
||||
pTos signal
|
||||
ldi $20 ; 32, ' ', name
|
||||
and
|
||||
bnt code_00fc
|
||||
push2
|
||||
pushi $80 ; 128, lastKey
|
||||
pTos view
|
||||
callk kernel_5, $4
|
||||
bnot
|
||||
bnt code_00fc
|
||||
pushi $19c ; 412, doBaseRect
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_00fc: pToa plane
|
||||
bnt code_010d
|
||||
pTos view
|
||||
ldi $ff ; 255, asInteger
|
||||
ne?
|
||||
bnt code_010d
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_20, $2
|
||||
bnot
|
||||
code_010d: ret
|
||||
|
||||
View::dispose:
|
||||
link $1
|
||||
ldi $0
|
||||
aTop clut
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Feature, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
View::doit:
|
||||
pTos signal
|
||||
ldi $8000 ; -32768
|
||||
and
|
||||
bnt code_0138
|
||||
pushi $7 ; priority
|
||||
pushSelf
|
||||
pTos view
|
||||
pTos loop
|
||||
pTos cel
|
||||
pTos x
|
||||
pTos y
|
||||
pTos z
|
||||
callk kernel_26, $e
|
||||
bnot
|
||||
code_0138: pTos -info-
|
||||
ldi $8 ; fixPriority
|
||||
and
|
||||
bnt code_0155
|
||||
pushi $17c ; 380, isNotHidden
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
bnt code_0155
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_32, $2
|
||||
bnot
|
||||
pTos -info-
|
||||
ldi $f7 ; 247, cat
|
||||
and
|
||||
aTop -info-
|
||||
code_0155: ret
|
||||
|
||||
View::posn:
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
ge?
|
||||
bnt code_0177
|
||||
lap param[$1]
|
||||
aTop x
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_0177
|
||||
lap param[$2]
|
||||
aTop y
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
ge?
|
||||
bnt code_0177
|
||||
lap param[$3]
|
||||
aTop z
|
||||
code_0177: pTos -info-
|
||||
ldi $8 ; fixPriority
|
||||
or
|
||||
aTop -info-
|
||||
pTos signal
|
||||
ldi $20 ; 32, ' ', name
|
||||
and
|
||||
bnt code_018c
|
||||
pushi $19c ; 412, doBaseRect
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
code_018c: ret
|
||||
|
||||
View::setLoop:
|
||||
lsp param[$0]
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_019e
|
||||
pTos signal
|
||||
ldi $800 ; 2048, BAD SELECTOR
|
||||
or
|
||||
aTop signal
|
||||
jmp code_01d0
|
||||
|
||||
code_019e: lsp param[$1]
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_01af
|
||||
pTos signal
|
||||
ldi $f7ff ; -2049
|
||||
and
|
||||
aTop signal
|
||||
jmp code_01d0
|
||||
|
||||
code_01af: lap param[$1]
|
||||
aTop loop
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_01d0
|
||||
lap param[$2]
|
||||
bnt code_01c8
|
||||
pTos signal
|
||||
ldi $800 ; 2048, BAD SELECTOR
|
||||
or
|
||||
aTop signal
|
||||
jmp code_01d0
|
||||
|
||||
code_01c8: pTos signal
|
||||
ldi $f7ff ; -2049
|
||||
and
|
||||
aTop signal
|
||||
code_01d0: ret
|
||||
|
||||
View::setCel:
|
||||
lap param[$1]
|
||||
aTop cel
|
||||
ret
|
||||
|
||||
View::ignoreActors:
|
||||
push0
|
||||
lap param[$0]
|
||||
eq?
|
||||
bt code_01de
|
||||
lap param[$1]
|
||||
code_01de: bnt code_01ea
|
||||
pTos signal
|
||||
ldi $4000 ; 16384
|
||||
or
|
||||
aTop signal
|
||||
jmp code_01f2
|
||||
|
||||
code_01ea: pTos signal
|
||||
ldi $bfff ; -16385
|
||||
and
|
||||
aTop signal
|
||||
code_01f2: ret
|
||||
|
||||
View::lastLoop:
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_21, $2
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
sub
|
||||
ret
|
||||
|
||||
View::lastCel:
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_22, $2
|
||||
bnot
|
||||
push
|
||||
ldi $1
|
||||
sub
|
||||
ret
|
||||
|
||||
View::motionCue:
|
||||
ret
|
||||
|
||||
View::checkDetail:
|
||||
ret
|
||||
|
||||
View::onMe:
|
||||
link $2
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_0228
|
||||
push1
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push2
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$1]
|
||||
jmp code_0230
|
||||
|
||||
code_0228: lap param[$1]
|
||||
sat temp[$0]
|
||||
lap param[$2]
|
||||
sat temp[$1]
|
||||
code_0230: pTos signal
|
||||
ldi $8 ; fixPriority
|
||||
and
|
||||
bnt code_023b
|
||||
ldi $0
|
||||
jmp code_0260
|
||||
|
||||
code_023b: pToa onMeCheck
|
||||
not
|
||||
bnt code_0254
|
||||
pushi $4 ; scaleX
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
pushSelf
|
||||
pTos signal
|
||||
ldi $1000 ; 4096, -objID-
|
||||
and
|
||||
push
|
||||
callk kernel_23, $8
|
||||
bnot
|
||||
jmp code_0260
|
||||
|
||||
code_0254: pushi $eb ; 235, onMe
|
||||
push2
|
||||
lst temp[$0]
|
||||
lst temp[$1]
|
||||
super Feature, $8
|
||||
bnot
|
||||
code_0260: ret
|
||||
|
||||
View::setScale:
|
||||
link $6
|
||||
lap param[$0]
|
||||
not
|
||||
bnt code_0279
|
||||
pTos scaleSignal
|
||||
ldi $1
|
||||
or
|
||||
aTop scaleSignal
|
||||
pTos scaleSignal
|
||||
ldi $fd ; 253, strip
|
||||
and
|
||||
aTop scaleSignal
|
||||
jmp code_037b
|
||||
|
||||
code_0279: lsp param[$0]
|
||||
ldi $5 ; scaleY
|
||||
eq?
|
||||
bnt code_02b9
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$5]
|
||||
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]
|
||||
lat temp[$5]
|
||||
send $e
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$5]
|
||||
send $4
|
||||
bnot
|
||||
jmp code_037b
|
||||
|
||||
code_02b9: lsp param[$0]
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_031a
|
||||
pushi $3 ; z
|
||||
pTos view
|
||||
pTos loop
|
||||
pTos cel
|
||||
callk kernel_28, $6
|
||||
bnot
|
||||
sat temp[$3]
|
||||
pushi $3 ; z
|
||||
pTos view
|
||||
pTos loop
|
||||
pTos cel
|
||||
callk kernel_29, $6
|
||||
bnot
|
||||
sat temp[$4]
|
||||
lsp param[$1]
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_02e7
|
||||
lat temp[$3]
|
||||
sap param[$1]
|
||||
code_02e7: lsp param[$2]
|
||||
ldi $ff ; 255, asInteger
|
||||
eq?
|
||||
bnt code_02f2
|
||||
lat temp[$4]
|
||||
sap param[$2]
|
||||
code_02f2: lsp param[$1]
|
||||
ldi $80 ; 128, lastKey
|
||||
mul
|
||||
push
|
||||
lat temp[$3]
|
||||
div
|
||||
aTop scaleX
|
||||
lsp param[$2]
|
||||
ldi $80 ; 128, lastKey
|
||||
mul
|
||||
push
|
||||
lat temp[$4]
|
||||
div
|
||||
aTop scaleY
|
||||
pTos scaleSignal
|
||||
ldi $1
|
||||
or
|
||||
aTop scaleSignal
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_32, $2
|
||||
bnot
|
||||
jmp code_037b
|
||||
|
||||
code_031a: lap param[$1]
|
||||
not
|
||||
bnt code_0328
|
||||
pTos scaleSignal
|
||||
ldi $fc ; 252, getToken
|
||||
and
|
||||
aTop scaleSignal
|
||||
jmp code_037b
|
||||
|
||||
code_0328: lsp param[$1]
|
||||
pushi $6c ; 108, 'l', vanishingY
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
lt?
|
||||
bnt code_0345
|
||||
push2
|
||||
lofsa string_007c ; "<%s setScale:> y value less than vanishingY"
|
||||
push
|
||||
pTos name
|
||||
calle export60029_1, $4
|
||||
bnot
|
||||
jmp code_037b
|
||||
|
||||
code_0345: lsp param[$1]
|
||||
pushi $6c ; 108, 'l', vanishingY
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
sub
|
||||
sat temp[$0]
|
||||
pushi $be ; 190, seconds
|
||||
lap param[$1]
|
||||
sub
|
||||
sat temp[$1]
|
||||
push
|
||||
ldi $64 ; 100, 'd', moveDone
|
||||
mul
|
||||
push
|
||||
lat temp[$0]
|
||||
div
|
||||
push
|
||||
ldi $64 ; 100, 'd', moveDone
|
||||
add
|
||||
sat temp[$2]
|
||||
pTos scaleSignal
|
||||
ldi $3 ; z
|
||||
or
|
||||
aTop scaleSignal
|
||||
lst temp[$2]
|
||||
ldi $80 ; 128, lastKey
|
||||
mul
|
||||
push
|
||||
ldi $64 ; 100, 'd', moveDone
|
||||
div
|
||||
aTop maxScale
|
||||
code_037b: ret
|
||||
|
||||
View::setMagnifier:
|
||||
pTos signal
|
||||
ldi $8 ; fixPriority
|
||||
and
|
||||
not
|
||||
bnt code_03a5
|
||||
pToa magnifier
|
||||
bnt code_038f
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_038f: lap param[$0]
|
||||
bnt code_03a5
|
||||
lap param[$1]
|
||||
bnt code_03a5
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
pushSelf
|
||||
&rest $2
|
||||
lap param[$1]
|
||||
aTop magnifier
|
||||
send $6
|
||||
bnot
|
||||
code_03a5: ret
|
||||
|
||||
View::celRect:
|
||||
pushi $e7 ; 231, celRect
|
||||
pushi $6 ; maxScale
|
||||
pTos view
|
||||
pTos loop
|
||||
pTos cel
|
||||
pTos x
|
||||
pTos y
|
||||
pTos z
|
||||
lap param[$1]
|
||||
send $10
|
||||
bnot
|
||||
ret
|
||||
|
||||
View::doBaseRect:
|
||||
pToa baseSetter
|
||||
bnt code_03cb
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push1
|
||||
pushSelf
|
||||
send $6
|
||||
bnot
|
||||
jmp code_03d1
|
||||
|
||||
code_03cb: push1
|
||||
pushSelf
|
||||
callk kernel_94, $2
|
||||
bnot
|
||||
code_03d1: ret
|
||||
|
||||
View::setSignal:
|
||||
link $1
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
gt?
|
||||
bnt code_03df
|
||||
lap param[$2]
|
||||
jmp code_03e1
|
||||
|
||||
code_03df: ldi $1
|
||||
code_03e1: sat temp[$0]
|
||||
bnt code_03ee
|
||||
pTos signal
|
||||
lap param[$1]
|
||||
or
|
||||
aTop signal
|
||||
jmp code_03f6
|
||||
|
||||
code_03ee: pTos signal
|
||||
lap param[$1]
|
||||
bnot
|
||||
and
|
||||
aTop signal
|
||||
code_03f6: ret
|
||||
|
||||
View::dragDoit:
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_20, $2
|
||||
bnot
|
||||
pushi $dc ; 220, posn
|
||||
push2
|
||||
push1
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pTos x
|
||||
pToa left
|
||||
sub
|
||||
add
|
||||
push
|
||||
push2
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pTos y
|
||||
pToa top
|
||||
sub
|
||||
add
|
||||
push
|
||||
self $8
|
||||
bnot
|
||||
push1
|
||||
pushSelf
|
||||
callk kernel_32, $2
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,212 @@
|
|||
Prop::dispose:
|
||||
pushi $c9 ; 201, setScript
|
||||
push1
|
||||
push0
|
||||
pushi $105 ; 261, setCycle
|
||||
push1
|
||||
push0
|
||||
self $c
|
||||
bnot
|
||||
pToa timer
|
||||
bnt code_00c8
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_00c8: pToa scaler
|
||||
bnt code_00d7
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop scaler
|
||||
code_00d7: pushi $95 ; 149, dispose
|
||||
push0
|
||||
super View, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Prop::doit:
|
||||
link $1
|
||||
pToa script
|
||||
bnt code_00ec
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_00ec: pTos signal
|
||||
ldi $1
|
||||
and
|
||||
bnt code_0107
|
||||
pToa cycler
|
||||
bnt code_00fd
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_00fd: pToa scaler
|
||||
bnt code_0107
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_0107: pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super View, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Prop::handleEvent:
|
||||
pushi $c8 ; 200, handleEvent
|
||||
push1
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
super View, $6
|
||||
bnot
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Prop::setCycle:
|
||||
pToa cycler
|
||||
bnt code_012f
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_012f: lap param[$1]
|
||||
bnt code_015e
|
||||
pushi $1007 ; 4103, -info-
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $8000 ; -32768
|
||||
and
|
||||
bnt code_014c
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
jmp code_014e
|
||||
|
||||
code_014c: lap param[$1]
|
||||
code_014e: aTop cycler
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
pushSelf
|
||||
&rest $2
|
||||
pToa cycler
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0162
|
||||
|
||||
code_015e: ldi $0
|
||||
aTop cycler
|
||||
code_0162: ret
|
||||
|
||||
Prop::setLoop:
|
||||
link $1
|
||||
pToa loop
|
||||
sat temp[$0]
|
||||
pushi $195 ; 405, setLoop
|
||||
push0
|
||||
&rest $1
|
||||
super View, $4
|
||||
bnot
|
||||
pToa cycler
|
||||
bnt code_018f
|
||||
lst temp[$0]
|
||||
pToa loop
|
||||
ne?
|
||||
bnt code_018f
|
||||
pushi $15e ; 350, clientLastCel
|
||||
push1
|
||||
pushi $161 ; 353, lastCel
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
push
|
||||
pToa cycler
|
||||
send $6
|
||||
bnot
|
||||
code_018f: ret
|
||||
|
||||
Prop::cue:
|
||||
pToa script
|
||||
bnt code_019b
|
||||
pushi $c7 ; 199, cue
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_019b: ret
|
||||
|
||||
Prop::setScript:
|
||||
pToa script
|
||||
bnt code_01a7
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_01a7: lap param[$1]
|
||||
bnt code_01b5
|
||||
pushi $94 ; 148, init
|
||||
push1
|
||||
pushSelf
|
||||
&rest $2
|
||||
send $6
|
||||
bnot
|
||||
code_01b5: ret
|
||||
|
||||
Prop::motionCue:
|
||||
pToa cycler
|
||||
bnt code_01cc
|
||||
pushi $154 ; 340, completed
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
bnt code_01cc
|
||||
pushi $159 ; 345, motionCue
|
||||
push0
|
||||
pToa cycler
|
||||
send $4
|
||||
bnot
|
||||
code_01cc: ret
|
||||
|
||||
Prop::checkDetail:
|
||||
pToa detailLevel
|
||||
not
|
||||
bnt code_01d4
|
||||
jmp code_01fb
|
||||
|
||||
code_01d4: lap param[$0]
|
||||
bnt code_01dc
|
||||
lap param[$1]
|
||||
jmp code_01e5
|
||||
|
||||
code_01dc: pushi $19e ; 414, detailLevel
|
||||
push0
|
||||
lag global[$2]
|
||||
send $4
|
||||
bnot
|
||||
code_01e5: push
|
||||
pToa detailLevel
|
||||
lt?
|
||||
bnt code_01f4
|
||||
pTos signal
|
||||
ldi $fe ; 254, strIndex
|
||||
and
|
||||
aTop signal
|
||||
jmp code_01fb
|
||||
|
||||
code_01f4: pTos signal
|
||||
ldi $1
|
||||
or
|
||||
aTop signal
|
||||
code_01fb: ret
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,192 @@
|
|||
Ego::init:
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
super Act, $4
|
||||
bnot
|
||||
pToa cycler
|
||||
not
|
||||
bnt code_00cb
|
||||
pushi $105 ; 261, setCycle
|
||||
push1
|
||||
class Walk
|
||||
push
|
||||
self $6
|
||||
bnot
|
||||
code_00cb: pTos state
|
||||
ldi $1
|
||||
or
|
||||
aTop state
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushSelf
|
||||
lag global[$29]
|
||||
send $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
Ego::dispose:
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
lag global[$29]
|
||||
send $6
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Act, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Ego::doit:
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super Act, $4
|
||||
bnot
|
||||
pTos x
|
||||
ldi $0
|
||||
le?
|
||||
bnt code_0101
|
||||
ldi $4 ; scaleX
|
||||
jmp code_012d
|
||||
|
||||
code_0101: pTos y
|
||||
pushi $1ae ; 430, horizon
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
le?
|
||||
bnt code_0113
|
||||
ldi $1
|
||||
jmp code_012d
|
||||
|
||||
code_0113: pTos x
|
||||
ldi $13f ; 319, putString
|
||||
ge?
|
||||
bnt code_011f
|
||||
ldi $2
|
||||
jmp code_012d
|
||||
|
||||
code_011f: pTos y
|
||||
ldi $bd ; 189, cycles
|
||||
ge?
|
||||
bnt code_012b
|
||||
ldi $3 ; z
|
||||
jmp code_012d
|
||||
|
||||
code_012b: ldi $0
|
||||
code_012d: aTop edgeHit
|
||||
ret
|
||||
|
||||
Ego::handleEvent:
|
||||
link $1
|
||||
pushi $c8 ; 200, handleEvent
|
||||
push1
|
||||
lsp param[$1]
|
||||
super Act, $6
|
||||
bnot
|
||||
bnt code_0143
|
||||
ldi $0
|
||||
jmp code_01dd
|
||||
|
||||
code_0143: pushi $2b ; 43, '+', type
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $4000 ; 16384
|
||||
and
|
||||
bnt code_0193
|
||||
pushi $2b ; 43, '+', type
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $1000 ; 4096, -objID-
|
||||
and
|
||||
bnt code_01dd
|
||||
pushi $15c ; 348, setMotion
|
||||
pushi $3 ; z
|
||||
class MoveTo
|
||||
push
|
||||
push1
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
self $a
|
||||
bnot
|
||||
pushi $1b0 ; 432, prevDir
|
||||
push1
|
||||
push0
|
||||
lag global[$e]
|
||||
send $6
|
||||
bnot
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push1
|
||||
push1
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
jmp code_01dd
|
||||
|
||||
code_0193: pushi $2b ; 43, '+', type
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $10 ; 16, cel
|
||||
and
|
||||
bnt code_01dd
|
||||
pushi $31 ; 49, '1', message
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
pushi $1b0 ; 432, prevDir
|
||||
push0
|
||||
lag global[$e]
|
||||
send $4
|
||||
bnot
|
||||
eq?
|
||||
bnt code_01c0
|
||||
pToa mover
|
||||
bnt code_01c0
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_01c0: pushi $1b0 ; 432, prevDir
|
||||
push1
|
||||
lst temp[$0]
|
||||
lag global[$e]
|
||||
send $6
|
||||
bnot
|
||||
pushi $1aa ; 426, setDirection
|
||||
push1
|
||||
lst temp[$0]
|
||||
self $6
|
||||
bnot
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push1
|
||||
push1
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
code_01dd: pushi $50 ; 80, 'P', claimed
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,147 @@
|
|||
Scaler::init:
|
||||
lap param[$0]
|
||||
bnt code_0054
|
||||
lap param[$1]
|
||||
aTop client
|
||||
lap param[$2]
|
||||
aTop frontSize
|
||||
lap param[$3]
|
||||
aTop backSize
|
||||
lap param[$4]
|
||||
aTop frontY
|
||||
lap param[$5]
|
||||
aTop backY
|
||||
code_0054: pTos frontSize
|
||||
pToa backSize
|
||||
sub
|
||||
aTop slopeNum
|
||||
pTos frontY
|
||||
pToa backY
|
||||
sub
|
||||
aTop slopeDen
|
||||
not
|
||||
bnt code_0074
|
||||
push1
|
||||
lofsa string_0030 ; "<Scaler> frontY cannot be equal to backY"
|
||||
push
|
||||
calle export60029_0, $2
|
||||
bnot
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
code_0074: pTos backSize
|
||||
pTos slopeNum
|
||||
pToa backY
|
||||
mul
|
||||
push
|
||||
pToa slopeDen
|
||||
div
|
||||
sub
|
||||
aTop const
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Scaler::doit:
|
||||
link $5
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$0]
|
||||
lap param[$0]
|
||||
bnt code_009a
|
||||
lap param[$1]
|
||||
code_009a: bt code_00a1
|
||||
lst temp[$0]
|
||||
pToa yLast
|
||||
ne?
|
||||
code_00a1: bnt code_012f
|
||||
lst temp[$0]
|
||||
pToa backY
|
||||
lt?
|
||||
bnt code_00b1
|
||||
pToa backSize
|
||||
sat temp[$1]
|
||||
jmp code_00cd
|
||||
|
||||
code_00b1: lst temp[$0]
|
||||
pToa frontY
|
||||
gt?
|
||||
bnt code_00be
|
||||
pToa frontSize
|
||||
sat temp[$1]
|
||||
jmp code_00cd
|
||||
|
||||
code_00be: pTos slopeNum
|
||||
lat temp[$0]
|
||||
mul
|
||||
push
|
||||
pToa slopeDen
|
||||
div
|
||||
push
|
||||
pToa const
|
||||
add
|
||||
sat temp[$1]
|
||||
code_00cd: lat temp[$0]
|
||||
aTop yLast
|
||||
lst temp[$1]
|
||||
pushi $152 ; 338, xScaleAdj
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
mul
|
||||
push
|
||||
ldi $64 ; 100, 'd', moveDone
|
||||
div
|
||||
sat temp[$2]
|
||||
lst temp[$1]
|
||||
pushi $153 ; 339, yScaleAdj
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
mul
|
||||
push
|
||||
ldi $64 ; 100, 'd', moveDone
|
||||
div
|
||||
sat temp[$3]
|
||||
pushi $4 ; scaleX
|
||||
push1
|
||||
push2
|
||||
push1
|
||||
lst temp[$2]
|
||||
calle export60025_3, $4
|
||||
bnot
|
||||
push
|
||||
pushi $5 ; scaleY
|
||||
push1
|
||||
push2
|
||||
push1
|
||||
lst temp[$3]
|
||||
calle export60025_3, $4
|
||||
bnot
|
||||
push
|
||||
pToa client
|
||||
send $c
|
||||
bnot
|
||||
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_012f: ret
|
||||
|
||||
Loading…
Reference in New Issue