hedgewars/uGearsList.pas
changeset 7069 bcf9d8e64e92
parent 7028 0f60591f3a16
child 7077 74b0265d79e8
equal deleted inserted replaced
7068:b1b7eb9c8cc9 7069:bcf9d8e64e92
   168      gtFlake: begin
   168      gtFlake: begin
   169                 with Gear^ do
   169                 with Gear^ do
   170                     begin
   170                     begin
   171                     Pos:= 0;
   171                     Pos:= 0;
   172                     Radius:= 1;
   172                     Radius:= 1;
   173                     DirAngle:= random * 360;
   173                     DirAngle:= random(360);
   174                     if State and gstTmpFlag = 0 then
   174                     if State and gstTmpFlag = 0 then
   175                         begin
   175                         begin
   176                         dx.isNegative:= GetRandom(2) = 0;
   176                         dx.isNegative:= GetRandom(2) = 0;
   177                         dx.QWordValue:= GetRandom(100000000);
   177                         dx.QWordValue:= GetRandom(100000000);
   178                         dy.isNegative:= false;
   178                         dy.isNegative:= false;