hedgewars/uGears.pas
changeset 6189 d0d666503fd5
parent 6131 4e8816cf9459
child 6192 7c34bf4fbb54
equal deleted inserted replaced
6188:e48280142001 6189:d0d666503fd5
   293                 with Gear^ do
   293                 with Gear^ do
   294                     begin
   294                     begin
   295                     Pos:= 0;
   295                     Pos:= 0;
   296                     Radius:= 1;
   296                     Radius:= 1;
   297                     DirAngle:= random * 360;
   297                     DirAngle:= random * 360;
   298                     dx.isNegative:= GetRandom(2) = 0;
   298                     if State and gstTmpFlag = 0 then
   299                     dx.QWordValue:= GetRandom(100000000);
   299                         begin
   300                     dy.isNegative:= false;
   300                         dx.isNegative:= GetRandom(2) = 0;
   301                     dy.QWordValue:= GetRandom(70000000);
   301                         dx.QWordValue:= GetRandom(100000000);
       
   302                         dy.isNegative:= false;
       
   303                         dy.QWordValue:= GetRandom(70000000)
       
   304                         end;
   302                     State:= State or gstInvisible;
   305                     State:= State or gstInvisible;
   303                     if GetRandom(2) = 0 then dx := -dx;
   306                     if GetRandom(2) = 0 then dx := -dx;
   304                     Health:= random(vobFrameTicks);
   307                     Health:= random(vobFrameTicks);
   305                     Timer:= random(vobFramesCount);
   308                     Timer:= random(vobFramesCount);
   306                     Angle:= (random(2) * 2 - 1) * (1 + random(10000)) * vobVelocity
   309                     Angle:= (random(2) * 2 - 1) * (1 + random(10000)) * vobVelocity