Scripting:Duranium Extraktion

Aus STNE-Wiki

--Moax 12:42, 25. Apr 2008 (W. Europe Daylight Time)Duranium Extraktion per Flotte =

Das Skript

// Script zur Extraktion von Duranium aus größeren Trümmerfeldansammlungen bei Unterstützung durch eine energieliefernde Flotte.
//Waren in den Trümmerfeldern werden angezeigt.
// In den Trümmerfeldern vorhandene Rettungskapseln werden auf das Schiff Basis gebeamt, bei dem es sich nicht unbedingt um eine Basis handeln muss.
//In Zeile 5 ist die EPS-Größe des Extraktorschiffes anzugeben, also 30 bei einer Ortygia.
//Das Script bricht ab, wenn der Laderaum des Schiffes voll, keine Energie mehr vorhanden oder kein Duranium mehr zu extrahieren ist.

Var Extraktorschiff As CMyShip = New CMyShip(123456);
Var Energieflotte As CMyFlotte = New CMyFlotte(123456);
Var Basis As CMyShip = New CMyShip(123122);
Var Trümmerfeld As CShip;
Var EPS As Integer = 30; //EPS-Größe des Extraktorschiffes
Var index As Integer;

Energieflotte.Aktion.TransferiereZuSchiff(Extraktorschiff.ShipID, Math.Floor(EPS / Energieflotte.Ships.Count), EBeamRessource.Energie)
For (Each Trümmerfeld In Extraktorschiff.SRS){
 If (Trümmerfeld.UserID = 3 and Trümmerfeld.Hülle > 5 and Extraktorschiff.Energie > 0 and Extraktorschiff.Lager.FreieKapazität > 0){
   For (index = 2 To 31){
     If (Trümmerfeld.Lager.Menge(index) > 0) {
       WriteLine(Trümmerfeld.Name & '(' & Trümmerfeld.ShipID & ') enthält ' & Trümmerfeld.Lager.Menge(index) & ' ' & CWarenInfo.GetName(index));
     }
   }
   If (Trümmerfeld.Lager.Menge(EWarenTyp.Rettungskapseln) > 0){
     Basis.Aktion.TransferiereVonSchiff(Trümmerfeld.ShipID, Trümmerfeld.Lager.Menge(EWarenTyp.Rettungskapseln), EBeamRessource.Rettungskapseln)
   }
   Extraktorschiff.Aktion.TraktorStrahlEinschalten(Trümmerfeld.ShipID);
   extrahieren();
 }
}

Function extrahieren(){
 While (Trümmerfeld.Hülle > 5 and Extraktorschiff.Energie > 0 and Extraktorschiff.Lager.FreieKapazität > 0){
   Extraktorschiff.Aktion.WrackExtraktoren(EPS);
   Energieflotte.Aktion.TransferiereZuSchiff(Extraktorschiff.ShipID, Math.Floor(EPS / Energieflotte.Ships.Count), EBeamRessource.Energie)
 }
}
Extraktorschiff.Aktion.TraktorStrahlAbschalten();

Kommentar

Da das Tug aufgewertet nehmt ein Tug, einfach einen kleinen Träger+Jägerverband mit einen Tug und einen Frachter hinstellen und das Script anwenden. So wird das Duranium voll Automatisch abgebaut.