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:21 +00:00
parent 1f369ca131
commit 2a3e30d1b5
5 changed files with 6277 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2003
Script/Script45016.txt Normal file
View File

File diff suppressed because it is too large Load Diff

2290
Script/Script45017.txt Normal file
View File

File diff suppressed because it is too large Load Diff

1211
Script/Script45018.txt Normal file
View File

File diff suppressed because it is too large Load Diff

741
Script/Script45020.txt Normal file
View File

@ -0,0 +1,741 @@
BreakStrIntoList::doit:
link $9
pushi $d0 ; 208, with
push1
lsp param[$1]
class Str
send $6
bnot
sat temp[$0]
pushi $5a ; 90, 'Z', size
push0
send $4
bnot
push
ldi $1
sub
sat temp[$8]
ldi $0
sat temp[$5]
code_00a1: ldi $1
bnt code_0179
pushi $4 ; scaleX
dup
pushi $71 ; 113, 'q', data
push0
lat temp[$0]
send $4
bnot
push
lsp param[$2]
lsg global[$3a]
callk kernel_70, $8
bnot
sat temp[$3]
not
bnt code_00c2
jmp code_0179
code_00c2: lst temp[$8]
lat temp[$3]
sub
sat temp[$8]
pushi $d2 ; 210, copyToFrom
pushi $4 ; scaleX
push0
lst temp[$0]
push0
lst temp[$3]
pushi $8d ; 141, new
push0
class Str
send $4
bnot
sat temp[$2]
send $c
bnot
pushi $4b ; 75, 'K', at
push2
lst temp[$3]
push0
lat temp[$2]
send $8
bnot
pushi $9f ; 159, add
push1
lst temp[$2]
lap param[$3]
send $6
bnot
pushi $d7 ; 215, move
pushi $3 ; z
push0
lst temp[$3]
pushi $ff ; 255, asInteger
lat temp[$0]
send $a
bnot
code_0109: pushi $4b ; 75, 'K', at
push1
push0
lat temp[$0]
send $6
bnot
push
ldi $20 ; 32, ' ', name
eq?
bnt code_0129
pushi $d7 ; 215, move
pushi $3 ; z
push0
push1
pushi $ff ; 255, asInteger
lat temp[$0]
send $a
bnot
jmp code_0109
code_0129: lst temp[$8]
ldi $0
gt?
bnt code_00a1
pushi $4 ; scaleX
dup
pushi $71 ; 113, 'q', data
push0
lat temp[$2]
send $4
bnot
push
lsp param[$2]
lsg global[$3a]
callk kernel_70, $8
bnot
push1
pushi $5 ; scaleY
callk kernel_70, $2
bnot
sat temp[$4]
pushi $f5 ; 245, format
pushi $3 ; z
lofsa string_0099 ; "|c%d|%s"
push
lst temp[$4]
lst temp[$0]
class Str
send $a
bnot
sat temp[$6]
pushi $d3 ; 211, copy
push1
push
lat temp[$0]
send $6
bnot
pushi $95 ; 149, dispose
push0
lat temp[$6]
send $4
bnot
jmp code_00a1
code_0179: pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
ret
FastScrollWindow::init:
pushi $8d ; 141, new
push0
class List
send $4
bnot
aTop pTextList
pushi $94 ; 148, init
push0
&rest $1
super BitMap, $4
bnot
pushi $9f ; 159, add
push1
pushSelf
lag global[$27]
send $6
bnot
ret
FastScrollWindow::dispose:
pushi $58 ; 88, 'X', delete
push1
pushSelf
lag global[$27]
send $6
bnot
pToa pTextList
bnt code_01bb
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop pTextList
code_01bb: pushi $95 ; 149, dispose
push0
&rest $1
super BitMap, $4
bnot
ret
FastScrollWindow::clear:
pToa pTextList
bnt code_01dd
pushi $9d ; 157, eachElementDo
push1
pushi $95 ; 149, dispose
send $6
bnot
pushi $a6 ; 166, release
push0
pToa pTextList
send $4
bnot
code_01dd: pToa bitmap
bnt code_0205
pushi $7 ; priority
pushi $5 ; scaleY
push
push0
push0
pushi $4e ; 78, 'N', width
push0
self $4
bnot
push
ldi $1
sub
push
pushi $e1 ; 225, height
push0
self $4
bnot
push
ldi $1
sub
push
lsg global[$54]
callk kernel_35, $e
bnot
code_0205: ret
FastScrollWindow::draw:
link $5
pToa bitmap
not
bnt code_0230
pushi $5 ; scaleY
push0
pushi $4e ; 78, 'N', width
push0
self $4
bnot
push
pushi $e1 ; 225, height
push0
self $4
bnot
push
pushi $fe ; 254, strIndex
lsg global[$54]
callk kernel_35, $a
bnot
aTop bitmap
push1
pushSelf
callk kernel_30, $2
bnot
code_0230: pushi $7 ; priority
pushi $5 ; scaleY
pTos bitmap
push0
push0
pushi $4e ; 78, 'N', width
push0
self $4
bnot
push
ldi $1
sub
push
pushi $e1 ; 225, height
push0
self $4
bnot
push
ldi $1
sub
push
lsg global[$54]
callk kernel_35, $e
bnot
pTos pStartOverride
ldi $1
eq?
bnt code_029e
pTos pIndex
ldi $0
lt?
bnt code_0267
ldi $0
aTop pIndex
code_0267: pToa pIndex
sat temp[$1]
push
pToa pNumLines
add
sat temp[$4]
push
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
gt?
bnt code_0287
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
sat temp[$4]
code_0287: pTos pNumLines
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
pToa pIndex
sub
eq?
bnt code_02ae
ldi $0
aTop pStartOverride
jmp code_02ae
code_029e: pToa pStart
aTop pIndex
sat temp[$1]
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
sat temp[$4]
code_02ae: ldi $0
sat temp[$2]
code_02b2: lst temp[$1]
lat temp[$4]
lt?
bnt code_02fe
pushi $4b ; 75, 'K', at
push1
lst temp[$1]
pToa pTextList
send $6
bnot
sat temp[$3]
pushi $e ; 14, view
pushi $4 ; scaleX
pTos bitmap
pushi $71 ; 113, 'q', data
push0
send $4
bnot
push
push0
lst temp[$2]
pushi $4e ; 78, 'N', width
push0
self $4
bnot
push
lst temp[$2]
ldi $c ; 12, inBottom
add
push
pushi $ff ; 255, asInteger
push0
pushi $f0 ; 240, drawSelected
lsg global[$3a]
push0
pushi $ff ; 255, asInteger
push0
callk kernel_35, $1c
bnot
lst temp[$2]
ldi $c ; 12, inBottom
add
sat temp[$2]
+at temp[$1]
jmp code_02b2
code_02fe: push1
pushSelf
callk kernel_32, $2
bnot
ret
FastScrollWindow::add:
link $1
pushi $45 ; 69, 'E', doit
pushi $3 ; z
lsp param[$1]
pushi $4e ; 78, 'N', width
push0
self $4
bnot
push
pTos pTextList
lofsa BreakStrIntoList
send $a
bnot
code_031d: pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
pToa pBufferSize
gt?
bnt code_034a
pushi $4b ; 75, 'K', at
push1
push0
pToa pTextList
send $6
bnot
sat temp[$0]
pushi $58 ; 88, 'X', delete
push1
push
pToa pTextList
send $6
bnot
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
jmp code_031d
code_034a: pTos pIndex
ldi $0
ne?
bnt code_0361
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
pToa pBufferSize
eq?
bnt code_0361
dpToa pIndex
code_0361: pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
pToa pNumLines
sub
aTop pStart
pTos pStart
ldi $0
lt?
bnt code_037a
ldi $0
aTop pStart
code_037a: ret
FastScrollWindow::handleEvent:
link $1
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $4 ; scaleX
and
bnt code_0545
pushi $31 ; 49, '1', message
push0
lap param[$1]
send $4
bnot
push
dup
ldi $4700 ; 18176
eq?
bnt code_03e8
pushi $5a ; 90, 'Z', size
push0
pushi $23 ; 35, '#', text
push0
push2
pushi $a410 ; -23536
pushi $4 ; scaleX
callk kernel_2, $4
bnot
send $4
bnot
send $4
bnot
not
bnt code_0511
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
ldi $0
aTop pIndex
ldi $1
aTop pStartOverride
pushi $57 ; 87, 'W', draw
push0
self $4
bnot
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
pToa pNumLines
gt?
bnt code_0511
pushi $351 ; 849, newLinesShow
push0
lag global[$6]
send $4
bnot
jmp code_0511
code_03e8: dup
ldi $4f00 ; 20224
eq?
bnt code_042a
pushi $5a ; 90, 'Z', size
push0
pushi $23 ; 35, '#', text
push0
push2
pushi $a410 ; -23536
pushi $4 ; scaleX
callk kernel_2, $4
bnot
send $4
bnot
send $4
bnot
not
bnt code_0511
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
ldi $0
aTop pIndex
aTop pStartOverride
pushi $57 ; 87, 'W', draw
push0
self $4
bnot
pushi $352 ; 850, newLinesHide
push0
lag global[$6]
send $4
bnot
jmp code_0511
code_042a: dup
ldi $4900 ; 18688
eq?
bnt code_0460
pTos pIndex
pToa pNumLines
sub
aTop pIndex
push
ldi $0
lt?
bnt code_0442
ldi $0
aTop pIndex
code_0442: pTos pIndex
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
pToa pNumLines
sub
lt?
bnt code_0511
pushi $351 ; 849, newLinesShow
push0
lag global[$6]
send $4
bnot
jmp code_0511
code_0460: dup
ldi $5100 ; 20736
eq?
bnt code_04a5
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
pToa pNumLines
sub
sat temp[$0]
pTos pIndex
pToa pNumLines
add
aTop pIndex
push
lat temp[$0]
gt?
bnt code_0491
lat temp[$0]
aTop pIndex
pTos pIndex
ldi $0
lt?
bnt code_0491
ldi $0
aTop pIndex
code_0491: pTos pIndex
lat temp[$0]
ge?
bnt code_0511
pushi $352 ; 850, newLinesHide
push0
lag global[$6]
send $4
bnot
jmp code_0511
code_04a5: dup
ldi $4800 ; 18432
eq?
bnt code_04d4
dpToa pIndex
push
ldi $0
lt?
bnt code_04b8
ldi $0
aTop pIndex
code_04b8: pTos pIndex
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
pToa pNumLines
sub
lt?
bnt code_0511
pushi $351 ; 849, newLinesShow
push0
lag global[$6]
send $4
bnot
jmp code_0511
code_04d4: dup
ldi $5000 ; 20480
eq?
bnt code_0511
ipToa pIndex
push
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
ge?
bnt code_04f7
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
ldi $1
sub
aTop pIndex
code_04f7: pTos pIndex
pushi $5a ; 90, 'Z', size
push0
pToa pTextList
send $4
bnot
push
pToa pNumLines
sub
ge?
bnt code_0511
pushi $352 ; 850, newLinesHide
push0
lag global[$6]
send $4
bnot
code_0511: toss
pushi $5 ; scaleY
pushi $31 ; 49, '1', message
push0
lap param[$1]
send $4
bnot
push
pushi $4900 ; 18688
pushi $5100 ; 20736
pushi $4800 ; 18432
pushi $5000 ; 20480
calle export60025_4, $a
bnot
bnt code_0545
pushi $50 ; 80, 'P', claimed
push1
push1
lap param[$1]
send $6
bnot
ldi $1
aTop pStartOverride
pushi $57 ; 87, 'W', draw
push0
self $4
bnot
code_0545: pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
ret

32
Script/Script45021.txt Normal file
View File

@ -0,0 +1,32 @@
CWindowPage::handleEvent:
link $1
ret
CWindowPage::init:
pushi $24e ; 590, handsOff
push0
lag global[$2]
send $4
bnot
pushi $94 ; 148, init
push0
&rest $1
super Obj, $4
bnot
pushi $9f ; 159, add
push1
pushSelf
class WinDialogSet
send $6
bnot
ret
CWindowPage::dispose:
pushi $58 ; 88, 'X', delete
push1
pushSelf
class WinDialogSet
send $6
bnot
ret