From: fgsfds <pvt.fgsfds@gmail.com>
Date: Tue, 6 Aug 2019 17:52:32 +0000 (+0300)
Subject: Game: Pain sounds play every second when on fire
X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=commitdiff_plain;h=5659cfd3d124f0f387e1941101c03656b46e56e8

Game: Pain sounds play every second when on fire
---

diff --git a/src/game/g_player.pas b/src/game/g_player.pas
index 6bfc34c..7db6de1 100644
--- a/src/game/g_player.pas
+++ b/src/game/g_player.pas
@@ -5281,6 +5281,8 @@ begin
         end;
         FFirePainTime := FFirePainTime - 1;
         FFireTime := FFireTime - 1;
+        if ((FFireTime mod 36) = 0) and (FMegaRulez[MR_INVUL] < gTime) then
+          FModel.PlaySound(MODELSOUND_PAIN, 1, FObj.X, FObj.Y);
         if (FFireTime = 0) and g_Game_IsNet and g_Game_IsServer then
           MH_SEND_PlayerStats(FUID);
       end;
@@ -5312,7 +5314,7 @@ begin
             else if FHealth > -50 then Kill(K_HARDKILL, FLastSpawnerUID, FLastHit)
               else Kill(K_EXTRAHARDKILL, FLastSpawnerUID, FLastHit);
 
-      if FAlive then
+      if FAlive and (FFireTime <= 0) then
       begin
         if FDamageBuffer <= 20 then FModel.PlaySound(MODELSOUND_PAIN, 1, FObj.X, FObj.Y)
           else if FDamageBuffer <= 55 then FModel.PlaySound(MODELSOUND_PAIN, 2, FObj.X, FObj.Y)