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:24 +00:00
parent d5d6d7ce3d
commit 2bc95b06d8
5 changed files with 1343 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

152
Script/Script60077.txt Normal file
View File

@ -0,0 +1,152 @@
RandCycle::init:
pushi $94 ; 148, init
push1
lsp param[$1]
super Cycle, $6
bnot
lsp param[$0]
ldi $4 ; scaleX
ge?
bnt code_0057
lap param[$4]
aTop reset
code_0057: pToa reset
bnt code_0064
pushi $10 ; 16, cel
push1
push0
pToa client
send $6
bnot
code_0064: push0
callk kernel_121, $0
bnot
aTop cycleCnt
lsp param[$0]
ldi $2
ge?
bnt code_0097
lsp param[$2]
ldi $ff ; 255, asInteger
ne?
bnt code_0086
push0
callk kernel_121, $0
bnot
push
lap param[$2]
add
aTop count
jmp code_008a
code_0086: ldi $ff ; 255, asInteger
aTop count
code_008a: lsp param[$0]
ldi $3 ; z
ge?
bnt code_009b
lap param[$3]
aTop caller
jmp code_009b
code_0097: ldi $ff ; 255, asInteger
aTop count
code_009b: ret
RandCycle::doit:
link $1
pTos count
push0
callk kernel_121, $0
bnot
sat temp[$0]
gt?
bt code_00af
pTos count
ldi $ff ; 255, asInteger
eq?
code_00af: bnt code_00dc
lst temp[$0]
pToa cycleCnt
sub
push
pushi $14a ; 330, cycleSpeed
push0
pToa client
send $4
bnot
gt?
bnt code_00f0
pushi $10 ; 16, cel
push1
pushi $15f ; 351, nextCel
push0
self $4
bnot
push
pToa client
send $6
bnot
push0
callk kernel_121, $0
bnot
aTop cycleCnt
jmp code_00f0
code_00dc: pToa reset
bnt code_00e9
pushi $10 ; 16, cel
push1
push0
pToa client
send $6
bnot
code_00e9: pushi $160 ; 352, cycleDone
push0
self $4
bnot
code_00f0: ret
RandCycle::nextCel:
link $1
push1
pTos client
callk kernel_22, $2
bnot
push
ldi $1
ne?
bnt code_0122
code_0100: push2
push0
pushi $161 ; 353, lastCel
push0
pToa client
send $4
bnot
push
callk kernel_60, $4
bnot
sat temp[$0]
push
pushi $10 ; 16, cel
push0
pToa client
send $4
bnot
eq?
bnt code_0120
jmp code_0100
code_0120: lat temp[$0]
code_0122: ret
RandCycle::cycleDone:
ldi $1
aTop completed
pushi $159 ; 345, motionCue
push0
self $4
bnot
ret

169
Script/Script60078.txt Normal file
View File

@ -0,0 +1,169 @@
ActiveCursorList::addToFront:
pushi $aa ; 170, addToFront
push0
&rest $1
super Set, $4
bnot
pushi $45 ; 69, 'E', doit
push0
self $4
bnot
ret
ActiveCursorList::delete:
pushi $58 ; 88, 'X', delete
push0
&rest $1
super Set, $4
bnot
pushi $45 ; 69, 'E', doit
push0
self $4
bnot
ret
ActiveCursorList::doit:
lsg global[$b]
pushi $4b ; 75, 'K', at
push1
push0
self $6
bnot
ne?
bnt code_00aa
pushi $57 ; 87, 'W', draw
push0
pushi $4b ; 75, 'K', at
push1
push0
self $6
bnot
sag global[$b]
send $4
bnot
code_00aa: ret
Cursor::init:
lap param[$0]
bnt code_00b5
lap param[$1]
aTop client
jmp code_00ba
code_00b5: lofsa ActiveCursorList
aTop client
code_00ba: ret
Cursor::dispose:
pushi $1b5 ; 437, disable
push0
self $4
bnot
pushi $95 ; 149, dispose
push0
super Rect, $4
bnot
ret
Cursor::draw:
pushi $3 ; z
pTos view
pTos loop
pTos cel
callk kernel_85, $6
bnot
ret
Cursor::posn:
push2
lsp param[$1]
lsp param[$2]
callk kernel_85, $4
bnot
ret
Cursor::show:
push1
lap param[$0]
bnt code_00eb
lap param[$1]
jmp code_00ed
code_00eb: ldi $1
code_00ed: push
callk kernel_85, $2
bnot
ret
Cursor::setCursor:
lsp param[$0]
ldi $1
gt?
bnt code_0108
lap param[$1]
aTop view
lap param[$2]
aTop loop
lap param[$3]
aTop cel
jmp code_0126
code_0108: pushi $e ; 14, view
push0
lap param[$1]
send $4
bnot
aTop view
pushi $f ; 15, loop
push0
lap param[$1]
send $4
bnot
aTop loop
pushi $10 ; 16, cel
push0
lap param[$1]
send $4
bnot
aTop cel
code_0126: pTos loop
ldi $0
lt?
bnt code_0138
push2
lofsa string_006b ; "setCursor called with loop of %d"
push
pTos loop
callk kernel_132, $4
bnot
code_0138: ret
Cursor::enable:
pToa client
bnt code_0145
pushi $aa ; 170, addToFront
push1
pushSelf
send $6
bnot
code_0145: ret
Cursor::disable:
pToa client
bnt code_015f
pushi $5a ; 90, 'Z', size
push0
send $4
bnot
push
ldi $1
gt?
bnt code_015f
pushi $58 ; 88, 'X', delete
push1
pushSelf
pToa client
send $6
bnot
code_015f: ret

