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

155
Script/Script60044.txt Normal file
View File

@ -0,0 +1,155 @@
Cycle::init:
lap param[$0]
bnt code_00a2
lap param[$1]
aTop client
code_00a2: lag global[$40]
aTop cycleCnt
ldi $0
aTop completed
pushi $161 ; 353, lastCel
push0
pToa client
send $4
bnot
aTop clientLastCel
ret
Cycle::nextCel:
pushi $10 ; 16, cel
push0
pToa client
send $4
bnot
push
pToa cycleDir
add
ret
Cycle::cycleDone:
ret
Cycle::motionCue:
pushi $15b ; 347, cycler
push1
push0
pToa client
send $6
bnot
pushi $95 ; 149, dispose
push0
self $4
bnot
ret
Cycle::dispose:
pToa caller
bnt code_0100
pushi $9f ; 159, add
push1
pushi $cb ; 203, cuee
push1
push
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_0100: pushi $95 ; 149, dispose
push0
&rest $1
super Obj, $4
bnot
ret
Fwd::doit:
link $1
pushi $10 ; 16, cel
push0
pToa client
send $4
bnot
push
pushi $15f ; 351, nextCel
push0
self $4
bnot
sat temp[$0]
ne?
bnt code_015d
pTos clientLastCel
ldi $0
eq?
bnt code_012c
ret
jmp code_0146
code_012c: lst temp[$0]
pToa clientLastCel
gt?
bnt code_013c
pushi $160 ; 352, cycleDone
push0
self $4
bnot
jmp code_0146
code_013c: pushi $10 ; 16, cel
push1
lst temp[$0]
pToa client
send $6
bnot
code_0146: 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_015d: ret
Fwd::cycleDone:
pushi $10 ; 16, cel
push1
push0
pToa client
send $6
bnot
ret
Walk::doit:
link $1
pushi $162 ; 354, isStopped
push0
pToa client
send $4
bnot
not
bnt code_017d
pushi $45 ; 69, 'E', doit
push0
super Fwd, $4
bnot
code_017d: ret

125
Script/Script60045.txt Normal file
View File

@ -0,0 +1,125 @@
CT::init:
pushi $94 ; 148, init
push1
lsp param[$1]
super Cycle, $6
bnot
lap param[$3]
aTop cycleDir
lsp param[$0]
ldi $4 ; scaleX
eq?
bnt code_00ad
lap param[$4]
aTop caller
code_00ad: lsp param[$2]
pToa clientLastCel
gt?
bnt code_00b8
pToa clientLastCel
jmp code_00ba
code_00b8: lap param[$2]
code_00ba: aTop endCel
ret
CT::doit:
link $2
pushi $10 ; 16, cel
push0
pToa client
send $4
bnot
sat temp[$1]
push
pushi $15f ; 351, nextCel
push0
self $4
bnot
sat temp[$0]
ne?
bnt code_0107
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
lst temp[$1]
pToa endCel
eq?
bnt code_00fd
pushi $160 ; 352, cycleDone
push0
self $4
bnot
jmp code_0107
code_00fd: pushi $10 ; 16, cel
push1
lst temp[$0]
pToa client
send $6
bnot
code_0107: ret
CT::cycleDone:
ldi $1
aTop completed
pushi $159 ; 345, motionCue
push0
self $4
bnot
ret
End::init:
pushi $94 ; 148, init
pushi $4 ; scaleX
lsp param[$1]
pushi $161 ; 353, lastCel
push0
lap param[$1]
send $4
bnot
push
push1
lsp param[$0]
ldi $2
eq?
bnt code_0132
lap param[$2]
jmp code_0134
code_0132: ldi $0
code_0134: push
super CT, $c
bnot
ret
Beg::init:
pushi $94 ; 148, init
pushi $4 ; scaleX
lsp param[$1]
push0
pushi $ff ; 255, asInteger
lsp param[$0]
ldi $2
eq?
bnt code_0150
lap param[$2]
jmp code_0152
code_0150: ldi $0
code_0152: push
super CT, $c
bnot
ret

39
Script/Script60046.txt Normal file
View File

