WoWInterface SVN fernir_UI

local settings = oUF_Settings

local myname, ns = ...

local locale = GetLocale()

ns.rollpairs = locale == "deDE" and {

        ["(.*) passt automatisch bei (.+), weil [ersi]+ den Gegenstand nicht benutzen kann.$"]  = "pass",

        ["(.*) wurfelt nicht fur: (.+|r)$"] = "pass",

        ["(.*) hat fur (.+) 'Gier' ausgewahlt"] = "greed",

        ["(.*) hat fur (.+) 'Bedarf' ausgewahlt"] = "need",

        ["(.*) hat fur '(.+)' Entzauberung gewahlt."]  = "disenchant",

} or locale == "frFR" and {

        ["(.*) a passe pour : (.+) parce qu'((il)|(elle)) ne peut pas ramasser cette objet.$"]  = "pass",

        ["(.*) a passe pour : (.+)"]  = "pass",

        ["(.*) a choisi Cupidite pour : (.+)"] = "greed",

        ["(.*) a choisi Besoin pour : (.+)"]  = "need",

} or locale == "ruRU" and {

        ["(.*) àâòîìàòè÷åñêè ïåðåäàåò ïðåäìåò (.+), ïîñêîëüêó íå ìîæåò åãî çàáðàòü"] = "pass",

        ["(.*) ïðîïóñêàåò ðîçûãðûø ïðåäìåòà \"(.+)\", ïîñêîëüêó íå ìîæåò åãî çàáðàòü"] = "pass",

        ["(.*) îòêàçûâàåòñÿ îò ïðåäìåòà (.+)%."]  = "pass",

        ["Ðàçûãðûâàåòñÿ: (.+)%. (.*): \"Íå îòêàæóñü\""] = "greed",

        ["Ðàçûãðûâàåòñÿ: (.+)%. (.*): \"Ìíå ýòî íóæíî\""] = "need",

        ["Ðàçûãðûâàåòñÿ: (.+)%. (.*): \"Ðàñïûëèòü\""] = "disenchant",

} or locale == "zhTW" and {

        ["(.*)????:(.+),??"]  = "pass",

        ["(.*)???:(.+)"] = "pass",

        ["(.*)???????:(.+)"] = "greed",

        ["(.*)???????:(.+)"] = "need",

        ["(.*)????:(.+)"] = "disenchant",

} or {

        ["^(.*) automatically passed on: (.+) because s?he cannot loot that item.$"] = "pass",

        ["^(.*) passed on: (.+|r)$"]  = "pass",

        ["(.*) has selected Greed for: (.+)"] = "greed",

        ["(.*) has selected Need for: (.+)"]  = "need",

        ["(.*) has selected Disenchant for: (.+)"]  = "disenchant",

}

local backdrop = {

        bgFile = "Interface\\ChatFrame\\ChatFrameBackground", tile = true, tileSize = 16,

        edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeSize = 16,

        insets = {left = 4, right = 4, top = 4, bottom = 4},

}

local function ClickRoll(frame)

        RollOnLoot(frame.parent.rollid, frame.rolltype)

end

local function HideTip() GameTooltip:Hide() end

local function HideTip2() GameTooltip:Hide(); ResetCursor() end

local rolltypes = {"need", "greed", "disenchant", [0] = "pass"}

local function SetTip(frame)

        GameTooltip:SetOwner(frame, "ANCHOR_RIGHT")

        GameTooltip:SetText(frame.tiptext)

        if frame:IsEnabled() == 0 then GameTooltip:AddLine("|cffff3333Cannot roll") end

        for name,roll in pairs(frame.parent.rolls) do if roll == rolltypes[frame.rolltype] then GameTooltip:AddLine(name, 1, 1, 1) end end

        GameTooltip:Show()

end

local function SetItemTip(frame)

        if not frame.link then return end

        GameTooltip:SetOwner(frame, "ANCHOR_TOPLEFT")

        GameTooltip:SetHyperlink(frame.link)

        if IsShiftKeyDown() then GameTooltip_ShowCompareItem() end

        if IsModifiedClick("DRESSUP") then ShowInspectCursor() else ResetCursor() end

