Scripting Diskussion:Flotten

Aus STNE-Wiki

(Unterschied zwischen Versionen)
Wechseln zu: Navigation, Suche
 
(Der Versionsvergleich bezieht 3 dazwischenliegende Versionen mit ein.)
Zeile 1: Zeile 1:
Ich möchte wetten dass du den Soruce nicht einmal selber getestet hast, es gibt schwere Syntaxfehler im Code.
Ich möchte wetten dass du den Soruce nicht einmal selber getestet hast, es gibt schwere Syntaxfehler im Code.
[[Spieler:Arakis|Arakis]] 11:52, 29. Jul 2006 (W. Europe Daylight Time)
[[Spieler:Arakis|Arakis]] 11:52, 29. Jul 2006 (W. Europe Daylight Time)
 +
----
 +
Ein weiterer Warpkernaufladescript von einem Kollegen von mir :)
 +
Grüße [[Spieler:Xenon|Xenon]] 20:55, 30. Jul 2006 (W. Europe Daylight Time)
 +
<pre>
 +
// 12.06.2006 by Death (24012)
 +
//
 +
// Script zum aufladen der Warpkerne einer Flotte.
 +
//
 +
//
 +
// Start Konfiguration:
 +
//
 +
// Die ID der Kolonie in deren Orbit die Flotte ist
 +
 +
VAR PlanetID AS integer = 1111
 +
 +
//Die ID der Basis im Orbit der Kolonie (0 für keine)
 +
 +
VAR BasisID AS integer = 1111
 +
 +
// Die ID der Flotte deren Warpkerne aufgetankt werden sollen.
 +
 +
VAR FlotteID AS integer = 1111
 +
 +
//
 +
// Ende Konfiguration:
 +
//
 +
//
 +
// Ab hier bitte keine Änderungen vornehmen.
 +
//
 +
VAR Flotte AS NEW CMyFlotte(FlotteID)
 +
VAR Schiffe AS CShipList = Flotte.Ships
 +
VAR ShipEnum AS IEnumerator = Schiffe.GetEnumerator()
 +
VAR i AS integer
 +
VAR Ship AS CMyShip
 +
VAR sl AS CLager
 +
WHILE( ShipEnum.MoveNext() )
 +
{
 +
Ship = ShipEnum.Current
 +
ShipManager.BenutzeSchiff(Ship.ShipID)
 +
IF( BasisID > 0 )
 +
{
 +
ShipManager.AndockenAn(BasisID)
 +
}
 +
IF( (Ship.Warpkern < 951) AND (Ship.AngedocktAnID = BasisID) )
 +
{
 +
i = 0
 +
WHILE( (Ship.Warpkern < 951) AND (i < 20) )
 +
{
 +
ShipManager.TransferiereVonKolonie(PlanetID, 20,
 +
EBeamRessource.Deuterium)
 +
ShipManager.TransferiereVonKolonie(PlanetID, 10,
 +
EBeamRessource.Dilithium)
 +
ShipManager.TransferiereVonKolonie(PlanetID, 20,
 +
EBeamRessource.Antimaterie)
 +
ShipManager.WarpkernNachfüllen(500)
 +
i = i + 1
 +
}
 +
 +
IF( (Ship.Lager.Menge( EWarenTyp.Deuterium ) <= 20) AND
 +
    (Ship.Lager.Menge( EWarenTyp.Dilithium ) <= 10) AND
 +
    (Ship.Lager.Menge( EWarenTyp.Antimaterie ) <= 20) )
 +
{
 +
ShipManager.TransferiereZuKolonie(PlanetID, 20,
 +
EBeamRessource.Deuterium)
 +
ShipManager.TransferiereZuKolonie(PlanetID, 10,
 +
EBeamRessource.Dilithium)
 +
ShipManager.TransferiereZuKolonie(PlanetID, 20,
 +
EBeamRessource.Antimaterie)
 +
}
 +
}
 +
IF( BasisID > 0 )
 +
{
 +
ShipManager.Abdocken()
 +
}
 +
}</pre>
 +
 +
----
 +
Sry Arakis, du hattest Recht, ich hatte wirklich eine Fehler drinne *schäm*. Wird nicht wieder vorkommen. --[[Spieler:Stryke|Stryke]] 20:58, 30. Jul 2006 (W. Europe Daylight Time)

Aktuelle Version vom 30. Juli 2006, 18:58 Uhr

Ich möchte wetten dass du den Soruce nicht einmal selber getestet hast, es gibt schwere Syntaxfehler im Code. Arakis 11:52, 29. Jul 2006 (W. Europe Daylight Time)


Ein weiterer Warpkernaufladescript von einem Kollegen von mir :) Grüße Xenon 20:55, 30. Jul 2006 (W. Europe Daylight Time)

// 12.06.2006 by Death (24012)
//
// Script zum aufladen der Warpkerne einer Flotte.
//
//
// Start Konfiguration:
//
// Die ID der Kolonie in deren Orbit die Flotte ist

VAR PlanetID AS integer = 1111

//Die ID der Basis im Orbit der Kolonie (0 für keine)

VAR BasisID AS integer = 1111

// Die ID der Flotte deren Warpkerne aufgetankt werden sollen.

VAR FlotteID AS integer = 1111

//
// Ende Konfiguration:
//
//
// Ab hier bitte keine Änderungen vornehmen.
//
VAR Flotte AS NEW CMyFlotte(FlotteID)
VAR Schiffe AS CShipList = Flotte.Ships
VAR ShipEnum AS IEnumerator = Schiffe.GetEnumerator()
VAR i AS integer
VAR Ship AS CMyShip
VAR sl AS CLager
WHILE( ShipEnum.MoveNext() ) 
{
Ship = ShipEnum.Current
ShipManager.BenutzeSchiff(Ship.ShipID)
IF( BasisID > 0 )
{
ShipManager.AndockenAn(BasisID)
}
IF( (Ship.Warpkern < 951) AND (Ship.AngedocktAnID = BasisID) )
{
i = 0
WHILE( (Ship.Warpkern < 951) AND (i < 20) )
{
ShipManager.TransferiereVonKolonie(PlanetID, 20,
EBeamRessource.Deuterium)
ShipManager.TransferiereVonKolonie(PlanetID, 10,
EBeamRessource.Dilithium)
ShipManager.TransferiereVonKolonie(PlanetID, 20,
EBeamRessource.Antimaterie)
ShipManager.WarpkernNachfüllen(500)
i = i + 1
}

IF( (Ship.Lager.Menge( EWarenTyp.Deuterium ) <= 20) AND
    (Ship.Lager.Menge( EWarenTyp.Dilithium ) <= 10) AND
    (Ship.Lager.Menge( EWarenTyp.Antimaterie ) <= 20) )
{
ShipManager.TransferiereZuKolonie(PlanetID, 20,
EBeamRessource.Deuterium)
ShipManager.TransferiereZuKolonie(PlanetID, 10,
EBeamRessource.Dilithium)
ShipManager.TransferiereZuKolonie(PlanetID, 20,
EBeamRessource.Antimaterie)
}
}
IF( BasisID > 0 )
{
ShipManager.Abdocken()
}
}

Sry Arakis, du hattest Recht, ich hatte wirklich eine Fehler drinne *schäm*. Wird nicht wieder vorkommen. --Stryke 20:58, 30. Jul 2006 (W. Europe Daylight Time)

Persönliche Werkzeuge