RoleIcons.lua

local addonName, vars = ...
local L = vars.L
local LaddonName = L[addonName]
RoleIcons = vars
local addon = RoleIcons
local _G = getfenv(0)
local string, table, pairs, ipairs, tonumber, wipe =
      string, table, pairs, ipairs, tonumber, wipe
local InCombatLockdown, UnitGroupRolesAssigned, UnitName, UnitClass, UnitLevel, UnitIsPlayer, UnitIsGroupLeader, UnitIsGroupAssistant =
      InCombatLockdown, UnitGroupRolesAssigned, UnitName, UnitClass, UnitLevel, UnitIsPlayer, UnitIsGroupLeader, UnitIsGroupAssistant
local defaults = {
  raid =         { true,  L["Show role icons on the Raid tab"] },
  tooltip =      { true,  L["Show role icons in player tooltips"] },
  hbicon =       { false, L["Show role icons in HealBot bars"] },
  chat =         { true,  L["Show role icons in chat windows"] },
  system =       { true,  L["Show role icons in system messages"] },
  debug =        { false, L["Debug the addon"] },
  classbuttons = { true,  L["Add class summary buttons to the Raid tab"] },
  rolebuttons =  { true,  L["Add role summary buttons to the Raid tab"] },
  serverinfo =   { true,  L["Add server info frame to the Raid tab"] },
  trimserver =   { true,  L["Trim server names in tooltips"] },
  autorole =     { true,  L["Automatically set role and respond to role checks based on your spec"] },
  target =       { true,  L["Show role icons on the target frame (default Blizzard frames)"] },
  focus =        { true,  L["Show role icons on the focus frame (default Blizzard frames)"] },
  popup =        { true,  L["Show role icons in unit popup menus"] },
  map =          { true,  L["Show role icons in map tooltips"] },
}
local settings
local maxlvl = GetMaxLevelForLatestExpansion()
vars.svnrev = {}
vars.svnrev["RoleIcons.lua"] = tonumber(("$Revision: 181 $"):match("%d+"))

-- tie-in for third party addons to highlight raid buttons
-- table maps GUID => highlight = boolean
RoleIcons.unitstatus = {}
RoleIcons.unitstatus.refresh = function() addon.UpdateRGF() end

local chats = {
    CHAT_MSG_SAY = 1, CHAT_MSG_YELL = 1,
    CHAT_MSG_WHISPER = 1, CHAT_MSG_WHISPER_INFORM = 1,
    CHAT_MSG_PARTY = 1, CHAT_MSG_PARTY_LEADER = 1,
    CHAT_MSG_INSTANCE_CHAT = 1, CHAT_MSG_INSTANCE_CHAT_LEADER = 1,
    CHAT_MSG_RAID = 1, CHAT_MSG_RAID_LEADER = 1, CHAT_MSG_RAID_WARNING = 1,
    CHAT_MSG_BATTLEGROUND_LEADER = 1, CHAT_MSG_BATTLEGROUND = 1,
    }

local TTframe, TTfunc

local iconsz = 19
local riconsz = iconsz
local role_tex_file = "Interface\\LFGFrame\\UI-LFG-ICON-PORTRAITROLES.blp"
local role_t = "\124T"..role_tex_file..":%d:%d:"
local role_tex = {
   DAMAGER = role_t.."0:0:64:64:20:39:22:41\124t",
   HEALER  = role_t.."0:0:64:64:20:39:1:20\124t",
   TANK    = role_t.."0:0:64:64:0:19:22:41\124t",
   LEADER  = role_t.."0:0:64:64:0:19:1:20\124t",
   SPACE   = role_t.."0:0:64:64:0:0:0:0\124t",
   NONE    = ""
}
local function getRoleTex(role,size)
  local str = role_tex[role]
  if not str or #str == 0 then return "" end
  if not size then size = 0 end
  role_tex[size] = role_tex[size] or {}
  str = role_tex[size][role]
  if not str then
     str = string.format(role_tex[role], size, size)
     role_tex[size][role] = str
  end
  return str
end
-- could also use GetTexCoordsForRole/GetTexCoordsForRoleSmallCircle
local function getRoleTexCoord(role)
  local str = role_tex[role]
  if not str or #str == 0 then return nil end
  local a,b,c,d = string.match(str, ":(%d+):(%d+):(%d+):(%d+)%\124t")
  return a/64,b/64,c/64,d/64
end

local function chatMsg(msg)
     DEFAULT_CHAT_FRAME:AddMessage("|cff6060ff"..LaddonName.."|r: "..msg)
end
local function debug(msg)
  if settings and settings.debug then
     chatMsg(msg)
  end
end

local function classColor(name, class, unit)
   if not class then return name, nil, name end
   local color = RAID_CLASS_COLORS[class]
   color = color and color.colorStr
   if unit and UnitExists(unit) then
     if not UnitIsConnected(unit) then
       color = "ff808080" -- grey
     elseif UnitIsDeadOrGhost(unit) then
       color = "ffff1919" -- red
     end
   end
   local cname = name
   if color then
     cname = "\124c"..color..name.."\124r"
   end
   return cname, color, name
end

local server_prefixes = {
  The=1, Das=1, Der=1, Die=1, La=1, Le=1, Les=1, Los=1, Las=1,
}
local function utfbytewidth(s,b)
  local c = s:byte(b)
  if not c then return 0
  elseif c >= 194 and c <= 223 then return 2
  elseif c >= 224 and c <= 239 then return 3
  elseif c >= 240 and c <= 244 then return 4
  else return 1
  end
end
local function trimServer(name, colorunit)
  local class = colorunit and
                (type(colorunit) == "string" and UnitExists(colorunit) and select(2,UnitClass(colorunit))) or
        addon.classcache[name] or
        select(2,UnitClass(name))
  name = name:gsub("%s","") -- remove space
  local cname, rname = name:match("^([^-]+)-([^-]+)$") -- split
  if not (cname and rname) then
    cname = name
    rname = nil
  end
  if rname and settings.trimserver then
    local prefix = rname:match("^(%u[^%u]*)%u")
    if prefix and server_prefixes[prefix] and #rname >= #prefix+3 then
      rname = rname:gsub("^"..prefix,"")
    end
    local p = 1 -- trim to first 3 utf8 characters
    for i=1,3 do
      p = p + utfbytewidth(rname, p)
    end
    rname = rname:sub(1, p-1) -- trim
  end
  local ret = cname..(rname and "-"..rname or "")
  return classColor(ret, class, type(colorunit) == "string" and colorunit)
end
function addon:trimServer(...) return trimServer(...) end

local sorttemp = {}
local infotemp = {}
local function toonList(role, class)
  wipe(sorttemp)
  wipe(infotemp)
  local base = IsInRaid() and "raid" or "party"
  local num = GetNumGroupMembers()
  local cnt = 0
  for i=1,num do
    local unitid
    if IsInRaid() then
      unitid = "raid"..i
    elseif i == num then
      unitid = "player"
    else
      unitid = "party"..i
    end
    if UnitExists(unitid) then
      local uname = GetUnitName(unitid, true)
      local urole = UnitGroupRolesAssigned(unitid)
      local uclass = select(2,UnitClass(unitid))
      if uname and uclass and
         ((not role)  or (role and role == urole)) and
         ((not class) or (class and class == uclass)) then
     local cname = trimServer(uname, unitid)
         uname = uname:gsub("%s","")
     table.insert(sorttemp,uname)
     if not role and urole and urole ~= "NONE" then
       cname = getRoleTex(urole)..cname
     end
     infotemp[uname] = cname
     cnt = cnt + 1
      end
    end
  end
  table.sort(sorttemp)
  local res
  for _, name in ipairs(sorttemp) do
    res = (res and res..", " or "")..infotemp[name]
  end
  return res, cnt
