Subscribe to download
Solar Ice Melter - Storage Handler

alias silo d0 alias iceSelector d1 #this is a sorter that will filter ices only to empty stackers alias volStacker d2 #these are the stackers that push ice into the melting chamber alias ntrStacker d3 alias h2oStacker d4 alias oxyStacker d5 define volSplitter $4120F #these are chute splitters to direct filtered ices define ntrSplitter $41211 #NOTE: they must be in this order, with oxite at the end define iceSplitter $41213 define iceSendTime 3 #number of seconds to wait for ice to reach stacker alias requestHash r15 alias target r14 push HASH("ItemVolatiles") #fill stack with ice types push HASH("ItemNitrice") push HASH("ItemIce") push HASH("ItemOxite") s iceSelector Mode 1 s volStacker Setting 50 s ntrStacker Setting 50 s h2oStacker Setting 50 s oxyStacker Setting 50 HandleDispensing: clr iceSelector l r0 silo Open sd volSplitter On r0 sd ntrSplitter On r0 sd iceSplitter On r0 beqz r0 Finish #finish if off ls r0 iceSelector 0 Occupied beqz r0 Finish #or finish if no ice passing through ls requestHash iceSelector 0 OccupantHash #else distribute ice if stacker empty move sp 4 pop target beq requestHash target CheckDistribute brgtz sp -2 Finish: yield j HandleDispensing CheckDistribute: add r0 sp 2 #if any of the stackers slots are occupied, it is considered full alias stacker dr0 ls r0 stacker 0 Occupied ls r1 stacker 1 Occupied ls r2 stacker 2 Occupied or r0 r0 r1 or r0 r0 r2 bnez r0 Finish sll r0 requestHash 8 #if the stacker is empty, pack a stack instruction for the sorter or r0 SorterInstruction.FilterPrefabHashEquals r0 put iceSelector 0 r0 sd volSplitter Mode 0 #start with oxite routing mode sd ntrSplitter Mode 0 sd iceSplitter Mode 0 beq sp 3 Route #select mode based on ice type selected on stack beq sp 2 RouteIce beq sp 1 RouteNtr sd volSplitter Mode 1 #else RouteVol j Route RouteIce: sd iceSplitter Mode 1 j Route RouteNtr: sd ntrSplitter Mode 1 Route: yield #allow ice to deliver clr iceSelector yield sleep iceSendTime j HandleDispensing