hedgewars/GSHandlers.inc
branch0.9.19
changeset 8900 b77fd3c2eec5
parent 8898 0ccaa19c6367
child 8924 13ac59499066
equal deleted inserted replaced
8898:0ccaa19c6367 8900:b77fd3c2eec5
  3681         if not (isbullet or iscake) then
  3681         if not (isbullet or iscake) then
  3682             begin
  3682             begin
  3683             // wow! good candidate there, let's see if the distance and direction is okay!
  3683             // wow! good candidate there, let's see if the distance and direction is okay!
  3684             if hasdxy then
  3684             if hasdxy then
  3685                 begin
  3685                 begin
  3686                 s: = Distance(iterator^.dX, iterator^.dY);
  3686                 s := Distance(iterator^.dX, iterator^.dY);
  3687                 // if the resulting distance is 0 skip this gear
  3687                 // if the resulting distance is 0 skip this gear
  3688                 if s.QWordValue = 0 then
  3688                 if s.QWordValue = 0 then
  3689                     continue;
  3689                     continue;
  3690                 s := r / s
  3690                 s := r / s;
  3691                 ox:= iterator^.X + s * iterator^.dX;
  3691                 ox:= iterator^.X + s * iterator^.dX;
  3692                 oy:= iterator^.Y + s * iterator^.dY;
  3692                 oy:= iterator^.Y + s * iterator^.dY;
  3693                 end
  3693                 end
  3694             else
  3694             else
  3695                 begin
  3695                 begin