@ -0,0 +1,39 @@
Rev::doit:
link $1
pushi $15f ; 351, nextCel
push0
self $4
bnot
sat temp[$0]
push
ldi $0
lt?
bnt code_0050
pushi $160 ; 352, cycleDone
push0
self $4
bnot
jmp code_005a
code_0050: pushi $10 ; 16, cel
push1
lst temp[$0]
pToa client
send $6
bnot
code_005a: ret
Rev::cycleDone:
pushi $10 ; 16, cel
push1
pushi $161 ; 353, lastCel
push0
pToa client
send $4
bnot
push
pToa client
send $6
bnot
ret

520
Script/Script60048.txt Normal file
View File

@ -0,0 +1,520 @@
Jump::init:
link $1
lap param[$1]
aTop client
lsp param[$0]
ldi $2
eq?
bnt code_00c5
lap param[$2]
aTop caller
code_00c5: pushi $1a ; 26, signal
push0
pToa client
send $4
bnot
aTop signal
pushi $4a ; 74, 'J', setPri
push0
pToa client
send $4
bnot
pTos xStep
ldi $4e20 ; 20000
eq?
bnt code_0127
pushi $43 ; 67, 'C', heading
push0
pToa client
send $4
bnot
sat temp[$0]
push
ldi $14a ; 330, cycleSpeed
gt?
bt code_0104
lst temp[$0]
ldi $1e ; 30, brRight
lt?
bt code_0104
pushi $96 ; 150, isClass
lat temp[$0]
lt?
bnt code_010a
pprev
ldi $d2 ; 210, copyToFrom
lt?
code_0104: bnt code_010a
ldi $0
jmp code_0125
code_010a: lst temp[$0]
ldi $b4 ; 180, end
lt?
bnt code_011c
pushi $3f ; 63, '?', xStep
push0
pToa client
send $4
bnot
jmp code_0125
code_011c: pushi $3f ; 63, '?', xStep
push0
pToa client
send $4
bnot
neg
code_0125: aTop xStep
code_0127: pToa waitApogeeX
bnt code_0134
pTos xStep
pToa gx
mul
push
ldi $0
lt?
code_0134: not
bnt code_013b
ldi $0
aTop waitApogeeX
code_013b: pToa waitApogeeY
bnt code_0148
pTos yStep
pToa gy
mul
push
ldi $0
lt?
code_0148: not
bnt code_014f
ldi $0
aTop waitApogeeY
code_014f: lag global[$40]
aTop b_moveCnt
pushi $179 ; 377, setTest
push0
self $4
bnot
ret
Jump::doit:
link $2
push1
lsg global[$40]
pToa b_moveCnt
sub
push
callk kernel_61, $2
bnot
push
pushi $41 ; 65, 'A', moveSpeed
push0
pToa client
send $4
bnot
ge?
bnt code_027e
lag global[$40]
aTop b_moveCnt
push1
push0
pToa client
send $4
bnot
aTop xLast
push2
push0
pToa client
send $4
bnot
aTop yLast
push1
push1
pTos xLast
pToa xStep
add
push
push2
push1
pTos yLast
pToa yStep
add
push
pToa client
send $c
bnot
pToa xStep
sat temp[$0]
pToa yStep
sat temp[$1]
pTos xStep
pToa gx
add
aTop xStep
pTos yStep
pToa gy
add
aTop yStep
pToa waitApogeeX
not
bnt code_01f9
pTos x
ldi $4e20 ; 20000
ne?
bnt code_01f9
push0
pTos dx
push1
push0
pToa client
send $4
bnot
push
pToa x
sub
mul
le?
bnt code_01f9
push1
push1
pTos x
pushi $1007 ; 4103, -info-
push1
pushi $1007 ; 4103, -info-
push0
pToa client
send $4
bnot
push
ldi $8 ; fixPriority
or
push
pToa client
send $c
bnot
pushi $64 ; 100, 'd', moveDone
push0
self $4
bnot
jmp code_027e
code_01f9: pToa waitApogeeY
not
bnt code_023b
pTos y
ldi $4e20 ; 20000
ne?
bnt code_023b
push0
pTos dy
push2
push0
pToa client
send $4
bnot
push
pToa y
sub
mul
le?
bnt code_023b
push2
push1
pTos y
pushi $1007 ; 4103, -info-
push1
pushi $1007 ; 4103, -info-
push0
pToa client
send $4
bnot
push
ldi $8 ; fixPriority
or
push
pToa client
send $c
bnot
pushi $64 ; 100, 'd', moveDone
push0
self $4
bnot
jmp code_027e
code_023b: lst temp[$0]
pToa xStep
mul
push
ldi $0
le?
bnt code_0251
ldi $0
aTop waitApogeeX
pushi $179 ; 377, setTest
push0
self $4
bnot
code_0251: lst temp[$1]
pToa yStep
mul
push
ldi $0
le?
bnt code_0267
ldi $0
aTop waitApogeeY
pushi $179 ; 377, setTest
push0
self $4
bnot
code_0267: 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_027e: ret
Jump::moveDone:
pushi $1a ; 26, signal
push1
pTos signal
pToa client
send $6
bnot
pToa caller
bnt code_0298
ldi $1
aTop completed
pushi $159 ; 345, motionCue
push0
self $4
bnot
code_0298: ret
Jump::setTest:
push1
push0
pToa client
send $4
bnot
push
pToa x
gt?
bt code_02b8
push1
push0
pToa client
send $4
bnot
push
pToa x
eq?
bnt code_02be
pTos xStep
ldi $0
gt?
code_02b8: bnt code_02be
ldi $ff ; 255, asInteger
jmp code_02c0
code_02be: ldi $1
code_02c0: aTop dx
push2
push0
pToa client
send $4
bnot
push
pToa y
gt?
bt code_02e1
push2
push0
pToa client
send $4
bnot
push
pToa y
eq?
bnt code_02e7
pTos yStep
ldi $0
gt?
code_02e1: bnt code_02e7
ldi $ff ; 255, asInteger
jmp code_02e9
code_02e7: ldi $1
code_02e9: aTop dy
ret
Jump::motionCue:
pushi $44 ; 68, 'D', mover
push1
push0
pToa client
send $6
bnot
pToa completed
bnt code_0324
pToa caller
bnt code_0324
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_0324: pushi $95 ; 149, dispose
push0
self $4
bnot
ret
JumpTo::init:
link $36
lap param[$1]
aTop client
lap param[$2]
aTop x
lap param[$3]
aTop y
pTos x
push1
push0
lap param[$1]
send $4
bnot
eq?
bnt code_0363
pTos y
push2
push0
lap param[$1]
send $4
bnot
eq?
bnt code_0363
pushi $1a ; 26, signal
push0
pToa client
send $4
bnot
aTop signal
pushi $64 ; 100, 'd', moveDone
push0
self $4
bnot
ret
code_0363: pTos x
push1
push0
lap param[$1]
send $4
bnot
sub
sat temp[$0]
pTos y
push2
push0
lap param[$1]
send $4
bnot
sub
sat temp[$1]
pushi $4 ; scaleX
pushSelf
lst temp[$0]
push
pTos gy
callk kernel_99, $8
bnot
lat temp[$0]
not
bnt code_0391
ldi $4e20 ; 20000
aTop x
code_0391: lat temp[$1]
not
bnt code_039b
ldi $4e20 ; 20000
aTop y
code_039b: lsp param[$0]
dup
ldi $3 ; z
eq?
bnt code_03af
pushi $94 ; 148, init
push1
lsp param[$1]
super Jump, $6
bnot
jmp code_03c1
code_03af: dup
ldi $4 ; scaleX
eq?
bnt code_03c1
pushi $94 ; 148, init
push2
lsp param[$1]
lsp param[$4]
super Jump, $8
bnot
code_03c1: toss
ret
JumpTo::moveDone:
pTos x
ldi $4e20 ; 20000
ne?
bnt code_03d4
push1
push1
pTos x
pToa client
send $6
bnot
code_03d4: pTos y
ldi $4e20 ; 20000
ne?
bnt code_03e5
push2
push1
pTos y
pToa client
send $6
bnot
code_03e5: pushi $64 ; 100, 'd', moveDone
push0
super Jump, $4
bnot
ret

