alias recycler d0
alias arcfurnace d1
alias sensor d2
alias centrifuge d3
alias centrifuge2 d4

alias recyclerState r15
alias recyclerImportQuantity r14
alias recyclerExportQuantity r13
alias generatorfeedstate r12

define GFEMPTY 1
define GFFED 2
define GFON 3
define MAXPRESSURE 10

move generatorfeedstate GFEMPTY
move recyclerState 0

start:

ls recyclerImportQuantity recycler 0 Quantity
sgtz r0 recyclerImportQuantity
blez r0 nothingtorecycle
move recyclerState 1
s recycler On r0
nothingtorecycle:

ls recyclerExportQuantity recycler 1 Quantity
sgtz r0 recyclerExportQuantity
blez r0 nothingtoexportrecycle
move recyclerState 1
nothingtoexportrecycle:
add recyclerState recyclerState 1

ble recyclerState 20 recyclerOperating
s recycler On 0
move recyclerState 0
recyclerOperating:

bdns centrifuge aftercentrifuge
ls r0 centrifuge 0 Occupied
s centrifuge On r0
seqz r0 r0
l r1 centrifuge Reagents
sge r1 r1 100
or r0 r0 r1
s centrifuge Open r0

aftercentrifuge:

bdns centrifuge2 aftercentrifuge2
ls r0 centrifuge2 0 Occupied
s centrifuge2 On r0
seqz r0 r0
l r1 centrifuge2 Reagents
sge r1 r1 100
or r0 r0 r1
s centrifuge2 Open r0

aftercentrifuge2:

#l r0 arcfurnace ImportCount
#l r1 arcfurnace ExportCount
#sgt r0 r0 r1
ls r0 arcfurnace 0 Occupied
s db Setting r0
snez r0 r0

bdns sensor nosensor

l r1 sensor Pressure
slt r1 r1 MAXPRESSURE
and r0 r0 r1
#s db Setting r0

nosensor:
s arcfurnace Activate r0
#

yield
j start