Skip to content

Use MarcelineVQ HealComm-1.0 library for SuperWoW support #1

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
tcoare wants to merge 1 commit into
base: master
Choose a base branch
from
Open

Use MarcelineVQ HealComm-1.0 library for SuperWoW support #1

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
103 changes: 54 additions & 49 deletions libs/HealComm-1.0/HealComm-1.0.lua
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -8,7 +8,7 @@ Dependencies: AceLibrary, AceEvent-2.0, RosterLib-2.0, ItemBonusLib-1.0
]]

local MAJOR_VERSION = "HealComm-1.0"
local MINOR_VERSION = "$Revision: 11732 $"
local MINOR_VERSION = "$Revision: 14732 $"

if not AceLibrary then error(MAJOR_VERSION .. " requires AceLibrary") end
if not AceLibrary:IsNewVersion(MAJOR_VERSION, MINOR_VERSION) then return end
Expand All @@ -21,7 +21,8 @@ local roster = AceLibrary("RosterLib-2.0")
local itemBonus = AceLibrary("ItemBonusLib-1.0")
local L = AceLibrary("AceLocale-2.2"):new("HealComm-1.0")
local HealComm = {}

local has_superwow = SetAutoloot and true or false
local player_guid
------------------------------------------------
-- Locales
------------------------------------------------
Expand Down Expand Up @@ -397,11 +398,15 @@ local function external(self, major, instance)
if major == "AceEvent-2.0" then
local AceEvent = instance
AceEvent:embed(self)
self:RegisterEvent("SPELLCAST_START")
if has_superwow then
self:RegisterEvent("UNIT_CASTEVENT")
else
self:RegisterEvent("SPELLCAST_START")
self:RegisterEvent("SPELLCAST_STOP")
end
self:RegisterEvent("SPELLCAST_INTERRUPTED")
self:RegisterEvent("SPELLCAST_FAILED")
self:RegisterEvent("SPELLCAST_DELAYED")
self:RegisterEvent("SPELLCAST_STOP")
self:RegisterEvent("CHAT_MSG_ADDON")
self:RegisterEvent("UNIT_AURA")
self:RegisterEvent("UNIT_HEALTH")
Expand All @@ -416,12 +421,18 @@ end

function HealComm:PLAYER_LOGIN()
self:HookScript(WorldFrame, "OnMouseDown", "OnMouseDown")
self:Hook("CastSpell")
self:Hook("CastSpellByName")
self:Hook("UseAction")
if not has_superwow then
self:Hook("CastSpell")
self:Hook("CastSpellByName")
self:Hook("UseAction")
end
self:Hook("SpellTargetUnit")
self:Hook("SpellStopTargeting")
self:Hook("TargetUnit")

if has_superwow then
_,player_guid = UnitExists("player")
end
end

function HealComm:Enable()
Expand Down Expand Up @@ -1213,6 +1224,26 @@ function HealComm:GetUnitSpellPower(unit, spell)
return targetpower, targetmod
end

function HealComm:UNIT_CASTEVENT(caster,target,action,spell_id,cast_time)
if caster ~= player_guid then return end
if action == "MAINHAND" or action == "OFFHAND" then return end

local spellName, rank = SpellInfo(spell_id)
_,_,rank = string.find(rank,"(%d+)")

if not (self.Spells[spellName] or Resurrections[spellName] or Hots[spellName]) then return end

self.CurrentSpellName = spellName
self.CurrentSpellRank = rank
self:ProcessSpellCast(target)

if action == "START" then
self:SPELLCAST_START(spellName,cast_time)
elseif action== "CAST" then
self:SPELLCAST_STOP()
end
end

function HealComm:UNIT_HEALTH()
local name = UnitName(arg1)
if self.pendingResurrections[name] then
Expand All @@ -1222,7 +1253,7 @@ function HealComm:UNIT_HEALTH()
self:TriggerEvent("HealComm_Ressupdate", name)
end
end

function HealComm:stopHeal(caster)
if self:IsEventScheduled("Healcomm_"..caster) then
self:CancelScheduledEvent("Healcomm_"..caster)
Expand Down Expand Up @@ -1320,14 +1351,16 @@ function HealComm:SendAddonMessage(msg)
end
end

