QuickHeal.lua

QuickHeal = AceLibrary("AceAddon-2.0"):new("AceConsole-2.0", "AceEvent-2.0")

-- other libs ----------------------------------------------------------------------------------
HealComm = AceLibrary("HealComm-1.0")

--[ Mod data ]--
QuickHealData = {
    name = 'QuickHeal',
    version = '1.17.6',
    releaseDate = 'December 1st, 2022',
    author = 'T. Thorsen, S. Geeding and K. Karachalios feat. Dispatchio',
    website = 'https://turtle-wow.org/',
    category = MYADDONS_CATEGORY_CLASS
}

--[ References ]--

local OriginalUIErrorsFrame_OnEvent;

--[ Settings ]--
QuickHealVariables = {};
QHV = { }; -- global alias
local DQHV = { -- Default values
    DebugMode = false,
    PetPriority = 1,
    TargetPriority = false,
    RatioForceself = 0.4,
    RatioHealthyDruid = 0.4,
    RatioHealthyPaladin = 0.1,
    RatioHealthyPriest = 0.3,
    RatioHealthyShaman = 0.6,
    RatioFull = 0.9,
    NotificationStyle = "NORMAL",
    NotificationChannelName = "",
    NotificationWhisper = false,
    NotificationParty = false,
    NotificationRaid = false,
    NotificationChannel = false,
    NotificationTextNormal = "Healing %s with %s",
    NotificationTextWhisper = "Healing you with %s",
    MessageScreenCenterHealing = true,
    MessageScreenCenterInfo = true,
    MessageScreenCenterBlacklist = true,
    MessageScreenCenterError = true,
    MessageChatWindowHealing = false,
    MessageChatWindowInfo = false,
    MessageChatWindowBlacklist = false,
    MessageChatWindowError = false,
    OverhealMessageScreenCenter = false,
    OverhealMessageCastingBar = true,
    OverhealMessagePlaySound = true,
    FilterRaidGroup1 = false,
    FilterRaidGroup2 = false,
    FilterRaidGroup3 = false,
    FilterRaidGroup4 = false,
    FilterRaidGroup5 = false,
    FilterRaidGroup6 = false,
    FilterRaidGroup7 = false,
    FilterRaidGroup8 = false,
    DisplayHealingBar = true,
    QuickClickEnabled = true,
    MTList = { },
    MeleeDPSList = { },
    HealerList = { },
    RangedDPSList = { },
    SkipList = { }
}

local has_pepo_nam = pcall(GetCVar, "NP_QueueCastTimeSpells")

local me = UnitName('player')
local TWA_Roster = { };
local QH_RequestedTWARoster = false;

--[ Monitor variables ]--
local MassiveOverhealInProgress = false;
local QuickHealBusy = false;
local HealingSpellSize = 0;
local HealingTarget; -- Contains the unitID of the last player that was attempted healed
local BlackList = {}; -- List of times were the players are no longer blacklisted
local LastBlackListTime = 0;
local HealMultiplier = 1.0;
local PlayerClass = string.lower(UnitClass('player'));

--[ Keybinding ]--
BINDING_HEADER_QUICKHEAL = "QuickHeal";
BINDING_NAME_QUICKHEAL_HEAL = "Heal";
BINDING_NAME_QUICKHEAL_HOT = "HoT";
BINDING_NAME_QUICKHEAL_HOTFH = "HoT Firehose (Naxx Gargoyles)";
BINDING_NAME_QUICKHEAL_HEALSUBGROUP = "Heal Subgroup";
BINDING_NAME_QUICKHEAL_HOTSUBGROUP = "HoT Subgroup";
BINDING_NAME_QUICKHEAL_HEALPARTY = "Heal Party";
BINDING_NAME_QUICKHEAL_HEALMT = "Heal MT";
BINDING_NAME_QUICKHEAL_HOTMT = "HoT MT";
BINDING_NAME_QUICKHEAL_HEALNONMT = "Heal Non MT";
BINDING_NAME_QUICKHEAL_HEALSELF = "Heal Player";
BINDING_NAME_QUICKHEAL_HEALTARGET = "Heal Target";
BINDING_NAME_QUICKHEAL_HEALTARGETTARGET = "Heal Target's Target";
BINDING_NAME_QUICKHEAL_TOGGLEHEALTHYTHRESHOLD = "Toggle Healthy Threshold 0 / 100%"
BINDING_NAME_QUICKHEAL_SHOWDOWNRANKWINDOW = "Show/Hide Downrank Window"

--[ Reference to external Who-To-Heal modules ]--
local FindSpellToUse = nil;

local FindChainHealSpellToUse = nil;
local FindChainHealSpellToUseNoTarget = nil;

local FindHealSpellToUse = nil;
local FindHealSpellToUseNoTarget = nil;

local FindHoTSpellToUse = nil;
local FindHoTSpellToUseNoTarget = nil;

local GetRatioHealthyExplanation = nil;

--[ Load status of mod ]--
QUICKHEAL_LOADED = false;

--[ Local Caches ]--
local SpellCache = {};

--[ Titan Panel functions ]--

function TitanPanelQuickHealButton_OnLoad()
    this.registry = {
        id = QuickHealData.name,
        menuText = QuickHealData.name,
        buttonTextFunction = nil,
        tooltipTitle = QuickHealData.name .. " Configuration",
        tooltipTextFunction = "TitanPanelQuickHealButton_GetTooltipText",
        frequency = 0,
        icon = "Interface\\Icons\\Spell_Holy_GreaterHeal"
    };
end

function TitanPanelQuickHealButton_GetTooltipText()
    return "Click to toggle configuration panel";
end

-- TWA Sync
--[ TWA Sync BEGIN ]--

function TWA_RequestTWARoster()
    ChatThrottleLib:SendAddonMessage("ALERT", "QH", "RequestRoster", "RAID")
end

function TWA_handleSync(pre, t, ch, sender)
    --jgpprint("pre:" .. pre .. " payload:" .. t .. " ch:" .. ch .. " sender:" .. sender)

    QHV.MTList = { };

    if string.find(t, 'Tanks=', 1, true) then
        local roster = string.split(t,';')

        -- separate tanks header
        local tanksdemux = string.split(roster[1], '=')

        -- grab tank names and feed into tanks list
        local tanks = string.split(tanksdemux[2], ',')

        for _, unit in next, tanks do
            --jgpprint(data)

            table.insert(QHV.MTList, unit);

            MTListFrame.UpdateYourself = true;
        end
        QH_MTListSyncTrigger()
        --jgpprint(roster[1]);
        --jgpprint(roster[2]);
    end
end

function QH_RequestTWARoster()
    QH_RequestedTWARoster = true
    TWA_RequestTWARoster();
end

--[ TWA Sync END ]--

-- MTList
--[ MTList BEGIN ]--

function QH_ShowHideMTListUI()
    --{{{
    if (MTListFrame:IsVisible()) then
        MTListFrame:Hide();
    else
        MTListFrame:Show();
    end
end --}}}

function QH_ClearMTList()
    --{{{
    QHV.MTList = {};

    MTListFrame.UpdateYourself = true;
    QH_MTListSyncTrigger()
end --}}}

function QH_AddTargetToMTList()
    --{{{
    --Dcr_debug( "Adding the target to the priority list");
    QH_AddUnitToMTList("target");
end --}}}

function QH_AddUnitToMTList(unit)
    --{{{
    if (UnitExists(unit)) then
        if (UnitIsPlayer(unit)) then
            local name = (UnitName(unit));
            for _, pname in QHV.MTList do
                if (name == pname) then
                    return ;
                end
            end
            table.insert(QHV.MTList, name);
        end
        MTListFrame.UpdateYourself = true;
        QH_MTListSyncTrigger()
    end
end --}}}

function QH_MTListEntryTemplate_OnClick()
    --{{{
    local id = this:GetID();
    if (id) then
        if (this.Priority) then
            QH_RemoveIDFromMTList(id);
        else
            QH_RemoveIDFromSkipList(id);
        end
    end
    this.UpdateYourself = true;

end --}}}

function QH_MTListEntryTemplate_OnUpdate()
    --{{{
    if (this.UpdateYourself) then
        this.UpdateYourself = false;
        local baseName = this:GetName();
        local NameText = getglobal(baseName .. "Name");

        local id = this:GetID();
        if (id) then
            local name
            if (this.Priority) then
                name = QHV.MTList[id];
            else
                name = QHV.SkipList[id];
            end
            if (name) then
                NameText:SetText(id .. " - " .. name);
                --else
                --    NameText:SetText("Error - ID Invalid!");
            end
        else
            NameText:SetText("Error - No ID!");
        end
    end
end --}}}

function QH_RemoveIDFromMTList(id)
    --{{{
    table.remove(QHV.MTList, id);
    MTListFrame.UpdateYourself = true;
    QH_MTListSyncTrigger();
end --}}}

function QH_MTListFrame_OnUpdate()
    --{{{
    if (this.UpdateYourself) then
        this.UpdateYourself = false;
        --Dcr_Groups_datas_are_invalid = true;
        local baseName = this:GetName();
        local up = getglobal(baseName .. "Up");
        local down = getglobal(baseName .. "Down");

        local size = table.getn(QHV.MTList);

        if (size < 11) then
            this.Offset = 0;
            up:Hide();
            down:Hide();
        else
            if (this.Offset <= 0) then
                this.Offset = 0;
                up:Hide();
                down:Show();
            elseif (this.Offset >= (size - 10)) then
                this.Offset = (size - 10);
                up:Show();
                down:Hide();
            else
                up:Show();
                down:Show();
            end
        end

        local i;
        for i = 1, 10 do
            local id = "" .. i;
            if (i < 10) then
                id = "0" .. i;
            end
            local btn = getglobal(baseName .. "Index" .. id);

            btn:SetID(i + this.Offset);
            btn.UpdateYourself = true;

            if (i <= size) then
                btn:Show();
            else
                btn:Hide();
            end
        end
    end

end --}}}

function QH_MTListSyncTrigger()
    ChatThrottleLib:SendAddonMessage("ALERT", "OhHiMark", "RosterUpdated", "RAID")
end

--[ MTList END ]--

-- MeleeDPSList
--[ MeleeDPSList BEGIN ]--

function QH_ShowHideMeleeDPSListUI()
    --{{{
    if (MeleeDPSListFrame:IsVisible()) then
        MeleeDPSListFrame:Hide();
    else
        MeleeDPSListFrame:Show();
    end
end --}}}

function QH_ClearMeleeDPSList()
    --{{{
    QHV.MeleeDPSList = {};

    MeleeDPSListFrame.UpdateYourself = true;
end --}}}

function QH_AddTargetToMeleeDPSList()
    --{{{
    --Dcr_debug( "Adding the target to the priority list");
    QH_AddUnitToMeleeDPSList("target");
end --}}}

function QH_AddUnitToMeleeDPSList(unit)
    --{{{
    if (UnitExists(unit)) then
        if (UnitIsPlayer(unit)) then
            local name = (UnitName(unit));
            for _, pname in QHV.MeleeDPSList do
                if (name == pname) then
                    return ;
                end
            end
            table.insert(QHV.MeleeDPSList, name);
        end
        MeleeDPSListFrame.UpdateYourself = true;
    end
end --}}}

function QH_MeleeDPSListEntryTemplate_OnClick()
    --{{{
    local id = this:GetID();
    if (id) then
        if (this.Priority) then
            QH_RemoveIDFromMeleeDPSList(id);
        else
            QH_RemoveIDFromSkipList(id);
        end
    end
    this.UpdateYourself = true;

end --}}}

function QH_MeleeDPSListEntryTemplate_OnUpdate()
    --{{{
    if (this.UpdateYourself) then
        this.UpdateYourself = false;
        local baseName = this:GetName();
        local NameText = getglobal(baseName .. "Name");

        local id = this:GetID();
        if (id) then
            local name
            if (this.Priority) then
                name = QHV.MeleeDPSList[id];
            else
                name = QHV.SkipList[id];
            end
            if (name) then
                NameText:SetText(id .. " - " .. name);
                --else
                --    NameText:SetText("Error - ID Invalid!");
            end
        else
            NameText:SetText("Error - No ID!");
        end
    end
end --}}}

function QH_RemoveIDFromMeleeDPSList(id)
    --{{{
    table.remove(QHV.MeleeDPSList, id);
    MeleeDPSListFrame.UpdateYourself = true;
end --}}}

function QH_MeleeDPSListFrame_OnUpdate()
    --{{{
    if (this.UpdateYourself) then
        this.UpdateYourself = false;
        --Dcr_Groups_datas_are_invalid = true;
        local baseName = this:GetName();
        local up = getglobal(baseName .. "Up");
        local down = getglobal(baseName .. "Down");

        local size = table.getn(QHV.MeleeDPSList);

        if (size < 11) then
            this.Offset = 0;
            up:Hide();
            down:Hide();
        else
            if (this.Offset <= 0) then
                this.Offset = 0;
                up:Hide();
                down:Show();
            elseif (this.Offset >= (size - 10)) then
                this.Offset = (size - 10);
                up:Show();
                down:Hide();
            else
                up:Show();
                down:Show();
            end
        end

        local i;
        for i = 1, 10 do
            local id = "" .. i;
            if (i < 10) then
                id = "0" .. i;
            end
            local btn = getglobal(baseName .. "Index" .. id);

            btn:SetID(i + this.Offset);
            btn.UpdateYourself = true;

            if (i <= size) then
                btn:Show();
            else
                btn:Hide();
            end
        end
    end

end --}}}

--[ MeleeDPSList END ]--

-- RangedDPSList
--[ RangedDPSList BEGIN ]--

function QH_ShowHideRangedDPSListUI()
    --{{{
    if (RangedDPSListFrame:IsVisible()) then
        RangedDPSListFrame:Hide();
    else
        RangedDPSListFrame:Show();
    end
end --}}}

function QH_ClearRangedDPSList()
    --{{{
    QHV.RangedDPSList = {};

    RangedDPSListFrame.UpdateYourself = true;
end --}}}

function QH_AddTargetToRangedDPSList()
    --{{{
    --Dcr_debug( "Adding the target to the priority list");
    QH_AddUnitToRangedDPSList("target");
end --}}}

function QH_AddUnitToRangedDPSList(unit)
    --{{{
    if (UnitExists(unit)) then
        if (UnitIsPlayer(unit)) then
            local name = (UnitName(unit));
            for _, pname in QHV.RangedDPSList do
                if (name == pname) then
                    return ;
                end
            end
            table.insert(QHV.RangedDPSList, name);
        end
        RangedDPSListFrame.UpdateYourself = true;
    end
end --}}}

