function CorrectUnitPointOrder takes unit u, real x, real y, integer orderid returns nothing
     local real a = Atan2(GetWidgetY(u) - y,GetWidgetX(u) - x)
     local real dist = (GetWidgetY(u) - y)*(GetWidgetY(u) - y)+(GetWidgetX(u) - x)*(GetWidgetX(u) - x)
     local real x1
     local real y1
      
     call IssueImmediateOrderById(u,851972)
      
     loop
         exitwhen dist <= 0
         set x1 = x + dist * Cos(a)
         set y1 = y + dist * Sin(a)
         if IsPointWater(x1,y1) == true or IsTerrainPathable(x1,y1,PATHING_TYPE_WALKABILITY) == false then
             call IssuePointOrderById(u,orderid,x1,y1)
             set dist = 14.     
         endif
         set dist = dist - 15.
     endloop    
endfunction