starbase autopower mineeps

-------------------------------------------------------
//WARNINGS 1
if :TotalRods<1000000 then :TRod=0 goto 5  end
if :TotalRods<3000000 then :TRod=1 goto 5 end
if :TotalRods<6000000 then :TRod=2 goto 5 end
if :TotalBatteries<25000 then :TBat=0 goto 8 end
if :TotalBatteries<50000 then :TBat=1 goto 8 end
if :TotalBatteries<100000 then :TBat=2 goto 8 end
if :RadiationRate<50 then :RRate=2 goto 11 end
if :RadiationRate<75 then :RRate=1 goto 11 end
if :RadiationRate<100 then :RRate=0 goto 11 end
goto1
-------------------------------------------------------
//WARNINGS 2
if :GeneratedPower<5000 then :GP=0 goto 2  end
if :GeneratedPower<9800 then :GP=1 goto 2  end
if :GeneratedPower>9800 then :GP=2 goto 2  end
goto 2
-------------------------------------------------------
if :AutoPower==1 then :GURL=:MinEPS+(10000-:Bat)/100 end goto 1
-------------------------------------------------------
:TotalBatteries=:Bat*16 :TotalPropellant=(:Propellant1+:Propellant2)*2
TR=:Rod1+:Rod2+:Rod3+:Rod4+:Rod5+:Rod6+:Rod7+:Rod8+:Rod9+:Rod10
:TotalRods=TR*2 :GeneratedPower=:GRATE1*100+:GRATE2*100 
:CurrentThrust=(:Th1+:Th2+:Th3+:Th4+:Th5+:Th6+:Th7+:Th8)/8 goto 1
-------------------------------------------------------
chk=0 //AutoTank Propellant Switcher
if :AutoTank!=1 then chk=0 goto 2 end
if chk==0 then goto 4 end else goto 5 end
:Tank1=1 :Tank2=0 :Tank3=0 :Tank4=0 :Tank5=0 :Tank6=0 cur=1 chk=1
if :Propellant1<50000 and :Tank1==1 then goto 6 end else goto 7 end
:Tank1=0 :Tank2=1 :Tank3=0 :Tank4=0 :Tank5=0 :Tank6=0 cur=2
if :Propellant2<50000 and :Tank2==1 then goto 8 end else goto 9 end
:Tank1=0 :Tank2=0 :Tank3=1 :Tank4=0 :Tank5=0 :Tank6=0 cur=3
if :Propellant3<50000 and :Tank3==1 then goto 10 end else goto 11 end
:Tank1=0 :Tank2=0 :Tank3=0 :Tank4=1 :Tank5=0 :Tank6=0 cur=4
if :Propellant4<50000 and :Tank4==1 then goto 12 end else goto 13 end
:Tank1=0 :Tank2=0 :Tank3=0 :Tank4=0 :Tank5=1 :Tank6=0 cur=5
if :Propellant5<50000 and :Tank5==1 then goto 14 end else goto 15 end
:Tank1=0 :Tank2=0 :Tank3=0 :Tank4=0 :Tank5=0 :Tank6=1 cur=6
if cur==1 then :CurrentTank=:Propellant1*4 end
if cur==2 then :CurrentTank=:Propellant2*4 end
if cur==3 then :CurrentTank=:Propellant3*4 end
if cur==4 then :CurrentTank=:Propellant4*4 end
if cur==5 then :CurrentTank=:Propellant5*4 end
if cur==6 then :CurrentTank=:Propellant6*4 end goto 2
-------------------------------------------------------
-------------------------------------------------------
-------------------------------------------------------
-------------------------------------------------------
-------------------------------------------------------