Scripting:Duranium Extraktion

--[[Spieler:Moax|Moax]] 12:42, 25. Apr 2008 (W. Europe Daylight Time)Duranium Extraktion per Flotte =
=Duranium Extraktion=
==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. 

 [[Kategorie:Scripte|Duranium Extraktion]]