# HG changeset patch
# User unc0rr
# Date 1232379251 0
# Node ID 10de2dcaa34f261a33df821d1bf81375d546c6ab
# Parent  194ed95f9e8d26205ec295620ce7568aea7f03b6
Fix rc plane fire spread

diff -r 194ed95f9e8d -r 10de2dcaa34f hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Mon Jan 19 15:30:23 2009 +0000
+++ b/hedgewars/GSHandlers.inc	Mon Jan 19 15:34:11 2009 +0000
@@ -2044,10 +2044,10 @@
 	if ((Gear^.State and gstCollision) <> 0) then
 		begin
 		doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, EXPLAutoSound);
-		for i:= 0 to 25 do
+		for i:= 0 to 32 do
 			begin
-			dX:= AngleCos(i * 16) * _0_5 * (GetRandom + _1);
-			dY:= AngleSin(i * 16) * _0_5 * (GetRandom + _1);
+			dX:= AngleCos(i * 64) * _0_5 * (GetRandom + _1);
+			dY:= AngleSin(i * 64) * _0_5 * (GetRandom + _1);
 			AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, dY, 0);
 			AddGear(hwRound(Gear^.X), hwRound(Gear^.Y), gtFlame, 0, dX, -dY, 0);
 			end;