# HG changeset patch
# User nemo
# Date 1255707341 0
# Node ID 9e80b7fc40171ae810f8262ba9b20edcaf2f90d4
# Parent  525e7d3a4958f04d73e9b5aeff2ae6364da6389f
Tweak of molotov based on burp's play, a little bit more specificity in homerun.

diff -r 525e7d3a4958 -r 9e80b7fc4017 hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Fri Oct 16 14:53:58 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Fri Oct 16 15:35:41 2009 +0000
@@ -228,8 +228,8 @@
 	if (Gear^.State and gstCollision) <> 0 then begin
 		PlaySound(sndMolotov, false, nil);
 		//doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 5, EXPLAutoSound);
-		for i:= 0 to 40 do begin
-				dX:= AngleCos(i * 2) * ((_0_08*(i div 10))) * (GetRandom + _1);
+		for i:= 0 to 20 do begin
+				dX:= AngleCos(i * 2) * ((_0_08*(i div 6))) * (GetRandom + _1);
 				dY:= AngleSin(i * 8) * _0_5 * (GetRandom + _1);
 				Fire:= AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
 				Fire^.State:= Fire^.State or gsttmpFlag;
diff -r 525e7d3a4958 -r 9e80b7fc4017 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Fri Oct 16 14:53:58 2009 +0000
+++ b/hedgewars/uGears.pas	Fri Oct 16 15:35:41 2009 +0000
@@ -1684,7 +1684,7 @@
 	Gear:= t^.ar[i];
 	if (Gear^.State and gstNoDamage) = 0 then
 		begin
-		if (Gear^.Kind = gtHedgehog) and (Ammo^.State and gsttmpFlag <> 0) and (Ammo^.Kind <> gtFlame) then Gear^.FlightTime:= 1;
+		if (Gear^.Kind = gtHedgehog) and (Ammo^.State and gsttmpFlag <> 0) and (Ammo^.Kind = gtShover) then Gear^.FlightTime:= 1;
 		
 		case Gear^.Kind of
 			gtHedgehog,