nie wycinam nic, bo moze to wazne
Code: Select all
every 0$1 trigger IsInArea(sol3,out_bas_dol) and GetNation(sol3)=nation_american MARKED 20 do
var i,x,y;
begin
ComStop(sol3);
CenterNowOnUnits(sol3);
Case IsInUnit(sol3) of
komora_2:
begin
InGameOn;
x=GetX(sol_down_AM);
y=GetY(sol_down_AM);
repeat
begin
ComMoveXY(sol_down_AM,GetX(komora_2),GetY(komora_2));
wait(0$1);
end;
until GetDistUnits(komora_2,sol_down_AM)<=4;
ComStop(sol_down_AM);
ComTurnUnit(sol_down_AM,komora_2);
Say(sol_down_AM, 'OUTDOWN1');
ComMoveXY(sol3,85,92);
ComMoveXY(sol_down_AM,x,y);
wait(0$2);
InGameOff;
enable;
end;
komora_AR:
begin
InGameOn;
x=GetX(sol_down_AM);
y=GetY(sol_down_AM);
repeat
begin
ComMoveXY(sol_down_AM,GetX(komora_AR),GetY(komora_AR));
wait(0$1);
end;
until GetDistUnits(komora_AR,sol_down_AM)<=4;
ComStop(sol_down_AM);
ComTurnUnit(sol_down_AM,komora_AR);
Say(sol3,'OUTDOWNAR1');
Say(sol_down_AM,'OUTDOWNAR2');
ComMoveXY(sol_down_AM,x,y);
uc_side=1;
PlaceUnitXY(informator,37,45,false);
enable(11);
enable(21);
AddComMoveXY(sol3,49,72);
AddComMoveXY(sol3,40,50);
AddComExitVehicle(sol3);
repeat
begin
wait(0$1);
CenterNowOnUnits(sol3);
end;
until IsAT(komora_AR, 40,50);
ComMoveXY(informator,GetX(sol3),GetY(sol3));
wait(0$2);
ComStop(informator);
ComTurnUnit(informator,sol3);
ComTurnUnit(sol3,informator);
Say(informator,'BASE3');
Say(sol3,'BASE4');
Say(informator,'BASE5');
AddComEnterUnit(informator,komora_AR);
AddComMoveXY(informator,121,4);
InGameOff;
end;
0:
begin
//InGameOn;
RevealFogArea(3, spawn_informator);
CenterNowOnXY(63,83);
if przenikniecie_dostepne=true then
begin
uc_side=1;
PlaceUnitArea(informator,spawn_informator,false);
repeat
begin
wait(0$1);
ComMoveXY(informator,GetX(sol3),GetY(sol3));
end;
until GetDistUnits(sol3,informator)<=4;
ComStop(informator);
ComTurnUnit(informator,sol3);
ComTurnUnit(sol3,informator);
Say(informator,'ENTBASE1');
Say(sol3,'ENTBASE2');
ComMoveXY(informator,44,78);
wait(15);
ComMoveXY(sol3,44,79);
repeat
wait(0$1);
until IsAT(informator,44,78) and IsAT(sol3,44,79);
Say(sol3,'ENTBASE3');
InGameOff;
ComMoveXY(sol_walk,47,79);
AddComMoveXY(informator,58,64);
AddComMoveXY(informator,42,23);
AddComMoveXY(informator,93,14);
end else
begin
repeat
begin
ComMoveXY(sol_down_AM,GetX(sol3),GetY(sol3));
wait(0$1);
end;
until GetDistUnits(sol3,sol_down_AM)<=4;
ComStop(sol_down_AM);
ComTurnUnit(sol_down_AM,sol3);
ComTurnUnit(sol3,sol_down_AM);
Say(sol_down_AM,'OUTDOWNNOVEH');
wait(0$1);
YouLost('BUSTED');
end;
InGameOff;
end;
end;
end;