Mercurial > wow > degaine

annotate Degaine.lua @ 7:f8198806d261

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add slash command
author contrebasse
date Fri, 10 Dec 2010 16:20:57 +0100
parents 120f29645e34
children 47f9e596ef5a
rev   line source
contrebasse@0 1 local AddonName = ...
contrebasse@5 2 -- Draw your weapons automagically
contrebasse@0 3
contrebasse@5 4 -- Known bugs :
contrebasse@0 5 -- si on se lève en sautant ça ne sort pas l'arme (impossible de savoir si on était assis avant)
contrebasse@0 6
contrebasse@5 7 --@debug@
contrebasse@0 8 local debug = false;
contrebasse@5 9 --@end-debug@
contrebasse@0 10
contrebasse@5 11 ---------------------------------------------------------------
contrebasse@5 12 -- Globals to local
contrebasse@5 13 ---------------------------------------------------------------
contrebasse@5 14 -- These need to be globals
contrebasse@6 15 -- GLOBALS: Degaine_ToggleAuto, Degaine_isAuto, BINDING_HEADER_DEGAINE
contrebasse@0 16
contrebasse@5 17 -- It doesn't matter if they are globals
contrebasse@5 18 -- GLOBALS: DEFAULT_CHAT_FRAME, GossipFrame
contrebasse@5 19
contrebasse@5 20 -- Lua functions
contrebasse@0 21 local pairs = pairs;
contrebasse@0 22 local type = type;
contrebasse@0 23
contrebasse@5 24 -- Wow functions
contrebasse@5 25 local InCombatLockdown = InCombatLockdown
contrebasse@5 26 local ToggleSheath = ToggleSheath
contrebasse@0 27
contrebasse@0 28
contrebasse@5 29 ---------------------------------------------------------------
contrebasse@5 30 -- Some stuff...
contrebasse@5 31 ---------------------------------------------------------------
contrebasse@5 32 -- Bindings
contrebasse@5 33 BINDING_HEADER_DEGAINE = "Dégainer automatiquement"
contrebasse@5 34
contrebasse@5 35 -- Print status
contrebasse@5 36 local printState = function()
contrebasse@5 37 DEFAULT_CHAT_FRAME:AddMessage(Degaine_isAuto and "Dégainage automatique |cFF00FF00activé|r" or "Dégainage automatique |cFFFF0000désactivé|r");
contrebasse@5 38 end
contrebasse@5 39
contrebasse@5 40
contrebasse@5 41 ---------------------------------------------------------------
contrebasse@5 42 -- Local vars
contrebasse@5 43 ---------------------------------------------------------------
contrebasse@5 44 -- const
contrebasse@5 45 local DegaineFrame = CreateFrame("Frame")
contrebasse@5 46 local playername = UnitName("player")
contrebasse@5 47
contrebasse@5 48 -- vars
contrebasse@5 49 local done = true
contrebasse@5 50 local t_left = -1
contrebasse@5 51
contrebasse@5 52 ---------------------------------------------------------------
contrebasse@5 53 -- Events config
contrebasse@5 54 ---------------------------------------------------------------
contrebasse@5 55 -- Events to watch
contrebasse@5 56 local events = { -- no args to watch
contrebasse@0 57 GOSSIP_SHOW = true,
contrebasse@0 58 MERCHANT_SHOW = function() return GossipFrame:IsShown(); end,
contrebasse@5 59 BANKFRAME_OPENED = true, --function() return GossipFrame:IsShown(); end,
contrebasse@0 60 AUCTION_HOUSE_SHOW = true,
contrebasse@5 61 }
contrebasse@5 62 local SpellBlacklist = {
contrebasse@5 63 [1784] = true, -- Stealth (Rogue)
contrebasse@5 64 [58984] = true, -- Shadowmeld (Nightelf stealth)
contrebasse@5 65 }
contrebasse@5 66 local events1player = { -- the first arg is "player"
contrebasse@5 67 UNIT_SPELLCAST_FAILED = true,
contrebasse@5 68 UNIT_SPELLCAST_INTERRUPTED = true,
contrebasse@5 69 UNIT_SPELLCAST_SUCCEEDED = true,
contrebasse@5 70 }
contrebasse@5 71 local events2playername = { -- the 2nd arg is playername
contrebasse@5 72 CHAT_MSG_SAY = true,
contrebasse@5 73 CHAT_MSG_YELL = true,
contrebasse@5 74 CHAT_MSG_TEXT_EMOTE = true,
contrebasse@5 75 }
contrebasse@0 76
contrebasse@0 77
contrebasse@5 78 ---------------------------------------------------------------
contrebasse@5 79 -- Timer
contrebasse@5 80 ---------------------------------------------------------------
contrebasse@5 81 -- Wait a few seconds before drawing, to be able to see the curren animation (and avoid bugs)
contrebasse@5 82 local Degaine_OnUpdate = function(self,t_elapsed)
contrebasse@0 83 if not done then
contrebasse@5 84 t_left = t_left - t_elapsed;
contrebasse@5 85 if t_left<=0 then
contrebasse@0 86 done = true;
contrebasse@0 87 ToggleSheath();
contrebasse@0 88 end
contrebasse@0 89 end
contrebasse@0 90 end
contrebasse@0 91
contrebasse@5 92
contrebasse@5 93 ---------------------------------------------------------------
contrebasse@5 94 -- Activation functions
contrebasse@5 95 ---------------------------------------------------------------
contrebasse@5 96 local activate = function()
contrebasse@5 97 if (not Degaine_isAuto) or InCombatLockdown() then return end
contrebasse@5 98
contrebasse@5 99 DegaineFrame:SetScript("OnUpdate", Degaine_OnUpdate);
contrebasse@5 100 --@debug@
contrebasse@5 101 if debug then
contrebasse@5 102 DegaineFrame:RegisterAllEvents();
contrebasse@5 103 else
contrebasse@5 104 --@end-debug@
contrebasse@5 105 for k,v in pairs(events) do DegaineFrame:RegisterEvent(k); end
contrebasse@5 106 for k,v in pairs(events1player) do DegaineFrame:RegisterEvent(k); end
contrebasse@5 107 for k,v in pairs(events2playername) do DegaineFrame:RegisterEvent(k); end
contrebasse@5 108 --@end-debug@
contrebasse@5 109 end
contrebasse@5 110 --@end-debug@
contrebasse@0 111 end
contrebasse@5 112 local desactivate = function()
contrebasse@5 113 for k,v in pairs(events) do DegaineFrame:UnregisterEvent(k); end
contrebasse@5 114 for k,v in pairs(events1player) do DegaineFrame:UnregisterEvent(k); end
contrebasse@5 115 for k,v in pairs(events2playername) do DegaineFrame:UnregisterEvent(k); end
contrebasse@0 116 DegaineFrame:SetScript("OnUpdate", nil);
contrebasse@0 117 done = true;
contrebasse@0 118 end
contrebasse@6 119 Degaine_ToggleAuto = function()
contrebasse@5 120 if Degaine_isAuto then
contrebasse@5 121 Degaine_isAuto = false
contrebasse@5 122 desactivate()
contrebasse@5 123 else
contrebasse@5 124 Degaine_isAuto = true
contrebasse@5 125 activate()
contrebasse@5 126 end
contrebasse@5 127 printState()
contrebasse@5 128 end
contrebasse@0 129
contrebasse@5 130
contrebasse@5 131 ---------------------------------------------------------------
contrebasse@5 132 -- Event/hooks functions
contrebasse@5 133 ---------------------------------------------------------------
contrebasse@5 134 local Degaine_OnEvent = function(self,event, arg1, arg2, ...)
contrebasse@5 135 --@debug@
contrebasse@0 136 if debug then
contrebasse@5 137 DEFAULT_CHAT_FRAME:AddMessage(event)
contrebasse@0 138 if arg1 then DEFAULT_CHAT_FRAME:AddMessage("arg1 = "..arg1); end
contrebasse@0 139 if arg2 then DEFAULT_CHAT_FRAME:AddMessage("arg2 = "..arg2); end
contrebasse@0 140 end
contrebasse@5 141 --@end-debug@
contrebasse@5 142
contrebasse@0 143 if ((events[event] and (type(events[event])~="function" or events[event]()))
contrebasse@0 144 or (events1player[event] and arg1=="player")
contrebasse@0 145 or (events2playername[event] and arg2==playername)) then
contrebasse@5 146 t_left = 2
contrebasse@5 147 done = false
contrebasse@5 148
contrebasse@0 149 elseif event == "PLAYER_REGEN_ENABLED" then
contrebasse@5 150 desactivate()
contrebasse@0 151 elseif event == "PLAYER_REGEN_DISABLED" then
contrebasse@5 152 activate()
contrebasse@5 153
contrebasse@0 154 elseif event == "ADDON_LOADED" and arg1==AddonName then
contrebasse@5 155 if Degaine_isAuto==nil then
contrebasse@5 156 Degaine_isAuto = true
contrebasse@0 157 end
contrebasse@5 158 if Degaine_isAuto then
contrebasse@5 159 activate()
contrebasse@0 160 else
contrebasse@5 161 desactivate()
contrebasse@0 162 end
contrebasse@5 163 printState()
contrebasse@5 164
contrebasse@5 165 -- Not needed anymore
contrebasse@5 166 DegaineFrame:UnregisterEvent("ADDON_LOADED")
contrebasse@0 167 end
contrebasse@0 168 end
contrebasse@5 169 -- Hook when standing up
contrebasse@5 170 -- (Didn't work, see http://forums.wowace.com/showthread.php?p=310547#post310547)
contrebasse@5 171 hooksecurefunc("SitStandOrDescendStart",function()
contrebasse@5 172 if Degaine_isAuto and not InCombatLockdown() then
contrebasse@5 173 t_left = 2
contrebasse@5 174 done = false
contrebasse@5 175 end
contrebasse@5 176 end)
contrebasse@0 177
contrebasse@0 178
contrebasse@6 179 ---------------------------------------------------------------
contrebasse@6 180 -- Commands
contrebasse@6 181 ---------------------------------------------------------------
contrebasse@6 182 -- Bindings
contrebasse@6 183 BINDING_HEADER_DEGAINE = "Dégainer automatiquement"
contrebasse@6 184
contrebasse@6 185 -- Slash command
contrebasse@7 186 -- GLOBALS: SLASH_DEGAINE1
contrebasse@7 187 SLASH_DEGAINE1 = "/degaine"
contrebasse@6 188 SlashCmdList["DEGAINE"] = Degaine_ToggleAuto
contrebasse@6 189
contrebasse@5 190
contrebasse@5 191 ---------------------------------------------------------------
contrebasse@5 192 -- Initialization
contrebasse@5 193 ---------------------------------------------------------------
contrebasse@5 194 DegaineFrame:SetScript("OnEvent",Degaine_OnEvent)
contrebasse@5 195
contrebasse@5 196 -- Global events
contrebasse@5 197 DegaineFrame:RegisterEvent("PLAYER_REGEN_ENABLED")
contrebasse@5 198 DegaineFrame:RegisterEvent("PLAYER_REGEN_DISABLED")
contrebasse@5 199 DegaineFrame:RegisterEvent("ADDON_LOADED")
contrebasse@5 200 activate()