21 lines
346 B
Plaintext
21 lines
346 B
Plaintext
# It needs an Arc Furnace, that's all!
|
|
|
|
alias Furnace d0
|
|
|
|
alias ImportOccupied r0
|
|
alias Active r1
|
|
alias RunFurnace r2
|
|
|
|
start:
|
|
yield
|
|
ls ImportOccupied Furnace 0 Occupied
|
|
l Active Furnace Activate
|
|
xor RunFurnace ImportOccupied Active
|
|
bgtz RunFurnace run
|
|
j start
|
|
|
|
run:
|
|
bgtz Active start # already running = go to start
|
|
s Furnace Activate 1
|
|
j start
|