61
Script/Script60080.txt Normal file
View File

@ -0,0 +1,61 @@
EventHandler::handleEvent:
link $2
pushi $5a ; 90, 'Z', size
push0
self $4
bnot
sat temp[$1]
ldi $0
sat temp[$0]
code_0060: lst temp[$0]
lat temp[$1]
lt?
bnt code_0088
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
self $6
bnot
send $6
bnot
pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
bnt code_0084
jmp code_0088
code_0084: +at temp[$0]
jmp code_0060
code_0088: pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
ret
Cast::dispose:
pToa plane
bnt code_00a7
pushi $58 ; 88, 'X', delete
push1
pushSelf
pushi $cf ; 207, casts
push0
send $4
bnot
send $6
bnot
ldi $0
aTop plane
code_00a7: pushi $95 ; 149, dispose
push0
super EventHandler, $4
bnot
ret

618
Script/Script60081.txt Normal file
View File

@ -0,0 +1,618 @@
Polygon::new:
link $1
pushi $5b ; 91, '[', points
push1
pushi $8d ; 141, new
push0
class IntArray
send $4
bnot
push
pushi $16e ; 366, dynamic
push1
push1
pushi $8d ; 141, new
push0
super Obj, $4
bnot
sat temp[$0]
send $c
bnot
pToa points
bnt code_0083
pushi $d3 ; 211, copy
push1
pushSelf
lat temp[$0]
send $6
bnot
code_0083: lat temp[$0]
ret
Polygon::init:
link $2
lsp param[$0]
ldi $2
div
aTop size
pushi $d0 ; 208, with
push1
lsp param[$1]
&rest $2
class IntArray
send $6
bnot
aTop points
ldi $1
aTop dynamic
ret
Polygon::dispose:
pToa pDispose
not
bnt code_00b1
push1
lofsa string_0028 ; "Polygon being disposed without being tagged for disposal."
push
callk kernel_132, $2
bnot
code_00b1: pToa dynamic
bnt code_00c2
pToa points
bnt code_00c2
pushi $95 ; 149, dispose
push0
pToa points
send $4
bnot
code_00c2: pushi $95 ; 149, dispose
push0
super Obj, $4
bnot
ret
Polygon::onMe:
pushi $3 ; z
lsp param[$1]
lsp param[$2]
pushSelf
callk kernel_101, $6
bnot
ret
Polygon::copy:
pushi $d3 ; 211, copy
push1
pushi $5b ; 91, '[', points
push0
lap param[$1]
send $4
bnot
push
pToa points
send $6
bnot
pushi $5a ; 90, 'Z', size
push0
lap param[$1]
send $4
bnot
aTop size
ret
Polygon::scale:
link $5
pToa size
sat temp[$0]
ldi $0
sat temp[$3]
pushi $4e ; 78, 'N', width
lap param[$1]
mul
push
ldi $64 ; 100, 'd', moveDone
div
sat temp[$2]
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
sat temp[$4]
ldi $0
sat temp[$1]
code_0118: lst temp[$1]
lat temp[$0]
lt?
bnt code_01a5
pushi $b5 ; 181, set
push1
lst temp[$2]
lat temp[$4]
send $6
bnot
pushi $113 ; 275, mul
push1
pushi $4b ; 75, 'K', at
push1
lst temp[$3]
pToa points
send $6
bnot
push
lat temp[$4]
send $6
bnot
pushi $115 ; 277, div
push1
pushi $64 ; 100, 'd', moveDone
lat temp[$4]
send $6
bnot
pushi $4b ; 75, 'K', at
push2
lst temp[$3]
pushi $10d ; 269, lowWord
push0
lat temp[$4]
send $4
bnot
push
pToa points
send $8
bnot
+at temp[$3]
pushi $b5 ; 181, set
push1
lst temp[$2]
lat temp[$4]
send $6
bnot
pushi $113 ; 275, mul
push1
pushi $4b ; 75, 'K', at
push1
lst temp[$3]
pToa points
send $6
bnot
push
lat temp[$4]
send $6
bnot
pushi $115 ; 277, div
push1
pushi $64 ; 100, 'd', moveDone
lat temp[$4]
send $6
bnot
pushi $4b ; 75, 'K', at
push2
lst temp[$3]
pushi $10d ; 269, lowWord
push0
lat temp[$4]
send $4
bnot
push
pToa points
send $8
bnot
+at temp[$1]
+at temp[$3]
jmp code_0118
code_01a5: pushi $95 ; 149, dispose
push0
lat temp[$4]
send $4
bnot
ret
Polygon::moveBy:
link $3
pToa size
sat temp[$0]
ldi $0
sat temp[$2]
ldi $0
sat temp[$1]
code_01bd: lst temp[$1]
lat temp[$0]
lt?
bnt code_01fc
pushi $4b ; 75, 'K', at
push2
lst temp[$2]
pushi $4b ; 75, 'K', at
push1
lst temp[$2]
pToa points
send $6
bnot
push
lap param[$1]
add
push
pToa points
send $8
bnot
+at temp[$2]
pushi $4b ; 75, 'K', at
push2
push
pushi $4b ; 75, 'K', at
push1
push
pToa points
send $6
bnot
push
lap param[$2]
add
push
pToa points
send $8
bnot
+at temp[$1]
+at temp[$2]
jmp code_01bd
code_01fc: ret
Polygon::display:
link $2
pTos size
ldi $2
mul
sat temp[$0]
ldi $0
sat temp[$1]
code_020a: lst temp[$1]
lat temp[$0]
lt?
bnt code_021a
lst temp[$1]
ldi $2
add
sat temp[$1]
jmp code_020a
code_021a: ret
Polygon::clipTo:
link $c
pToa size
sat temp[$0]
pushi $8d ; 141, new
push0
class Rect
send $4
bnot
sat temp[$9]
pushi $d3 ; 211, copy
push1
lsp param[$1]
send $6
bnot
pushi $8d ; 141, new
push0
class Line
send $4
bnot
sat temp[$5]
pushi $4b ; 75, 'K', at
push1
push0
pToa points
send $6
bnot
sat temp[$1]
pushi $4b ; 75, 'K', at
push1
push1
pToa points
send $6
bnot
sat temp[$2]
lat temp[$1]
sat temp[$3]
lat temp[$2]
sat temp[$4]
ldi $2
sat temp[$a]
ldi $1
sat temp[$8]
code_0266: lst temp[$8]
lat temp[$0]
lt?
bnt code_0339
pushi $94 ; 148, init
pushi $4 ; scaleX
lst temp[$1]
lst temp[$2]
pushi $4b ; 75, 'K', at
push1
lst temp[$a]
pToa points
send $6
bnot
sat temp[$6]
push
pushi $4b ; 75, 'K', at
push1
lst temp[$a]
ldi $1
add
push
pToa points
send $6
bnot
sat temp[$7]
push
lat temp[$5]
send $c
bnot
pushi $16b ; 363, clip
push1
lst temp[$9]
lat temp[$5]
send $6
bnot
bnt code_02e2
pushi $4b ; 75, 'K', at
pushi $5 ; scaleY
lst temp[$a]
ldi $2
sub
push
pushi $167 ; 359, pX1
push0
lat temp[$5]
send $4
bnot
push
pushi $168 ; 360, pY1
push0
lat temp[$5]
send $4
bnot
push
pushi $169 ; 361, pX2
push0
lat temp[$5]
send $4
bnot
push
pushi $16a ; 362, pY2
push0
lat temp[$5]
send $4
bnot
push
pToa points
send $e
bnot
jmp code_0325
code_02e2: pushi $16c ; 364, basicClip
push1
lst temp[$9]
lat temp[$5]
send $6
bnot
pushi $4b ; 75, 'K', at
pushi $5 ; scaleY
lst temp[$a]
ldi $2
sub
push
pushi $167 ; 359, pX1
push0
lat temp[$5]
send $4
bnot
push
pushi $168 ; 360, pY1
push0
lat temp[$5]
send $4
bnot
push
pushi $169 ; 361, pX2
push0
lat temp[$5]
send $4
bnot
push
pushi $16a ; 362, pY2
push0
lat temp[$5]
send $4
bnot
push
pToa points
send $e
bnot
code_0325: lat temp[$6]
sat temp[$1]
lat temp[$7]
sat temp[$2]
lst temp[$a]
ldi $2
add
sat temp[$a]
+at temp[$8]
jmp code_0266
code_0339: pushi $94 ; 148, init
pushi $4 ; scaleX
lst temp[$1]
lst temp[$2]
lst temp[$3]
lst temp[$4]
lat temp[$5]
send $c
bnot
pushi $16b ; 363, clip
push1
lst temp[$9]
lat temp[$5]
send $6
bnot
bnt code_0393
pushi $4b ; 75, 'K', at
pushi $5 ; scaleY
lst temp[$a]
ldi $2
sub
push
pushi $167 ; 359, pX1
push0
lat temp[$5]
send $4
bnot
push
pushi $168 ; 360, pY1
push0
lat temp[$5]
send $4
bnot
push
pushi $169 ; 361, pX2
push0
lat temp[$5]
send $4
bnot
push
pushi $16a ; 362, pY2
push0
lat temp[$5]
send $4
bnot
push
pToa points
send $e
bnot
jmp code_03d6
code_0393: pushi $16c ; 364, basicClip
push1
lst temp[$9]
lat temp[$5]
send $6
bnot
pushi $4b ; 75, 'K', at
pushi $5 ; scaleY
lst temp[$a]
ldi $2
sub
push
pushi $167 ; 359, pX1
push0
lat temp[$5]
send $4
bnot
push
pushi $168 ; 360, pY1
push0
lat temp[$5]
send $4
bnot
push
pushi $169 ; 361, pX2
push0
lat temp[$5]
send $4
bnot
push
pushi $16a ; 362, pY2
push0
lat temp[$5]
send $4
bnot
push
pToa points
send $e
bnot
code_03d6: pushi $95 ; 149, dispose
push0
lat temp[$5]
send $4
bnot
pushi $95 ; 149, dispose
push0
lat temp[$9]
send $4
bnot
ldi $0
ret
Polygon::fromRect:
pToa points
not
bnt code_03fb
pushi $8d ; 141, new
push0
class IntArray
send $4
bnot
aTop points
code_03fb: pushi $4b ; 75, 'K', at
pushi $9 ; inLeft
push0
pushi $87 ; 135, left
push0
lap param[$1]
send $4
bnot
push
pushi $89 ; 137, top
push0
lap param[$1]
send $4
bnot
push
pushi $88 ; 136, right
push0
lap param[$1]
send $4
bnot
push
pushi $89 ; 137, top
push0
lap param[$1]
send $4
bnot
push
pushi $88 ; 136, right
push0
lap param[$1]
send $4
bnot
push
pushi $8a ; 138, bottom
push0
lap param[$1]
send $4
bnot
push
pushi $87 ; 135, left
push0
lap param[$1]
send $4
bnot
push
pushi $8a ; 138, bottom
push0
lap param[$1]
send $4
bnot
push
pToa points
send $16
bnot
ldi $4 ; scaleX
aTop size
ret