function HealComm:SPELLCAST_START()
if ( self.SpellCastInfo and self.SpellCastInfo[1] == arg1 and self.Spells[arg1] ) then
function HealComm:SPELLCAST_START(spell,cast_time)
local spell = spell or arg1
local cast_time = cast_time or arg2
if ( self.SpellCastInfo and self.SpellCastInfo[1] == spell and self.Spells[spell] ) then
local Bonus = itemBonus:GetBonus("HEAL")
local buffpower, buffmod = self:GetBuffSpellPower()
local targetpower, targetmod = self.SpellCastInfo[4], self.SpellCastInfo[5]
local Bonus = Bonus + buffpower
local amount = ((math.floor(self.Spells[self.SpellCastInfo[1]][tonumber(self.SpellCastInfo[2])](Bonus))+targetpower)*buffmod*targetmod)
if arg1 == L["Prayer of Healing"] then
if spell == L["Prayer of Healing"] then
local targets = {UnitName("player")}
local targetsstring = UnitName("player").."/"
for i=1,4 do
Expand All @@ -1336,17 +1369,17 @@ function HealComm:SPELLCAST_START()
targetsstring = targetsstring..UnitName("party"..i).."/"
end
end
self:SendAddonMessage("GrpHeal/"..amount.."/"..arg2.."/"..targetsstring)
self:startGrpHeal(UnitName("player"), amount, arg2, targets[1], targets[2], targets[3], targets[4], targets[5])
self:SendAddonMessage("GrpHeal/"..amount.."/"..cast_time.."/"..targetsstring)
self:startGrpHeal(UnitName("player"), amount, cast_time, targets[1], targets[2], targets[3], targets[4], targets[5])
else
self:SendAddonMessage("Heal/"..self.SpellCastInfo[3].."/"..amount.."/"..arg2.."/")
self:startHeal(UnitName("player"), self.SpellCastInfo[3], amount, arg2)
self:SendAddonMessage("Heal/"..self.SpellCastInfo[3].."/"..amount.."/"..cast_time.."/")
self:startHeal(UnitName("player"), self.SpellCastInfo[3], amount, cast_time)
end
elseif ( self.SpellCastInfo and self.SpellCastInfo[1] == arg1 and Resurrections[arg1] ) then
elseif ( self.SpellCastInfo and self.SpellCastInfo[1] == spell and Resurrections[spell] ) then
self:SendAddonMessage("Resurrection/"..self.SpellCastInfo[3].."/start/")
self:startResurrection(UnitName("player"), self.SpellCastInfo[3])
end
self.spellIsCasting = arg1
self.spellIsCasting = spell
end

function HealComm:SPELLCAST_INTERRUPTED()
Expand All @@ -1366,26 +1399,12 @@ function HealComm:SPELLCAST_INTERRUPTED()
self:SendAddonMessage("Resurrection/stop/")
self:cancelResurrection(UnitName("player"))
end

-- Clear all spell cast info
self.CurrentSpellRank = nil
self.CurrentSpellName = nil
self.CurrentSpellName = nil
self.spellIsCasting = nil
for key in pairs(self.SpellCastInfo) do
self.SpellCastInfo[key] = nil
end

-- Clean up any empty tables in Heals
for target, healers in pairs(self.Heals) do
local hasHealers = false
for _ in pairs(healers) do
hasHealers = true
break
end
if not hasHealers then
self.Heals[target] = nil
end
end
end

function HealComm:SPELLCAST_FAILED()
Expand Down Expand Up @@ -1449,25 +1468,11 @@ function HealComm:SPELLCAST_STOP()
self:ScheduleEvent("TriggerRegrowthHot", self.TriggerRegrowthHot, 0.3, self)
end
end

-- Clear all spell cast info
self.CurrentSpellRank = nil
self.CurrentSpellName = nil
self.CurrentSpellName = nil
for key in pairs(self.SpellCastInfo) do
self.SpellCastInfo[key] = nil
end

-- Clean up any empty tables in Heals
for target, healers in pairs(self.Heals) do
local hasHealers = false
for _ in pairs(healers) do
hasHealers = true
break
end
if not hasHealers then
self.Heals[target] = nil
end
end
end

function HealComm:CHAT_MSG_ADDON()
Expand Down Expand Up @@ -1680,7 +1685,7 @@ function HealComm:CastSpellByName(spellName, onSelf)
self.failed = nil
return
end

if (self.CurrentSpellName and not SpellIsTargeting()) or (GetCVar("AutoSelfCast") == "0" and onSelf ~= 1 and not SpellIsTargeting() and not (UnitExists("target") and UnitCanAssist("player", "target"))) then return end

local _,_,rank = string.find(spellName,"(%d+)")
Expand Down Expand Up @@ -1808,7 +1813,7 @@ function HealComm:ProcessSpellCast(unit)
local power, mod = self:GetUnitSpellPower(unit, self.CurrentSpellName)
self.SpellCastInfo[1] = (self.SpellCastInfo[1] or self.CurrentSpellName)
self.SpellCastInfo[2] = (self.SpellCastInfo[2] or self.CurrentSpellRank)
self.SpellCastInfo[3] = (self.SpellCastInfo[3] or UnitName(unit))
self.SpellCastInfo[3] = (self.SpellCastInfo[3] or (unit and UnitName(unit) or "Unknown"))
self.SpellCastInfo[4] = (self.SpellCastInfo[4] or power)
self.SpellCastInfo[5] = (self.SpellCastInfo[5] or mod)
end
Expand Down