Moax am 28. April 2008 um 12:07 Uhr

2008-04-28T12:07:03Z

Neue Seite

--[[Spieler:Moax|Moax]] 14:07, 28. Apr 2008 (W. Europe Daylight Time)=Energie ausgleich von Flotten=
==Das Skript==
Var Flotte As New CMyFlotte(74725);
Var Schiffe As CShipList = Flotte.Ships;

Var i As Integer
Var j As Integer
Var transfer As Integer;
Var sum As Integer;
Var durchschnitt As Integer;
Var Schiff As CMyShip;
Var ZielSchiff As CMyShip;
Var ShipEnum As IEnumerator;

Flotte.Aktion.SRS_Aktivieren(True);

For (Each Schiff In Flotte.Ships)
{
sum = (sum + Schiff.Energie);
}

durchschnitt = (sum / Flotte.Ships.Count);

WriteLine("Durchschnitt: " & CStr(durchschnitt));

i = 0;
While(i < Flotte.Ships.Count)
{
Schiff = Flotte.Ships.Item(i);
If(Schiff.Energie > durchschnitt)
{
j = 0;
While((Schiff.Energie > durchschnitt) AND (j < Flotte.Ships.Count))
{
ZielSchiff = Flotte.Ships.Item(j);
If((ZielSchiff.Energie < durchschnitt) AND (Schiff.ShipID <> ZielSchiff.ShipID))
{
transfer = (Schiff.Energie - durchschnitt);
//WriteLine( CStr( transfer ) & ", " & CStr( ZielSchiff.Energie ) & ", " & CStr( durchschnitt ) );
If(transfer > (durchschnitt - ZielSchiff.Energie))
{
transfer = (durchschnitt - ZielSchiff.Energie);
}
If(transfer > 0)
{
//WriteLine( "Von: " & Schiff.Name & ", Nach: " & ZielSchiff.Name );
Schiff.Aktion.TransferiereZuSchiff(ZielSchiff.ShipID, transfer, EBeamRessource.Energie);
}
}
j = j + 1;
}
}
i = i + 1;
}

==Kommentar==
Bei diesem Script muss das SRS on sein. Wenn man unter Var Flotte As New CMyFlotte(xxxxx) die Flotten ID einstellt und auf ausführen geht, bekommen alle Schiffe in der Flotte die gleiche Energie.

Ein Beispiel: Wenn du 10 Schiffe hast mit 5,3,8,15,5,8,1,0,10,20 EPS dann stellt das Script alle Schiffe auf den Durchschnittswert in dem Fall auf 7 .
[[Kategorie:Scripte|Energieausgleich]]

Scripting:Energieausgleich - Versionsgeschichte

Moax am 28. April 2008 um 12:07 Uhr