UITasks.lua

-- The task card: shown in place of the recipe (Craft tab and the profession-window view) when the
-- route is at a step that isn't a craft - train a rank, buy a book, learn a recipe, buy supplies,
-- fish to a skill. What to do, a checklist the game ticks off, the nearest NPCs with a map pin
-- button each, the cost, and "Mark as done" for anything the game can't confirm.
local _, CR = ...

local TICK = "|TInterface\\RaidFrame\\ReadyCheck-Ready:14|t "
local CROSS = "|TInterface\\RaidFrame\\ReadyCheck-NotReady:14|t "
local MAX_CHECKS, MAX_PLACES = 16, 3

-- Book names, for "Bought ..." lines before the item is cached.
CR.extraNames[16083] = "Expert Fishing - The Bass and You"
CR.extraNames[16072] = "Expert Cookbook"
CR.extraNames[16084] = "Expert First Aid - Under Wraps"

local function Yards(d)
  if d >= 1000 then return string.format("%.1fk yd", d / 1000) end
  return string.format("%d yd", math.floor(d + 0.5))
end

-- width: the card's width (text wraps to it).
function CR.CreateTaskCard(parent, width)
  local card = CreateFrame("Frame", nil, parent)
  card:SetSize(width, 200)
  card:Hide()

  card.icon = card:CreateTexture(nil, "ARTWORK")
  card.icon:SetSize(44, 44)
  card.icon:SetPoint("TOPLEFT", 0, 0)
  card.icon:SetTexCoord(0.07, 0.93, 0.07, 0.93)
  card.kind = card:CreateFontString(nil, "OVERLAY", "GameFontNormalSmall")
  card.kind:SetPoint("TOPLEFT", card.icon, "TOPRIGHT", 10, -2)
  CR.ThemeRegisterAccentText(card.kind)
  card.title = card:CreateFontString(nil, "OVERLAY", "GameFontHighlightLarge")
  card.title:SetPoint("TOPLEFT", card.kind, "BOTTOMLEFT", 0, -3)
  card.title:SetJustifyH("LEFT")
  card.title:SetWordWrap(true)

  card.text = card:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
  card.text:SetJustifyH("LEFT")
  card.text:SetJustifyV("TOP")
  card.text:SetWordWrap(true)
  if card.text.SetSpacing then card.text:SetSpacing(2) end

  card.checks, card.checkPins = {}, {}
  for i = 1, MAX_CHECKS do
    local fs = card:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
    fs:SetJustifyH("LEFT")
    fs:SetWordWrap(true)
    card.checks[i] = fs
    -- an objective with a place (a fishing spot) gets a Pin of its own
    local pin = CreateFrame("Button", nil, card, "UIPanelButtonTemplate")
    pin:SetSize(40, 18)
    pin:SetText("Pin")
    CR.ThemeRegisterButton(pin)
    pin:SetScript("OnClick", function(self) if self.place then CR.PinPlace(self.place) end end)
    pin:SetScript("OnEnter", function(self)
      GameTooltip:SetOwner(self, "ANCHOR_TOP")
      GameTooltip:SetText("Map pin")
      GameTooltip:AddLine("Puts a pin on your map where to get this, and tracks it on screen.", 1, 1, 1, true)
      GameTooltip:Show()
    end)
    pin:SetScript("OnLeave", GameTooltip_Hide)
    pin:Hide()
    card.checkPins[i] = pin
  end

  -- skill progress for leveling steps (fishing)
  card.bar = CreateFrame("StatusBar", nil, card, "BackdropTemplate")
  card.bar:SetHeight(14)
  card.bar:SetStatusBarTexture("Interface\\TargetingFrame\\UI-StatusBar")
  card.bar:SetMinMaxValues(0, 1)
  CR.Backdrop(card.bar, 0, 0, 0, 0.6)
  card.bar.text = card.bar:CreateFontString(nil, "OVERLAY", "GameFontHighlightSmall")
  card.bar.text:SetPoint("CENTER")

  card.whereLabel = card:CreateFontString(nil, "OVERLAY", "GameFontNormal")
  card.whereLabel:SetText("Where")
  CR.ThemeRegisterAccentText(card.whereLabel)
  card.places = {}
  for i = 1, MAX_PLACES do
    local row = CreateFrame("Frame", nil, card)
    row:SetHeight(24)
    row.pin = CreateFrame("Button", nil, row, "UIPanelButtonTemplate")
    row.pin:SetSize(46, 20)
    row.pin:SetPoint("LEFT", 0, 0)
    row.pin:SetText("Pin")
    CR.ThemeRegisterButton(row.pin)
    row.pin:SetScript("OnClick", function() if row.place then CR.PinPlace(row.place) end end)
    row.pin:SetScript("OnEnter", function(self)
      GameTooltip:SetOwner(self, "ANCHOR_TOP")
      GameTooltip:SetText("Map pin")
      GameTooltip:AddLine("Puts a pin on your map here and tracks it on screen.", 1, 1, 1, true)
      GameTooltip:Show()
    end)
    row.pin:SetScript("OnLeave", GameTooltip_Hide)
    row.text = row:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
    row.text:SetPoint("LEFT", row.pin, "RIGHT", 8, 0)
    row.text:SetPoint("RIGHT", 0, 0)
    row.text:SetJustifyH("LEFT")
    row.text:SetWordWrap(false)
    card.places[i] = row
  end
  card.noPlace = card:CreateFontString(nil, "OVERLAY", "GameFontDisableSmall")
  card.noPlace:SetJustifyH("LEFT")
  card.noPlace:SetWordWrap(true)

  card.cost = card:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
  card.cost:SetJustifyH("LEFT")

  -- a gathering step's herbs / veins: green = you can gather it now, red = not yet (its skill)
  card.nodesLabel = card:CreateFontString(nil, "OVERLAY", "GameFontNormal")
  CR.ThemeRegisterAccentText(card.nodesLabel)
  card.nodes = card:CreateFontString(nil, "OVERLAY", "GameFontHighlight")
  card.nodes:SetJustifyH("LEFT")
  card.nodes:SetSpacing(3)

  card.done = CreateFrame("Button", nil, card, "UIPanelButtonTemplate")
  card.done:SetSize(130, 22)
  card.done:SetText("Mark as done")
  CR.ThemeRegisterButton(card.done)
  card.done:SetScript("OnClick", function()
    if card.task then CR.MarkTaskDone(card.task, not card.task.manual) end
  end)
  card.done:SetScript("OnEnter", function(self)
    GameTooltip:SetOwner(self, "ANCHOR_TOP")
    if card.task and card.task.manual then
      GameTooltip:SetText("Not done yet")
      GameTooltip:AddLine("Puts this step back on the route.", 1, 1, 1, true)
      GameTooltip:Show()
      return
    end
    GameTooltip:SetText("Mark as done")
    GameTooltip:AddLine(card.task and card.task.auto and "The game ticks this off by itself when it's done - "
      .. "use this if it hasn't." or "The game can't tell when this is done - click when you have.", 1, 1, 1, true)
    GameTooltip:Show()
  end)
  card.done:SetScript("OnLeave", GameTooltip_Hide)

  local KIND_LABEL = { train = "TRAINING", book = "BOOK", quest = "QUEST", recipe = "LEARN A RECIPE", buy = "SHOPPING",
                       guide = "NEXT STEP" }

  -- Lays the card out top to bottom for this width; returns its height.
  function card:Fill(task, w)
    self.task = task
    w = w or self:GetWidth() or width
    self:SetWidth(w)
    self.icon:SetTexture(task.icon or "Interface\\Icons\\INV_Misc_Note_01")
    self.kind:SetText((KIND_LABEL[task.kind] or "NEXT STEP") .. (task.done and "  -  DONE"
      or (task.waiting and string.format("  -  AT %s %d", (task.skillName or ""):upper(), task.waiting))
      or (task.prep and "  -  GET READY" or "")))
    self.title:SetWidth(w - 54)
    self.title:SetText(task.title or "")
    local y = -math.max(48, 22 + (self.title:GetStringHeight() or 18)) - 10

    self.text:ClearAllPoints()
    self.text:SetPoint("TOPLEFT", 0, y)
    self.text:SetWidth(w)
    self.text:SetText(task.text or "")
    y = y - (self.text:GetStringHeight() or 14) - 12

    for i, fs in ipairs(self.checks) do
      local c = task.checks[i]
      local pin = self.checkPins[i]
      pin.place = c and c.place
      pin:SetShown(c and c.place and true or false)
      if c then
        local indent = c.place and 46 or 0
        if c.place then
          pin:ClearAllPoints()
          pin:SetPoint("TOPLEFT", 0, y + 2)
        end
        fs:ClearAllPoints()
        fs:SetPoint("TOPLEFT", indent, y)
        fs:SetWidth(w - indent)
        fs:SetText((c.ok and TICK or CROSS) .. c.text)
        fs:SetTextColor(c.ok and 0.6 or 1, c.ok and 1 or 0.85, c.ok and 0.6 or 0.6)
        fs:Show()
        y = y - math.max(c.place and 20 or 0, (fs:GetStringHeight() or 14)) - 4
      else
        fs:Hide()
      end
    end

    if task.progress then
      local p = task.progress
      self.bar:ClearAllPoints()
      self.bar:SetPoint("TOPLEFT", 0, y - 4)
      self.bar:SetWidth(w)
      local span = math.max(1, p.to - p.from)
      self.bar:SetValue(math.max(0, math.min(1, (p.cur - p.from) / span)))
      self.bar:SetStatusBarColor(CR.ProfessionColor(task.skillName))
      self.bar.text:SetText(string.format("%s %d / %d", task.skillName or "", p.cur, p.to))
      self.bar:Show()
      y = y - 26
    else
      self.bar:Hide()
    end

    y = y - 6
    self.whereLabel:ClearAllPoints()
    self.whereLabel:SetPoint("TOPLEFT", 0, y)
    y = y - 20
    local shown = 0
    for i, row in ipairs(self.places) do
      local pl = task.places[i]
      if pl then
        shown = shown + 1
        row.place = pl
        row:ClearAllPoints()
        row:SetPoint("TOPLEFT", 0, y)
        row:SetWidth(w)
        local where = pl.dist and (pl.zone .. CR.ColorText("  " .. Yards(pl.dist), "aaaaaa"))
          or (pl.far and (pl.zone .. CR.ColorText("  (another continent)", "aaaaaa")) or pl.zone)
        row.text:SetText(pl.name .. CR.ColorText("  -  ", "888888") .. where)
        row:Show()
        y = y - 26
      else
        row:Hide()
      end
    end
    self.whereLabel:SetShown(true)
    if shown == 0 then
      self.noPlace:ClearAllPoints()
      self.noPlace:SetPoint("TOPLEFT", 0, y)
      self.noPlace:SetWidth(w)
      self.noPlace:SetText(TrainerSpellsProfessionTrainers and "Follow the directions above - no map position known."
        or "Install the TrainerSpells addon to see where trainers and vendors are, with map pins.")
      self.noPlace:Show()
      y = y - (self.noPlace:GetStringHeight() or 14) - 6
    else
      self.noPlace:Hide()
    end

    y = y - 6
    if task.cost and task.cost > 0 then
      self.cost:ClearAllPoints()
      self.cost:SetPoint("TOPLEFT", 0, y)
      self.cost:SetText(CR.ColorText("Cost: ", "ffd100") .. CR.FormatMoney(task.cost))
      self.cost:Show()
      y = y - 22
    else
      self.cost:Hide()
    end

    if task.nodes and #task.nodes.list > 0 then
      self.nodesLabel:ClearAllPoints()
      self.nodesLabel:SetPoint("TOPLEFT", 0, y)
      self.nodesLabel:SetText(task.nodes.label or "Gather")
      self.nodesLabel:Show()
      y = y - 20
      local lines = {}
      for _, n in ipairs(task.nodes.list) do
        local col = n.ok and "40ff40" or "ff4040"
        table.insert(lines, CR.ColorText(n.name, col) .. CR.ColorText("  " .. n.skill, n.ok and "aaaaaa" or "ff8080"))
      end
      self.nodes:ClearAllPoints()
      self.nodes:SetPoint("TOPLEFT", 0, y)
      self.nodes:SetWidth(w)
      self.nodes:SetText(table.concat(lines, "\n"))
      self.nodes:Show()
      y = y - (self.nodes:GetStringHeight() or 14) - 10
    else
      self.nodesLabel:Hide()
      self.nodes:Hide()
    end

    -- done by the game: nothing to click; ticked by hand: can be undone
    self.done:ClearAllPoints()
    self.done:SetPoint("TOPLEFT", 0, y - 4)
    self.done:SetText(task.manual and "Not done yet" or "Mark as done")
    self.done:SetShown(not task.done or task.manual)
    y = y - 30
    self:SetHeight(-y)
    self:Show()
    return -y
  end

  return card
