alias battery d0

alias batteryfrac r15
alias minfrac r14
alias run r13
alias apcName r12
alias levelAdj r11
alias tankFrac r10

start:

alias tankO d4
alias tankV d5

yield

l batteryfrac battery Setting

#s db Setting batteryfrac

move apcName HASH("APC O2 liquification a")
alias tank d4
move levelAdj 0.0
jal manage_tank

move apcName HASH("APC O2 liquification b")
alias tank d4
add levelAdj levelAdj 0.05
jal manage_tank

move apcName HASH("APC O2 liquification c")
alias tank d4
add levelAdj levelAdj 0.05
jal manage_tank

move levelAdj 0

move apcName HASH("APC vol liquification a")
alias tank d5
jal manage_tank

move apcName HASH("APC vol liquification b")
alias tank d5
add levelAdj levelAdj 0.05
jal manage_tank

move apcName HASH("APC N2 liquification")
alias tank d3
move levelAdj 0
jal manage_tank

j start

manage_tank:

bdns tank ra
l r0 tank Volume
l r1 tank VolumeOfLiquid
div tankFrac r1 r0

# goal batteryfrac(tankFrac=0.0) = 0.5; batteryfrac(tankFrac=0.5) = 1.0
add minfrac tankFrac 0.5
add minfrac minfrac levelAdj

lbn r0 HASH("StructureAreaPowerControl") apcName On Sum
mul r0 0.01 r0
sub minfrac minfrac r0

sgt run batteryfrac minfrac
s db Setting minfrac
sbn HASH("StructureAreaPowerControl") apcName On run
sbn HASH("StructureAreaPowerControlReversed") apcName On run

j ra