hedgewars/uGearsList.pas
changeset 7721 2b1ad418ba39
parent 7649 df90970ae81a
child 7726 1137406bce12
equal deleted inserted replaced
7720:8e6b79a020f8 7721:2b1ad418ba39
   175                     Radius:= 1;
   175                     Radius:= 1;
   176                     DirAngle:= random(360);
   176                     DirAngle:= random(360);
   177                     if State and gstTmpFlag = 0 then
   177                     if State and gstTmpFlag = 0 then
   178                         begin
   178                         begin
   179                         dx.isNegative:= GetRandom(2) = 0;
   179                         dx.isNegative:= GetRandom(2) = 0;
   180                         dx.QWordValue:= $40DA*GetRandom(10000)*8;
   180                         dx.QWordValue:= $40DA * GetRandom(10000) * 8;
   181                         dy.isNegative:= false;
   181                         dy.isNegative:= false;
   182                         dy.QWordValue:= $3AD3*GetRandom(7000)*8;
   182                         dy.QWordValue:= $3AD3 * GetRandom(7000) * 8;
   183                         if GetRandom(2) = 0 then
   183                         if GetRandom(2) = 0 then
   184                             dx := -dx
   184                             dx := -dx
   185                         end;
   185                         end;
   186                     State:= State or gstInvisible;
   186                     State:= State or gstInvisible;
   187                     Health:= random(vobFrameTicks);
   187                     Health:= random(vobFrameTicks);