From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Tue, 18 Jan 2022 17:40:36 +0000 (+0300)
Subject: models: fix player walk + fire
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=f9982f4e6fd7f5d7cd3b09ee1ebb01d5f06e6e8a;p=d2df-sdl.git

models: fix player walk + fire
---

diff --git a/src/game/g_playermodel.pas b/src/game/g_playermodel.pas
index 1d1fca7..86d5b5a 100644
--- a/src/game/g_playermodel.pas
+++ b/src/game/g_playermodel.pas
@@ -749,7 +749,7 @@ end;
   procedure TPlayerModel.SetFire (Fire: Boolean);
   begin
     if Fire then
-      FFireCounter := PlayerModelsArray[FID].ModelSpeed[A_ATTACK] * PlayerModelsArray[FID].Anim[TDirection.D_RIGHT, A_ATTACK].Frames
+      FFireCounter := PlayerModelsArray[FID].ModelSpeed[A_ATTACK] * PlayerModelsArray[FID].Anim[TDirection.D_RIGHT, A_ATTACK].Frames + 1
     else
       FFireCounter := 0
   end;