function PolarOffset takes location loc, real dist, real angle returns location
    local real x = GetLocationX(loc) + dist * Cos(angle * bj_DEGTORAD)
    local real y = GetLocationY(loc) + dist * Sin(angle * bj_DEGTORAD)
    call MoveLocation(loc, x, y)
    return loc
endfunction

function <Тут твоя функция> takes nothing, returns nothing
    local location newloc
    PolarOffset (newloc,<Тут расстояние>,<Тут градусы>)
    //тут твои действия с точкой
    removelocation (newloc)
endfunction