Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Counter Strike in 2D

    Delphi
    by mimi, 10. Okt 2004
  du hast doch für die spieler die positions angaben.
  jetzt machst du z.b. sowas
  function GetFeindlichGegener:Integer;
  begin
  for i:=0 to Gegener.count-1 do begin
  if (Gegener.x - player.x <= 200) and (Gegener.y - player.y <= 200) then begin
  if Genger.feindlich = True then begin
  result:=i;
  break;
  end;