end

local function ItemOnUpdate(self)

        if IsShiftKeyDown() then GameTooltip_ShowCompareItem() end

        CursorOnUpdate(self)

end

local function LootClick(frame)

        if IsControlKeyDown() then DressUpItemLink(frame.link)

        elseif IsShiftKeyDown() then ChatEdit_InsertLink(frame.link) end

end

local cancelled_rolls = {}

local function OnEvent(frame, event, rollid)

        cancelled_rolls[rollid] = true

        if frame.rollid ~= rollid then return end

        frame.rollid = nil

        frame.time = nil

        frame:Hide()

end

local function StatusUpdate(frame)

        local t = GetLootRollTimeLeft(frame.parent.rollid)

        local perc = t / frame.parent.time

        frame.spark:SetPoint("CENTER", frame, "LEFT", perc * frame:GetWidth(), 0)

        frame:SetValue(t)

end

local function CreateRollButton(parent, ntex, ptex, htex, rolltype, tiptext, ...)

        local f = CreateFrame("Button", nil, parent)

        f:SetPoint(...)

        f:SetWidth(28)

        f:SetHeight(28)

        f:SetNormalTexture(ntex)

        if ptex then f:SetPushedTexture(ptex) end

        f:SetHighlightTexture(htex)

        f.rolltype = rolltype

        f.parent = parent

        f.tiptext = tiptext

        f:SetScript("OnEnter", SetTip)

        f:SetScript("OnLeave", HideTip)

        f:SetScript("OnClick", ClickRoll)

        f:SetMotionScriptsWhileDisabled(true)

        local txt = f:CreateFontString(nil, nil, "GameFontHighlightSmallOutline")

        txt:SetPoint("CENTER", 0, rolltype == 2 and 1 or rolltype == 0 and -1.2 or 0)

        return f, txt

end

