hedgewars/uGearsRender.pas
changeset 7391 588eabb4b384
parent 7389 15c3fb4882df
child 7547 6e9c5feb88eb
equal deleted inserted replaced
7389:15c3fb4882df 7391:588eabb4b384
   285     *)
   285     *)
   286             dx:= sign * m * Sin(Gear^.Angle * pi / cMaxAngle);
   286             dx:= sign * m * Sin(Gear^.Angle * pi / cMaxAngle);
   287             dy:= -Cos(Gear^.Angle * pi / cMaxAngle);
   287             dy:= -Cos(Gear^.Angle * pi / cMaxAngle);
   288             if cLaserSighting then
   288             if cLaserSighting then
   289                 begin
   289                 begin
   290                 GetRandom(2); // no, this does not prevent it, just makes things harder
       
   291                 lx:= GetLaunchX(HH^.CurAmmoType, sign * m, Gear^.Angle);
   290                 lx:= GetLaunchX(HH^.CurAmmoType, sign * m, Gear^.Angle);
   292                 ly:= GetLaunchY(HH^.CurAmmoType, Gear^.Angle);
   291                 ly:= GetLaunchY(HH^.CurAmmoType, Gear^.Angle);
   293 
   292 
   294                 // ensure we start outside the hedgehog (he's solid after all)
   293                 // ensure we start outside the hedgehog (he's solid after all)
   295                 while abs(lx * lx + ly * ly) < (Gear^.radius * Gear^.radius) do
   294                 while abs(lx * lx + ly * ly) < (Gear^.radius * Gear^.radius) do