function QH_RangedDPSListEntryTemplate_OnClick()
    --{{{
    local id = this:GetID();
    if (id) then
        if (this.Priority) then
            QH_RemoveIDFromRangedDPSList(id);
        else
            QH_RemoveIDFromSkipList(id);
        end
    end
    this.UpdateYourself = true;

end --}}}

function QH_RangedDPSListEntryTemplate_OnUpdate()
    --{{{
    if (this.UpdateYourself) then
        this.UpdateYourself = false;
        local baseName = this:GetName();
        local NameText = getglobal(baseName .. "Name");

        local id = this:GetID();
        if (id) then
            local name
            if (this.Priority) then
                name = QHV.RangedDPSList[id];
            else
                name = QHV.SkipList[id];
            end
            if (name) then
                NameText:SetText(id .. " - " .. name);
                --else
                --    NameText:SetText("Error - ID Invalid!");
            end
        else
            NameText:SetText("Error - No ID!");
        end
    end
end --}}}

function QH_RemoveIDFromRangedDPSList(id)
    --{{{
    table.remove(QHV.RangedDPSList, id);
    RangedDPSListFrame.UpdateYourself = true;
end --}}}

function QH_RangedDPSListFrame_OnUpdate()
    --{{{
    if (this.UpdateYourself) then
        this.UpdateYourself = false;
        --Dcr_Groups_datas_are_invalid = true;
        local baseName = this:GetName();
        local up = getglobal(baseName .. "Up");
        local down = getglobal(baseName .. "Down");

        local size = table.getn(QHV.RangedDPSList);

        if (size < 11) then
            this.Offset = 0;
            up:Hide();
            down:Hide();
        else
            if (this.Offset <= 0) then
                this.Offset = 0;
                up:Hide();
                down:Show();
            elseif (this.Offset >= (size - 10)) then
                this.Offset = (size - 10);
                up:Show();
                down:Hide();
            else
                up:Show();
                down:Show();
            end
        end

        local i;
        for i = 1, 10 do
            local id = "" .. i;
            if (i < 10) then
                id = "0" .. i;
            end
            local btn = getglobal(baseName .. "Index" .. id);

            btn:SetID(i + this.Offset);
            btn.UpdateYourself = true;

            if (i <= size) then
                btn:Show();
            else
                btn:Hide();
            end
        end
    end

end --}}}

--[ RangedDPSList END ]--

-- HealerList
--[ HealerList BEGIN ]--

function QH_ShowHideHealerListUI()
    --{{{
    if (HealerListFrame:IsVisible()) then
        HealerListFrame:Hide();
    else
        HealerListFrame:Show();
    end
end --}}}

function QH_ClearHealerList()
    --{{{
    QHV.HealerList = {};

    HealerListFrame.UpdateYourself = true;
end --}}}

function QH_AddTargetToHealerList()
    --{{{
    --Dcr_debug( "Adding the target to the priority list");
    QH_AddUnitToHealerList("target");
end --}}}

function QH_AddUnitToHealerList(unit)
    --{{{
    if (UnitExists(unit)) then
        if (UnitIsPlayer(unit)) then
            local name = (UnitName(unit));
            for _, pname in QHV.HealerList do
                if (name == pname) then
                    return ;
                end
            end
            table.insert(QHV.HealerList, name);
        end
        HealerListFrame.UpdateYourself = true;
    end
end --}}}

function QH_HealerListEntryTemplate_OnClick()
    --{{{
    local id = this:GetID();
    if (id) then
        if (this.Priority) then
            QH_RemoveIDFromHealerList(id);
        else
            QH_RemoveIDFromSkipList(id);
        end
    end
    this.UpdateYourself = true;

end --}}}

function QH_HealerListEntryTemplate_OnUpdate()
    --{{{
    if (this.UpdateYourself) then
        this.UpdateYourself = false;
        local baseName = this:GetName();
        local NameText = getglobal(baseName .. "Name");

        local id = this:GetID();
        if (id) then
            local name
            if (this.Priority) then
                name = QHV.HealerList[id];
            else
                name = QHV.SkipList[id];
            end
            if (name) then
                NameText:SetText(id .. " - " .. name);
                --else
                --    NameText:SetText("Error - ID Invalid!");
            end
        else
            NameText:SetText("Error - No ID!");
        end
    end
end --}}}

function QH_RemoveIDFromHealerList(id)
    --{{{
    table.remove(QHV.HealerList, id);
    HealerListFrame.UpdateYourself = true;
end --}}}

function QH_HealerListFrame_OnUpdate()
    --{{{
    if (this.UpdateYourself) then
        this.UpdateYourself = false;
        --Dcr_Groups_datas_are_invalid = true;
        local baseName = this:GetName();
        local up = getglobal(baseName .. "Up");
        local down = getglobal(baseName .. "Down");

        local size = table.getn(QHV.HealerList);

        if (size < 11) then
            this.Offset = 0;
            up:Hide();
            down:Hide();
        else
            if (this.Offset <= 0) then
                this.Offset = 0;
                up:Hide();
                down:Show();
            elseif (this.Offset >= (size - 10)) then
                this.Offset = (size - 10);
                up:Show();
                down:Hide();
            else
                up:Show();
                down:Show();
            end
        end

        local i;
        for i = 1, 10 do
            local id = "" .. i;
            if (i < 10) then
                id = "0" .. i;
            end
            local btn = getglobal(baseName .. "Index" .. id);

            btn:SetID(i + this.Offset);
            btn.UpdateYourself = true;

            if (i <= size) then
                btn:Show();
            else
                btn:Hide();
            end
        end
    end

end --}}}

--[ HealerList END ]--

function QH_RemoveIDFromSkipList(id)
    --{{{
    --table.remove( QHV.SkipList,id);
    --DecursiveSkipListFrame.UpdateYourself = true;
end --}}}

function QH_DisplayTooltip(Message, RelativeTo)
    --{{{
    QH_Display_Tooltip:SetOwner(RelativeTo, "ANCHOR_TOPRIGHT");
    QH_Display_Tooltip:ClearLines();
    QH_Display_Tooltip:SetText(Message);
    QH_Display_Tooltip:Show();
end --}}}

function QH_Debug(a)
    --{{{
    if DEFAULT_CHAT_FRAME then
        DEFAULT_CHAT_FRAME:AddMessage(a)
    end
end --}}}

-- Utilities
--[ Utilities BEGIN ]--

function jgpprint(a)
    if QHV.DebugMode then
        DEFAULT_CHAT_FRAME:AddMessage("|cff69ccf0[DEBUG] |cffffffff" .. a)
    end
end

function UnitFullName(unit)
    local name, server = UnitName(unit);
    if server and type(server) == "string" and type(name) == "string" then
        return name .. " of " .. server;
    else
        return name;
    end
end

-- Returns true if unit has Renew buff
function UnitHasRenew(unit)
    local BRenew = 'Interface\\Icons\\Spell_Holy_Renew'
    for j = 1, 40 do
        local B = UnitBuff(unit, j);
        if B then
            if B == BRenew then
                return true
            end
        end
    end
    return false
end

-- Returns true if unit has Rejuvanation buff
function UnitHasRejuvenation(unit) --
    local BRejuv = 'Interface\\Icons\\Spell_Nature_Rejuvenation'
    for j = 1, 40 do
        local B = UnitBuff(unit, j);
        if B then
            if B == BRejuv then
                return true
            end
        end
    end
    return false
end

-- Returns true if the player is in a raid group
function InRaid()
    return (GroupstatusInt() == 2);
end

-- Returns true if the player is in a party or a raid
function InParty()
    return (GroupstatusInt() == 1);
end

-- Returns true if the player is in a party or a raid
function AmSolo()
    return (GroupstatusInt() == 0);
end

function GroupstatusInt()
    local group = 0
    if GetNumPartyMembers() > 0 then
        group = 1
    end
    if GetNumRaidMembers() > 0 then
        group = 2
    end
    return group
end

-- Append server name to unit name when available (battlegrounds)
local function UnitFullName(unit)
    local name, server = UnitName(unit);
    if server and type(server) == "string" and type(name) == "string" then
        return name .. " of " .. server;
    else
        return name;
    end
end

-- Write one line to chat
function writeLine(s, r, g, b)
    if DEFAULT_CHAT_FRAME then
        DEFAULT_CHAT_FRAME:AddMessage(s, r or 1, g or 1, b or 1)
    end
end

-- Display debug info in the chat frame if debug is enabled
function QuickHeal_debug(...)
    if QHV.DebugMode then
        local msg = ''
        for k, v in ipairs(arg) do
            msg = msg .. tostring(v) .. ' : '
        end
        writeLine(msg)
    end
end

local function Message(text, kind, duration)
    -- Deliver message to center of screen
    if kind == "Healing" and QHV.MessageScreenCenterHealing then
        UIErrorsFrame:AddMessage(text, 0.1, 1, 0.1, 1, duration or 2)
    elseif kind == "Info" and QHV.MessageScreenCenterInfo then
        UIErrorsFrame:AddMessage(text, 0.1, 0.1, 1, 1, duration or 2)
    elseif kind == "Blacklist" and QHV.MessageScreenCenterBlacklist then
        UIErrorsFrame:AddMessage(text, 1, 0.9, 0, 1, duration or 2)
    elseif kind == "Error" and QHV.MessageScreenCenterError then
        UIErrorsFrame:AddMessage(text, 1, 0.1, 0.1, 1, duration or 2)
    end
    -- Deliver message to chat window
    if kind == "Healing" and QHV.MessageChatWindowHealing then
        writeLine(text, 0.1, 1, 0.1)
    elseif kind == "Info" and QHV.MessageChatWindowInfo then
        writeLine(text, 0.1, 0.1, 1)
    elseif kind == "Blacklist" and QHV.MessageChatWindowBlacklist then
        writeLine(text, 1, 0.9, 0.2)
    elseif kind == "Error" and QHV.MessageChatWindowError then
        writeLine(text, 1, 0.1, 0.1)
    end
end

function QuickHeal_ListUnitEffects(Target)
    if UnitExists(Target) then
        local i = 1;
        writeLine("|cffffff80******* Buffs on " .. (UnitFullName(Target) or "Unknown") .. " *******|r");
        while (UnitBuff(Target, i)) do
            local string;
            QuickHeal_ScanningTooltip:ClearLines();
            QuickHeal_ScanningTooltip:SetUnitBuff(Target, i);
            local icon, apps = UnitBuff(Target, i);
            string = "|cff0080ff" .. (QuickHeal_ScanningTooltipTextLeft1:GetText() or "") .. ":|r|cffffd200 ";
            string = string .. (QuickHeal_ScanningTooltipTextRight1:GetText() or "") .. ", ";
            string = string .. icon .. ", ";
            string = string .. apps .. "|r\n";
            string = string .. ">" .. (QuickHeal_ScanningTooltipTextLeft2:GetText() or "");
            writeLine(string);
            i = i + 1;
        end
        i = 1;
        writeLine("|cffffff80******* DeBuffs on " .. (UnitFullName(Target) or "Unknown") .. " *******|r");
        while (UnitDebuff(Target, i)) do
            local string;
            QuickHeal_ScanningTooltip:ClearLines();
            QuickHeal_ScanningTooltip:SetUnitDebuff(Target, i);
            local icon, apps = UnitDebuff(Target, i);
            string = "|cff0080ff" .. (QuickHeal_ScanningTooltipTextLeft1:GetText() or "") .. ":|r|cffffd200 ";
            string = string .. (QuickHeal_ScanningTooltipTextRight1:GetText() or "") .. ", ";
            string = string .. icon .. ", ";
            string = string .. apps .. "|r\n";
            string = string .. ">" .. (QuickHeal_ScanningTooltipTextLeft2:GetText() or "");
            writeLine(string);
            i = i + 1;
        end
    end
end

--[ Utilities END ]--

--[ Initialisation ]--