local function CreateRollFrame()

        local frame = CreateFrame("Frame", nil, UIParent)

        frame:SetWidth(328)

        frame:SetHeight(26)

        frame:SetBackdrop(backdrop)

        frame:SetBackdropColor(0, 0, 0, .9)

        frame:SetScript("OnEvent", OnEvent)

        frame:RegisterEvent("CANCEL_LOOT_ROLL")

        frame:Hide()

        local button = CreateFrame("Button", nil, frame)

        button:SetPoint("LEFT", 5, 0)

        button:SetWidth(24)

        button:SetHeight(24)

        button:SetNormalTexture("Interface\\Buttons\\UI-Quickslot2")

        button:SetHighlightTexture("Interface\\Buttons\\ButtonHilight-Square")

        button:GetHighlightTexture():SetBlendMode("ADD")

        button:SetScript("OnEnter", SetItemTip)

        button:SetScript("OnLeave", HideTip2)

        button:SetScript("OnUpdate", ItemOnUpdate)

        button:SetScript("OnClick", LootClick)

        frame.button = button

        local buttonborder = CreateFrame("Frame", nil, button)

        buttonborder:SetWidth(32)

        buttonborder:SetHeight(32)

        buttonborder:SetPoint("CENTER", button, "CENTER")

        buttonborder:SetBackdrop(backdrop)

        buttonborder:SetBackdropColor(1, 1, 1, 0)

        frame.buttonborder = buttonborder

        local tfade = frame:CreateTexture(nil, "BORDER")

        tfade:SetPoint("TOPLEFT", frame, "TOPLEFT", 4, -4)

        tfade:SetPoint("BOTTOMRIGHT", frame, "BOTTOMRIGHT", -4, 4)

        tfade:SetTexture("Interface\\ChatFrame\\ChatFrameBackground")

        tfade:SetBlendMode("ADD")

        tfade:SetGradientAlpha("VERTICAL", .1, .1, .1, 0, .25, .25, .25, 1)

        local status = CreateFrame("StatusBar", nil, frame)

        status:SetPoint("TOPRIGHT", frame, "TOPRIGHT", -4, -4)

        status:SetPoint("BOTTOM", frame, "BOTTOM", 0, 4)

        status:SetPoint("LEFT", frame.button, "RIGHT", -1, 0)

        status:SetScript("OnUpdate", StatusUpdate)

        status:SetFrameLevel(status:GetFrameLevel()-1)

        status:SetStatusBarTexture("Interface\\AddOns\\teksLoot\\DarkBottom.tga")

        status:SetStatusBarColor(.8, .8, .8, .9)

        status.parent = frame

        frame.status = status

        local spark = frame:CreateTexture(nil, "OVERLAY")

        spark:SetWidth(14)

        spark:SetHeight(35)

        spark:SetTexture("Interface\\CastingBar\\UI-CastingBar-Spark")

        spark:SetBlendMode("ADD")

        status.spark = spark

        local need, needtext = CreateRollButton(frame, "Interface\\Buttons\\UI-GroupLoot-Dice-Up", "Interface\\Buttons\\UI-GroupLoot-Dice-Highlight", "Interface\\Buttons\\UI-GroupLoot-Dice-Down", 1, NEED, "LEFT", frame.button, "RIGHT", 5, -1)

        local greed, greedtext = CreateRollButton(frame, "Interface\\Buttons\\UI-GroupLoot-Coin-Up", "Interface\\Buttons\\UI-GroupLoot-Coin-Highlight", "Interface\\Buttons\\UI-GroupLoot-Coin-Down", 2, GREED, "LEFT", need, "RIGHT", 0, -1)

        local de, detext

        de, detext = CreateRollButton(frame, "Interface\\Buttons\\UI-GroupLoot-DE-Up", "Interface\\Buttons\\UI-GroupLoot-DE-Highlight", "Interface\\Buttons\\UI-GroupLoot-DE-Down", 3, ROLL_DISENCHANT, "LEFT", greed, "RIGHT", 0, -1)

        local pass, passtext = CreateRollButton(frame, "Interface\\Buttons\\UI-GroupLoot-Pass-Up", nil, "Interface\\Buttons\\UI-GroupLoot-Pass-Down", 0, PASS, "LEFT", de or greed, "RIGHT", 0, 2.2)

        frame.needbutt, frame.greedbutt, frame.disenchantbutt = need, greed, de

        frame.need, frame.greed, frame.pass, frame.disenchant = needtext, greedtext, passtext, detext

        local bind = frame:CreateFontString()

        bind:SetPoint("LEFT", pass, "RIGHT", 3, 1)

        bind:SetFont(settings.font, 13, "THINOUTLINE")

        frame.fsbind = bind

        local loot = frame:CreateFontString(nil, "ARTWORK", "GameFontNormalSmall")

        loot:SetPoint("LEFT", bind, "RIGHT", 0, .12)

        loot:SetPoint("RIGHT", frame, "RIGHT", -5, 0)

        loot:SetHeight(16)

        loot:SetJustifyH("LEFT")

        frame.fsloot = loot

        frame.rolls = {}

        return frame

end

local anchor = CreateFrame("Button", nil, UIParent)

anchor:SetWidth(300) anchor:SetHeight(22)

anchor:SetBackdrop(backdrop)

anchor:SetBackdropColor(0.25, 0.25, 0.25, 1)

local label = anchor:CreateFontString(nil, "ARTWORK", "GameFontNormalSmall")

label:SetAllPoints(anchor)

label:SetText("teksLoot")

anchor:SetScript("OnClick", anchor.Hide)

anchor:SetScript("OnDragStart", anchor.StartMoving)

anchor:SetScript("OnDragStop", function(self)

        self:StopMovingOrSizing()

        self.db.x, self.db.y = self:GetCenter()

end)

anchor:SetMovable(true)

anchor:EnableMouse(true)

anchor:RegisterForDrag("LeftButton")

anchor:RegisterForClicks("RightButtonUp")

anchor:Hide()

local frames = {}

local f = CreateRollFrame() -- Create one for good measure

