hedgewars/uGearsList.pas
changeset 9809 1e32628eb167
parent 9721 1833dadcebf0
child 9824 136e0708eda2
equal deleted inserted replaced
9808:37891ba5e10b 9809:1e32628eb167
   259                     Radius:= 1;
   259                     Radius:= 1;
   260                     DirAngle:= random(360);
   260                     DirAngle:= random(360);
   261                     if State and gstTmpFlag = 0 then
   261                     if State and gstTmpFlag = 0 then
   262                         begin
   262                         begin
   263                         dx.isNegative:= GetRandom(2) = 0;
   263                         dx.isNegative:= GetRandom(2) = 0;
   264                         dx.QWordValue:= $40DA * GetRandom(10000) * 8;
   264                         dx.QWordValue:= QWord($40DA) * GetRandom(10000) * 8;
   265                         dy.isNegative:= false;
   265                         dy.isNegative:= false;
   266                         dy.QWordValue:= $3AD3 * GetRandom(7000) * 8;
   266                         dy.QWordValue:= QWord($3AD3) * GetRandom(7000) * 8;
   267                         if GetRandom(2) = 0 then
   267                         if GetRandom(2) = 0 then
   268                             dx := -dx
   268                             dx := -dx
   269                         end;
   269                         end;
   270                     State:= State or gstInvisible;
   270                     State:= State or gstInvisible;
   271                     Health:= random(vobFrameTicks);
   271                     Health:= random(vobFrameTicks);