Scripting:Deutsammeln(flotte)

Aus STNE-Wiki

(Unterschied zwischen Versionen)
Wechseln zu: Navigation, Suche
K (...und damit hat der Spaß am Scripten keine halbe Stunde angehalten. Dankeschön, Mr. Scrooge...)
(Das Skript)
Zeile 10: Zeile 10:
  VAR Ticks AS int32
  VAR Ticks AS int32
  freeCargo = Cargoship.Lager.FreieKapazität
  freeCargo = Cargoship.Lager.FreieKapazität
-
  Energi = Tankship.Energie
+
  Energie = Tankship.Energie
  writeline(CStr(freeCargo) & ' Freier Laderaum des Lagerschiffes');
  writeline(CStr(freeCargo) & ' Freier Laderaum des Lagerschiffes');
  writeline('Energie der Tank-Schiffe: ' & CStr(Energi));
  writeline('Energie der Tank-Schiffe: ' & CStr(Energi));
Zeile 19: Zeile 19:
  ELSE
  ELSE
  {
  {
-
   IF(Energi=30)
+
   IF(Energie=30)
   {
   {
     ShipManager.Abdocken();
     ShipManager.Abdocken();
Zeile 28: Zeile 28:
   ELSE
   ELSE
   {
   {
-
     Ticks = ((30 - Energi) / 6)
+
     Ticks = ((30 - Energie) / 6)
-
     writeline('Leider ist noch nicht genügen Energie da, benötigt werden 30 vorhanden ist ' & CStr(Energi) & ' Energie, du musst noch ' & CStr(Ticks) & ' Ticks warten.');
+
     writeline('Leider ist noch nicht genügend Energie da, benötigt werden 30 vorhanden ist ' & CStr(Energie) & ' Energie, du musst noch ' & CStr(Ticks) & ' Ticks warten.');
   }
   }
  }
  }
 +
==Kommentar==
==Kommentar==
Das ganze Skript ist auf Sammeln mit 6 [[Indus]] in einem [[Deuterium-Nebel|dichten Deuteriumnebel]] und das Lagern auf einer [[Antares B]] zugeschnitten,außerdem sollte eine Basisvorhanden sein, über welche die Waren transferiert werden könnnen.<br/>
Das ganze Skript ist auf Sammeln mit 6 [[Indus]] in einem [[Deuterium-Nebel|dichten Deuteriumnebel]] und das Lagern auf einer [[Antares B]] zugeschnitten,außerdem sollte eine Basisvorhanden sein, über welche die Waren transferiert werden könnnen.<br/>

Version vom 30. Dezember 2009, 19:53 Uhr

fertige Scripte | Anleitungen und FAQ | Überblick über die Scripting-Sektion | Hilfen zum Arbeiten im Wiki

Deutsammeln per Flotte

Das Skript

ShipManager.BenutzeFlotte(flottenid);
VAR Cargoship AS NEW CMyShip(Lagerschiff)
VAR Tankship AS NEW CMyShip(Tankschiff)
VAR freeCargo AS int32
VAR Energi AS int32
VAR Ticks AS int32
freeCargo = Cargoship.Lager.FreieKapazität
Energie = Tankship.Energie
writeline(CStr(freeCargo) & ' Freier Laderaum des Lagerschiffes');
writeline('Energie der Tank-Schiffe: ' & CStr(Energi));
IF(freeCargo<900)
{
  writeline('Bitte etwas Lager auf ' & CMyShip.Name & ' Schaffen, das Deuterium kann nicht Transportiert werden!');
}
ELSE
{
  IF(Energie=30)
  {
    ShipManager.Abdocken();
    ShipManager.DeuteriumSammeln(30);
    ShipManager.AndockenAn(264979);
    ShipManager.TransferiereZuSchiff(275244, 150, EBeamRessource.Deuterium);
  }
  ELSE
  {
    Ticks = ((30 - Energie) / 6)
    writeline('Leider ist noch nicht genügend Energie da, benötigt werden 30 vorhanden ist ' & CStr(Energie) & ' Energie, du musst noch ' & CStr(Ticks) & ' Ticks warten.');
  }
}

Kommentar

Das ganze Skript ist auf Sammeln mit 6 Indus in einem dichten Deuteriumnebel und das Lagern auf einer Antares B zugeschnitten,außerdem sollte eine Basisvorhanden sein, über welche die Waren transferiert werden könnnen.
Wenn z.B. mit Sunhawks gesammelt wird musst du

IF(Energi=30)

durch

IF(Energi=40)

ersetzten, außerdem musst du den Wert beim Beamen erhöhen.
Auch musst du den Beam-Wert senken wenn du nur in einem dünnen Deuteriumnebel sammelst.

Achtung: Der Befehl DeuteriumSammeln (und somit das gesamte Script!) kann nur mit Feature-Pack benutzt werden!

Persönliche Werkzeuge