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:30:06 +00:00
parent aae924a19a
commit cc3ce80a88
5 changed files with 21499 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

327
Script/Script40113.txt Normal file
View File

@ -0,0 +1,327 @@
GroupMember::init:
pushi $94 ; 148, init
push0
&rest $1
super Obj, $4
bnot
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
aTop pServID
pushi $b5 ; 181, set
push2
pushi $ff ; 255, asInteger
dup
pToa pServID
send $8
bnot
ret
GroupMember::dispose:
lag global[$d4]
bnt code_0091
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
sag global[$d4]
code_0091: pToa pServID
bnt code_00a0
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop pServID
code_00a0: pToa pName
bnt code_00b8
push1
push
calle export60000_0, $2
bnot
bnt code_00b8
pushi $95 ; 149, dispose
push0
pToa pName
send $4
bnot
code_00b8: ldi $0
aTop pName
pushi $95 ; 149, dispose
push0
super Obj, $4
bnot
ret
GroupMember::servIDEquals:
lsp param[$0]
ldi $1
gt?
bnt code_00dc
pushi $127 ; 295, equal
push2
lsp param[$1]
lsp param[$2]
pToa pServID
send $8
bnot
ret
jmp code_00e8
code_00dc: pushi $128 ; 296, equalLong
push1
lsp param[$1]
pToa pServID
send $6
bnot
ret
code_00e8: ret
GroupList::delete:
lag global[$d4]
bnt code_00f8
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
sag global[$d4]
code_00f8: pushi $37d ; 893, servIDEquals
push1
pushi $2ca ; 714, pServID
push0
lap param[$1]
send $4
bnot
push
lag global[$1]
send $6
bnot
bt code_011e
lsp param[$1]
pToa pLeader
eq?
bt code_011e
pushi $5a ; 90, 'Z', size
push0
self $4
bnot
push
ldi $2
eq?
code_011e: bnt code_01a5
pushi $b5 ; 181, set
push2
pushi $ff ; 255, asInteger
dup
pushi $380 ; 896, pWhoToFollow
push0
lag global[$1]
send $4
bnot
send $8
bnot
ldi $0
aTop pLeader
pushi $9d ; 157, eachElementDo
push1
pushi $95 ; 149, dispose
self $6
bnot
pushi $a6 ; 166, release
push0
self $4
bnot
pushi $381 ; 897, pMode
push0
lag global[$1]
send $4
bnot
push
ldi $2
and
not
bnt code_017d
pushi $381 ; 897, pMode
push0
lag global[$1]
send $4
bnot
push
ldi $4 ; scaleX
and
not
bnt code_017d
pushi $1b4 ; 436, enable
push1
push1
push2
pushi $a410 ; -23536
pushi $5 ; scaleY
callk kernel_2, $4
bnot
send $6
bnot
jmp code_0190
code_017d: pushi $1b4 ; 436, enable
push2
push0
push1
push2
pushi $a410 ; -23536
pushi $5 ; scaleY
callk kernel_2, $4
bnot
send $8
bnot
code_0190: pushi $382 ; 898, updatePanel
push1
pushi $383 ; 899, curPanel
push0
lag global[$6]
send $4
bnot
push
lag global[$6]
send $6
bnot
jmp code_01b7
code_01a5: pushi $58 ; 88, 'X', delete
push1
lsp param[$1]
super Set, $6
bnot
pushi $95 ; 149, dispose
push0
lap param[$1]
send $4
bnot
code_01b7: ret
GroupList::add:
link $3
pushi $5a ; 90, 'Z', size
push0
self $4
bnot
not
bnt code_01c7
lap param[$1]
aTop pLeader
code_01c7: lsp param[$1]
pToa pLeader
eq?
not
bnt code_020b
pushi $37d ; 893, servIDEquals
push1
pushi $2ca ; 714, pServID
push0
pToa pLeader
send $4
bnot
push
lag global[$1]
send $6
bnot
not
bnt code_020b
pushi $384 ; 900, pSittingOn
push0
lag global[$1]
send $4
bnot
not
bnt code_020b
pushi $10f ; 271, setLong
push1
pushi $2ca ; 714, pServID
push0
pToa pLeader
send $4
bnot
push
pushi $380 ; 896, pWhoToFollow
push0
lag global[$1]
send $4
bnot
send $6
bnot
code_020b: pushi $9f ; 159, add
push1
lsp param[$1]
super Set, $6
bnot
pushi $381 ; 897, pMode
push0
lag global[$1]
send $4
bnot
push
ldi $2
and
not
bnt code_0249
pushi $381 ; 897, pMode
push0
lag global[$1]
send $4
bnot
push
ldi $4 ; scaleX
and
not
bnt code_0249
pushi $1b4 ; 436, enable
push1
push1
push2
pushi $a410 ; -23536
pushi $5 ; scaleY
callk kernel_2, $4
bnot
send $6
bnot
jmp code_025c
code_0249: pushi $1b4 ; 436, enable
push2
push1
push1
push2
pushi $a410 ; -23536
pushi $5 ; scaleY
callk kernel_2, $4
bnot
send $8
bnot
code_025c: pushi $382 ; 898, updatePanel
push1
pushi $383 ; 899, curPanel
push0
lag global[$6]
send $4
bnot
push
lag global[$6]
send $6
bnot
ret
GroupList::findByServID:
pushi $a0 ; 160, firstTrue
push2
pushi $37d ; 893, servIDEquals
lsp param[$1]
self $8
bnot
ret

