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:35 +00:00
parent 1f192eaf2c
commit ea03d6814d
5 changed files with 926 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

478
Script/Script60037.txt Normal file
View File

@ -0,0 +1,478 @@
BitMap::init:
pTos signal
ldi $f7 ; 247, cat
and
aTop signal
pushi $17b ; 379, addToCast
push1
lap param[$0]
bnt code_009d
lap param[$1]
jmp code_009f
code_009d: ldi $0
code_009f: push
self $6
bnot
ret
BitMap::dispose:
link $1
push1
pushSelf
callk kernel_31, $2
bnot
pToa plane
bnt code_00d3
pushi $a3 ; 163, contains
push1
push
lag global[$25]
send $6
bnot
bnt code_00d3
pushi $9d ; 157, eachElementDo
push2
pushi $58 ; 88, 'X', delete
pushSelf
pushi $cf ; 207, casts
push0
pToa plane
send $4
bnot
send $8
bnot
ldi $0
aTop plane
code_00d3: pToa seenRect
bnt code_00e2
pushi $95 ; 149, dispose
push0
send $4
bnot
ldi $0
aTop seenRect
code_00e2: pToa bitmap
sat temp[$0]
ldi $0
aTop bitmap
lat temp[$0]
bnt code_00f8
pushi $9f ; 159, add
push1
push
lag global[$66]
send $6
bnot
code_00f8: pushi $95 ; 149, dispose
push0
&rest $1
super Rect, $4
bnot
ret
BitMap::addToCast:
link $1
lap param[$0]
bnt code_0111
lap param[$1]
bnt code_0111
lap param[$1]
jmp code_0126
code_0111: pushi $4b ; 75, 'K', at
push1
push0
pushi $cf ; 207, casts
push0
push0
push0
lag global[$3]
send $4
bnot
send $4
bnot
send $6
bnot
code_0126: sat temp[$0]
pushi $9f ; 159, add
push1
pushSelf
aTop client
send $6
bnot
push0
push0
lat temp[$0]
send $4
bnot
aTop plane
bnt code_0170
pushi $a3 ; 163, contains
push1
pTos plane
lag global[$25]
send $6
bnot
bnt code_0170
pTos view
ldi $ff ; 255, asInteger
ne?
bnt code_015b
push2
pushi $80 ; 128, lastKey
pTos view
callk kernel_5, $4
bnot
code_015b: bt code_015f
pToa bitmap
code_015f: bnt code_0170
pushi $17c ; 380, isNotHidden
push0
self $4
bnot
bnt code_0170
push1
pushSelf
callk kernel_30, $2
bnot
code_0170: ret
BitMap::handleEvent:
ldi $0
ret
BitMap::isNotHidden:
pTos signal
ldi $8 ; fixPriority
and
not
ret
BitMap::addItem:
link $4
pToa bitmap
not
bnt code_019f
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
code_019f: lap param[$0]
bnt code_029e
lsp param[$1]
dup
ldi $1
eq?
bnt code_01b9
push2
push2
pTos bitmap
&rest $2
callk kernel_35, $4
bnot
jmp code_029d
code_01b9: dup
ldi $2
eq?
bnt code_01cd
push2
pushi $3 ; z
pTos bitmap
&rest $2
callk kernel_35, $4
bnot
jmp code_029d
code_01cd: dup
ldi $3 ; z
eq?
bnt code_0279
lsp param[$0]
ldi $6 ; maxScale
gt?
bnt code_01e1
ldi $5 ; scaleY
lapi param[$2]
jmp code_01e3
code_01e1: lag global[$3a]
code_01e3: sat temp[$1]
pushi $8d ; 141, new
push0
class Rect
send $4
bnot
sat temp[$0]
pushi $e5 ; 229, sizeToStr
pushi $3 ; z
push2
pushi $9 ; inLeft
ldi $0
lspi param[$2]
callk kernel_91, $4
bnot
push
lst temp[$1]
pushi $ff ; 255, asInteger
lat temp[$0]
send $a
bnot
pushi $4e ; 78, 'N', width
push0
lat temp[$0]
send $4
bnot
sat temp[$2]
pushi $e1 ; 225, height
push0
lat temp[$0]
send $4
bnot
sat temp[$3]
pushi $95 ; 149, dispose
push0
lat temp[$0]
send $4
bnot
pushi $e ; 14, view
pushi $4 ; scaleX
pTos bitmap
push2
pushi $9 ; inLeft
ldi $0
lspi param[$2]
callk kernel_91, $4
bnot
push
ldi $1
lspi param[$2]
ldi $2
lspi param[$2]
ldi $1
lspi param[$2]
lat temp[$2]
add
push
ldi $2
lspi param[$2]
lat temp[$3]
add
push
ldi $3 ; z
lspi param[$2]
ldi $4 ; scaleX
lspi param[$2]
pushi $fe ; 254, strIndex
lst temp[$1]
lsp param[$0]
ldi $7 ; priority
gt?
bnt code_026d
ldi $6 ; maxScale
lapi param[$2]
jmp code_026f
code_026d: ldi $0
code_026f: push
pushi $ff ; 255, asInteger
push0
callk kernel_35, $1c
bnot
jmp code_029d
code_0279: dup
ldi $4 ; scaleX
eq?
bnt code_028c
push2
pushi $5 ; scaleY
pTos bitmap
&rest $2
callk kernel_35, $4
bnot
jmp code_029d
code_028c: dup
ldi $5 ; scaleY
eq?
bnt code_029d
push2
pushi $6 ; maxScale
pTos bitmap
&rest $2
callk kernel_35, $4
bnot
code_029d: toss
code_029e: ret
BitMap::show:
pushi $17c ; 380, isNotHidden
push0
self $4
bnot
not
bnt code_02b6
pTos signal
ldi $f7 ; 247, cat
and
aTop signal
push1
pushSelf
callk kernel_30, $2
bnot
code_02b6: ret
BitMap::hide:
pushi $17c ; 380, isNotHidden
push0
self $4
bnot
bnt code_02e9
pTos signal
ldi $8 ; fixPriority
or
aTop signal
push1
pushSelf
callk kernel_31, $2
bnot
pToa bitmap
bnt code_02e9
lap param[$0]
not
bt code_02d8
lap param[$1]
code_02d8: bnt code_02e9
pushi $9f ; 159, add
push1
pTos bitmap
lag global[$66]
send $6
bnot
ldi $0
aTop bitmap
code_02e9: ret
BitMap::moveTo:
pTos right
lsp param[$1]
pToa left
sub
add
aTop right
pTos bottom
lsp param[$2]
pToa top
sub
add
aTop bottom
lap param[$2]
aTop top
aTop y
lap param[$1]
aTop left
aTop x
pTos -info-
ldi $8 ; fixPriority
or
aTop -info-
ret
BitMap::width:
lap param[$0]
bt code_031f
pTos view
ldi $ff ; 255, asInteger
eq?
bt code_031f
pToa right
code_031f: bnt code_032d
pushi $4e ; 78, 'N', width
push0
&rest $1
super Rect, $4
bnot
ret
jmp code_033a
code_032d: pushi $3 ; z
pTos view
pTos loop
pTos cel
callk kernel_28, $6
bnot
ret
code_033a: ret
BitMap::height:
link $1
lap param[$0]
bt code_034a
pTos view
ldi $ff ; 255, asInteger
eq?
bt code_034a
pToa bottom
code_034a: bnt code_0359
pushi $e1 ; 225, height
push0
&rest $1
super Rect, $4
bnot
ret
jmp code_0366
code_0359: pushi $3 ; z
pTos view
pTos loop
pTos cel
callk kernel_29, $6
bnot
ret
code_0366: ret
BitMap::setPri:
lsp param[$0]
ldi $0
eq?
bnt code_0374
ldi $1
aTop fixPriority
jmp code_0389
code_0374: lsp param[$1]
ldi $ff ; 255, asInteger
eq?
bnt code_0381
ldi $0
aTop fixPriority
jmp code_0389
code_0381: lap param[$1]
aTop priority
ldi $1
aTop fixPriority
code_0389: ret
BitMap::draw:
ret

