# manage the downstream products of H2 combuster operation, revolving around chilling and 

alias watersensor d0
alias waterpump d1
alias gassensor d3
alias gaspump d4

alias chilleron r15
alias chillerage r14

start:
yield

bdns watersensor overwater

l r0 watersensor Temperature
slt r1 r0 310
s waterpump On r1
sge chilleron r0 310
jal managechiller

overwater:

bdns gassensor overgas

l r0 gassensor Temperature
slt r1 r0 310
s gaspump On r1

overgas:

j start


managechiller:
# use Mars atmosphere to cool the water

add chillerage chillerage 1
select chillerage chilleron chillerage 0

div r0 chillerage 10
mod r0 r0 1
s db Setting r0
slt r0 r0 0.85 # if we want the chiller on, purge the coolant 1/3 of the duty cycle
select chilleron r0 chilleron 0

sgtz r0 chilleron
slez r1 chilleron
sbn HASH("StructureBackPressureRegulator") HASH("chiller purge") On r1
sbn HASH("ItemPipeDigitalValve") HASH("chiller valve") On r0
sbn HASH("StructureActiveVent") HASH("chiller fill") On 1
sbn HASH("StructureActiveVent") HASH("chiller fill") PressureInternal 500 #carbon dioxide 
sbn HASH("StructureActiveVent") HASH("chiller fill") Mode r0

j ra