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:31:48 +00:00
parent 00f9ffcb3e
commit 53de324c2f
5 changed files with 3008 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

193
Script/Script59963.txt Normal file
View File

@ -0,0 +1,193 @@
GSGetMailScript::handleMsg:
link $5
pushi $3 ; z
pushi $a ; 10, inTop
push0
lsp param[$1]
callk kernel_118, $6
bnot
bnt code_01ef
ldi $1
aTop cycles
code_01ef: ret
GSGetMailScript::changeState:
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_020c
pushi $3 ; z
pushi $e ; 14, view
lofsa string_01b0 ; "t"
push
pushi $87 ; 135, left
callk kernel_128, $6
bnot
jmp code_0219
code_020c: dup
ldi $1
eq?
bnt code_0219
pushi $95 ; 149, dispose
push0
self $4
bnot
code_0219: toss
ret
GSSendMailScript::dispose:
pToa pObj
bnt code_022a
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop pObj
code_022a: pushi $95 ; 149, dispose
push0
&rest $1
super GSActionScript, $4
bnot
ret
GSSendMailScript::handleMsg:
link $5
pushi $3 ; z
pushi $a ; 10, inTop
push0
lsp param[$1]
callk kernel_118, $6
bnot
bnt code_0248
ldi $1
aTop cycles
code_0248: ret
GSSendMailScript::changeState:
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_0277
pushi $5 ; scaleY
pushi $e ; 14, view
lofsa string_01c2 ; "ta"
push
pushi $8a ; 138, bottom
pushi $5a ; 90, 'Z', size
push0
pToa pObj
send $4
bnot
push
pushi $71 ; 113, 'q', data
push0
pToa pObj
send $4
bnot
push
callk kernel_128, $a
bnot
jmp code_0284
code_0277: dup
ldi $1
eq?
bnt code_0284
pushi $95 ; 149, dispose
push0
self $4
bnot
code_0284: toss
ret
GSGetMailMsgScript::handleMsg:
pushi $3 ; z
pushi $a ; 10, inTop
push0
lsp param[$1]
callk kernel_118, $6
bnot
bnt code_0297
ldi $1
aTop cycles
code_0297: ret
GSGetMailMsgScript::changeState:
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_02b6
pushi $4 ; scaleX
pushi $e ; 14, view
lofsa string_01d6 ; "tw"
push
pushi $88 ; 136, right
pTos pNumber
callk kernel_128, $8
bnot
jmp code_02c3
code_02b6: dup
ldi $1
eq?
bnt code_02c3
pushi $95 ; 149, dispose
push0
self $4
bnot
code_02c3: toss
ret
GSEraseMailMsgScript::handleMsg:
link $8
pushi $3 ; z
pushi $a ; 10, inTop
push0
lsp param[$1]
callk kernel_118, $6
bnot
bnt code_02d8
ldi $1
aTop cycles
code_02d8: ret
GSEraseMailMsgScript::changeState:
lap param[$1]
aTop state
push
dup
ldi $0
eq?
bnt code_02f7
pushi $4 ; scaleX
pushi $e ; 14, view
lofsa string_01d6 ; "tw"
push
pushi $89 ; 137, top
pTos pNumber
callk kernel_128, $8
bnot
jmp code_0304
code_02f7: dup
ldi $1
eq?
bnt code_0304
pushi $95 ; 149, dispose
push0
self $4
bnot
code_0304: toss
ret

113
Script/Script60000.txt Normal file
View File

@ -0,0 +1,113 @@
export60000_0 = code_00e6
Obj::new:
push1
pushSelf
callk kernel_10, $2
bnot
ret
Obj::init:
ret
Obj::doit:
selfID
ret
Obj::dispose:
lag global[$65]
bnt code_008b
pushi $9d ; 157, eachElementDo
push2
pushi $9c ; 156, handleError
pushSelf
send $8
bnot
code_008b: push1
pushSelf
callk kernel_11, $2
bnot
ret
Obj::perform:
pushi $45 ; 69, 'E', doit
push1
pushSelf
&rest $2
lap param[$1]
send $6
bnot
ret
Obj::respondsTo:
push2
pushSelf
lsp param[$1]
callk kernel_12, $4
bnot
ret
Obj::isClass:
pTos -info-
ldi $8000 ; -32768
and
ret
Obj::isMemberOf:
pushi $1007 ; 4103, -info-
push0
lap param[$1]
send $4
bnot
push
ldi $8000 ; -32768
and
bnt code_00d3
pTos -info-
ldi $8000 ; -32768
and
not
bnt code_00d3
pTos -propDict-
pushi $1002 ; 4098, -propDict-
push0
lap param[$1]
send $4
bnot
eq?
code_00d3: ret
Obj::isKindOf:
link $1
push2
lsp param[$1]
pushSelf
callk kernel_155, $4
bnot
ret
Obj::yourself:
selfID
ret
Obj::handleMsg:
ldi $0
ret
Obj::handleError:
ret
Code::doit:
ret
; export60000_0
code_00e6: push2
pushi $4 ; scaleX
lsp param[$1]
callk kernel_105, $4
bnot
push
ldi $34 ; 52, '4', number
eq?
ret

1166
Script/Script60001.txt Normal file
View File

File diff suppressed because it is too large Load Diff

352
Script/Script60002.txt Normal file
View File