local function Initialise()

    -- Register to myAddons
    if (myAddOnsFrame_Register) then
        myAddOnsFrame_Register(QuickHealData, { "Important commands:\n'/qh cfg' to open configuration panel.\n'/qh help' to list available commands." });
    end

    -- Update configuration panel with version information
    QuickHealConfig_TextVersion:SetText("Version: " .. QuickHealData.version);

    --local _, PlayerClass = UnitClass('player');
    --PlayerClass = string.lower(PlayerClass);

    if PlayerClass == "shaman" then
        FindChainHealSpellToUse = QuickHeal_Shaman_FindChainHealSpellToUse;
        FindChainHealSpellToUseNoTarget = QuickHeal_Shaman_FindChainHealSpellToUseNoTarget;
        FindHealSpellToUse = QuickHeal_Shaman_FindHealSpellToUse;
        FindHealSpellToUseNoTarget = QuickHeal_Shaman_FindHealSpellToUseNoTarget;
        GetRatioHealthyExplanation = QuickHeal_Shaman_GetRatioHealthyExplanation;
        QuickHealDownrank_Slider_NH:SetMinMaxValues(1,10);
        --QuickHealDownrank_Slider_NH:SetValue(10);
        QuickHealDownrank_Slider_FH:SetMinMaxValues(1,6);
        --QuickHealDownrank_Slider_FH:SetValue(6);
        SlashCmdList["QUICKHEAL"] = QuickHeal_Command_Shaman;
        SLASH_QUICKHEAL1 = "/qh";
        SLASH_QUICKHEAL2 = "/quickheal";
    elseif PlayerClass == "priest" then
        FindHealSpellToUse = QuickHeal_Priest_FindHealSpellToUse;
        FindHealSpellToUseNoTarget = QuickHeal_Priest_FindHealSpellToUseNoTarget;
        FindHoTSpellToUse = QuickHeal_Priest_FindHoTSpellToUse;
        FindHoTSpellToUseNoTarget = QuickHeal_Priest_FindHoTSpellToUseNoTarget;
        GetRatioHealthyExplanation = QuickHeal_Priest_GetRatioHealthyExplanation;
        SlashCmdList["QUICKHEAL"] = QuickHeal_Command_Priest;
        SLASH_QUICKHEAL1 = "/qh";
        SLASH_QUICKHEAL2 = "/quickheal";
    elseif PlayerClass == "paladin" then
        FindHealSpellToUse = QuickHeal_Paladin_FindSpellToUse;
        FindHealSpellToUseNoTarget = QuickHeal_Paladin_FindHealSpellToUseNoTarget;
        FindHoTSpellToUse = QuickHeal_Paladin_FindHoTSpellToUse;
        FindHoTSpellToUseNoTarget = QuickHeal_Paladin_FindHoTSpellToUseNoTarget;
        GetRatioHealthyExplanation = QuickHeal_Paladin_GetRatioHealthyExplanation;
        -- convert default (priest) downrank window to Paladin with only FH Slider shown
        QuickHealDownrank_Slider_NH:Hide();
        QuickHealDownrank_RankNumberTop:Hide();
        QuickHealDownrank_MarkerTop:Hide()
        QuickHealDownrank_MarkerBot:Hide()
        QuickHeal_DownrankSlider:SetHeight(40)
        QuickHealDownrank_Slider_FH:SetPoint("TOPLEFT", 20, -10)
        QuickHealDownrank_Slider_FH:SetMinMaxValues(1, 7);
        QuickHealDownrank_Slider_FH:SetValue(7)
        QuickHealDownrank_RankNumberBot:SetPoint("CENTER", 108, 1)
        SlashCmdList["QUICKHEAL"] = QuickHeal_Command_Paladin;
        SLASH_QUICKHEAL1 = "/qh";
        SLASH_QUICKHEAL2 = "/quickheal";
    elseif PlayerClass == "druid" then
        FindHealSpellToUse = QuickHeal_Druid_FindHealSpellToUse;
        FindHealSpellToUseNoTarget = QuickHeal_Druid_FindHealSpellToUseNoTarget;
        FindHoTSpellToUse = QuickHeal_Druid_FindHoTSpellToUse;
        FindHoTSpellToUseNoTarget = QuickHeal_Druid_FindHoTSpellToUseNoTarget;
        GetRatioHealthyExplanation = QuickHeal_Druid_GetRatioHealthyExplanation;
        QuickHealDownrank_Slider_NH:SetMinMaxValues(1,11);
        QuickHealDownrank_Slider_NH:SetValue(3)
        QuickHealDownrank_Slider_FH:SetMinMaxValues(1, 9);
        QuickHealDownrank_Slider_FH:SetValue(6)

        SlashCmdList["QUICKHEAL"] = QuickHeal_Command_Druid;
        SLASH_QUICKHEAL1 = "/qh";
        SLASH_QUICKHEAL2 = "/quickheal";
    else
        writeLine(QuickHealData.name .. " " .. QuickHealData.version .. " does not support " .. UnitClass('player') .. ". " .. QuickHealData.name .. " not loaded.")
        return ;
    end

    --SlashCmdList["QUICKHEAL"] = QuickHeal_Command;
    --SLASH_QUICKHEAL1 = "/qh";
    --SLASH_QUICKHEAL2 = "/quickheal";

    -- Hook the UIErrorsFrame_OnEvent method
    OriginalUIErrorsFrame_OnEvent = UIErrorsFrame_OnEvent;
    UIErrorsFrame_OnEvent = NewUIErrorsFrame_OnEvent;

    -- Setup QuickHealVariables (and initialise upon first use)
	
    if not QuickHealVariables then QuickHealVariables={}; end
	QHV = QuickHealVariables;
	
    for k in pairs(DQHV) do
        if QHV[k] == nil then
            QHV[k] = DQHV[k]
        end ;
    end

    -- Save the version of the mod along with the configuration
    QuickHealVariables["ConfigID"] = QuickHealData.version;

    --Allows Configuration Panel to be closed with the Escape key
    table.insert(UISpecialFrames, "QuickHealConfig");

    -- Right-click party member menu item (disabled to prevent confusion!)
    --table.insert(UnitPopupMenus["PARTY"],table.getn(UnitPopupMenus["PARTY"]),"DEDICATEDHEALINGTARGET");
    --UnitPopupButtons["DEDICATEDHEALINGTARGET"] = { text = TEXT("Designate Healing Target"), dist = 0 };

    writeLine(QuickHealData.name .. " " .. QuickHealData.version .. " for " .. UnitClass('player') .. " Loaded. Usage: '/qh help'.")

    -- Initialise QuickClick
    if QHV.QuickClickEnabled and (type(QuickClick_Load) == "function") then
        QuickClick_Load()
    end

    -- Listen to LEARNED_SPELL_IN_TAB to clear cache when learning new spells
    QuickHealConfig:RegisterEvent("LEARNED_SPELL_IN_TAB");

    --Register for Addon message event
    QuickHealConfig:RegisterEvent("CHAT_MSG_ADDON")

    QUICKHEAL_LOADED = true;
end

function QuickHeal_SetDefaultParameters()
    for k in pairs(DQHV) do
        QHV[k] = DQHV[k];
    end
end

--[ Event Handlers and monitor setup ]--

-- Update the HealingBar
local function UpdateHealingBar(hpcurrent, hpafter, name)
    if hpafter < hpcurrent then
        hpafter = hpcurrent
    end
    if hpafter > 200 then
        hpafter = 200
    end

    -- Update bars
    QuickHealHealingBarStatusBar:SetValue(hpcurrent);
    QuickHealHealingBarStatusBarPost:SetValue(hpafter)
    QuickHealHealingBarSpark:SetPoint("CENTER", "QuickHealHealingBarStatusBar", "LEFT", 372 / 2 * hpcurrent, 0)
    if name then
        QuickHealHealingBarText:SetText(name)
    end

    -- Calculate colour for health
    local red = hpcurrent < 0.5 and 1 or 2 * (1 - hpcurrent);
    local green = hpcurrent > 0.5 and 0.8 or 1.6 * hpcurrent;
    QuickHealHealingBarStatusBar:SetStatusBarColor(red, green, 0);

    -- Calculate colour for heal
    local waste;
    if hpafter > 1 and hpafter > hpcurrent then
        waste = (hpafter - 1) / (hpafter - hpcurrent);
    else
        waste = 0;
    end
    red = waste > 0.1 and 1 or waste * 10;
    green = waste < 0.1 and 1 or -2.5 * waste + 1.25;
    if waste < 0 then
        green = 1;
        red = 0;
    end
    QuickHealHealingBarStatusBarPost:SetStatusBarColor(red, green, 0)
end

-- Update the Overheal status labels
local function UpdateQuickHealOverhealStatus(multiplier)
    local textframe = getglobal("QuickHealOverhealStatus_Text");
    local healthpercentagepost, healthpercentage, healneed, overheal, waste;

    -- Determine healneed on HealingTarget
    if QuickHeal_UnitHasHealthInfo(HealingTarget) then
        -- Full info available
        if HealMultiplier == 1.0 then
            QuickHeal_debug("NO OVERHEAL");
        else
            QuickHeal_debug("OVERHEAL OVERHEAL OVERHEAL");
        end

        healneed = UnitHealthMax(HealingTarget) - UnitHealth(HealingTarget);
        healthpercentage = UnitHealth(HealingTarget) / UnitHealthMax(HealingTarget);
        healthpercentagepost = (UnitHealth(HealingTarget) + HealingSpellSize) / UnitHealthMax(HealingTarget);
    else
        -- Estimate target health
        healneed = QuickHeal_EstimateUnitHealNeed(HealingTarget);
        healthpercentage = UnitHealth(HealingTarget) / 100;
        healthpercentagepost = healthpercentage + HealingSpellSize * (1 - healthpercentage) / healneed;
    end

    -- Determine overheal
    overheal = HealingSpellSize - healneed;

    -- Calculate waste
    waste = overheal / HealingSpellSize * 100;

    UpdateHealingBar(healthpercentage, healthpercentagepost, UnitFullName(HealingTarget))

    -- Hide text if no overheal
    if waste < 10 then
        textframe:SetText("")
        QuickHealOverhealStatusScreenCenter:AddMessage(" ");
        return
    end

    -- Update the label
    local txt = floor(waste) .. "% of heal will be wasted (" .. floor(overheal) .. " Health)";
    QuickHeal_debug(txt);

    if QHV.OverhealMessageCastingBar then
        textframe:SetText(txt);
    end

    local font = textframe:GetFont();
    if waste > 50 and HealMultiplier == 1.0 then
        if OverhealMessagePlaySound then
            PlaySoundFile("Sound\\Doodad\\BellTollTribal.wav")
        end
        QuickHealOverhealStatusScreenCenter:AddMessage(txt, 1, 0, 0, 1, 5);
        textframe:SetTextColor(1, 0, 0);
        textframe:SetFont(font, 14);
        MassiveOverhealInProgress = true;
    else
        QuickHealOverhealStatusScreenCenter:AddMessage(txt, 1, 1, 0, 1, 5);
        MassiveOverhealInProgress = false;
        textframe:SetTextColor(1, 1, 0);
        textframe:SetFont(font, 12);
    end

end

local function StartMonitor(Target, multiplier)
    MassiveOverhealInProgress = false;
    HealingTarget = Target;

    if not multiplier then

    else
        HealMultiplier = multiplier;
    end


    QuickHeal_debug("*Starting Monitor", UnitFullName(Target));
    QuickHealConfig:RegisterEvent("UNIT_HEALTH"); -- For detecting overheal situations
    QuickHealConfig:RegisterEvent("SPELLCAST_STOP"); -- For detecting spellcast stop
    QuickHealConfig:RegisterEvent("SPELLCAST_FAILED"); -- For detecting spellcast stop
    QuickHealConfig:RegisterEvent("SPELLCAST_INTERRUPTED"); -- For detecting spellcast stop
    UpdateQuickHealOverhealStatus();
    if QHV.OverhealMessageCastingBar then
        QuickHealOverhealStatus:Show()
    end
    if QHV.OverhealMessageScreenCenter then
        QuickHealOverhealStatusScreenCenter:Show()
    end
    if QHV.DisplayHealingBar then
        QuickHealHealingBar:Show()
    end
end

local function StopMonitor(trigger)
    QuickHealOverhealStatus:Hide();
    QuickHealOverhealStatusScreenCenter:Hide();
    QuickHealHealingBar:Hide()
    QuickHealConfig:UnregisterEvent("UNIT_HEALTH");
    QuickHealConfig:UnregisterEvent("SPELLCAST_STOP");
    QuickHealConfig:UnregisterEvent("SPELLCAST_FAILED");
    QuickHealConfig:UnregisterEvent("SPELLCAST_INTERRUPTED");
    QuickHeal_debug("*Stopping Monitor", trigger or "Unknown Trigger");
    HealingTarget = nil;
    HealMultiplier = 1.0;
    QuickHealBusy = false;
end

-- UIErrorsFrame Hook

function NewUIErrorsFrame_OnEvent(...)
    -- Catch only if monitor is running (HealingTarget ~= nil) and if event is UI_ERROR_MESSAGE
    if HealingTarget and event == "UI_ERROR_MESSAGE" and arg1 then
        if arg1 == ERR_SPELL_OUT_OF_RANGE then
            Message(string.format(SPELL_FAILED_OUT_OF_RANGE .. ". %s blacklisted for 5 sec.", UnitFullName(HealingTarget)), "Blacklist", 5)
            LastBlackListTime = GetTime();
            BlackList[UnitFullName(HealingTarget)] = LastBlackListTime + 5;
            StopMonitor(arg1);
            return ;
        elseif arg1 == SPELL_FAILED_LINE_OF_SIGHT then
            Message(string.format(SPELL_FAILED_LINE_OF_SIGHT .. ". %s blacklisted for 2 sec.", UnitFullName(HealingTarget)), "Blacklist", 2)
            LastBlackListTime = GetTime();
            BlackList[UnitFullName(HealingTarget)] = LastBlackListTime + 2;
            StopMonitor(arg1);
            return ;
        elseif (arg1 == ERR_BADATTACKFACING) or (arg1 == ERR_BADATTACKPOS) then
            -- "You are facing the wrong way!"; -- Melee combat error
            -- "You are too far away!"; -- Melee combat error
        else
            StopMonitor(event .. " : " .. arg1);
        end
    end
    return { OriginalUIErrorsFrame_OnEvent(unpack(arg)) };
end

-- Called when the mod is loaded
function QuickHeal_OnLoad()
    this:RegisterEvent("VARIABLES_LOADED");
end

-- Called whenever a registered event occurs
function QuickHeal_OnEvent()
    if (event == "UNIT_HEALTH") then
        -- Triggered when someone in the party/raid, current target or mouseover is healed/damaged
        if UnitIsUnit(HealingTarget, arg1) then
            UpdateQuickHealOverhealStatus()
        end
    elseif (event == "SPELLCAST_STOP") or (event == "SPELLCAST_FAILED") or (event == "SPELLCAST_INTERRUPTED") then
        -- Spellcasting has stopped
        StopMonitor(event);
    elseif (event == "LEARNED_SPELL_IN_TAB") then
        -- New spells learned, clear cache
        SpellCache = {};
    elseif (event == "VARIABLES_LOADED") then
        Initialise();
    elseif (event == "CHAT_MSG_ADDON") then
        if arg1 == "QuickHeal" and arg2 == "versioncheck" then
            SendAddonMessage("QuickHeal", QuickHealData.version, RAID)
        end
        if arg1 == "TWA" and arg4 ~= me and QH_RequestedTWARoster then
        --if arg1 == "TWA" then
            TWA_handleSync(arg1, arg2, arg3, arg4)
            QH_RequestedTWARoster = false;
        end
    else
        QuickHeal_debug((event or "Unknown Event"), (arg1 or "nil"))
    end
end

--[ User Interface Functions ]--

-- Tab selection code
function QuickHeal_ConfigTab_OnClick()
    if this:GetName() == "QuickHealConfigTab1" then
        QuickHealConfig_GeneralOptionsFrame:Show();
        QuickHealConfig_HealingTargetFilterFrame:Hide();
        QuickHealConfig_MessagesAndNotificationFrame:Hide();
    elseif this:GetName() == "QuickHealConfigTab2" then
        QuickHealConfig_GeneralOptionsFrame:Hide();
        QuickHealConfig_HealingTargetFilterFrame:Show();
        QuickHealConfig_MessagesAndNotificationFrame:Hide();
    elseif this:GetName() == "QuickHealConfigTab3" then
        QuickHealConfig_GeneralOptionsFrame:Hide();
        QuickHealConfig_HealingTargetFilterFrame:Hide();
        QuickHealConfig_MessagesAndNotificationFrame:Show();
    end
    PlaySound("igCharacterInfoTab");
end

-- Items in the NotificationStyle ComboBox
function QuickHeal_ComboBoxNotificationStyle_Fill()
    UIDropDownMenu_AddButton { text = "Normal"; func = QuickHeal_ComboBoxNotificationStyle_Click; value = "NORMAL" };
    UIDropDownMenu_AddButton { text = "Role-Playing"; func = QuickHeal_ComboBoxNotificationStyle_Click; value = "RP" };
end
-- Function for handling clicks on the NotificationStyle ComboBox
function QuickHeal_ComboBoxNotificationStyle_Click()
    QHV.NotificationStyle = this.value;
    UIDropDownMenu_SetSelectedValue(QuickHealConfig_ComboBoxNotificationStyle, this.value);
end

