X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_menu.pas;h=aca1dbf59939c6b399c083399728e2396f1f7daf;hb=44b1b8d4008737947a55103121e2a607a1927a88;hp=93666fa87f3f4f4a9da3c5fe71a195b871af8533;hpb=4fd037a0be973a453413bf6077ddbf0e5a8df356;p=d2df-sdl.git diff --git a/src/game/g_menu.pas b/src/game/g_menu.pas index 93666fa..aca1dbf 100644 --- a/src/game/g_menu.pas +++ b/src/game/g_menu.pas @@ -47,7 +47,8 @@ uses e_log, SysUtils, CONFIG, g_playermodel, DateUtils, MAPDEF, wadreader, Math, g_saveload, e_texture, GL, GLExt, g_language, - g_net, g_netmsg, g_netmaster, g_items, e_input; + g_net, g_netmsg, g_netmaster, g_items, e_input, + utils; type TYNCallback = procedure (yes:Boolean); @@ -551,7 +552,7 @@ begin Map := TGUILabel(GetControl('lbMap')).Text; if Map = '' then Exit; - if Pos(':\', Map) = 0 then + if not isWadPath(Map) then Exit; GameMode := TGUISwitch(GetControl('swGameMode')).ItemIndex+1; @@ -611,7 +612,7 @@ begin Map := TGUILabel(GetControl('lbMap')).Text; if Map = '' then Exit; - if Pos(':\', Map) = 0 then + if not isWadPath(Map) then Exit; GameMode := TGUISwitch(GetControl('swGameMode')).ItemIndex+1; @@ -1327,8 +1328,8 @@ var begin Enabled := True; if (gGameSettings.GameType = GT_SINGLE) and - ((gPlayer1 = nil) or (not gPlayer1.Live)) and - ((gPlayer2 = nil) or (not gPlayer2.Live)) then + ((gPlayer1 = nil) or (not gPlayer1.alive)) and + ((gPlayer2 = nil) or (not gPlayer2.alive)) then Enabled := False; // Îäèí èç èãðîêîâ ïîãèá â ñèíãëå if not gGameOn then Enabled := False; // Çàïðåòèòü ñîõðàíåíèå â èíòåðìèññèè (íå ðåàëèçîâàíî)