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:11 +00:00
parent a0859e9e2f
commit 00033710ed
5 changed files with 3505 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

455
Script/Script60019.txt Normal file
View File

@ -0,0 +1,455 @@
currentEvent::new:
link $1
ldi $0
aTop plane
aTop claimed
push2
lap param[$0]
bnt code_0061
lap param[$1]
jmp code_0064
code_0061: ldi $3ff ; 1023, pQuickness
code_0064: push
pushSelf
callk kernel_80, $4
bnot
selfID
ret
User::init:
lofsa currentEvent
aTop curEvent
ldi $0
sag global[$6]
ret
User::doit:
pushi $f3 ; 243, nextEvent
push1
pushi $7fff ; 32767
self $6
bnot
pToa controls
bt code_0086
pToa input
code_0086: bnt code_00a2
pushi $2b ; 43, '+', type
push0
lofsa currentEvent
send $4
bnot
push
ldi $0
ne?
bnt code_00a2
pushi $c8 ; 200, handleEvent
push1
lofsa currentEvent
push
self $6
bnot
code_00a2: ret
User::nextEvent:
pushi $8d ; 141, new
push1
lsp param[$1]
lofsa currentEvent
send $6
bnot
lofsa currentEvent
ret
User::handleEvent:
link $1
pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
bnt code_00c2
ldi $1
ret
code_00c2: pushi $b9 ; 185, localize
push1
push0
push0
lag global[$3]
send $4
bnot
push
lap param[$1]
send $6
bnot
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $1
eq?
bnt code_0101
pushi $48 ; 72, 'H', modifiers
push0
lap param[$1]
send $4
bnot
push
ldi $3 ; z
and
bnt code_0101
lag global[$1]
bnt code_0101
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
lag global[$1]
send $6
bnot
jmp code_0291
code_0101: lag global[$13]
bnt code_0126
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $100 ; 256, strMax
eq?
bnt code_0126
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
lag global[$13]
send $6
bnot
bnt code_0126
ldi $0
jmp code_0291
code_0126: pToa controls
not
bnt code_0141
pToa input
bnt code_0141
pushi $4 ; scaleX
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
ne?
bnt code_0141
ldi $0
jmp code_0291
code_0141: lag global[$13]
bnt code_0155
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
send $6
bnot
bnt code_0155
ldi $0
jmp code_0291
code_0155: pToa input
not
bnt code_015f
ldi $0
jmp code_0291
code_015f: lag global[$27]
bnt code_0173
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
send $6
bnot
bnt code_0173
ldi $0
jmp code_0291
code_0173: lag global[$6]
bnt code_0187
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
send $6
bnot
bnt code_0187
ldi $0
jmp code_0291
code_0187: pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $4 ; scaleX
eq?
bt code_01a1
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $1
eq?
code_01a1: bnt code_01c2
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
lag global[$30]
send $6
bnot
bt code_01bb
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
lag global[$2]
send $6
bnot
code_01bb: bnt code_01c2
ldi $0
jmp code_0291
code_01c2: pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $4000 ; 16384
and
not
bnt code_01d7
ldi $0
jmp code_0291
code_01d7: pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $4000 ; 16384
and
bnt code_0221
pToa controls
bnt code_0291
lag global[$49]
bnt code_0213
pushi $3 ; z
lsp param[$1]
pushi $f2 ; 242, pCast
push0
lag global[$3]
send $4
bnot
push
pushi $264 ; 612, pFeatures
push0
lag global[$3]
send $4
bnot
push
call code_02ad, $6
bnot
bnt code_0213
ldi $0
jmp code_0291
code_0213: pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
lag global[$1]
send $6
bnot
jmp code_0291
code_0221: lag global[$49]
bnt code_0242
pushi $3 ; z
lsp param[$1]
pushi $f2 ; 242, pCast
push0
lag global[$3]
send $4
bnot
push
pushi $264 ; 612, pFeatures
push0
lag global[$3]
send $4
bnot
push
call code_02ad, $6
bnot
code_0242: bt code_026f
lag global[$49]
not
bnt code_0275
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
pushi $f2 ; 242, pCast
push0
lag global[$3]
send $4
bnot
send $6
bnot
bt code_026f
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
pushi $264 ; 612, pFeatures
push0
lag global[$3]
send $4
bnot
send $6
bnot
code_026f: bnt code_0275
ldi $0
jmp code_0291
code_0275: pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
lag global[$30]
send $6
bnot
bnt code_0286
ldi $0
jmp code_0291
code_0286: pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
lag global[$2]
send $6
bnot
code_0291: ldi $1
ret
User::canControl:
lap param[$0]
bnt code_02a0
lap param[$1]
aTop controls
ldi $0
aTop prevDir
code_02a0: pToa controls
ret
User::canInput:
lap param[$0]
bnt code_02ab
lap param[$1]
aTop input
code_02ab: pToa input
code_02ad: ret
link $9
pushi $b9 ; 185, localize
push1
push0
push0
lag global[$3]
send $4
bnot
push
lap param[$1]
send $6
bnot
ldi $0
sat temp[$0]
ldi $0
sat temp[$1]
push2
push0
lag global[$1]
send $4
bnot
sat temp[$7]
ldi $0
sat temp[$4]
code_02d6: lst temp[$4]
lsp param[$0]
ldi $1
sub
lt?
bnt code_0331
lat temp[$4]
lapi param[$2]
sat temp[$2]
bnt code_032d
pushi $5a ; 90, 'Z', size
push0
send $4
bnot
sat temp[$8]
ldi $0
sat temp[$5]
code_02f4: lst temp[$5]
lat temp[$8]
lt?
bnt code_032d
pushi $4b ; 75, 'K', at
push1
lst temp[$5]
lat temp[$2]
send $6
bnot
sat temp[$3]
pushi $eb ; 235, onMe
push1
lsp param[$1]
send $6
bnot
bnt code_0329
push2
push0
lat temp[$3]
send $4
bnot
sat temp[$6]
push
lat temp[$1]
gt?
bnt code_0329
lat temp[$3]
sat temp[$0]
lat temp[$6]
sat temp[$1]
code_0329: +at temp[$5]
jmp code_02f4
code_032d: +at temp[$4]
jmp code_02d6
code_0331: lat temp[$0]
bnt code_033e
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
send $6
bnot
code_033e: pushi $ba ; 186, globalize
push0
lap param[$1]
send $4
bnot
lat temp[$0]
ret

