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:04 +00:00
parent cec617c7f3
commit a0859e9e2f
5 changed files with 3187 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
Script/Script60010.txt Normal file
View File

@ -0,0 +1,42 @@
Window::new:
pushi $1c0 ; 448, container
push1
lofsa screenRect
push
pushi $9a ; 154, yourself
push0
pushi $8d ; 141, new
push0
super Plane, $4
bnot
send $a
bnot
ret
Window::init:
pToa container
not
bnt code_0086
lofsa screenRect
aTop container
code_0086: pTos back
ldi $ff ; 255, asInteger
eq?
bnt code_0091
lag global[$55]
aTop back
code_0091: pushi $94 ; 148, init
push0
&rest $1
super Plane, $4
bnot
ret
Window::center:
pushi $de ; 222, centerIn
push1
pTos container
self $6
bnot
ret

703
Script/Script60011.txt Normal file
View File

@ -0,0 +1,703 @@
Plane::init:
pToa casts
not
bnt code_009b
pushi $9f ; 159, add
push0
pushi $8d ; 141, new
push0
class Cast
send $4
bnot
aTop casts
send $4
bnot
code_009b: push0
push1
pushSelf
pToa casts
send $6
bnot
pushi $57 ; 87, 'W', draw
push0
self $4
bnot
lap param[$0]
bnt code_00c4
pushi $b5 ; 181, set
pushi $4 ; scaleX
lsp param[$1]
lsp param[$2]
lsp param[$3]
lsp param[$4]
self $c
bnot
push1
pushSelf
callk kernel_42, $2
bnot
code_00c4: ret
Plane::dispose:
link $1
pToa casts
bnt code_00e8
lag global[$3]
bnt code_00df
pushi $58 ; 88, 'X', delete
push1
pushi $f2 ; 242, pCast
push0
send $4
bnot
push
pToa casts
send $6
bnot
code_00df: pushi $95 ; 149, dispose
push0
pToa casts
send $4
bnot
code_00e8: ldi $0
aTop bitmap
aTop casts
pushi $1ba ; 442, erase
push0
self $4
bnot
push1
pushSelf
callk kernel_11, $2
bnot
ret
Plane::addCast:
pToa casts
bnt code_011a
pushi $9f ; 159, add
push1
pushi $9f ; 159, add
push0
push0
push1
pushSelf
pushi $9a ; 154, yourself
push0
lap param[$1]
send $e
bnot
push
pToa casts
send $6
bnot
code_011a: ret
Plane::deleteCast:
pToa casts
bnt code_0134
pushi $58 ; 88, 'X', delete
push1
push0
push1
push0
pushi $9a ; 154, yourself
push0
lap param[$1]
send $a
bnot
push
pToa casts
send $6
bnot
code_0134: ret
Plane::draw:
pushi $a3 ; 163, contains
push1
pushSelf
lag global[$25]
send $6
bnot
not
bnt code_0154
push1
pushSelf
callk kernel_40, $2
bnot
pushi $9f ; 159, add
push1
pushSelf
lag global[$25]
send $6
bnot
jmp code_015a
code_0154: push1
pushSelf
callk kernel_42, $2
bnot
code_015a: ret
Plane::erase:
pushi $a3 ; 163, contains
push1
pushSelf
lag global[$25]
send $6
bnot
bnt code_0176
pushi $58 ; 88, 'X', delete
push1
pushSelf
lag global[$25]
send $6
bnot
push1
pushSelf
callk kernel_41, $2
bnot
code_0176: ret
Plane::drawPic:
lap param[$1]
aTop picture
lsp param[$0]
ldi $1
gt?
bnt code_0186
lap param[$2]
aTop style
code_0186: pTos style
ldi $400 ; 1024, pEndurance
and
bnt code_0192
ldi $1
jmp code_0194
code_0192: ldi $0
code_0194: aTop mirrored
pushi $45 ; 69, 'E', doit
push2
pushSelf
pTos style
class Styler
send $8
bnot
push1
pushSelf
callk kernel_42, $2
bnot
ret
Plane::posn:
link $8
lsp param[$0]
ldi $2
gt?
bnt code_01df
pushi $87 ; 135, left
push0
lap param[$3]
send $4
bnot
sat temp[$2]
pushi $89 ; 137, top
push0
lap param[$3]
send $4
bnot
sat temp[$3]
pushi $88 ; 136, right
push0
lap param[$3]
send $4
bnot
sat temp[$4]
pushi $8a ; 138, bottom
push0
lap param[$3]
send $4
bnot
sat temp[$5]
jmp code_022c
code_01df: lag global[$3]
bnt code_021a
push0
push0
send $4
bnot
sat temp[$6]
bnt code_021a
pushi $87 ; 135, left
push0
lat temp[$6]
send $4
bnot
sat temp[$2]
pushi $89 ; 137, top
push0
lat temp[$6]
send $4
bnot
sat temp[$3]
pushi $88 ; 136, right
push0
lat temp[$6]
send $4
bnot
sat temp[$4]
pushi $8a ; 138, bottom
push0
lat temp[$6]
send $4
bnot
sat temp[$5]
jmp code_022c
code_021a: ldi $0
sat temp[$2]
ldi $0
sat temp[$3]
ldi $27f ; 639, rename
sat temp[$4]
ldi $1df ; 479, validKey
sat temp[$5]
code_022c: pTos right
pToa left
sub
sat temp[$0]
pTos bottom
pToa top
sub
sat temp[$1]
lsp param[$1]
ldi $ff ; 255, asInteger
eq?
bnt code_0255
lst temp[$2]
lst temp[$4]
lat temp[$2]
sub
push
lat temp[$0]
sub
push
ldi $2
div
add
sap param[$1]
jmp code_025c
code_0255: lsp param[$1]
lat temp[$2]
add
sap param[$1]
code_025c: lsp param[$2]
ldi $ff ; 255, asInteger
eq?
bnt code_0277
lst temp[$3]
lst temp[$5]
lat temp[$3]
sub
push
lat temp[$1]
sub
push
ldi $2
div
add
sap param[$2]
jmp code_027e
code_0277: lsp param[$2]
lat temp[$3]
add
sap param[$2]
code_027e: pushi $b5 ; 181, set
pushi $4 ; scaleX
lsp param[$1]
lsp param[$2]
lsp param[$1]
lat temp[$0]
add
push
lsp param[$2]
lat temp[$1]
add
push
self $c
bnot
ret
Plane::scaleBitmap:
link $b
lap param[$0]
bnt code_02b0
lap param[$1]
sat temp[$7]
lap param[$2]
sat temp[$8]
lap param[$3]
sat temp[$9]
lap param[$4]
sat temp[$a]
jmp code_02c0
code_02b0: pToa left
sat temp[$7]
pToa top
sat temp[$8]
pToa right
sat temp[$9]
pToa bottom
sat temp[$a]
code_02c0: pushi $4e ; 78, 'N', width
push0
pToa bitmap
send $4
bnot
sat temp[$1]
pushi $e1 ; 225, height
push0
pToa bitmap
send $4
bnot
sat temp[$3]
lst temp[$9]
lat temp[$7]
sub
push
ldi $1
add
sat temp[$0]
lst temp[$a]
lat temp[$8]
sub
push
ldi $1
add
sat temp[$2]
lst temp[$0]
ldi $fa ; 250, lower
lt?
bnt code_0301
lst temp[$0]
ldi $80 ; 128, lastKey
mul
push
lat temp[$1]
div
sat temp[$4]
jmp code_0315
code_0301: lst temp[$0]
ldi $2
div
push
ldi $80 ; 128, lastKey
mul
push
lat temp[$1]
div
push
ldi $2
mul
sat temp[$4]
code_0315: lst temp[$2]
ldi $80 ; 128, lastKey
mul
push
lat temp[$3]
div
sat temp[$5]
pushi $6a ; 106, 'j', scaleSignal
push1
push1
pushi $4 ; scaleX
push1
lst temp[$4]
pushi $5 ; scaleY
push1
push
pToa bitmap
send $12
bnot
push1
pTos bitmap
callk kernel_32, $2
bnot
ret
Plane::setBitmap:
link $4
pToa bitmap
bnt code_034e
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop bitmap
jmp code_0361
code_034e: pushi $8d ; 141, new
push0
class Cast
send $4
bnot
sat temp[$0]
pushi $1b8 ; 440, addCast
push1
push
self $6
bnot
code_0361: lsp param[$0]
ldi $3 ; z
lt?
bnt code_038f
pushi $dc ; 220, posn
push2
push0
push0
pushi $94 ; 148, init
push1
lst temp[$0]
pushi $8d ; 141, new
push0
lap param[$1]
send $4
bnot
aTop bitmap
send $e
bnot
lsp param[$0]
ldi $1
gt?
bnt code_03c3
lap param[$2]
sat temp[$3]
jmp code_03c3
code_038f: pushi $e ; 14, view
push1
lsp param[$1]
pushi $f ; 15, loop
push1
lsp param[$2]
pushi $10 ; 16, cel
push1
lsp param[$3]
pushi $dc ; 220, posn
push2
push0
push0
pushi $94 ; 148, init
push1
lst temp[$0]
pushi $8d ; 141, new
push0
class View
send $4
bnot
aTop bitmap
send $20
bnot
lsp param[$0]
ldi $3 ; z
gt?
bnt code_03c3
lap param[$4]
sat temp[$3]
code_03c3: pushi $4e ; 78, 'N', width
push0
pToa bitmap
send $4
bnot
sat temp[$1]
pushi $e1 ; 225, height
push0
pToa bitmap
send $4
bnot
sat temp[$2]
lat temp[$3]
bnt code_03e5
pushi $1bc ; 444, scaleBitmap
push0
self $4
bnot
jmp code_03fe
code_03e5: pushi $b5 ; 181, set
pushi $4 ; scaleX
pTos left
pTos top
pTos left
lat temp[$1]
add
push
pTos top
lat temp[$2]
add
push
self $c
bnot
code_03fe: ret
Plane::setSize:
link $5
pToa casts
bnt code_04c9
pushi $8d ; 141, new
push0
class Rect
send $4
bnot
sat temp[$0]
push2
pushi $3 ; z
pushi $24 ; 36, '$', elements
push0
pToa casts
send $4
bnot
push
callk kernel_90, $4
bnot
sat temp[$1]
code_0423: lat temp[$1]
bnt code_049a
pushi $9e ; 158, nextNode
push1
push2
pushi $6 ; maxScale
push
callk kernel_90, $4
bnot
push
pToa casts
send $6
bnot
push2
pushi $8 ; fixPriority
lst temp[$1]
callk kernel_90, $4
bnot
sat temp[$3]
push2
pushi $3 ; z
pushi $24 ; 36, '$', elements
push0
send $4
bnot
push
callk kernel_90, $4
bnot
sat temp[$2]
code_0455: lat temp[$2]
bnt code_048d
pushi $9e ; 158, nextNode
push1
push2
pushi $6 ; maxScale
push
callk kernel_90, $4
bnot
push
lat temp[$3]
send $6
bnot
push2
pushi $8 ; fixPriority
lst temp[$2]
callk kernel_90, $4
bnot
sat temp[$4]
pushi $af ; 175, union
push1
push
lat temp[$0]
send $6
bnot
pushi $9e ; 158, nextNode
push0
lat temp[$3]
send $4
bnot
sat temp[$2]
jmp code_0455
code_048d: pushi $9e ; 158, nextNode
push0
pToa casts
send $4
bnot
sat temp[$1]
jmp code_0423
code_049a: pushi $b5 ; 181, set
pushi $4 ; scaleX
pTos left
pTos top
pTos left
pushi $4e ; 78, 'N', width
push0
lat temp[$0]
send $4
bnot
add
push
pTos top
pushi $e1 ; 225, height
push0
lat temp[$0]
send $4
bnot
add
push
self $c
bnot
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
code_04c9: ret
Plane::hide:
pTos priority
ldi $ff ; 255, asInteger
ne?
bnt code_04df
pToa priority
aTop pOldPri
ldi $ff ; 255, asInteger
aTop priority
push1
pushSelf
callk kernel_42, $2
bnot
code_04df: ret
Plane::show:
pTos priority
ldi $ff ; 255, asInteger
eq?
bnt code_04f1
pToa pOldPri
aTop priority
push1
pushSelf
callk kernel_42, $2
bnot
code_04f1: ret
Plane::isHidden:
pTos priority
ldi $ff ; 255, asInteger
eq?
ret

