Scripting:Warbkern ganzer Flotten füllen - Versionsgeschichte

Tom2: /* Kommentar */

2008-05-19T20:44:58Z

Kommentar

? Nächstältere Version		Version vom 19. Mai 2008, 20:44 Uhr
Zeile 81:		Zeile 81:
	Also mit diesen Script ist es möglich, ganze Flotten voll Automatisch, von einer Basis/Planeten aus, die Flotten mit Warpkern zufüllen. Sehr praktisch wenn man eine 80 Flotte bei einer Basis mit Orbitalseil hat braucht man nicht alle 20 Schiffe ab und andocken. Man gibt die Flotten ID in CMyFlotte(xxxxxx) eingeben, dann noch die Basis ID in Var basisID As Integer = xxxxxx und dann noch die Planeten ID in Var koloID As Integer = xxxxx eingeben und es kann schon losgehen. Ihr könnt aber auch die Warpkenfüllung selbst bestimmen im Moment ist das Script auf eine WK Füllung von 1ooo ausgelegen wenn ihr nur die hälfte haben wollt gebt bei Var wkFüllung As Integer = 500 ein.		Also mit diesen Script ist es möglich, ganze Flotten voll Automatisch, von einer Basis/Planeten aus, die Flotten mit Warpkern zufüllen. Sehr praktisch wenn man eine 80 Flotte bei einer Basis mit Orbitalseil hat braucht man nicht alle 20 Schiffe ab und andocken. Man gibt die Flotten ID in CMyFlotte(xxxxxx) eingeben, dann noch die Basis ID in Var basisID As Integer = xxxxxx und dann noch die Planeten ID in Var koloID As Integer = xxxxx eingeben und es kann schon losgehen. Ihr könnt aber auch die Warpkenfüllung selbst bestimmen im Moment ist das Script auf eine WK Füllung von 1ooo ausgelegen wenn ihr nur die hälfte haben wollt gebt bei Var wkFüllung As Integer = 500 ein.

-	[[Kategorie:Scripte\|~~Warpkenfüllen~~]]	+	[[Kategorie:Scripte\|Warbkenfüllen]]

Tom2: /* Warbkern ganzer Flotten füllen */

2008-05-19T20:42:42Z

Warbkern ganzer Flotten füllen

? Nächstältere Version		Version vom 19. Mai 2008, 20:42 Uhr
Zeile 1:		Zeile 1:
	--[[Spieler:Moax\|Moax]] 13:57, 28. Apr 2008 (W. Europe Daylight Time)		--[[Spieler:Moax\|Moax]] 13:57, 28. Apr 2008 (W. Europe Daylight Time)
-	=~~Warbkern~~ ganzer Flotten füllen=	+	=Warpkern ganzer Flotten füllen=
	==Das Skript==		==Das Skript==
	//Eingaben:		//Eingaben:
Zeile 79:		Zeile 79:
	}		}
	==Kommentar==		==Kommentar==
-	Also mit diesen Script ist es möglich, ganze Flotten voll Automatisch, von einer Basis/Planeten aus, die Flotten mit ~~Warbkern~~ zufüllen. Sehr praktisch wenn man eine 80 Flotte bei einer Basis mit Orbitalseil hat braucht man nicht alle 20 Schiffe ab und andocken. Man gibt die Flotten ID in CMyFlotte(xxxxxx) eingeben, dann noch die Basis ID in Var basisID As Integer = xxxxxx und dann noch die Planeten ID in Var koloID As Integer = xxxxx eingeben und es kann schon losgehen. Ihr könnt aber auch die ~~Warkenfüllung~~ selbst bestimmen im Moment ist das Script auf eine WK Füllung von 1ooo ausgelegen wenn ihr nur die hälfte haben wollt gebt bei Var wkFüllung As Integer = 500 ein.	+	Also mit diesen Script ist es möglich, ganze Flotten voll Automatisch, von einer Basis/Planeten aus, die Flotten mit Warpkern zufüllen. Sehr praktisch wenn man eine 80 Flotte bei einer Basis mit Orbitalseil hat braucht man nicht alle 20 Schiffe ab und andocken. Man gibt die Flotten ID in CMyFlotte(xxxxxx) eingeben, dann noch die Basis ID in Var basisID As Integer = xxxxxx und dann noch die Planeten ID in Var koloID As Integer = xxxxx eingeben und es kann schon losgehen. Ihr könnt aber auch die Warpkenfüllung selbst bestimmen im Moment ist das Script auf eine WK Füllung von 1ooo ausgelegen wenn ihr nur die hälfte haben wollt gebt bei Var wkFüllung As Integer = 500 ein.

