X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_game.pas;h=82d2981743c307471a549bd6a6e8ee65db137f58;hb=3ba6ebd7f98df7b3e917920572caba1252c0c537;hp=7da95bf0499b2c8b41abe7759460351c2c931314;hpb=52c1edc4aba4aa850742200a391845a91f3451ef;p=d2df-sdl.git diff --git a/src/game/g_game.pas b/src/game/g_game.pas index 7da95bf..82d2981 100644 --- a/src/game/g_game.pas +++ b/src/game/g_game.pas @@ -4223,6 +4223,7 @@ begin e_WriteLog(Format(_lc[I_FATAL_ERROR], [Text]), TMsgType.Warning); gExit := EXIT_SIMPLE; + if gGameOn then EndGame; end; procedure g_SimpleError(Text: String); @@ -6610,6 +6611,7 @@ begin g_Game_Free(); with gGameSettings do begin + Options := gsGameFlags; GameMode := g_Game_TextToMode(gsGameMode); if gSwitchGameMode <> GM_NONE then GameMode := gSwitchGameMode; @@ -6664,6 +6666,7 @@ begin g_Game_Free(); with gGameSettings do begin + Options := gsGameFlags; GameMode := g_Game_TextToMode(gsGameMode); if gSwitchGameMode <> GM_NONE then GameMode := gSwitchGameMode; if GameMode = GM_NONE then GameMode := GM_DM; @@ -7997,8 +8000,7 @@ begin // Options: s := Find_Param_Value(pars, '-opt'); if (s = '') then - Opt := GAME_OPTION_ALLOWEXIT or GAME_OPTION_BOTVSPLAYER or - GAME_OPTION_BOTVSMONSTER or GAME_OPTION_DMKEYS + Opt := gsGameFlags else Opt := StrToIntDef(s, 0);