alias atmossensor d0
alias pipesensor d1
alias purgevent d2
alias pump d3 #probably a backpressure regulator
alias heater d4
alias liquidsensor d5 # probably a storage tank

alias poweredventon r15
alias activeventon r14
alias purgeventon r13

start:

l r0 pipesensor RatioOxygen
l r1 pipesensor RatioNitrogen
add r0 r0 r1
sgt r1 r0 0.99
l r0 pipesensor VolumeOfLiquid
slez r2 r0
and r0 r1 r2
s pump On r0

l r0 liquidsensor Temperature
slt r0 r0 225
s heater On r0

l r0 atmossensor Temperature
sge purgeventon r0 255
blt r0 225 harvest #cold enough to liquify CO2 and pollutant

daytime:
l r0 liquidsensor Temperature
sgt r0 r0 220 # don't depressurize too much, or it will freeze
move purgeventon r0
move poweredventon 0
move activeventon 0

j setpumps

harvest:

l r0 pipesensor Pressure
slt r9 r0 45000
l r0 pipesensor Volume
l r1 pipesensor VolumeOfLiquid
div r0 r1 r0
slt r8 r0 0.003
and poweredventon r8 r9
slt r8 r0 0.004
and activeventon r8 r9
move purgeventon 0

setpumps:

sb HASH("StructurePoweredVent") On poweredventon
sb HASH("StructureActiveVent") On activeventon
s purgevent On purgeventon

j start