hedgewars/uGearsHandlersMess.pas
changeset 10125 7a77a819a94d
parent 10123 64e72781d344
child 10131 4b4a043111f4
--- a/hedgewars/uGearsHandlersMess.pas	Sun Feb 09 00:44:29 2014 +0400
+++ b/hedgewars/uGearsHandlersMess.pas	Sun Feb 09 18:35:11 2014 +0100
@@ -1248,10 +1248,12 @@
             Gear^.Tag := 0;
 
         if Gear^.Damage > 5 then
+            begin
             if Gear^.AmmoType = amDEagle then
                 AmmoShove(Gear, 7, 20)
-        else
-            AmmoShove(Gear, Gear^.Timer, 20);
+            else
+                AmmoShove(Gear, Gear^.Timer, 20);
+            end;
         CheckGearDrowning(Gear);
         dec(i)
     until (i = 0) or (Gear^.Damage > Gear^.Health) or ((Gear^.State and gstDrowning) <> 0);