Freien Laderaum überprüfen

[quor]

Var Ship As CMyShip;
Var Deutfleet As New CMyFleet(60760);
Var freestoragetrans1 As Integer;
Var freestoragetrans2 As Integer;
Var freestoragedepot As Integer;
freestoragetrans1 = Trans1.StockRoom.FreeStorage;
freestoragetrans2 = Trans2.StockRoom.FreeStorage;
freestoragedepot = Depot.StockRoom.FreeStorage;

For (Each Ship In Deutfleet.Ships)
{
If(freestoragetrans1 < 10){
WriteLine("Transportiere zu Trans2 - Freier Laderaum Trans1:" & Trans1.StockRoom.FreeStorage);
Ship.Action.TransferToShip(Trans2.ShipID, Ship.StockRoom.Amount(EGoodsType.Deuterium), EBeamResource.Deuterium);

Falls er obige Code alles ist fehlen die Definitionen zu Trans2, Trans1 und Depot.


Das ist erstmal das was mir aufgefallen ist. Viel Erfolg.