more snow
authornemo
Wed, 22 Dec 2010 01:19:47 -0500
changeset 4621 1d45bf63f25c
parent 4619 f9356de370bb
child 4623 fa24dac6c473
more snow
hedgewars/GSHandlers.inc
hedgewars/uGears.pas
--- a/hedgewars/GSHandlers.inc	Wed Dec 22 01:17:46 2010 -0500
+++ b/hedgewars/GSHandlers.inc	Wed Dec 22 01:19:47 2010 -0500
@@ -574,7 +574,7 @@
         yy:= hwRound(Y);
         if vobVelocity <> 0 then
             begin
-            DirAngle := DirAngle + (Angle / 125000000);
+            DirAngle := DirAngle + (Angle / 1250000000);
             if DirAngle < 0 then DirAngle := DirAngle + 360
             else if 360 < DirAngle then DirAngle := DirAngle - 360;
             end;
--- a/hedgewars/uGears.pas	Wed Dec 22 01:17:46 2010 -0500
+++ b/hedgewars/uGears.pas	Wed Dec 22 01:19:47 2010 -0500
@@ -1114,7 +1114,7 @@
     cArtillery:= true;
 
 if (Theme = 'Snow') then// or (Theme = 'Hell') then
-    for i:= 0 to Pred(vobCount) do
+    for i:= 0 to Pred(vobCount*2) do
         AddGear(GetRandom(LAND_WIDTH+1024)-512, LAND_HEIGHT - GetRandom(1024), gtFlake, 0, _0, _0, 0);
 end;