From ea03d6814d4ba0fc46ce8441d85a64e7dbadfa6b Mon Sep 17 00:00:00 2001 From: threememories Date: Mon, 27 Apr 2026 01:32:35 +0000 Subject: [PATCH] Upload files to "Script" --- Script/Script60037.txt | 478 +++++++++++++++++++++++++++++++++++++++++ Script/Script60038.txt | 177 +++++++++++++++ Script/Script60039.txt | 58 +++++ Script/Script60042.txt | 123 +++++++++++ Script/Script60043.txt | 90 ++++++++ 5 files changed, 926 insertions(+) create mode 100644 Script/Script60037.txt create mode 100644 Script/Script60038.txt create mode 100644 Script/Script60039.txt create mode 100644 Script/Script60042.txt create mode 100644 Script/Script60043.txt diff --git a/Script/Script60037.txt b/Script/Script60037.txt new file mode 100644 index 0000000..1100ca6 --- /dev/null +++ b/Script/Script60037.txt @@ -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 + diff --git a/Script/Script60038.txt b/Script/Script60038.txt new file mode 100644 index 0000000..234efec --- /dev/null +++ b/Script/Script60038.txt @@ -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 + diff --git a/Script/Script60039.txt b/Script/Script60039.txt new file mode 100644 index 0000000..0a547f9 --- /dev/null +++ b/Script/Script60039.txt @@ -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 + diff --git a/Script/Script60042.txt b/Script/Script60042.txt new file mode 100644 index 0000000..480eeae --- /dev/null +++ b/Script/Script60042.txt @@ -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 + diff --git a/Script/Script60043.txt b/Script/Script60043.txt new file mode 100644 index 0000000..4bf76c4 --- /dev/null +++ b/Script/Script60043.txt @@ -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 +