hedgewars/uVisualGears.pas
changeset 3592 0bcad5c38c9e
parent 3513 f589230fa21b
child 3593 ae50f63e4fa9
--- a/hedgewars/uVisualGears.pas	Tue Jun 29 23:25:42 2010 +0200
+++ b/hedgewars/uVisualGears.pas	Wed Jun 30 03:26:15 2010 +0200
@@ -174,9 +174,7 @@
                 Frame:= random(4);
                 dx.isNegative:= random(2) = 0;
                 dx.QWordValue:= random(214748364);
-                dy.isNegative:= random(2) = 0;
-                dy.QWordValue:= 21474836 + random(64424509);
-                mdY:= dy.QWordValue
+                mdY:= random(4096);
                 end;
     vgtExplPart,
     vgtExplPart2: begin