843
Script/Script60020.txt Normal file
View File

@ -0,0 +1,843 @@
MySet::delete:
lsp param[$1]
pToa scratch
eq?
bnt code_0131
ldi $0
aTop scratch
code_0131: pushi $58 ; 88, 'X', delete
push1
lsp param[$1]
&rest $2
super Set, $6
bnot
ret
planes::eachElementDo:
link $3
push2
pushi $3 ; z
pTos elements
callk kernel_90, $4
bnot
sat temp[$0]
code_014a: lat temp[$0]
bnt code_01b9
push2
pushi $6 ; maxScale
push
callk kernel_90, $4
bnot
aTop nextNode
pushi $cf ; 207, casts
push0
push2
pushi $8 ; fixPriority
lst temp[$0]
callk kernel_90, $4
bnot
send $4
bnot
sat temp[$1]
push2
pushi $3 ; z
pushi $24 ; 36, '$', elements
push0
send $4
bnot
push
callk kernel_90, $4
bnot
sat temp[$0]
code_017a: lat temp[$0]
bnt code_01b3
pushi $9e ; 158, nextNode
push1
push2
pushi $6 ; maxScale
push
callk kernel_90, $4
bnot
push
lat temp[$1]
send $6
bnot
push2
pushi $8 ; fixPriority
lst temp[$0]
callk kernel_90, $4
bnot
sat temp[$2]
pushi $9d ; 157, eachElementDo
push1
lsp param[$1]
&rest $2
send $6
bnot
pushi $9e ; 158, nextNode
push0
lat temp[$1]
send $4
bnot
sat temp[$0]
jmp code_017a
code_01b3: pToa nextNode
sat temp[$0]
jmp code_014a
code_01b9: ret
Game::play:
link $1
selfID
sag global[$2]
lofsa arrowNormalCursor
sag global[$c]
lofsa arrowWaitCursor
sag global[$d]
pushi $94 ; 148, init
push0
pushi $1b4 ; 436, enable
push0
lag global[$c]
send $8
bnot
pushi $94 ; 148, init
push0
lag global[$d]
send $4
bnot
push0
callk kernel_84, $0
bnot
not
bnt code_01f0
pushi $75 ; 117, 'u', show
push1
push0
lag global[$b]
send $6
bnot
code_01f0: pushi $1b4 ; 436, enable
push0
lag global[$d]
send $4
bnot
pushi $94 ; 148, init
push0
self $4
bnot
pushi $1b5 ; 437, disable
push0
lag global[$d]
send $4
bnot
lsg global[$40]
push0
callk kernel_121, $0
bnot
sub
sag global[$41]
lag global[$40]
sal local[$0]
ret
Game::init:
link $1
pushi $20 ; 32, ' ', name
push1
lofsa string_022e ; "DeadModules"
push
pushi $8d ; 141, new
push0
class List
send $4
bnot
sag global[$69]
send $6
bnot
pushi $20 ; 32, ' ', name
push1
lofsa string_023a ; "GlobalCuees"
push
pushi $8d ; 141, new
push0
class List
send $4
bnot
sag global[$65]
send $6
bnot
pushi $20 ; 32, ' ', name
push1
lofsa string_01c4 ; "DeadBitmaps"
push
pushi $8d ; 141, new
push0
lofsa DeadBitmaps
send $4
bnot
sag global[$66]
send $6
bnot
pushi $20 ; 32, ' ', name
push1
lofsa string_0246 ; "nullEvtHandler"
push
pushi $8d ; 141, new
push0
class Set
send $4
bnot
sag global[$4d]
send $6
bnot
lsg global[$56]
lag global[$57]
eq?
bnt code_028a
pprev
lag global[$59]
eq?
bnt code_028a
pprev
ldi $0
eq?
bnt code_028a
push0
calle export60026_0, $0
bnot
code_028a: pushi $9f ; 159, add
push0
class GlobalDemons
send $4
bnot
pushi $9f ; 159, add
push0
class GlobalTimers
send $4
bnot
pushi $9f ; 159, add
push0
class WaitingTimers
send $4
bnot
class Motion
sat temp[$0]
class Sound
sat temp[$0]
pushi $9f ; 159, add
push0
lofsa planes
sag global[$25]
send $4
bnot
pushi $9f ; 159, add
push0
lofsa firstEventHandler
sag global[$27]
send $4
bnot
pushi $9f ; 159, add
push0
lofsa gameWalkHandler
sag global[$29]
send $4
bnot
lag global[$9]
not
bnt code_02da
class Button
sag global[$9]
code_02da: lag global[$8]
not
bnt code_02e3
class Window
sag global[$8]
code_02e3: lag global[$e]
not
bnt code_02ec
class User
sag global[$e]
code_02ec: pushi $94 ; 148, init
push0
lag global[$e]
send $4
bnot
pushi $1b3 ; 435, setCursor
push2
lsg global[$c]
push1
self $8
bnot
pushi $94 ; 148, init
push0
class DialogHandler
send $4
bnot
ret
Game::doit:
link $5
pushi $279 ; 633, pFocusedRoom
push0
lag global[$30]
send $4
bnot
sag global[$3]
push0
callk kernel_121, $0
bnot
sag global[$1a]
lsg global[$41]
push0
callk kernel_121, $0
bnot
add
sag global[$40]
push
lal local[$0]
sub
push
ldi $2
ugt?
bnt code_0343
push1
pushi $b ; 11, inRight
callk kernel_128, $2
bnot
push1
pushi $4 ; scaleX
callk kernel_128, $2
bnot
lag global[$40]
sal local[$0]
code_0343: pushi $45 ; 69, 'E', doit
push0
class GlobalDemons
send $4
bnot
pushi $9d ; 157, eachElementDo
push1
pushi $45 ; 69, 'E', doit
class GlobalTimers
send $6
bnot
pushi $9d ; 157, eachElementDo
push1
pushi $58 ; 88, 'X', delete
class GlobalTimers
send $6
bnot
pushi $9d ; 157, eachElementDo
push2
pushi $63 ; 99, 'c', perform
lofsa AddToTimers
push
class WaitingTimers
send $8
bnot
pushi $a6 ; 166, release
push0
class WaitingTimers
send $4
bnot
lag global[$30]
bnt code_0383
pushi $45 ; 69, 'E', doit
push0
send $4
bnot
code_0383: pToa script
bnt code_038d
pushi $45 ; 69, 'E', doit
push0
send $4
bnot
code_038d: lsg global[$36]
lag global[$34]
ne?
bnt code_039d
pushi $272 ; 626, newRoom
push1
lsg global[$36]
self $6
bnot
code_039d: pushi $5a ; 90, 'Z', size
push0
lag global[$69]
send $4
bnot
sat temp[$1]
bnt code_03d3
ldi $0
sat temp[$2]
code_03ad: lst temp[$2]
lat temp[$1]
lt?
bnt code_03ca
pushi $4b ; 75, 'K', at
push1
lst temp[$2]
lag global[$69]
send $6
bnot
sat temp[$3]
push1
push
callk kernel_3, $2
bnot
+at temp[$2]
jmp code_03ad
code_03ca: pushi $a6 ; 166, release
push0
lag global[$69]
send $4
bnot
code_03d3: pushi $5a ; 90, 'Z', size
push0
lag global[$66]
send $4
bnot
sat temp[$1]
bnt code_0419
ldi $0
sat temp[$2]
code_03e3: lst temp[$2]
lat temp[$1]
lt?
bnt code_0410
pushi $4b ; 75, 'K', at
push1
lst temp[$2]
lag global[$66]
send $6
bnot
sat temp[$3]
push2
pushi $4 ; scaleX
push
callk kernel_105, $4
bnot
push
ldi $4b ; 75, 'K', at
eq?
bnt code_040c
push2
push1
lst temp[$3]
callk kernel_35, $4
bnot
code_040c: +at temp[$2]
jmp code_03e3
code_0410: pushi $a6 ; 166, release
push0
lag global[$66]
send $4
bnot
code_0419: lag global[$32]
ret
Game::newRoom:
link $1
lag global[$30]
bnt code_042b
pushi $272 ; 626, newRoom
push0
&rest $1
send $4
bnot
code_042b: ret
Game::startRoom:
lag global[$30]
not
bnt code_043a
push1
lsp param[$1]
callk kernel_2, $2
bnot
sag global[$3]
code_043a: pushi $aa ; 170, addToFront
push1
lsg global[$3]
lag global[$1f]
send $6
bnot
pushi $94 ; 148, init
push0
lag global[$3]
send $4
bnot
ret
Game::replay:
ret
Game::restart:
ret
Game::restore:
ret
Game::save:
ret
Game::handleEvent:
pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
bt code_0481
pToa script
bnt code_046a
pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
send $6
bnot
code_046a: bt code_0481
pushi $2b ; 43, '+', type
push0
lap param[$1]
send $4
bnot
push
ldi $4000 ; 16384
and
bnt code_0481
pushi $4f ; 79, 'O', pragmaFail
push0
self $4
bnot
code_0481: pushi $50 ; 80, 'P', claimed
push0
lap param[$1]
send $4
bnot
ret
Game::quitGame:
lap param[$0]
not
bt code_0491
lap param[$1]
code_0491: bnt code_0497
ldi $1
sag global[$32]
code_0497: ret
Game::masterVolume:
ret
Game::detailLevel:
lap param[$0]
bnt code_04ae
lap param[$1]
aTop _detailLevel
pushi $9d ; 157, eachElementDo
push2
pushi $199 ; 409, checkDetail
push
lag global[$25]
send $8
bnot
code_04ae: pToa _detailLevel
ret
Game::setCursor:
link $1
lag global[$b]
sat temp[$0]
lap param[$1]
sag global[$b]
pushi $94 ; 148, init
push0
lap param[$1]
send $4
bnot
lsp param[$0]
ldi $1
gt?
bnt code_0506
lap param[$2]
bnt code_04d9
pushi $75 ; 117, 'u', show
push0
lag global[$b]
send $4
bnot
jmp code_04e1
code_04d9: pushi $69 ; 105, 'i', hide
push0
lag global[$b]
send $4
bnot
code_04e1: lsp param[$0]
ldi $2
gt?
bnt code_0506
push2
lsp param[$3]
lsp param[$4]
callk kernel_85, $4
bnot
lsp param[$0]
ldi $4 ; scaleX
gt?
bnt code_0506
pushi $5 ; scaleY
lsp param[$1]
push0
push0
lsp param[$5]
lsp param[$6]
callk kernel_85, $a
bnot
code_0506: lat temp[$0]
ret
Game::pragmaFail:
ret
Game::notify:
ldi $0
ret
Game::setScript:
pToa script
bnt code_0518
pushi $95 ; 149, dispose
push0
send $4
bnot
code_0518: lap param[$1]
bnt code_0526
pushi $94 ; 148, init
push1
pushSelf
&rest $2
send $6
bnot
code_0526: ret
Game::cue:
pToa script
bnt code_0534
pushi $c7 ; 199, cue
push0
&rest $1
send $4
bnot
code_0534: ret
Game::handsOff:
pToa handsLevel
not
bnt code_055b
pushi $262 ; 610, canControl
push1
push0
pushi $263 ; 611, canInput
push1
push0
lag global[$e]
send $c
bnot
push2
pushi $1f ; 31, brBottom
pushi $6 ; maxScale
callk kernel_118, $4
bnot
pushi $1b4 ; 436, enable
push0
lag global[$d]
send $4
bnot
code_055b: ipToa handsLevel
ret
Game::handsOn:
pToa handsLevel
not
bnt code_0564
ret
code_0564: dpToa handsLevel
pToa handsLevel
not
bnt code_058c
pushi $262 ; 610, canControl
push1
push1
pushi $263 ; 611, canInput
push1
push1
lag global[$e]
send $c
bnot
push2
pushi $1f ; 31, brBottom
pushi $6 ; maxScale
callk kernel_118, $4
bnot
pushi $1b5 ; 437, disable
push0
lag global[$d]
send $4
bnot
code_058c: ret
Game::controlOff:
pToa handsLevel
not
bnt code_05b3
pushi $262 ; 610, canControl
push1
push0
pushi $263 ; 611, canInput
push1
push1
lag global[$e]
send $c
bnot
push2
pushi $1f ; 31, brBottom
pushi $6 ; maxScale
callk kernel_118, $4
bnot
pushi $1b4 ; 436, enable
push0
lag global[$d]
send $4
bnot
code_05b3: ipToa handsLevel
ret
Game::controlOn:
pushi $276 ; 630, handsOn
push0
self $4
bnot
ret
DNKR::doit:
pushi $239 ; 569, keep
push0
lap param[$1]
send $4
bnot
not
bnt code_05d3
pushi $95 ; 149, dispose
push0
lap param[$1]
send $4
bnot
code_05d3: ret
screen::open:
ldi $0
aTop modal
aTop curItem
pushi $1b8 ; 440, addCast
push1
pushSelf
pToa plane
send $6
bnot
lag global[$3a]
aTop font
pushi $57 ; 87, 'W', draw
push0
self $4
bnot
pushi $9f ; 159, add
push1
pushSelf
lag global[$13]
send $6
bnot
ret
screen::dispose:
pushi $1b9 ; 441, deleteCast
push1
pushSelf
pToa plane
send $6
bnot
ldi $0
aTop plane
pushi $95 ; 149, dispose
push0
super Dialog, $4
bnot
ret
screen::returnHandler:
ldi $0
ret
screen::handleEvent:
pushi $1f7 ; 503, input
push0
lag global[$e]
send $4
bnot
not
bnt code_0622
ldi $0
ret
code_0622: pushi $c8 ; 200, handleEvent
push1
lsp param[$1]
super Dialog, $6
bnot
ret
screen::draw:
link $1
pToa curItem
not
bnt code_0652
pushi $5a ; 90, 'Z', size
push0
self $4
bnot
bnt code_0652
pushi $a0 ; 160, firstTrue
push2
pushi $1cc ; 460, checkState
push1
self $8
bnot
sat temp[$0]
pushi $1d4 ; 468, selectItem
push2
push
push0
self $8
bnot
code_0652: pushi $9d ; 157, eachElementDo
push1
pushi $57 ; 87, 'W', draw
self $6
bnot
ret
AddToTimers::doit:
pushi $9f ; 159, add
push1
lsp param[$1]
class GlobalTimers
send $6
bnot
ret

