du hast doch für die spieler die positions angaben.
jetzt machst du z.b. sowas
Delphi-Quellcode:
function GetFeindlichGegener:Integer;
begin
for i:=0 to Gegener.count-1 do begin
if (Gegener[i].x - player.x <= 200) and (Gegener[i].y - player.y <= 200) then begin
if Genger[i].feindlich = True then begin
result:=i;
break;
end;
end;
end;
end;
so änlich würde ich das lösen*G*
evtl. müste man ein rechteck ziehen