18 lines
311 B
Plaintext
18 lines
311 B
Plaintext
|
alias furnace d0
|
||
|
|
||
|
alias import_occupied r0
|
||
|
alias active r1
|
||
|
alias run_furnace r2
|
||
|
|
||
|
start:
|
||
|
yield
|
||
|
ls import_occupied furnace 0 Occupied
|
||
|
l active furnace Activate
|
||
|
xor run_furnace import_occupied active
|
||
|
bgtz run_furnace run
|
||
|
j start
|
||
|
|
||
|
run:
|
||
|
bgtz active start # already running = go to start
|
||
|
s furnace Activate 1
|
||
|
j start
|