Subscribe to download
Early Martian Air Refinement System

#This script will separate oxygen from the rest of the Martian atmosphere. #It is recommended to use condensation valves to seperate pollutants so that the #remaining mix is nontoxic while the pollutants become a coolant. #It is also recommended to install back-pressure regulators on all the tanks #set below maxKpa so that new gas of any type can always be collected. alias unit db #filtration unit (install chip here) alias sensor d0 alias vent d1 #I used a powered vent to speed up capturing Mars' sparse atmosphere define oxyPump $3b63 #volume pump to fill canister (its faster) define oxyCan $3b67 #canister filler define growlight HASH("StructureGrowLight") define canisterPressure 8000 define maxKpa 15000 define minTemp 265 #ideal growlight timer values for potatoes define darkTicks 400 define totalTicks 1000 alias timer r15 s unit Mode 0 s vent On 0 move timer totalTicks WaitForTemp: jal DoGrowlight l r0 sensor Temperature #start collecting air when its warm enough. This prevents liquid bgt r0 minTemp StartSucking #or even solid CO2 from ruining the pipes, and keeps O2 warm yield j WaitForTemp StartSucking: s vent On 1 s unit Mode 1 KeepSucking: yield jal DoGrowlight l r0 unit TemperatureInput #stop filtration when temp is too low. blt r0 minTemp StopSucking l r0 unit PressureOutput #or stop filtering if any pipe networks are full bgt r0 maxKpa StopSucking l r0 unit PressureOutput2 bgt r0 maxKpa StopSucking l r0 unit PressureInput slt r0 r0 30000 #handle intake vent s vent On r0 j KeepSucking StopSucking: s vent On 0 yield #disable vent, but continue filtering until input is empty jal DoGrowlight l r0 db PressureInput brgtz r0 -3 s db Mode 0 #now resume idle yield j WaitForTemp DoGrowlight: sub timer timer 1 select timer timer timer totalTicks sgt r0 timer darkTicks sb growlight On r0 ld r0 oxyCan Pressure slt r0 r0 canisterPressure sd oxyPump On r0 j ra