questhelperredux/QuestHelper/director_find.lua

QuestHelper_File["director_find.lua"] = "4.0.1.$svnversion$"
QuestHelper_Loadtime["director_find.lua"] = GetTime()

local function getitall(name)
  local segments = {}
  for i = 1, #name - 1 do
    local sub = name:sub(i, i + 1):lower()
    if not sub:find(" ") then
      local dbi = DB_GetItem("find", sub:byte(1) * 256 + sub:byte(2), true)
      --print("inserting", sub)
      if not dbi then return {} end
      segments[dbi] = true
    end
  end
  
  local segwork = {}
  for k in pairs(segments) do
    table.insert(segwork, {k, 1, k[1]})
  end
  
  local found = {}
  
  while true do
    local lowest = segwork[1][3]
    local highest = segwork[1][3]
    local lid = 1
    for i = 2, #segwork do
      local v = segwork[i][3]
      --print("loop", i, lowest, highest, v, segwork[i][2])
      if v < lowest then
        --print("lower")
        lowest, lid = v, i
      end
      if v > highest then
        --print("higher")
        highest = v
      end
    end
    
    if lowest == highest then
      table.insert(found, lowest)
      segwork[1][2] = segwork[1][2] + 1
      if not segwork[1][1][segwork[1][2]] then break end
      segwork[1][3] = segwork[1][3] + segwork[1][1][segwork[1][2]]
    else
      while segwork[lid][3] < highest do
        segwork[lid][2] = segwork[lid][2] + 1
        if not segwork[lid][1][segwork[lid][2]] then break end
        segwork[lid][3] = segwork[lid][3] + segwork[lid][1][segwork[lid][2]]
      end
    end
    
    if not segwork[lid][1][segwork[lid][2]] then break end
  end
  
  return found
end

local function generate_objective(dbi)
  local clooster = {}

  local why = {desc = dbi.name, tracker_desc = dbi.name}
  for _, v in ipairs(dbi.loc) do
    QuestHelper: Assert(QuestHelper_ParentLookup)
    QuestHelper: Assert(QuestHelper_ParentLookup[v.p], v.p)
    table.insert(clooster, {loc = {x = v.x, y = v.y, c = QuestHelper_ParentLookup[v.p], p = v.p}, cluster = clooster, tracker_hidden = true, why = why, map_desc = {QuestHelper:HighlightText(dbi.name)}, tracker_desc = dbi.name, map_suppress_ignore = true, map_custom_menu = function (menu) QuestHelper:CreateMenuItem(menu, QHText("FIND_REMOVE")):SetFunction(function () QH_Route_ClusterRemove(clooster) end) end})
  end
  
  QH_Route_ClusterAdd(clooster)
end

local msfires = {desc = QHText("FIND_CUSTOM_LOCATION"), tracker_desc = QHText("FIND_CUSTOM_LOCATION")}

local function QH_FindCoord(locx, locy, locz, label)
  if not type(locz) == "number" then -- If it is a number, we are probably doing an elder right now.
    for z, nam in pairs(QuestHelper_NameLookup) do
      if nam:lower():find(locz:lower()) then
        locz = z
        break
      end
    end
  end
    
  if type(locz) == "number" then
    local ec, ez = unpack(QuestHelper_ZoneLookup[locz])
    local c, x, y = QuestHelper.Astrolabe:GetAbsoluteContinentPosition(ec, ez, locx / 100, locy / 100)
    local node = {loc = {x = x, y = y, p = locz, c = QuestHelper_ParentLookup[locz]}, why = {desc = label, tracker_desc = label}, map_desc = {label}, tracker_desc = label, tracker_hidden = true}
    local cluster = {node}
    node.cluster = cluster
        
    node.map_suppress_ignore = true
    node.map_custom_menu = function (menu) QuestHelper:CreateMenuItem(menu, QHText("FIND_REMOVE")):SetFunction(function () QH_Route_ClusterRemove(cluster) end) end
        
    QH_Route_ClusterAdd(cluster)
  end
end

local function QH_FindLoc(locd)
  -- I just know some guy's gonna get pissed off because he was trying to find "loc crocolisk" or something, but screw him
  local locx, locy, locz
 
  locx, locy = locd:match("^(%d+) (%d+)$")
  if locx and locy then
    locx, locy = tonumber(locx), tonumber(locy)
    locz = QuestHelper_NameLookup[QuestHelper_IndexLookup[QuestHelper.routing_c][QuestHelper.routing_z]]
  end
 
  if not locx then
    locz, locx, locy = locd:match("^(.+) (%d+) (%d+)$")
    locx, locy = tonumber(locx), tonumber(locy)
  end
 
  if locz then
    QH_FindCoord(locx, locy, locz, QHText("FIND_CUSTOM_LOCATION"))
  end
