SAIL - Nejbližší jednotka k oblasti

Vše ohledně SAILu a tvorby modifikací do OW.
Post Reply
User avatar

Topic author
Morphid
Site Administrator
Site Administrator
Posts: 85
Joined: Sat Dec 25, 2010 12:48 am
Location: Czech Republic
Contact:

SAIL - Nejbližší jednotka k oblasti

#1

Post by Morphid » 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

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;

Post Reply

Who is online

Users browsing this forum: No registered users and 1 guest