alias valve d0
alias sensor d1
alias cooledvent d2 # vent that harvests the cooled (not coolant) gas

define MAXTEMP 290
define VENTHASH HASH("StructureActiveVent")
define PUMPHASH HASH("StructureVolumePump")

start:
yield

l r0 sensor Temperature
slt r1 r0 MAXTEMP
sgt r2 r0 MAXTEMP

bdns valve skipvalve
s valve On r1
skipvalve:

sb PUMPHASH On r2

bdns cooledvent ventsharvestcoolant

# the cooledvent device harvests gas to be cooled, not the coolant.
# coolant must come from one of the pumps
s cooledvent Mode 1
s cooledvent PressureInternal 1000
s cooledvent On 1
j over

ventsharvestcoolant:
sb VENTHASH On r2
sb VENTHASH PressureInternal 18000

over:

j start