end

-- The card in a scrolling box, for when there's more than fits (long guide text, many
-- objectives). Anchor the box's top and bottom; :Fill(task, w) / :Hide() as on the card.
-- Mouse wheel scrolls; a slim bar on the right shows where you are.
function CR.CreateTaskScroll(parent, width)
  local box = CreateFrame("Frame", nil, parent)
  box:SetWidth(width + 12)
  box:Hide()
  local sf = CreateFrame("ScrollFrame", nil, box)
  sf:SetPoint("TOPLEFT", 0, 0)
  sf:SetPoint("BOTTOMRIGHT", -12, 0)
  -- (the card's buttons - Pin, the places, Mark as done - are frames: clipped to the box too, so
  -- nothing runs past it; the rest is reached by scrolling)
  if sf.SetClipsChildren then sf:SetClipsChildren(true) end
  local card = CR.CreateTaskCard(sf, width)
  card:SetPoint("TOPLEFT", 0, 0)
  sf:SetScrollChild(card)
  box.card = card

  local track = CreateFrame("Frame", nil, box, "BackdropTemplate")
  track:SetWidth(5)
  track:SetPoint("TOPRIGHT", 0, 0)
  track:SetPoint("BOTTOMRIGHT", 0, 0)
  CR.Backdrop(track, 0.1, 0.1, 0.1, 0.8)
  track.crOwnBorder = true
  local thumb = track:CreateTexture(nil, "OVERLAY")
  thumb:SetColorTexture(0.6, 0.6, 0.6, 0.9)
  thumb:SetWidth(5)

  local function MaxScroll() return math.max(0, (card:GetHeight() or 0) - (sf:GetHeight() or 0)) end
  local function Update()
    local max = MaxScroll()
    if (sf:GetVerticalScroll() or 0) > max then sf:SetVerticalScroll(max) end
    track:SetShown(max > 0)
    if max <= 0 then return end
    local vis, total = sf:GetHeight() or 1, card:GetHeight() or 1
    local h = math.max(16, vis * vis / total)
    thumb:SetHeight(h)
    thumb:ClearAllPoints()
    thumb:SetPoint("TOP", track, "TOP", 0, -(vis - h) * ((sf:GetVerticalScroll() or 0) / max))
  end
  sf:EnableMouseWheel(true)
  sf:SetScript("OnMouseWheel", function(_, delta)
    sf:SetVerticalScroll(math.max(0, math.min(MaxScroll(), (sf:GetVerticalScroll() or 0) - delta * 40)))
    Update()
  end)
  sf:SetScript("OnSizeChanged", Update)

  function box:Fill(task, w)
    w = w or width
    self:SetWidth(w + 12)
    -- a different step starts at the top
    if self.lastKey ~= task.key then sf:SetVerticalScroll(0) end
    self.lastKey = task.key
    card:Fill(task, w)
    self:Show()
    Update()
    if C_Timer then C_Timer.After(0, Update) end   -- once the box has its size
    return card:GetHeight()
  end
  return box
end