hedgewars/uGearsHedgehog.pas
changeset 12048 475a1289f940
parent 11939 c7ec309cd685
child 12169 869cf5f34700
--- a/hedgewars/uGearsHedgehog.pas	Wed Nov 23 19:43:40 2016 +0100
+++ b/hedgewars/uGearsHedgehog.pas	Wed Nov 23 20:25:44 2016 +0100
@@ -748,7 +748,7 @@
                     RecountTeamHealth(HH^.Hedgehog^.Team);
 
                     i:= 0;
-                    while i < Gear^.Health do
+                    while (i < Gear^.Health) and (i <= 1000) do
                         begin
                         vga:= AddVisualGear(hwRound(HH^.X), hwRound(HH^.Y), vgtStraightShot);
                         if vga <> nil then