-- Items in the MessageConfigure ComboBox
function QuickHeal_ComboBoxMessageConfigure_Fill()
    UIDropDownMenu_AddButton { text = "Healing (Green)"; func = QuickHeal_ComboBoxMessageConfigure_Click; value = "Healing" };
    UIDropDownMenu_AddButton { text = "Info (Blue)"; func = QuickHeal_ComboBoxMessageConfigure_Click; value = "Info" };
    UIDropDownMenu_AddButton { text = "Blacklist (Yellow)"; func = QuickHeal_ComboBoxMessageConfigure_Click; value = "Blacklist" };
    UIDropDownMenu_AddButton { text = "Error (Red)"; func = QuickHeal_ComboBoxMessageConfigure_Click; value = "Error" };
end
-- Function for handling clicks on the MessageConfigure ComboBox
function QuickHeal_ComboBoxMessageConfigure_Click()
    UIDropDownMenu_SetSelectedValue(QuickHealConfig_ComboBoxMessageConfigure, this.value);
    if QHV["MessageScreenCenter" .. this.value] then
        QuickHealConfig_CheckButtonMessageScreenCenter:SetChecked(true);
    else
        QuickHealConfig_CheckButtonMessageScreenCenter:SetChecked(false);
    end
    if QHV["MessageChatWindow" .. this.value] then
        QuickHealConfig_CheckButtonMessageChatWindow:SetChecked(true);
    else
        QuickHealConfig_CheckButtonMessageChatWindow:SetChecked(false);
    end
end

-- Get an explanation of effects based on current settings
function QuickHeal_GetExplanation(Parameter)
    local string = "";

    if Parameter == "RatioFull" then
        if QHV.RatioFull > 0 then
            return "Will only heal targets with less than " .. QHV.RatioFull * 100 .. "% health.";
        else
            return QuickHealData.name .. " is disabled.";
        end
    end

    if Parameter == "RatioForceself" then
        if QHV.RatioForceself > 0 then
            return "If you have less than " .. QHV.RatioForceself * 100 .. "% health, you will become the target of the heal.";
        else
            return "Self preservation disabled."
        end
    end

    if Parameter == "PetPriority" then
        if QHV.PetPriority == 0 then
            return "Pets will never be healed.";
        end
        if QHV.PetPriority == 1 then
            return "Pets will only be healed if no players need healing.";
        end
        if QHV.PetPriority == 2 then
            return "Pets will be considered equal to players.";
        end
    end

    if Parameter == "RatioHealthy" then
        return GetRatioHealthyExplanation();
    end

    if Parameter == "NotificationWhisper" then
        if QHV.NotificationWhisper then
            return "Healing target will receive notification by whisper."
        else
            return "Healing target will not receive notification by whisper."
        end
    end

    if Parameter == "NotificationChannel" then
        if QHV.NotificationChannel then
            if QHV.NotificationChannelName and (QHV.NotificationChannelName ~= "") then
                return "Notification will be delivered to channel '" .. QHV.NotificationChannelName .. "' if it exists.";
            else
                return "Enter a channel name to deliver notification to a channel.";
            end
        else
            return "Notification will not be delivered to a channel.";
        end
    end

    if Parameter == "NotificationRaid" then
        if QHV.NotificationRaid then
            return "Notification will be delivered to raid chat when in a raid";
        else
            return "Notification will not be delivered to raid chat.";
        end
    end

    if Parameter == "NotificationParty" then
        if QHV.NotificationParty then
            return "Notification will be delivered to party chat when in a party";
        else
            return "Notification will not be delivered to party chat.";
        end
    end

end

function QuickHeal_GetRatioHealthy()
    local _, PlayerClass = UnitClass('player');
    if string.lower(PlayerClass) == "druid" then
        return QHV.RatioHealthyDruid
    end
    if string.lower(PlayerClass) == "paladin" then
        return QHV.RatioHealthyPaladin
    end
    if string.lower(PlayerClass) == "priest" then
        return QHV.RatioHealthyPriest
    end
    if string.lower(PlayerClass) == "shaman" then
        return QHV.RatioHealthyShaman
    end
    return nil;
end

-- Hides/Shows the configuration dialog
function QuickHeal_ToggleConfigurationPanel()
    if QuickHealConfig:IsVisible() then
        QuickHealConfig:Hide()
    else
        QuickHealConfig:Show()
    end
end

-- Toggle Healthy Threshold
function QuickHeal_Toggle_Healthy_Threshold()
    local _, PlayerClass = UnitClass('player');

    if string.lower(PlayerClass) == "druid" then
        if QuickHealVariables.RatioHealthyDruid < 1 then
            QuickHealVariables.RatioHealthyDruid = 1
            writeLine("QuickHeal mode: High HPS", 0.9, 0.44, 0.05)
        else
            QuickHealVariables.RatioHealthyDruid = 0
            writeLine("QuickHeal mode: Normal HPS", 0.05, 0.7, 0.7)
        end
        return
    end

    if string.lower(PlayerClass) == "priest" then
        if QuickHealVariables.RatioHealthyPriest < 1 then
            QuickHealVariables.RatioHealthyPriest = 1
            writeLine("QuickHeal mode: High HPS", 0.9, 0.44, 0.05)
            QuickHealDownrank_MarkerTop:Hide()
            QuickHealDownrank_MarkerBot:Show()
        else
            QuickHealVariables.RatioHealthyPriest = 0
            writeLine("QuickHeal mode: Normal HPS", 0.05, 0.7, 0.7)
            QuickHealDownrank_MarkerTop:Show()
            QuickHealDownrank_MarkerBot:Hide()
        end
        return
    end

    if string.lower(PlayerClass) == "paladin" then
        if QuickHealVariables.RatioHealthyPaladin < 1 then
            QuickHealVariables.RatioHealthyPaladin = 1
            writeLine("QuickHeal mode: High HPS", 0.9, 0.44, 0.05)
            QuickHealDownrank_MarkerTop:Hide()
            QuickHealDownrank_MarkerBot:Show()
        else
            QuickHealVariables.RatioHealthyPaladin = 0
            writeLine("QuickHeal mode: Normal HPS", 0.05, 0.7, 0.7)
            QuickHealDownrank_MarkerTop:Show()
            QuickHealDownrank_MarkerBot:Hide()
        end
        return
    end

    if string.lower(PlayerClass) == "shaman" then
        if QuickHealVariables.RatioHealthyShaman < 1 then
            QuickHealVariables.RatioHealthyShaman = 1
            writeLine("QuickHeal mode: High HPS", 0.9, 0.44, 0.05)
            QuickHealDownrank_MarkerTop:Hide()
            QuickHealDownrank_MarkerBot:Show()
        else
            QuickHealVariables.RatioHealthyShaman = 0
            writeLine("QuickHeal mode: Normal HPS", 0.05, 0.7, 0.7)
            QuickHealDownrank_MarkerTop:Show()
            QuickHealDownrank_MarkerBot:Hide()
        end
        return
    end
end


--[ Buff and Debuff detection ]--

-- Detects if a buff is present on the unit and returns the application number
function QuickHeal_DetectBuff(unit, name, app)
    local i = 1;
    local state, apps;
    while true do
        state, apps = UnitBuff(unit, i);
        if not state then
            return false
        end
        if string.find(state, name) and ((app == apps) or (app == nil)) then
            return apps
        end
        i = i + 1;
    end
end

-- Detects if a debuff is present on the unit and returns the application number
function QuickHeal_DetectDebuff(unit, name, app)
    local i = 1;
    local state, apps;
    while true do
        state, apps = UnitDebuff(unit, i);
        if not state then
            return false
        end
        if string.find(state, name) and ((app == apps) or (app == nil)) then
            return apps
        end
        i = i + 1;
    end
end

-- Priest talent Inner Focus: Spell_Frost_WindWalkOn (1)
-- Shaman skill Water Walking: Spell_Frost_WindWalkOn (0)
-- Spirit of Redemption: Spell_Holy_GreaterHeal (0)
-- Nature's Swiftness: Spell_Nature_RavenForm (1)
-- Hand of Edward the Odd: Spell_Holy_SearingLight
-- Divine Protection (paladin 'bubble' aura): Spell_Holy_Restoration

-- Scan a particular buff/debuff index for buffs contained in tab and returns factor applied to healing
-- returns false if no buff/debuff at index
-- returns 1 if buff does not modify healing
local function ModifierScan(unit, idx, tab, debuff)
    local UnitBuffDebuff = debuff and UnitDebuff or UnitBuff;
    local icon, apps = UnitBuffDebuff(unit, idx);
    if icon then
        _, _, icon = string.find(icon, "Interface\\Icons\\(.+)")
        local stype = tab[icon .. apps] or tab[icon];
        if stype then
            if type(stype) == "number" then
                return (debuff and 1 - stype or 1 + stype);
            elseif type(stype) == "boolean" then
                QuickHeal_ScanningTooltip:ClearLines();
                if debuff then
                    QuickHeal_ScanningTooltip:SetUnitDebuff(unit, idx);
                else
                    QuickHeal_ScanningTooltip:SetUnitBuff(unit, idx)
                end
                local _, _, modifier = string.find(QuickHeal_ScanningTooltipTextLeft2:GetText(), " (%d+)%%")
                modifier = tonumber(modifier);
                if modifier and type(modifier) == "number" and ((modifier >= 0) and (modifier <= 100)) then
                    -- Succesfully scanned and found numerical modifier
                    return (debuff and 1 - modifier / 100 or 1 + modifier / 100);
                else
                    -- Failed in scanning, don't count (de)buff in
                    return 1;
                end
            end
        else
            -- Unknown icon, don't even try to scan
            return 1;
        end
    else
        return false
    end
end

-- Tables with known icon names of buffs/debuffs that affect healing
local SelfHealingBuffs = {
    Spell_Holy_PowerInfusion = 0.2, -- Power Infusion (Priest Talent)
}
local HealingBuffs = {
}
local HealingDebuffs = {
    Ability_CriticalStrike = true, -- Mortal Wound
    Spell_Shadow_GatherShadows = true, -- Curse of the Deadwood, Veil of Shadow and Gehenna's Curse
    Ability_Warrior_SavageBlow = 0.5, -- Mortal Strike/Mortal Cleave (Warrior Talent) (app unconfirmed)
    Ability_Rogue_FeignDeath0 = 0.25, -- Blood Fury (Orc Racial)
    Spell_Shadow_FingerOfDeath = 0.2, -- Hex of Weakness (app unconfirmed)
    INV_Misc_Head_Dragon_Green = 0.5, -- Brood Affliction: Green (app unconfirmed)
    Ability_Creature_Poison_03 = 0.9 -- Necrotic Poison (app unconfirmed)
}

-- Returns the modifier to healing (as a factor) caused by buffs and debuffs
function QuickHeal_GetHealModifier(unit)
    local HealModifier = 1;
    for i = 1, 16 do
        -- Buffs on player that affects the amount healed to others
        local modifier = ModifierScan('player', i, SelfHealingBuffs, false);
        if modifier then
            HealModifier = HealModifier * modifier;
        else
            break
        end
    end
    for i = 1, 16 do
        -- Buffs on unit that affect the amount healed on that unit
        local modifier = ModifierScan(unit, i, HealingBuffs, false);
        if modifier then
            HealModifier = HealModifier * modifier;
        else
            break
        end
    end
    for i = 1, 16 do
        -- Debuffs on unit that affects the amount healed on that unit
        local modifier = ModifierScan(unit, i, HealingDebuffs, true);
        if modifier then
            HealModifier = HealModifier * modifier;
        else
            break
        end
    end
    return HealModifier;
end

--[ Healing related helper functions ]--

--QH_Debug("healable: " .. i);

-- Returns true if the unit is a MainTank defined by CTRA or oRA
-- If number is given, will only return true if the unit is that specific main tank
local function IsMainTank(unit, number)
    local t, y;
    for t, y in pairs(QHV.MTList)
    do
        if y == UnitName(unit) then
            return true;
        end
    end
    --[[
    local i, v;
    for i, v in pairs(CT_RA_MainTanks or (oRA_MainTank and oRA_MainTank.MainTankTable or nil) or {}) do
        if v == UnitName(unit) and (i == number or number == nil) then
            return true
        end
    end
    return false;
    ]]--
end

-- Returns true if the unit is blacklisted (because it could not be healed)
-- Note that the parameter is the name of the unit, not 'party1', 'raid1' etc.
local function IsBlacklisted(unitname)
    local CurrentTime = GetTime()
    if CurrentTime < LastBlackListTime then
        -- Game time info has overrun, clearing blacklist to prevent permanent bans
        BlackList = {};
        LastBlackListTime = 0;
    end
    if (BlackList[unitname] == nil) or BlackList[unitname] < CurrentTime then
        return false
    else
        return true
    end
end

-- Returns true if the player is in a raid group
local function InRaid()
    return (GetNumRaidMembers() > 0);
end

-- Returns true if the player is in a party or a raid
local function InParty()
    return (GetNumPartyMembers() > 0);
end

-- Returns true if health information is available for the unit
--[[ TODO: Rewrite to use:
Unit Functions 
* New UnitPlayerOrPetInParty("unit") - Returns 1 if the specified unit is a member of the player's party, or is the pet of a member of the player's party, nil otherwise (Returns 1 for "player" and "pet") 
* New UnitPlayerOrPetInRaid("unit") - Returns 1 if the specified unit is a member of the player's raid, or is the pet of a member of the player's raid, nil otherwise (Returns 1 for "player" and "pet") 
]]
function QuickHeal_UnitHasHealthInfo(unit)
    local i;

    if not unit then
        return false
    end -- Protection

    if UnitIsUnit('player', unit) then
        return true
    end

    if InRaid() then
        -- In raid
        for i = 1, 40 do
            if UnitIsUnit("raidpet" .. i, unit) or UnitIsUnit("raid" .. i, unit) then
                return true
            end
        end
    else
        -- Not in raid
        if UnitInParty(unit) or UnitIsUnit("pet", unit) then
            return true
        end ;
        for i = 1, 4 do
            if (UnitIsUnit("partypet" .. i, unit)) then
                return true
            end
        end
    end
    return false;
end

-- Only used by UnitIsHealable
local function EvaluateUnitCondition(unit, condition, debugText, explain)
    if not condition then
        if explain then
            QuickHeal_debug(unit, debugText)
        end
        return true
    else
        return false
    end
end

-- Return true if the unit is healable by player
local function UnitIsHealable(unit, explain)
    if UnitExists(unit) then
        if EvaluateUnitCondition(unit, UnitIsFriend('player', unit), "is not a friend", explain) then
            return false
        end
        if EvaluateUnitCondition(unit, not UnitIsEnemy(unit, 'player'), "is an enemy", explain) then
            return false
        end
        if EvaluateUnitCondition(unit, not UnitCanAttack('player', unit), "can be attacked by player", explain) then
            return false
        end
        if EvaluateUnitCondition(unit, UnitIsConnected(unit), "is not connected", explain) then
            return false
        end
        if EvaluateUnitCondition(unit, not UnitIsDeadOrGhost(unit), "is dead or ghost", explain) then
            return false
        end
        if EvaluateUnitCondition(unit, UnitIsVisible(unit), "is not visible to client", explain) then
            return false
        end
    else
        return false
    end
    return true
