hedgewars/GSHandlers.inc
changeset 3100 5fe9c4ac4c99
parent 3096 9330eead14fa
child 3101 e128eff95fca
--- a/hedgewars/GSHandlers.inc	Sat Mar 27 05:45:45 2010 +0000
+++ b/hedgewars/GSHandlers.inc	Sat Mar 27 08:59:10 2010 +0000
@@ -2909,7 +2909,7 @@
 	doStepFallingGear(Gear);
 	if (Gear^.State and gstCollision) <> 0 then
 	begin
-		doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound);
+		doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 40, EXPLAutoSound + EXPLPoisoned);
 		DeleteGear(Gear);
 		exit
 	end;