Var lager As New CMyShip(1249339);
Var deutflotte As New CMyFleet(131880);

Var ship As CMyShip;

Var restkollektoren As Integer;
Var ebenoetigt As Integer;
For (Each ship In deutflotte.Ships) {
  restkollektoren = ship.Definition.BussardCollectorCapacity - ship.BussardCollectorHeating;
  If (restkollektoren > 0) {
    WriteLine("Energie: " & (ship.Energy + ship.EmergencyBattery));
    ebenoetigt = Math.Max(0, (restkollektoren - ship.Energy - ship.EmergencyBattery));
    If (ebenoetigt > 0) {
      WriteLine(ship.Name & " braucht noch " & ebenoetigt & " EPS, damit die Kollektoren voll ausgenuetzt werden können.");
      ship.Action.DockTo(lager.ShipID);
      ship.Action.TransferFromShip(lager.ShipID, ebenoetigt, EBeamResource.Energy);
      ship.Action.Undock();
    }
    //WriteLine(ship.Name & " kann noch " & restkollektoren & " Deuterium in diesem Tick sammeln. Energie: " & ebenoetigt);
    ship.Action.CollectDeuterium(restkollektoren);

    //Entladen
    ship.Action.DockTo(lager.ShipID);
    ship.Action.TransferToShip(lager.ShipID, ship.StockRoom.Amount(EGoodsType.Deuterium), EGoodsType.Deuterium);
    If (ship.StockRoom.Amount(EGoodsType.Food) < 20) {
      ship.Action.TransferFromShip(lager.ShipID, (20 - ship.StockRoom.Amount(EGoodsType.Food)), EGoodsType.Food);
    }
  }
  If (ship.Energy < ship.Definition.Energy) {
    ship.Action.TransferFromShip(lager.ShipID, (ship.Definition.Energy - ship.Energy), EBeamResource.Energy);
  }
  ship.Action.Undock();
  restkollektoren = ship.Definition.BussardCollectorCapacity - ship.BussardCollectorHeating;
  If (restkollektoren > 0) {
    WriteLine(" ");
    WriteLine("DAS SKRIPT BITTE NOCHMAL AUSFÜHREN! ES SIND NOCH DEUTSAMMELKAPAZITÄTEN VORHANDEN!");
    WriteLine(" ");
  }
}