Mercurial > wow > degaine

annotate Degaine.lua @ 21:e3f92fae450b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
When in combat, disable spells only
author contrebasse
date Fri, 10 Dec 2010 20:05:58 +0100
parents 4da97c12564f
children ddcb7021838b
rev   line source
contrebasse@0 1 local AddonName = ...
contrebasse@5 2 -- Draw your weapons automagically
contrebasse@0 3
contrebasse@12 4
contrebasse@12 5 ---------------------------------------------------------------
contrebasse@12 6 -- Known bugs
contrebasse@12 7 ---------------------------------------------------------------
contrebasse@10 8 -- If you stand up by jumping or walking it won't draw your weapon
contrebasse@10 9 -- (it's not possible to know if you were sitting or standing before)
contrebasse@0 10
contrebasse@5 11 --@debug@
contrebasse@21 12 local debug = true
contrebasse@5 13 --@end-debug@
contrebasse@0 14
contrebasse@12 15
contrebasse@5 16 ---------------------------------------------------------------
contrebasse@5 17 -- Globals to local
contrebasse@5 18 ---------------------------------------------------------------
contrebasse@21 19 -- These need to be globals :
contrebasse@6 20 -- GLOBALS: Degaine_ToggleAuto, Degaine_isAuto, BINDING_HEADER_DEGAINE
contrebasse@0 21
contrebasse@21 22 -- It doesn't matter if they are globals, rarely unsed :
contrebasse@14 23 -- GLOBALS: DEFAULT_CHAT_FRAME
contrebasse@5 24
contrebasse@5 25 -- Lua functions
contrebasse@0 26 local pairs = pairs;
contrebasse@0 27 local type = type;
contrebasse@0 28
contrebasse@5 29 -- Wow functions
contrebasse@14 30 local GetTime = GetTime
contrebasse@5 31 local InCombatLockdown = InCombatLockdown
contrebasse@5 32 local ToggleSheath = ToggleSheath
contrebasse@20 33 local UnitName = UnitName
contrebasse@0 34
contrebasse@0 35
contrebasse@5 36 ---------------------------------------------------------------
contrebasse@8 37 -- Local vars
contrebasse@8 38 ---------------------------------------------------------------
contrebasse@8 39 -- const
contrebasse@8 40 local DegaineFrame = CreateFrame("Frame")
contrebasse@8 41 local playername = UnitName("player")
contrebasse@8 42
contrebasse@8 43 -- vars
contrebasse@8 44 local t_left = -1
contrebasse@8 45 local delay = 2 -- seconds
contrebasse@14 46 local isGossipClosed = true
contrebasse@14 47 local wasGossipOpened = false
contrebasse@14 48 local t_lastGossipClosed = 0
contrebasse@8 49
contrebasse@12 50
contrebasse@8 51 ---------------------------------------------------------------
contrebasse@5 52 -- Some stuff...
contrebasse@5 53 ---------------------------------------------------------------
contrebasse@5 54 -- Bindings
contrebasse@5 55 BINDING_HEADER_DEGAINE = "Dégainer automatiquement"
contrebasse@5 56
contrebasse@5 57 -- Print status
contrebasse@5 58 local printState = function()
contrebasse@11 59 DEFAULT_CHAT_FRAME:AddMessage(Degaine_isAuto and "Dégainage automatique |cFF00FF00activé|r" or "Dégainage automatique |cFFFF0000désactivé|r")
contrebasse@5 60 end
contrebasse@5 61
contrebasse@5 62
contrebasse@5 63 ---------------------------------------------------------------
contrebasse@5 64 -- Events config
contrebasse@5 65 ---------------------------------------------------------------
contrebasse@5 66 -- Events to watch
contrebasse@5 67 local events = { -- no args to watch
contrebasse@14 68 GOSSIP_SHOW = function()
contrebasse@19 69 -- isGossipClosed :
contrebasse@19 70 -- if the gossip is already opened, no need to draw weapon
contrebasse@19 71 -- UnitName("npc")==UnitName("target") :
contrebasse@19 72 -- hack gossips again because there's no emote with non npc
contrebasse@19 73 -- you have to target the npc to interact with it
contrebasse@19 74 -- things such as boards can't be targeted and start no emote
contrebasse@17 75 local returnvalue = isGossipClosed and UnitName("npc")==UnitName("target")
contrebasse@14 76 isGossipClosed = false
contrebasse@14 77 return returnvalue
contrebasse@14 78 end,
contrebasse@14 79 MERCHANT_SHOW = function()
contrebasse@19 80 -- hack for the cases where the merchant's frame is opened from a gossip frame :
contrebasse@19 81 -- the gossip is closed and the merchant opened but the weapon is not stealthed
contrebasse@14 82 if (GetTime() - t_lastGossipClosed) < 0.5 then
contrebasse@14 83 return not wasGossipOpened
contrebasse@14 84 else
contrebasse@14 85 return isGossipClosed
contrebasse@14 86 end
contrebasse@14 87 end,
contrebasse@11 88 BANKFRAME_OPENED = true, --function() return GossipFrame:IsShown() end,
contrebasse@0 89 AUCTION_HOUSE_SHOW = true,
contrebasse@5 90 }
contrebasse@5 91 local events1player = { -- the first arg is "player"
contrebasse@5 92 UNIT_SPELLCAST_FAILED = true,
contrebasse@5 93 UNIT_SPELLCAST_INTERRUPTED = true,
contrebasse@5 94 UNIT_SPELLCAST_SUCCEEDED = true,
contrebasse@5 95 }
contrebasse@12 96 local SpellBlackList = { -- spells that don't stealth weapons (works with events1player)
contrebasse@12 97 [1784] = true, -- Stealth (Rogue)
contrebasse@12 98 [58984] = true, -- Shadowmeld (Nightelf stealth)
contrebasse@13 99
contrebasse@13 100 -- Tradeskill spells
contrebasse@13 101 [2259] = true, -- Alchemy
contrebasse@13 102 [45357] = true, -- Inscription
contrebasse@13 103 [3908] = true, -- Tailoring
contrebasse@13 104 [7411] = true, -- Enchanting
contrebasse@13 105 [2018] = true, -- Blacksmithing
contrebasse@13 106 [4036] = true, -- Engineering
contrebasse@13 107 [25229] = true, -- Jewelcrafting
contrebasse@13 108 [2656] = true, -- Smelting
contrebasse@13 109 [2108] = true, -- Leatherworking
contrebasse@13 110 [2550] = true, -- Cooking
contrebasse@13 111 [3273] = true, -- First Aid
contrebasse@13 112 [53428] = true -- Runeforge
contrebasse@13 113 -- Archaeology ?
contrebasse@12 114 }
contrebasse@5 115 local events2playername = { -- the 2nd arg is playername
contrebasse@5 116 CHAT_MSG_SAY = true,
contrebasse@5 117 CHAT_MSG_YELL = true,
contrebasse@5 118 CHAT_MSG_TEXT_EMOTE = true,
contrebasse@5 119 }
contrebasse@0 120
contrebasse@0 121
contrebasse@5 122 ---------------------------------------------------------------
contrebasse@8 123 -- Launch drawing weapons
contrebasse@5 124 ---------------------------------------------------------------
contrebasse@5 125 -- Wait a few seconds before drawing, to be able to see the curren animation (and avoid bugs)
contrebasse@5 126 local Degaine_OnUpdate = function(self,t_elapsed)
contrebasse@10 127 t_left = t_left - t_elapsed;
contrebasse@10 128 if t_left<=0 then
contrebasse@11 129 ToggleSheath()
contrebasse@11 130 DegaineFrame:SetScript("OnUpdate", nil)
contrebasse@0 131 end
contrebasse@0 132 end
contrebasse@8 133 local start = function()
contrebasse@8 134 if Degaine_isAuto and not InCombatLockdown() then
contrebasse@8 135 t_left = delay
contrebasse@11 136 DegaineFrame:SetScript("OnUpdate", Degaine_OnUpdate)
contrebasse@8 137 end
contrebasse@8 138 end
contrebasse@5 139
contrebasse@12 140
contrebasse@5 141 ---------------------------------------------------------------
contrebasse@5 142 -- Activation functions
contrebasse@5 143 ---------------------------------------------------------------
contrebasse@5 144 local activate = function()
contrebasse@5 145 if (not Degaine_isAuto) or InCombatLockdown() then return end
contrebasse@5 146
contrebasse@9 147 --DegaineFrame:SetScript("OnUpdate", Degaine_OnUpdate);
contrebasse@5 148 --@debug@
contrebasse@5 149 if debug then
contrebasse@11 150 DegaineFrame:RegisterAllEvents()
contrebasse@5 151 else
contrebasse@5 152 --@end-debug@
contrebasse@18 153 for k,_ in pairs(events) do DegaineFrame:RegisterEvent(k) end
contrebasse@18 154 for k,_ in pairs(events1player) do DegaineFrame:RegisterEvent(k) end
contrebasse@18 155 for k,_ in pairs(events2playername) do DegaineFrame:RegisterEvent(k) end
contrebasse@5 156 --@end-debug@
contrebasse@5 157 end
contrebasse@5 158 --@end-debug@
contrebasse@0 159 end
contrebasse@5 160 local desactivate = function()
contrebasse@18 161 for k,_ in pairs(events) do DegaineFrame:UnregisterEvent(k) end
contrebasse@18 162 for k,_ in pairs(events1player) do DegaineFrame:UnregisterEvent(k) end
contrebasse@18 163 for k,_ in pairs(events2playername) do DegaineFrame:UnregisterEvent(k) end
contrebasse@11 164 DegaineFrame:SetScript("OnUpdate", nil)
contrebasse@0 165 end
contrebasse@6 166 Degaine_ToggleAuto = function()
contrebasse@5 167 if Degaine_isAuto then
contrebasse@5 168 Degaine_isAuto = false
contrebasse@5 169 desactivate()
contrebasse@5 170 else
contrebasse@5 171 Degaine_isAuto = true
contrebasse@5 172 activate()
contrebasse@5 173 end
contrebasse@5 174 printState()
contrebasse@5 175 end
contrebasse@0 176
contrebasse@5 177
contrebasse@5 178 ---------------------------------------------------------------
contrebasse@5 179 -- Event/hooks functions
contrebasse@5 180 ---------------------------------------------------------------
contrebasse@12 181 local Degaine_OnEvent = function(self,event, arg1, arg2, _, _, arg5, ...)
contrebasse@5 182 --@debug@
contrebasse@14 183 --if debug then
contrebasse@5 184 DEFAULT_CHAT_FRAME:AddMessage(event)
contrebasse@14 185 --if arg1 then DEFAULT_CHAT_FRAME:AddMessage("arg1 = "..arg1) end
contrebasse@14 186 --if arg2 then DEFAULT_CHAT_FRAME:AddMessage("arg2 = "..arg2) end
contrebasse@14 187 --end
contrebasse@5 188 --@end-debug@
contrebasse@5 189
contrebasse@12 190 if events[event] then
contrebasse@12 191 if type(events[event])~="function" or events[event]() then
contrebasse@12 192 start()
contrebasse@12 193 end
contrebasse@12 194 elseif events1player[event] then
contrebasse@12 195 if arg1=="player" then
contrebasse@12 196 if not SpellBlackList[arg5] then -- arg5 is SpellID
contrebasse@12 197 start()
contrebasse@12 198 end
contrebasse@12 199 end
contrebasse@12 200 elseif events2playername[event] then
contrebasse@12 201 if arg2==playername then
contrebasse@12 202 start()
contrebasse@12 203 end
contrebasse@14 204 elseif event == "GOSSIP_CLOSED" then
contrebasse@14 205 wasGossipOpened = not isGossipClosed
contrebasse@14 206 isGossipClosed = true
contrebasse@14 207 t_lastGossipClosed = GetTime()
contrebasse@5 208
contrebasse@0 209 elseif event == "PLAYER_REGEN_ENABLED" then
contrebasse@21 210 for k,_ in pairs(events1player) do DegaineFrame:UnregisterEvent(k) end
contrebasse@21 211 --desactivate()
contrebasse@0 212 elseif event == "PLAYER_REGEN_DISABLED" then
contrebasse@5 213 activate()
contrebasse@5 214
contrebasse@0 215 elseif event == "ADDON_LOADED" and arg1==AddonName then
contrebasse@5 216 if Degaine_isAuto==nil then
contrebasse@5 217 Degaine_isAuto = true
contrebasse@0 218 end
contrebasse@11 219 if Degaine_isAuto then activate() else desactivate() end
contrebasse@5 220 printState()
contrebasse@5 221
contrebasse@5 222 -- Not needed anymore
contrebasse@5 223 DegaineFrame:UnregisterEvent("ADDON_LOADED")
contrebasse@0 224 end
contrebasse@0 225 end
contrebasse@5 226 -- Hook when standing up
contrebasse@5 227 -- (Didn't work, see http://forums.wowace.com/showthread.php?p=310547#post310547)
contrebasse@8 228 hooksecurefunc("SitStandOrDescendStart",start);
contrebasse@0 229
contrebasse@0 230
contrebasse@6 231 ---------------------------------------------------------------
contrebasse@6 232 -- Commands
contrebasse@6 233 ---------------------------------------------------------------
contrebasse@6 234 -- Bindings
contrebasse@6 235 BINDING_HEADER_DEGAINE = "Dégainer automatiquement"
contrebasse@6 236
contrebasse@6 237 -- Slash command
contrebasse@7 238 -- GLOBALS: SLASH_DEGAINE1
contrebasse@7 239 SLASH_DEGAINE1 = "/degaine"
contrebasse@6 240 SlashCmdList["DEGAINE"] = Degaine_ToggleAuto
contrebasse@6 241
contrebasse@5 242
contrebasse@5 243 ---------------------------------------------------------------
contrebasse@5 244 -- Initialization
contrebasse@5 245 ---------------------------------------------------------------
contrebasse@5 246 DegaineFrame:SetScript("OnEvent",Degaine_OnEvent)
contrebasse@5 247
contrebasse@5 248 -- Global events
contrebasse@14 249 DegaineFrame:RegisterEvent("GOSSIP_CLOSED")
contrebasse@5 250 DegaineFrame:RegisterEvent("PLAYER_REGEN_ENABLED")
contrebasse@5 251 DegaineFrame:RegisterEvent("PLAYER_REGEN_DISABLED")
contrebasse@5 252 DegaineFrame:RegisterEvent("ADDON_LOADED")
contrebasse@5 253 activate()
contrebasse@12 254