end

-- SpellCache[spellName][rank][stat]
-- stat: SpellID, Mana, Heal, Time
function QuickHeal_GetSpellInfo(spellName)
    --QuickHeal_debug("********** BREAKPOINT: QuickHeal_GetSpellInfo(spellName) BEGIN **********");
    -- Check if info is already cached
    if SpellCache[spellName] then
        return SpellCache[spellName];
    end

    SpellCache[spellName] = {};

    --QuickHeal_debug("********** BREAKPOINT: QuickHeal_GetSpellInfo(spellName) Mid **********");

    -- Gather info (only done if not in cache)
    local i = 1;
    local spellNamei, spellRank, Heal, HealMin, HealMax, Mana, Time;
    while true do
        spellNamei, spellRank = GetSpellName(i, BOOKTYPE_SPELL);
        if not spellNamei then
            break
        end

        if spellNamei == spellName then
            -- This is the spell we're looking for, gather info

            _, _, spellRank = string.find(spellRank, " (%d+)$");
            spellRank = tonumber(spellRank);
            QuickHeal_ScanningTooltip:ClearLines();
            QuickHeal_ScanningTooltip:SetSpell(i, BOOKTYPE_SPELL);

            -- Try to determine mana
            _, _, Mana = string.find(QuickHeal_ScanningTooltipTextLeft2:GetText(), "^(%d+) ");
            Mana = tonumber(Mana);
            if not (type(Mana) == "number") then
                Mana = 0
            end

            -- Try to determine healing
            _, _, HealMin, HealMax = string.find(QuickHeal_ScanningTooltipTextLeft4:GetText(), " (%d+) %a+ (%d+)");
            HealMin, HealMax = tonumber(HealMin), tonumber(HealMax);
            if not ((type(HealMin) == "number") and (type(HealMax) == "number")) then
                Heal = 0
            else
                Heal = (HealMin + HealMax) / 2;
            end

            -- Try to determine cast time
            _, _, Time = string.find(QuickHeal_ScanningTooltipTextLeft3:GetText(), "^(%d%.?%d?) ");
            Time = tonumber(Time);
            if not (type(Time) == "number") then
                Time = 0
            end

            if not spellRank then
                SpellCache[spellName][0] = { SpellID = i, Mana = Mana, Heal = Heal, Time = Time };
                break ;
            else
                SpellCache[spellName][spellRank] = { SpellID = i, Mana = Mana, Heal = Heal, Time = Time };
            end
        end
        i = i + 1;
    end
    --QuickHeal_debug("********** BREAKPOINT: QuickHeal_GetSpellInfo(spellName) END **********");
    return SpellCache[spellName];
end

function QuickHeal_GetSpellIDs(spellName)
    local i = 1;
    local List = {};
    local spellNamei, spellRank;

    while true do
        spellNamei, spellRank = GetSpellName(i, BOOKTYPE_SPELL);

        if not spellNamei then
            return List
        end

        --debug(string.format("spellNamei: %s ", Bonus));

        if spellNamei == spellName then
            _, _, spellRank = string.find(spellRank, " (%d+)$");
            spellRank = tonumber(spellRank);
            if not spellRank then
                return i
            end
            QuickHeal_debug("HEY >>> spellname: " .. spellNamei .. " spellRank: " .. spellRank);
            List[spellRank] = i;
        end
        i = i + 1;
    end
end

-- Returns an estimate of the units heal need for external units
function QuickHeal_EstimateUnitHealNeed(unit, report)
    -- Estimate target health
    local HealthPercentage = UnitHealth(unit) or 0;
    HealthPercentage = HealthPercentage / 100;
    local _, Class = UnitClass(unit);
    Class = Class or "Unknown";
    MaxHealthTab = { warrior = 4100,
                     paladin = 4000,
                     shaman = 3500,
                     rogue = 3100,
                     hunter = 3100,
                     druid = 3100,
                     warlock = 2300,
                     mage = 2200,
                     priest = 2100 };
    local MaxHealth = MaxHealthTab[string.lower(Class)] or 4000;
    local Level = UnitLevel(unit) or 60;

    local HealNeed= 0;

    if HealMultiplier == 1.0 then
        HealNeed = (1 - HealthPercentage) * MaxHealth * Level / 60;
    else
        HealNeed = ((1 - HealthPercentage) * MaxHealth * Level / 60) * HealMultiplier;
    end

    if report then
        QuickHeal_debug("Health deficit estimate (" .. Level .. " " .. string.lower(Class) .. " @ " .. HealthPercentage * 100 .. "%)", HealNeed)
    end
    return HealNeed;
end

function GetRotaSpell(class, maxhealth, healDeficit, type, forceMaxHPS, forceMaxRank, overheal, hdb, incombat)
    --print('class:' .. class ..
    --        ' maxhealth:' .. maxhealth ..
    --        ' healDeficit:' .. healDeficit ..
    --        ' type:' .. type ..
    --        ' forceMaxHPS:' .. tostring(forceMaxHPS) ..
    --        ' forceMaxRank:' .. tostring(forceMaxRank) ..
    --        ' overheal:' .. overheal ..
    --        ' hdb:' .. hdb ..
    --        ' incombat:' .. tostring(incombat));

    -- if forceMaxRank, feed it an obnoxiously large heal requirement
    --if forceMaxRank then
    --    healDeficit = 10000;
    --end

    --local feed =



    if type == "channel" then
        myspell, healsize = FindHealSpellToUseNoTarget(maxhealth, healDeficit, "channel", 1.0, forceMaxHPS, forceMaxRank, hdb, incombat);
    end

    if type == "hot" then
        myspell, healsize = FindHoTSpellToUseNoTarget(maxhealth, healDeficit, "hot", 1.0, forceMaxHPS, forceMaxRank, hdb, incombat);
    end

    if type == "chainheal" then
        myspell, healsize = FindChainHealSpellToUseNoTarget(maxhealth, healDeficit, "chainheal", 1.0, forceMaxHPS, forceMaxRank, hdb, incombat);
    end

    --print('spellID:' .. tostring(myspell));

    -- Get spell info
    local SpellName, SpellRank = GetSpellName(myspell, BOOKTYPE_SPELL);
    local rank;
    if SpellRank == "" then
        SpellRank = nil
    else
        --rank = string.gsub(SpellRank, '%W+$', "")
        rank = string.gsub(SpellRank,"Rank ","")
    end
    local data = SpellName .. ';' .. rank .. ';';

    QuickHeal_debug("  Output: " .. data);
    return data;
end


-- Check if Rejuvenation (Rank 1) is in the spellbook
local function HasRejuvRank1()
    for i = 1, MAX_SPELLS do
        local spellName, spellRank = GetSpellName(i, BOOKTYPE_SPELL);
        if spellName == "Rejuvenation" and spellRank == "Rank 1" then
            return true; -- Rejuvenation (Rank 1) found
        end
    end
    return false; -- Rejuvenation (Rank 1) not found
end

local function _CastSpell(spellID, spellbookType)
    if has_pepo_nam then
        local spellname, spellrank = GetSpellName(spellID, BOOKTYPE_SPELL);
        local spell = spellname .. "("..spellrank .. ")";
        CastSpellByNameNoQueue(spell);
    else
        CastSpell(spellID, spellbookType);
    end
end

local function CastCheckSpell()
    local _, class = UnitClass('player');
    class = string.lower(class);
    if class == "druid" then
        if HasRejuvRank1() then
            -- Cast Rejuvenation if Rank 1 exists in spellbook
            _CastSpell(QuickHeal_GetSpellInfo(QUICKHEAL_SPELL_REJUVENATION)[1].SpellID, BOOKTYPE_SPELL);
        else
            -- Fallback to Healing Touch
            _CastSpell(QuickHeal_GetSpellInfo(QUICKHEAL_SPELL_HEALING_TOUCH)[1].SpellID, BOOKTYPE_SPELL);
        end
    elseif class == "paladin" then
        _CastSpell(QuickHeal_GetSpellInfo(QUICKHEAL_SPELL_HOLY_LIGHT)[1].SpellID, BOOKTYPE_SPELL);
    elseif class == "priest" then
        _CastSpell(QuickHeal_GetSpellInfo(QUICKHEAL_SPELL_LESSER_HEAL)[1].SpellID, BOOKTYPE_SPELL);
    elseif class == "shaman" then
        _CastSpell(QuickHeal_GetSpellInfo(QUICKHEAL_SPELL_HEALING_WAVE)[1].SpellID, BOOKTYPE_SPELL);
    end
end

local function CastCheckSpellHOT()
    local _, class = UnitClass('player');
    class = string.lower(class);

    --QuickHeal_debug("********** BREAKPOINT: CastCheckSpellHOT() **********");
    if class == "druid" then
        _CastSpell(QuickHeal_GetSpellInfo(QUICKHEAL_SPELL_REJUVENATION)[1].SpellID, BOOKTYPE_SPELL);
    elseif class == "paladin" then
        _CastSpell(QuickHeal_GetSpellInfo(QUICKHEAL_SPELL_HOLY_SHOCK)[1].SpellID, BOOKTYPE_SPELL);
    elseif class == "priest" then
        _CastSpell(QuickHeal_GetSpellInfo(QUICKHEAL_SPELL_RENEW)[1].SpellID, BOOKTYPE_SPELL);
    --elseif class == "shaman" then
    --    _CastSpell(QuickHeal_GetSpellInfo(QUICKHEAL_SPELL_HEALING_WAVE)[1].SpellID, BOOKTYPE_SPELL);
    end
    --QuickHeal_debug("********** BREAKPOINT: CastCheckSpellHOT() done **********");
end

local function FindWhoToHeal(Restrict, extParam)
    local playerIds = {};
    local petIds = {};
    local i;
    local AllPlayersAreFull = true;
    local AllPetsAreFull = true;

    -- Self Preservation
    local selfPercentage = (UnitHealth('player') + HealComm:getHeal('player')) / UnitHealthMax('player');
    if (selfPercentage < QHV.RatioForceself) and (selfPercentage < QHV.RatioFull) then
        QuickHeal_debug("********** Self Preservation **********");
        return 'player';
    end

    -- Target Priority
    if QHV.TargetPriority and QuickHeal_UnitHasHealthInfo('target') then
        if (UnitHealth('target') / UnitHealthMax('target')) < QHV.RatioFull then
            QuickHeal_debug("********** Target Priority **********");
            return 'target';
        end
    end

    -- Heal party/raid etc.
    local RestrictParty = false;
    local RestrictSubgroup = false;
    local RestrictMT = false;
    local RestrictNonMT = false;
    if Restrict == "subgroup" then
        QuickHeal_debug("********** Heal Subgroup **********");
        RestrictSubgroup = true;
    elseif Restrict == "party" then
        QuickHeal_debug("********** Heal Party **********");
        RestrictParty = true;
    elseif Restrict == "mt" then
        QuickHeal_debug("********** Heal MT **********");
        RestrictMT = true;
    elseif Restrict == "nonmt" then
        QuickHeal_debug("********** Heal Non MT **********");
        RestrictNonMT = true;
    else
        QuickHeal_debug("********** Heal **********");
    end

    -- Fill playerIds and petIds with healable targets
    if (InRaid() and not RestrictParty) then
        for i = 1, GetNumRaidMembers() do
            if UnitIsHealable("raid" .. i, true) then
                local IsMT = IsMainTank("raid" .. i);
                if not RestrictMT and not RestrictNonMT or RestrictMT and IsMT or RestrictNonMT and not IsMT then
                    playerIds["raid" .. i] = i;  -- every one that will be considered for heal
                    --QH_Debug("healable: " .. i);
                end
            end
            if UnitIsHealable("raidpet" .. i, true) then
                if not RestrictMT then
                    petIds["raidpet" .. i] = i;
                end
            end
        end
    else
        if UnitIsHealable('player', true) then
            playerIds["player"] = 0
        end
        if UnitIsHealable('pet', true) then
            petIds["pet"] = 0
        end
        for i = 1, GetNumPartyMembers() do
            if UnitIsHealable("party" .. i, true) then
                playerIds["party" .. i] = i;
            end
            if UnitIsHealable("partypet" .. i, true) then
                petIds["partypet" .. i] = i;
            end
        end
    end

    local healingTarget = nil;
    local healingTargetHealth = 100000;
    local healingTargetHealthPct = 1;
    local healingTargetMissingHealth = 0;
    local unit;

    -- Clear any healable target
    local OldPlaySound = PlaySound;
    PlaySound = function()
    end
    local TargetWasCleared = false;
    if UnitIsHealable('target') then
        TargetWasCleared = true;
        ClearTarget();
    end

    -- Cast the checkspell
    CastCheckSpell();
    if not SpellIsTargeting() then
        -- Reacquire target if it was cleared
        if TargetWasCleared then
            TargetLastTarget();
        end
        -- Reinsert the PlaySound
        PlaySound = OldPlaySound;
        return false;
    end

    -- Examine Healable Players
    for unit, i in playerIds do
        local SubGroup = false;
        if InRaid() and not RestrictParty and RestrictSubgroup and i <= GetNumRaidMembers() then
            _, _, SubGroup = GetRaidRosterInfo(i);
        end
        if not RestrictSubgroup or RestrictParty or not InRaid() or (SubGroup and not QHV["FilterRaidGroup" .. SubGroup]) then
            if not IsBlacklisted(UnitFullName(unit)) then
                if SpellCanTargetUnit(unit) then
                    QuickHeal_debug(string.format("%s (%s) : %d/%d", UnitFullName(unit), unit, UnitHealth(unit), UnitHealthMax(unit)));

                    --Get who to heal for different classes
                    local IncHeal = HealComm:getHeal(UnitName(unit))
                    local PredictedHealth = (UnitHealth(unit) + IncHeal)
                    local PredictedHealthPct = (UnitHealth(unit) + IncHeal) / UnitHealthMax(unit);
                    local PredictedMissingHealth = UnitHealthMax(unit) - UnitHealth(unit) - IncHeal;

                    if PredictedHealthPct < QHV.RatioFull then
                        local _, PlayerClass = UnitClass('player');
                        PlayerClass = string.lower(PlayerClass);

                        if PlayerClass == "shaman" then
                            if PredictedHealthPct < healingTargetHealthPct then
                                healingTarget = unit;
                                healingTargetHealthPct = PredictedHealthPct;
                                AllPlayersAreFull = false;
                            end
                        elseif PlayerClass == "priest" then
                            if PredictedHealthPct < healingTargetHealthPct then
                                healingTarget = unit;
                                healingTargetHealthPct = PredictedHealthPct;
                                AllPlayersAreFull = false;
                            end
                        elseif PlayerClass == "paladin" then
                            if PredictedHealthPct < healingTargetHealthPct then
                                healingTarget = unit;
                                healingTargetHealthPct = PredictedHealthPct;
                                AllPlayersAreFull = false;
                            end
                        elseif PlayerClass == "druid" then
                            if PredictedHealthPct < healingTargetHealthPct then
                                healingTarget = unit;
                                healingTargetHealthPct = PredictedHealthPct;
                                AllPlayersAreFull = false;
                            end
                        else
                            writeLine(QuickHealData.name .. " " .. QuickHealData.version .. " does not support " .. UnitClass('player') .. ". " .. QuickHealData.name .. " not loaded.")
                            return ;
                        end
                    end


                    --writeLine("Values for "..UnitName(unit)..":")
                    --writeLine("Health: "..UnitHealth(unit) / UnitHealthMax(unit).." | IncHeal: "..IncHeal / UnitHealthMax(unit).." | PredictedHealthPct: "..PredictedHealthPct) --Edelete
                else
                    QuickHeal_debug(UnitFullName(unit) .. " (" .. unit .. ")", "is out-of-range or unhealable");
                end
            else
                QuickHeal_debug(UnitFullName(unit) .. " (" .. unit .. ")", "is blacklisted");
            end
        end
    end
    healPlayerWithLowestPercentageOfLife = 0
    -- Examine Healable Pets
    if QHV.PetPriority > 0 then
        for unit, i in petIds do
            local SubGroup = false;
            if InRaid() and not RestrictParty and RestrictSubgroup and i <= GetNumRaidMembers() then
                _, _, SubGroup = GetRaidRosterInfo(i);
            end
            if not RestrictSubgroup or RestrictParty or not InRaid() or (SubGroup and not QHV["FilterRaidGroup" .. SubGroup]) then
                if not IsBlacklisted(UnitFullName(unit)) then
                    if SpellCanTargetUnit(unit) then
                        QuickHeal_debug(string.format("%s (%s) : %d/%d", UnitFullName(unit), unit, UnitHealth(unit), UnitHealthMax(unit)));
                        local Health = UnitHealth(unit) / UnitHealthMax(unit);
                        if Health < QHV.RatioFull then
                            if ((QHV.PetPriority == 1) and AllPlayersAreFull) or (QHV.PetPriority == 2) or UnitIsUnit(unit, "target") then
                                if Health < healingTargetHealthPct then
                                    healingTarget = unit;
                                    healingTargetHealthPct = Health;
                                    AllPetsAreFull = false;
                                end
                            end
                        end
                    else
                        QuickHeal_debug(UnitFullName(unit) .. " (" .. unit .. ")", "is out-of-range or unhealable");
                    end
                else
                    QuickHeal_debug(UnitFullName(unit) .. " (" .. unit .. ")", "is blacklisted");
                end
            end
        end
    end

    -- Reacquire target if it was cleared earlier, and stop CheckSpell
    SpellStopTargeting();
    if TargetWasCleared then
        TargetLastTarget();
    end
    PlaySound = OldPlaySound;

    -- Examine External Target
    if AllPlayersAreFull and (AllPetsAreFull or QHV.PetPriority == 0) then
        if not QuickHeal_UnitHasHealthInfo('target') and UnitIsHealable('target', true) then
            QuickHeal_debug(string.format("%s (%s) : %d/%d", UnitFullName('target'), 'target', UnitHealth('target'), UnitHealthMax('target')));
            local Health;
            Health = UnitHealth('target') / 100;
            if Health < QHV.RatioFull then
                return 'target';
            end
        end
    end

    return healingTarget;
