X-Git-Url: http://deadsoftware.ru/gitweb?a=blobdiff_plain;f=src%2Fgame%2Fg_player.pas;h=c65d7206064025f82998691f1ada73203f575c7a;hb=e24864cf808f2ef7a10fc41999b341ef8212fbe7;hp=ca23ce315cc7f2009d858a527d208163a0693b47;hpb=c146ab01667396f6b030e131e05cb6ce90aaff04;p=d2df-sdl.git

diff --git a/src/game/g_player.pas b/src/game/g_player.pas
index ca23ce3..c65d720 100644
--- a/src/game/g_player.pas
+++ b/src/game/g_player.pas
@@ -6337,6 +6337,12 @@ begin
         pm := g_PlayerModel_Get(FModelName);
         pm.PlaySound(MODELSOUND_DIE, 5, FObj.X, FObj.Y);
         pm.Free;
+
+        // Çëîâåùèé ñìåõ:
+        if (gBodyKillEvent <> -1)
+        and gDelayedEvents[gBodyKillEvent].Pending then
+          gDelayedEvents[gBodyKillEvent].Pending := False;
+        gBodyKillEvent := g_Game_DelayEvent(DE_BODYKILL, 1050, 0);
       end;
     end
   else