Code: Select all
every 10 trigger FilterUnitsInArea(A_tanks1,[[f_type,unit_vehicle],[f_empty]])<>10 do
var mech;
begin
for i in FilterUnitsInArea(A_tanks1,[f_type,unit_vehicle]) do
begin
if IsDrivenBy(i)<>0 then
ComExitVehicle(IsDrivenBy(i));
SetSide(i,6);
end;
mech=NearestUnitToUnit(FilterAllUnits([[f_side,6],[f_type,unit_human],[f_class,class_mechanic]]),UN_sasza);
wait(2);
DialogueOn;
if GetDistUnits(mech,UN_sasza)<=6 then
begin
Case Rand(1,5) of
1:begin
Say(mech,'TANKO1');
end;
2:begin
Say(mech,'TANKO2');
end;
3:begin
Say(mech,'TANKO3');
end;
4:begin
Say(mech,'TANKO4');
end;
5:begin
Say(mech,'TANKO5');
end;
end;
end else Say(UN_sasza, 'TANKOUT_SASZA');
DialogueOff;
enable;
end;