182
Script/Script60012.txt Normal file
View File

@ -0,0 +1,182 @@
Sound::dispose:
pushi $141 ; 321, stop
push0
self $4
bnot
pushi $95 ; 149, dispose
push0
&rest $1
super Obj, $4
bnot
ret
Sound::play:
pTos pHandle
ldi $ff ; 255, asInteger
ne?
bnt code_00e2
pushi $141 ; 321, stop
push0
self $4
bnot
code_00e2: push2
push0
lsp param[$1]
callk kernel_117, $4
bnot
aTop pHandle
push2
push2
pTos pHandle
callk kernel_117, $4
bnot
ret
Sound::stop:
push2
push1
pTos pHandle
callk kernel_117, $4
bnot
push2
pushi $3 ; z
pTos pHandle
callk kernel_117, $4
bnot
ldi $ff ; 255, asInteger
aTop pHandle
ret
PanHandler::doit:
link $2
push1
pTos pObject
calle export60000_0, $2
bnot
bnt code_0171
ldi $80 ; 128, lastKey
sat temp[$1]
pushi $144 ; 324, scaler
push0
pToa pObject
send $4
bnot
bnt code_013b
pushi $145 ; 325, frontSize
push0
pushi $144 ; 324, scaler
push0
pToa pObject
send $4
bnot
send $4
bnot
sat temp[$1]
code_013b: pushi $5 ; scaleY
dup
pTos pSoundID
push1
push0
pToa pObject
send $4
bnot
push
pushi $5 ; scaleY
push0
pToa pObject
send $4
bnot
push
lst temp[$1]
callk kernel_117, $a
bnot
push
ldi $ff ; 255, asInteger
eq?
bnt code_0182
pushi $58 ; 88, 'X', delete
push1
pushSelf
lofsa SoundList
send $6
bnot
pushi $95 ; 149, dispose
push0
self $4
bnot
ret
jmp code_0182
code_0171: pushi $58 ; 88, 'X', delete
push1
pushSelf
lofsa SoundList
send $6
bnot
pushi $95 ; 149, dispose
push0
self $4
bnot
code_0182: ret
SoundMgr::play:
link $3
pushi $3 ; z
push0
lsp param[$1]
lsp param[$0]
ldi $2
gt?
bnt code_0195
lap param[$3]
jmp code_0197
code_0195: ldi $1
code_0197: push
callk kernel_117, $6
bnot
sat temp[$0]
lsp param[$0]
ldi $1
gt?
bnt code_01d7
lap param[$2]
bnt code_01d7
pushi $142 ; 322, pObject
push1
lsp param[$2]
pushi $143 ; 323, pSoundID
push1
lst temp[$0]
pushi $8d ; 141, new
push0
class PanHandler
send $4
bnot
sat temp[$2]
send $c
bnot
pushi $9f ; 159, add
push1
lst temp[$2]
lofsa SoundList
send $6
bnot
pushi $45 ; 69, 'E', doit
push0
lat temp[$2]
send $4
bnot
code_01d7: lat temp[$0]
ret
SoundMgr::doit:
pushi $9d ; 157, eachElementDo
push1
pushi $45 ; 69, 'E', doit
lofsa SoundList
send $6
bnot
ret