-	[[Kategorie:Scripte\|~~Warbkenfüllen~~]]	+	[[Kategorie:Scripte\|Warpkenfüllen]]

Moax am 28. April 2008 um 11:57 Uhr

2008-04-28T11:57:21Z

Neue Seite

--[[Spieler:Moax|Moax]] 13:57, 28. Apr 2008 (W. Europe Daylight Time)
=Warbkern ganzer Flotten füllen=
==Das Skript==
//Eingaben:
//Automatische Flotte
Var flotte As New CMyFlotte(79941);//
//Basis vorhanden oder nicht
Var basisVorhanden As Boolean = true;
//Basis
Var basisID As Integer = 714966;
//Kolonie
Var koloID As Integer = 33233;
//Füllhöhe
Var wkFüllung As Integer = 1000;

//Ab hier nichts mehr ändern, ansonsten keine Gewähr(eigentlich auch so nicht ;oP )
Var mySchiff As CMyShip;
Var schilde_an As Boolean = false;
Var srs_an As Boolean = false;
Var i As Integer;

//Dieser Wert berechnet die Füllungsanzahl pro Beamvorgang bzgl. des Lagers
Var füllungMöglich As Integer;
Var füllungsAnzahl As Integer;
Var basis As CMyShip = New CMyShip(basisID);
For (Each mySchiff In flotte.Ships) {
If (checkPosition(mySchiff.MapPosition)) {
If (Math.Floor((wkFüllung - mySchiff.Warpkern) / 50) > 0) {
schilde_an = false;
srs_an = false;
If (mySchiff.SRS_Aktiv) {
srs_an = true;
}Else {
mySchiff.Aktion.SRS_Aktivieren(true);
}
If (basisVorhanden) {
If (mySchiff.SchildeAktiv) {
mySchiff.Aktion.SchildeAktivieren(false);
schilde_an = true;
}
If ( NOT mySchiff.Angedockt) {}
mySchiff.Aktion.AndockenAn(basisID);
}
füllungsAnzahl = Math.Floor((wkFüllung - mySchiff.Warpkern) / 50);
füllungMöglich = Math.Floor(mySchiff.Lager.FreieKapazität / 5);
If (füllungMöglich > 0) {
i = 0;
While(füllungsAnzahl > füllungMöglich * (++i)) {
fülleWK(füllungMöglich);
}
i = i - 1:
fülleWK(füllungsAnzahl - (füllungMöglich * i));
}
mySchiff.Aktion.Abdocken();
If (basisVorhanden) {
mySchiff.Aktion.SchildeAktivieren(schilde_an);
}
mySchiff.Aktion.SRS_Aktivieren(srs_an);
}
}
}

Function fülleWK(anzahl As Integer) {
If (anzahl > 0) {
mySchiff.Aktion.TransferiereVonKolonie(koloID, anzahl * 2, EBeamRessource.Antimaterie);
mySchiff.Aktion.TransferiereVonKolonie(koloID, anzahl * 2, EBeamRessource.Deuterium);
mySchiff.Aktion.TransferiereVonKolonie(koloID, anzahl, EBeamRessource.Dilithium);
mySchiff.Aktion.WarpkernNachfüllen(anzahl);
}
}

Function checkPosition(pos As SMapPosition) As Boolean {
If (basisVorhanden = true) {
Return (pos = basis.MapPosition);
}Else {
Return true;
}
}
==Kommentar==
Also mit diesen Script ist es möglich, ganze Flotten voll Automatisch, von einer Basis/Planeten aus, die Flotten mit Warbkern zufüllen. Sehr praktisch wenn man eine 80 Flotte bei einer Basis mit Orbitalseil hat braucht man nicht alle 20 Schiffe ab und andocken. Man gibt die Flotten ID in CMyFlotte(xxxxxx) eingeben, dann noch die Basis ID in Var basisID As Integer = xxxxxx und dann noch die Planeten ID in Var koloID As Integer = xxxxx eingeben und es kann schon losgehen. Ihr könnt aber auch die Warkenfüllung selbst bestimmen im Moment ist das Script auf eine WK Füllung von 1ooo ausgelegen wenn ihr nur die hälfte haben wollt gebt bei Var wkFüllung As Integer = 500 ein.

[[Kategorie:Scripte|Warbkenfüllen]]