--- a/hedgewars/GSHandlers.inc	Tue Jan 10 22:29:51 2006 +0000
+++ b/hedgewars/GSHandlers.inc	Wed Jan 11 20:01:36 2006 +0000
@@ -647,7 +647,7 @@
 if Gear.Timer mod 166 = 0 then inc(Gear.Tag);
 if Gear.Timer = 0 then
    begin
-   doMakeExplosion(round(Gear.X), round(Gear.Y), 85, EXPLAutoSound);
+   doMakeExplosion(round(Gear.X), round(Gear.Y), 75, EXPLAutoSound);
    DeleteGear(Gear);
    exit
    end;