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:32:52 +00:00
parent c8ed29ef43
commit c8b02b28a6
5 changed files with 434 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

154
Script/Script60050.txt Normal file
View File

@ -0,0 +1,154 @@
DPath::init:
link $1
lsp param[$0]
ldi $1
sub
sat temp[$0]
push
ldi $2
mod
bnt code_00b8
-at temp[$0]
-ap param[$0]
lat temp[$0]
lapi param[$2]
aTop caller
pushi $8000 ; -32768
lat temp[$0]
sapi param[$2]
code_00b8: pToa points
bnt code_00c3
pushi $95 ; 149, dispose
push0
send $4
bnot
code_00c3: pushi $d1 ; 209, newWith
push2
lst temp[$0]
ldi $1
add
push
&rest $3 ; z
lsp param[$2]
class IntArray
send $8
bnot
aTop points
pushi $4b ; 75, 'K', at
push2
lst temp[$0]
ldi $1
sub
push
pushi $8000 ; -32768
pToa points
send $8
bnot
pushi $157 ; 343, setTarget
push0
self $4
bnot
pushi $94 ; 148, init
push0
super MoveTo, $4
bnot
ret
DPath::dispose:
pToa points
bnt code_0104
pushi $95 ; 149, dispose
push0
send $4
bnot
code_0104: pushi $95 ; 149, dispose
push0
super MoveTo, $4
bnot
ret
DPath::setTarget:
pushi $4b ; 75, 'K', at
push1
pTos value
pToa points
send $6
bnot
push
ldi $8000 ; -32768
ne?
bnt code_0139
pushi $4b ; 75, 'K', at
push1
pTos value
pToa points
send $6
bnot
aTop x
pushi $4b ; 75, 'K', at
push1
ipToa value
push
pToa points
send $6
bnot
aTop y
ipToa value
code_0139: ret
DPath::moveDone:
pushi $4b ; 75, 'K', at
push1
pTos value
pToa points
send $6
bnot
push
ldi $8000 ; -32768
eq?
bnt code_0154
pushi $64 ; 100, 'd', moveDone
push0
super MoveTo, $4
bnot
jmp code_015b
code_0154: pushi $94 ; 148, init
push0
self $4
bnot
code_015b: ret
RelDPath::setTarget:
pushi $4b ; 75, 'K', at
push1
pTos value
pToa points
send $6
bnot
push
ldi $8000 ; -32768
ne?
bnt code_018f
pTos x
pushi $4b ; 75, 'K', at
push1
pTos value
pToa points
send $6
bnot
add
aTop x
ipToa value
pTos y
pushi $4b ; 75, 'K', at
push1
pTos value
pToa points
send $6
bnot
add
aTop y
ipToa value
code_018f: ret

140
Script/Script60051.txt Normal file
View File

@ -0,0 +1,140 @@
Orbit::init:
link $4
lsp param[$0]
ldi $1
ge?
bnt code_00b2
lap param[$1]
aTop client
lsp param[$0]
ldi $2
ge?
bnt code_00b2
lap param[$2]
aTop centerObj
lsp param[$0]
ldi $3 ; z
ge?
bnt code_00b2
lap param[$3]
aTop radius
lsp param[$0]
ldi $4 ; scaleX
ge?
bnt code_00b2
lap param[$4]
aTop xTilt
lsp param[$0]
ldi $5 ; scaleY
ge?
bnt code_00b2
lap param[$5]
aTop yTilt
lsp param[$0]
ldi $6 ; maxScale
ge?
bnt code_00b2
lap param[$6]
aTop angleStep
lsp param[$0]
ldi $7 ; priority
ge?
bnt code_00b2
lap param[$7]
aTop winding
lsp param[$0]
ldi $8 ; fixPriority
ge?
bnt code_00b2
lap param[$8]
aTop curAngle
code_00b2: pToa centerObj
bnt code_00c8
push1
push0
send $4
bnot
sat temp[$0]
push2
push0
pToa centerObj
send $4
bnot
sat temp[$1]
jmp code_00d2
code_00c8: ldi $140 ; 320, pHandle
sat temp[$0]
ldi $f0 ; 240, drawSelected
sat temp[$1]
code_00d2: push2
pTos curAngle
pTos radius
callk kernel_66, $4
bnot
sat temp[$2]
push2
pTos yTilt
lag global[$3f]
add
push
push2
pTos curAngle
pTos radius
callk kernel_67, $4
bnot
push
callk kernel_67, $4
bnot
sat temp[$3]
pToa xTilt
bnt code_010f
push2
push
lst temp[$2]
callk kernel_67, $4
bnot
sat temp[$2]
lst temp[$3]
push2
pTos xTilt
push
callk kernel_66, $4
bnot
add
sat temp[$3]
code_010f: lst temp[$0]
lat temp[$2]
add
aTop x
lst temp[$1]
lat temp[$3]
sub
aTop y
push2
pTos curAngle
pTos winding
pToa angleStep
mul
add
push
pushi $168 ; 360, pY1
calle export60025_1, $4
bnot
aTop curAngle
pushi $94 ; 148, init
pushi $3 ; z
pTos client
pTos x
pTos y
super MoveTo, $a
bnot
ret
Orbit::moveDone:
pushi $94 ; 148, init
push0
self $4
bnot
ret

64
Script/Script60052.txt Normal file
View File

@ -0,0 +1,64 @@
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

18
Script/Script60053.txt Normal file
View File

@ -0,0 +1,18 @@
Approach::doit:
pushi $158 ; 344, onTarget
push0
self $4
bnot
bnt code_005b
pushi $64 ; 100, 'd', moveDone
push0
self $4
bnot
jmp code_0062
code_005b: pushi $45 ; 69, 'E', doit
push0
super Chase, $4
bnot
code_0062: ret

58
Script/Script60054.txt Normal file
View File

@ -0,0 +1,58 @@
MoveFwd::init:
lap param[$0]
bnt code_00a0
pushi $94 ; 148, init
pushi $4 ; scaleX
lsp param[$1]
push1
push0
lap param[$1]
send $4
bnot
push
push2
pushi $43 ; 67, 'C', heading
push0
lap param[$1]
send $4
bnot
push
lsp param[$2]
callk kernel_66, $4
bnot
add
push
push2
push0
lap param[$1]
send $4
bnot
push
push2
pushi $43 ; 67, 'C', heading
push0
lap param[$1]
send $4
bnot
push
lsp param[$2]
callk kernel_67, $4
bnot
sub
push
lsp param[$0]
ldi $3 ; z
ge?
bnt code_0099
lap param[$3]
code_0099: push
super PolyPath, $c
bnot
jmp code_00a8
code_00a0: pushi $94 ; 148, init
push0
super PolyPath, $4
bnot
code_00a8: ret