Mercurial > wow > degaine

annotate Degaine.lua @ 53:6da5658a3428

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added support for checking buff loss, added Ghost Wolf
author contrebasse
date Mon, 28 Feb 2011 01:18:29 +0100
parents d724fb112e7c
children 12a568d6387a
rev   line source
contrebasse@43 1 local AddonName, T = ...
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@52 12 local debug = true
contrebasse@52 13 local debugAll = false
contrebasse@5 14 --@end-debug@
contrebasse@0 15
contrebasse@12 16
contrebasse@5 17 ---------------------------------------------------------------
contrebasse@5 18 -- Globals to local
contrebasse@5 19 ---------------------------------------------------------------
contrebasse@21 20 -- These need to be globals :
contrebasse@6 21 -- GLOBALS: Degaine_ToggleAuto, Degaine_isAuto, BINDING_HEADER_DEGAINE
contrebasse@0 22
contrebasse@21 23 -- It doesn't matter if they are globals, rarely unsed :
contrebasse@14 24 -- GLOBALS: DEFAULT_CHAT_FRAME
contrebasse@5 25
contrebasse@5 26 -- Lua functions
contrebasse@0 27 local pairs = pairs;
contrebasse@0 28 local type = type;
contrebasse@35 29 local select = select
contrebasse@53 30 local wipe = wipe
contrebasse@0 31
contrebasse@5 32 -- Wow functions
contrebasse@14 33 local GetTime = GetTime
contrebasse@5 34 local InCombatLockdown = InCombatLockdown
contrebasse@5 35 local ToggleSheath = ToggleSheath
contrebasse@20 36 local UnitName = UnitName
contrebasse@24 37 local IsMounted = IsMounted
contrebasse@33 38 local UnitCastingInfo = UnitCastingInfo
contrebasse@35 39 local GetUnitSpeed = GetUnitSpeed
contrebasse@53 40 local UnitBuff = UnitBuff
contrebasse@0 41
contrebasse@0 42
contrebasse@5 43 ---------------------------------------------------------------
contrebasse@8 44 -- Local vars
contrebasse@8 45 ---------------------------------------------------------------
contrebasse@8 46 -- const
contrebasse@8 47 local DegaineFrame = CreateFrame("Frame")
contrebasse@8 48 local playername = UnitName("player")
contrebasse@35 49 local delay = 2.5 -- seconds
contrebasse@35 50 local delay_short = 0.5 -- seconds
contrebasse@8 51
contrebasse@8 52 -- vars
contrebasse@8 53 local t_left = -1
contrebasse@14 54 local isGossipClosed = true
contrebasse@14 55 local wasGossipOpened = false
contrebasse@14 56 local t_lastGossipClosed = 0
contrebasse@34 57 --local wasMounted = IsMounted() -- handle mounts with UNIT_AURA
contrebasse@33 58 local isTradeSkill = false
contrebasse@47 59 local t_lastDegaine = 0 -- Time of the last draw
contrebasse@8 60
contrebasse@12 61
contrebasse@8 62 ---------------------------------------------------------------
contrebasse@5 63 -- Some stuff...
contrebasse@5 64 ---------------------------------------------------------------
contrebasse@5 65 -- Print status
contrebasse@5 66 local printState = function()
contrebasse@49 67 DEFAULT_CHAT_FRAME:AddMessage(Degaine_isAuto and T.L["PRINT_ENABLED"] or T.L["PRINT_DISABLED"])
contrebasse@5 68 end
contrebasse@5 69
contrebasse@5 70
contrebasse@5 71 ---------------------------------------------------------------
contrebasse@28 72 -- Launch drawing weapons
contrebasse@28 73 ---------------------------------------------------------------
contrebasse@28 74 -- Wait a few seconds before drawing, to be able to see the curren animation (and avoid bugs)
contrebasse@28 75 local Degaine_OnUpdate = function(self,t_elapsed)
contrebasse@28 76 t_left = t_left - t_elapsed;
contrebasse@28 77 if t_left<=0 then
contrebasse@28 78 ToggleSheath()
contrebasse@28 79 DegaineFrame:SetScript("OnUpdate", nil)
contrebasse@47 80 t_lastDegaine = GetTime()
contrebasse@28 81 end
contrebasse@28 82 end
contrebasse@32 83 local start = function(arg_delay)
contrebasse@43 84
contrebasse@43 85 --@debug@
contrebasse@43 86 --DEFAULT_CHAT_FRAME:AddMessage("Go !")
contrebasse@43 87 --@end-debug@
contrebasse@43 88
contrebasse@47 89 if Degaine_isAuto and (GetTime()-t_lastDegaine)>1 and not InCombatLockdown() then
contrebasse@32 90 t_left = arg_delay or delay
contrebasse@28 91 DegaineFrame:SetScript("OnUpdate", Degaine_OnUpdate)
contrebasse@28 92 end
contrebasse@28 93 end
contrebasse@28 94
contrebasse@28 95
contrebasse@28 96 ---------------------------------------------------------------
contrebasse@5 97 -- Events config
contrebasse@5 98 ---------------------------------------------------------------
contrebasse@5 99 -- Events to watch
contrebasse@5 100 local events = { -- no args to watch
contrebasse@14 101 GOSSIP_SHOW = function()
contrebasse@19 102 -- isGossipClosed :
contrebasse@19 103 -- if the gossip is already opened, no need to draw weapon
contrebasse@19 104 -- UnitName("npc")==UnitName("target") :
contrebasse@19 105 -- hack gossips again because there's no emote with non npc
contrebasse@19 106 -- you have to target the npc to interact with it
contrebasse@19 107 -- things such as boards can't be targeted and start no emote
contrebasse@17 108 local returnvalue = isGossipClosed and UnitName("npc")==UnitName("target")
contrebasse@14 109 isGossipClosed = false
contrebasse@14 110 return returnvalue
contrebasse@14 111 end,
contrebasse@14 112 MERCHANT_SHOW = function()
contrebasse@19 113 -- hack for the cases where the merchant's frame is opened from a gossip frame :
contrebasse@19 114 -- the gossip is closed and the merchant opened but the weapon is not stealthed
contrebasse@14 115 if (GetTime() - t_lastGossipClosed) < 0.5 then
contrebasse@14 116 return not wasGossipOpened
contrebasse@14 117 else
contrebasse@14 118 return isGossipClosed
contrebasse@14 119 end
contrebasse@14 120 end,
contrebasse@41 121 QUEST_PROGRESS = true,
contrebasse@11 122 BANKFRAME_OPENED = true, --function() return GossipFrame:IsShown() end,
contrebasse@0 123 AUCTION_HOUSE_SHOW = true,
contrebasse@5 124 }
contrebasse@5 125 local events1player = { -- the first arg is "player"
contrebasse@5 126 UNIT_SPELLCAST_FAILED = true,
contrebasse@5 127 UNIT_SPELLCAST_INTERRUPTED = true,
contrebasse@5 128 UNIT_SPELLCAST_SUCCEEDED = true,
contrebasse@33 129 UNIT_SPELLCAST_START = true, -- to ckeck tradeskill
contrebasse@5 130 }
contrebasse@31 131
contrebasse@43 132 --[[
contrebasse@43 133 -- Was used when moving prevented to play the emote when talking
contrebasse@43 134 -- Was needed for CHAT_MSG_SAY and CHAT_MSG_YELL
contrebasse@35 135 local function playerIsNotMoving()
contrebasse@35 136 return GetUnitSpeed("player") == 0
contrebasse@35 137 end
contrebasse@43 138 --]]
contrebasse@5 139 local events2playername = { -- the 2nd arg is playername
contrebasse@43 140 CHAT_MSG_SAY = true,
contrebasse@43 141 CHAT_MSG_YELL = true,
contrebasse@35 142 CHAT_MSG_TEXT_EMOTE = true, -- the emote is not shown, but the weapon is stealthed
contrebasse@5 143 }
contrebasse@0 144
contrebasse@0 145
contrebasse@5 146 ---------------------------------------------------------------
contrebasse@24 147 -- Handle mounts with OnUpdate
contrebasse@24 148 ---------------------------------------------------------------
contrebasse@24 149 -- works with GupPet but not with the default interface...
contrebasse@24 150 -- I guess that's because a specific /cancelaura or alike is done
contrebasse@24 151 -- hooksecurefunc("Dismount",start);
contrebasse@24 152
contrebasse@28 153 -- With OnUpdate
contrebasse@24 154 local handleMountsFrame = CreateFrame("frame")
contrebasse@24 155 local handleMountsOnUpdate
contrebasse@24 156 do
contrebasse@24 157 local IsMounted = IsMounted
contrebasse@24 158 local wasMounted = IsMounted()
contrebasse@53 159 local buffsIDs = {}
contrebasse@24 160 function handleMountsOnUpdate(self,t_elapsed)
contrebasse@24 161 if IsMounted() then
contrebasse@24 162 wasMounted = true
contrebasse@24 163 else
contrebasse@24 164 if wasMounted then
contrebasse@35 165 start(delay_short) -- no animation for unmounting
contrebasse@24 166 wasMounted = false
contrebasse@24 167 end
contrebasse@24 168 end
contrebasse@53 169
contrebasse@53 170 -- hack to watch auras too
contrebasse@53 171 -- Loop over all buffs
contrebasse@53 172 -- name, rank, icon, count, debuffType, duration, expirationTime, unitCaster, isStealable,
contrebasse@53 173 -- shouldConsolidate, spellId = UnitBuff("unit", index or ["name", "rank"][, "filter"])
contrebasse@53 174 local i = 1
contrebasse@53 175 -- list player's buffs
contrebasse@53 176 local buffID = select(11,UnitBuff("player", i)); -- spell id
contrebasse@53 177 while buffID do
contrebasse@53 178 buffsIDs[buffID] = true
contrebasse@53 179 i = i + 1;
contrebasse@53 180 buffID = select(11,UnitBuff("player", i));
contrebasse@53 181 end
contrebasse@53 182 --[[
contrebasse@53 183 for i=1,40 do
contrebasse@53 184 buffID = select(11,UnitBuff("player", i));
contrebasse@53 185 if buffID then
contrebasse@53 186 buffsIDs[buffID] = true
contrebasse@53 187 end
contrebasse@53 188 end
contrebasse@53 189 --]]
contrebasse@53 190 --@debug@
contrebasse@53 191 --if debug then
contrebasse@53 192 -- DEFAULT_CHAT_FRAME:AddMessage(""..i-1.."Buff(s) found")
contrebasse@53 193 --end
contrebasse@53 194 --@end-debug@
contrebasse@53 195
contrebasse@53 196 -- loop over watched buffs to check if it is present or not
contrebasse@53 197 -- we have to loop over T.LoseAura (and not buffsIDs) to be able to check for buff disappearance
contrebasse@53 198 for id,state in pairs(T.LoseAura) do
contrebasse@53 199 if buffsIDs[id] then
contrebasse@53 200 if not T.LoseAura[id] then
contrebasse@53 201 -- buff gained
contrebasse@53 202 --@debug@
contrebasse@53 203 if debug then
contrebasse@53 204 DEFAULT_CHAT_FRAME:AddMessage("Buff gained: "..id)
contrebasse@53 205 end
contrebasse@53 206 --@end-debug@
contrebasse@53 207 T.LoseAura[id] = true
contrebasse@53 208 end
contrebasse@53 209 else
contrebasse@53 210 if T.LoseAura[id] then
contrebasse@53 211 -- buff lost
contrebasse@53 212 --@debug@
contrebasse@53 213 if debug then
contrebasse@53 214 DEFAULT_CHAT_FRAME:AddMessage("Buff lost: "..id)
contrebasse@53 215 end
contrebasse@53 216 --@end-debug@
contrebasse@53 217 T.LoseAura[id] = false
contrebasse@53 218
contrebasse@53 219 -- draw weapon
contrebasse@53 220 start()
contrebasse@53 221 end
contrebasse@53 222 end
contrebasse@53 223 end
contrebasse@53 224
contrebasse@53 225 -- empty temporary table
contrebasse@53 226 wipe(buffsIDs)
contrebasse@24 227 end
contrebasse@24 228 end
contrebasse@5 229
contrebasse@12 230
contrebasse@5 231 ---------------------------------------------------------------
contrebasse@5 232 -- Activation functions
contrebasse@5 233 ---------------------------------------------------------------
contrebasse@5 234 local activate = function()
contrebasse@5 235 if (not Degaine_isAuto) or InCombatLockdown() then return end
contrebasse@5 236
contrebasse@9 237 --DegaineFrame:SetScript("OnUpdate", Degaine_OnUpdate);
contrebasse@5 238 --@debug@
contrebasse@52 239 if debugAll then
contrebasse@11 240 DegaineFrame:RegisterAllEvents()
contrebasse@5 241 else
contrebasse@5 242 --@end-debug@
contrebasse@18 243 for k,_ in pairs(events) do DegaineFrame:RegisterEvent(k) end
contrebasse@18 244 for k,_ in pairs(events1player) do DegaineFrame:RegisterEvent(k) end
contrebasse@18 245 for k,_ in pairs(events2playername) do DegaineFrame:RegisterEvent(k) end
contrebasse@28 246 --DegaineFrame:RegisterEvent("UNIT_AURA")
contrebasse@28 247 handleMountsFrame:SetScript("OnUpdate",handleMountsOnUpdate)
contrebasse@39 248 --@debug@
contrebasse@5 249 end
contrebasse@5 250 --@end-debug@
contrebasse@0 251 end
contrebasse@5 252 local desactivate = function()
contrebasse@24 253 DegaineFrame:SetScript("OnUpdate", nil)
contrebasse@24 254 t_left = -1
contrebasse@37 255 isTradeSkill = false
contrebasse@18 256 for k,_ in pairs(events) do DegaineFrame:UnregisterEvent(k) end
contrebasse@18 257 for k,_ in pairs(events1player) do DegaineFrame:UnregisterEvent(k) end
contrebasse@18 258 for k,_ in pairs(events2playername) do DegaineFrame:UnregisterEvent(k) end
contrebasse@28 259 --DegaineFrame:UnregisterEvent("UNIT_AURA")
contrebasse@28 260 handleMountsFrame:SetScript("OnUpdate",nil)
contrebasse@0 261 end
contrebasse@6 262 Degaine_ToggleAuto = function()
contrebasse@5 263 if Degaine_isAuto then
contrebasse@5 264 Degaine_isAuto = false
contrebasse@5 265 desactivate()
contrebasse@5 266 else
contrebasse@5 267 Degaine_isAuto = true
contrebasse@5 268 activate()
contrebasse@5 269 end
contrebasse@5 270 printState()
contrebasse@5 271 end
contrebasse@0 272
contrebasse@5 273
contrebasse@24 274
contrebasse@5 275 ---------------------------------------------------------------
contrebasse@5 276 -- Event/hooks functions
contrebasse@5 277 ---------------------------------------------------------------
contrebasse@12 278 local Degaine_OnEvent = function(self,event, arg1, arg2, _, _, arg5, ...)
contrebasse@5 279 --@debug@
contrebasse@41 280 if debug then
contrebasse@41 281 DEFAULT_CHAT_FRAME:AddMessage(event)
contrebasse@41 282 if arg1 then DEFAULT_CHAT_FRAME:AddMessage("arg1 = "..arg1) end
contrebasse@41 283 if arg2 then DEFAULT_CHAT_FRAME:AddMessage("arg2 = "..arg2) end
contrebasse@41 284 end
contrebasse@5 285 --@end-debug@
contrebasse@5 286
contrebasse@28 287 --[[ IsMounted() renvoie toujours false ici, on doit passer par OnUpdate
contrebasse@28 288 if event=="UNIT_AURA" then
contrebasse@28 289 if arg1=="player" then
contrebasse@28 290 DEFAULT_CHAT_FRAME:AddMessage("player")
contrebasse@28 291 if IsMounted() then
contrebasse@28 292 DEFAULT_CHAT_FRAME:AddMessage("ismounted")
contrebasse@28 293 wasMounted = true
contrebasse@28 294 else
contrebasse@28 295 DEFAULT_CHAT_FRAME:AddMessage("notmounted")
contrebasse@28 296 if wasMounted then
contrebasse@28 297 DEFAULT_CHAT_FRAME:AddMessage("wasmounted : start")
contrebasse@28 298 wasMounted = false
contrebasse@28 299 start()
contrebasse@28 300 end
contrebasse@28 301 end
contrebasse@28 302 end
contrebasse@28 303 else
contrebasse@28 304 --]]
contrebasse@12 305 if events[event] then
contrebasse@12 306 if type(events[event])~="function" or events[event]() then
contrebasse@12 307 start()
contrebasse@12 308 end
contrebasse@12 309 elseif events1player[event] then
contrebasse@12 310 if arg1=="player" then
contrebasse@33 311 if event == "UNIT_SPELLCAST_START" then
contrebasse@33 312 --name, nameSubtext, text, texture, startTime, endTime, isTradeSkill, castID, notInterruptible = UnitCastingInfo("unit")
contrebasse@33 313 isTradeSkill = select(7,UnitCastingInfo("player"))
contrebasse@33 314 --DEFAULT_CHAT_FRAME:AddMessage(name)
contrebasse@33 315 --DEFAULT_CHAT_FRAME:AddMessage(isTradeSkill and "True" or "False")
contrebasse@33 316 --if isTradeSkill then
contrebasse@33 317
contrebasse@33 318 --end
contrebasse@44 319 --elseif arg5 and not T.SpellBlackList[arg5] then -- arg5 is SpellID
contrebasse@44 320 elseif (arg5 and T.SpellWhiteList[arg5]) or isTradeSkill then -- arg5 is SpellID
contrebasse@33 321 isTradeSkill = false -- for next time
contrebasse@44 322 start(type(T.SpellWhiteList[arg5])=="number" and T.SpellWhiteList[arg5] or delay_short)
contrebasse@12 323 end
contrebasse@12 324 end
contrebasse@12 325 elseif events2playername[event] then
contrebasse@35 326 if arg2==playername and (type(events2playername[event])~="function" or events2playername[event]()) then
contrebasse@12 327 start()
contrebasse@12 328 end
contrebasse@14 329 elseif event == "GOSSIP_CLOSED" then
contrebasse@14 330 wasGossipOpened = not isGossipClosed
contrebasse@14 331 isGossipClosed = true
contrebasse@14 332 t_lastGossipClosed = GetTime()
contrebasse@5 333
contrebasse@0 334 elseif event == "PLAYER_REGEN_ENABLED" then
contrebasse@21 335 for k,_ in pairs(events1player) do DegaineFrame:UnregisterEvent(k) end
contrebasse@21 336 --desactivate()
contrebasse@0 337 elseif event == "PLAYER_REGEN_DISABLED" then
contrebasse@22 338 for k,_ in pairs(events1player) do DegaineFrame:RegisterEvent(k) end
contrebasse@22 339 --activate()
contrebasse@5 340
contrebasse@0 341 elseif event == "ADDON_LOADED" and arg1==AddonName then
contrebasse@5 342 if Degaine_isAuto==nil then
contrebasse@5 343 Degaine_isAuto = true
contrebasse@0 344 end
contrebasse@11 345 if Degaine_isAuto then activate() else desactivate() end
contrebasse@5 346 printState()
contrebasse@5 347
contrebasse@5 348 -- Not needed anymore
contrebasse@5 349 DegaineFrame:UnregisterEvent("ADDON_LOADED")
contrebasse@31 350
contrebasse@31 351 elseif event == "PLAYER_LOGIN" then
contrebasse@44 352 -- BLacklis alomst all Companions and mounts
contrebasse@44 353 T.DoBlackListCrittersAndMount()
contrebasse@0 354 end
contrebasse@0 355 end
contrebasse@31 356
contrebasse@5 357 -- Hook when standing up
contrebasse@5 358 -- (Didn't work, see http://forums.wowace.com/showthread.php?p=310547#post310547)
contrebasse@8 359 hooksecurefunc("SitStandOrDescendStart",start);
contrebasse@0 360
contrebasse@0 361
contrebasse@6 362 ---------------------------------------------------------------
contrebasse@6 363 -- Commands
contrebasse@6 364 ---------------------------------------------------------------
contrebasse@6 365 -- Bindings
contrebasse@49 366 BINDING_HEADER_DEGAINE = T.L["BINDING_HEADER"]
contrebasse@49 367 BINDING_NAME_DEGAINE_TOGGLE = T.L["BINDING_NAME_DEGAINE_TOGGLE"]
contrebasse@6 368
contrebasse@6 369 -- Slash command
contrebasse@7 370 -- GLOBALS: SLASH_DEGAINE1
contrebasse@7 371 SLASH_DEGAINE1 = "/degaine"
contrebasse@6 372 SlashCmdList["DEGAINE"] = Degaine_ToggleAuto
contrebasse@6 373
contrebasse@5 374
contrebasse@5 375 ---------------------------------------------------------------
contrebasse@5 376 -- Initialization
contrebasse@5 377 ---------------------------------------------------------------
contrebasse@5 378 DegaineFrame:SetScript("OnEvent",Degaine_OnEvent)
contrebasse@5 379
contrebasse@5 380 -- Global events
contrebasse@14 381 DegaineFrame:RegisterEvent("GOSSIP_CLOSED")
contrebasse@5 382 DegaineFrame:RegisterEvent("PLAYER_REGEN_ENABLED")
contrebasse@5 383 DegaineFrame:RegisterEvent("PLAYER_REGEN_DISABLED")
contrebasse@5 384 DegaineFrame:RegisterEvent("ADDON_LOADED")
contrebasse@31 385 DegaineFrame:RegisterEvent("PLAYER_LOGIN")
contrebasse@5 386 activate()