Nerf RC a bit
authornemo
Sat, 04 Jun 2011 16:09:12 -0400
changeset 5228 b018f6117fc1
parent 5227 17cf34724b57
child 5229 148d581b17ab
Nerf RC a bit
hedgewars/GSHandlers.inc
--- a/hedgewars/GSHandlers.inc	Thu Jun 02 18:39:35 2011 -0400
+++ b/hedgewars/GSHandlers.inc	Sat Jun 04 16:09:12 2011 -0400
@@ -3272,7 +3272,7 @@
         if ((Gear^.State and gstCollision) <> 0) then
         begin
             doMakeExplosion(hwRound(Gear^.X), hwRound(Gear^.Y), 25, Gear^.Hedgehog, EXPLAutoSound);
-            for i:= 0 to 32 do
+            for i:= 0 to 15 do
             begin
                 dX := AngleCos(i * 64) * _0_5 * (GetRandom + _1);
                 dY := AngleSin(i * 64) * _0_5 * (GetRandom + _1);