--- a/hedgewars/uGears.pas	Sun May 06 20:50:53 2007 +0000
+++ b/hedgewars/uGears.pas	Mon May 07 20:21:26 2007 +0000
@@ -700,7 +700,7 @@
 var t: PGear;
     dmg: integer;
 begin
-Gear^.Radius:= 22;
+Gear^.Radius:= cShotgunRadius;
 t:= GearsList;
 while t <> nil do
     begin
@@ -725,7 +725,7 @@
            end;
     t:= t^.NextGear
     end;
-DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 22)
+DrawExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), cShotgunRadius)
 end;
 
 procedure AmmoShove(Ammo: PGear; Damage, Power: LongInt);