Budowa kolejnych pojazdow po zniszczeniu poprzednich

[Silent_Scream]

Mam problem z kodem na budowę pojazdów, wysłanie ich do walki, a po ich zniszczeniu kolejny raz żeby je budować i atakować nimi. I tak w kółko.

Spoiler:

Code: Select all

export pojazdy;

every 0$2 marked 90 do
begin

pojazdy = [];
addcomconstruct(fabr,ar_medium_trike, control_remote,engine_siberite, ar_gatling_gun);
addcomconstruct(fabr,ar_half_tracked,control_remote,engine_siberite,ar_gun);
addcomconstruct(fabr,ar_medium_trike,control_remote,engine_siberite,ar_flame_thrower);
addcomconstruct(fabr,ar_medium_trike,control_remote,engine_siberite,ar_gun);
end;

on vehicleconstructed(poj,fab) do
if fab=fabr then begin
pojazdy=pojazdy^[poj];
linkvehicletohuman(poj,wieza2);
Addcomagressivemove(poj,97,36);
if pojazdy = 4 then
addcomagressivemove(poj,96,50);
wait(2$0);
addcomagressivemove(poj,104,112);
disable(90);
end;

on vehicledestroyed(un) then  // i od tego momentu zaczynają się schody bo nie wiem jak to zrobic żeby działało.
begin
if un = poj then
begin
wait(2$0);
enable(90);
end;

[Serpent]

Code: Select all

export pojazdy;

Every 0$02 marked 90 do
begin

pojazdy = [];
addcomconstruct(fabr,ar_medium_trike, control_remote,engine_siberite, ar_gatling_gun);
addcomconstruct(fabr,ar_half_tracked,control_remote,engine_siberite,ar_gun);
addcomconstruct(fabr,ar_medium_trike,control_remote,engine_siberite,ar_flame_thrower);
addcomconstruct(fabr,ar_medium_trike,control_remote,engine_siberite,ar_gun);
end;

On vehicleconstructed(poj,fab) do
begin
if fab=fabr then begin
pojazdy=pojazdy^[poj];
linkvehicletohuman(poj,wieza2);
Addcomagressivemove(poj,97,36);
if pojazdy = 4 then
addcomagressivemove(poj,96,50);
wait(2$0);
addcomagressivemove(poj,104,112);
disable(90);
end;
End;

Export con;
Every 1 do
con = 0;


On VehicleDestroyed(un) then 
begin

If un in poj then
begin
con = con + 1;
end;

If con > 3 then
begin
con = 0;
pojazdy = [];
addcomconstruct(fabr,ar_medium_trike, control_remote,engine_siberite, ar_gatling_gun);
addcomconstruct(fabr,ar_half_tracked,control_remote,engine_siberite,ar_gun);
addcomconstruct(fabr,ar_medium_trike,control_remote,engine_siberite,ar_flame_thrower);
addcomconstruct(fabr,ar_medium_trike,control_remote,engine_siberite,ar_gun);
end;
end;

[Silent_Scream]

Wrzuciłem kod i kompiluje. I wywala errora:

Compiling error at arpoj line 32: ',' expected but ')' found!

chyba w tym wszystkim

Code: Select all

On VehicleDestroyed(un) then

"un" trzeba zastąpić czymś innym tylko nie wiem czym.

[Serpent]

Wrzuciłem kod i kompiluje. I wywala errora:

Compiling error at arpoj line 32: ',' expected but ')' found!

chyba w tym wszystkim

Code: Select all

On VehicleDestroyed(un) then

"un" trzeba zastąpić czymś innym tylko nie wiem czym.

Sam tak napisałeś a ja bezsensu to skopiowałem.

Daj On UnitDestroyed(un) do zamiast tamtego.

[Silent_Scream]

Ja w tym nie jestem doświadczony więc odpowiedź sama chyba przychodzi.