# HG changeset patch
# User nemo
# Date 1279057140 14400
# Node ID 54676a34b9adb8070698591917dc5c9454014933
# Parent  b5cdbcc89b61c4345a8735b2f1e0484c2b9ff101
Reduce calls to expensive operations in fire. Slightly alters fire behaviour, but should still be reasonable

diff -r b5cdbcc89b61 -r 54676a34b9ad hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Mon Jul 12 01:42:43 2010 +0200
+++ b/hedgewars/GSHandlers.inc	Tue Jul 13 17:39:00 2010 -0400
@@ -1765,10 +1765,13 @@
             // Standard fire
             if not sticky then
             begin
-                Gear^.Radius := 7;
-                AmmoShove(Gear, 4, 100);
-                Gear^.Radius := 1;
-                doMakeExplosion(gX, gY, 4, 0);//, EXPLNoDamage);
+                if ((GameTicks and $1) = 0) then
+                    begin
+                    Gear^.Radius := 7;
+                    AmmoShove(Gear, 4, 150);
+                    Gear^.Radius := 1;
+                    end
+                else if ((GameTicks and $3) = 3) then doMakeExplosion(gX, gY, 6, 0);//, EXPLNoDamage); 
                 //DrawExplosion(gX, gY, 4);
                 if ((GameTicks and $7) = 0) and (Random(2) = 0) then
                     for i:= 1 to Random(2)+1 do