482 lines
6.7 KiB
Plaintext
482 lines
6.7 KiB
Plaintext
Script::doit:
|
|
link $1
|
|
pToa script
|
|
bnt code_00d6
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_00d6: pToa cycles
|
|
bnt code_00e8
|
|
dpToa cycles
|
|
not
|
|
bnt code_0139
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0139
|
|
|
|
code_00e8: pToa seconds
|
|
bnt code_010b
|
|
push1
|
|
push1
|
|
callk kernel_121, $2
|
|
bnot
|
|
sat temp[$0]
|
|
pTos lastSeconds
|
|
ne?
|
|
bnt code_0139
|
|
lat temp[$0]
|
|
aTop lastSeconds
|
|
dpToa seconds
|
|
not
|
|
bnt code_0139
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0139
|
|
|
|
code_010b: pToa ticks
|
|
bnt code_0139
|
|
push
|
|
push1
|
|
lsg global[$40]
|
|
pToa lastTicks
|
|
sub
|
|
push
|
|
callk kernel_61, $2
|
|
bnot
|
|
sub
|
|
aTop ticks
|
|
push
|
|
ldi $0
|
|
le?
|
|
bnt code_0135
|
|
ldi $0
|
|
aTop ticks
|
|
lag global[$40]
|
|
aTop lastTicks
|
|
pushi $c7 ; 199, cue
|
|
push0
|
|
self $4
|
|
bnot
|
|
jmp code_0139
|
|
|
|
code_0135: lag global[$40]
|
|
aTop lastTicks
|
|
code_0139: ret
|
|
|
|
Script::init:
|
|
pToa pRoom
|
|
not
|
|
bnt code_0143
|
|
lag global[$3]
|
|
aTop pRoom
|
|
code_0143: lag global[$40]
|
|
aTop lastTicks
|
|
lsp param[$0]
|
|
ldi $1
|
|
ge?
|
|
bnt code_0170
|
|
pushi $c3 ; 195, script
|
|
push1
|
|
pushSelf
|
|
lap param[$1]
|
|
aTop client
|
|
send $6
|
|
bnot
|
|
lsp param[$0]
|
|
ldi $2
|
|
ge?
|
|
bnt code_0170
|
|
lap param[$2]
|
|
aTop caller
|
|
lsp param[$0]
|
|
ldi $3 ; z
|
|
ge?
|
|
bnt code_0170
|
|
lap param[$3]
|
|
aTop register
|
|
code_0170: pushi $c6 ; 198, changeState
|
|
push1
|
|
pTos start
|
|
self $6
|
|
bnot
|
|
ret
|
|
|
|
Script::dispose:
|
|
link $1
|
|
pToa script
|
|
bnt code_0195
|
|
pushi $95 ; 149, dispose
|
|
push1
|
|
pushi $c4 ; 196, caller
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
selfID
|
|
eq?
|
|
not
|
|
push
|
|
pToa script
|
|
send $6
|
|
bnot
|
|
code_0195: pToa timer
|
|
bnt code_01a0
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_01a0: pToa client
|
|
bnt code_01f6
|
|
pushi $c3 ; 195, script
|
|
push0
|
|
send $4
|
|
bnot
|
|
push
|
|
selfID
|
|
eq?
|
|
bnt code_01f6
|
|
pushi $c3 ; 195, script
|
|
push1
|
|
pToa next
|
|
bnt code_01ba
|
|
jmp code_01c8
|
|
|
|
code_01ba: pToa number
|
|
bnt code_01c6
|
|
push1
|
|
push
|
|
callk kernel_2, $2
|
|
bnot
|
|
jmp code_01c8
|
|
|
|
code_01c6: ldi $0
|
|
code_01c8: sat temp[$0]
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
not
|
|
bnt code_01d9
|
|
ldi $0
|
|
jmp code_01f6
|
|
|
|
code_01d9: lsg global[$36]
|
|
lag global[$34]
|
|
eq?
|
|
bnt code_01ed
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pTos client
|
|
lat temp[$0]
|
|
send $6
|
|
bnot
|
|
jmp code_01f6
|
|
|
|
code_01ed: pushi $95 ; 149, dispose
|
|
push0
|
|
lat temp[$0]
|
|
send $4
|
|
bnot
|
|
code_01f6: push1
|
|
pTos caller
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_027b
|
|
lsg global[$36]
|
|
lag global[$34]
|
|
eq?
|
|
bnt code_027b
|
|
lap param[$0]
|
|
not
|
|
bt code_0215
|
|
lsp param[$1]
|
|
ldi $1
|
|
eq?
|
|
code_0215: bnt code_027b
|
|
pToa pRoom
|
|
bnt code_0270
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0270
|
|
push1
|
|
pushi $ca ; 202, pCuees
|
|
push0
|
|
pToa pRoom
|
|
send $4
|
|
bnot
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0270
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $c2 ; 194, register
|
|
push1
|
|
pTos register
|
|
pushi $cb ; 203, cuee
|
|
push1
|
|
pTos caller
|
|
pushi $cc ; 204, cuer
|
|
push1
|
|
pushSelf
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa Cue
|
|
send $4
|
|
bnot
|
|
send $16
|
|
bnot
|
|
push
|
|
pushi $ca ; 202, pCuees
|
|
push0
|
|
pToa pRoom
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
jmp code_027b
|
|
|
|
code_0270: pushi $c7 ; 199, cue
|
|
push1
|
|
pTos register
|
|
pToa caller
|
|
send $6
|
|
bnot
|
|
code_027b: ldi $0
|
|
aTop caller
|
|
aTop number
|
|
aTop next
|
|
aTop client
|
|
aTop timer
|
|
aTop script
|
|
aTop ticks
|
|
aTop cycles
|
|
aTop seconds
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
Script::changeState:
|
|
lap param[$1]
|
|
aTop state
|
|
ret
|
|
|
|
Script::cue:
|
|
link $1
|
|
pToa pRoom
|
|
bnt code_02f4
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_02f4
|
|
lsg global[$3]
|
|
pToa pRoom
|
|
ne?
|
|
bnt code_02f4
|
|
lag global[$3]
|
|
sat temp[$0]
|
|
pToa pRoom
|
|
sag global[$3]
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushi $c2 ; 194, register
|
|
push1
|
|
pTos register
|
|
pushi $cb ; 203, cuee
|
|
push1
|
|
pushSelf
|
|
pushi $cc ; 204, cuer
|
|
push1
|
|
pushSelf
|
|
pushi $9a ; 154, yourself
|
|
push0
|
|
pushi $8d ; 141, new
|
|
push0
|
|
lofsa Cue
|
|
send $4
|
|
bnot
|
|
send $16
|
|
bnot
|
|
push
|
|
pushi $ca ; 202, pCuees
|
|
push0
|
|
pToa pRoom
|
|
send $4
|
|
bnot
|
|
send $6
|
|
bnot
|
|
lat temp[$0]
|
|
sag global[$3]
|
|
ret
|
|
|
|
code_02f4: pToa client
|
|
bnt code_030b
|
|
lag global[$40]
|
|
aTop lastTicks
|
|
pushi $c6 ; 198, changeState
|
|
push1
|
|
pTos state
|
|
ldi $1
|
|
add
|
|
push
|
|
&rest $1
|
|
self $6
|
|
bnot
|
|
code_030b: ret
|
|
|
|
Script::setScript:
|
|
pToa script
|
|
bnt code_0317
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
send $4
|
|
bnot
|
|
code_0317: lap param[$1]
|
|
bnt code_0325
|
|
pushi $94 ; 148, init
|
|
push1
|
|
pushSelf
|
|
&rest $2
|
|
send $6
|
|
bnot
|
|
code_0325: ret
|
|
|
|
Script::handleEvent:
|
|
pToa script
|
|
bnt code_0333
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
send $6
|
|
bnot
|
|
code_0333: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|
|
DemonsScript::init:
|
|
pushi $cd ; 205, pDemons
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
aTop client
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
pushi $94 ; 148, init
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
DemonsScript::dispose:
|
|
pToa client
|
|
bnt code_0382
|
|
push1
|
|
push
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_0382
|
|
pushi $97 ; 151, isKindOf
|
|
push1
|
|
class List
|
|
push
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
bnt code_0382
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
pToa client
|
|
send $6
|
|
bnot
|
|
code_0382: ldi $0
|
|
aTop client
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Script, $4
|
|
bnot
|
|
ret
|
|
|
|
Cue::dispose:
|
|
pToa pList
|
|
bnt code_039c
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
code_039c: pushi $95 ; 149, dispose
|
|
push0
|
|
&rest $1
|
|
super Obj, $4
|
|
bnot
|
|
ret
|
|
|
|
Cue::handleError:
|
|
lsp param[$1]
|
|
pToa cuee
|
|
eq?
|
|
bnt code_03b5
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_03b5: ret
|
|
|
|
Cue::doit:
|
|
pToa pList
|
|
bnt code_03ef
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
send $6
|
|
bnot
|
|
push1
|
|
pTos cuee
|
|
calle export60000_0, $2
|
|
bnot
|
|
bnt code_03e8
|
|
pushi $99 ; 153, respondsTo
|
|
push1
|
|
pushi $c7 ; 199, cue
|
|
pToa cuee
|
|
send $6
|
|
bnot
|
|
bnt code_03e8
|
|
pushi $c7 ; 199, cue
|
|
push2
|
|
pTos register
|
|
pTos cuer
|
|
pToa cuee
|
|
send $8
|
|
bnot
|
|
code_03e8: pushi $95 ; 149, dispose
|
|
push0
|
|
self $4
|
|
bnot
|
|
code_03ef: ret
|
|
|