1533
Script/Script60021.txt Normal file
View File

File diff suppressed because it is too large Load Diff

426
Script/Script60022.txt Normal file
View File

@ -0,0 +1,426 @@
code_00e7: add
link $1
pToa property_16
sat temp[$0]
ldi $0
aTop property_16
lat temp[$0]
bnt $12d
pushi $99 ; 153, respondsTo
push1
pushi $bc ; 188, timer
send $6
bnot
bnt $10c
pushi $bc ; 188, timer
push1
push0
lat temp[$0]
send $6
bnot
pushi $99 ; 153, respondsTo
push1
pushi $104 ; 260, cueSelector
push0
lap param[$1]
send $4
bnot
push
lat temp[$0]
send $6
bnot
bnt $12d
push2
lst temp[$0]
pTos property_17
calle export60025_5, $4
bnot
ret
Timer::new:
pTos -info-
ldi $8000 ; -32768
and
bnt code_0140
pushi $8d ; 141, new
push0
super Obj, $4
bnot
jmp code_0141
code_0140: selfID
code_0141: ret
Timer::init:
lag global[$3]
aTop pRoom
lap param[$1]
aTop client
pushi $9f ; 159, add
push1
pushSelf
pushi $108 ; 264, pTimers
push0
pToa pRoom
send $4
bnot
send $6
bnot
pushi $99 ; 153, respondsTo
push1
pushi $bc ; 188, timer
lap param[$1]
send $6
bnot
bnt code_018e
pushi $bc ; 188, timer
push0
lap param[$1]
send $4
bnot
bnt code_0184
pushi $95 ; 149, dispose
push0
pushi $bc ; 188, timer
push0
lap param[$1]
send $4
bnot
send $4
bnot
code_0184: pushi $bc ; 188, timer
push1
pushSelf
lap param[$1]
send $6
bnot
code_018e: ret
Timer::doit:
link $1
pTos cycleCnt
ldi $ff ; 255, asInteger
ne?
bnt code_01a6
dpToa cycleCnt
not
bnt code_01de
push1
pushSelf
call code_00e7, $2
bnot
jmp code_01de
code_01a6: pTos seconds
ldi $ff ; 255, asInteger
ne?
bnt code_01cc
pTos lastTime
push1
push1
callk kernel_121, $2
bnot
sat temp[$0]
ne?
bnt code_01de
lat temp[$0]
aTop lastTime
dpToa seconds
not
bnt code_01de
push1
pushSelf
call code_00e7, $2
bnot
jmp code_01de
code_01cc: lsg global[$40]
pToa ticks
sub
push
ldi $0
gt?
bnt code_01de
push1
pushSelf
call code_00e7, $2
bnot
code_01de: ret
Timer::dispose:
pToa client
bnt code_01f9
pushi $99 ; 153, respondsTo
push1
pushi $bc ; 188, timer
send $6
bnot
bnt code_01f9
pushi $bc ; 188, timer
push1
push0
pToa client
send $6
bnot
code_01f9: ldi $0
aTop client
ret
Timer::delete:
pTos client
ldi $0
eq?
bnt code_021d
pushi $58 ; 88, 'X', delete
push1
pushSelf
pushi $108 ; 264, pTimers
push0
pToa pRoom
send $4
bnot
send $6
bnot
pushi $95 ; 149, dispose
push0
super Obj, $4
bnot
code_021d: ret
Timer::setCycle:
link $1
pTos -info-
ldi $8000 ; -32768
and
bnt code_0231
pushi $8d ; 141, new
push0
self $4
bnot
jmp code_0232
code_0231: selfID
code_0232: sat temp[$0]
pushi $94 ; 148, init
push1
lsp param[$1]
pushi $102 ; 258, cycleCnt
push1
lsp param[$2]
send $c
bnot
lat temp[$0]
ret
Timer::set:
link $3
ldi $6 ; maxScale
sat temp[$2]
push
ldi $0
eq?
bnt code_0256
ldi $1
sat temp[$2]
code_0256: lsp param[$2]
ldi $3c ; 60, '<', b_di
mul
push
lat temp[$2]
div
sat temp[$1]
lsp param[$0]
ldi $2
gt?
bnt code_0277
lst temp[$1]
lsp param[$3]
ldi $e10 ; 3600, BAD SELECTOR
mul
push
lat temp[$2]
div
add
sat temp[$1]
code_0277: lsp param[$0]
ldi $3 ; z
gt?
bnt code_0291
lst temp[$1]
lsp param[$4]
ldi $e10 ; 3600, BAD SELECTOR
mul
push
lat temp[$2]
div
push
ldi $3c ; 60, '<', b_di
mul
add
sat temp[$1]
code_0291: pTos -info-
ldi $8000 ; -32768
and
bnt code_02a2
pushi $8d ; 141, new
push0
self $4
bnot
jmp code_02a3
code_02a2: selfID
code_02a3: sat temp[$0]
pushi $94 ; 148, init
push1
lsp param[$1]
pushi $102 ; 258, cycleCnt
push1
lst temp[$1]
send $c
bnot
lat temp[$0]
ret
Timer::setReal:
link $2
lap param[$2]
sat temp[$1]
lsp param[$0]
ldi $2
gt?
bnt code_02ce
lst temp[$1]
lsp param[$3]
ldi $3c ; 60, '<', b_di
mul
add
sat temp[$1]
code_02ce: lsp param[$0]
ldi $3 ; z
gt?
bnt code_02e0
lst temp[$1]
lsp param[$4]
ldi $e10 ; 3600, BAD SELECTOR
mul
add
sat temp[$1]
code_02e0: pTos -info-
ldi $8000 ; -32768
and
bnt code_02f1
pushi $8d ; 141, new
push0
self $4
bnot
jmp code_02f2
code_02f1: selfID
code_02f2: sat temp[$0]
pushi $94 ; 148, init
push1
lsp param[$1]
pushi $be ; 190, seconds
push1
lst temp[$1]
send $c
bnot
lat temp[$0]
ret
Timer::setTicks:
link $1
pTos -info-
ldi $8000 ; -32768
and
bnt code_0319
pushi $8d ; 141, new
push0
self $4
bnot
jmp code_031a
code_0319: selfID
code_031a: sat temp[$0]
pushi $c0 ; 192, ticks
push1
lsg global[$40]
lap param[$1]
add
push
pushi $94 ; 148, init
push1
lsp param[$2]
lat temp[$0]
send $c
bnot
lat temp[$0]
ret
GlobalTimer::init:
lap param[$1]
aTop client
pushi $9f ; 159, add
push1
pushSelf
class WaitingTimers
send $6
bnot
pushi $99 ; 153, respondsTo
push1
pushi $bc ; 188, timer
lap param[$1]
send $6
bnot
bnt code_0375
pushi $bc ; 188, timer
push0
lap param[$1]
send $4
bnot
bnt code_036b
pushi $95 ; 149, dispose
push0
pushi $bc ; 188, timer
push0
lap param[$1]
send $4
bnot
send $4
bnot
code_036b: pushi $bc ; 188, timer
push1
pushSelf
lap param[$1]
send $6
bnot
code_0375: ret
GlobalTimer::delete:
pTos client
ldi $0
eq?
bnt code_038c
pushi $58 ; 88, 'X', delete
push1
pushSelf
class GlobalTimers
send $6
bnot
push1
pushSelf
callk kernel_11, $2
bnot
code_038c: ret
TO::set:
lap param[$1]
aTop timeLeft
ret
TO::doit:
pToa timeLeft
bnt code_0398
dpToa timeLeft
code_0398: ret

