Automatic Safe Tile Marking - Standard Version

# Automatic exclusion marking - Standard version by Ultraviolent4

{
function c_answer_prompt(prompt)
  if prompt == "Really walk into a travel-excluded area?" then
    return true
  end
  if prompt == "Really fly into a travel-excluded area?" then
    return true
  end
  if prompt == "Really swim into a travel-excluded area?" then
    return true
  end
end
}

{
function mark_monsters()
los = you.los()
 for i = -los,los do
    for j = -los,los do
      m = monster.get_monster_at(i,j)
      if m and (not should_ignore_monster(m)) then
        local feat = view.feature_at(i,j)
        if not should_ignore_feature(feat) then
          travel.set_exclude(i,j,0)
        end
      end
    end
  end
end
}

{
function mark_feet()
  local feat = view.feature_at(0,0)
  if not should_ignore_feature(feat) then
    travel.set_exclude(0,0,0)
  end
end
}

{
function ready()
  mark_monsters()
  mark_feet()
end
}

{
function should_ignore_monster(m)
  local name = m:name()
  return name:find("spire")
         or name:find("fulminant")
         or name:find("battlesphere")
end
}

{
function should_ignore_feature(feat)
  return feat_is_stair(feat)
         or feat_is_door(feat)
         or feat:find("altar")
         or feat:find("shop")
         or feat:find("portal")
         or feat:find("arch")
         or feat:find("leading out of this place")
         or feat:find("gate")
end
}

{
function feat_is_door(feat)
  return feat:find("door")
end
}

{
function feat_is_stair(feat)
  return (feat:find("stone_stairs_up") or
         (feat:find("exit_") and (feat == "exit_hell" or feat == "exit_vaults"
          or feat == "exit_zot" or feat == "exit_slime_pits"
          or feat == "exit_orcish_mines" or feat == "exit_lair"
          or feat == "exit_crypt" or feat == "exit_snake_pit"
          or feat == "exit_elven_halls" or feat == "exit_tomb"
          or feat == "exit_swamp" or feat == "exit_shoals"
          or feat == "exit_spider_nest" or feat == "exit_depths"
          or feat == "exit_temple" or feat == "exit_dungeon"))
          or feat == "escape_hatch_up"
          or feat:find("stone_stairs_down")
          or feat:find("enter_")
          or feat == "escape_hatch_down")
end
}