end

local function myDefaultRole()
  local _, class = UnitClass("player")
  if class == "MAGE" or class == "HUNTER" or class == "WARLOCK" or class == "ROGUE" then
    return "DAMAGER"
  end
  local tabIndex = GetSpecialization(false, false)
  if not tabIndex then return nil end -- untalented hybrid
  local role = GetSpecializationRole(tabIndex,false,false)
  return role
end

local frame = CreateFrame("Button", addonName.."HiddenFrame", UIParent)
frame:RegisterEvent("ADDON_LOADED");
frame:RegisterEvent("ROLE_POLL_BEGIN");
frame:RegisterEvent("GROUP_ROSTER_UPDATE");
frame:RegisterEvent("PARTY_INVITE_REQUEST");
frame:RegisterEvent("GROUP_JOINED");
frame:RegisterEvent("ACTIVE_TALENT_GROUP_CHANGED");
frame:RegisterEvent("PLAYER_TARGET_CHANGED");
frame:RegisterEvent("PLAYER_FOCUS_CHANGED");
frame:RegisterEvent("PLAYER_REGEN_ENABLED");

local function UpdateTT(tt, unit, ttline)
  if not settings.tooltip then return end
  unit = unit or (tt and tt.GetUnit and tt:GetUnit())
  if not unit then return end
  local role = UnitGroupRolesAssigned(unit)
  local leader = GetNumGroupMembers() > 0 and UnitIsGroupLeader(unit)
  if (role and role ~= "NONE") or leader then
     local name = tt:GetName()
     local line = ttline or _G[name.."TextLeft1"]
     if line and line.GetText then
       local txt = line:GetText()
       if txt and not string.find(txt,role_tex_file,1,true) then
         if leader then
           txt = getRoleTex("LEADER",iconsz)..txt
         end
         line:SetText(getRoleTex(role,iconsz)..txt)
       end
     end
  end
end

local function UpdateHBTT(unit)
  local gtt = HealBot_Globals and HealBot_Globals.UseGameTooltip
  if unit == "NONE" then return end
  debug("UpdateHBTT: unit="..tostring(unit).." gtt="..tostring(gtt))
  local tt = HealBot_Tooltip
  local ttl = HealBot_TooltipTextL1
  if gtt and gtt ~= 0 then
    tt = GameTooltip
    ttl = GameTooltipTextLeft1
  end
  if true and unit == "player" then -- fix a stray role text added by healbot
    local txt = ttl and ttl.GetText and ttl:GetText()
    if txt then
      txt = txt:gsub("^DAMAGER ",""):gsub("^TANK ",""):gsub("^HEALER ","")
      ttl:SetText(txt)
    end
  end
  UpdateTT(tt, unit, ttl)
  HealBot_Tooltip_Show() -- fix size
end

local function VuhdoHook()
  if VuhDoTooltip and VuhDoTooltipTextL1 then
    local unit = VuhDoTooltipTextL1:GetText()
    if not UnitExists(unit) then
      local s = GetMouseFocus()
      s = s and s.GetAttribute and s:GetAttribute("unit")
      if s and UnitExists(s) then unit = s end
    end
    UpdateTT(VuhDoTooltip, unit, VuhDoTooltipTextL1)
  end
end

local function HBIconHook(button, ...)
  if not settings.hbicon or not button then return end
  local bar = HealBot_Action_HealthBar and HealBot_Action_HealthBar(button)
  local unit = button and button.unit
  local role = UnitGroupRolesAssigned(unit)
  if not bar or not unit or not role or not UnitExists(unit) then return end
  debug("HBIconHook: "..unit.." "..role)
  local name = bar.GetName and bar:GetName()
  local icon
  for idx=15,16 do
    local i = name and _G[name.."Icon"..idx]
    if not i.GetTexture or not i.GetAlpha then return end
    local curr = i:GetTexture()
    debug(" Icon"..idx..": "..(curr or "nil"))
    if i.SetTexCoord then
      i:SetTexCoord(0,1,0,1)
    end
    if curr and curr:find("PORTRAITROLES") then
      if not icon then
         icon = i
      else -- duplicate role icon
         i:SetAlpha(0)
      end
    elseif curr == nil or i:GetAlpha() == 0 or curr:find("icon_class") then
      if not icon then icon = i end
    end
  end
  if not icon or not icon.SetTexture or not icon.SetTexCoord then return end
  if role == "NONE" then
    icon:SetTexture(0,0,0,0)
    icon:SetTexCoord(0,1,0,1)
  else
    icon:SetTexture(role_tex_file)
    icon:SetTexCoord(getRoleTexCoord(role))
    icon:SetAlpha(1)
  end
end

local function RoleMenuInitialize(self)
        UnitPopup_ShowMenu(UIDROPDOWNMENU_OPEN_MENU, "SELECT_ROLE", self.unit, self.name, self.id);
end

local function ShowRoleMenu(self)
        HideDropDownMenu(1);
        if ( self.id and self.name ) then
                FriendsDropDown.name = self.name;
                FriendsDropDown.id = self.id;
                FriendsDropDown.unit = self.unit;
                FriendsDropDown.initialize = RoleMenuInitialize;
                FriendsDropDown.displayMode = "MENU";
                ToggleDropDownMenu(1, nil, FriendsDropDown, "cursor");
        end
end

local classcnt = {}
local rolecnt = {}

local LC = LocalizedClassList(false)
if GetLocale() == "enUS" then
  LC["DEATHKNIGHT"] = "DK"
end
local tokendata = {
  [L["Vanquisher"]] = { { "ROGUE", LC["ROGUE"] }, { "DEATHKNIGHT", LC["DEATHKNIGHT"] }, { "MAGE", LC["MAGE"] }, { "DRUID", LC["DRUID"] } },
  [L["Protector"]] = { { "WARRIOR", LC["WARRIOR"] }, { "HUNTER", LC["HUNTER"] }, { "SHAMAN", LC["SHAMAN"] }, { "MONK", LC["MONK"] } },
  [L["Conqueror"]] = { { "PALADIN", LC["PALADIN"] }, { "PRIEST", LC["PRIEST"] }, { "WARLOCK", LC["WARLOCK"] } },
}
local function DisplayTokenTooltip()
  if not UnitInRaid("player") then return end

  GameTooltip:ClearLines()
  --GameTooltip_SetDefaultAnchor(GameTooltip, UIParent);
  GameTooltip:SetOwner(addon.headerFrame)
  TTframe = addon.headerFrame
  TTfunc = DisplayTokenTooltip
  GameTooltip:SetAnchorType("ANCHOR_TOPLEFT")
  local total = 0
  local summstr = ""
  for _,role in ipairs({"TANK","HEALER","DAMAGER"}) do
    local cnt = rolecnt[role] or 0
    summstr = summstr..cnt.." "..getRoleTex(role).."   "
    total = total + cnt
  end
  local none = rolecnt["NONE"]
  if none and none > 0 then
    summstr = summstr..none.." "..L["Unassigned"]
    total = total + none
  end

  GameTooltip:AddLine(L["Tier token breakdown:"])
  for token, ti in pairs(tokendata) do
    local tokenstr = ""
    local cnt = 0
    for _,ci in ipairs(ti) do
      local class = ci[1]
      local lclass = ci[2]
      cnt = cnt + (classcnt[class] or 0)
      if #tokenstr >  0 then tokenstr = tokenstr..", " end
      tokenstr = tokenstr..classColor(lclass,class)
    end
    GameTooltip:AddLine("\124cffff0000"..cnt.."\124r".."  \124cffffffff"..token.." (\124r"..tokenstr.."\124cffffffff)\124r")
  end

  GameTooltip:AddLine(" ")
  GameTooltip:AddLine(total.." "..L["Players:"].." "..summstr)
  GameTooltip:Show()

