zz_UI/core.lua

535 lines
15 KiB
Lua

local name, addon = ...
addon['name'] = name
addon['parentName'] = name
addon['modsDir'] = 'Mods'
local hooked = {}
--[[*** Settings Start***]]
local HideBorder = true -- Hides the editboxborder when not active
local UnClamp = true -- Make the window movable (take care! you can move it out of your screen)
local HideFriendButton = true -- Hide the friendsbutton
local Unsticky = true -- Dont remember whispers for next enter
local NoSay = true -- Dont default chat to say
local realm
local defaults = {
['cvars'] = {
['autoLootDefault'] = "1",
-- ['consolidateBuffs'] = "0",
},
['dests'] = {
["Tirion"] = "Ritalein",
["Arygos"] = "Pastorella",
["Thrall"] = "Gurnsey",
}
}
defaults['dests'][GetRealmName()] = defaults['dests'][GetRealmName()] or UnitName("player")
local dest = defaults['dests'][GetRealmName()]
local options = {
}
local rep = ERR_FRIEND_ONLINE_SS:gsub("%%s", "(.+)"):gsub("[%[%]]", "%%%1")
local rosterOfficer = {}
local rosterNotice = {}
local db
local ldbicon = LibStub:GetLibrary("LibDBIcon-1.0")
local function OnClick(self, button)
if(IsShiftKeyDown() and button == "LeftButton") then
addon['db']['global']['ldbicons'][name]['hide'] = not addon['db']['global']['ldbicons'][name]['hide']
if(ldbicon) then
if(addon['db']['global']['ldbicons'][name]['hide']) then
ldbicon:Hide(name)
else
ldbicon:Show(name)
end
end
else
if(InterfaceOptionsFrame:IsVisible() and not InCombatLockdown()) then
InterfaceOptionsFrame:Hide()
else
InterfaceOptionsFrame_OpenToCategory(name)
InterfaceOptionsFrame_OpenToCategory(name) -- Twice because of a bug in InterfaceOptionsFrame_OpenToCategory
end
end
end
local postmaster = {
['Der Postmeister'] = true,
['The Postmaster'] = true,
}
local itemList = {
"52306","52307","52308","52309","43248","52492", -- cata
"83793","83794", -- mop
"115990","115993", -- wod
}
local function itemCount()
local cnt = 0
for _,v in ipairs(itemList) do
cnt = cnt + GetItemCount(v)
end
return cnt
end
local function sendItem(id)
for _,v in ipairs(itemList) do
if(tonumber(v) == tonumber(id)) then
return true
end
end
return false
end
local function guildRoster(nameC)
for i=1, GetNumGuildMembers() do
local name, _, _, _, _, _, note, officernote = GetGuildRosterInfo(i)
-- local name, rank, rankIndex, level, classDisplayName, zone, note, officernote, isOnline, status, class, achievementPoints, achievementRank, isMobile, canSoR, repStanding = GetGuildRosterInfo(index)
local n = strsplit("-",name)
if(name == nameC or n == nameC) then
rosterOfficer[nameC] = officernote
rosterNotice[nameC] = note
return (rosterOfficer[nameC] and rosterOfficer[nameC]~="") and rosterOfficer[nameC] or (rosterNotice[nameC] or "")
else
--
end
end
for i=1,C_FriendList.GetNumFriends() do
local name, _, _, _, _, _, note = C_FriendList.GetFriendInfo(i)
if(name==nameC) then
return note and note or ""
end
end
for i=1,BNGetNumFriends() do
local _, characterName, messageText, noteText
if(BNGetFriendInfo) then
_, _, _, _, characterName, _, _, _, _, _, _, messageText, noteText = BNGetFriendInfo(i)
else
local res = C_BattleNet.GetFriendAccountInfo(i)
if(res and res['gameAccountInfo']) then
characterName, messageText, noteText = res['gameAccountInfo']['characterName'],res['customMessage'],res['note']
end
end
if(characterName==nameC) then
local line = ""
if(noteText) then
line = line .. noteText
end
if(messageText) then
if(noteText) then
line = line .. " | "
end
line = line .. messageText
end
return line
end
end
print(format("Line 68-Debug zz_UI (%s)",nameC))
return ""
end
local function addNoticeR(link)
return guildRoster(select(2,strsplit(":",select(3,string.find(link, "^|H(.+)|h%[.*%]")))))
end
local function addNotice(self, event, msg, author, ...)
if(msg and rep and string.find(msg,rep)) then
return false, gsub(msg, " ", format(" (%s) ",addNoticeR(msg)) or " ",1), author, ...
end
return false
end
local function focusToggle(self)
local name = self:GetName()
if(self:HasFocus()) then
_G[name..'Left']:Show()
_G[name..'Right']:Show()
_G[name..'Mid']:Show()
else
_G[name..'Left']:Hide()
_G[name..'Right']:Hide()
_G[name..'Mid']:Hide()
end
end
local function hookFrame(self)
if(not hooked[self]) then
self:HookScript("OnEditFocusGained",focusToggle)
self:HookScript("OnEditFocusLost",focusToggle)
hooked[self] = true
end
return
end
local garrisonMaps = {
[1152] = true, -- FW Horde Garrison Level 1
[1330] = true, -- FW Horde Garrison Level 2
[1153] = true, -- FW Horde Garrison Level 3
[1154] = true, -- FW Horde Garrison Level 4
[1158] = true, -- SMV Alliance Garrison Level 1
[1331] = true, -- SMV Alliance Garrison Level 2
[1159] = true, -- SMV Alliance Garrison Level 3
[1160] = true, -- SMV Alliance Garrison Level 4
}
local function InGarrison()
local name, instanceType, difficultyID, difficultyName, maxPlayers, dynamicDifficulty, isDynamic, instanceMapID, instanceGroupSize = GetInstanceInfo()
if(garrisonMaps[instanceMapID]) then
return true
end
return false
end
local function apply(eb)
local d = 'PARTY'
local i, t = IsInInstance()
if (t=='raid') then
d = 'RAID'
elseif ((t=='party' and not InGarrison()) or t=='pvp') then
d = 'INSTANCE_CHAT'
elseif (not i and GetNumGroupMembers()>0) then
d = 'PARTY'
elseif IsInGuild() then
d = 'GUILD'
end
eb:SetAttribute("chatType", d)
-- eb:SetAttribute("stickyType", d)
end
local function chatHoverIn(cf,link,text)
local typ = string.match(link, "^(.-):")
-- print(typ,link)
--[[ print(typ,link)
local tbl = { strsplit(":", link) }
for k,v in pairs(tbl) do
print(v)
end
]]--
if(typ == "item" or typ == "enchant" or typ == "spell" or typ == "quest" or typ == "currency") then
GameTooltip:SetOwner(UIParent, "ANCHOR_CURSOR")
GameTooltip:SetHyperlink(link)
ShowUIPanel(GameTooltip)
elseif(typ == "player") then
local typ, name = string.match(link, "^(.-):(.*):(.*):")
if(name) then
GameTooltip:SetOwner(UIParent, "ANCHOR_CURSOR")
GameTooltip:SetUnit(name)
ShowUIPanel(GameTooltip)
end
end
end
local function chatHoverOut(cf,link,text)
HideUIPanel(GameTooltip)
end
local function OnText(message)
addon:OnText(name, message)
end
local ClassColorUnits = {
["target"] = {
["name"] = "TargetFrame",
["back"] = "TargetFrame",
["x-offset"] = -104,
["y-offset"] = 60,
["x-offset2"] = 6,
["y-offset2"] = -22,
},
["player"] = {
["name"] = "PlayerFrame",
["back"] = "PlayerFrameBackground",
["x-offset"] = 0,
["y-offset"] = 22,
["x-offset2"] = 0,
["y-offset2"] = 0,
},
["focus"] = {
["name"] = "FocusFrame",
["back"] = "FocusFrame",
["x-offset"] = -104,
["y-offset"] = 60,
["x-offset2"] = 6,
["y-offset2"] = -22,
},
}
local function updateClassColor(unit)
if(unit and UnitExists(unit)) then
local _,class = UnitClass(unit)
if(class and RAID_CLASS_COLORS[class]) then
if(ClassColorUnits[unit]) then
local uf = _G[ClassColorUnits[unit]['name']]
local bg = _G[ClassColorUnits[unit]['back']]
if(not uf['unitClassColorBack']) then
uf['unitClassColorBack'] = uf:CreateTexture(nil, "ARTWORK")
uf['unitClassColorBack']:SetPoint("TOPLEFT", bg, ClassColorUnits[unit]['x-offset2'], ClassColorUnits[unit]['y-offset2'])
uf['unitClassColorBack']:SetPoint("BOTTOMRIGHT", bg, ClassColorUnits[unit]['x-offset'], ClassColorUnits[unit]['y-offset'])
uf['unitClassColorBack']:SetTexture("Interface\\TargetingFrame\\UI-StatusBar")
end
local col = RAID_CLASS_COLORS[class]
if(not UnitIsPlayer(unit)) then
uf['unitClassColorBack']:SetVertexColor(0, 0, 0, 0)
else
uf['unitClassColorBack']:SetVertexColor(col['r'], col['g'], col['b'],1)
end
end
end
end
end
local function OnEvent(self, event, arg1, ...)
if(arg1 == name and event=="ADDON_LOADED") then
if(PlayerFrame:IsUserPlaced()) then
PlayerFrame:SetMoveable(false)
else
PlayerFrame:SetUserPlaced(true)
PlayerFrame:ClearAllPoints()
PlayerFrame:SetPoint("RIGHT", UIParent, "CENTER", 0, -140)
end
if(not TargetFrame:IsUserPlaced()) then
TargetFrame:SetUserPlaced(true)
TargetFrame:ClearAllPoints()
TargetFrame:SetPoint("TOPLEFT", PlayerFrame, "TOPRIGHT",0,0)
else
TargetFrame:SetMoveable(false)
end
self:UnregisterEvent(event)
-- Remove the cancel button (Reduce the taint caused by InterfaceOptionsFrame src: http://www.wowinterface.com/forums/showpost.php?p=275119&postcount=17 )
InterfaceOptionsFrameCancel:Hide()
InterfaceOptionsFrameOkay:SetAllPoints(InterfaceOptionsFrameCancel)
-- Make clicking cancel the same as clicking okay
InterfaceOptionsFrameCancel:SetScript("OnClick", function()
InterfaceOptionsFrameOkay:Click()
end)
if(HideFriendButton) then
local fb = _G['QuickJoinToastButton']
if(fb) then
fb:UnregisterAllEvents()
if(not hooked[fb]) then
fb:HookScript("OnShow", function(self) self:Hide() end)
hooked[fb] = true
end
fb:Hide()
end
end
if(Unsticky) then
ChatTypeInfo['WHISPER']['sticky'] = 0
ChatTypeInfo['BN_WHISPER']['sticky'] = 0
end
elseif(event == "PLAYER_TARGET_CHANGED") then
updateClassColor("target")
elseif(event == "PLAYER_FOCUS_CHANGED") then
updateClassColor("focus")
elseif(event == "MAIL_SHOW") then
-- sf_new()
elseif(event == "UNIT_INVENTORY_CHANGED") then
if(itemCount()<12) then return end
if(UnitName("player") == dest) then
self:UnregisterEvent(event)
return
end
if(SendMailFrame:IsVisible())then
local a,b = 0,0
local link,numberOfSlots
local info,id = {},0
local full = 0
while(a<=NUM_BAG_SLOTS) do
numberOfSlots = GetContainerNumSlots(a)
b = 1
while(b<=numberOfSlots) do
link = GetContainerItemLink(a, b)
if(link) then
id = addon:getItemId(link)
-- print(id,link)
if(sendItem(id)) then
local _, itemCount, locked, _, _ = GetContainerItemInfo(a, b)
if(not locked) then
UseContainerItem(a, b)
full = full + 1
if(full >= 12) then
SendMail(dest,"Post",nil)
full = 0
SELECTED_CHAT_FRAME:AddMessage("Sending")
break
end
end
end
end
b = b + 1
end
a = a + 1
end
end
elseif(event == "UPDATE_CHAT_WINDOWS") then
ChatFrame1:SetUserPlaced(true)
ChatFrame1:SetClampedToScreen(false)
ChatFrame1:ClearAllPoints()
ChatFrame1:SetWidth(353)
ChatFrame1:SetHeight(148)
ChatFrame1:SetPoint("BOTTOMLEFT", UIParent, "BOTTOMLEFT",32,30)
local iname = "Friendlog"
local ifound = false
for i = 1, NUM_CHAT_WINDOWS do
local cf = _G['ChatFrame'..i]
cf.oldAlpha = cf.oldAlpha or 0 -- Fix 'max-bug' in FCF.lua
cf:HookScript("OnHyperlinkEnter",chatHoverIn)
cf:HookScript("OnHyperlinkLeave",chatHoverOut)
local cfname, _, _, _, _, _, shown, _, _, _ = GetChatWindowInfo(i)
if(cfname == iname) then
ifound = true
end
if(UnClamp) then
local cf = _G['ChatFrame'..i]
cf:SetClampedToScreen(false)
cf:Raise()
end
if(HideBorder) then
local ef = _G['ChatFrame'..i..'EditBox']
focusToggle(ef)
hookFrame(ef)
end
end
if(not ifound) then
local frame = FCF_OpenNewWindow(iname)
FCF_CopyChatSettings(frame, DEFAULT_CHAT_FRAME)
FCF_DockUpdate()
end
self:UnregisterEvent(event)
elseif(event == 'PLAYER_ENTERING_WORLD') then
for i = 1, NUM_CHAT_WINDOWS do
if(NoSay) then
local eb = _G['ChatFrame'..i..'EditBox']
apply(eb)
if(not hooked['NoSay']) then
hooked['NoSay'] = true
end
end
end
updateClassColor("player")
elseif(event == 'MAIL_INBOX_UPDATE') then
for i=GetInboxNumItems(),1,-1 do
local packageIcon, stationeryIcon, sender, subject, money, CODAmount, daysLeft, hasItem, wasRead, wasReturned, textCreated, canReply, isGM =GetInboxHeaderInfo(i)
if(postmaster[sender]) then
if(money and money >0) then
TakeInboxMoney(i)
end
if(hasItem) then
for j = 1, ATTACHMENTS_MAX_RECEIVE do
local name, texture, count, quality, canUse = GetInboxItem(i, j)
if(name) then
TakeInboxItem(i,j)
end
end
end
C_Timer.After(5, function() DeleteInboxItem(i) end)
end
end
elseif(event == 'CHAT_MSG_SYSTEM') then -- http://www.wowinterface.com/downloads/info23035-AFKQuit.html
if(arg1 and arg1 == IDLE_MESSAGE) then
ForceQuit()
end
end
end
--[[
Start Healthbar color Phanx
http://www.wowinterface.com/forums/showthread.php?p=302918#post302918
--]]
local function OnMinMaxChanged(bar, minValue, maxValue)
bar.maxValue = maxValue
end
local function SetValue(bar, value)
bar:real_SetValue(value)
local percent = value / bar.maxValue
if percent > 0.5 then
bar:SetStatusBarColor(2 * (1 - percent), 1, 0)
else
bar:SetStatusBarColor(1, 2 * percent, 0)
end
end
local function HandleBar(bar)
local _, maxValue = bar:GetMinMaxValues()
bar.maxValue = maxValue
bar.lockColor = true
bar:HookScript("OnMinMaxChanged", OnMinMaxChanged)
bar.real_SetValue = bar.SetValue
bar.SetValue = SetValue
end
--[[
End Healthbar color Phanx
http://www.wowinterface.com/forums/showthread.php?p=302918#post302918
--]]
local function UpdateChar()
local name = UnitName('player')
local uname = name.."-"..realm
local _,class = UnitClass("player")
db['chardb'] = db['chardb'] or {}
db['chardb'][uname] = db['chardb'][uname] or {}
db['chardb'][uname]['level'] = UnitLevel("player")
db['chardb'][uname]['class'] = class
end
local function getPref(pref)
return db[pref[#pref]]
end
local function setPref(pref,value)
db[pref[#pref]] = value
end
local function getUNames()
local n = {}
for k,v in pairs(db['chardb']) do
n[#n+1] = k
end
return n
end
local brokers = {}
function addon:RegisterBroker(brokerName, brokerFunc, default, defaults)
brokers[brokerName] = {
['func'] = brokerFunc,
['default'] = default,
['defaults'] = defaults,
}
end
do
addon['preloads'][#addon['preloads'] + 1] = function(...)
db = addon['db']['profile'][name]
for broker, tab in pairs(brokers) do
if(type(tab['defaults']) == 'table') then
addon['db']['profile'][broker] = addon['db']['profile'][broker] or tab['defaults']
else
addon['db']['profile'][broker] = addon['db']['profile'][broker] or {}
end
end
for k, v in pairs(db['cvars']) do
C_CVar.SetCVar(k,v)
end
end
local function init(self, ...)
realm = GetRealmName()
options = addon:InitConfig(name, true, {
['type'] = "launcher",
['OnClick'] = OnClick
}, getPref, setPref)
for broker, tab in pairs(brokers) do
addon:AddConfigEntry(name,"toggle",broker.."toggle",broker,"Enable/Disable "..broker.." on next reload",1,nil,nil,nil,nil,addon['options']['args'][name])
if(addon['db']['profile'][broker..'toggle'] or addon['db']['profile'][broker..'toggle'] == nil) then
tab['func']()
end
end
ChatFrame_AddMessageEventFilter("CHAT_MSG_SYSTEM", addNotice)
HandleBar(PlayerFrameHealthBar)
HandleBar(TargetFrameHealthBar)
UpdateChar()
end
addon:startup(name, name, init, nil, defaults)
addon:RegisterFunc(addon:IsClassic() and {'MAIL_INBOX_UPDATE','PLAYER_TARGET_CHANGED','UPDATE_CHAT_WINDOWS','ADDON_LOADED','PLAYER_ENTERING_WORLD','CHAT_MSG_SYSTEM','MAIL_SHOW','MAIL_CLOSED'} or {'MAIL_INBOX_UPDATE','PLAYER_TARGET_CHANGED','PLAYER_FOCUS_CHANGED','UPDATE_CHAT_WINDOWS','ADDON_LOADED','PLAYER_ENTERING_WORLD','CHAT_MSG_SYSTEM','MAIL_SHOW','MAIL_CLOSED'},"OnEvent", OnEvent)
end
-- addon:RegisterEventThrottle(name,'UNIT_INVENTORY_CHANGED', 0.07, OnEvent)