threememories
/
RealmFiles
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Upload files to "Script"

This commit is contained in:
threememories 2026-04-27 01:33:32 +00:00
parent 2bc95b06d8
commit 1b61d51894
5 changed files with 1474 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

184
Script/Script60083.txt Normal file
View File

@ -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

193
Script/Script60084.txt Normal file
View File

@ -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

722
Script/Script60085.txt Normal file
View File

@ -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

169
Script/Script60087.txt Normal file
View File

@ -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

206
Script/Script60088.txt Normal file
View File

@ -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