end

local function FindWhoToHOT(Restrict, extParam, noHpCheck)
    local playerIds = {};
    local petIds = {};
    local i;
    local AllPlayersAreFull = true;
    local AllPetsAreFull = true;

    -- Self Preservation
    local selfPercentage = (UnitHealth('player') + HealComm:getHeal('player')) / UnitHealthMax('player');
    if (selfPercentage < QHV.RatioForceself) and (selfPercentage < QHV.RatioFull) then
        QuickHeal_debug("********** Self Preservation **********");
        if PlayerClass == "priest" then
            if not UnitHasRenew('player') then
                return 'player';
            end
        elseif PlayerClass == "druid" then
            if not UnitHasRejuvenation('player') then
                return 'player';
            end
        elseif PlayerClass == "paladin" then
            return 'player';
        end
    end

    --[[
    -- Target Priority
    if QHV.TargetPriority and QuickHeal_UnitHasHealthInfo('target') then
        if (UnitHealth('target') / UnitHealthMax('target')) < QHV.RatioFull then
            QuickHeal_debug("********** Target Priority **********");
            if PlayerClass == "priest" then
                if not UnitHasRenew('target') then
                    return 'target';
                end
            elseif PlayerClass == "druid" then
                if not UnitHasRejuvenation('target') then
                    return 'target';
                end
            elseif PlayerClass == "paladin" then
                return 'target';
            end
        end
    end
    ]]--

    -- Heal party/raid etc.
    local RestrictParty = false;
    local RestrictSubgroup = false;
    local RestrictMT = false;
    local RestrictNonMT = false;
    if Restrict == "subgroup" then
        QuickHeal_debug("********** HoT Subgroup **********");
        RestrictSubgroup = true;
    elseif Restrict == "party" then
        QuickHeal_debug("********** HoT Party **********");
        RestrictParty = true;
    elseif Restrict == "mt" then
        QuickHeal_debug("********** HoT MT **********");
        RestrictMT = true;
    elseif Restrict == "nonmt" then
        QuickHeal_debug("********** HoT Non MT **********");
        RestrictNonMT = true;
    else
        QuickHeal_debug("********** HoT **********");
    end

    -- Fill playerIds and petIds with healable targets
    if (InRaid() and not RestrictParty) then
        for i = 1, GetNumRaidMembers() do
            if UnitIsHealable("raid" .. i, true) then
                local IsMT = IsMainTank("raid" .. i);
                if not RestrictMT and not RestrictNonMT or RestrictMT and IsMT or RestrictNonMT and not IsMT then
                    playerIds["raid" .. i] = i;  -- every one that will be considered for heal
                    --QH_Debug("healable: " .. i);
                end
            end
            if UnitIsHealable("raidpet" .. i, true) then
                if not RestrictMT then
                    petIds["raidpet" .. i] = i;
                end
            end
        end
    else
        if UnitIsHealable('player', true) then
            playerIds["player"] = 0
        end
        if UnitIsHealable('pet', true) then
            petIds["pet"] = 0
        end
        for i = 1, GetNumPartyMembers() do
            if UnitIsHealable("party" .. i, true) then
                playerIds["party" .. i] = i;
            end
            if UnitIsHealable("partypet" .. i, true) then
                petIds["partypet" .. i] = i;
            end
        end
    end

    local healingTarget = nil;
    local healingTargetHealth = 100000;
    local healingTargetHealthPct = 1;
    local healingTargetMissingHealth = 0;
    local unit;

    -- Clear any healable target
    local OldPlaySound = PlaySound;
    PlaySound = function()
    end
    local TargetWasCleared = false;
    if UnitIsHealable('target') then
        TargetWasCleared = true;
        ClearTarget();
    end

    -- Cast the checkspell
    CastCheckSpellHOT();
    if not SpellIsTargeting() then
        -- Reacquire target if it was cleared
        if TargetWasCleared then
            TargetLastTarget();
        end
        -- Reinsert the PlaySound
        PlaySound = OldPlaySound;
        return false;
    end

    -- Examine Healable Players
    for unit, i in playerIds do
        local SubGroup = false;
        if InRaid() and not RestrictParty and RestrictSubgroup and i <= GetNumRaidMembers() then
            _, _, SubGroup = GetRaidRosterInfo(i);
        end
        if not RestrictSubgroup or RestrictParty or not InRaid() or (SubGroup and not QHV["FilterRaidGroup" .. SubGroup]) then
            if not IsBlacklisted(UnitFullName(unit)) then
                if SpellCanTargetUnit(unit) then
                    QuickHeal_debug(string.format("%s (%s) : %d/%d", UnitFullName(unit), unit, UnitHealth(unit), UnitHealthMax(unit)));

                    local _, PlayerClass = UnitClass('player');
                    PlayerClass = string.lower(PlayerClass);

                    local IncHeal = HealComm:getHeal(UnitName(unit))
                    local PredictedHealth = (UnitHealth(unit) + IncHeal)
                    local PredictedHealthPct = (UnitHealth(unit) + IncHeal) / UnitHealthMax(unit);
                    local PredictedMissingHealth = UnitHealthMax(unit) - UnitHealth(unit) - IncHeal;

                    if noHpCheck then
                        if PlayerClass == "priest" then
                            if not UnitHasRenew(unit) then
                                if PredictedHealthPct < healingTargetHealthPct or healingTargetHealthPct == 1 then
                                    healingTarget = unit;
                                    healingTargetHealthPct = PredictedHealthPct;
                                    AllPlayersAreFull = false;
                                end
                            end
                        elseif PlayerClass == "druid" then
                            if not UnitHasRejuvenation(unit) then
                                if PredictedHealthPct < healingTargetHealthPct or healingTargetHealthPct == 1 then
                                    healingTarget = unit;
                                    healingTargetHealthPct = PredictedHealthPct;
                                    AllPlayersAreFull = false;
                                end
			    end
                        elseif PlayerClass == "paladin" then
                            if PredictedHealthPct < healingTargetHealthPct or healingTargetHealthPct == 1 then
                                healingTarget = unit;
                                healingTargetHealthPct = PredictedHealthPct;
                                AllPlayersAreFull = false;
                            end
                        else
                            writeLine(QuickHealData.name .. " " .. QuickHealData.version .. " does not support " .. UnitClass('player') .. ". " .. QuickHealData.name .. " not loaded.")
                            return ;
                        end
                    else
                        --Get who to heal for different classes
                        --local IncHeal = HealComm:getHeal(UnitName(unit))
                        --local PredictedHealth = (UnitHealth(unit) + IncHeal)
                        --local PredictedHealthPct = (UnitHealth(unit) + IncHeal) / UnitHealthMax(unit);
                        --local PredictedMissingHealth = UnitHealthMax(unit) - UnitHealth(unit) - IncHeal;

                        if PredictedHealthPct < QHV.RatioFull then
                            local _, PlayerClass = UnitClass('player');
                            PlayerClass = string.lower(PlayerClass);

                            if PlayerClass == "priest" then
                                if PredictedMissingHealth > healingTargetMissingHealth then
                                    if not UnitHasRenew(unit) then
                                        healingTarget = unit;
                                        healingTargetMissingHealth = PredictedMissingHealth;
                                        AllPlayersAreFull = false;
                                    end
                                end
                            elseif PlayerClass == "druid" then
                                if PredictedMissingHealth > healingTargetMissingHealth then
                                    if not UnitHasRejuvenation(unit) then
                                        healingTarget = unit;
                                        healingTargetMissingHealth = PredictedMissingHealth;
                                        AllPlayersAreFull = false;
                                    end
                                end
                            elseif PlayerClass == "paladin" then
                                if PredictedMissingHealth > healingTargetMissingHealth then
                                    healingTarget = unit;
                                    healingTargetMissingHealth = PredictedMissingHealth;
                                    AllPlayersAreFull = false;
                                end
                            else
                                writeLine(QuickHealData.name .. " " .. QuickHealData.version .. " does not support " .. UnitClass('player') .. ". " .. QuickHealData.name .. " not loaded.")
                                return ;
                            end
                        end
                    end
                else
                    QuickHeal_debug(UnitFullName(unit) .. " (" .. unit .. ")", "is out-of-range or unhealable");
                end
            else
                QuickHeal_debug(UnitFullName(unit) .. " (" .. unit .. ")", "is blacklisted");
            end
        end
    end
    healPlayerWithLowestPercentageOfLife = 0
    -- Examine Healable Pets
    if QHV.PetPriority > 0 then
        for unit, i in petIds do
            local SubGroup = false;
            if InRaid() and not RestrictParty and RestrictSubgroup and i <= GetNumRaidMembers() then
                _, _, SubGroup = GetRaidRosterInfo(i);
            end
            if not RestrictSubgroup or RestrictParty or not InRaid() or (SubGroup and not QHV["FilterRaidGroup" .. SubGroup]) then
                if not IsBlacklisted(UnitFullName(unit)) then
                    if SpellCanTargetUnit(unit) then
                        QuickHeal_debug(string.format("%s (%s) : %d/%d", UnitFullName(unit), unit, UnitHealth(unit), UnitHealthMax(unit)));
                        local Health = UnitHealth(unit) / UnitHealthMax(unit);
                        if Health < QHV.RatioFull then
                            if ((QHV.PetPriority == 1) and AllPlayersAreFull) or (QHV.PetPriority == 2) or UnitIsUnit(unit, "target") then
                                if Health < healingTargetHealthPct then
                                    healingTarget = unit;
                                    healingTargetHealthPct = Health;
                                    AllPetsAreFull = false;
                                end
                            end
                        end
                    else
                        QuickHeal_debug(UnitFullName(unit) .. " (" .. unit .. ")", "is out-of-range or unhealable");
                    end
                else
                    QuickHeal_debug(UnitFullName(unit) .. " (" .. unit .. ")", "is blacklisted");
                end
            end
        end
    end

    -- Reacquire target if it was cleared earlier, and stop CheckSpell
    SpellStopTargeting();
    if TargetWasCleared then
        TargetLastTarget();
    end
    PlaySound = OldPlaySound;

    -- Examine External Target
    if AllPlayersAreFull and (AllPetsAreFull or QHV.PetPriority == 0) then
        if not QuickHeal_UnitHasHealthInfo('target') and UnitIsHealable('target', true) then
            QuickHeal_debug(string.format("%s (%s) : %d/%d", UnitFullName('target'), 'target', UnitHealth('target'), UnitHealthMax('target')));
            local Health;
            Health = UnitHealth('target') / 100;
            if Health < QHV.RatioFull then
                return 'target';
            end
        end
    end

    return healingTarget;
end


