hedgewars/uGears.pas
changeset 6192 7c34bf4fbb54
parent 6189 d0d666503fd5
child 6252 8d598aa498b0
equal deleted inserted replaced
6191:190a8e5d9956 6192:7c34bf4fbb54
   298                     if State and gstTmpFlag = 0 then
   298                     if State and gstTmpFlag = 0 then
   299                         begin
   299                         begin
   300                         dx.isNegative:= GetRandom(2) = 0;
   300                         dx.isNegative:= GetRandom(2) = 0;
   301                         dx.QWordValue:= GetRandom(100000000);
   301                         dx.QWordValue:= GetRandom(100000000);
   302                         dy.isNegative:= false;
   302                         dy.isNegative:= false;
   303                         dy.QWordValue:= GetRandom(70000000)
   303                         dy.QWordValue:= GetRandom(70000000);
       
   304                         if GetRandom(2) = 0 then dx := -dx
   304                         end;
   305                         end;
   305                     State:= State or gstInvisible;
   306                     State:= State or gstInvisible;
   306                     if GetRandom(2) = 0 then dx := -dx;
       
   307                     Health:= random(vobFrameTicks);
   307                     Health:= random(vobFrameTicks);
   308                     Timer:= random(vobFramesCount);
   308                     Timer:= random(vobFramesCount);
   309                     Angle:= (random(2) * 2 - 1) * (1 + random(10000)) * vobVelocity
   309                     Angle:= (random(2) * 2 - 1) * (1 + random(10000)) * vobVelocity
   310                     end
   310                     end
   311                 end;
   311                 end;