(*
Je mehr Punkte erreicht wurden, desto wahrscheinlicher ist es, dass ein neuer
Feind gespawnt wird.
*)
procedure SpawnEnemy;
var d: double;
    i: integer;
begin
  d := Points/200;
  if d>1 then d:=1;
  d := 1.0 - Sqrt(d);
  if QueryTimer-SpawnTimerValue>d then begin
    for i:=0 to MaxEnemies-1 do begin
      if Enemy[i].GetTag=0 then begin
        Enemy[i].SetPos(Random*2-1, 1, -2);
        Enemy[i].SetTag(1);
        break;
      end;
    end;
    SpawnTimerValue := QueryTimer;
  end;
end;