177
Script/Script60038.txt Normal file
View File

@ -0,0 +1,177 @@
Styler::doit:
link $2
lap param[$0]
bnt code_0088
lap param[$1]
aTop plane
lsp param[$0]
ldi $1
gt?
bnt code_0082
lap param[$2]
aTop style
lsp param[$0]
ldi $2
gt?
bnt code_007c
lap param[$3]
aTop seconds
lsp param[$0]
ldi $3 ; z
gt?
bnt code_0076
lap param[$4]
aTop back
lsp param[$0]
ldi $4 ; scaleX
gt?
bnt code_0070
lap param[$5]
aTop animate
jmp code_0091
code_0070: ldi $0
aTop animate
jmp code_0091
code_0076: ldi $ff ; 255, asInteger
aTop back
jmp code_0091
code_007c: ldi $1
aTop seconds
jmp code_0091
code_0082: ldi $0
aTop style
jmp code_0091
code_0088: push0
push0
lag global[$3]
send $4
bnot
aTop plane
code_0091: pTos style
ldi $ff ; 255, asInteger
and
aTop style
pushi $5 ; scaleY
pTos style
pushi $f ; 15, loop
pushi $10 ; 16, cel
pushi $11 ; 17, bitmap
pushi $12 ; 18, nsLeft
calle export60025_4, $a
bnot
bnt code_0133
pTos style
dup
ldi $f ; 15, loop
eq?
bnt code_00cb
pushi $3f ; 63, '?', xStep
push0
lag global[$1]
send $4
bnot
push
ldi $ff ; 255, asInteger
mul
sat temp[$0]
ldi $0
sat temp[$1]
jmp code_010f
code_00cb: dup
ldi $10 ; 16, cel
eq?
bnt code_00e1
pushi $3f ; 63, '?', xStep
push0
lag global[$1]
send $4
bnot
sat temp[$0]
ldi $0
sat temp[$1]
jmp code_010f
code_00e1: dup
ldi $11 ; 17, bitmap
eq?
bnt code_00fb
ldi $0
sat temp[$0]
pushi $40 ; 64, '@', yStep
push0
lag global[$1]
send $4
bnot
push
ldi $ff ; 255, asInteger
mul
sat temp[$1]
jmp code_010f
code_00fb: dup
ldi $12 ; 18, nsLeft
eq?
bnt code_010f
ldi $0
sat temp[$0]
pushi $40 ; 64, '@', yStep
push0
lag global[$1]
send $4
bnot
sat temp[$1]
code_010f: toss
pushi $6 ; maxScale
pTos plane
lst temp[$0]
lst temp[$1]
pushi $6d ; 109, 'm', picture
push0
pToa plane
send $4
bnot
push
pTos animate
pushi $14a ; 330, cycleSpeed
push0
lag global[$1]
send $4
bnot
push
callk kernel_48, $c
bnot
jmp code_0162
code_0133: pToa divisions
bnt code_014e
pushi $8 ; fixPriority
pTos style
pTos plane
pTos seconds
pTos back
pTos priority
pTos animate
pTos refFrame
push
callk kernel_46, $10
bnot
jmp code_0162
code_014e: pushi $7 ; priority
pTos style
pTos plane
pTos seconds
pTos back
pTos priority
pTos animate
pTos refFrame
callk kernel_46, $e
bnot
code_0162: ret

