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 3603 b6b1989744ef
parent 3594 aeca3d8f1b29
child 3609 bc63ed514b70 
--- a/hedgewars/GSHandlers.inc	Thu Jul 01 14:17:22 2010 -0400
+++ b/hedgewars/GSHandlers.inc	Thu Jul 01 17:00:14 2010 -0400
@@ -1752,7 +1752,7 @@
     begin
         if (Gear^.State and gsttmpFlag) <> 0 then
         begin
-            Gear^.Radius := 9;
+            Gear^.Radius := 7;
             AmmoShove(Gear, 2, 30);
             Gear^.Radius := 1
         end;
@@ -1768,7 +1768,7 @@
             // Standard fire
             if (Gear^.State and gsttmpFlag) = 0 then
             begin
-                Gear^.Radius := 9;
+                Gear^.Radius := 7;
                 AmmoShove(Gear, 4, 100);
                 Gear^.Radius := 1;
                 doMakeExplosion(gX, gY, 4, EXPLNoDamage);
hedgewars