hedgewars/uGearsHandlersMess.pas
changeset 9723 31d10d684e90
parent 9721 1833dadcebf0
child 9724 b3fefde4cff7
--- a/hedgewars/uGearsHandlersMess.pas	Fri Nov 29 15:53:46 2013 +0400
+++ b/hedgewars/uGearsHandlersMess.pas	Fri Nov 29 18:46:32 2013 +0100
@@ -2068,6 +2068,7 @@
 
     for i:= 0 to 3 do
         begin
+        AddVisualGear(hwRound(Gear^.X) + hwSign(Gear^.dX) * (10 + 6 * i), hwRound(Gear^.Y) + 12 + Random(6), vgtDust);
         AmmoShove(Gear, 30, 25);
         Gear^.X := Gear^.X + Gear^.dX * 5
         end;