f:SetPoint("TOPLEFT", next(frames) and frames[#frames] or anchor, "BOTTOMLEFT", 0, -4)

table.insert(frames, f)

local function GetFrame()

        for i,f in ipairs(frames) do

                if not f.rollid then return f end

        end

        local f = CreateRollFrame()

        f:SetPoint("TOPLEFT", next(frames) and frames[#frames] or anchor, "BOTTOMLEFT", 0, -4)

        table.insert(frames, f)

        return f

end

local function START_LOOT_ROLL(rollid, time)

        if cancelled_rolls[rollid] then return end

        local f = GetFrame()

        f.rollid = rollid

        f.time = time

        for i in pairs(f.rolls) do f.rolls[i] = nil end

        f.need:SetText(0)

        f.greed:SetText(0)

        f.pass:SetText(0)

        f.disenchant:SetText(0)

        local texture, name, count, quality, bop, canNeed, canGreed, canDisenchant = GetLootRollItemInfo(rollid)

        f.button:SetNormalTexture(texture)

        f.button.link = GetLootRollItemLink(rollid)

        if canNeed then f.needbutt:Enable() else f.needbutt:Disable() end

        if canGreed then f.greedbutt:Enable() else f.greedbutt:Disable() end

        if canDisenchant then f.disenchantbutt:Enable() else f.disenchantbutt:Disable() end

        SetDesaturation(f.needbutt:GetNormalTexture(), not canNeed)

        SetDesaturation(f.greedbutt:GetNormalTexture(), not canGreed)

        SetDesaturation(f.disenchantbutt:GetNormalTexture(), not canDisenchant)

        f.fsbind:SetText(bop and "BoP" or "BoE")

        f.fsbind:SetVertexColor(bop and 1 or .3, bop and .3 or 1, bop and .1 or .3)

        local color = ITEM_QUALITY_COLORS[quality]

        f.fsloot:SetVertexColor(color.r, color.g, color.b)

        f.fsloot:SetText(name)

        f:SetBackdropBorderColor(color.r, color.g, color.b, 1)

        f.buttonborder:SetBackdropBorderColor(color.r, color.g, color.b, 1)

        f.status:SetStatusBarColor(color.r, color.g, color.b, .7)

        f.status:SetMinMaxValues(0, time)

        f.status:SetValue(time)

        f:SetPoint("CENTER", WorldFrame, "CENTER")

        f:Show()

end

local function ParseRollChoice(msg)

        for i,v in pairs(ns.rollpairs) do

                local _, _, playername, itemname = string.find(msg, i)

                if playername and itemname and playername ~= "Everyone" then return playername, itemname, v end

        end

end

local in_soviet_russia = (GetLocale() == "ruRU")

local function CHAT_MSG_LOOT(msg)

        local playername, itemname, rolltype = ParseRollChoice(msg)

        if playername and itemname and rolltype then

                if in_soviet_russia and rolltype ~= "pass" then itemname, playername = playername, itemname end

                for _,f in ipairs(frames) do

                        if f.rollid and f.button.link == itemname and not f.rolls[playername] then

                                f.rolls[playername] = rolltype

                                f[rolltype]:SetText(tonumber(f[rolltype]:GetText()) + 1)

                                return

                        end

                end

        end

end

anchor:RegisterEvent("ADDON_LOADED")

anchor:SetScript("OnEvent", function(frame, event, addon)

        if addon ~= "teksLoot" then return end

        anchor:UnregisterEvent("ADDON_LOADED")

        anchor:RegisterEvent("START_LOOT_ROLL")

        anchor:RegisterEvent("CHAT_MSG_LOOT")

        UIParent:UnregisterEvent("START_LOOT_ROLL")

        UIParent:UnregisterEvent("CANCEL_LOOT_ROLL")

        anchor:SetScript("OnEvent", function(frame, event, ...) if event == "CHAT_MSG_LOOT" then return CHAT_MSG_LOOT(...) else return START_LOOT_ROLL(...) end end)

        if not fdb then fdb = {} end

        anchor.db = fdb

        anchor:SetPoint("CENTER", UIParent, anchor.db.x and "BOTTOMLEFT" or "BOTTOM", anchor.db.x or 0, anchor.db.y or 221)

end)

SlashCmdList["TEKSLOOT"] = function() if anchor:IsVisible() then anchor:Hide() else anchor:Show() end end

SLASH_TEKSLOOT1 = "/teksloot"