original-war.net

Serpent wrote:

Code: Select all

Export Function GetDistUnitToSide(unit, side);
var tmp, dist;
begin
tmp  := NearestUnitToUnit(FilterAllUnits([f_side, side]), unit);
dist := GetDistUnits(unit, tmp);

if dist >= 9999 then
   result := -1
    else
     result := dist;
End;

Funkcja zwraca odległość pomiędzy jednostką (unit) zadaną parametrem a daną stroną.

Jeżeli na mapie nie ma ani jednej jednostki danej strony to funkcja zwraca -1.