193 lines
2.6 KiB
Plaintext
193 lines
2.6 KiB
Plaintext
Ego::init:
|
|
pushi $94 ; 148, init
|
|
push0
|
|
super Act, $4
|
|
bnot
|
|
pToa cycler
|
|
not
|
|
bnt code_00cb
|
|
pushi $105 ; 261, setCycle
|
|
push1
|
|
class Walk
|
|
push
|
|
self $6
|
|
bnot
|
|
code_00cb: pTos state
|
|
ldi $1
|
|
or
|
|
aTop state
|
|
pushi $9f ; 159, add
|
|
push1
|
|
pushSelf
|
|
lag global[$29]
|
|
send $6
|
|
bnot
|
|
ret
|
|
|
|
Ego::dispose:
|
|
pushi $58 ; 88, 'X', delete
|
|
push1
|
|
pushSelf
|
|
lag global[$29]
|
|
send $6
|
|
bnot
|
|
pushi $95 ; 149, dispose
|
|
push0
|
|
super Act, $4
|
|
bnot
|
|
ret
|
|
|
|
Ego::doit:
|
|
pushi $45 ; 69, 'E', doit
|
|
push0
|
|
super Act, $4
|
|
bnot
|
|
pTos x
|
|
ldi $0
|
|
le?
|
|
bnt code_0101
|
|
ldi $4 ; scaleX
|
|
jmp code_012d
|
|
|
|
code_0101: pTos y
|
|
pushi $1ae ; 430, horizon
|
|
push0
|
|
lag global[$3]
|
|
send $4
|
|
bnot
|
|
le?
|
|
bnt code_0113
|
|
ldi $1
|
|
jmp code_012d
|
|
|
|
code_0113: pTos x
|
|
ldi $13f ; 319, putString
|
|
ge?
|
|
bnt code_011f
|
|
ldi $2
|
|
jmp code_012d
|
|
|
|
code_011f: pTos y
|
|
ldi $bd ; 189, cycles
|
|
ge?
|
|
bnt code_012b
|
|
ldi $3 ; z
|
|
jmp code_012d
|
|
|
|
code_012b: ldi $0
|
|
code_012d: aTop edgeHit
|
|
ret
|
|
|
|
Ego::handleEvent:
|
|
link $1
|
|
pushi $c8 ; 200, handleEvent
|
|
push1
|
|
lsp param[$1]
|
|
super Act, $6
|
|
bnot
|
|
bnt code_0143
|
|
ldi $0
|
|
jmp code_01dd
|
|
|
|
code_0143: pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $4000 ; 16384
|
|
and
|
|
bnt code_0193
|
|
pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $1000 ; 4096, -objID-
|
|
and
|
|
bnt code_01dd
|
|
pushi $15c ; 348, setMotion
|
|
pushi $3 ; z
|
|
class MoveTo
|
|
push
|
|
push1
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
push2
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
self $a
|
|
bnot
|
|
pushi $1b0 ; 432, prevDir
|
|
push1
|
|
push0
|
|
lag global[$e]
|
|
send $6
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
jmp code_01dd
|
|
|
|
code_0193: pushi $2b ; 43, '+', type
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
push
|
|
ldi $10 ; 16, cel
|
|
and
|
|
bnt code_01dd
|
|
pushi $31 ; 49, '1', message
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
sat temp[$0]
|
|
push
|
|
pushi $1b0 ; 432, prevDir
|
|
push0
|
|
lag global[$e]
|
|
send $4
|
|
bnot
|
|
eq?
|
|
bnt code_01c0
|
|
pToa mover
|
|
bnt code_01c0
|
|
ldi $0
|
|
sat temp[$0]
|
|
code_01c0: pushi $1b0 ; 432, prevDir
|
|
push1
|
|
lst temp[$0]
|
|
lag global[$e]
|
|
send $6
|
|
bnot
|
|
pushi $1aa ; 426, setDirection
|
|
push1
|
|
lst temp[$0]
|
|
self $6
|
|
bnot
|
|
pushi $50 ; 80, 'P', claimed
|
|
push1
|
|
push1
|
|
lap param[$1]
|
|
send $6
|
|
bnot
|
|
code_01dd: pushi $50 ; 80, 'P', claimed
|
|
push0
|
|
lap param[$1]
|
|
send $4
|
|
bnot
|
|
ret
|
|
|