hedgewars/GSHandlers.inc
changeset 1603 dbcb2d531fad
parent 1601 0cff69c8c4cf
child 1624 3cbf01d31e5c
--- a/hedgewars/GSHandlers.inc	Thu Jan 08 15:43:40 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Thu Jan 08 15:49:38 2009 +0000
@@ -133,7 +133,7 @@
 	begin
 	case Gear^.Kind of
 		gtAmmo_Bomb: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 50, EXPLAutoSound);
-		     gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 15, EXPLAutoSound);
+		     gtBall: doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, EXPLAutoSound);
 		gtClusterBomb: begin
 				doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 20, EXPLAutoSound);
 				for i:= 0 to 4 do