58
Script/Script60039.txt Normal file
View File

@ -0,0 +1,58 @@
Magnifier::init:
lap param[$1]
aTop client
lsp param[$0]
ldi $1
gt?
bnt code_0075
lap param[$2]
aTop view
lsp param[$0]
ldi $2
gt?
bnt code_0075
lap param[$3]
aTop loop
lsp param[$0]
ldi $3 ; z
gt?
bnt code_0075
lap param[$4]
aTop cel
lsp param[$0]
ldi $4 ; scaleX
gt?
bnt code_0075
lap param[$5]
aTop power
lsp param[$0]
ldi $5 ; scaleY
gt?
bnt code_0075
lap param[$6]
aTop skip
code_0075: push1
pushSelf
callk kernel_24, $2
bnot
ret
Magnifier::dispose:
push1
pushSelf
callk kernel_25, $2
bnot
pushi $81 ; 129, magnifier
push1
push0
pToa client
send $6
bnot
ldi $0
aTop client
pushi $95 ; 149, dispose
push0
super Obj, $4
bnot
ret

123
Script/Script60042.txt Normal file
View File

@ -0,0 +1,123 @@
Chase::init:
lsp param[$0]
ldi $1
ge?
bnt code_0082
lap param[$1]
aTop client
lsp param[$0]
ldi $2
ge?
bnt code_0082
lap param[$2]
aTop who
lsp param[$0]
ldi $3 ; z
ge?
bnt code_0082
lap param[$3]
aTop distance
lsp param[$0]
ldi $4 ; scaleX
ge?
bnt code_0082
lap param[$4]
aTop caller
code_0082: pushi $94 ; 148, init
pushi $4 ; scaleX
pTos client
push1
push0
pToa who
send $4
bnot
push
push2
push0
pToa who
send $4
bnot
push
pTos caller
super Motion, $c
bnot
ret
Chase::onTarget:
pushi $165 ; 357, distanceTo
push1
pTos who
pToa client
send $6
bnot
push
pToa distance
le?
ret
Chase::setTarget:
lap param[$0]
bnt code_00c1
pushi $157 ; 343, setTarget
push0
&rest $1
super Motion, $4
bnot
jmp code_00e3
code_00c1: pushi $158 ; 344, onTarget
push0
self $4
bnot
not
bnt code_00e3
pushi $157 ; 343, setTarget
push2
push1
push0
pToa who
send $4
bnot
push
push2
push0
pToa who
send $4
bnot
push
super Motion, $8
bnot
code_00e3: ret
Chase::doit:
pushi $45 ; 69, 'E', doit
push0
super Motion, $4
bnot
bnt code_0115
pushi $158 ; 344, onTarget
push0
self $4
bnot
not
bnt code_0115
pushi $94 ; 148, init
pushi $4 ; scaleX
pTos client
push1
push0
pToa who
send $4
bnot
push
push2
push0
pToa who
send $4
bnot
push
pTos caller
super Motion, $c
bnot
code_0115: ret

