Scripting Diskussion:Flotten
Aus STNE-Wiki
(Unterschied zwischen Versionen)
Arakis (Diskussion | Beiträge) |
Stryke (Diskussion | Beiträge) |
||
| (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)
