--- a/hedgewars/uGearsUtils.pas	Wed Nov 23 19:43:40 2016 +0100
+++ b/hedgewars/uGearsUtils.pas	Wed Nov 23 20:25:44 2016 +0100
@@ -282,7 +282,7 @@
                     RenderHealth(CurrentHedgehog^);
                     RecountTeamHealth(CurrentHedgehog^.Team);
                     i:= 0;
-                    while i < vampDmg do
+                    while (i < vampDmg) and (i < 1000) do
                         begin
                         vg:= AddVisualGear(hwRound(CurrentHedgehog^.Gear^.X), hwRound(CurrentHedgehog^.Gear^.Y), vgtStraightShot);
                         if vg <> nil then