Anch
345 lines
13 KiB
Lua
345 lines
13 KiB
Lua
local PM = LibStub("AceAddon-3.0"):GetAddon("ProfessionMenu")
|
|
local dewdrop = AceLibrary("Dewdrop-2.0")
|
|
local mainframe = CreateFrame("FRAME", "ProfessionMenuExtractFrame", UIParent,"UIPanelDialogTemplate")
|
|
mainframe:SetSize(640,508)
|
|
mainframe:SetPoint("CENTER",0,0)
|
|
mainframe:EnableMouse(true)
|
|
mainframe:SetMovable(true)
|
|
mainframe:RegisterForDrag("LeftButton")
|
|
mainframe:SetScript("OnDragStart", function(self) mainframe:StartMoving() end)
|
|
mainframe:SetScript("OnDragStop", function(self) mainframe:StopMovingOrSizing() end)
|
|
mainframe:SetScript("OnShow", function()
|
|
PM:SearchBags()
|
|
PM:RegisterEvent("BAG_UPDATE")
|
|
end)
|
|
mainframe:SetScript("OnHide", function()
|
|
PM:UnregisterEvent("BAG_UPDATE")
|
|
end)
|
|
mainframe.TitleText = mainframe:CreateFontString()
|
|
mainframe.TitleText:SetFont("Fonts\\FRIZQT__.TTF", 12)
|
|
mainframe.TitleText:SetFontObject(GameFontNormal)
|
|
mainframe.TitleText:SetText("Disenchanting List")
|
|
mainframe.TitleText:SetPoint("TOP", 0, -9)
|
|
mainframe.TitleText:SetShadowOffset(1,-1)
|
|
mainframe:Hide()
|
|
|
|
PM.FilterList = {
|
|
[1] = {"Uncommon", 2},
|
|
[2] = {"Rare", 3},
|
|
[3] = {"Epic", 4},
|
|
Soulbound = "Soulbound",
|
|
Bags = {
|
|
"Backpack",
|
|
"Bag 1",
|
|
"Bag 2",
|
|
"Bag 3",
|
|
"Bag 4",
|
|
}
|
|
}
|
|
|
|
local enchantingMats = {
|
|
["Commen"] = {
|
|
-- Classic Mats
|
|
{itemLevel = {5,15}, dust = {10940, " 1-3"}, Essence = {10938, " 1-2"}},
|
|
{itemLevel = {16,20},dust = {10940, " 2-5"}, Essence = {10939, " 1-2"}},
|
|
{itemLevel = {21,25},dust = {10940, " 2-5"}, Essence = {10998, " 1-2"}},
|
|
{itemLevel = {26,30},dust = {11083, " 1-3"}, Essence = {11082, " 1-2"}},
|
|
{itemLevel = {31,35},dust = {11083, " 2-5"}, Essence = {11134, " 1-2"}},
|
|
{itemLevel = {36,40},dust = {11137, " 1-3"}, Essence = {11135, " 1-2"}},
|
|
{itemLevel = {41,45},dust = {11137, " 2-5"}, Essence = {11174, " 1-2"}},
|
|
{itemLevel = {46,50},dust = {11176, " 1-3"}, Essence = {11175, " 1-2"}},
|
|
{itemLevel = {51,55},dust = {11176, " 2-5"}, Essence = {16202, " 1-2"}},
|
|
{itemLevel = {56,60},dust = {16204, " 1-3"}, Essence = {16203, " 1-2"}},
|
|
{itemLevel = {61,65},dust = {16204, " 2-5"}, Essence = {16203, " 1-3"}},
|
|
-- TBC Mats
|
|
{itemLevel = {80,99},dust = {22445, " 1-3"}, Essence = {22447, " 1-3"}},
|
|
{itemLevel = {100,120},dust = {22445, " 2-5"}, Essence = {22446, " 1-2"}},
|
|
-- Wrath Mats
|
|
{itemLevel = {130,151},dust = {34054, " 2-3"}, Essence = {34056, " 1-2"}},
|
|
{itemLevel = {152,200},dust = {34054, " 4-7"}, Essence = {34055, " 1-2"}},
|
|
},
|
|
["Rare"] = {
|
|
-- Classic Mats
|
|
{itemLevel = {16,25}, Shard = 10978},
|
|
{itemLevel = {26,30}, Shard = 11084},
|
|
{itemLevel = {31,35}, Shard = 11138},
|
|
{itemLevel = {36,40}, Shard = 11139},
|
|
{itemLevel = {41,45}, Shard = 11177},
|
|
{itemLevel = {46,50}, Shard = 11178},
|
|
{itemLevel = {51,55}, Shard = 14343},
|
|
{itemLevel = {56,65}, Shard = 14344},
|
|
-- TBC Mats
|
|
{itemLevel = {80,99}, Shard = 22448},
|
|
{itemLevel = {100,120}, Shard = 22449},
|
|
-- Wrath Mats
|
|
{itemLevel = {130,151}, Shard = 34053},
|
|
{itemLevel = {152,200}, Shard = 34052},
|
|
},
|
|
["Epic"] = {
|
|
{itemLevel = {56,80}, Crystal = 20725},
|
|
-- TBC Mats
|
|
{itemLevel = {95,164}, Crystal = 22450},
|
|
-- Wrath Mats
|
|
{itemLevel = {165,264}, Crystal = 34057},
|
|
}
|
|
}
|
|
|
|
local function GetPosibleMats(quality, itemLevel)
|
|
if quality == 2 then
|
|
for _, mat in ipairs (enchantingMats.Commen) do
|
|
if itemLevel >= mat.itemLevel[1] and itemLevel <= mat.itemLevel[2] then
|
|
local itemLink = select(2,GetItemInfo(mat.dust[1]))..mat.dust[2]
|
|
local itemLink2 = select(2,GetItemInfo(mat.Essence[1]))..mat.Essence[2]
|
|
return itemLink, itemLink2
|
|
end
|
|
end
|
|
elseif quality == 3 then
|
|
for _, mat in ipairs (enchantingMats.Rare) do
|
|
if itemLevel >= mat.itemLevel[1] and itemLevel <= mat.itemLevel[2] then
|
|
local itemLink = select(2,GetItemInfo(mat.Shard))
|
|
return itemLink
|
|
end
|
|
end
|
|
elseif quality == 4 then
|
|
for _, mat in ipairs (enchantingMats.Epic) do
|
|
if itemLevel >= mat.itemLevel[1] and itemLevel <= mat.itemLevel[2] then
|
|
local itemLink = select(2,GetItemInfo(mat.Crystal))
|
|
return itemLink
|
|
end
|
|
end
|
|
end
|
|
end
|
|
|
|
local InventoryTypes = {
|
|
["Weapon"] = true,
|
|
["Armor"] = true
|
|
}
|
|
|
|
function PM:InventoryFrame_Open(isEnabled)
|
|
if not isEnabled then return end
|
|
if mainframe:IsVisible() then
|
|
mainframe:Hide()
|
|
else
|
|
mainframe:Show()
|
|
end
|
|
end
|
|
|
|
function PM:BAG_UPDATE()
|
|
PM:ScheduleTimer(function() PM:SearchBags() end, .10)
|
|
|
|
end
|
|
|
|
local function filterCheck(quality, bagID, slotID)
|
|
for _, _ in ipairs(PM.FilterList) do
|
|
if (PM.db.FilterList[4] and PM:IsSoulbound(bagID, slotID)) or (quality < 1 or quality > 5) or PM.db.FilterList[quality-1] then
|
|
return true
|
|
end
|
|
end
|
|
return false
|
|
end
|
|
|
|
local inventoryItems
|
|
local bagThrottle = false
|
|
--finds the next bag slot with an item with an enchant on it
|
|
function PM:SearchBags()
|
|
if not bagThrottle then
|
|
inventoryItems = {}
|
|
for bagID = 0, 4 do
|
|
if not PM.db.BagFilter[bagID+1] then
|
|
for slotID = 1, GetContainerNumSlots(bagID) do
|
|
local quality,_,_,link = select(4,GetContainerItemInfo(bagID,slotID))
|
|
local itemID = GetContainerItemID(bagID,slotID)
|
|
if link and not PM.db.ItemBlacklist[itemID] then
|
|
local itemLevel, _, itemType = select(4,GetItemInfo(itemID))
|
|
if not filterCheck(quality, bagID, slotID) and InventoryTypes[itemType] then
|
|
tinsert(inventoryItems,{bagID,slotID,link,quality,itemLevel})
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end
|
|
bagThrottle = true
|
|
PM.bagThrottle = PM:ScheduleTimer(function() bagThrottle = false end, .1)
|
|
ProfessionMenu_InventroyScrollFrameUpdate()
|
|
end
|
|
end
|
|
|
|
function PM:ItemMenuRegister(self)
|
|
dewdrop:Register(self,
|
|
'point', function(parent)
|
|
return "TOP", "BOTTOM"
|
|
end,
|
|
'children', function(level, value)
|
|
if level == 1 then
|
|
for k, v in ipairs(PM.FilterList) do
|
|
local text = v[1]
|
|
if tonumber(v[2]) then
|
|
text = select(4, GetItemQualityColor(v[2])) .. v[1]
|
|
end
|
|
dewdrop:AddLine(
|
|
'text', text,
|
|
'func', function() PM.db.FilterList[k] = not PM.db.FilterList[k] PM:SearchBags() end,
|
|
'checked', PM.db.FilterList[k],
|
|
'textHeight', 12,
|
|
'textWidth', 12
|
|
)
|
|
end
|
|
dewdrop:AddLine(
|
|
'text', PM.FilterList.Soulbound,
|
|
'func', function() PM.db.FilterList[4] = not PM.db.FilterList[4] PM:SearchBags() end,
|
|
'checked', PM.db.FilterList[4],
|
|
'textHeight', 12,
|
|
'textWidth', 12
|
|
)
|
|
dewdrop:AddLine(
|
|
'text', "Bag Filter",
|
|
'value', "BagFilter",
|
|
'hasArrow', true,
|
|
'textHeight', 12,
|
|
'textWidth', 12,
|
|
"notCheckable", true
|
|
)
|
|
dewdrop:AddLine(
|
|
'text', "Close Menu",
|
|
'textR', 0,
|
|
'textG', 1,
|
|
'textB', 1,
|
|
'textHeight', 12,
|
|
'textWidth', 12,
|
|
'closeWhenClicked', true,
|
|
'notCheckable', true
|
|
)
|
|
elseif level == 2 then
|
|
if value and value == "BagFilter" then
|
|
for i, bag in ipairs(PM.FilterList.Bags) do
|
|
dewdrop:AddLine(
|
|
'text', bag,
|
|
'func', function() PM.db.BagFilter[i] = not PM.db.BagFilter[i] PM:SearchBags() end,
|
|
'checked', PM.db.BagFilter[i],
|
|
'textHeight', 12,
|
|
'textWidth', 12
|
|
)
|
|
end
|
|
end
|
|
end
|
|
end,
|
|
'dontHook', true
|
|
)
|
|
end
|
|
|
|
------------------ScrollFrameTooltips---------------------------
|
|
local function ItemTemplate_OnEnter(self)
|
|
if not self.link then return end
|
|
GameTooltip:SetOwner(self, "ANCHOR_RIGHT", -13, -50)
|
|
GameTooltip:SetHyperlink(self.link)
|
|
GameTooltip:Show()
|
|
end
|
|
|
|
local function ItemTemplate_OnLeave()
|
|
GameTooltip:Hide()
|
|
end
|
|
|
|
--ScrollFrame
|
|
|
|
local ROW_HEIGHT = 16 -- How tall is each row?
|
|
local MAX_ROWS = 25 -- How many rows can be shown at once?
|
|
|
|
local scrollFrame = CreateFrame("Frame", "ProfessionMenu_DE_ScrollFrame", ProfessionMenuExtractFrame)
|
|
scrollFrame:EnableMouse(true)
|
|
scrollFrame:SetSize(mainframe:GetWidth()-40, ROW_HEIGHT * MAX_ROWS + 16)
|
|
scrollFrame:SetPoint("TOP",0,-42)
|
|
scrollFrame:SetBackdrop({
|
|
bgFile = "Interface\\DialogFrame\\UI-DialogBox-Background", tile = true, tileSize = 16,
|
|
edgeFile = "Interface\\Tooltips\\UI-Tooltip-Border", edgeSize = 16,
|
|
insets = { left = 4, right = 4, top = 4, bottom = 4 },
|
|
})
|
|
|
|
function ProfessionMenu_InventroyScrollFrameUpdate()
|
|
local maxValue = #inventoryItems
|
|
FauxScrollFrame_Update(scrollFrame.scrollBar, maxValue, MAX_ROWS, ROW_HEIGHT)
|
|
local offset = FauxScrollFrame_GetOffset(scrollFrame.scrollBar)
|
|
for i = 1, MAX_ROWS do
|
|
local value = i + offset
|
|
scrollFrame.rows[i]:SetHighlightTexture("Interface\\QuestFrame\\UI-QuestTitleHighlight", "ADD")
|
|
if value <= maxValue then
|
|
local row = scrollFrame.rows[i]
|
|
local text1, text2 = GetPosibleMats(inventoryItems[value][4], inventoryItems[value][5])
|
|
row.Text:SetText(inventoryItems[value][3])
|
|
row.Text1:SetText(text1)
|
|
if text2 then
|
|
row.Text2:SetText(text2)
|
|
else
|
|
row.Text2:SetText("")
|
|
end
|
|
row.link = inventoryItems[value][3]
|
|
row.bag = inventoryItems[value][1]
|
|
row.slot = inventoryItems[value][2]
|
|
row:SetAttribute("type", "spell")
|
|
row:SetAttribute("spell", "Disenchant")
|
|
row:SetAttribute("target-bag", row.bag)
|
|
row:SetAttribute("target-slot", row.slot)
|
|
row.tNumber = value
|
|
row:Show()
|
|
else
|
|
scrollFrame.rows[i]:Hide()
|
|
end
|
|
end
|
|
end
|
|
|
|
local scrollSlider = CreateFrame("ScrollFrame","ProfessionMenuDEListFrameScroll",ProfessionMenu_DE_ScrollFrame,"FauxScrollFrameTemplate")
|
|
scrollSlider:SetPoint("TOPLEFT", 0, -8)
|
|
scrollSlider:SetPoint("BOTTOMRIGHT", -30, 8)
|
|
scrollSlider:SetScript("OnVerticalScroll", function(self, offset)
|
|
self.offset = math.floor(offset / ROW_HEIGHT + 0.5)
|
|
ProfessionMenu_InventroyScrollFrameUpdate()
|
|
end)
|
|
|
|
scrollFrame.scrollBar = scrollSlider
|
|
|
|
local rows = setmetatable({}, { __index = function(t, i)
|
|
local row = CreateFrame("Button", "$parentRow"..i, scrollFrame, "SecureActionButtonTemplate")
|
|
row:SetSize(405, ROW_HEIGHT)
|
|
row:SetNormalFontObject(GameFontHighlightLeft)
|
|
row.Text = row:CreateFontString("$parentRow"..i.."Text","OVERLAY","GameFontNormal")
|
|
row.Text:SetSize(230, ROW_HEIGHT)
|
|
row.Text:SetPoint("LEFT",row)
|
|
row.Text:SetJustifyH("LEFT")
|
|
row.Text1 = row:CreateFontString("$parentRow"..i.."Text1","OVERLAY","GameFontNormal")
|
|
row.Text1:SetSize(180, ROW_HEIGHT)
|
|
row.Text1:SetPoint("LEFT",row,230,0)
|
|
row.Text1:SetJustifyH("LEFT")
|
|
row.Text2 = row:CreateFontString("$parentRow"..i.."Text2","OVERLAY","GameFontNormal")
|
|
row.Text2:SetSize(180, ROW_HEIGHT)
|
|
row.Text2:SetPoint("LEFT",row,390,0)
|
|
row.Text2:SetJustifyH("LEFT")
|
|
row:SetScript("OnEnter", function(self)
|
|
ItemTemplate_OnEnter(self)
|
|
end)
|
|
row:SetScript("OnLeave", ItemTemplate_OnLeave)
|
|
if i == 1 then
|
|
row:SetPoint("TOPLEFT", scrollFrame, 8, -8)
|
|
else
|
|
row:SetPoint("TOPLEFT", scrollFrame.rows[i-1], "BOTTOMLEFT")
|
|
end
|
|
rawset(t, i, row)
|
|
return row
|
|
end })
|
|
|
|
scrollFrame.rows = rows
|
|
|
|
--Shows a menu with options and sharing options
|
|
local extractMenu = CreateFrame("Button", "ProfessionMenu_ExtractInterface_FilterMenu", ProfessionMenu_DE_ScrollFrame, "FilterDropDownMenuTemplate")
|
|
extractMenu:SetSize(133, 30)
|
|
extractMenu:SetPoint("BOTTOMRIGHT", ProfessionMenu_DE_ScrollFrame, "BOTTOMRIGHT", 0, -35)
|
|
extractMenu:RegisterForClicks("LeftButtonDown")
|
|
extractMenu:SetScript("OnClick", function(self)
|
|
if dewdrop:IsOpen() then
|
|
dewdrop:Close()
|
|
else
|
|
PM:ItemMenuRegister(self)
|
|
dewdrop:Open(self)
|
|
end
|
|
end)
|
|
|
|
|