end

local function DisplayServerTooltip()
  addon:UpdateServers(true)
  if not addon.serverList or not addon.serverFrame then return end

  GameTooltip:ClearLines()
  --GameTooltip_SetDefaultAnchor(GameTooltip, UIParent);
  GameTooltip:SetOwner(addon.serverFrame)
  TTframe = addon.serverFrame
  TTfunc = DisplayServerTooltip
  GameTooltip:SetAnchorType("ANCHOR_BOTTOMRIGHT",-1*addon.serverFrame:GetWidth())
  GameTooltip:AddLine(L["Server breakdown:"],1,1,1)
  GameTooltip:AddDoubleLine(L["Server"], L["Players"], 1,1,1,1,1,1)

  for _,info in ipairs(addon.serverList) do
    local num = info.num
    local name = info.name
    if info.maxlevel > 0 and info.maxlevel ~= maxlvl then
      name = name.." ("..LEVEL.." "..info.maxlevel..")"
    end
    GameTooltip:AddDoubleLine(name, num)
  end

  GameTooltip:AddLine(" ")
  GameTooltip:AddLine(L["Left-click to report in chat"],1,1,1)
  GameTooltip:Show()
end

function addon:ServerChatString(maxentries)
  local level = addon.serverList[1].maxlevel
  local str = ""
  local cnt = 0
  for _,info in ipairs(addon.serverList) do
    if cnt == maxentries or #str > 200 then
      str = str..", ..."
      break
    end
    cnt = cnt + 1
    if #str > 0 then str = str .. ", " end
    local lvlstr = ""
    if level < maxlvl or info.maxlevel < level then
      lvlstr = "/"..LEVEL.." "..info.maxlevel
    end
    str = str..info.name.."("..info.num..lvlstr..")"
  end
  return addonName..": "..L["Server breakdown:"].." "..str
end

local function SortServers(a,b)
  if a.maxlevel ~= b.maxlevel then
    return a.maxlevel > b.maxlevel, true
  elseif a.num ~= b.num then
    return a.num > b.num, true
  else
    return a.name < b.name
  end
end