local function Notification(unit, spellName)
    local unitName = UnitFullName(unit);
    local rand = math.random(1, 10);
    local read;
    local _, race = UnitRace('player');
    race = string.lower(race);

    if race == "scourge" then
        rand = math.random(1, 7);
    end

    if race == "human" then
        rand = math.random(1, 7);
    end

    if race == "dwarf" then
        rand = math.random(1, 7);
    end

    -- If Normal notification style is selected override random number (also if healing self)
    if QHV.NotificationStyle == "NORMAL" or UnitIsUnit('player', unit) then
        rand = 0;
    end

    if rand == 0 then
        read = string.format(QHV.NotificationTextNormal, unitName, spellName)
    end
    if rand == 1 then
        read = string.format("%s is looking pale, gonna heal you with %s.", unitName, spellName)
    end
    if rand == 2 then
        read = string.format("%s doesn't look so hot, healing with %s.", unitName, spellName)
    end
    if rand == 3 then
        read = string.format("I know it's just a flesh wound %s, but I'm healing you with %s.", unitName, spellName)
    end
    if rand == 4 then
        read = string.format("Oh great, %s is bleeding all over, %s should take care of that.", unitName, spellName)
    end
    if rand == 5 then
        read = string.format("Death is near %s... or is it? Perhaps a heal with %s will keep you with us.", unitName, spellName)
    end
    if rand == 6 then
        read = string.format("%s, lack of health got you down? %s to the rescue!", unitName, spellName)
    end
    if rand == 7 then
        read = string.format("%s is being healed with %s.", unitName, spellName)
    end
    if race == "orc" then
        if rand == 8 then
            read = string.format("Zug Zug %s with %s.", unitName, spellName)
        end
        if rand == 9 then
            read = string.format("Loktar! %s is being healed with %s.", unitName, spellName)
        end
        if rand == 10 then
            read = string.format("Health gud %s, %s make you healthy again!", unitName, spellName)
        end
    end
    if race == "tauren" then
        if rand == 8 then
            read = string.format("By the spirits, %s be healed with %s.", unitName, spellName)
        end
        if rand == 9 then
            read = string.format("Ancestors, save %s with %s.", unitName, spellName)
        end
        if rand == 10 then
            read = string.format("Your noble sacrifice is not in vain %s, %s will keep you in the fight!", unitName, spellName)
        end
    end
    if race == "troll" then
        if rand == 8 then
            read = string.format("Whoa mon, doncha be dyin' on me yet! %s is gettin' %s'd.", unitName, spellName)
        end
        if rand == 9 then
            read = string.format("Haha! %s keeps dyin' an da %s voodoo, keeps bringin' em back!.", unitName, spellName)
        end
        if rand == 10 then
            read = string.format("Doncha tink the heal is comin' %s, %s should keep ya' from whinin' too much!", unitName, spellName)
        end
    end
    if race == "night elf" then
        if rand == 8 then
            read = string.format("Asht'velanon, %s! Elune sends you the gift of %s.", unitName, spellName)
        end
        if rand == 9 then
            read = string.format("Remain vigilent %s, the Goddess' %s shall revitalize you!", unitName, spellName)
        end
        if rand == 10 then
            read = string.format("By Elune's grace I grant you this %s, %s.", spellName, unitName)
        end
    end

    -- Check if NotificationChannelName exists as a channel
    local ChannelNo, ChannelName = GetChannelName(QHV.NotificationChannelName);

    if QHV.NotificationChannel and ChannelNo ~= 0 and ChannelName then
        SendChatMessage(read, "CHANNEL", nil, ChannelNo);
    elseif QHV.NotificationRaid and InRaid() then
        SendChatMessage(read, "RAID");
    elseif QHV.NotificationParty and InParty() and not InRaid() then
        SendChatMessage(read, "PARTY");
    end

    if QHV.NotificationWhisper and not UnitIsUnit('player', unit) and UnitIsPlayer(unit) then
        SendChatMessage(string.format(QHV.NotificationTextWhisper, spellName), "WHISPER", nil, unitName);
    end

end

