index 1d1fca781779cccd2b76e08cc34ab2af6a458046..86d5b5a8be9b8d124ad79aa872302319d3d5c076 100644 (file)
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;