174
Script/Script40116.txt Normal file
View File

@ -0,0 +1,174 @@
ClutOverride::new:
push1
pushSelf
callk kernel_10, $2
bnot
ret
ClutOverride::init:
link $1
pToa data
not
bnt code_00a3
pushi $d8 ; 216, callKernel
pushi $3 ; z
push0
pushi $100 ; 256, strMax
pTos type
self $a
bnot
aTop data
code_00a3: ldi $0
sat temp[$0]
code_00a7: lst temp[$0]
ldi $100 ; 256, strMax
lt?
bnt code_00bd
pushi $61c ; 1564, selfAt
push2
lst temp[$0]
dup
self $8
bnot
+at temp[$0]
jmp code_00a7
code_00bd: lap param[$1]
aTop pClient
pushi $17a ; 378, clut
push0
send $4
bnot
aTop pClut
pushi $17a ; 378, clut
push1
pushSelf
lap param[$1]
send $6
bnot
ret
ClutOverride::dispose:
pToa pClient
bnt code_00e2
pushi $17a ; 378, clut
push1
pTos pClut
send $6
bnot
code_00e2: pushi $95 ; 149, dispose
push0
&rest $1
super Clut, $4
bnot
ret
ClutOverride::at:
pToa pClut
bnt code_00fa
pushi $4b ; 75, 'K', at
push0
&rest $1
send $4
bnot
ret
code_00fa: ret
ClutOverride::selfAt:
pushi $4b ; 75, 'K', at
push0
&rest $1
super Clut, $4
bnot
ret
InvisibleClut::init:
link $1
pushi $94 ; 148, init
push0
&rest $1
super Clut, $4
bnot
ldi $0
sat temp[$0]
code_0115: lat temp[$0]
lsli local[$0]
ldi $ff ; 255, asInteger
ne?
bnt code_013a
pushi $4b ; 75, 'K', at
pushi $5 ; scaleY
lat temp[$0]
lsli local[$0]
pushi $f0 ; 240, drawSelected
pushi $f1 ; 241, scale
pushi $f2 ; 242, pCast
pushi $f3 ; 243, nextEvent
self $e
bnot
+at temp[$0]
jmp code_0115
code_013a: pushi $4b ; 75, 'K', at
pushi $3 ; z
pushi $f ; 15, loop
pushi $f0 ; 240, drawSelected
pushi $f1 ; 241, scale
self $a
bnot
pushi $4b ; 75, 'K', at
push2
pushi $18 ; 24, lsRight
pushi $f0 ; 240, drawSelected
self $8
bnot
pushi $4b ; 75, 'K', at
pushi $5 ; scaleY
pushi $68 ; 104, 'h', restart
pushi $f3 ; 243, nextEvent
pushi $f2 ; 242, pCast
pushi $f1 ; 241, scale
pushi $f0 ; 240, drawSelected
self $e
bnot
ret
FrozenClut::init:
link $1
pushi $94 ; 148, init
push0
&rest $1
super Clut, $4
bnot
ldi $0
sat temp[$0]
code_017c: lat temp[$0]
lsli local[$0]
ldi $ff ; 255, asInteger
ne?
bnt code_019d
pushi $4b ; 75, 'K', at
pushi $5 ; scaleY
lat temp[$0]
lsli local[$0]
pushi $35 ; 53, '5', nodePtr
pushi $36 ; 54, '6', client
pushi $37 ; 55, '7', dx
pushi $38 ; 56, '8', dy
self $e
bnot
+at temp[$0]
jmp code_017c
code_019d: pushi $4b ; 75, 'K', at
pushi $5 ; scaleY
pushi $68 ; 104, 'h', restart
pushi $38 ; 56, '8', dy
pushi $37 ; 55, '7', dx
pushi $36 ; 54, '6', client
pushi $35 ; 53, '5', nodePtr
self $e
bnot
ret

