hedgewars/GSHandlers.inc
branch0.9.19
changeset 8898 0ccaa19c6367
parent 8838 aa2ffd427f6a
child 8900 b77fd3c2eec5
equal deleted inserted replaced
8896:fea1993ded33 8898:0ccaa19c6367
  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 := r / Distance(iterator^.dX, iterator^.dY);
  3686                 s: = Distance(iterator^.dX, iterator^.dY);
       
  3687                 // if the resulting distance is 0 skip this gear
       
  3688                 if s.QWordValue = 0 then
       
  3689                     continue;
       
  3690                 s := r / s
  3687                 ox:= iterator^.X + s * iterator^.dX;
  3691                 ox:= iterator^.X + s * iterator^.dX;
  3688                 oy:= iterator^.Y + s * iterator^.dY;
  3692                 oy:= iterator^.Y + s * iterator^.dY;
  3689                 end
  3693                 end
  3690             else
  3694             else
  3691                 begin
  3695                 begin