Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/GSHandlers.inc
changeset 3640 54676a34b9ad
parent 3609 bc63ed514b70
child 3682 45b416c5b976 
--- 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
hedgewars