WoWInterface SVN Eui
[/] [Eui/] [script/] [ncHoverBind.lua] - Rev 2
Compare with Previous | Blame | View Log
local bind, localmacros = CreateFrame("Frame", "ncHoverBind", UIParent), 0
-- SLASH COMMAND
SlashCmdList.MOUSEOVERBIND = function()
if InCombatLockdown() then print("ä½ ä¸è½å¨ææä¸ç»å®æé®") return end
if not bind.loaded then
local find = string.find
local _G = getfenv(0)
bind:SetFrameStrata("DIALOG")
bind:EnableMouse(true)
bind:EnableKeyboard(true)
bind:EnableMouseWheel(true)
bind.texture = bind:CreateTexture()
bind.texture:SetAllPoints(bind)
bind.texture:SetTexture(0, 0, 0, .25)
bind:Hide()
local elapsed = 0
GameTooltip:HookScript("OnUpdate", function(self, e)
elapsed = elapsed + e
if elapsed < .2 then return else elapsed = 0 end
if (not self.comparing and IsModifiedClick("COMPAREITEMS")) then
GameTooltip_ShowCompareItem(self)
self.comparing = true
elseif ( self.comparing and not IsModifiedClick("COMPAREITEMS")) then
for _, frame in pairs(self.shoppingTooltips) do
frame:Hide()
end
self.comparing = false
end
end)
hooksecurefunc(GameTooltip, "Hide", function(self) for _, tt in pairs(self.shoppingTooltips) do tt:Hide() end end)
bind:SetScript("OnEvent", function(self) self:Deactivate(false) end)
bind:SetScript("OnLeave", function(self) self:HideFrame() end)
-- chaged the following two Script from OnKeyUp to OnKeyDown to fix can't bind a combine key such as SHFT+T, ALT+SHIFT+Q
bind:SetScript("OnKeyDown", function(self, key) self:Listener(key) end)
bind:SetScript("OnMouseDown", function(self, key) self:Listener(key) end)
bind:SetScript("OnMouseWheel", function(self, delta) if delta>0 then self:Listener("MOUSEWHEELUP") else self:Listener("MOUSEWHEELDOWN") end end)
function bind:Update(b, spellmacro)
if not self.enabled or InCombatLockdown() then return end
self.button = b
self.spellmacro = spellmacro
self:ClearAllPoints()
self:SetAllPoints(b)
self:Show()
ShoppingTooltip1:Hide()
if spellmacro=="SPELL" then
self.button.id = SpellBook_GetSpellID(self.button:GetID())
self.button.name = GetSpellName(self.button.id, SpellBookFrame.bookType)
GameTooltip:AddLine("Trigger")
GameTooltip:Show()
GameTooltip:SetScript("OnHide", function(self)
self:SetOwner(bind, "ANCHOR_NONE")
self:SetPoint("BOTTOM", bind, "TOP", 0, 1)
self:AddLine(bind.button.name, 1, 1, 1)
bind.button.bindings = {GetBindingKey(spellmacro.." "..bind.button.name)}
if #bind.button.bindings == 0 then
self:AddLine("æªç»å®æé®", .6, .6, .6)
else
self:AddDoubleLine("ç»å®", "æé®", .6, .6, .6, .6, .6, .6)
for i = 1, #bind.button.bindings do
self:AddDoubleLine(i, bind.button.bindings[i])
end
end
self:Show()
self:SetScript("OnHide", nil)
end)
elseif spellmacro=="MACRO" then
self.button.id = self.button:GetID()
if localmacros==1 then self.button.id = self.button.id + 36 end
self.button.name = GetMacroInfo(self.button.id)
GameTooltip:SetOwner(bind, "ANCHOR_NONE")
GameTooltip:SetPoint("BOTTOM", bind, "TOP", 0, 1)
GameTooltip:AddLine(bind.button.name, 1, 1, 1)
bind.button.bindings = {GetBindingKey(spellmacro.." "..bind.button.name)}
if #bind.button.bindings == 0 then
GameTooltip:AddLine("æªç»å®æé®", .6, .6, .6)
else
GameTooltip:AddDoubleLine("ç»å®", "æé®", .6, .6, .6, .6, .6, .6)
for i = 1, #bind.button.bindings do
GameTooltip:AddDoubleLine("Binding"..i, bind.button.bindings[i], 1, 1, 1)
end
end
GameTooltip:Show()
elseif spellmacro=="STANCE" or spellmacro=="PET" then
self.button.id = tonumber(b:GetID())
self.button.name = b:GetName()
if not self.button.name then return end
if not self.button.id or self.button.id < 1 or self.button.id > (spellmacro=="STANCE" and 10 or 12) then
self.button.bindstring = "CLICK "..self.button.name..":LeftButton"
else
self.button.bindstring = (spellmacro=="STANCE" and "SHAPESHIFTBUTTON" or "BONUSACTIONBUTTON")..self.button.id
end
GameTooltip:AddLine("Trigger")
GameTooltip:Show()
GameTooltip:SetScript("OnHide", function(self)
self:SetOwner(bind, "ANCHOR_NONE")
self:SetPoint("BOTTOM", bind, "TOP", 0, 1)
self:AddLine(bind.button.name, 1, 1, 1)
bind.button.bindings = {GetBindingKey(bind.button.bindstring)}
if #bind.button.bindings == 0 then
self:AddLine("æªç»å®æé®", .6, .6, .6)
else
self:AddDoubleLine("ç»å®", "æé®", .6, .6, .6, .6, .6, .6)
for i = 1, #bind.button.bindings do
self:AddDoubleLine(i, bind.button.bindings[i])
end
end
self:Show()
self:SetScript("OnHide", nil)
end)
else
self.button.action = tonumber(b.action)
self.button.name = b:GetName()
if not self.button.name then return end
if not self.button.action or self.button.action < 1 or self.button.action > 132 then
self.button.bindstring = "CLICK "..self.button.name..":LeftButton"
else
local modact = 1+(self.button.action-1)%12
if self.button.action < 25 or self.button.action > 72 then
self.button.bindstring = "ACTIONBUTTON"..modact
elseif self.button.action < 73 and self.button.action > 60 then
self.button.bindstring = "MULTIACTIONBAR1BUTTON"..modact
elseif self.button.action < 61 and self.button.action > 48 then
self.button.bindstring = "MULTIACTIONBAR2BUTTON"..modact
elseif self.button.action < 49 and self.button.action > 36 then
self.button.bindstring = "MULTIACTIONBAR4BUTTON"..modact
elseif self.button.action < 37 and self.button.action > 24 then
self.button.bindstring = "MULTIACTIONBAR3BUTTON"..modact
end
end
GameTooltip:AddLine("Trigger")
GameTooltip:Show()
-- fix can't bind anykey when a macro isn't available
-- must comment the line in OnHide function
-- such as you are Fury Warrior and you have a macro
-- #showtooltip /cast BladeStorm
-- you can't bind any key to this button because OnHide is not called forever
bind.button.bindings = {GetBindingKey(bind.button.bindstring)}
GameTooltip:SetScript("OnHide", function(self)
self:SetOwner(bind, "ANCHOR_NONE")
self:SetPoint("BOTTOM", bind, "TOP", 0, 1)
self:AddLine(bind.button.name, 1, 1, 1)
-- bind.button.bindings = {GetBindingKey(bind.button.bindstring)}
if #bind.button.bindings == 0 then
self:AddLine("æªç»å®æé®", .6, .6, .6)
else
self:AddDoubleLine("ç»å®", "æé®", .6, .6, .6, .6, .6, .6)
for i = 1, #bind.button.bindings do
self:AddDoubleLine(i, bind.button.bindings[i])
end
end
self:Show()
self:SetScript("OnHide", nil)
end)
end
end
function bind:Listener(key)
-- fix bind the SCREENSHOT key, now press SCREENSHOT key will take a screen shot
-- GetBindingFromClick
if GetBindingByKey(key) == "SCREENSHOT" then
RunBinding("SCREENSHOT");
return
end
-- change behavior to bind only one key for one button
if #self.button.bindings > 0 then
for i = 1, #self.button.bindings do
SetBinding(self.button.bindings[i])
end
self:Update(self.button, self.spellmacro)
if self.spellmacro~="MACRO" then GameTooltip:Hide() end
end
if key == "ESCAPE" or key == "RightButton" then
for i = 1, #self.button.bindings do
SetBinding(self.button.bindings[i])
end
print("è§£é¤ |cff00ff00"..self.button.name.."|r æé®ç»å®ï¼")
self:Update(self.button, self.spellmacro)
if self.spellmacro~="MACRO" then GameTooltip:Hide() end
return
end
if key == "LSHIFT"
or key == "RSHIFT"
or key == "LCTRL"
or key == "RCTRL"
or key == "LALT"
or key == "RALT"
or key == "UNKNOWN"
or key == "LeftButton"
or key == "MiddleButton"
then return end
if key == "Button4" then key = "BUTTON4" end
if key == "Button5" then key = "BUTTON5" end
local alt = IsAltKeyDown() and "ALT-" or ""
local ctrl = IsControlKeyDown() and "CTRL-" or ""
local shift = IsShiftKeyDown() and "SHIFT-" or ""
if not self.spellmacro or self.spellmacro=="PET" or self.spellmacro=="STANCE" then
SetBinding(alt..ctrl..shift..key, self.button.bindstring)
else
SetBinding(alt..ctrl..shift..key, self.spellmacro.." "..self.button.name)
end
print("æé® |cff00ff00"..alt..ctrl..shift..key.."|r ç»å®è³ |cff00ff00"..self.button.name.."|r")
self:Update(self.button, self.spellmacro)
if self.spellmacro~="MACRO" then GameTooltip:Hide() end
end
function bind:HideFrame()
self:ClearAllPoints()
self:Hide()
GameTooltip:Hide()
end
function bind:Activate()
self.enabled = true
self:RegisterEvent("PLAYER_REGEN_DISABLED")
end
function bind:Deactivate(save)
if save then
SaveBindings(2)
print("|cff00ff00å·²ä¿åæé®ç»å®ï¼|r")
else
LoadBindings(2)
print("|cffff0000å·²æ¾å¼æé®ç»å®ï¼|r")
end
self.enabled = false
self:HideFrame()
self:UnregisterEvent("PLAYER_REGEN_DISABLED")
StaticPopup_Hide("KEYBIND_MODE")
end
StaticPopupDialogs["KEYBIND_MODE"] = {
text = "移å¨é¼ æ å°å¨ä½æ¡ä¸å³å¯ç»å®æé®ï¼æESCæé¼ æ å³é®è§£é¤ç»å®ã",
button1 = "ä¿åæé®ç»å®",
button2 = "æ¾å¼æé®ç»å®",
OnAccept = function() bind:Deactivate(true) end,
OnCancel = function() bind:Deactivate(false) end,
timeout = 0,
whileDead = 1,
hideOnEscape = false
}
-- REGISTERING
local stance = ShapeshiftButton1:GetScript("OnClick")
local pet = PetActionButton1:GetScript("OnClick")
local button = SecureActionButton_OnClick
local function register(val)
if val.IsProtected and val.GetObjectType and val.GetScript and val:GetObjectType()=="CheckButton" and val:IsProtected() then
local script = val:GetScript("OnClick")
if script==button then
val:HookScript("OnEnter", function(self) bind:Update(self) end)
elseif script==stance then
val:HookScript("OnEnter", function(self) bind:Update(self, "STANCE") end)
elseif script==pet then
val:HookScript("OnEnter", function(self) bind:Update(self, "PET") end)
end
end
end
local val = EnumerateFrames()
while val do
register(val)
val = EnumerateFrames(val)
end
for i=1,12 do
local b = _G["SpellButton"..i]
b:HookScript("OnEnter", function(self) bind:Update(self, "SPELL") end)
end
local function registermacro()
for i=1,36 do
local b = _G["MacroButton"..i]
b:HookScript("OnEnter", function(self) bind:Update(self, "MACRO") end)
end
MacroFrameTab1:HookScript("OnMouseUp", function() localmacros = 0 end)
MacroFrameTab2:HookScript("OnMouseUp", function() localmacros = 1 end)
end
if not IsAddOnLoaded("Blizzard_MacroUI") then
hooksecurefunc("LoadAddOn", function(addon)
if addon=="Blizzard_MacroUI" then
registermacro()
end
end)
else
registermacro()
end
bind.loaded = 1
end
if not bind.enabled then
bind:Activate()
StaticPopup_Show("KEYBIND_MODE")
-- fix issue that enter /hb it doesn't display bind tooltip when mouse is over action button
local stance = ShapeshiftButton1:GetScript("OnClick")
local pet = PetActionButton1:GetScript("OnClick")
local button = SecureActionButton_OnClick
local focus = GetMouseFocus()
if focus.IsProtected and focus.GetObjectType and focus.GetScript and focus:GetObjectType()=="CheckButton" and focus:IsProtected() then
local script = focus:GetScript("OnClick")
if script==button then
bind:Update(focus)
elseif script==stance then
bind:Update(focus, "STANCE")
elseif script==pet then
bind:Update(focus, "PET")
end
end
end
end
SLASH_MOUSEOVERBIND1 = "/hb"
SLASH_MOUSEOVERBIND2 = "/hoverbind" WoWInterface
AddOn Sites
© 2004 - 2022 MMOUI
vBulletin © 2024, Jelsoft Enterprises Ltd