Scripting:Deutsammeln(flotte)
Aus STNE-Wiki
(Unterschied zwischen Versionen)
Dutop (Diskussion | Beiträge) 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 | ||
| - | + | 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( | + | IF(Energie=30) |
{ | { | ||
ShipManager.Abdocken(); | ShipManager.Abdocken(); | ||
| Zeile 28: | Zeile 28: | ||
ELSE | ELSE | ||
{ | { | ||
| - | Ticks = ((30 - | + | Ticks = ((30 - Energie) / 6) |
| - | writeline('Leider ist noch nicht | + | 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!