-- Heals Target with SpellID, no checking on parameters
local function ExecuteHeal(Target, SpellID)
    local TargetWasChanged = false;

    -- Setup the monitor and related events
    StartMonitor(Target);

    -- Supress sound from target-switching
    local OldPlaySound = PlaySound;
    PlaySound = function()
    end

    -- If the current target is healable, take special measures
    if UnitIsHealable('target') then
        -- If the healing target is targettarget change current healable target to targettarget
        if Target == 'targettarget' then
            local old = UnitFullName('target');
            TargetUnit('targettarget');
            Target = 'target';
            TargetWasChanged = true;
            QuickHeal_debug("Healable target preventing healing, temporarily switching target to target's target", old, '-->', UnitFullName('target'));
        end
        -- If healing target is not the current healable target clear the healable target
        if not (Target == 'target') then
            QuickHeal_debug("Healable target preventing healing, temporarily clearing target", UnitFullName('target'));
            ClearTarget();
            TargetWasChanged = true;
        end
    end

    -- Get spell info
    local SpellName, SpellRank = GetSpellName(SpellID, BOOKTYPE_SPELL);
    if SpellRank == "" then
        SpellRank = nil
    end
    local SpellNameAndRank = SpellName .. (SpellRank and " (" .. SpellRank .. ")" or "");

    QuickHeal_debug("  Casting: " .. SpellNameAndRank .. " on " .. UnitFullName(Target) .. " (" .. Target .. ")" .. ", ID: " .. SpellID);

    -- Clear any pending spells
    if SpellIsTargeting() then
        SpellStopTargeting()
    end

    -- Cast the spell
    CastSpell(SpellID, BOOKTYPE_SPELL);

    -- Target == 'target'
    -- Instant channeling --> succesful cast
    -- Instant channeling --> instant 'out of range' fail
    -- Instant channeling --> delayed 'line of sight' fail
    -- No channeling --> SpellStillTargeting (unhealable NPC's, duelists etc.)

    -- Target ~= 'target'
    -- SpellCanTargetUnit == true
    -- Channeling --> succesful cast
    -- Channeling --> instant 'out of range' fail
    -- Channeling --> delayed 'line of sight' fail
    -- No channeling --> SpellStillTargeting (unknown circumstances)
    -- SpellCanTargetUnit == false
    -- Duels/unhealable NPC's etc.

    -- The spell is awaiting target selection, write to screen if the spell can actually be cast
    if SpellCanTargetUnit(Target) or ((Target == 'target') and HealingTarget) then

        Notification(Target, SpellNameAndRank);

        -- Write to center of screen
        if UnitIsUnit(Target, 'player') then
            Message(string.format("Casting %s on yourself", SpellNameAndRank), "Healing", 3)
        else
            Message(string.format("Casting %s on %s", SpellNameAndRank, UnitFullName(Target)), "Healing", 3)
        end
    end

    -- Assign the target of the healing spell
    SpellTargetUnit(Target);

    -- just in case something went wrong here (Healing people in duels!)
    if SpellIsTargeting() then
        StopMonitor("Spell cannot target " .. (UnitFullName(Target) or "unit"));
        SpellStopTargeting()
    end

    -- Reacquire target if it was changed earlier
    if TargetWasChanged then
        local old = UnitFullName('target') or "None";
        TargetLastTarget();
        QuickHeal_debug("Reacquired previous target", old, '-->', UnitFullName('target'));
    end

    -- Enable sound again
    PlaySound = OldPlaySound;
end

-- HOTs Target with SpellID, no checking on parameters
local function ExecuteHOT(Target, SpellID)
    local TargetWasChanged = false;

    -- Setup the monitor and related events
    --StartMonitor(Target);

    -- Supress sound from target-switching
    local OldPlaySound = PlaySound;
    PlaySound = function()
    end

    -- If the current target is healable, take special measures
    if UnitIsHealable('target') then
        -- If the healing target is targettarget change current healable target to targettarget
        if Target == 'targettarget' then
            local old = UnitFullName('target');
            TargetUnit('targettarget');
            Target = 'target';
            TargetWasChanged = true;
            QuickHeal_debug("Healable target preventing healing, temporarily switching target to target's target", old, '-->', UnitFullName('target'));
        end
        -- If healing target is not the current healable target clear the healable target
        if not (Target == 'target') then
            QuickHeal_debug("Healable target preventing healing, temporarily clearing target", UnitFullName('target'));
            ClearTarget();
            TargetWasChanged = true;
        end
    end

    -- Get spell info
    local SpellName, SpellRank = GetSpellName(SpellID, BOOKTYPE_SPELL);
    if SpellRank == "" then
        SpellRank = nil
    end
    local SpellNameAndRank = SpellName .. (SpellRank and " (" .. SpellRank .. ")" or "");

    QuickHeal_debug("  Casting: " .. SpellNameAndRank .. " on " .. UnitFullName(Target) .. " (" .. Target .. ")" .. ", ID: " .. SpellID);

    -- Clear any pending spells
    if SpellIsTargeting() then
        SpellStopTargeting()
    end

    -- Cast the spell
    CastSpell(SpellID, BOOKTYPE_SPELL);

    -- Target == 'target'
    -- Instant channeling --> succesful cast
    -- Instant channeling --> instant 'out of range' fail
    -- Instant channeling --> delayed 'line of sight' fail
    -- No channeling --> SpellStillTargeting (unhealable NPC's, duelists etc.)

    -- Target ~= 'target'
    -- SpellCanTargetUnit == true
    -- Channeling --> succesful cast
    -- Channeling --> instant 'out of range' fail
    -- Channeling --> delayed 'line of sight' fail
    -- No channeling --> SpellStillTargeting (unknown circumstances)
    -- SpellCanTargetUnit == false
    -- Duels/unhealable NPC's etc.

    -- The spell is awaiting target selection, write to screen if the spell can actually be cast
    if SpellCanTargetUnit(Target) or ((Target == 'target') and HealingTarget) then

        Notification(Target, SpellNameAndRank);

        -- Write to center of screen
        if UnitIsUnit(Target, 'player') then
            Message(string.format("Casting %s on yourself", SpellNameAndRank), "Healing", 3)
        else
            Message(string.format("Casting %s on %s", SpellNameAndRank, UnitFullName(Target)), "Healing", 3)
        end
    end

    -- Assign the target of the healing spell
    SpellTargetUnit(Target);

    -- just in case something went wrong here (Healing people in duels!)
    if SpellIsTargeting() then
        StopMonitor("Spell cannot target " .. (UnitFullName(Target) or "unit"));
        SpellStopTargeting()
    end

    -- Reacquire target if it was changed earlier
    if TargetWasChanged then
        local old = UnitFullName('target') or "None";
        TargetLastTarget();
        QuickHeal_debug("Reacquired previous target", old, '-->', UnitFullName('target'));
    end

    -- Enable sound again
    PlaySound = OldPlaySound;
end

-- Heals the specified Target with the specified Spell
-- If parameters are missing they will be determined automatically
function QuickChainHeal(Target, SpellID, extParam, forceMaxRank)

    -- Only one instance of QuickHeal allowed at a time
    if QuickHealBusy then
        if HealingTarget and MassiveOverhealInProgress then
            QuickHeal_debug("Massive overheal aborted.");
            SpellStopCasting();
        else
            QuickHeal_debug("Healing in progress, command ignored");
        end
        return ;
    end

    QuickHealBusy = true;
    local AutoSelfCast = GetCVar("autoSelfCast");
    SetCVar("autoSelfCast", 0);

    -- Protect against invalid extParam
    if not (type(extParam) == "table") then
        extParam = {}
    end

    -- Decode special values for Target
    local Restrict = nil;
    if Target then
        Target = string.lower(Target)
    end
    if Target == "party" or Target == "subgroup" then
        Restrict = Target;
        Target = nil;
    elseif Target == "mt" or Target == "nonmt" then
        if InRaid() then
            Restrict = Target;
            Target = nil;
        else
            Message("You are not in a raid", "Error", 2);
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    end

    if Target then
        -- Target is specified, check it
        QuickHeal_debug("********** Heal " .. Target .. " **********");
        if UnitIsHealable(Target, true) then
            QuickHeal_debug(string.format("%s (%s) : %d/%d", UnitFullName(Target), Target, UnitHealth(Target), UnitHealthMax(Target)));
            local targetPercentage;
            if QuickHeal_UnitHasHealthInfo(Target) then
                targetPercentage = (UnitHealth(Target) + HealComm:getHeal(UnitName(Target))) / UnitHealthMax(Target);
            else
                targetPercentage = UnitHealth(Target) / 100;
            end
            if targetPercentage < QHV.RatioFull then
                -- Does need healing (fall through to healing code)
            else
                -- Does not need healing
                if UnitIsUnit(Target, 'player') then
                    Message("You don't need healing", "Info", 2);
                elseif Target == 'target' then
                    Message(UnitFullName('target') .. " doesn't need healing", "Info", 2);
                elseif Target == "targettarget" then
                    Message(UnitFullName('target') .. "'s Target (" .. UnitFullName('targettarget') .. ") doesn't need healing", "Info", 2);
                else
                    Message(UnitFullName(Target) .. " doesn't need healing", "Info", 2);
                end
                SetCVar("autoSelfCast", AutoSelfCast);
                QuickHealBusy = false;
                return ;
            end
        else
            -- Unit is not healable, report reason and return
            if Target == 'target' and not UnitExists('target') then
                Message("You don't have a target", "Error", 2);
            elseif Target == 'targettarget' then
                if not UnitExists('target') then
                    Message("You don't have a target", "Error", 2);
                elseif not UnitExists('targettarget') then
                    Message((UnitFullName('target') or "Target") .. " doesn't have a target", "Error", 2);
                else
                    Message(UnitFullName('target') .. "'s Target (" .. UnitFullName('targettarget') .. ") cannot be healed", "Error", 2);
                end
            elseif UnitExists(Target) then
                -- Unit exists but cannot be healed
                if UnitIsUnit(Target, 'player') then
                    Message("You cannot be healed", "Error", 2);
                else
                    Message(UnitFullName(Target) .. " cannot be healed", "Error", 2);
                end
            else
                Message("Unit does not exist", "Error", 2);
            end
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    else
        -- Target not specified, determine automatically
        Target = FindWhoToHeal(Restrict, extParam)
        if not Target then
            -- No healing target found
            if Target == false then
                -- Means that FindWhoToHeal couldn't cast the CheckSpell (reason will be reported by UI)
            else
                if Restrict == "mt" then
                    local tanks = false;

                    --local i, v;
                    --for i, v in pairs(CT_RA_MainTanks or (oRA_MainTank and oRA_MainTank.MainTankTable or nil) or {}) do
                    --    tanks = true;
                    --    break ;
                    --end
                    local t, y;
                    for t, y in pairs(QHV.MTList) do
                        tanks = true;
                        break ;
                    end

                    if not tanks then
                        Message("No players assigned as Main Tank by Raid Leader", "Error", 2);
                    else
                        Message("No Main Tank to heal", "Info", 2);
                    end
                elseif InParty() or InRaid() then
                    Message("No one to heal", "Info", 2);
                else
                    Message("You don't need healing", "Info", 2);
                end
            end
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    end

    -- Target acquired
    QuickHeal_debug(string.format("  Healing target: %s (%s)", UnitFullName(Target), Target));

    --HealingSpellSize = 0;
    HealingSpellSize = 0;

    -- Check SpellID input
    if not SpellID then
        -- No SpellID specified, find appropriate spell
        SpellID, HealingSpellSize = FindChainHealSpellToUse(Target, "channel", 1.0, forceMaxRank);

    elseif type(SpellID) == "string" then
        -- Spell specified as string, extract name and possibly rank
        local _, _, sname, srank = string.find(SpellID, "^(..-)%s*(%d*)$")
        SpellID = nil;
        if sname and srank then
            -- Both substrings matched, get a list of SpellIDs
            local slist = QuickHeal_GetSpellInfo(sname);

            if slist[0] then
                -- Spell does not have different ranks use entry 0
                SpellID = slist[0].SpellID;
                --HealingSpellSize = slist[0].Heal;
            elseif table.getn(slist) > 0 then
                -- Spell has different ranks get the one specified or choose max rank
                srank = tonumber(srank);
                if srank and slist[srank] then
                    -- Rank specified and exists
                    SpellID = slist[srank].SpellID;
                    --HealingSpellSize = slist[srank].Heal;
                else
                    -- rank not specified or does not exist, use max rank
                    SpellID = slist[table.getn(slist)].SpellID;
                    --HealingSpellSize = slist[table.getn(slist)].Heal;
                end
            end
        end
        if not SpellID then
            -- Failed to decode the string
            Message("Spell not found", "Error", 2);
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    end

    if SpellID then
        --QuickHeal_debug(string.format("  Target: %s / SpellID: %s", UnitFullName(Target), Target));
        ExecuteHeal(Target, SpellID);
    else
        Message("You have no healing spells to cast", "Error", 2);
    end

    SetCVar("autoSelfCast", AutoSelfCast);
end

-- Heals the specified Target with the specified Spell
-- If parameters are missing they will be determined automatically
function QuickHeal(Target, SpellID, extParam, forceMaxHPS)

    -- Only one instance of QuickHeal allowed at a time
    if QuickHealBusy then
        if HealingTarget and MassiveOverhealInProgress then
            QuickHeal_debug("Massive overheal aborted.");
            SpellStopCasting();
        else
            QuickHeal_debug("Healing in progress, command ignored");
        end
        return ;
    end

    QuickHealBusy = true;
    local AutoSelfCast = GetCVar("autoSelfCast");
    SetCVar("autoSelfCast", 0);

    -- Protect against invalid extParam
    if not (type(extParam) == "table") then
        extParam = {}
    end

    -- Decode special values for Target
    local Restrict = nil;
    if Target then
        Target = string.lower(Target)
    end
    if Target == "party" or Target == "subgroup" then
        Restrict = Target;
        Target = nil;
    elseif Target == "mt" or Target == "nonmt" then
        if InRaid() then
            Restrict = Target;
            Target = nil;
        else
            Message("You are not in a raid", "Error", 2);
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    end

    if Target then
        -- Target is specified, check it
        QuickHeal_debug("********** Heal " .. Target .. " **********");
        if UnitIsHealable(Target, true) then
            QuickHeal_debug(string.format("%s (%s) : %d/%d", UnitFullName(Target), Target, UnitHealth(Target), UnitHealthMax(Target)));
            local targetPercentage;
            if QuickHeal_UnitHasHealthInfo(Target) then
                targetPercentage = (UnitHealth(Target) + HealComm:getHeal(UnitName(Target))) / UnitHealthMax(Target);
            else
                targetPercentage = UnitHealth(Target) / 100;
            end
            if targetPercentage < QHV.RatioFull then
                -- Does need healing (fall through to healing code)
            else
                -- Does not need healing
                if UnitIsUnit(Target, 'player') then
                    Message("You don't need healing", "Info", 2);
                elseif Target == 'target' then
                    Message(UnitFullName('target') .. " doesn't need healing", "Info", 2);
                elseif Target == "targettarget" then
                    Message(UnitFullName('target') .. "'s Target (" .. UnitFullName('targettarget') .. ") doesn't need healing", "Info", 2);
                else
                    Message(UnitFullName(Target) .. " doesn't need healing", "Info", 2);
                end
                SetCVar("autoSelfCast", AutoSelfCast);
                QuickHealBusy = false;
                return ;
            end
        else
            -- Unit is not healable, report reason and return
            if Target == 'target' and not UnitExists('target') then
                Message("You don't have a target", "Error", 2);
            elseif Target == 'targettarget' then
                if not UnitExists('target') then
                    Message("You don't have a target", "Error", 2);
                elseif not UnitExists('targettarget') then
                    Message((UnitFullName('target') or "Target") .. " doesn't have a target", "Error", 2);
                else
                    Message(UnitFullName('target') .. "'s Target (" .. UnitFullName('targettarget') .. ") cannot be healed", "Error", 2);
                end
            elseif UnitExists(Target) then
                -- Unit exists but cannot be healed
                if UnitIsUnit(Target, 'player') then
                    Message("You cannot be healed", "Error", 2);
                else
                    Message(UnitFullName(Target) .. " cannot be healed", "Error", 2);
                end
            else
                Message("Unit does not exist", "Error", 2);
            end
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    else
        -- Target not specified, determine automatically
        Target = FindWhoToHeal(Restrict, extParam)
        if not Target then
            -- No healing target found
            if Target == false then
                -- Means that FindWhoToHeal couldn't cast the CheckSpell (reason will be reported by UI)
            else
                if Restrict == "mt" then
                    local tanks = false;

                    --local i, v;
                    --for i, v in pairs(CT_RA_MainTanks or (oRA_MainTank and oRA_MainTank.MainTankTable or nil) or {}) do
                    --    tanks = true;
                    --    break ;
                    --end
                    local t, y;
                    for t, y in pairs(QHV.MTList) do
                        tanks = true;
                        break ;
                    end

                    if not tanks then
                        Message("No players assigned as Main Tank by Raid Leader", "Error", 2);
                    else
                        Message("No Main Tank to heal", "Info", 2);
                    end
                elseif InParty() or InRaid() then
                    Message("No one to heal", "Info", 2);
                else
                    Message("You don't need healing", "Info", 2);
                end
            end
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    end

    -- Target acquired
    QuickHeal_debug(string.format("  Healing target: %s (%s)", UnitFullName(Target), Target));

    HealingSpellSize = 0;

    -- Check SpellID input
    if not SpellID then
        -- No SpellID specified, find appropriate spell
        SpellID, HealingSpellSize = FindHealSpellToUse(Target, "channel", 1.0, forceMaxHPS);
    elseif type(SpellID) == "string" then
        -- Spell specified as string, extract name and possibly rank
        local _, _, sname, srank = string.find(SpellID, "^(..-)%s*(%d*)$")
        SpellID = nil;
        if sname and srank then
            -- Both substrings matched, get a list of SpellIDs
            local slist = QuickHeal_GetSpellInfo(sname);

            if slist[0] then
                -- Spell does not have different ranks use entry 0
                SpellID = slist[0].SpellID;
                --HealingSpellSize = slist[0].Heal;
            elseif table.getn(slist) > 0 then
                -- Spell has different ranks get the one specified or choose max rank
                srank = tonumber(srank);
                if srank and slist[srank] then
                    -- Rank specified and exists
                    SpellID = slist[srank].SpellID;
                    --HealingSpellSize = slist[srank].Heal;
                else
                    -- rank not specified or does not exist, use max rank
                    SpellID = slist[table.getn(slist)].SpellID;
                    --HealingSpellSize = slist[table.getn(slist)].Heal;
                end
            end
        end
        if not SpellID then
            -- Failed to decode the string
            Message("Spell not found", "Error", 2);
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    end

    if SpellID then
        ExecuteHeal(Target, SpellID);
    else
        Message("You have no healing spells to cast", "Error", 2);
    end

    SetCVar("autoSelfCast", AutoSelfCast);
end

-- HOTs the specified Target with the specified Spell
-- If parameters are missing they will be determined automatically
function QuickHOT(Target, SpellID, extParam, forceMaxRank, noHpCheck)

    -- Only one instance of QuickHeal allowed at a time
    if QuickHealBusy then
        if HealingTarget and MassiveOverhealInProgress then
            QuickHeal_debug("Massive overheal aborted.");
            SpellStopCasting();
        else
            QuickHeal_debug("Healing in progress, command ignored");
        end
        return ;
    end

    QuickHealBusy = true;
    local AutoSelfCast = GetCVar("autoSelfCast");
    SetCVar("autoSelfCast", 0);

    -- Protect against invalid extParam
    if not (type(extParam) == "table") then
        extParam = {}
    end

    -- Decode special values for Target
    local Restrict = nil;
    if Target then
        Target = string.lower(Target)
    end
    if Target == "party" or Target == "subgroup" then
        Restrict = Target;
        Target = nil;
    elseif Target == "mt" or Target == "nonmt" then
        if InRaid() then
            Restrict = Target;
            Target = nil;
        else
            Message("You are not in a raid", "Error", 2);
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    end

    if Target then
        -- Target is specified, check it
        QuickHeal_debug("********** Heal " .. Target .. " **********");
        if UnitIsHealable(Target, true) then
            QuickHeal_debug(string.format("%s (%s) : %d/%d", UnitFullName(Target), Target, UnitHealth(Target), UnitHealthMax(Target)));
            local targetPercentage;
            if QuickHeal_UnitHasHealthInfo(Target) then
                targetPercentage = (UnitHealth(Target) + HealComm:getHeal(UnitName(Target))) / UnitHealthMax(Target);
            else
                targetPercentage = UnitHealth(Target) / 100;
            end
            if targetPercentage < QHV.RatioFull then
                -- Does need healing (fall through to healing code)
            else
                -- Does not need healing
                if UnitIsUnit(Target, 'player') then
                    Message("You don't need healing", "Info", 2);
                elseif Target == 'target' then
                    Message(UnitFullName('target') .. " doesn't need healing", "Info", 2);
                elseif Target == "targettarget" then
                    Message(UnitFullName('target') .. "'s Target (" .. UnitFullName('targettarget') .. ") doesn't need healing", "Info", 2);
                else
                    Message(UnitFullName(Target) .. " doesn't need healing", "Info", 2);
                end
                SetCVar("autoSelfCast", AutoSelfCast);
                QuickHealBusy = false;
                return ;
            end
        else
            -- Unit is not healable, report reason and return
            if Target == 'target' and not UnitExists('target') then
                Message("You don't have a target", "Error", 2);
            elseif Target == 'targettarget' then
                if not UnitExists('target') then
                    Message("You don't have a target", "Error", 2);
                elseif not UnitExists('targettarget') then
                    Message((UnitFullName('target') or "Target") .. " doesn't have a target", "Error", 2);
                else
                    Message(UnitFullName('target') .. "'s Target (" .. UnitFullName('targettarget') .. ") cannot be healed", "Error", 2);
                end
            elseif UnitExists(Target) then
                -- Unit exists but cannot be healed
                if UnitIsUnit(Target, 'player') then
                    Message("You cannot be healed", "Error", 2);
                else
                    Message(UnitFullName(Target) .. " cannot be healed", "Error", 2);
                end
            else
                Message("Unit does not exist", "Error", 2);
            end
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    else
        -- Target not specified, determine automatically
        Target = FindWhoToHOT(Restrict, extParam, noHpCheck)
        if not Target then
            -- No healing target found
            if Target == false then
                -- Means that FindWhoToHeal couldn't cast the CheckSpell (reason will be reported by UI)
            else
                if Restrict == "mt" then
                    local tanks = false;

                    --local i, v;
                    --for i, v in pairs(CT_RA_MainTanks or (oRA_MainTank and oRA_MainTank.MainTankTable or nil) or {}) do
                    --    tanks = true;
                    --    break ;
                    --end
                    local t, y;
                    for t, y in pairs(QHV.MTList) do
                        tanks = true;
                        break ;
                    end

                    if not tanks then
                        Message("No players assigned as Main Tank by Raid Leader", "Error", 2);
                    else
                        Message("No Main Tank to heal", "Info", 2);
                    end
                elseif InParty() or InRaid() then
                    Message("No one to heal", "Info", 2);
                else
                    Message("You don't need healing", "Info", 2);
                end
            end
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    end

    -- Target acquired
    QuickHeal_debug(string.format("  Healing target: %s (%s)", UnitFullName(Target), Target));

    HealingSpellSize = 0;

    -- Check SpellID input
    if not SpellID then
        -- No SpellID specified, find appropriate spell
        SpellID, HealingSpellSize = FindHoTSpellToUse(Target, "hot", forceMaxRank);
    elseif type(SpellID) == "string" then
        -- Spell specified as string, extract name and possibly rank
        local _, _, sname, srank = string.find(SpellID, "^(..-)%s*(%d*)$")
        SpellID = nil;
        if sname and srank then
            -- Both substrings matched, get a list of SpellIDs
            local slist = QuickHeal_GetSpellInfo(sname);

            if slist[0] then
                -- Spell does not have different ranks use entry 0
                SpellID = slist[0].SpellID;
                --HealingSpellSize = slist[0].Heal;
            elseif table.getn(slist) > 0 then
                -- Spell has different ranks get the one specified or choose max rank
                srank = tonumber(srank);
                if srank and slist[srank] then
                    -- Rank specified and exists
                    SpellID = slist[srank].SpellID;
                    --HealingSpellSize = slist[srank].Heal;
                else
                    -- rank not specified or does not exist, use max rank
                    SpellID = slist[table.getn(slist)].SpellID;
                    --HealingSpellSize = slist[table.getn(slist)].Heal;
                end
            end
        end
        if not SpellID then
            -- Failed to decode the string
            Message("Spell not found", "Error", 2);
            SetCVar("autoSelfCast", AutoSelfCast);
            QuickHealBusy = false;
            return ;
        end
    end

    -- JGP debug
    --jgpprint("---------------------------------------------");
    jgpprint(tostring(SpellID));
    --SpellID = 25315;

    if SpellID then
        ExecuteHOT(Target, SpellID);
        QuickHealBusy = false;
    else
        Message("You have no healing spells to cast", "Error", 2);
    end

    SetCVar("autoSelfCast", AutoSelfCast);
end

function ToggleDownrankWindow()
    if QuickHeal_DownrankSlider:IsVisible() then
        QuickHeal_DownrankSlider:Hide()
    else
        QuickHeal_DownrankSlider:Show()
    end
end


------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------
------------------------------------------------------------------------------------------------------------------------