--- a/hedgewars/uGears.pas	Tue Jul 29 22:59:19 2008 +0000
+++ b/hedgewars/uGears.pas	Wed Jul 30 12:14:24 2008 +0000
@@ -1079,11 +1079,11 @@
 Gear:= GearsList;
 while Gear <> nil do
       begin
-      dmg:= dmgRadius - hwRound(Distance(Gear^.X - int2hwFloat(X), Gear^.Y - int2hwFloat(Y)));
+      dmg:= dmgRadius  + cHHRadius div 2 - hwRound(Distance(Gear^.X - int2hwFloat(X), Gear^.Y - int2hwFloat(Y)));
       if (dmg > 1) and
          ((Gear^.State and gstNoDamage) = 0) then
          begin
-         dmg:= dmg div 2;
+         dmg:= min(dmg div 2, Radius);
          case Gear^.Kind of
               gtHedgehog,
                   gtMine,