get_project_point(m_ptr->fy, m_ptr->fx, &by, &bx, 0L);
if ((distance(by, bx, y, x) <= 3) && los(by, bx, y, x) && one_in_(5))
{
get_project_point(m_ptr->fy, m_ptr->fx, &by, &bx, 0L);
if ((distance(by, bx, y, x) <= 3) && los(by, bx, y, x) && one_in_(5))
{