@ -0,0 +1,352 @@
Array::new:
link $1
pushSelf
class Array
eq?
bnt code_00c7
ldi $0
ret
code_00c7: pushi $8d ; 141, new
push0
super Obj, $4
bnot
sat temp[$0]
pushi $71 ; 113, 'q', data
push1
lap param[$0]
bnt code_00e5
pushi $3 ; z
push0
lsp param[$1]
pTos type
callk kernel_91, $6
bnot
jmp code_00fe
code_00e5: pToa data
bnt code_00f3
push2
pushi $8 ; fixPriority
push
callk kernel_91, $4
bnot
jmp code_00fe
code_00f3: pushi $3 ; z
push0
pushi $a ; 10, inTop
pTos type
callk kernel_91, $6
bnot
code_00fe: push
lat temp[$0]
send $6
bnot
lat temp[$0]
ret
Array::with:
link $1
pushi $8d ; 141, new
push1
lsp param[$0]
self $6
bnot
sat temp[$0]
pushi $4b ; 75, 'K', at
push1
push0
&rest $1
send $6
bnot
lat temp[$0]
ret
Array::newWith:
link $1
pushi $8d ; 141, new
push1
push2
lsp param[$0]
ldi $1
sub
push
lsp param[$1]
calle export60025_3, $4
bnot
push
self $6
bnot
sat temp[$0]
pushi $4b ; 75, 'K', at
push1
push0
&rest $2
send $6
bnot
lat temp[$0]
ret
Array::at:
lsp param[$0]
ldi $1
eq?
bnt code_015b
pushi $3 ; z
push2
pTos data
lsp param[$1]
callk kernel_91, $6
bnot
ret
code_015b: pushi $3 ; z
dup
pTos data
lsp param[$1]
&rest $2
callk kernel_91, $6
bnot
selfID
ret
Array::copyToFrom:
pushi $6 ; maxScale
dup
pTos data
lsp param[$1]
push2
pushi $9 ; inLeft
lsp param[$2]
callk kernel_91, $4
bnot
push
lsp param[$3]
lsp param[$4]
callk kernel_91, $c
bnot
selfID
ret
Array::copy:
pushi $96 ; 150, isClass
push0
self $4
bnot
bnt code_01a0
pushi $d3 ; 211, copy
push1
lsp param[$1]
pushi $8d ; 141, new
push0
self $4
bnot
send $6
bnot
jmp code_01b7
code_01a0: pushi $d2 ; 210, copyToFrom
pushi $4 ; scaleX
push0
push2
pushi $9 ; inLeft
lsp param[$1]
callk kernel_91, $4
bnot
push
push0
pushi $ff ; 255, asInteger
self $c
bnot
code_01b7: ret
Array::move:
pushi $d2 ; 210, copyToFrom
pushi $4 ; scaleX
lsp param[$1]
pushSelf
lsp param[$2]
lsp param[$3]
self $c
bnot
ret
Array::compToFrom:
pushi $6 ; maxScale
pushi $7 ; priority
pTos data
lsp param[$1]
push2
pushi $9 ; inLeft
lsp param[$2]
callk kernel_91, $4
bnot
push
lsp param[$3]
lsp param[$4]
callk kernel_91, $c
bnot
not
ret
Array::compare:
pushi $5a ; 90, 'Z', size
push0
self $4
bnot
push
push2
push1
push2
pushi $9 ; inLeft
lsp param[$1]
callk kernel_91, $4
bnot
push
callk kernel_91, $4
bnot
ne?
bnt code_0203
ldi $0
jmp code_021a
code_0203: pushi $d4 ; 212, compToFrom
pushi $4 ; scaleX
push0
push2
pushi $9 ; inLeft
lsp param[$1]
callk kernel_91, $4
bnot
push
push0
pushi $ff ; 255, asInteger
self $c
bnot
code_021a: ret
Array::fill:
pushi $5 ; scaleY
dup
pTos data
lsp param[$1]
lsp param[$2]
lsp param[$0]
ldi $3 ; z
eq?
bnt code_022f
lap param[$3]
jmp code_0231
code_022f: ldi $0
code_0231: push
callk kernel_91, $a
bnot
ret
Array::init:
pushi $d6 ; 214, fill
pushi $3 ; z
push0
pushi $ff ; 255, asInteger
lap param[$0]
bnt code_0248
lap param[$1]
jmp code_024a
code_0248: ldi $0
code_024a: push
self $a
bnot
ret
Array::size:
push2
push1
pTos data
callk kernel_91, $4
bnot
ret
Array::dispose:
pToa data
bnt code_0264
push2
pushi $4 ; scaleX
push
callk kernel_91, $4
bnot
code_0264: pushi $95 ; 149, dispose
push0
super Obj, $4
bnot
ret
Array::indexOf:
link $2
pushi $5a ; 90, 'Z', size
push0
self $4
bnot
sat temp[$1]
lsp param[$0]
ldi $1
gt?
bnt code_02a4
lap param[$2]
bnt code_02a4
-at temp[$1]
sat temp[$0]
code_0286: lst temp[$0]
ldi $0
ge?
bnt code_02c4
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
self $6
bnot
push
lap param[$1]
eq?
bnt code_029e
lat temp[$0]
ret
code_029e: -at temp[$0]
jmp code_0286
jmp code_02c4
code_02a4: ldi $0
sat temp[$0]
code_02a8: lst temp[$0]
lat temp[$1]
lt?
bnt code_02c4
pushi $4b ; 75, 'K', at
push1
lst temp[$0]
self $6
bnot
push
lap param[$1]
eq?
bnt code_02c0
lat temp[$0]
ret
code_02c0: +at temp[$0]
jmp code_02a8
code_02c4: ldi $ff ; 255, asInteger
ret
Array::callKernel:
push0
&rest $1
callk kernel_91, $0
bnot
ret

1184
Script/Script60003.txt Normal file
View File

File diff suppressed because it is too large Load Diff