hedgewars/uVisualGears.pas
changeset 3592 0bcad5c38c9e
parent 3513 f589230fa21b
child 3593 ae50f63e4fa9
equal deleted inserted replaced
3591:c447d5218f6f 3592:0bcad5c38c9e
   172                 end;
   172                 end;
   173     vgtCloud: begin
   173     vgtCloud: begin
   174                 Frame:= random(4);
   174                 Frame:= random(4);
   175                 dx.isNegative:= random(2) = 0;
   175                 dx.isNegative:= random(2) = 0;
   176                 dx.QWordValue:= random(214748364);
   176                 dx.QWordValue:= random(214748364);
   177                 dy.isNegative:= random(2) = 0;
   177                 mdY:= random(4096);
   178                 dy.QWordValue:= 21474836 + random(64424509);
       
   179                 mdY:= dy.QWordValue
       
   180                 end;
   178                 end;
   181     vgtExplPart,
   179     vgtExplPart,
   182     vgtExplPart2: begin
   180     vgtExplPart2: begin
   183                 t:= random(1024);
   181                 t:= random(1024);
   184                 sp:= _0_001 * (random(95) + 70);
   182                 sp:= _0_001 * (random(95) + 70);