hedgewars/uVisualGears.pas
changeset 5564 4f42009237df
parent 5563 fc73b6e941f7
child 5566 9ffa2e2ec550
--- a/hedgewars/uVisualGears.pas	Sun Aug 14 17:42:26 2011 -0400
+++ b/hedgewars/uVisualGears.pas	Sun Aug 14 17:49:12 2011 -0400
@@ -317,12 +317,12 @@
                 end;
 vgtSmoothWindBar: Tag:= hwRound(cWindSpeed * 72 / cMaxWindSpeed);
  vgtStraightShot: begin
-                dx:= 0.001 * (random(200));
-                dy:= 0.001 * (random(200));
+                dx:= 0.001 * random(45);
+                dy:= 0.001 * (random(20) + 25);
+                State:= ord(sprHealth);
                 if random(2) = 0 then dx := -dx;
-                if random(2) = 0 then dy := -dy;
                 Frame:= 0;
-                FrameTicks:= random(750) + 1000;
+                FrameTicks:= random(750) + 1250;
                 State:= ord(sprSnowDust);
                 end;
         end;