end

local elders = {
  ["Alliance"] = {
    ["Bladeswift"] = {21, 39, 32}, --"Darnassus 39 32",
    ["Bronzebeard"] = {25, 29, 16}, --"Ironforge 29 16",
    ["Hammershout"] = {37, 2, 10}, --"Elwynn Forest 34 50"
  },
  ["Horde"] = {
    ["Darkhorn"] = {1, 52, 60}, --"Orgrimmar 52 60",
    ["Wheathoof"] = {23, 72, 33}, --"Thunder Bluff 72 33",
    ["Darkcore"] = {45, 67, 38}, --"Undercity 67 38"
  },
  ["Kalimdor"] = {
    ["Riversong"] = {2, 35, 48}, --"Ashenvale 35 48",
    ["Skygleam"] = {15, 64, 79}, --"Azshara 64 79",
    ["High Mountain"] = {203, 41.5, 47.5}, --"Southern Barrens 41.5 47.5",
    ["Moonwarden"] = {11, 48.5, 59.2}, --"Northern Barrens 48.5 59.2",
    ["Windtotem"] = {11, 68, 69}, --"Northern Barrens 68 69",
    ["Starweave"] = {16, 49.5, 19.0}, --"Darkshore 49.5 19.0", NOTE TO SELF -- CONVERTING TO LOOKUP VALUES DON'T FORGET TO CHANGE THE FUNCTION!!!!!!!
    ["Runetotem"] = {7, 54, 44}, --"Durotar 54 44",
    ["Nightwind"] = {13, 37, 52}, --"Felwood 37 52",
    ["Grimtotem"] = {17, 76, 37}, --"Feralas 76 37",
    ["Mistwalker"] = {17, 62, 31}, --"Feralas 62 31",
    ["Bloodhoof"] = {22, 48, 53}, --"Mulgore 48 53",
    ["Bladesing"] = {5, 53, 35}, --"Silithus 53 35",
    ["Primestone"] = {5, 30.7, 13.3}, --"Silithus 30.7 13.3",
    ["Dreamseer"] = {8, 50, 28}, --"Tanaris 50 28",
    ["Ragetotem"] = {8, 36, 80}, --"Tanaris 36 80",
    ["Bladeleaf"] = {24, 57, 73}, --"Teldrassil 57 53",
    ["Skyseer"] = {14, 45, 50}, --"Thousand Needles 45 50",
    ["Morningdew"] = {14, 77.0, 75.6}, --"Thousand Needles 77.0 75.6",
    ["Thunderhorn"] = {18, 51, 75}, --"Un'Goro Crater 51 75",
    ["Brightspear"] = {19, 53.0, 56.7}, --"Winterspring 53.0 56.7",
    ["Stonespire"] = {19, 60.0, 50.0}, --"Winterspring 60.0 50.0",
  },
  ["Eastern Kingdoms"] = {
    ["Bellowrage"] = {33, 54, 49}, --"Blasted Lands 54 49",
    ["Rumblerock"] = {40, 70, 45}, --"Burning Steppes 70 45",
    ["Dawnstrider"] = {40, 53, 24}, --"Burning Steppes 53 24",
    ["Goldwell"] = {28, 53.9, 49.9}, --"Dun Morogh 53 49",
    ["Windrun"] = {34, 35.6, 68.8}, --"Eastern Plaguelands 35 68",
    ["Snowcrown"] = {34, 75.7, 54.5}, --"Eastern Plaguelands 75.7 54.5",
    ["Stormbrow"] = {37, 40, 63}, --"Elwynn Forest 40 63",
    ["Highpeak"] = {42, 50, 48}, --"Hinterlands 50 48",
    ["Silvervein"] = {29, 33, 46}, --"Loch Modan 33 46",
    ["Ironband"] = {32, 21, 79}, --"Searing Gorge 21 79",
    ["Obsidian"] = {35, 45, 41}, --"Silverpine Forest 45 41",
    ["Starglade"] = {38, 63, 22}, --"Stranglethorn Vale 63 22", -- Jungle 71 34
    ["Winterhoof"] = {38, 37, 39}, --"Stranglethorn Vale 37 79", -- Cape 39 72
    ["Graveborn"] = {43, 61, 53}, --"Tirisfal Glades 61 53",
    ["Moonstrike"] = {50, 69, 73}, --"Western Plaguelands 69 73",
    ["Meadowrun"] = {50, 63.5, 36.2}, --"Western Plaguelands 63 36",
    ["Skychaser"] = {49, 56, 47}, --"Westfall 56 47"
  },
  ["Northrend"] = {
    ["Arp"] = {65, 57, 44}, --"Borean Tundra 57 44",
    ["Northal"] = {65, 34, 34}, --"Borean Tundra 34 34",
    ["Pamuya"] = {65, 43, 50}, --"Borean Tundra 43 50",
    ["Sardis"] = {65, 59, 66}, --"Borean Tundra 59 66",
    ["Morthie"] = {68, 30, 56}, --"Dragonblight 30 56",
    ["Skywarden"] = {68, 35, 48}, --"Dragonblight 35 48",
    ["Thoim"] = {68, 49, 78}, --"Dragonblight 49 78",
    ["Beldak"] = {69, 61, 28}, --"Grizzly Hills 61 28",
    ["Lunaro"] = {69, 81, 37}, --"Grizzly Hills 81 37",
    ["Whurain"] = {69, 64, 47}, --"Grizzly Hills 64 47",
    ["Bluewolf"] = {74, 49, 14}, --"Wintergrasp 49 14",
    ["Sandrene"] = {72, 50, 64}, --"Sholazar Basin 50 64",
    ["Wanikaya"] = {72, 64, 49}, --"Sholazar Basin 64 49",
    ["Fargal"] = {73, 29, 74}, --"Storm Peaks 29 74",
    ["Graymane"] = {73, 41, 85}, --"Storm Peaks 41 85",
    ["Muraco"] = {73, 64, 51}, --"Storm Peaks 64 51",
    ["Stonebeard"] = {73, 31, 38}, --"Storm Peaks 31 38",
    ["Tauros"] = {75, 59, 56}, --"Zul'Drak 59 56"
  }
}

