alias stacker d5
alias batteryfrac d4
alias reagents r15

define MAXREAGENTS 390
define MINPOWERFRAC 0.65

alias powerminer r15

start:
alias centrifuge1 d0
alias centrifuge2 d1
yield

jal managepower

alias centrifuge d0
jal maybeunload

alias centrifuge d1
jal maybeunload

j start

#

maybeunload:

bdns centrifuge ra

l r0 centrifuge On
l reagents centrifuge Reagents

bnez r0 running
# powered off

bgt reagents 20 unload
ls r0 centrifuge 0 Quantity
bnez r0 spinup
#empty, nothing to load
s centrifuge On 0
j ra

spinup:
# empty, spin up
s centrifuge Open 0
s centrifuge On 1
#s db Setting -3
j ra

unload:
s centrifuge Open 1
#s db Setting -4
j ra

running:

slt r0 reagents MAXREAGENTS
ls r1 centrifuge 0 Quantity
snez r1 r1
and r0 r0 r1
s centrifuge On r0
#s db Setting r1
j ra

managepower:

bdns stacker ra
ls r0 stacker 1 Occupied

seqz powerminer r0

bdns batteryfrac nofrac

lb r2 HASH("StructureDeepMiner") On Maximum
mul r2 r2 0.02
l r1 batteryfrac Setting
add r1 r1 r2
sgt r1 r1 MINPOWERFRAC
and powerminer r1 powerminer

nofrac:

s db Setting powerminer
sb HASH("StructureDeepMiner") On powerminer

j ra