2181
Script/Script60013.txt Normal file
View File

File diff suppressed because it is too large Load Diff

79
Script/Script60018.txt Normal file
View File

@ -0,0 +1,79 @@
Clut::new:
link $1
pushi $8d ; 141, new
push1
pushi $100 ; 256, strMax
super ByteArray, $6
bnot
sat temp[$0]
pushi $94 ; 148, init
push0
send $4
bnot
lap param[$0]
bnt code_0057
pushi $10c ; 268, map
push0
&rest $1
lat temp[$0]
send $4
bnot
code_0057: lat temp[$0]
ret
Clut::init:
link $1
pToa data
not
bnt code_0072
pushi $d8 ; 216, callKernel
pushi $3 ; z
push0
pushi $100 ; 256, strMax
pTos type
self $a
bnot
aTop data
code_0072: ldi $0
sat temp[$0]
code_0076: lst temp[$0]
ldi $100 ; 256, strMax
lt?
bnt code_008b
pushi $4b ; 75, 'K', at
push2
lst temp[$0]
dup
self $8
bnot
+at temp[$0]
jmp code_0076
code_008b: ret
Clut::map:
link $1
ldi $0
sat temp[$0]
code_0092: lst temp[$0]
lap param[$0]
lt?
bnt code_00b2
pushi $4b ; 75, 'K', at
push2
lat temp[$0]
lspi param[$1]
push
ldi $1
add
lspi param[$1]
self $8
bnot
lst temp[$0]
ldi $2
add
sat temp[$0]
jmp code_0092
code_00b2: ret