local function QH_FindElders(elder_or_achievement, all_elders)
  local achievement_match, elder_match = false, false
  for achievement, eldrs in pairs(elders) do
    if not all_elders then
      if elder_or_achievement == string.upper(achievement) then achievement_match = true end
    end

    for elder, elder_loc in pairs(eldrs) do
      if not all_elders then
        if achievement_match then -- just add it
          local locz, locx, locy = unpack(elder_loc)
          QH_FindCoord(locx, locy, locz, elder)
        elseif elder_or_achievement == string.upper(elder) then -- We have input and it's not an achievement, so it must be an elder.
          elder_match = true
          local locz, locx, locy = unpack(elder_loc)
          QH_FindCoord(locx, locy, locz, elder)
          break -- We've found him or her.
        end -- No need for else here. We alread know we don't need everything so we either have an achievement or we have an elder.
      else -- We came in without an input, therefore we add all.
        local locz, locx, locy = unpack(elder_loc)
        QH_FindCoord(locx, locy, locz, elder)
      end
    end

    if achievement_match or elder_match then break end -- We've done our match.
  end
end

function QH_FindName(name)
  local locd = name:match("^loc (.+)")
  local elder_loc
  
  if not locd then
    if name:find("^elders?") then
      elder_loc = name:match("elders? (.+)")
      if not elder_loc then elder_loc = true end
    end
  end

  if locd then
    QH_FindLoc(locd)
  elseif elder_loc then
    if elder_loc == true then QH_FindElders(nil, true)
    else QH_FindElders(string.upper(elder_loc))
    end
  else
    if not DB_Ready() then
      QuestHelper:TextOut(QHText("FIND_NOT_READY"))
      return
    end
    
    if #name < 2 then
      QuestHelper:TextOut(QHText("FIND_USAGE"))
      return
    end
    
    local found = getitall(name)
    
    local mennix = QuestHelper:CreateMenu()
    QuestHelper:CreateMenuTitle(mennix, QHText("RESULTS_TITLE"))
   
    local made_item = false
    
    local found_db = {}
    local has_name = {}
    local needs_postfix = {}
    
    for _, v in ipairs(found) do
      local dbi = DB_GetItem("monster", v)
      --[[ assert(dbi) ]]
      
      if dbi.loc then
        table.insert(found_db, dbi)
        
        if has_name[dbi.name] then needs_postfix[dbi.name] = true end
        has_name[dbi.name] = true
      end
    end
    
    table.sort(found_db, function (a, b) return a.name < b.name end)
    
    for _, v in ipairs(found_db) do
      made_item = true
    
      local name = v.name
      
      if needs_postfix[name] then name = name .. " (" .. QuestHelper_NameLookup[v.loc[1].p] .. ")" end
      
      local opt = QuestHelper:CreateMenuItem(mennix, name)
      opt:SetFunction(generate_objective, v)
    end
    
    if not made_item then
      QuestHelper:CreateMenuItem(mennix, QHText("NO_RESULTS"))
    end
    
    mennix:ShowAtCursor()
  end
end