343
Script/Script60082.txt Normal file
View File

@ -0,0 +1,343 @@
PolyPath::init:
link $22
lap param[$0]
bnt code_0138
lap param[$1]
aTop client
lsp param[$0]
ldi $1
gt?
bnt code_0131
lsp param[$0]
ldi $6 ; maxScale
ge?
bnt code_007c
lap param[$6]
aTop obstacles
jmp code_008c
code_007c: pToa obstacles
not
bnt code_008c
pushi $16d ; 365, obstacles
push0
lag global[$3]
send $4
bnot
aTop obstacles
code_008c: pToa points
bnt code_0097
pushi $95 ; 149, dispose
push0
send $4
bnot
code_0097: push0
push0
pToa client
send $4
bnot
sat temp[$20]
pushi $88 ; 136, right
push0
send $4
bnot
push
pushi $87 ; 135, left
push0
lat temp[$20]
send $4
bnot
sub
push
ldi $1
add
sat temp[$1e]
pushi $8a ; 138, bottom
push0
lat temp[$20]
send $4
bnot
push
pushi $89 ; 137, top
push0
lat temp[$20]
send $4
bnot
sub
push
ldi $1
add
sat temp[$1f]
pushi $9 ; inLeft
push1
push0
lap param[$1]
send $4
bnot
push
push2
push0
lap param[$1]
send $4
bnot
push
lap param[$2]
aTop finalX
push
lap param[$3]
aTop finalY
push
pTos obstacles
lst temp[$1e]
lst temp[$1f]
lsp param[$0]
ldi $5 ; scaleY
ge?
bnt code_00ff
lap param[$5]
jmp code_0101
code_00ff: ldi $2
code_0101: push
lsg global[$24]
callk kernel_100, $12
bnot
sat temp[$21]
pushi $d3 ; 211, copy
push1
push
pushi $8d ; 141, new
push0
class IntArray
send $4
bnot
aTop points
send $6
bnot
push2
pushi $4 ; scaleX
lst temp[$21]
callk kernel_91, $4
bnot
lsp param[$0]
ldi $3 ; z
gt?
bnt code_0131
lap param[$4]
aTop caller
code_0131: pushi $157 ; 343, setTarget
push0
self $4
bnot
code_0138: pushi $94 ; 148, init
push0
super Motion, $4
bnot
ret
PolyPath::dispose:
pToa points
bnt code_014c
pushi $95 ; 149, dispose
push0
send $4
bnot
code_014c: ldi $0
aTop points
pushi $95 ; 149, dispose
push0
super Motion, $4
bnot
ret
PolyPath::setTarget:
link $7
pushi $4b ; 75, 'K', at
push1
pTos value
pToa points
send $6
bnot
push
ldi $7777 ; 30583
ne?
bnt code_0250
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
push0
push0
pToa client
send $4
bnot
sat temp[$6]
pushi $88 ; 136, right
push0
send $4
bnot
push
pushi $87 ; 135, left
push0
lat temp[$6]
send $4
bnot
sub
push
ldi $1
add
sat temp[$4]
pushi $8a ; 138, bottom
push0
lat temp[$6]
send $4
bnot
push
pushi $89 ; 137, top
push0
lat temp[$6]
send $4
bnot
sub
push
ldi $1
add
sat temp[$5]
lag global[$2e]
bnt code_0250
pushi $5a ; 90, 'Z', size
push0
send $4
bnot
bnt code_0250
pushi $8d ; 141, new
push0
class IntArray
send $4
bnot
sat temp[$0]
pushi $d3 ; 211, copy
push1
pushi $9 ; inLeft
push1
push0
pToa client
send $4
bnot
push
push2
push0
pToa client
send $4
bnot
push
pTos x
pTos y
lsg global[$2e]
lst temp[$4]
lst temp[$5]
push0
lsg global[$24]
callk kernel_100, $12
bnot
push
lat temp[$0]
send $6
bnot
pushi $4b ; 75, 'K', at
push1
push2
lat temp[$0]
send $6
bnot
sat temp[$1]
pushi $4b ; 75, 'K', at
push1
pushi $3 ; z
lat temp[$0]
send $6
bnot
sat temp[$2]
pTos x
lat temp[$1]
ne?
bt code_022c
pTos y
lat temp[$2]
ne?
code_022c: bnt code_0247
lat temp[$1]
aTop x
lat temp[$2]
aTop y
pushi $4b ; 75, 'K', at
push2
pTos value
ldi $2
add
push
pushi $7777 ; 30583
pToa points
send $8
bnot
code_0247: pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
code_0250: ret
PolyPath::moveDone:
pushi $4b ; 75, 'K', at
push1
pTos value
pToa points
send $6
bnot
push
ldi $7777 ; 30583
eq?
bnt code_026b
pushi $64 ; 100, 'd', moveDone
push0
super Motion, $4
bnot
jmp code_0297
code_026b: push1
pTos client
calle export60000_0, $2
bnot
bnt code_028c
pushi $99 ; 153, respondsTo
push1
pushi $64 ; 100, 'd', moveDone
pToa client
send $6
bnot
bnt code_028c
pushi $64 ; 100, 'd', moveDone
push0
pToa client
send $4
bnot
code_028c: pushi $157 ; 343, setTarget
push0
pushi $94 ; 148, init
push0
self $8
bnot
code_0297: ret