alias sensor d0
alias atmosphere d1

alias liquidVolume r15
alias pressure r14
alias fudge r13
alias temperature r12
alias volume r11

define MAXPRESSURE 40000
define MAXLIQUID 10
define MAXTEMPERATURE 270
define HASHTANK 272136332
define HASHVENT -1129453144

start:
yield

bdns sensor batch

l liquidVolume sensor VolumeOfLiquid
l pressure sensor Pressure
l volume sensor Volume

j logic

batch:

lb liquidVolume HASHTANK VolumeOfLiquid 3
lb pressure HASHTANK Pressure 0

logic:

sub pressure pressure fudge
#s db Setting pressure

div r0 liquidVolume volume
mul r0 r0 10000
s db Setting r0
slt r0 liquidVolume MAXLIQUID
slt r1 pressure MAXPRESSURE
and r0 r1 r0

bdns atmosphere noatmos

l temperature atmosphere Temperature
slt r1 temperature MAXTEMPERATURE
and r0 r1 r0

noatmos:

sb HASHVENT On r0
sb HASHVENT Mode 1

select fudge r0 500 0
j start