Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement