SAIL - Nejbližší jednotka k oblasti
Posted: Mon Jan 31, 2011 8:40 pm
Následující funkce vrací jednotku ze seznamu (pole) jednotek, která je nejblíže k zadané oblasti.
Použití: NearestUnitToArea(list:plist, area:integer)
Autor: Radzio
Použití: NearestUnitToArea(list:plist, area:integer)
Autor: Radzio
Code: Select all
export function NearestUnitToArea(list, area);
var un, n;
begin
n:= 999999;
for un in list do
begin
if GetDistUnitArea(un, area) < n then
begin
n:= GetDistUnitArea(un, area);
result:= un;
end;
if (n = 0) then exit;
end;
end;