DEADSOFTWARE

cheats are active in single/coop now ('cause Wyoming Knotts, you know)
authorKetmar Dark <ketmar@ketmar.no-ip.org>
Wed, 13 Sep 2017 04:13:16 +0000 (07:13 +0300)
committerKetmar Dark <ketmar@ketmar.no-ip.org>
Wed, 13 Sep 2017 04:14:31 +0000 (07:14 +0300)
src/game/g_game.pas
src/game/g_main.pas
src/game/g_player.pas

index d98227aa36faed7685df9c144c9848c0ebd783bb..f4882b6bdbc95b4069ef439cf192f1da7cb0a4a9 100644 (file)
@@ -360,9 +360,9 @@ begin
   if g_Game_IsNet then exit;
   if not gDebugMode then
   begin
-    if not gCheats then exit;
+    //if not gCheats then exit;
     if not (gGameSettings.GameType in [GT_SINGLE, GT_CUSTOM]) then exit;
-    if (gGameSettings.GameMode <> GM_COOP) then exit;
+    if not (gGameSettings.GameMode in [GM_COOP, GM_SINGLE]) then exit;
   end;
   result := true;
 end;
@@ -5205,7 +5205,7 @@ var
   mon: TMonster;
 begin
 // Êîìàíäû îòëàäî÷íîãî ðåæèìà:
-  if gDebugMode then
+  if {gDebugMode}conIsCheatsEnabled then
   begin
     cmd := LowerCase(P[0]);
     if cmd = 'd_window' then
@@ -5339,8 +5339,7 @@ var
   f, a: Integer;
   plr: TPlayer;
 begin
-  if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
-     (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode)) or g_Game_IsNet then
+  if (not gGameOn) or (not conIsCheatsEnabled) then
   begin
     g_Console_Add('not available');
     exit;
index af83d89c667176cfca037a9fa89c98688118d2d8..feb59808af5870cd802b22a8c1bbad0ac3e525af 100644 (file)
@@ -253,9 +253,13 @@ var
   c: ShortString;
   a: Integer;
 begin
+  {
   if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
     (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode))
     or g_Game_IsNet then Exit;
+  }
+  if not gGameOn then exit;
+  if not conIsCheatsEnabled then exit;
 
   s := 'SOUND_GAME_RADIO';
 
index e6e0d360227097ccb7a83698395ab0cf4777ca3f..4b0bffce46977c3e721a484dd314fb764ceff52a 100644 (file)
@@ -3661,7 +3661,7 @@ function TPlayer.PickItem(ItemType: Byte; arespawn: Boolean; var remove: Boolean
     if (FBFGFireCounter <> -1) then begin result := false; exit; end;
     result := true;
     if gBerserkAutoswitch then exit;
-    if not (gDebugMode or gCheats) then exit;
+    if not conIsCheatsEnabled then exit;
     result := false;
   end;