2432
Script/Script40117.txt Normal file
View File

File diff suppressed because it is too large Load Diff

18324
Script/Script40118.txt Normal file
View File

File diff suppressed because it is too large Load Diff

242
Script/Script40119.txt Normal file
View File

@ -0,0 +1,242 @@
SetMoneyEditItem::new:
link $1
pushi $8d ; 141, new
push0
super EditItem, $4
bnot
sat temp[$0]
pushi $23 ; 35, '#', text
push1
pushi $8d ; 141, new
push0
class Str
send $4
bnot
push
lat temp[$0]
send $6
bnot
ret
SetMoneyEditItem::init:
pTos state
ldi $8 ; fixPriority
or
aTop state
pushi $94 ; 148, init
push0
&rest $1
super EditItem, $4
bnot
pushi $1be ; 446, setSize
push1
pTos right
self $6
bnot
ret
SetMoneyEditItem::dispose:
ldi $0
aTop text
pushi $95 ; 149, dispose
push0
&rest $1
super EditItem, $4
bnot
ret
SetMoneyEditItem::validKey:
link $4
pushi $132 ; 306, fromStr
push1
lsp param[$2]
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
sat temp[$0]
send $6
bnot
pushi $130 ; 304, greaterEqualLong
push1
lst temp[$0]
pushi $337 ; 823, pValue
push0
lag global[$1]
send $4
bnot
send $6
bnot
sat temp[$1]
pushi $12d ; 301, greater
push1
push0
lat temp[$0]
send $6
bnot
sat temp[$2]
pushi $132 ; 306, fromStr
push1
lsp param[$2]
lat temp[$0]
send $6
bnot
push
ldi $0
gt?
sat temp[$3]
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
push1
lsp param[$1]
calle export60027_3, $2
bnot
bnt code_01d7
lat temp[$2]
bnt code_01d7
lat temp[$1]
bnt code_01d7
lat temp[$3]
code_01d7: bt code_0201
pushi $c ; 12, inBottom
lsp param[$1]
pushi $3 ; z
pushi $4700 ; 18176
pushi $4b00 ; 19200
pushi $4d00 ; 19712
pushi $4f00 ; 20224
pushi $5200 ; 20992
pushi $5300 ; 21248
pushi $d ; 13, seenRect
pushi $9 ; inLeft
pushi $f00 ; 3840, BAD SELECTOR
pushi $8 ; fixPriority
calle export60025_4, $18
bnot
code_0201: ret
SetManaEditItem::new:
link $1
pushi $8d ; 141, new
push0
super EditItem, $4
bnot
sat temp[$0]
pushi $23 ; 35, '#', text
push1
pushi $8d ; 141, new
push0
class Str
send $4
bnot
push
lat temp[$0]
send $6
bnot
ret
SetManaEditItem::init:
pTos state
ldi $8 ; fixPriority
or
aTop state
pushi $94 ; 148, init
push0
&rest $1
super EditItem, $4
bnot
pushi $1be ; 446, setSize
push1
pTos right
self $6
bnot
ret
SetManaEditItem::dispose:
ldi $0
aTop text
pushi $95 ; 149, dispose
push0
&rest $1
super EditItem, $4
bnot
ret
SetManaEditItem::validKey:
link $4
pushi $132 ; 306, fromStr
push1
lsp param[$2]
pushi $8d ; 141, new
push0
class LongInt
send $4
bnot
sat temp[$0]
send $6
bnot
pushi $130 ; 304, greaterEqualLong
push1
lst temp[$0]
pushi $338 ; 824, pManaValue
push0
lag global[$1]
send $4
bnot
send $6
bnot
sat temp[$1]
pushi $12d ; 301, greater
push1
push0
lat temp[$0]
send $6
bnot
sat temp[$2]
pushi $132 ; 306, fromStr
push1
lsp param[$2]
lat temp[$0]
send $6
bnot
push
ldi $0
gt?
sat temp[$3]
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
push1
lsp param[$1]
calle export60027_3, $2
bnot
bnt code_02b1
lat temp[$2]
bnt code_02b1
lat temp[$1]
bnt code_02b1
lat temp[$3]
code_02b1: bt code_02db
pushi $c ; 12, inBottom
lsp param[$1]
pushi $3 ; z
pushi $4700 ; 18176
pushi $4b00 ; 19200
pushi $4d00 ; 19712
pushi $4f00 ; 20224
pushi $5200 ; 20992
pushi $5300 ; 21248
pushi $d ; 13, seenRect
pushi $9 ; inLeft
pushi $f00 ; 3840, BAD SELECTOR
pushi $8 ; fixPriority
calle export60025_4, $18
bnot
code_02db: ret