310
Script/Script60049.txt Normal file
View File

@ -0,0 +1,310 @@
export60049_0 = StopWalk
StopWalk::init:
lap param[$0]
bnt code_005f
pushi $e ; 14, view
push0
lap param[$1]
aTop client
send $4
bnot
aTop vWalking
lsp param[$0]
ldi $2
ge?
bnt code_005f
lap param[$2]
aTop vStopped
code_005f: pushi $94 ; 148, init
push1
pTos client
super Fwd, $6
bnot
pushi $45 ; 69, 'E', doit
push0
self $4
bnot
ret
StopWalk::dispose:
pushi $e ; 14, view
push0
pToa client
send $4
bnot
push
pToa vStopped
eq?
bnt code_0088
pushi $e ; 14, view
push1
pTos vWalking
pToa client
send $6
bnot
code_0088: pushi $95 ; 149, dispose
push0
super Fwd, $4
bnot
ret
StopWalk::doit:
link $3
pushi $162 ; 354, isStopped
push0
pToa client
send $4
bnot
bnt code_01b1
pToa stopped
bnt code_0121
pTos vStopped
ldi $ff ; 255, asInteger
ne?
bnt code_011d
pToa clientLastCel
bnt code_011d
pToa skipTime
bnt code_00b8
dpToa skipTime
ret
jmp code_011d
code_00b8: pushi $10 ; 16, cel
push0
pToa client
send $4
bnot
push
pushi $15f ; 351, nextCel
push0
self $4
bnot
sat temp[$2]
ne?
bnt code_011d
lst temp[$2]
pToa clientLastCel
gt?
bnt code_00fc
pushi $10 ; 16, cel
push1
push0
pToa client
send $6
bnot
pushi $14a ; 330, cycleSpeed
push0
pToa client
send $4
bnot
push
pTos clientLastCel
ldi $1
add
mul
push
push2
pushi $5 ; scaleY
pushi $d ; 13, seenRect
callk kernel_60, $4
bnot
mul
aTop skipTime
jmp code_0106
code_00fc: pushi $10 ; 16, cel
push1
lst temp[$2]
pToa client
send $6
bnot
code_0106: 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_011d: ret
jmp code_0193
code_0121: pTos vStopped
ldi $ff ; 255, asInteger
eq?
bnt code_0165
pushi $f ; 15, loop
push0
pToa client
send $4
bnot
push
push1
pTos client
callk kernel_21, $2
bnot
push
ldi $1
sub
ne?
bnt code_0165
pushi $f ; 15, loop
push0
pToa client
send $4
bnot
sat temp[$0]
pushi $f ; 15, loop
push1
push1
pTos client
callk kernel_21, $2
bnot
push
ldi $1
sub
push
pushi $196 ; 406, setCel
push1
lst temp[$0]
pToa client
send $c
bnot
jmp code_0193
code_0165: pTos vStopped
ldi $ff ; 255, asInteger
ne?
bnt code_0193
pushi $e ; 14, view
push0
pToa client
send $4
bnot
push
pToa vWalking
eq?
bnt code_0193
pushi $e ; 14, view
push1
pTos vStopped
pToa client
send $6
bnot
pushi $161 ; 353, lastCel
push0
pToa client
send $4
bnot
push
ldi $1
sub
aTop clientLastCel
code_0193: 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
ldi $1
aTop stopped
jmp code_0231
code_01b1: pToa stopped
bnt code_022a
ldi $0
aTop stopped
aTop skipTime
pTos vStopped
dup
pushi $e ; 14, view
push0
pToa client
send $4
bnot
eq?
bnt code_01e1
pushi $e ; 14, view
push1
pTos vWalking
pToa client
send $6
bnot
pushi $161 ; 353, lastCel
push0
pToa client
send $4
bnot
aTop clientLastCel
jmp code_0229
code_01e1: dup
ldi $ff ; 255, asInteger
eq?
bnt code_0229
pushi $195 ; 405, setLoop
push1
pushi $ff ; 255, asInteger
pToa client
send $6
bnot
pushi $f ; 15, loop
push0
pToa client
send $4
bnot
push
push1
pTos client
callk kernel_21, $2
bnot
push
ldi $1
sub
eq?
bnt code_0229
pushi $f ; 15, loop
push1
pushi $10 ; 16, cel
push0
pToa client
send $4
bnot
push
pushi $10 ; 16, cel
push1
push0
pToa client
send $c
bnot
pushi $161 ; 353, lastCel
push0
pToa client
send $4
bnot
aTop clientLastCel
code_0229: toss
code_022a: pushi $45 ; 69, 'E', doit
push0
super Fwd, $4
bnot
code_0231: ret