Var Flotte As New CMyFleet(9248);
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.Action.ActivateSRS(True);

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

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

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

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