@@ -1,123 +1,123 @@ - --- Only load for hunters -if select(2, UnitClass("player")) ~= "HUNTER" then - DisableAddOn("FuzzyLogic") - return -end - - ----------------------------- --- Localization -- ----------------------------- - -local L = GetLocale() == "deDE" and { - petdead = "Euer Begleiter ist tot.", - petmend = "Tier heilen", - petcall = "Tier rufen", - petdis = "Tier freigeben", - petrevive = "Tier wiederbeleben", - macro = "/cast [target=pet,dead] Tier wiederbeleben; [nopet] Tier rufen; Tier heilen", - macrodead = "/cast [target=pet,dead] Tier wiederbeleben; [nopet] Tier wiederbeleben; Tier heilen", -} or { - petdead = "Your pet is dead.", - petmend = "Mend Pet", - petcall = "Call Pet", - petdis = "Dismiss Pet", - petrevive = "Revive Pet", - macro = "/cast [target=pet,dead] Revive Pet; [nopet] Call Pet; Mend Pet", - macrodead = "/cast [target=pet,dead] Revive Pet; [nopet] Revive Pet; Mend Pet", -} - - ------------------------------- --- Are you local? -- ------------------------------- - -local healthresh = 0.90 -- Change this to the threshold you want to cast Mend Pet instead of Dismiss -local binding -- Set this to the key you wish to be bound -local petIsDead, frame - - -local function SetManyAttributes(self, ...) - for i=1,select("#", ...),2 do - local att,val = select(i, ...) - if not att then return end - self:SetAttribute(att,val) - end -end - - -------------------------------------- --- Namespace Declaration -- -------------------------------------- - -FuzzyLogic = DongleStub("Dongle-1.0"):New("FuzzyLogic") - - ------------------------------- --- Initialization -- ------------------------------- - -function FuzzyLogic:Initialize() - frame = CreateFrame("Button", "FuzzyLogicFrame", UIParent, "SecureActionButtonTemplate") - if binding then SetBindingClick(binding, "FuzzyLogicFrame") end - frame.SetManyAttributes = SetManyAttributes - frame:Hide() - - frame:SetScript("PreClick", self.PreClick) -end - - -function FuzzyLogic:Enable() - self:RegisterEvent("UI_ERROR_MESSAGE") - self:RegisterEvent("PLAYER_REGEN_DISABLED") - self:RegisterEvent("UNIT_HEALTH") -end - - ------------------------------- --- Event Handlers -- ------------------------------- - -function FuzzyLogic:UI_ERROR_MESSAGE(event, msg) - if msg == L.petdead then petIsDead = true end -end - - -function FuzzyLogic:PLAYER_REGEN_DISABLED() - self:Debug(1, "Entering Combat") - frame:SetManyAttributes("type1", "macro", "macrotext", petIsDead and L.macrodead or L.macro) -end - - -function FuzzyLogic:UNIT_HEALTH(event, unit) - if unit ~= "pet" then return end - - local hp = UnitHealth("pet") - if petIsDead and hp > 0 then - self:Debug(1, "Pet alive again") - petIsDead = false - elseif not petIsDead and hp == 0 then - self:Debug(1, "Pet died") - petIsDead = true - end -end - - ------------------------------- --- Frame Handlers -- ------------------------------- - -function FuzzyLogic.PreClick() - if InCombatLockdown() then return end - - local exists = UnitExists("pet") - if exists and UnitIsDead("pet") or (not exists and petIsDead) then - frame:SetManyAttributes("type1", "spell", "spell", L.petrevive) - elseif exists and (UnitHealth("pet")/UnitHealthMax("pet") < healthresh) then - frame:SetManyAttributes("type1", "spell", "spell", L.petmend) - elseif exists then frame:SetManyAttributes("type1", "spell", "spell", L.petdis) - else frame:SetManyAttributes("type1", "spell", "spell", L.petcall) end -end - - + +-- Only load for hunters +if select(2, UnitClass("player")) ~= "HUNTER" then + DisableAddOn("FuzzyLogic") + return +end + + +---------------------------- +-- Localization -- +---------------------------- + +local L = GetLocale() == "deDE" and { + petdead = "Euer Begleiter ist tot.", + petmend = "Tier heilen", + petcall = "Tier rufen", + petdis = "Tier freigeben", + petrevive = "Tier wiederbeleben", + macro = "/cast [target=pet,dead] Tier wiederbeleben; [nopet] Tier rufen; Tier heilen", + macrodead = "/cast [target=pet,dead] Tier wiederbeleben; [nopet] Tier wiederbeleben; Tier heilen", +} or { + petdead = "Your pet is dead.", + petmend = "Mend Pet", + petcall = "Call Pet", + petdis = "Dismiss Pet", + petrevive = "Revive Pet", + macro = "/cast [target=pet,dead] Revive Pet; [nopet] Call Pet; Mend Pet", + macrodead = "/cast [target=pet,dead] Revive Pet; [nopet] Revive Pet; Mend Pet", +} + + +------------------------------ +-- Are you local? -- +------------------------------ + +local healthresh = 0.90 -- Change this to the threshold you want to cast Mend Pet instead of Dismiss +local binding -- Set this to the key you wish to be bound +local petIsDead, frame + + +local function SetManyAttributes(self, ...) + for i=1,select("#", ...),2 do + local att,val = select(i, ...) + if not att then return end + self:SetAttribute(att,val) + end +end + + +------------------------------------- +-- Namespace Declaration -- +------------------------------------- + +FuzzyLogic = DongleStub("Dongle-1.0"):New("FuzzyLogic") + + +------------------------------ +-- Initialization -- +------------------------------ + +function FuzzyLogic:Initialize() + frame = CreateFrame("Button", "FuzzyLogicFrame", UIParent, "SecureActionButtonTemplate") + if binding then SetBindingClick(binding, "FuzzyLogicFrame") end + frame.SetManyAttributes = SetManyAttributes + frame:Hide() + + frame:SetScript("PreClick", self.PreClick) +end + + +function FuzzyLogic:Enable() + self:RegisterEvent("UI_ERROR_MESSAGE") + self:RegisterEvent("PLAYER_REGEN_DISABLED") + self:RegisterEvent("UNIT_HEALTH") +end + + +------------------------------ +-- Event Handlers -- +------------------------------ + +function FuzzyLogic:UI_ERROR_MESSAGE(event, msg) + if msg == L.petdead then petIsDead = true end +end + + +function FuzzyLogic:PLAYER_REGEN_DISABLED() + self:Debug(1, "Entering Combat") + frame:SetManyAttributes("type1", "macro", "macrotext", petIsDead and L.macrodead or L.macro) +end + + +function FuzzyLogic:UNIT_HEALTH(event, unit) + if unit ~= "pet" then return end + + local hp = UnitHealth("pet") + if petIsDead and hp > 0 then + self:Debug(1, "Pet alive again") + petIsDead = false + elseif not petIsDead and hp == 0 then + self:Debug(1, "Pet died") + petIsDead = true + end +end + + +------------------------------ +-- Frame Handlers -- +------------------------------ + +function FuzzyLogic.PreClick() + if InCombatLockdown() then return end + + local exists = UnitExists("pet") + if exists and UnitIsDead("pet") or (not exists and petIsDead) then + frame:SetManyAttributes("type1", "spell", "spell", L.petrevive) + elseif exists and (UnitHealth("pet")/UnitHealthMax("pet") < healthresh) then + frame:SetManyAttributes("type1", "spell", "spell", L.petmend) + elseif exists then frame:SetManyAttributes("type1", "spell", "spell", L.petdis) + else frame:SetManyAttributes("type1", "spell", "spell", L.petcall) end +end + + FuzzyLogic.lua @@ -1,18 +1,18 @@ -## Interface: 20300 - -## Title: Fuzzy Logic -## Notes: Easy pet management -## Author: Tekkub Stoutwrithe -## Version: Alpha -## X-Website: http://code.google.com/p/tekkub-wow/ -## X-Email: tekkub-wow@googlegroups.com -## X-Category: Hunter - -## OptionalDeps: Dongle - -## LoadManagers: AddonLoader -## X-LoadOn-Class: Hunter - -Dongle.lua - -FuzzyLogic.lua +## Interface: 20400 + +## Title: Fuzzy Logic +## Notes: Easy pet management +## Author: Tekkub Stoutwrithe +## Version: Alpha +## X-Website: http://code.google.com/p/tekkub-wow/ +## X-Email: tekkub-wow@googlegroups.com +## X-Category: Hunter + +## OptionalDeps: Dongle + +## LoadManagers: AddonLoader +## X-LoadOn-Class: Hunter + +Dongle.lua + +FuzzyLogic.lua FuzzyLogic.toc a5fe1eaee591eebd12fbc054ed4fc1adcd0f9bb1 Tekkub Stoutwrithe tekkub@gmail.com http://github.com/tekkub/fuzzylogic/commit/71aed38c1e777f3b31bf9258178b7571ffbb4d12 71aed38c1e777f3b31bf9258178b7571ffbb4d12 2008-03-25T13:37:01-07:00 2008-03-25T13:37:01-07:00 Updating TOC to 20400 7c4c64d798811440d8c545c0d958eb98819e295e Tekkub Stoutwrithe tekkub@gmail.com