(*
Abfrage, ob das Spiel nachdem man verloren hat neu begonnen werden soll, und
zurücksetzen auf die Standardeinstellungen, falls dies tatsächlich der Fall ist
*)
procedure LoseGame;
var Finish: boolean;
    i: integer;
begin
  Finish := false;
  SoundStopMedia;
  SoundPlay(laugh);
  repeat
    DrawBackGround;
    ShowMessage(-0.5, 0, 'Die Erde ist verloren!' + #13 + 'Neues Spiel (J/N)?');
    SwapBuffers;
    if KeyPressed(VK_J) then begin
      Points := 0;
      SoundPlay(Startup);
      GameState := PlayerStart;
      for i:=0 to MaxEnemies-1 do begin
        Enemy[i].SetTag(0);
        Enemy[i].SetPos(0,1.3,-2);
        Enemy[i].SetScale(1,1,1);
        Enemy[i].SetTransparency(Opaque);
        MakeStandardRS(EnemyRS[i]);
      end;
      Ship.SetPos(0,-0.8,-2);
      Finish := true;
    end
    else
    if KeyPressed(VK_N) then begin
      GameState := Lose;
      Finish := true;
    end;
  until Finish;
end;