original-war.net

Code: Select all

on VehicleConstructed(vehi,fact) do
var dri;
begin
  dri:=IsDrivenBy(vehi);
  if GetSide(fact)=5 then
  begin
    ComMoveToArea(vehi,ArV);
    AddComExitVehicle(vehi);
    AddComEnterUnit(vehi,fact);
    AddComEnterUnit(dri,fact);
    GetV;// nieistotna teraz funkcja
    if rand(0,1) then ComConstruct(fact,ar_half_tracked,engine_combustion,control_manual,ar_gun)
    else ComConstruct(fact,ar_half_tracked,engine_combustion,control_manual,ar_flame_thrower);
  end;

Code: Select all

Var Mechanik;
On VehicleConstructed(un,fab) do
 Begin
  Mechanik=UnitsInside(un);
  ComMoveToArea(Mechanik,Parking);
  AddComExitVehicle(Mechanik);
  AddComEnterUnit(Mechanik,Ru_Fab1);
 End;