Game: Add NoTarget cheat

DF Sources/g_main.pas

@@ -117,6 +117,8 @@ procedure Cheat();
   c13 = 'PURELOVE';
   c14_1 = 'ZCDJ';    // ßÑÂÎ
   c14_2 = 'JLTY';    // ÎÄÅÍ
+  c15 = 'CASPER';
+  c16 = 'ZCDJQ';     // ßÑÂÎÉ
 begin
   if (not gGameOn) or (not gCheats) or ((gGameSettings.GameType <> GT_SINGLE) and
     (gGameSettings.GameMode <> GM_COOP) and (not gDebugMode))
@@ -219,6 +221,17 @@ procedure Cheat();
     if gPlayer1 <> nil then gPlayer1.GiveItem(ITEM_JETPACK);
     if gPlayer2 <> nil then gPlayer2.GiveItem(ITEM_JETPACK);
   end
+  // CASPER ïîçâîëÿåò õîäèòü ñêâîçü ñòåíû
+  else if Copy(charbuff, 11, 6) = c15 then
+  begin
+    // TODO
+  end
+  // ßÑÂÎÉ ñêðûâàåò îò ãëàç ìîíñòðîâ
+  else if Copy(charbuff, 12, 5) = c16 then
+  begin
+    if gPlayer1 <> nil then gPlayer1.NoTarget := not gPlayer1.NoTarget;
+    if gPlayer2 <> nil then gPlayer2.NoTarget := not gPlayer2.NoTarget;
+  end
   else Exit;
 
   g_Sound_PlayEx(s);

DF Sources/g_monsters.pas

@@ -2022,7 +2022,8 @@ procedure TMonster.Update();
       // Åñëè åñòü èãðîê ðÿäîì, ïðîñûïàåìñÿ è èäåì ê íåìó:
         if (gPlayers <> nil) then
           for a := 0 to High(gPlayers) do
-            if (gPlayers[a] <> nil) and (gPlayers[a].Live) then
+            if (gPlayers[a] <> nil) and (gPlayers[a].Live)
+            and (not gPlayers[a].NoTarget) then
               with gPlayers[a] do
                 if g_Look(@FObj, @Obj, FDirection) then
                 begin
@@ -3325,7 +3326,8 @@ function TMonster.findNewPrey(): Boolean;
 // Èùåì áëèæàéøåãî èãðîêà â êà÷åñòâå öåëè:
   if gPlayers <> nil then
     for a := 0 to High(gPlayers) do
-      if (gPlayers[a] <> nil) and (gPlayers[a].Live) then
+      if (gPlayers[a] <> nil) and (gPlayers[a].Live)
+      and (not gPlayers[a].NoTarget) then
       begin
         l2 := Abs(gPlayers[a].GameX-FObj.X)+
               Abs(gPlayers[a].GameY-FObj.Y);

DF Sources/g_player.pas

@@ -142,6 +142,7 @@   TPlayer = class (TObject)
     FJetSoundOff:    TPlayableSound;
     FJetSoundFly:    TPlayableSound;
     FGodMode:   Boolean;
+    FNoTarget:   Boolean;
 
     function    CollideLevel(XInc, YInc: Integer): Boolean;
     function    StayOnStep(XInc, YInc: Integer): Boolean;
@@ -246,6 +247,7 @@   TPlayer = class (TObject)
     property    MonsterKills: Integer read FMonsterKills write FMonsterKills;
     property    Secrets: Integer read FSecrets;
     property    GodMode: Boolean read FGodMode write FGodMode;
+    property    NoTarget: Boolean read FNoTarget write FNoTarget;
     property    Live: Boolean read FLive write FLive;
     property    Flag: Byte read FFlag;
     property    Team: Byte read FTeam write FTeam;
@@ -2794,6 +2796,7 @@ procedure TPlayer.Reset(Force: Boolean);
 
   FTime[T_RESPAWN] := 0;
   FGodMode := False;
+  FNoTarget := False;
   FFrags := 0;
   FKills := 0;
   FMonsterKills := 0;