[lisnaz] Centrifuge Auto RPM Ctl

Full auto management, support multiple centrifuges.​ - This code use stack to trace every of your centrifuge status. - Doesn't matter which fuel type you use. - Change to suit your needs of centrifuge names between line 13-25. - CentrifugeStopPurgeRemainingReagents at line 3 is a safegard value to prevent centrifuge from stuck by not ejecting fractional reagents, change the number to you like if you want. define SCC HASH("StructureCombustionCentrifuge") define CentrifugeStopPurgeRemainingReagents 10 alias entryCount r15 alias throttle r14 alias limiter r13 alias rpm r12 alias stress r11 alias lastStress r10 clr db move sp 0 push HASH("Ore Processing Combustion Centrifuge 1") add sp sp 1 # last stress add sp sp 1 # status field, 0: running, 1:resuming, 2: stopping, 3:purging push HASH("Ore Processing Combustion Centrifuge 2") add sp sp 2 push HASH("Ore Processing Combustion Centrifuge 3") add sp sp 2 push HASH("Ore Processing Combustion Centrifuge 4") add sp sp 2 push HASH("Ore Processing Combustion Centrifuge 5") add sp sp 2 move entryCount sp mainLoop: jal Centrifuges sleep 3 j mainLoop Centrifuges: move sp 0 CentrifugesLoop: div sp sp 3 ceil sp sp mul sp sp 3 beq sp entryCount ra add sp sp 1 peek r0 # centrifuge lbn r1 SCC r0 ReferenceId Maximum ble r1 ninf CentrifugesLoop # skip if not exist lbn throttle SCC r0 Throttle Maximum add sp sp 1 peek lastStress add sp sp 1 peek r1 # status beq r1 1 CentrifugesResumeLoop beq r1 2 CentrifugesStopping beq r1 3 CentrifugesPurging lbn r1 SCC r0 Error Maximum bgtz r1 CentrifugesStop blt throttle 100 CentrifugesResume j CentrifugesLoop CentrifugesStop: sub r2 sp 1 put db r2 2 sbn SCC r0 On 0 yield sbn SCC r0 Throttle 0 sbn SCC r0 CombustionLimiter 0 j CentrifugesLoop CentrifugesStopping: lbn r2 SCC r0 Rpm Maximum bgt r2 0 CentrifugesLoop CentrifugesPurge: sbn SCC r0 Open 1 sub r2 sp 1 put db r2 3 j CentrifugesLoop CentrifugesPurging: lbn r2 SCC r0 Reagents Maximum bge r2 CentrifugeStopPurgeRemainingReagents CentrifugesLoop Ce