Subscribe to download
Solar Ice Melter

alias silo d5 alias unloader d4 #unloader to get ice into silo define unloaderSorter $41306 #sorter to return non-ices alias volStacker d0 #devices required for volatile melting: define volVent $42C1A #active vent define volSensor $435E4 #gas sensor define vIceSensor $496EA #motion sensor alias ntrStacker d1 #devices required for nitrice melting: define ntrVent $42C1D define ntrSensor $435E1 define nIceSensor $496DF define ntrPipe $43663 #pipe analyzer for condensation line define ntrPump $43237 #pump for condensation line (dont forget the condensation valve) alias h2oStacker d2 #devices required for water melting: define h2oVent $42C4C define h2oSensor $435DF define hIceSensor $496DE define h2oPipe $43666 define h2oPump $431F3 define h2oBackReg $4be8b #used to remove fluid from passive drain alias oxyStacker d3 #devices required for oxite melting: define oxyVent $42C4F define oxySensor $435DD define oIceSensor $496DD define oxyFilter $42FE3 define settleTime 4 #ticks to wait for liquids in condensation chamber to settle out sll r0 NotEquals 8 #pack stack instruction to filter only ices sll r1 SortingClass.Ices 16 or r0 r0 r1 or r0 r0 SorterInstruction.FilterSortingClassCompare putd unloaderSorter 0 r0 alias gasType r15 alias sensor r14 alias iceSensor r13 alias vent r12 alias pipe r10 alias pump r9 alias timeSettled r8 alias ntrSettled r7 alias h2oSettled r6 StartInIdle: l r0 unloader On #select idle or active state sd unloaderSorter On r0 l r0 silo Open s volStacker On r0 s ntrStacker On r0 s h2oStacker On r0 s oxyStacker On r0 sd oxyFilter On r0 sd ntrPipe On r0 sd h2oPipe On r0 beqz r0 Finish #finish if idle HandleVolatiles: move gasType 0 #else handle gasses generically with function move sensor volSensor move iceSensor vIceSensor move vent volVent jal HandleThisIce HandleNitrice: move gasType 1 move sensor ntrSensor move iceSensor nIceSensor move vent ntrVent jal HandleThisIce move pipe ntrPipe move pump ntrPump move timeSettled ntrSettled jal HandleCondensation #ice and nitrice require handling for their condensation lines move ntrSettled timeSettled HandleWater: move gasType 2 move sensor h2oSensor move iceSensor hIceSensor move vent h2oVent jal HandleThisIce move pipe h2oPipe move pump h2oPump move timeSettled h2oSettled jal HandleCondensation move h2oSettled timeSettled ld r0 sensor Pressure sgtz r0 r0 sd h2oBackReg On r0 HandleOxite: move gasType 3 move sensor oxySensor move iceSensor oIceSensor move vent oxyVent jal HandleThisIce ld r0 oxyFilter PressureInput #oxite needs filtration handling sgt r1 r0 20000 sd oxyFilter Mode r1 sgt r0 r0 30000 breqz r0 2 sd vent On 0 Finish: yield j StartInIdle HandleThisIce: ld r0 sensor Pressure #generic function for handling stacker and vent for any ice sgtz r1 r0 sd vent On r1 #enable vent if there are gasses in melting chamber ld r1 iceSensor Activate #iceIsPresent sgt r0 r0 40 #isRoomOverpressure or r0 r0 r1 bnez r0 ra #skip dispense if too much gas or ice in melting chamber alias stacker dr15 s stacker Mode 1 ls r0 stacker 2 Occupied ls r1 stacker 1 Occupied seqz r1 r1 or r0 r0 r1 s stacker Activate r0 j ra HandleCondensation: ld r1 pipe Pressure ld r2 pipe VolumeOfLiquid sgt r3 r1 8000 #isAboveMinPressure seqz r2 r2 #isNoLiquid and r2 r3 r2 add timeSettled timeSettled 1 #increment timer if is settling select timeSettled r2 timeSettled 0 sgt r3 timeSettled settleTime sd pump On r3 blt r1 30000 ra sd vent On 0 j ra