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

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 nocentrifuge
ls r0 centrifuge 0 Occupied
s centrifuge On r0

nocentrifuge:

#l r0 arcfurnace ImportCount
#l r1 arcfurnace ExportCount
#sgt r0 r0 r1
l r0 arcfurnace RecipeHash
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