Upload files to "Script"
This commit is contained in:
parent
2bc95b06d8
commit
1b61d51894
|
|
@ -0,0 +1,184 @@
|
|||
PChase::init:
|
||||
lap param[$0]
|
||||
bnt code_00b8
|
||||
push
|
||||
ldi $1
|
||||
ge?
|
||||
bnt code_00a1
|
||||
lap param[$1]
|
||||
aTop client
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_00a1
|
||||
lap param[$2]
|
||||
aTop who
|
||||
push1
|
||||
push0
|
||||
pToa who
|
||||
send $4
|
||||
bnot
|
||||
aTop targetX
|
||||
push2
|
||||
push0
|
||||
pToa who
|
||||
send $4
|
||||
bnot
|
||||
aTop targetY
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
ge?
|
||||
bnt code_00a1
|
||||
lap param[$3]
|
||||
aTop distance
|
||||
lsp param[$0]
|
||||
ldi $4 ; scaleX
|
||||
ge?
|
||||
bnt code_00a1
|
||||
lap param[$4]
|
||||
aTop caller
|
||||
code_00a1: pushi $94 ; 148, init
|
||||
pushi $6 ; maxScale
|
||||
pTos client
|
||||
pTos targetX
|
||||
pTos targetY
|
||||
pTos caller
|
||||
push1
|
||||
pTos obstacles
|
||||
super PolyPath, $10
|
||||
bnot
|
||||
jmp code_00c0
|
||||
|
||||
code_00b8: pushi $94 ; 148, init
|
||||
push0
|
||||
super PolyPath, $4
|
||||
bnot
|
||||
code_00c0: ret
|
||||
|
||||
PChase::doit:
|
||||
link $1
|
||||
pushi $165 ; 357, distanceTo
|
||||
push1
|
||||
pTos who
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
pToa distance
|
||||
le?
|
||||
bnt code_00de
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_012c
|
||||
|
||||
code_00de: pushi $4 ; scaleX
|
||||
pTos targetX
|
||||
pTos targetY
|
||||
push1
|
||||
push0
|
||||
pToa who
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
push0
|
||||
pToa who
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_64, $8
|
||||
bnot
|
||||
push
|
||||
pToa distance
|
||||
gt?
|
||||
bnt code_0125
|
||||
pToa points
|
||||
bnt code_0109
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_0109: ldi $0
|
||||
aTop points
|
||||
ldi $2
|
||||
aTop value
|
||||
pushi $94 ; 148, init
|
||||
push2
|
||||
pTos client
|
||||
pTos who
|
||||
self $8
|
||||
bnot
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super PolyPath, $4
|
||||
bnot
|
||||
jmp code_012c
|
||||
|
||||
code_0125: pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super PolyPath, $4
|
||||
bnot
|
||||
code_012c: ret
|
||||
|
||||
PChase::moveDone:
|
||||
link $1
|
||||
pushi $165 ; 357, distanceTo
|
||||
push1
|
||||
pTos who
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
pToa distance
|
||||
le?
|
||||
bnt code_014b
|
||||
pushi $64 ; 100, 'd', moveDone
|
||||
push0
|
||||
super PolyPath, $4
|
||||
bnot
|
||||
jmp code_018d
|
||||
|
||||
code_014b: pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
pTos value
|
||||
pToa points
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
ldi $7777 ; 30583
|
||||
eq?
|
||||
bnt code_0182
|
||||
pToa points
|
||||
bnt code_0167
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_0167: ldi $0
|
||||
aTop points
|
||||
ldi $2
|
||||
aTop value
|
||||
pushi $94 ; 148, init
|
||||
push2
|
||||
pTos client
|
||||
pTos who
|
||||
self $8
|
||||
bnot
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
jmp code_018d
|
||||
|
||||
code_0182: pushi $157 ; 343, setTarget
|
||||
push0
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
self $8
|
||||
bnot
|
||||
code_018d: ret
|
||||
|
||||
|
|
@ -0,0 +1,193 @@
|
|||
PFollow::init:
|
||||
link $1
|
||||
lap param[$0]
|
||||
bnt code_00c4
|
||||
push
|
||||
ldi $4 ; scaleX
|
||||
ge?
|
||||
bnt code_0070
|
||||
lap param[$4]
|
||||
jmp code_0079
|
||||
|
||||
code_0070: pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lag global[$3]
|
||||
send $4
|
||||
bnot
|
||||
code_0079: sat temp[$0]
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
ge?
|
||||
bnt code_00ae
|
||||
lap param[$1]
|
||||
aTop client
|
||||
lsp param[$0]
|
||||
ldi $2
|
||||
ge?
|
||||
bnt code_00ae
|
||||
lap param[$2]
|
||||
aTop who
|
||||
push1
|
||||
push0
|
||||
pToa who
|
||||
send $4
|
||||
bnot
|
||||
aTop targetX
|
||||
push2
|
||||
push0
|
||||
pToa who
|
||||
send $4
|
||||
bnot
|
||||
aTop targetY
|
||||
lsp param[$0]
|
||||
ldi $3 ; z
|
||||
ge?
|
||||
bnt code_00ae
|
||||
lap param[$3]
|
||||
aTop distance
|
||||
code_00ae: pushi $94 ; 148, init
|
||||
pushi $6 ; maxScale
|
||||
pTos client
|
||||
pTos targetX
|
||||
pTos targetY
|
||||
push0
|
||||
push1
|
||||
lst temp[$0]
|
||||
super PolyPath, $10
|
||||
bnot
|
||||
jmp code_00cc
|
||||
|
||||
code_00c4: pushi $94 ; 148, init
|
||||
push0
|
||||
super PolyPath, $4
|
||||
bnot
|
||||
code_00cc: ret
|
||||
|
||||
PFollow::doit:
|
||||
link $2
|
||||
pushi $4 ; scaleX
|
||||
pTos targetX
|
||||
pTos targetY
|
||||
push1
|
||||
push0
|
||||
pToa who
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
push0
|
||||
pToa who
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_64, $8
|
||||
bnot
|
||||
push
|
||||
pToa distance
|
||||
gt?
|
||||
bnt code_0112
|
||||
pToa points
|
||||
bnt code_00fa
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_00fa: ldi $0
|
||||
aTop points
|
||||
ldi $2
|
||||
aTop value
|
||||
pushi $94 ; 148, init
|
||||
push2
|
||||
pTos client
|
||||
pTos who
|
||||
self $8
|
||||
bnot
|
||||
ldi $0
|
||||
jmp code_0187
|
||||
|
||||
code_0112: pushi $165 ; 357, distanceTo
|
||||
push1
|
||||
pTos who
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
pToa distance
|
||||
le?
|
||||
bnt code_0180
|
||||
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
|
||||
sat temp[$1]
|
||||
pushi $43 ; 67, 'C', heading
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$1]
|
||||
ne?
|
||||
bnt code_0166
|
||||
pushi $15a ; 346, setHeading
|
||||
push1
|
||||
lst temp[$1]
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
code_0166: push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop xLast
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
aTop yLast
|
||||
lag global[$40]
|
||||
aTop b_moveCnt
|
||||
ldi $0
|
||||
jmp code_0187
|
||||
|
||||
code_0180: pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
super PolyPath, $4
|
||||
bnot
|
||||
code_0187: ret
|
||||
|
||||
PFollow::moveDone:
|
||||
pushi $157 ; 343, setTarget
|
||||
push0
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
self $8
|
||||
bnot
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,722 @@
|
|||
PAvoider::init:
|
||||
lsp param[$0]
|
||||
ldi $1
|
||||
ge?
|
||||
bnt code_0043
|
||||
lap param[$1]
|
||||
aTop client
|
||||
code_0043: ret
|
||||
|
||||
PAvoider::dispose:
|
||||
pToa oldBlockerMover
|
||||
bnt code_004f
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
code_004f: pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Code, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
PAvoider::doit:
|
||||
link $18
|
||||
pushi $44 ; 68, 'D', mover
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$9]
|
||||
pToa oldBlocker
|
||||
bnt code_00d4
|
||||
pushi $165 ; 357, distanceTo
|
||||
push1
|
||||
push
|
||||
pToa client
|
||||
send $6
|
||||
bnot
|
||||
push
|
||||
ldi $14 ; 20, nsRight
|
||||
ge?
|
||||
bnt code_00d4
|
||||
pushi $197 ; 407, ignoreActors
|
||||
push1
|
||||
push0
|
||||
pToa oldBlocker
|
||||
send $6
|
||||
bnot
|
||||
pToa oldBlockerMover
|
||||
bnt code_008f
|
||||
pushi $44 ; 68, 'D', mover
|
||||
push1
|
||||
push
|
||||
pToa oldBlocker
|
||||
send $6
|
||||
bnot
|
||||
code_008f: ldi $9d ; 157, eachElementDo
|
||||
aTop oldMoverX
|
||||
aTop oldMoverY
|
||||
ldi $0
|
||||
aTop oldBlockerMover
|
||||
aTop oldBlocker
|
||||
lat temp[$9]
|
||||
bnt code_00d4
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
bnt code_00d4
|
||||
pushi $a4 ; 164, isEmpty
|
||||
push0
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
bnt code_00d4
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
pushi $16d ; 365, obstacles
|
||||
push1
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $6
|
||||
bnot
|
||||
code_00d4: pushi $44 ; 68, 'D', mover
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$9]
|
||||
bnt code_0476
|
||||
pushi $45 ; 69, 'E', doit
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$4]
|
||||
bnt code_0476
|
||||
pushi $154 ; 340, completed
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bnt code_0476
|
||||
pushi $97 ; 151, isKindOf
|
||||
push1
|
||||
class PolyPath
|
||||
push
|
||||
lat temp[$9]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_0476
|
||||
pushi $99 ; 153, respondsTo
|
||||
push1
|
||||
pushi $44 ; 68, 'D', mover
|
||||
lat temp[$4]
|
||||
send $6
|
||||
bnot
|
||||
bnt code_012e
|
||||
pushi $44 ; 68, 'D', mover
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $4
|
||||
bnot
|
||||
aTop oldBlockerMover
|
||||
pToa oldBlockerMover
|
||||
bnt code_0132
|
||||
pushi $44 ; 68, 'D', mover
|
||||
push1
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $6
|
||||
bnot
|
||||
jmp code_0132
|
||||
|
||||
code_012e: ldi $0
|
||||
aTop oldBlockerMover
|
||||
code_0132: pushi $173 ; 371, finalX
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
aTop oldMoverX
|
||||
pushi $174 ; 372, finalY
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
aTop oldMoverY
|
||||
lat temp[$4]
|
||||
aTop oldBlocker
|
||||
pushi $197 ; 407, ignoreActors
|
||||
push1
|
||||
push1
|
||||
send $6
|
||||
bnot
|
||||
pushi $1c ; 28, brLeft
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
pushi $3f ; 63, '?', xStep
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
mul
|
||||
push
|
||||
push2
|
||||
pushi $3 ; z
|
||||
pushi $e ; 14, view
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
push0
|
||||
callk kernel_28, $6
|
||||
bnot
|
||||
push
|
||||
pushi $3 ; z
|
||||
pushi $e ; 14, view
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push0
|
||||
push0
|
||||
callk kernel_28, $6
|
||||
bnot
|
||||
push
|
||||
calle export60025_3, $4
|
||||
bnot
|
||||
push
|
||||
ldi $2
|
||||
div
|
||||
add
|
||||
sat temp[$2]
|
||||
sub
|
||||
sat temp[$5]
|
||||
push2
|
||||
pushi $40 ; 64, '@', yStep
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $4
|
||||
bnot
|
||||
mul
|
||||
sat temp[$3]
|
||||
pushi $1e ; 30, brRight
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$2]
|
||||
add
|
||||
sat temp[$7]
|
||||
push2
|
||||
push0
|
||||
lat temp[$4]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$3]
|
||||
add
|
||||
push
|
||||
ldi $2
|
||||
add
|
||||
sat temp[$8]
|
||||
push
|
||||
lat temp[$6]
|
||||
sub
|
||||
push
|
||||
ldi $3 ; z
|
||||
le?
|
||||
bnt code_01e1
|
||||
lst temp[$6]
|
||||
ldi $2
|
||||
sub
|
||||
sat temp[$6]
|
||||
lst temp[$8]
|
||||
ldi $2
|
||||
add
|
||||
sat temp[$8]
|
||||
code_01e1: pushi $173 ; 371, finalX
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sub
|
||||
sat temp[$0]
|
||||
pushi $174 ; 372, finalY
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sub
|
||||
sat temp[$1]
|
||||
pushi $43 ; 67, 'C', heading
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$17]
|
||||
pushi $55 ; 85, 'U', button
|
||||
le?
|
||||
bnt code_0224
|
||||
pprev
|
||||
ldi $5f ; 95, '_', min
|
||||
le?
|
||||
bnt code_0224
|
||||
ldi $0
|
||||
sat temp[$e]
|
||||
jmp code_024a
|
||||
|
||||
code_0224: pushi $109 ; 265, timeLeft
|
||||
lat temp[$17]
|
||||
le?
|
||||
bnt code_0239
|
||||
pprev
|
||||
ldi $113 ; 275, mul
|
||||
le?
|
||||
bnt code_0239
|
||||
ldi $1
|
||||
sat temp[$e]
|
||||
jmp code_024a
|
||||
|
||||
code_0239: lst temp[$1]
|
||||
ldi $0
|
||||
ge?
|
||||
bnt code_0246
|
||||
ldi $2
|
||||
sat temp[$e]
|
||||
jmp code_024a
|
||||
|
||||
code_0246: ldi $3 ; z
|
||||
sat temp[$e]
|
||||
code_024a: lst temp[$e]
|
||||
dup
|
||||
ldi $3 ; z
|
||||
eq?
|
||||
bnt code_0298
|
||||
pushi $94 ; 148, init
|
||||
pushi $a ; 10, inTop
|
||||
lst temp[$5]
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lst temp[$5]
|
||||
lst temp[$6]
|
||||
lst temp[$7]
|
||||
lst temp[$6]
|
||||
lst temp[$7]
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $7777 ; 30583
|
||||
push0
|
||||
pushi $2b ; 43, '+', type
|
||||
push1
|
||||
push2
|
||||
pushi $20 ; 32, ' ', name
|
||||
push1
|
||||
lofsa string_0028 ; "isBlockedPoly"
|
||||
push
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Polygon
|
||||
send $4
|
||||
bnot
|
||||
send $28
|
||||
bnot
|
||||
sat temp[$11]
|
||||
jmp code_0378
|
||||
|
||||
code_0298: dup
|
||||
ldi $2
|
||||
eq?
|
||||
bnt code_02e4
|
||||
pushi $94 ; 148, init
|
||||
pushi $a ; 10, inTop
|
||||
lst temp[$7]
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lst temp[$7]
|
||||
lst temp[$8]
|
||||
lst temp[$5]
|
||||
lst temp[$8]
|
||||
lst temp[$5]
|
||||
push2
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $7777 ; 30583
|
||||
push0
|
||||
pushi $2b ; 43, '+', type
|
||||
push1
|
||||
push2
|
||||
pushi $20 ; 32, ' ', name
|
||||
push1
|
||||
lofsa string_0028 ; "isBlockedPoly"
|
||||
push
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Polygon
|
||||
send $4
|
||||
bnot
|
||||
send $28
|
||||
bnot
|
||||
sat temp[$11]
|
||||
jmp code_0378
|
||||
|
||||
code_02e4: dup
|
||||
ldi $0
|
||||
eq?
|
||||
bnt code_032f
|
||||
pushi $94 ; 148, init
|
||||
pushi $a ; 10, inTop
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lst temp[$6]
|
||||
lst temp[$7]
|
||||
lst temp[$6]
|
||||
lst temp[$7]
|
||||
lst temp[$8]
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lst temp[$8]
|
||||
pushi $7777 ; 30583
|
||||
push0
|
||||
pushi $2b ; 43, '+', type
|
||||
push1
|
||||
push2
|
||||
pushi $20 ; 32, ' ', name
|
||||
push1
|
||||
lofsa string_0028 ; "isBlockedPoly"
|
||||
push
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Polygon
|
||||
send $4
|
||||
bnot
|
||||
send $28
|
||||
bnot
|
||||
sat temp[$11]
|
||||
jmp code_0378
|
||||
|
||||
code_032f: dup
|
||||
ldi $1
|
||||
eq?
|
||||
bnt code_0378
|
||||
pushi $94 ; 148, init
|
||||
pushi $a ; 10, inTop
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lst temp[$8]
|
||||
lst temp[$5]
|
||||
lst temp[$8]
|
||||
lst temp[$5]
|
||||
lst temp[$6]
|
||||
push1
|
||||
push0
|
||||
pToa client
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lst temp[$6]
|
||||
pushi $7777 ; 30583
|
||||
push0
|
||||
pushi $2b ; 43, '+', type
|
||||
push1
|
||||
push2
|
||||
pushi $20 ; 32, ' ', name
|
||||
push1
|
||||
lofsa string_0028 ; "isBlockedPoly"
|
||||
push
|
||||
pushi $9a ; 154, yourself
|
||||
push0
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Polygon
|
||||
send $4
|
||||
bnot
|
||||
send $28
|
||||
bnot
|
||||
sat temp[$11]
|
||||
code_0378: toss
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
not
|
||||
bnt code_0398
|
||||
pushi $16d ; 365, obstacles
|
||||
push1
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class List
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$9]
|
||||
send $6
|
||||
bnot
|
||||
code_0398: pushi $3 ; z
|
||||
pushi $5b ; 91, '[', points
|
||||
push0
|
||||
lat temp[$11]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $24 ; 36, '$', elements
|
||||
push0
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_102, $6
|
||||
bnot
|
||||
sat temp[$10]
|
||||
bnt code_03f1
|
||||
pushi $5b ; 91, '[', points
|
||||
push1
|
||||
push
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push1
|
||||
push1
|
||||
push
|
||||
call code_0476, $2
|
||||
bnot
|
||||
push
|
||||
pushi $2b ; 43, '+', type
|
||||
push1
|
||||
push2
|
||||
pushi $16e ; 366, dynamic
|
||||
push1
|
||||
push1
|
||||
pushi $8d ; 141, new
|
||||
push0
|
||||
class Polygon
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$f]
|
||||
send $18
|
||||
bnot
|
||||
code_03f1: pushi $9f ; 159, add
|
||||
push1
|
||||
lst temp[$f]
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
pushi $51 ; 81, 'Q', value
|
||||
push1
|
||||
push2
|
||||
pushi $94 ; 148, init
|
||||
pushi $3 ; z
|
||||
pTos client
|
||||
pushi $173 ; 371, finalX
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
pushi $174 ; 372, finalY
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
lat temp[$9]
|
||||
send $10
|
||||
bnot
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
lst temp[$f]
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
lst temp[$11]
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
send $6
|
||||
bnot
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
bnt code_0464
|
||||
push1
|
||||
pushi $16d ; 365, obstacles
|
||||
push0
|
||||
lat temp[$9]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
call code_049e, $2
|
||||
bnot
|
||||
code_0464: pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$11]
|
||||
send $4
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
lat temp[$f]
|
||||
send $4
|
||||
bnot
|
||||
code_0476: ret
|
||||
|
||||
link $5
|
||||
ldi $9c ; 156, handleError
|
||||
sat temp[$3]
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_0481: lst temp[$3]
|
||||
ldi $7777 ; 30583
|
||||
ne?
|
||||
bnt code_049c
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push2
|
||||
lat temp[$0]
|
||||
mul
|
||||
push
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$3]
|
||||
+at temp[$0]
|
||||
jmp code_0481
|
||||
|
||||
code_049c: -at temp[$0]
|
||||
code_049e: ret
|
||||
|
||||
link $4
|
||||
pushi $5a ; 90, 'Z', size
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$3]
|
||||
ldi $0
|
||||
sat temp[$0]
|
||||
code_04af: lst temp[$0]
|
||||
lat temp[$3]
|
||||
lt?
|
||||
bnt code_04e2
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
lst temp[$0]
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$1]
|
||||
pushi $2b ; 43, '+', type
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
sat temp[$2]
|
||||
push
|
||||
ldi $10 ; 16, cel
|
||||
ge?
|
||||
bnt code_04de
|
||||
pushi $2b ; 43, '+', type
|
||||
push1
|
||||
lst temp[$2]
|
||||
ldi $10 ; 16, cel
|
||||
sub
|
||||
push
|
||||
lat temp[$1]
|
||||
send $6
|
||||
bnot
|
||||
code_04de: +at temp[$0]
|
||||
jmp code_04af
|
||||
|
||||
code_04e2: ret
|
||||
|
||||
|
|
@ -0,0 +1,169 @@
|
|||
Flags::init:
|
||||
pToa size
|
||||
bnt code_0050
|
||||
pToa array
|
||||
not
|
||||
bnt code_0050
|
||||
pushi $1be ; 446, setSize
|
||||
push1
|
||||
pTos size
|
||||
self $6
|
||||
bnot
|
||||
code_0050: ret
|
||||
|
||||
Flags::setSize:
|
||||
link $2
|
||||
lsp param[$1]
|
||||
ldi $10 ; 16, cel
|
||||
div
|
||||
sat temp[$0]
|
||||
lsp param[$1]
|
||||
ldi $10 ; 16, cel
|
||||
mod
|
||||
bnt code_0063
|
||||
+at temp[$0]
|
||||
code_0063: lst temp[$0]
|
||||
ldi $10 ; 16, cel
|
||||
mul
|
||||
aTop size
|
||||
pushi $8d ; 141, new
|
||||
push1
|
||||
lst temp[$0]
|
||||
ldi $2
|
||||
mul
|
||||
push
|
||||
class IntArray
|
||||
send $6
|
||||
bnot
|
||||
aTop array
|
||||
pushi $d6 ; 214, fill
|
||||
push2
|
||||
push0
|
||||
lst temp[$0]
|
||||
ldi $2
|
||||
mul
|
||||
push
|
||||
pToa array
|
||||
send $8
|
||||
bnot
|
||||
ret
|
||||
|
||||
Flags::dispose:
|
||||
pToa array
|
||||
bnt code_009b
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
send $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop array
|
||||
code_009b: pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Flags::set:
|
||||
link $2
|
||||
code_00a6: lap param[$0]
|
||||
bnt code_00de
|
||||
-ap param[$0]
|
||||
lspi param[$1]
|
||||
ldi $10 ; 16, cel
|
||||
div
|
||||
push
|
||||
ldi $2
|
||||
mul
|
||||
sat temp[$1]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push
|
||||
pToa array
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
pushi $8000 ; -32768
|
||||
lap param[$0]
|
||||
lspi param[$1]
|
||||
ldi $10 ; 16, cel
|
||||
mod
|
||||
shr
|
||||
or
|
||||
sat temp[$0]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lst temp[$1]
|
||||
push
|
||||
pToa array
|
||||
send $8
|
||||
bnot
|
||||
jmp code_00a6
|
||||
|
||||
code_00de: ret
|
||||
|
||||
Flags::clear:
|
||||
link $2
|
||||
code_00e1: lap param[$0]
|
||||
bnt code_011a
|
||||
-ap param[$0]
|
||||
lspi param[$1]
|
||||
ldi $10 ; 16, cel
|
||||
div
|
||||
push
|
||||
ldi $2
|
||||
mul
|
||||
sat temp[$1]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push
|
||||
pToa array
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
pushi $8000 ; -32768
|
||||
lap param[$0]
|
||||
lspi param[$1]
|
||||
ldi $10 ; 16, cel
|
||||
mod
|
||||
shr
|
||||
bnot
|
||||
and
|
||||
sat temp[$0]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push2
|
||||
lst temp[$1]
|
||||
push
|
||||
pToa array
|
||||
send $8
|
||||
bnot
|
||||
jmp code_00e1
|
||||
|
||||
code_011a: ret
|
||||
|
||||
Flags::test:
|
||||
link $2
|
||||
lsp param[$1]
|
||||
ldi $10 ; 16, cel
|
||||
div
|
||||
push
|
||||
ldi $2
|
||||
mul
|
||||
sat temp[$1]
|
||||
pushi $4b ; 75, 'K', at
|
||||
push1
|
||||
push
|
||||
pToa array
|
||||
send $6
|
||||
bnot
|
||||
sat temp[$0]
|
||||
push
|
||||
pushi $8000 ; -32768
|
||||
lsp param[$1]
|
||||
ldi $10 ; 16, cel
|
||||
mod
|
||||
shr
|
||||
and
|
||||
ret
|
||||
|
||||
|
|
@ -0,0 +1,206 @@
|
|||
WinDialogSet::add:
|
||||
link $3
|
||||
pushi $99 ; 153, respondsTo
|
||||
push1
|
||||
pushi $c8 ; 200, handleEvent
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
not
|
||||
bnt code_00a6
|
||||
push1
|
||||
lofsa string_005c ; "Found it."
|
||||
push
|
||||
callk kernel_132, $2
|
||||
bnot
|
||||
code_00a6: pushi $9f ; 159, add
|
||||
push1
|
||||
lsp param[$1]
|
||||
&rest $2
|
||||
super Set, $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
WinDialogHandler::init:
|
||||
pToa pWindow
|
||||
bnt code_00c3
|
||||
push2
|
||||
pushi $2c ; 44, ',', window
|
||||
push
|
||||
callk kernel_118, $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop pWindow
|
||||
code_00c3: push2
|
||||
pushi $2b ; 43, '+', type
|
||||
push2
|
||||
pushi $9 ; inLeft
|
||||
lsp param[$1]
|
||||
callk kernel_91, $4
|
||||
bnot
|
||||
push
|
||||
callk kernel_118, $4
|
||||
bnot
|
||||
aTop pWindow
|
||||
pushi $9f ; 159, add
|
||||
push1
|
||||
pushSelf
|
||||
class WinDialogSet
|
||||
send $6
|
||||
bnot
|
||||
ret
|
||||
|
||||
WinDialogHandler::dispose:
|
||||
pToa pWindow
|
||||
bnt code_00f1
|
||||
push2
|
||||
pushi $2c ; 44, ',', window
|
||||
push
|
||||
callk kernel_118, $4
|
||||
bnot
|
||||
ldi $0
|
||||
aTop pWindow
|
||||
code_00f1: pushi $58 ; 88, 'X', delete
|
||||
push1
|
||||
pushSelf
|
||||
class WinDialogSet
|
||||
send $6
|
||||
bnot
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
&rest $1
|
||||
super Obj, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
WinDialogHandler::handleEvent:
|
||||
ldi $0
|
||||
ret
|
||||
|
||||
WinDialogHandler::disable:
|
||||
push2
|
||||
pushi $32 ; 50, '2', edit
|
||||
pTos pWindow
|
||||
callk kernel_118, $4
|
||||
bnot
|
||||
code_0111: pushi $2b ; 43, '+', type
|
||||
push0
|
||||
pushi $f3 ; 243, nextEvent
|
||||
push1
|
||||
pushi $7fff ; 32767
|
||||
lag global[$e]
|
||||
send $6
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $0
|
||||
ne?
|
||||
bnt code_012b
|
||||
jmp code_0111
|
||||
|
||||
code_012b: ret
|
||||
|
||||
WinDialogHandler::enable:
|
||||
push2
|
||||
pushi $31 ; 49, '1', message
|
||||
pTos pWindow
|
||||
callk kernel_118, $4
|
||||
bnot
|
||||
code_0135: pushi $2b ; 43, '+', type
|
||||
push0
|
||||
pushi $f3 ; 243, nextEvent
|
||||
push1
|
||||
pushi $7fff ; 32767
|
||||
lag global[$e]
|
||||
send $6
|
||||
bnot
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $0
|
||||
ne?
|
||||
bnt code_014f
|
||||
jmp code_0135
|
||||
|
||||
code_014f: ret
|
||||
|
||||
DialogHandler::doit:
|
||||
lap param[$0]
|
||||
bnt code_016b
|
||||
pushi $24e ; 590, handsOff
|
||||
push0
|
||||
lag global[$2]
|
||||
send $4
|
||||
bnot
|
||||
lap param[$1]
|
||||
bnt code_0167
|
||||
ldi $1
|
||||
sag global[$32]
|
||||
jmp code_016b
|
||||
|
||||
code_0167: ldi $0
|
||||
aTop scratch
|
||||
code_016b: ret
|
||||
|
||||
DialogHandler::init:
|
||||
selfID
|
||||
sag global[$13]
|
||||
pushi $94 ; 148, init
|
||||
push0
|
||||
super Set, $4
|
||||
bnot
|
||||
pushi $9f ; 159, add
|
||||
push0
|
||||
self $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
DialogHandler::dispose:
|
||||
ldi $0
|
||||
sag global[$13]
|
||||
pushi $95 ; 149, dispose
|
||||
push0
|
||||
super Set, $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
DialogHandler::handleEvent:
|
||||
link $1
|
||||
pushi $2b ; 43, '+', type
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
push
|
||||
ldi $100 ; 256, strMax
|
||||
and
|
||||
bnt code_01b6
|
||||
pushi $a0 ; 160, firstTrue
|
||||
push2
|
||||
pushi $c8 ; 200, handleEvent
|
||||
lsp param[$1]
|
||||
class WinDialogSet
|
||||
send $8
|
||||
bnot
|
||||
pushi $50 ; 80, 'P', claimed
|
||||
push1
|
||||
push1
|
||||
lap param[$1]
|
||||
send $6
|
||||
bnot
|
||||
jmp code_01c2
|
||||
|
||||
code_01b6: pushi $a0 ; 160, firstTrue
|
||||
push2
|
||||
pushi $1ce ; 462, process
|
||||
lsp param[$1]
|
||||
self $8
|
||||
bnot
|
||||
code_01c2: pushi $50 ; 80, 'P', claimed
|
||||
push0
|
||||
lap param[$1]
|
||||
send $4
|
||||
bnot
|
||||
ret
|
||||
|
||||
Loading…
Reference in New Issue