Author: SerpentSerpent wrote:Napisałem taką funkcję, jest krótsza i wygląda lepiej dla oka.
Może się przyda.
Potem wczytujesz, np:Code: Select all
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;
Code: Select all
PrepareConvoy(2, 10, mat_cans, 100, Baza);
Topic: http://forum.original-war.net/viewtopic.php?f=42&t=2986