local function UpdateRGF()
  if not RaidFrame then return end
  if UnitIsGroupLeader("player") or UnitIsGroupAssistant("player") then
     if not addon.rolecheckbtn and RaidFrameRaidInfoButton and RaidFrameAllAssistCheckButton then
       local btn = CreateFrame("Button","RaidIconsRoleCheckBtn",RaidFrame,"UIPanelButtonTemplate")
       btn:SetSize(RaidFrameRaidInfoButton:GetSize())
       btn:SetText(ROLE_POLL)
       btn:SetPoint("BOTTOMLEFT", RaidFrameAllAssistCheckButton, "TOPLEFT", 0, 2)
       btn:SetScript("OnClick", function() InitiateRolePoll() end)
       btn:SetNormalFontObject(GameFontNormalSmall)
       btn:SetHighlightFontObject(GameFontHighlightSmall)
       addon.rolecheckbtn = btn
     end
     addon.rolecheckbtn:Show()
  elseif addon.rolecheckbtn then
     addon.rolecheckbtn:Hide()
  end
  wipe(classcnt)
  wipe(rolecnt)
  local guessmaxraidlvl = addon.maxraidlvl or maxlvl
  addon.maxraidlvl = 0
  for i=1,40 do
    local btn = _G["RaidGroupButton"..i]
    if btn then
      if not addon.deftexture then
         addon.deftexture = btn:GetNormalTexture():GetTexture()
      end
      if addon.deftexture then
         btn:GetNormalTexture():SetTexture(addon.deftexture)
      end
    end
    if btn and btn.unit and btn.subframes and btn.subframes.level and btn:IsVisible() then
       local unit = btn.unit
       if unit then
         local role = UnitGroupRolesAssigned(unit)
     local name = UnitName(unit)
         local guid = UnitGUID(unit)
     local lclass,class = UnitClass(unit)
         if (not class or #class == 0) and btn.name then
            lclass,class = UnitClass(btn.name)
         end
     if class then
           classcnt[class] = (classcnt[class] or 0) + 1
     end
         local lvl = UnitLevel(unit)
         if not lvl or lvl == 0 then
           lvl = (btn.name and UnitLevel(btn.name)) or 0
         end
     addon.maxraidlvl = math.max(addon.maxraidlvl, lvl or 0)

         if addon.unitstatus[guid] then
            btn:GetNormalTexture():SetTexture(0.5,0,0)
         end
     name = classColor(name, class, unit)
     role = role or "NONE"
     rolecnt[role] = (rolecnt[role] or 0) + 1
         if role ~= "NONE" then
       lclass = lclass or ""
           if settings.raid then
        local txt1 = lvl
        local txt2 = lclass
        if (lvl == guessmaxraidlvl or lvl == 0) then -- sometimes returns 0 during moves
         txt1 = getRoleTex(role,riconsz)
         txt2 = lclass
            else
             --print(unit.." "..lvl)
         txt1 = lvl
         txt2 = getRoleTex(role,riconsz).." "..lclass
        end
            btn.subframes.level:SetDrawLayer("OVERLAY")
            btn.subframes.level:SetText(txt1)
            btn.subframes.class:SetDrawLayer("OVERLAY")
            btn.subframes.class:SetText(txt2)
        if txt1 ~= lvl and btn.subframes.level:IsTruncated() then
           riconsz = riconsz - 1
           debug("Reduced iconsz to: "..riconsz)
           UpdateRGF()
           return
        end
           end
         end
       end
       if not InCombatLockdown() then
         -- extra bonus, make the secure frames targettable
         btn:SetAttribute("type1", "target")
         btn:SetAttribute("unit", btn.unit)
       end
       addon.btnhook = addon.btnhook or {}
       if not addon.btnhook[btn] then
         btn:RegisterForClicks("AnyUp")
     btn:SetScript("OnEnter", function(self) -- override to remove obsolete shift-drag prompt
         RaidGroupButton_OnEnter(self);
         if ( RaidFrame:IsMouseOver() ) then
           GameTooltip:Show()
             end
     end)
         btn:HookScript("OnClick", function(self, button)
       if button == "MiddleButton" then
         ShowRoleMenu(self)
       end
     end)
     addon.btnhook[btn] = true
       end
    end
  end
  if addon.maxraidlvl ~= guessmaxraidlvl then -- cache miss
    UpdateRGF()
    return
  end
  if addon.rolebuttons then
  for role,btn in pairs(addon.rolebuttons) do
    if settings.rolebuttons and UnitInRaid("player") and not RaidInfoFrame:IsShown() then
      btn.rolecnt = rolecnt[role] or 0
      _G[btn:GetName().."Count"]:SetText(btn.rolecnt)
      btn:Show()
    else
      btn:Hide()
    end
  end
  end
  if addon.classbuttons then
  for i,btn in ipairs(addon.classbuttons) do
    local class = btn.class
    local count = classcnt[class]
    if settings.classbuttons and UnitInRaid("player") and i <= MAX_CLASSES and not RaidInfoFrame:IsShown() then
        btn:Show()
        local icon = _G[btn:GetName().."IconTexture"]
        local fs = _G[btn:GetName().."Count"]
    if count and count > 0 then
      fs:SetTextHeight(12) -- got too small in 5.x for some reason
      fs:SetText(count)
      fs:Show()
      icon:SetAlpha(1)
      SetItemButtonDesaturated(btn, nil)
    else
      fs:Hide()
      icon:SetAlpha(0.5)
      SetItemButtonDesaturated(btn, true)
    end
    else
        btn:Hide()
    end
  end
  end
  if not addon.headerFrame then
    addon.headerFrame = CreateFrame("Button", addonName.."HeaderButton", RaidFrame)
    addon.headerFrame:SetPoint("TOPLEFT",RaidFrame,-10,10)
    addon.headerFrame:SetSize(74,74)
    addon.headerFrame:Show()
    addon.headerFrame:SetScript("OnEnter", function() DisplayTokenTooltip() end)
    addon.headerFrame:SetScript("OnLeave", function() TTframe = nil; GameTooltip:Hide() end)
  end
  addon:UpdateServers()
end
addon.UpdateRGF = UpdateRGF

function addon:UpdateServers(intt, groupjoin)
  addon.servers = addon.servers or {}
  addon.levelcache = addon.levelcache or {}
  addon.rolecache = addon.rolecache or {}
  addon.classcache = addon.classcache or {}
  for _,info in pairs(addon.servers) do
    info.num = 0
    info.maxlevel = 0
    info.unknownlevel = false
  end
  local num = GetNumGroupMembers()
  for i=1,num do
    local name, realm, level, class, islead
    if IsInRaid() then
      local _, rank
      name, rank, _, level, _, class = GetRaidRosterInfo(i)
      realm = name and name:match("-([^-]+)$")
      if not level or level == 0 then level = UnitLevel("raid"..i) end -- empty for offline
      if not class or class == "UNKNOWN" then class = select(2,UnitClass("raid"..i)) end -- empty for offline
      islead = (rank == 2)
    else
      local unit = "player"
      if i < num then unit = "party"..i end
      name, realm = UnitName(unit)
      level = UnitLevel(unit)
      class = select(2,UnitClass(unit))
      islead = UnitIsGroupLeader(unit)
    end
    if name and level then
      if islead and level == 0 and name == UNKNOWN and addon.inviteleader then
        -- leader info can be delayed on cross-realm invite
    name, realm = addon.inviteleader:match("^([^-]+)-([^-]+)$")
    if not name then name = addon.inviteleader end -- same realm
      end
      if not realm or realm == "" then realm = GetRealmName() end
      local fullname = name
      if not name:match("-([^-]+)$") then fullname = name.."-"..realm end
      if level > 0 then -- sometimes level is not queryable for offline
        addon.levelcache[fullname] = level
      else
        level = addon.levelcache[fullname] or 0
      end
      local shortname = fullname:gsub("-"..GetRealmName(),"")
      local role = UnitGroupRolesAssigned(shortname)
      if role then
        addon.rolecache[shortname] = role
      end
      if class and class ~= "UNKNOWN" then
        addon.classcache[shortname] = class
      end
      local r = addon.servers[realm] or { num=0, maxlevel=0, name=realm }
      addon.servers[realm] = r
      if level ~= 1 then -- since 6.x level 1's don't affect phasing
        r.num = r.num + 1
      end
      r.maxlevel = math.max(r.maxlevel, level)
      if level == 0 then
        r.unknownlevel = true
      end
      if groupjoin and islead then
        -- joined a new group, default to assuming we are on leader's realm
    debug("leader lastServer = "..realm)
    addon.lastServer = r
      end
    end
    --myprint(i,name,realm,level,islead)
  end

  if not addon.lastServer and settings.state and settings.state.lastServer then -- restore lastServer from previous session
    addon.lastServer = addon.servers[settings.state.lastServer]
    settings.state.lastServer = nil -- only once
    debug("Restored lastServer="..tostring(addon.lastServer and addon.lastServer.name))
  end

  if not addon.serverFrame then
      addon.serverFrame = CreateFrame("Button", addonName.."ServerButton", RaidFrame, "InsetFrameTemplate3")
      addon.serverFrame:ClearAllPoints()
      addon.serverFrame:SetPoint("TOPRIGHT",RaidFrame,-27,-2)
      addon.serverFrame:SetSize(125,20)
      addon.serverText = addon.serverFrame:CreateFontString(nil,"ARTWORK","GameFontNormalSmall")
      addon.serverText:SetPoint("LEFT",addon.serverFrame,10,0)
      addon.serverFrame:SetScript("OnEnter", function() DisplayServerTooltip() end)
      addon.serverFrame:SetScript("OnLeave", function() TTframe = nil; GameTooltip:Hide() end)
      addon.serverFrame:SetScript("OnClick", function()
        local str = addon:ServerChatString()
    local chat
    if IsInGroup(LE_PARTY_CATEGORY_INSTANCE) then
      chat = "INSTANCE_CHAT"
    elseif IsInRaid() then
      chat = "RAID"
    elseif IsInGroup() then
      chat = "PARTY"
    else
      return
    end
    SendChatMessage(str, chat)
     end)
  end
  local list = wipe(addon.serverList or {})
  addon.serverList = list
  local cnt = 0
  for server, info in pairs(addon.servers) do
    if info.num > 0 then
      table.insert(list, info)
      cnt = cnt + 1
    end
  end
  if cnt < 2 then
    addon.serverFrame:Hide()
    addon.lastServer = list[1] -- nil for ungrouped
    addon.serverText:SetText((addon.lastServer and addon.lastServer.name) or GetRealmName()) -- for 3rd party addons
  else
    table.sort(list, SortServers)
    local old = addon.lastServer
    local curr = list[1].name
    local color
    if old and old.unknownlevel and old.num > 0 then
       debug("level info missing for a group member on lastserver, suppressing possible transfer")
       color = "|cffff1919" -- red
       curr = old.name
    elseif list[1].maxlevel > list[2].maxlevel or
       list[1].num >= list[2].num + 2 then
       color = "|cff19ff19" -- green
       addon.lastServer = list[1]
    elseif list[1].num == list[2].num + 1 and old == list[2] and list[1].unknownlevel then
       debug("level info missing for a group member on newserver, suppressing possible transfer")
       color = "|cffff1919" -- red
       curr = old.name
    elseif list[1].num >= list[2].num + 1 then
       color = "|cffffff00" -- yellow
       addon.lastServer = list[1]
    else
       color = "|cffff1919" -- red
       if old and not select(2,SortServers(list[1],old)) then
         curr = old.name
       else
     curr = curr.." ?"
     addon.lastServer = nil
       end
    end
    local new = addon.lastServer
    if settings.serverinfo and not IsInInstance() and
       new and old and new ~= old then
      debug(L["Probable realm transfer"]..": "..
              old.name.." ("..old.num.." "..L["Players"].." / "..LEVEL.." "..old.maxlevel..")  ->  "..
              new.name.." ("..new.num.." "..L["Players"].." / "..LEVEL.." "..new.maxlevel..")")
    end
    addon.serverText:SetText(color..curr.."|r")
    if settings.serverinfo then
      addon.serverFrame:Show()
    else
      addon.serverFrame:Hide()
    end
  end
  if settings.state then -- save lastServer between sessions
    settings.state.lastServer = addon.lastServer and addon.lastServer.name
  end
  if not intt and TTframe and TTfunc and
     GameTooltip:IsShown() and GameTooltip:GetOwner() == TTframe then -- dynamically update tooltip
     TTfunc(TTframe)
  end
end

local system_msgs = {
  ERR_INSTANCE_GROUP_ADDED_S,           -- "%s has joined the instance group."
  ERR_INSTANCE_GROUP_REMOVED_S,     -- "%s has left the instance group."
  ERR_RAID_MEMBER_ADDED_S,              -- "%s has joined the raid group."
  ERR_RAID_MEMBER_REMOVED_S,        -- "%s has left the raid group."
  ERR_BG_PLAYER_LEFT_S,         -- "%s has left the battle"
  RAID_MEMBERS_AFK,             -- "The following players are Away: %s"
  RAID_MEMBER_NOT_READY,        -- "%s is not ready"
  ERR_RAID_LEADER_READY_CHECK_START_S,  -- "%s has initiated a ready check."
  ERR_PLAYER_DIED_S,            -- "%s has died."
  ERR_NEW_GUIDE_S,          -- "%s is now the Dungeon Guide.";
  ERR_NEW_LEADER_S,         -- "%s is now the group leader.";
  ERR_NEW_LOOT_MASTER_S,        -- "%s is now the loot master.";
  LFG_LEADER_CHANGED_WARNING,       -- "%s is now the leader of your group!"; (currently broken via LFG_DisplayGroupLeaderWarning)
  JOINED_PARTY,             -- "%s joins the party."
  LEFT_PARTY,               -- "%s leaves the party."
  ERR_PARTY_LFG_BOOT_VOTE_FAILED,   -- "The vote to kick %s has failed.";
  ERR_PARTY_LFG_BOOT_VOTE_SUCCEEDED,    -- "The vote to kick %s has passed.";
}
local function patconvert(str)
  return "^"..str:gsub("%%%d?%$?s","(.-)").."$" -- replace %s and %4$s with a capture
end
local system_scan = {}
for i, str in ipairs(system_msgs) do
  system_scan[i] = patconvert(str)
end
-- messages that need special handling
table.insert(system_scan, (patconvert(ERR_PARTY_LFG_BOOT_VOTE_REGISTERED):gsub("%%%d?%$?d.+$","")))
table.insert(system_msgs, false)
      -- "Your request to kick %s has been successfully received. %d |4more request is:more requests are; needed to initiate a vote.";
local icon_scan = patconvert(TARGET_ICON_SET:gsub("[%[%]%-]",".")):gsub("%%%d?%$?d","(%%d+)")
local icon_msg = TARGET_ICON_SET:gsub("\124Hplayer.+\124h","%%s"):gsub("%%%d?%$?[ds]","%%s")
      -- "|Hplayer:%s|h[%s]|h sets |TInterface\\TargetingFrame\\UI-RaidTargetingIcon_%d:0|t on %s."

function addon:formatToon(toon, nolink, spacenone)
  if not toon then return end
  toon = GetUnitName(toon, true) or toon -- ensure name is fully-qualified
  if not addon.classcache[toon] and
     not (UnitExists(toon) and (UnitInRaid(toon) or UnitInParty(toon))) then return toon end
  local role = UnitGroupRolesAssigned(toon)
  if role == "NONE" then role = addon.rolecache[toon] end -- use cache if player just left raid
  local cname,color,name = trimServer(toon, true)
  if not nolink then
    -- ticket 14: wrap color outside player link for Prat recognition
    --color = color and "\124c"..color or ""
    --cname = "["..color.."\124Hplayer:"..toon..":0\124h"..name.."\124h"..(#color>0 and "\124r" or "").."]"
    cname = string.format("[%s%s\124Hplayer:%s:0\124h%s\124h%s]",
                           color and "\124c" or "", color or "",
               toon, name,
               color and "\124r" or "")
  end
  if (role and role ~= "NONE") then
     cname = getRoleTex(role,0)..cname
  elseif spacenone then
     cname = getRoleTex("SPACE",0)..cname
  end
  return cname
end

local function RoleChangedFrame_OnEvent_hook(self, event, changed, from, oldRole, newRole, ...)
  if settings.system then
    changed = addon:formatToon(changed)
    from = addon:formatToon(from)
  end
  return RoleChangedFrame_OnEvent(self, event, changed, from, oldRole, newRole, ...)
end

local function SystemMessageFilter(self, event, message, ...)
  if not settings.system then return false end
  if oRA3 and not addon.oRA3hooked then -- oRA3 sends a fake system message when not promoted, catch that too
     local oral = LibStub("AceLocale-3.0", true)
     oral = oral and oral:GetLocale("oRA3", true)
     oral = oral and oral["The following players are not ready: %s"]
     if oral then
       table.insert(system_msgs, oral)
       table.insert(system_scan, patconvert(oral))
       addon.oRA3hooked = true
     end
     local rc = oRA3:GetModule("ReadyCheck",true)
     if rc then rc.stripservers = false end -- tell oRA3 not to strip realms from fake server messages
  end
  if event == "CHAT_MSG_TARGETICONS" then -- special handling for icon message
    local _, src, id, dst = message:match(icon_scan)
    if not (src and id and dst) then return false end
    src = addon:formatToon(src)
    id = addon:formatToon(id) -- some locales reverse the fields
    dst = addon:formatToon(dst)
    return false, icon_msg:format(src, id, dst), ...
  end
  for idx, pat in ipairs(system_scan) do
    local names = message:match(pat)
    local msg = system_msgs[idx]
    if names then
      local newnames = ""
      for toon in string.gmatch(names, "[^,%s]+") do
    newnames = newnames..(#newnames > 0 and ", " or "")..addon:formatToon(toon)
      end
      if msg then -- re-print
        return false, msg:format(newnames), ...
      else -- substitute
        return false, message:gsub(names:gsub("%-","."),newnames), ...
      end
    end
  end
  return false, message, ...
end

local function ChatFilter(self, event, message, sender, ...)
  if not settings.chat then return false end
  local role = UnitGroupRolesAssigned(sender)
  if (role and role ~= "NONE") then
    if not string.find(message,role_tex_file,1,true) then
      message = getRoleTex(role,0).." "..message
    end
  end
  return false, message, sender, ...
end

local function PratFilter()
  if not settings.chat then return false end
  local sm = Prat.SplitMessageOrg
  --debug("sm.EVENT="..(sm.EVENT or "nil").."  sm.PLAYER="..(sm.PLAYER or "nil"))
  if sm and sm.EVENT and sm.PLAYER and
     (chats[sm.EVENT] or sm.EVENT == "CHAT_MSG_PARTY_GUIDE") then -- nonevent created by Prat
    local role = UnitGroupRolesAssigned(sm.PLAYER)
    if (role and role ~= "NONE") then
      if not string.find(sm.PLAYER,role_tex_file,1,true) then
        sm.PLAYER = getRoleTex(role,0)..sm.PLAYER
      end
    end
  end
end

local function UnitPopup_hook(menu, which, unit, name, userData)
  if not settings.popup then return end
  debug("UnitPopup_hook: "..tostring(which))
  if unit and not UnitIsPlayer(unit) then return end
  if which and which:match("^BN_") then return end
  if which == "FOCUS" and unit then name = nil end -- workaround a Blizz hack
  local line = DropDownList1Button1
  local text = line and line.GetText and line:GetText()
  if not text or #text == 0 then return end
  if not name and unit and UnitExists(unit) then name = GetUnitName(unit,true) end
  if not name or not name:match("^"..text) then return end
  local role = UnitGroupRolesAssigned(unit or name)
  if not role or role == "NONE" then role = addon.rolecache[name] end
  local class = (unit and UnitExists(unit) and select(2,UnitClass(unit))) or
        addon.classcache[name] or select(2,UnitClass(name))
  debug("name="..name.." unit="..tostring(unit).." class="..tostring(class).." role="..tostring(role))
  local cname = classColor(name, class, unit)
  if (role and role ~= "NONE") then
    cname = getRoleTex(role,0)..cname
  end
  line:SetText(cname)
  -- might need to stretch the menu width for long names
  local ntext = DropDownList1Button1NormalText
  local minwidth = (ntext:GetStringWidth() or 0)
  local width = DropDownList1 and DropDownList1.maxWidth
  if width and width < minwidth then
    DropDownList1.maxWidth = minwidth
  end
end

local function WorldMapUnit_OnEnter_hook()
  if not WorldMapTooltip:IsShown() or not settings.map then return end
  local text = WorldMapTooltipTextLeft1 and WorldMapTooltipTextLeft1:GetText()
  if not text or #text == 0 then return end
  if not addon.mapbuttons then
    addon.mapbuttons = { WorldMapPlayerUpper }
    for i=1, MAX_PARTY_MEMBERS do
      table.insert(addon.mapbuttons, _G["WorldMapParty"..i])
    end
    for i=1, MAX_RAID_MEMBERS do
      table.insert(addon.mapbuttons, _G["WorldMapRaid"..i])
    end
  end
  text = "\n"..text.."\n"
  for _, button in ipairs(addon.mapbuttons) do
    if button:IsVisible() and button:IsMouseOver() and button.unit then
      local name = button.name or UnitName(button.unit)
      local pname = format(PLAYER_IS_PVP_AFK, name)
      local fname = GetUnitName(button.unit, true)
      local toon = addon:formatToon(fname, true, true)
      text = text:gsub("\n"..pname.."\n", "\n"..toon.."\n")
      text = text:gsub("\n"..name.."\n", "\n"..toon.."\n")
    end
  end
  text = strtrim(text)
  WorldMapTooltip:SetText(text)
  WorldMapTooltip:Show()
end

function GameTooltip_Minimap_hook()
  if not settings.map or
     not GameTooltip:IsShown() or
     GameTooltip:GetOwner() ~= Minimap or
     GameTooltip:NumLines() ~= 1 then return end
  local otext = GameTooltipTextLeft1 and GameTooltipTextLeft1:GetText()
  if not otext or #otext == 0 then return end
  local text = "\n"..otext.."\n"
  text = text:gsub("(\124TInterface\\Minimap[^\124]+\124t)","%1\n\n") -- ignore up/down arrow textures
  for name in string.gmatch(text,"[^\n]+") do
    if not name:find("\124") then
      debug("GameTooltip_Minimap_hook:"..name)
      local toon = addon:formatToon(strtrim(name), true, true)
      --text = text:gsub("\n"..name.."\n", "\n"..toon.."\n")
      local s,e = text:find("\n"..name.."\n",1,true) -- avoid gsub to prevent problems with special chars
      if s and e then
        text = text:sub(1,s-1).."\n"..toon.."\n"..text:sub(e+1)
      end
    end
  end
  text = strtrim(text)
  text = text:gsub("\n\n","")
  if text ~= otext then
    GameTooltip:SetText(text)
    GameTooltip:Show()
  end
end

local GetColoredName_orig
local function GetColoredName_hook(event, arg1, arg2, ...)
  local ret = GetColoredName_orig(event, arg1, arg2, ...)
  if chats[event] and settings.chat then
    local role = UnitGroupRolesAssigned(arg2)
    if role == "NONE" and arg2:match(" *- *"..GetRealmName().."$") then -- ticket 20: ambiguate local toons
      role = UnitGroupRolesAssigned(arg2:gsub(" *-[^-]+$",""))
    end
    if (role and role ~= "NONE") then
        ret = getRoleTex(role,0)..""..ret
    end
  end
  return ret
end

local function UpdateTarget(frame)
  local Frame = frame:gsub("^(.)",string.upper)
  addon.frametex = addon.frametex or {}
  local tex = addon.frametex[frame]
  if tex then tex:Hide() end
  if not settings[frame] or not UnitIsPlayer(frame) or not _G[Frame.."Frame"]:IsVisible() then return end
  local role = UnitGroupRolesAssigned(frame)
  if role == "NONE" then return end
  if not tex then
    tex = _G[Frame.."FrameTextureFrame"]:CreateTexture(addonName..Frame.."FrameRole","OVERLAY")
    tex:ClearAllPoints()
    tex:SetPoint("BOTTOMLEFT", _G[Frame.."FrameTextureFrameName"], "TOPRIGHT",0,-8)
    tex:SetTexture(role_tex_file)
    tex:SetSize(20,20)
    addon.frametex[frame] = tex
  end
  tex:SetTexCoord(getRoleTexCoord(role))
  tex:Show()
end

local reg = {}
local function RegisterHooks()
  if not settings then return end
  if settings.raid and RaidGroupFrame_Update and not reg["rgb"] then
    debug("Registering RaidGroupFrame_Update")
    hooksecurefunc("RaidGroupFrame_Update",UpdateRGF)
    hooksecurefunc("RaidGroupFrame_UpdateLevel",UpdateRGF)
    reg["rgb"] = true
  end
  if settings.raid and RaidInfoFrame and not reg["rif"] then
    debug("Registering RaidInfoframe")
    hooksecurefunc(RaidInfoFrame,"Show",UpdateRGF)
    hooksecurefunc(RaidInfoFrame,"Hide",UpdateRGF)
    reg["rif"] = true
  end
  if settings.tooltip and GameTooltip and not reg["gtt"] then
    debug("Registering GameTooltip")
    TooltipDataProcessor.AddTooltipPostCall(Enum.TooltipDataType.Unit, function(tooltip, data) UpdateTT(tooltip) end)
    hooksecurefunc(GameTooltipTextLeft1,"SetFormattedText", function() UpdateTT(GameTooltip) end)
    hooksecurefunc(GameTooltipTextLeft1,"SetText", function() UpdateTT(GameTooltip) end)
    reg["gtt"] = true
  end
  if settings.tooltip and HealBot_Action_RefreshTooltip and not reg["hb"] then
    hooksecurefunc("HealBot_Action_RefreshTooltip", function() UpdateHBTT(HealBot_Data and HealBot_Data["TIPUNIT"]) end)
    reg["hb"] = true
  end
  if settings.hbicon and not reg["hbicon"]
     and HealBot_Action_RefreshButton
     and HealBot_Action_PositionButton and HealBot_RaidTargetUpdate
     and HealBot_OnEvent_ReadyCheckUpdate
     then
       hooksecurefunc("HealBot_Action_PositionButton", HBIconHook)
       hooksecurefunc("HealBot_RaidTargetUpdate", HBIconHook)
       hooksecurefunc("HealBot_OnEvent_ReadyCheckUpdate", function(unit)
         debug("HealBot_OnEvent_ReadyCheckUpdate "..(unit or "nil"))
         HBIconHook(unit and HealBot_Unit_Button and HealBot_Unit_Button[unit])
       end)
    hooksecurefunc("HealBot_Action_RefreshButton", HBIconHook)
    reg["hbicon"] = true
  end
  -- if settings.tooltip and VUHDO_showTooltip and VUHDO_GLOBAL and VUHDO_GLOBAL["VUHDO_showTooltip"] and not reg["vh"] then
  if settings.tooltip and VUHDO_updateTooltip and not reg["vh"] then
    hooksecurefunc("VUHDO_updateTooltip", VuhdoHook)
    reg["vh"] = true
  end
  if false and settings.raid and not reg["upm"] then
     -- add the set role menu to the raid screen popup CAUSES TAINT
     table.insert(UnitPopupMenus["RAID"],1,"SELECT_ROLE")
     reg["upm"] = true
  end
  if false and settings.chat and not reg["chats"] then
     for c,_ in pairs(chats) do
       ChatFrame_AddMessageEventFilter(c, ChatFilter)
     end
     reg["chats"] = true
  end
  if settings.chat and Prat and not reg["prat"] then
     hooksecurefunc(Prat,"SplitChatMessage",PratFilter)
     reg["prat"] = true
  end
  if settings.chat and GetColoredName and not reg["gcn"] then
     GetColoredName_orig = _G.GetColoredName
     _G.GetColoredName = GetColoredName_hook
     reg["gcn"] = true
  end
  if settings.system and not reg["syschats"] then
     ChatFrame_AddMessageEventFilter("CHAT_MSG_SYSTEM", SystemMessageFilter)
     ChatFrame_AddMessageEventFilter("CHAT_MSG_TARGETICONS", SystemMessageFilter)
     reg["syschats"] = true
  end
  if settings.system and RoleChangedFrame and not reg["rolechange"] then
     RoleChangedFrame:SetScript("OnEvent", RoleChangedFrame_OnEvent_hook)
     reg["rolechange"] = true
  end
  if settings.popup and UnitPopup_ShowMenu and not reg["popup"] then
     hooksecurefunc("UnitPopup_ShowMenu", UnitPopup_hook)
     reg["popup"] = true
  end
  if settings.map and WorldMapUnit_OnEnter and not reg["map"] then
     hooksecurefunc("WorldMapUnit_OnEnter", WorldMapUnit_OnEnter_hook)

     -- minimap tooltips are set and shown from C code and cannot be directly hooked
     -- intead we hook the events they trigger
     GameTooltip:HookScript("OnShow", GameTooltip_Minimap_hook)
     GameTooltip:HookScript("OnSizeChanged", GameTooltip_Minimap_hook)
     reg["map"] = true
  end
  if settings.classbuttons and not addon.classbuttons
      and RaidClassButton1 then -- for RaidClassButtonTemplate
      addon.classbuttons = {}
      local function rcb_onenter(self)
    local class = self.class
    local lclass = class and LC[class]
    GameTooltip:SetOwner(self)
        TTframe = self
        TTfunc = rcb_onenter
    if class and lclass then
      local list, cnt = toonList(nil, class)
      GameTooltip:ClearLines()
      GameTooltip:SetText(classColor(lclass,class).." ("..cnt..")")
      GameTooltip:AddLine(list,1,1,1,true)
      GameTooltip:Show()
    end
    GameTooltip:ClearAllPoints()
    GameTooltip:SetPoint("BOTTOMLEFT",self,"TOPRIGHT")
      end
      for i = 1,MAX_CLASSES do -- squeeze layout to make everything fit
        local rcb = CreateFrame("Button", addonName.."RaidClassButton"..i, RaidFrame, "RaidClassButtonTemplate")
    addon.classbuttons[i] = rcb
    rcb:SetSize(20,20)
    rcb:SetScript("OnEnter",rcb_onenter)
    local bkg = rcb:GetRegions() -- background graphic is off-center and needs to be slid up
    bkg:ClearAllPoints()
    --bkg:SetPoint("TOPLEFT",0,7)
    bkg:SetPoint("TOPLEFT",-2,7)
    -- more init fixups
    rcb.class = CLASS_SORT_ORDER[i]
    local icon = _G[rcb:GetName().."IconTexture"]
    icon:SetAllPoints()
    icon:SetTexture("Interface\\Glues\\CharacterCreate\\UI-CharacterCreate-Classes");
        icon:SetTexCoord(unpack(CLASS_ICON_TCOORDS[rcb.class]))
      end
      local lastrcb = addon.classbuttons[MAX_CLASSES]
      lastrcb:ClearAllPoints()
      lastrcb:SetPoint("BOTTOMLEFT",RaidFrame,"BOTTOMRIGHT",1,10)
      for i = MAX_CLASSES-1,1,-1 do -- squeeze layout to make everything fit
        local rcb = addon.classbuttons[i]
        rcb:ClearAllPoints()
        rcb:SetPoint("BOTTOM",lastrcb,"TOP",0,6) -- spacing
    rcb:Show()
        lastrcb = rcb
      end
  end
  if settings.rolebuttons and not addon.rolebuttons
     and RaidClassButton1 then -- for RaidClassButtonTemplate
    addon.rolebuttons = {}
    local last
    for idx,role in ipairs({"TANK","HEALER","DAMAGER"}) do
      local btn = CreateFrame("Button", addonName.."RoleButton"..role, RaidFrame, "RaidClassButtonTemplate")
      btn:SetFrameLevel(RaidFrame:GetFrameLevel()+5-idx)
      local icon = _G[btn:GetName().."IconTexture"];
      if false then -- low-res
        icon:SetTexture(role_tex_file)
        icon:SetTexCoord(getRoleTexCoord(role))
      else -- hi-res
        icon:SetTexture("Interface\\LFGFrame\\UI-LFG-ICON-ROLES")
        --! Fix copied from https://github.com/WeakAuras/WeakAuras2/pull/5039/files
        if role == "TANK" then
          icon:SetTexCoord(GetTexCoordsByGrid(1, 2, 256, 256, 67, 67))
        elseif role == "HEALER" then
          icon:SetTexCoord(GetTexCoordsByGrid(2, 1, 256, 256, 67, 67))
        else -- role == "DAMAGER"
          icon:SetTexCoord(GetTexCoordsByGrid(2, 2, 256, 256, 67, 67))
        end
      end
      icon:SetAllPoints()
      btn:SetScript("OnLoad",function(self) end)
      local function ttfn(self)
        --GameTooltip_SetDefaultAnchor(GameTooltip, UIParent);
    GameTooltip:SetOwner(self)
        TTframe = self
        TTfunc = ttfn
    GameTooltip:SetAnchorType("ANCHOR_RIGHT")
        GameTooltip:SetText(getRoleTex(role).._G[role] .. " ("..(btn.rolecnt or 0)..")")
        GameTooltip:AddLine(toonList(role),1,1,1,true)
    GameTooltip:Show()
      end
      btn:SetScript("OnEnter",ttfn)
      btn:SetScript("OnUpdate",function(self) self:SetFrameLevel(500) end) -- prevent adjacent panel edge from obscuring
      btn:SetScript("OnLeave",function() TTframe = nil; GameTooltip:Hide() end)
      local bkg = btn:GetRegions() -- background graphic is off-center and needs to be slid up
      bkg:ClearAllPoints()
      bkg:SetPoint("TOPLEFT",-2,8)
      btn:ClearAllPoints()
      if last then
        btn:SetPoint("TOPLEFT", last, "BOTTOMLEFT",0,-4)
      end
      btn:SetSize(20,20)
      btn:SetScale(1.6)
      btn:Show()
      addon.rolebuttons[role] = btn
      last = btn
    end
    addon.rolebuttons["TANK"]:SetPoint("TOPLEFT",FriendsFrameCloseButton,"BOTTOMRIGHT",-1,8)
  end
  if RolePollPopup and not reg["rpp"] then
     addon.rppevent = RolePollPopup:GetScript("OnEvent")
     if addon.rppevent then
       RolePollPopup:SetScript("OnEvent", function(self, event, ...)
         if settings.autorole and
        UnitGroupRolesAssigned("player") ~= "NONE" and
        event == "ROLE_POLL_BEGIN" then
       debug("suppressed a RolePollPopup")
     else
       addon.rppevent(self, event, ...)
     end
       end)
       reg["rpp"] = true
     end
  end
end

local function OnEvent(frame, event, name, ...)
  if event == "ADDON_LOADED" and string.upper(name) == string.upper(addonName) then
     debug("ADDON_LOADED: "..name)
     RoleIconsDB = RoleIconsDB or {}
     settings = RoleIconsDB
     for k,v in pairs(defaults) do
       if settings[k] == nil then
         settings[k] = defaults[k][1]
       end
     end
     settings.state = settings.state or {}
     addon:SetupVersion()
     RegisterHooks()
     addon:UpdateServers()
  elseif event == "ADDON_LOADED" then
     debug("ADDON_LOADED: "..name)
     RegisterHooks()
  elseif event == "PLAYER_TARGET_CHANGED" then
     UpdateTarget("target")
  elseif event == "PLAYER_FOCUS_CHANGED" then
     UpdateTarget("focus")
  elseif event == "ROLE_POLL_BEGIN" or
         event == "GROUP_ROSTER_UPDATE" or
     event == "ACTIVE_TALENT_GROUP_CHANGED" or
     event == "PLAYER_REGEN_ENABLED" then
     UpdateTarget("target")
     UpdateTarget("focus")
     if settings.autorole and not InCombatLockdown() then
       local currrole = UnitGroupRolesAssigned("player")
       if (currrole == "NONE" and event ~= "ACTIVE_TALENT_GROUP_CHANGED") or
          (currrole ~= "NONE" and event == "ACTIVE_TALENT_GROUP_CHANGED") then
         local role = myDefaultRole()
     if role and role ~= "NONE" then
           debug(event.." setting "..role)
           UnitSetRole("player", role)
           --RolePollPopup:Hide()
           StaticPopupSpecial_Hide(RolePollPopup) -- ticket 4
         end
       end
     end
  end
  if event == "PARTY_INVITE_REQUEST" then
    addon.inviteleader = name
    debug("PARTY_INVITE_REQUEST: "..tostring(addon.inviteleader))
  end
  if event == "GROUP_JOINED" then
    debug("GROUP_JOINED")
    addon:UpdateServers(false, true)
  end
  if event == "GROUP_ROSTER_UPDATE" then
    addon:UpdateServers()
  end
end
frame:SetScript("OnEvent", OnEvent);

SLASH_ROLEICONS1 = L["/ri"]
SlashCmdList["ROLEICONS"] = function(msg)
        local cmd = msg:lower()
    if cmd == "check" then
      InitiateRolePoll()
        elseif type(settings[cmd]) == "boolean" then
          settings[cmd] = not settings[cmd]
          chatMsg(cmd..L[" set to "]..(settings[cmd] and YES or NO))
      RegisterHooks()
      UpdateRGF()
        else
      local usage = ""
          chatMsg(LaddonName.." "..addon.version)
      for c,_ in pairs(defaults) do
        usage = usage.." | "..c
      end
          chatMsg(SLASH_ROLEICONS1.." [ check"..usage.." ]")
      chatMsg("  "..SLASH_ROLEICONS1.." check  - "..L["Perform a role check (requires assist or leader)"])
      for c,v in pairs(defaults) do
        chatMsg("  "..SLASH_ROLEICONS1.." "..c.."  ["..
          (settings[c] and "|cff00ff00"..YES or "|cffff0000"..NO).."|r] "..v[2])
      end
        end
end
SLASH_ROLECHECK1 = L["/rolecheck"]
SlashCmdList["ROLECHECK"] = function(msg) InitiateRolePoll() end

function addon:SetupVersion()
   local svnrev = 0
   local T_svnrev = vars.svnrev
   T_svnrev["X-Build"] = tonumber((C_AddOns.GetAddOnMetadata(addonName, "X-Build") or ""):match("%d+"))
   T_svnrev["X-Revision"] = tonumber((C_AddOns.GetAddOnMetadata(addonName, "X-Revision") or ""):match("%d+"))
   for _,v in pairs(T_svnrev) do -- determine highest file revision
     if v and v > svnrev then
       svnrev = v
     end
   end
   addon.revision = svnrev

   T_svnrev["X-Curse-Packaged-Version"] = C_AddOns.GetAddOnMetadata(addonName, "X-Curse-Packaged-Version")
   T_svnrev["Version"] = C_AddOns.GetAddOnMetadata(addonName, "Version")
   addon.version = T_svnrev["X-Curse-Packaged-Version"] or T_svnrev["Version"] or "@"
   if string.find(addon.version, "@") then -- dev copy uses "@.project-version.@"
      addon.version = "r"..svnrev
   end
end