models: fix player walk + fire

diff --git a/src/game/g_playermodel.pas b/src/game/g_playermodel.pas
index 1d1fca781779cccd2b76e08cc34ab2af6a458046..86d5b5a8be9b8d124ad79aa872302319d3d5c076 100644 (file)
--- 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
   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;
     else
       FFireCounter := 0
   end;