248
Script/Script60025.txt Normal file
View File

@ -0,0 +1,248 @@
export60025_0 = code_0018
export60025_1 = code_0029
export60025_2 = code_0046
export60025_3 = code_0064
export60025_4 = code_0082
export60025_5 = code_00a9
export60025_6 = code_00d3
export60025_7 = code_016b
; export60025_0
code_0018: lsp param[$1]
ldi $0
lt?
bnt code_0023
ldi $ff ; 255, asInteger
jmp code_0028
code_0023: lsp param[$1]
ldi $0
gt?
code_0028: ret
; export60025_1
code_0029: lsp param[$1]
lsp param[$2]
lsp param[$1]
lap param[$2]
div
mul
sub
sap param[$1]
push
ldi $0
lt?
bnt code_0043
lsp param[$1]
lap param[$2]
add
sap param[$1]
code_0043: lap param[$1]
code_0045: ret
; export60025_2
code_0046: link $1
lsp param[$0]
ldi $1
eq?
bt code_005b
lsp param[$1]
push0
&rest $2
call code_0045, $0
bnot
sat temp[$0]
lt?
code_005b: bnt code_0061
lap param[$1]
jmp code_0063
code_0061: lat temp[$0]
code_0063: ret
; export60025_3
code_0064: link $1
lsp param[$0]
ldi $1
eq?
bt code_0079
lsp param[$1]
push0
&rest $2
call code_0063, $0
bnot
sat temp[$0]
gt?
code_0079: bnt code_007f
lap param[$1]
jmp code_0081
code_007f: lat temp[$0]
code_0081: ret
; export60025_4
code_0082: link $1
ldi $0
sat temp[$0]
code_0088: lst temp[$0]
lsp param[$0]
ldi $1
sub
lt?
bnt code_00a6
lsp param[$1]
lat temp[$0]
lapi param[$2]
eq?
bnt code_00a2
lap param[$1]
bt code_00a1
ldi $1
code_00a1: ret
code_00a2: +at temp[$0]
jmp code_0088
code_00a6: ldi $0
ret
; export60025_5
code_00a9: push1
lsp param[$1]
calle export60000_0, $2
bnot
bnt code_00cf
pushi $99 ; 153, respondsTo
push1
lsp param[$2]
lap param[$1]
send $6
bnot
bnt code_00cf
lsp param[$2]
push0
&rest $3 ; z
lap param[$1]
send $4
bnot
ret
jmp code_00d2
code_00cf: ldi $0
ret
code_00d2: ret
; export60025_6
code_00d3: link $2
ldi $0
sat temp[$1]
lag global[$11]
not
bnt code_011f
pushi $d0 ; 208, with
pushi $1a ; 26, signal
pushi $1e ; 30, brRight
pushi $30 ; 48, '0', who
pushi $2e ; 46, '.', max
pushi $20 ; 32, ' ', name
pushi $12 ; 18, nsLeft
pushi $21 ; 33, '!', key
pushi $22 ; 34, '"', time
pushi $23 ; 35, '#', text
pushi $17 ; 23, lsTop
pushi $24 ; 36, '$', elements
pushi $25 ; 37, '%', fore
pushi $26 ; 38, '&', back
pushi $32 ; 50, '2', edit
pushi $31 ; 49, '1', message
pushi $18 ; 24, lsRight
pushi $19 ; 25, lsBottom
pushi $10 ; 16, cel
pushi $13 ; 19, nsTop
pushi $1f ; 31, brBottom
pushi $14 ; 20, nsRight
pushi $16 ; 22, lsLeft
pushi $2f ; 47, '/', mark
pushi $11 ; 17, bitmap
pushi $2d ; 45, '-', cursor
pushi $15 ; 21, nsBottom
pushi $2c ; 44, ',', window
class ByteArray
send $38
bnot
sag global[$11]
code_011f: ldi $0
sat temp[$0]
lsp param[$1]
ldi $ff ; 255, asInteger
lt?
bnt code_014a
pushi $4b ; 75, 'K', at
push1
push1
lsp param[$1]
calle export60027_0, $2
bnot
push
ldi $41 ; 65, 'A', moveSpeed
sub
push
lag global[$11]
send $6
bnot
push
ldi $8 ; fixPriority
shl
sat temp[$1]
jmp code_0168
code_014a: pushi $ae ; 174, indexOf
push1
lsp param[$1]
ldi $8 ; fixPriority
shr
push
lag global[$11]
send $6
bnot
sat temp[$0]
push
ldi $ff ; 255, asInteger
ne?
bnt code_0168
pushi $41 ; 65, 'A', moveSpeed
lat temp[$0]
add
sat temp[$1]
code_0168: lat temp[$1]
ret
; export60025_7
code_016b: link $2
ldi $0
sat temp[$1]
ldi $0
sat temp[$0]
code_0175: lst temp[$0]
ldi $10 ; 16, cel
lt?
bnt code_0190
lst temp[$1]
lsp param[$1]
push1
lat temp[$0]
shl
and
push
ldi $0
gt?
add
sat temp[$1]
+at temp[$0]
jmp code_0175
code_0190: lat temp[$1]
ret