--- a/hedgewars/uGearsUtils.pas	Sun Mar 11 23:31:32 2012 +0400
+++ b/hedgewars/uGearsUtils.pas	Sun Mar 11 18:28:32 2012 -0400
@@ -46,7 +46,7 @@
 
 procedure doMakeExplosion(X, Y, Radius: LongInt; AttackingHog: PHedgehog; Mask: Longword; const Tint: LongWord);
 var Gear: PGear;
-    dmg, dmgRadius, dmgBase: LongInt;
+    dmg, dmgBase: LongInt;
     fX, fY, tdX, tdY: hwFloat;
     vg: PVisualGear;
     i, cnt: LongInt;