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