Scripting Diskussion:Flotten

Aus STNE-Wiki

Version vom 30. Juli 2006, 18:55 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()
}
}