ausgleichscript

#UseInterface Web, ColoniePortal, ShipPortal;

Var form As New CHtmlForm(New CScriptUrl());
form.Add(New CHtmlBreak());
form.Add('Flotte auswählen:');
form.Add(New CHtmlBreak());
// flotte auswählen :)
Var flottenmenu As New CHtmlListBox('flotte-ncc');
form.Add(flottenmenu);
Var flotten As New CFleetEnumerator();
While(flotten.Next()) {
  Var flotte As New CMyFleet(flotten.CurrentFleet.FleetID);
  flottenmenu.Add(flotte.Name, flotte.FleetID); }
//flotte auswählen ende.
form.Add(New CHtmlBreak());
form.Add('Rohstoff Auswählen:');
form.Add(New CHtmlBreak());
Var down As New CHtmlListBox('ress');
//down.Add(New CHtmlListBoxItem('Ware', 'leer', True);
down.Add(New CHtmlListBoxItem('Deuterium', 6, False);
down.Add(New CHtmlListBoxItem('Plasma', 18, False);
down.Add(New CHtmlListBoxItem('Nahrung', 2, False);
down.Add(New CHtmlListBoxItem('Erz', 4, False);
down.Add(New CHtmlListBoxItem('Antimaterie', 7, False);
down.Add(New CHtmlListBoxItem('Dilithium', 11, False);
down.Add(New CHtmlListBoxItem('Duranium', 5, False);
down.Add(New CHtmlListBoxItem('Baumaterial', 3, False);
down.Add(New CHtmlListBoxItem('IsoChips', 9, False);
down.Add(New CHtmlListBoxItem('Credits', 31, False);
down.Add(New CHtmlListBoxItem('PhotonenTorpedos', 8, False);
down.Add(New CHtmlListBoxItem('PlasmaTorpedos', 19, False);
down.Add(New CHtmlListBoxItem('QuantenTorpedos', 20, False);
down.Add(New CHtmlListBoxItem('Schild-Torps', 33, False);
down.Add(New CHtmlListBoxItem('Hüllen-Torps', 32, False);
form.Add(down);

form.Add(New CHtmlBreak());
form.Add(New CHtmlSubmitButton('Ausgleich !', 'go');
form.Add(New CHtmlBreak());
form.Add(New CHtmlSubmitButton('Energie-Ausgleich ! ;)', 'go-e');
form.Add(New CHtmlBreak());
form.Add(New CHtmlSubmitButton('WK-Ausgleich !', 'go-WK');
form.Add(New CHtmlBreak());
form.Add(New CHtmlSubmitButton('Crew-Ausgleich !', 'go-crew');
form.Add(New CHtmlBreak());

If(Request.Form.ContainsKey('go'))
{ ausgleich(Request.Form.Item("flotte-ncc")); }

If(Request.Form.ContainsKey('go-e'))
{ ausgleiche(Request.Form.Item("flotte-ncc")); }
Response.Add(form);

If(Request.Form.ContainsKey('go-WK'))
{ ausgleichWK(Request.Form.Item("flotte-ncc")); }
Response.Add(form);

If(Request.Form.ContainsKey('go-crew'))
{ ausgleichCrew(Request.Form.Item("flotte-ncc")); }
Response.Add(form);

Function ausgleich(flottenid As Integer) {

  Var Flotte As New CMyFleet(flottenid);
  Var j As Integer;
  Var transfer As Integer;
  Var sum As Integer;
  Var durchschnitt As Integer;
  Var Schiff As CMyShip;
  Var ZielSchiff As CMyShip;

  //Flotte.Aktion.SRS_Aktivieren( 1 );
  //Durchschnitt Berechnen:
  For (Each Schiff In Flotte.Ships)
  {
    sum = (sum + Schiff.StockRoom.Amount(Request.Form.Item('ress'));
  }

  durchschnitt = (sum / Flotte.Ships.Count);
  form.Add("Durchschnitt: " & CStr(durchschnitt));
  form.Add(New CHtmlBreak());
  //Ausgleichen:
  For (Each Schiff In Flotte.Ships){
    If(Schiff.StockRoom.Amount(Request.Form.Item('ress')) > durchschnitt) {
      j = 0;
      While((Schiff.StockRoom.Amount(Request.Form.Item('ress')) > durchschnitt) AND (j < Flotte.Ships.Count))
      {
        ZielSchiff = Flotte.Ships.Item(j);
        If((ZielSchiff.StockRoom.Amount(Request.Form.Item('ress')) < durchschnitt) AND (Schiff.ShipID <> ZielSchiff.ShipID))
        {
          transfer = (durchschnitt - ZielSchiff.StockRoom.Amount(Request.Form.Item('ress'));
          If(transfer > (durchschnitt - ZielSchiff.StockRoom.Amount(Request.Form.Item('ress'))))
          {
            transfer = (durchschnitt - ZielSchiff.StockRoom.Amount(Request.Form.Item('ress'));
          }
          If(transfer > 0)
          {
            form.Add(Schiff.Name & " --( " & transfer & " )-->> " & ZielSchiff.Name);
            form.Add(New CHtmlBreak());
            Schiff.Action.TransferToShip(ZielSchiff.ShipID, transfer, Request.Form.Item('ress'));
          }
        }
        j = j + 1;
      }
    }
  }
}
// E-Ausgleich ----------------------------------------------------------------
Function ausgleiche(flottenid As Integer) {
  Var Flotte As New CMyFleet(flottenid);

  Var j As Integer;
  Var transfer As Integer;
  Var sum As Integer;
  Var durchschnitt As Integer;
  Var Schiff As CMyShip;
  Var ZielSchiff As CMyShip;

  //Flotte.Aktion.SRS_Aktivieren( 1 );

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

  durchschnitt = (sum / Flotte.Ships.Count);
  form.Add("Durchschnitt: " & CStr(durchschnitt));
  form.Add(New CHtmlBreak());

  For (Each Schiff In Flotte.Ships){
    If((Schiff.Energy + Schiff.EmergencyBattery) > durchschnitt) {
      j = 0;
      While(((Schiff.Energy + Schiff.EmergencyBattery) > durchschnitt) AND (j < Flotte.Ships.Count))
      {
        ZielSchiff = Flotte.Ships.Item(j);
        If(((ZielSchiff.Energy + ZielSchiff.EmergencyBattery) < durchschnitt) AND (Schiff.ShipID <> ZielSchiff.ShipID))
        {
          transfer = (durchschnitt - (ZielSchiff.Energy + ZielSchiff.EmergencyBattery));
          If(transfer > (durchschnitt - (ZielSchiff.Energy + ZielSchiff.EmergencyBattery)))
          {
            transfer = (durchschnitt - (ZielSchiff.Energy + ZielSchiff.EmergencyBattery));
          }
          If(transfer > 0)
          {
            form.Add(Schiff.Name & " --( " & transfer & " )-->> " & ZielSchiff.Name);
            form.Add(New CHtmlBreak());
            Schiff.Action.TransferToShip(ZielSchiff.ShipID, transfer, EBeamResource.Energy);
          }
        }
        j = j + 1;
      }
    }
  }
}

//Ausgleich 'WK'
Function ausgleichWK(flottenid As Integer) {
  Var Flotte As New CMyFleet(flottenid);

  Var j As Integer;
  Var transfer As Double;
  Var sum As Double;
  Var durchschnitt As Double;
  Var Schiff As CMyShip;
  Var ZielSchiff As CMyShip;

  //Flotte.Aktion.SRS_Aktivieren( 1 );

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

  durchschnitt = (sum / Flotte.Ships.Count);
  form.Add("Durchschnitt: " & CStr(durchschnitt));
  form.Add(New CHtmlBreak());

  For (Each Schiff In Flotte.Ships){
    If((Schiff.WarpCore) > durchschnitt) {
      j = 0;
      While(((Schiff.WarpCore) > durchschnitt) AND (j < Flotte.Ships.Count))
      {
        ZielSchiff = Flotte.Ships.Item(j);
        If((ZielSchiff.WarpCore < durchschnitt) AND (Schiff.ShipID <> ZielSchiff.ShipID))
        {
          transfer = (durchschnitt - ZielSchiff.WarpCore);
          If(transfer > (durchschnitt - ZielSchiff.WarpCore))
          {
            transfer = (durchschnitt - ZielSchiff.WarpCore);
          }
          If(transfer > 0)
          {
            form.Add(Schiff.Name & " --( " & transfer & " )-->> " & ZielSchiff.Name);
            form.Add(New CHtmlBreak());
            Schiff.Action.TransferToShip(ZielSchiff.ShipID, transfer, - 6;
          }
        }
        j = j + 1;
      }
    }
  }
}

//Ausgleich 'Crew'
Function ausgleichCrew(flottenid As Integer) {
  Var Flotte As New CMyFleet(flottenid);

  Var j As Integer;
  Var transfer As Double;
  Var sum As Double;
  Var durchschnitt As Double;
  Var Schiff As CMyShip;
  Var ZielSchiff As CMyShip;

  //Flotte.Aktion.SRS_Aktivieren( 1 );

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

  durchschnitt = (sum / Flotte.Ships.Count);
  form.Add("Durchschnitt: " & CStr(durchschnitt));
  form.Add(New CHtmlBreak());

  For (Each Schiff In Flotte.Ships){
    If((Schiff.Crew) > durchschnitt) {
      j = 0;
      While(((Schiff.Crew) > durchschnitt) AND (j < Flotte.Ships.Count))
      {
        ZielSchiff = Flotte.Ships.Item(j);
        If((ZielSchiff.Crew < durchschnitt) AND (Schiff.ShipID <> ZielSchiff.ShipID))
        {
          transfer = (durchschnitt - ZielSchiff.Crew);
          If(transfer > (durchschnitt - ZielSchiff.Crew))
          {
            transfer = (durchschnitt - ZielSchiff.Crew);
          }
          If(transfer > 0)
          {
            form.Add(Schiff.Name & " --( " & transfer & " )-->> " & ZielSchiff.Name);
            form.Add(New CHtmlBreak());
            Schiff.Action.TransferToShip(ZielSchiff.ShipID, transfer, - 2);
          }
        }
        j = j + 1;
      }
    }
  }
}