90
Script/Script60043.txt Normal file
View File

@ -0,0 +1,90 @@
Wander::init:
lsp param[$0]
ldi $1
ge?
bnt code_006e
lap param[$1]
aTop client
lsp param[$0]
ldi $2
ge?
bnt code_006e
lap param[$2]
aTop distance
code_006e: pushi $157 ; 343, setTarget
push0
self $4
bnot
pushi $94 ; 148, init
push1
pTos client
super Motion, $6
bnot
ret
Wander::setTarget:
link $1
push1
push0
pToa client
send $4
bnot
push
pTos distance
push2
push0
pTos distance
ldi $2
mul
sat temp[$0]
push
callk kernel_60, $4
bnot
sub
add
aTop x
push2
push0
pToa client
send $4
bnot
push
pTos distance
push2
push0
lst temp[$0]
callk kernel_60, $4
bnot
sub
add
aTop y
ret
Wander::onTarget:
ldi $0
ret
Wander::doit:
pushi $45 ; 69, 'E', doit
push0
super Motion, $4
bnot
pushi $162 ; 354, isStopped
push0
pToa client
send $4
bnot
bnt code_00d0
pushi $64 ; 100, 'd', moveDone
push0
self $4
bnot
code_00d0: ret
Wander::moveDone:
pushi $94 ; 148, init
push0
self $4
bnot
ret