SAIL - Stwórz konwój

Serpent pisze:Napisałem taką funkcję, jest krótsza i wygląda lepiej dla oka.
Może się przyda.

Kod:

Export Function PrepareConvoy(side, num0, num1, num2, area);
var l, un, cargo, cargos;            // strona, ilość pojazdów, rodzaj/ilość materiału, area
begin

uc_side    := side;
uc_nation := nation_arabian;
cargos     := [];

// Pojazdy typu Komora 

  l = 0;
  
  repeat
  begin
    vc_chassis := ar_half_tracked;
    vc_engine := engine_combustion;
    vc_control := control_manual;
    vc_weapon := ar_cargo_bay;
    
    cargo := CreateVehicle;
    PlaceUnitArea(cargo, area, false);
   

// Kierowca
    hc_sex := Rand(sex_male, sex_female);
    hc_gallery := '';
    hc_name := '';
    hc_class := 3;
    
    un := CreateHuman;
    PlaceHumanInUnit(un, cargo);
    
    cargos := cargos ^ un;

    SetCargo(cargo, num1, num2);
    
    l = l + 1
    end until l = num0;

{rozkazy dla ciężarówek np.
ComMoveXY(cargos[1], 155, 89);
}

end;

Potem wczytujesz, np:

Kod:

PrepareConvoy(2, 10, mat_cans, 100, Baza);

Author: Serpent
Topic: https://forum.original-war.net/viewtopic.php?f=42&t=2986