--[[ HealBot Contined ]] local HealBot_NeedEquipUpdate=0; local HealBot_IamRessing = nil; local HealBot_RequestVer=nil; local HealBot_BarCheck = {}; local HealBot_Loaded=nil; local HealBot_IamHealing = nil; local HealBot_HealData = {}; local HealBot_initHealData = {}; local HealBot_Talents={} local HealBot_CheckTalents=false local HealBot_Player_HoT={}; local HealBot_Player_HoT_Icons={}; local HealBot_Watch_HoT={}; local HealBot_HoT_Count={}; local HealBot_HoTincHeals={} local HealBot_HoTincData={} local HealBot_InCombatUpdate=false local HealBot_SmartCast_Spells={}; local HealBot_AddonMsgType=3; local HealBot_HoT_Texture={}; local HealBot_SpamCnt=0; local HealBot_Ressing = {}; local HealBot_DelayBuffCheck = {}; local HealBot_DelayDebuffCheck = {}; local HealBot_DelayAuraCheck = {}; local HealBot_HealsIncEndTime={} local HealBot_Vers={} local HealBot_CTRATanks={}; local HealBot_MainTanks={}; local HealBot_MainAssists={}; local HealBot_CastingTarget = "player"; local i=nil local w=nil local x=nil local y=nil local z=nil local strfind=strfind local strsub=strsub local gsub=gsub local HealBot_ThrottleCnt=5 local HealBot_Aggro1={} local HealBot_Aggro2={} local HealBot_AggroS=1 local HealBot_Reset_flag=nil local HB_Timer1=0.5 local HB_Timer2=0.3 local HB_Timer3=0.2 local HealBot_UpUnitInCombat={} local HealBot_InCombatUpdCnt=0 local HealBot_InCombatUpdCntFlag=nil local k=nil local s=nil local HealBot_Buff_Spells_List ={} local HealBot_BuffNameSwap = {} local HealBot_VehicleCheck={}; local HealBot_ReCheckBuffsTime=nil local HealBot_ReCheckBuffsTimed={} local HealBot_cleanGUIDs={} local initIncHeals=true local HealBot_Ignore_Class_Debuffs = { ["WARR"] = { [HEALBOT_DEBUFF_ANCIENT_HYSTERIA] = true, [HEALBOT_DEBUFF_IGNITE_MANA] = true, [HEALBOT_DEBUFF_TAINTED_MIND] = true, [HEALBOT_DEBUFF_VIPER_STING] = true, [HEALBOT_DEBUFF_IMPOTENCE] = true, [HEALBOT_DEBUFF_DECAYED_INT] = true, [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, ["ROGU"] = { [HEALBOT_DEBUFF_SILENCE] = true, [HEALBOT_DEBUFF_ANCIENT_HYSTERIA] = true, [HEALBOT_DEBUFF_IGNITE_MANA] = true, [HEALBOT_DEBUFF_TAINTED_MIND] = true, [HEALBOT_DEBUFF_VIPER_STING] = true, [HEALBOT_DEBUFF_IMPOTENCE] = true, [HEALBOT_DEBUFF_DECAYED_INT] = true, [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, ["HUNT"] = { [HEALBOT_DEBUFF_MAGMA_SHACKLES] = true, [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, ["MAGE"] = { [HEALBOT_DEBUFF_MAGMA_SHACKLES] = true, [HEALBOT_DEBUFF_DECAYED_STR] = true, [HEALBOT_DEBUFF_CRIPPLE] = true, [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, ["DRUI"] = { [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, ["PALA"] = { [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, ["PRIE"] = { [HEALBOT_DEBUFF_DECAYED_STR] = true, [HEALBOT_DEBUFF_CRIPPLE] = true, [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, ["SHAM"] = { [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, ["WARL"] = { [HEALBOT_DEBUFF_DECAYED_STR] = true, [HEALBOT_DEBUFF_CRIPPLE] = true, [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, ["DEAT"] = { [HEALBOT_DEBUFF_UNSTABLE_AFFL] = true,}, }; local HealBot_Ignore_Movement_Debuffs = { [HEALBOT_DEBUFF_FROSTBOLT] = true, [HEALBOT_DEBUFF_MAGMA_SHACKLES] = true, [HEALBOT_DEBUFF_SLOW] = true, [HEALBOT_DEBUFF_CHILLED] = true, [HEALBOT_DEBUFF_CONEOFCOLD] = true, [HEALBOT_DEBUFF_CONCUSSIVESHOT] = true, [HEALBOT_DEBUFF_THUNDERCLAP] = true, [HEALBOT_DEBUFF_HOWLINGSCREECH] = true, [HEALBOT_DEBUFF_DAZED] = true, [HEALBOT_DEBUFF_FROST_SHOCK] = true, }; local HealBot_Ignore_NonHarmful_Debuffs = { [HEALBOT_DEBUFF_HUNTERS_MARK] = true, [HEALBOT_DEBUFF_ARCANE_BLAST] = true, [HEALBOT_DEBUFF_MAJOR_DREAMLESS] = true, [HEALBOT_DEBUFF_GREATER_DREAMLESS] = true, [HEALBOT_DEBUFF_DREAMLESS_SLEEP] = true, }; local HealBot_Timer1,HealBot_Timer2,HealBot_Timer3 = 0,0,0; local Ti=nil local inc_msg=nil local datatype=nil local datamsg=nil local sender=nil local arr=nil local arrg = {} local HoTActive=nil local DebuffType=nil local checkthis=nil local WatchTarget=nil local WatchGUID=nil local debuff_type=nil local dName=nil local HealBot_Ignore_Debuffs_Class=nil local bName=nil local PlayerBuffs = {} local HealBot_dSpell=HEALBOT_HEAVY_RUNECLOTH_BANDAGE local bar=nil local iconName=nil local id=0 local sName=nil local sRank=nil local sNameRank=nil local uName=nil local xUnit=nil local xGUID = nil local utGUID=nil local uClass=nil local QuickHealth = LibStub("LibQuickHealth-2.0") local LSM = LibStub("LibSharedMedia-3.0") local TalentQuery = LibStub:GetLibrary("LibTalentQuery-1.0") local HealBot_PlayerBuff={} local HealBot_CheckBuffs = {} local HealBot_ShortBuffs = {} local HealBot_CheckBuffsTime=nil local HealBot_CheckBuffsTimehbGUID=nil local HealBot_QueueCheckBuffs={} local PlayerBuffsGUID=nil local huUnit,huHoTtime,huHoTicon=nil,nil,nil local HealBot_TrackWS={} local HealBot_BuffWatch={} local HealBot_DeBuff_Texture={} local iTexture, bCount, expirationTime, caster, spellID=nil,nil,nil,nil,nil local DeBuff_Count={} local HealBot_unitHealth={} local HealBot_unitHealthMax={} local BuffClass=nil local HasWeaponBuff=false local CheckWeaponBuffs={[HEALBOT_ROCKBITER_WEAPON]=true, [HEALBOT_FLAMETONGUE_WEAPON]=true, [HEALBOT_EARTHLIVING_WEAPON]=true, [HEALBOT_WINDFURY_WEAPON]=true, [HEALBOT_FROSTBRAND_WEAPON]=true,} local CooldownBuffs={[HEALBOT_FEAR_WARD]=true, [HEALBOT_PAIN_SUPPRESSION]=true, [HEALBOT_POWER_INFUSION]=true, [HEALBOT_DIVINE_PLEA]=true, [HEALBOT_DIVINE_FAVOR]=true, [HEALBOT_DIVINE_ILLUMINATION]=true,} local debuffCodes={ [HEALBOT_DISEASE_en]=5, [HEALBOT_MAGIC_en]=6, [HEALBOT_POISON_en]=7, [HEALBOT_CURSE_en]=8, [HEALBOT_CUSTOM_en]=9} local HealBot_VehicleUnit={} local HealBot_UnitInVehicle={} local hGUID=nil local hUnit=nil local vGUID=nil local vUnit=nil local tGUID=nil local HBvUnits=nil local HealBot_TargetIcons={} local HealBot_PetGUID={} local HealBot_HelpCnt=nil local HealBot_debuffTargetIcon={} local hotName=nil local HealBot_luVars={} local HealBot_endAggro={} function HealBot_UpdTargetUnitID(unit) HealBot_luVars["TargetUnitID"]=unit end function HealBot_Check_WeaponBuffs(spellName) if CheckWeaponBuffs[spellName] then HealBot_luVars["WeaponBuffCheck"]=3 end end function HealBot_Clear_BuffWatch() for x,_ in pairs(HealBot_BuffWatch) do HealBot_BuffWatch[x]=nil; end end function HealBot_Set_BuffWatch(buffName) table.insert(HealBot_BuffWatch,buffName); end function HealBot_Clear_CheckBuffs() for x,_ in pairs(HealBot_CheckBuffs) do HealBot_CheckBuffs[x]=nil; end end function HealBot_Set_CheckBuffs(buffName) if not CheckWeaponBuffs[buffName] and not CooldownBuffs[buffName] then HealBot_CheckBuffs[buffName]=buffName; end end function HealBot_Set_debuffSpell(debuffName) HealBot_dSpell=debuffName end function HealBot_Queue_MyBuffsCheck(hbGUID,unit) HealBot_QueueCheckBuffs[hbGUID]=unit end function HealBot_Queue_AllActiveMyBuffs() for z,y in pairs(HealBot_UnitID) do HealBot_Queue_MyBuffsCheck(z,y) end end function HealBot_RetMyBuffTime(hbGUID,buffName) if not HealBot_PlayerBuff[hbGUID] or not HealBot_PlayerBuff[hbGUID][buffName] then return end if HealBot_ShortBuffs[buffName] then return HealBot_PlayerBuff[hbGUID][buffName]+HealBot_Config.ShortBuffTimer else return HealBot_PlayerBuff[hbGUID][buffName]+HealBot_Config.LongBuffTimer end end function HealBot_retHealBot_MainTanks() return HealBot_MainTanks end function HealBot_retHealBot_CTRATanks() return HealBot_CTRATanks end function HealBot_retHealBot_MainAssists() return HealBot_MainAssists end function HealBot_retHealBot_UseCrashProtection() return HealBot_luVars["UseCrashProtection"] end function HealBot_cpQueue(id, mName, mBody) HealBot_luVars["cpMacro"]=GetTime()+8 if id==0 then HealBot_luVars["cpSave0"]=true HealBot_luVars["cpName0"]=mName HealBot_luVars["cpBody0"]=mBody elseif id==1 then HealBot_luVars["cpSave1"]=true HealBot_luVars["cpName1"]=mName HealBot_luVars["cpBody1"]=mBody elseif id==2 then HealBot_luVars["cpSave2"]=true HealBot_luVars["cpName2"]=mName HealBot_luVars["cpBody2"]=mBody elseif id==3 then HealBot_luVars["cpSave3"]=true HealBot_luVars["cpName3"]=mName HealBot_luVars["cpBody3"]=mBody else HealBot_luVars["cpSave4"]=true HealBot_luVars["cpName4"]=mName HealBot_luVars["cpBody4"]=mBody end end function HealBot_cpSaveAll() HealBot_luVars["cpMacro"]=nil if HealBot_luVars["cpSave0"] then HealBot_luVars["cpSave0"]=nil HealBot_cpSave(HealBot_luVars["cpName0"], HealBot_luVars["cpBody0"]) end if HealBot_luVars["cpSave1"] then HealBot_luVars["cpSave1"]=nil HealBot_cpSave(HealBot_luVars["cpName1"], HealBot_luVars["cpBody1"]) end if HealBot_luVars["cpSave2"] then HealBot_luVars["cpSave2"]=nil HealBot_cpSave(HealBot_luVars["cpName2"], HealBot_luVars["cpBody2"]) end if HealBot_luVars["cpSave3"] then HealBot_luVars["cpSave3"]=nil HealBot_cpSave(HealBot_luVars["cpName3"], HealBot_luVars["cpBody3"]) end if HealBot_luVars["cpSave4"] then HealBot_luVars["cpSave4"]=nil HealBot_cpSave(HealBot_luVars["cpName4"], HealBot_luVars["cpBody4"]) end HBmsg=HEALBOT_CP_MACRO_SAVE.." "..date("%H:%M:%S", time()) HealBot_Options_cpMacroSave:SetText(HBmsg) end function HealBot_cpSave(mName, mBody) z=GetMacroIndexByName(mName) if (z or 0) == 0 then z = CreateMacro(mName, 12, mBody, 1) else z = EditMacro(z, mName, 12, mBody) end end function HealBot_SetResetFlag(mode) if mode=="HARD" then ReloadUI() else HealBot_Reset_flag=1 end end function HealBot_AltBuffNames(buffName) return HealBot_BuffNameSwap[buffName] end function HealBot_GetHealBot_AddonMsgType() return HealBot_AddonMsgType; end function HealBot_RetHealBot_Ressing(hbGUID) return HealBot_Ressing[hbGUID]; end function HealBot_UnsetHealBot_Ressing(hbGUID) HealBot_Ressing[hbGUID]=nil; end function HealBot_TooltipInit() if ( HealBot_ScanTooltip:IsOwned(HealBot) ) then return; end; HealBot_ScanTooltip:SetOwner(HealBot, 'ANCHOR_NONE' ); HealBot_ScanTooltip:ClearLines(); end function HealBot_AddChat(HBmsg) x=HealBot_Comms_GetChan("HBmsg"); if x and HealBot_SpamCnt < 24 then HealBot_SpamCnt=HealBot_SpamCnt+1; HBmsg="["..date("%H:%M", time()).."] "..HBmsg; SendChatMessage(HBmsg , "CHANNEL", nil, x); elseif ( DEFAULT_CHAT_FRAME ) then DEFAULT_CHAT_FRAME:AddMessage(HBmsg, 0.7, 0.7, 1.0); end end function HealBot_AddDebug(HBmsg) x=HealBot_Comms_GetChan("HBmsg"); if x and HealBot_SpamCnt < 17 then HealBot_SpamCnt=HealBot_SpamCnt+1; HBmsg="["..date("%H:%M", time()).."] DEBUG: "..HBmsg; SendChatMessage(HBmsg , "CHANNEL", nil, x); end end function HealBot_AddError(HBmsg) UIErrorsFrame:AddMessage(HBmsg, 1.0, 1.0, 1.0, 1.0, UIERRORS_HOLD_TIME); HealBot_AddDebug(HBmsg); end function HealBot_TogglePanel(HBpanel) if not HBpanel then return end if ( HBpanel:IsVisible() ) then HideUIPanel(HBpanel); else ShowUIPanel(HBpanel); end end function HealBot_StartMoving(HBframe) if ( not HBframe.isMoving ) and ( HBframe.isLocked ~= 1 ) then HBframe:StartMoving(); HBframe.isMoving = true; end end function HealBot_StopMoving(HBframe,ActionFrame) if ( HBframe.isMoving ) then HBframe:StopMovingOrSizing(); HBframe.isMoving = false; end if ActionFrame then HealBot_CheckActionFrame() end end function HealBot_CheckActionFrame() if Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]<-20 or Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]<-20 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=ceil(GetScreenHeight()/2); Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=ceil(GetScreenWidth()/2); else if Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==1 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetTop(); Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetLeft() elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==2 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetBottom(); Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetLeft() elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==3 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetTop(); Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetRight() elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==4 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetBottom(); Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetRight() elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==5 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetTop(); Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetCenter() elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==6 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin] = ceil((HealBot_Action:GetTop()+HealBot_Action:GetBottom())/2); Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetLeft() elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==7 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin] = ceil((HealBot_Action:GetTop()+HealBot_Action:GetBottom())/2); Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetRight() elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==8 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetBottom(); Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin] = HealBot_Action:GetCenter() end end HealBot_CheckFrame() end function HealBot_CheckFrame() if not GetScreenWidth() or not Healbot_Config_Skins.bwidth[Healbot_Config_Skins.Current_Skin] then return end if Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==1 then if Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]<-9 then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=-9 elseif Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]>(GetScreenWidth()-(Healbot_Config_Skins.bwidth[Healbot_Config_Skins.Current_Skin]+7)) then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=GetScreenWidth()-(Healbot_Config_Skins.bwidth[Healbot_Config_Skins.Current_Skin]+7) end if Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]<11+Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=11+Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] elseif Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]>GetScreenHeight()+12 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=GetScreenHeight()+12 end elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==2 then if Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]<-9 then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=-9 elseif Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]>(GetScreenWidth()-(Healbot_Config_Skins.bwidth[Healbot_Config_Skins.Current_Skin]+7)) then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=GetScreenWidth()-(Healbot_Config_Skins.bwidth[Healbot_Config_Skins.Current_Skin]+7) end if Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]<-15 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=-15 elseif Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]>GetScreenHeight()-15-Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=GetScreenHeight()-15-Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] end elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==3 then if Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin](GetScreenWidth()+8) then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=GetScreenWidth()+8 end if Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]<11+Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=11+Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] elseif Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]>GetScreenHeight()+12 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=GetScreenHeight()+12 end elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==4 then if Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin](GetScreenWidth()+8) then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=GetScreenWidth()+8 end if Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]<-15 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=-15 elseif Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]>GetScreenHeight()-15-Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=GetScreenHeight()-15-Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] end elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==5 then if Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]<1 then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=1 elseif Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]>(GetScreenWidth()+1) then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=GetScreenWidth()+1 end if Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]<-15 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=-15 elseif Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]>GetScreenHeight()-15-Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=GetScreenHeight()-15-Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] end elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==6 then if Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]<-9 then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=-9 elseif Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]>(GetScreenWidth()-(Healbot_Config_Skins.bwidth[Healbot_Config_Skins.Current_Skin]+7)) then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=GetScreenWidth()-(Healbot_Config_Skins.bwidth[Healbot_Config_Skins.Current_Skin]+7) end if Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]<1 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=1 elseif Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]>GetScreenHeight()+1 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=GetScreenHeight()+1 end elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==7 then if Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin](GetScreenWidth()+8) then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=GetScreenWidth()+8 end if Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]<1 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=1 elseif Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]>GetScreenHeight()+1 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=GetScreenHeight()+1 end elseif Healbot_Config_Skins.Panel_Anchor[Healbot_Config_Skins.Current_Skin]==8 then if Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]<1 then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=1 elseif Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]>(GetScreenWidth()+1) then Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=GetScreenWidth()+1 end if Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]<-15 then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=-15 elseif Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]>GetScreenHeight()-15-Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] then Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=GetScreenHeight()-15-Healbot_Config_Skins.bheight[Healbot_Config_Skins.Current_Skin] end end end function HealBot_SlashCmd(HBcmd) if not HBcmd then HBcmd="" end HBcmd, x, y, z = string.split(" ", HBcmd) HBcmd=string.lower(HBcmd) if (HBcmd=="") then HealBot_TogglePanel(HealBot_Action); elseif (HBcmd=="o" or HBcmd=="options" or HBcmd=="opt" or HBcmd=="config" or HBcmd=="cfg") then HealBot_TogglePanel(HealBot_Options); elseif (HBcmd=="d" or HBcmd=="defaults") then HealBot_Options_Defaults_OnClick(HealBot_Options_Defaults); elseif (HBcmd=="ui") then HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_HARDRELOAD) HealBot_SetResetFlag("HARD") elseif (HBcmd=="ri" or (HBcmd=="reset" and x and x=="healbot")) then HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_SOFTRELOAD) HealBot_SetResetFlag("SOFT") elseif (HBcmd=="rc" or (HBcmd=="reset" and x and x=="customdebuffs")) then HealBot_Reset_flag=2 elseif (HBcmd=="rs" or (HBcmd=="reset" and x and x=="skin")) then HealBot_Reset_flag=3 elseif (HBcmd=="info" or HBcmd=="ver" or HBcmd=="status") then HealBot_Comms_Info() elseif (HBcmd=="show") then HealBot_Action_Reset() elseif (HBcmd=="cb") then HealBot_Panel_ClearBlackList() elseif (HBcmd=="cspells") then HealBot_Copy_SpellCombos() elseif (HBcmd=="rspells") then HealBot_Reset_Spells() elseif (HBcmd=="rcures") then HealBot_Reset_Cures() elseif (HBcmd=="rbuffs") then HealBot_Reset_Buffs() elseif (HBcmd=="disable") then HealBot_Options_DisableHealBot:SetChecked(1) HealBot_Options_ToggleHealBot(1) HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_DISABLED) elseif (HBcmd=="enable") then HealBot_Options_DisableHealBot:SetChecked(0) HealBot_Options_ToggleHealBot(0) HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_ENABLED) elseif (HBcmd=="t") then HB_Timer1=0.01 if HealBot_Config.DisableHealBot==0 then HealBot_Options_DisableHealBot:SetChecked(1) HealBot_Options_ToggleHealBot(1) HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_DISABLED) else HealBot_Options_DisableHealBot:SetChecked(0) HealBot_Options_ToggleHealBot(0) HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_ENABLED) end elseif (HBcmd=="tinfo") then if UnitExists("target") then HealBot_Comms_TargetInfo() else HealBot_AddDebug( "No Target" ); end elseif (HBcmd=="comms") then HealBot_Comms_Zone() elseif (HBcmd=="help" or HBcmd=="h") then HealBot_HelpCnt=0 elseif (HBcmd=="tt") then HealBot_Titan_Toggle() elseif (HBcmd=="skin" and x) then if y then x=x.." "..y end if z then x=x.." "..z end HealBot_Options_Set_Current_Skin(x) elseif (HBcmd=="ss" and x and y) then HealBot_Options_ShareSkinSend("A", x, y) elseif (HBcmd=="as") then HealBot_ToggleAcceptSkins() elseif (HBcmd=="use10") then if HealBot_Config.MacroUse10==1 then HealBot_Config.MacroUse10=0 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_USE10OFF) else HealBot_Config.MacroUse10=1 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_USE10ON) end elseif (HBcmd=="suppress" and x) then x=string.lower(x) HealBot_ToggleSuppressSetting(x) elseif (HBcmd=="test" and x) then if tonumber(x) and tonumber(x)>4 and tonumber(x)<51 then HealBot_TestBars(x) end elseif (HBcmd=="tr" and x) then HealBot_Panel_SethbTopRole(x) elseif (HBcmd=="ssp") then HealBot_Panel_SetSubSortPlayer() elseif (HBcmd=="spt") then if Healbot_Config_Skins.SelfPet[Healbot_Config_Skins.Current_Skin]==1 then Healbot_Config_Skins.SelfPet[Healbot_Config_Skins.Current_Skin]=0 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_SELFPETSOFF) else Healbot_Config_Skins.SelfPet[Healbot_Config_Skins.Current_Skin]=1 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_SELFPETSON) end if Delay_RecalcParty<2 then Delay_RecalcParty=2; end elseif (HBcmd=="ws") then if HealBot_Config.ShowWSicon==1 then HealBot_Config.ShowWSicon=0 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_DEBUFF_WEAKENED_SOUL.." - "..HEALBOT_WORD_OFF) else HealBot_Config.ShowWSicon=1 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_DEBUFF_WEAKENED_SOUL.." - "..HEALBOT_WORD_ON) end elseif (HBcmd=="cp") then if not x then if Healbot_Config_Skins.CrashProt[Healbot_Config_Skins.Current_Skin]==1 then Healbot_Config_Skins.CrashProt[Healbot_Config_Skins.Current_Skin]=0 else Healbot_Config_Skins.CrashProt[Healbot_Config_Skins.Current_Skin]=1 end HealBot_Options_update_cpSkin() else x=1 -- Do Stuff end elseif (HBcmd=="bt") then if HealBot_Config.BuffWatch==1 then HealBot_Config.BuffWatch=0 else HealBot_Config.BuffWatch=1 end HealBot_Options_MonitorBuffs:SetChecked(HealBot_Config.BuffWatch) HealBot_Options_MonitorBuffs_Toggle() elseif (HBcmd=="dt") then if HealBot_Config.DebuffWatch==1 then HealBot_Config.DebuffWatch=0 else HealBot_Config.DebuffWatch=1 end HealBot_Options_MonitorDebuffs:SetChecked(HealBot_Config.DebuffWatch) HealBot_Options_MonitorDebuffs_Toggle() else if x then HBcmd=HBcmd.." "..x end if y then HBcmd=HBcmd.." "..y end if z then HBcmd=HBcmd.." "..z end HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_UNKNOWNCMD..HBcmd) HealBot_HelpCnt=0 end end function HealBot_setResetFlagCode(resetCode) HealBot_Reset_flag=resetCode end function HealBot_ToggleAcceptSkins() if HealBot_Config.AcceptSkins==1 then HealBot_Config.AcceptSkins=0 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_ACCEPTSKINOFF) else HealBot_Config.AcceptSkins=1 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_ACCEPTSKINON) end end function HealBot_ToggleSuppressSetting(settingType) if settingType=="sound" then if HealBot_Config.MacroSuppressSound==1 then HealBot_Config.MacroSuppressSound=0 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_MACROSOUNDON) else HealBot_Config.MacroSuppressSound=1 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_MACROSOUNDOFF) end HealBot_Action_SetAllAttribs() elseif settingType=="error" then if HealBot_Config.MacroSuppressError==1 then HealBot_Config.MacroSuppressError=0 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_MACROERRORON) else HealBot_Config.MacroSuppressError=1 HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_MACROERROROFF) end HealBot_Action_SetAllAttribs() end end function HealBot_TestBars(noBars) local numBars=noBars or HealBot_Config.noTestBars HealBot_Panel_SetNumBars(numBars) HealBot_Panel_ToggleTestBars() if Delay_RecalcParty<2 then Delay_RecalcParty=2; end end function HealBot_Reset() HB_Timer1=0.01 HB_Timer2=0.2 HB_Timer3=0.2 HealBot_UnRegister_Events() initIncHeals=true HealBot_Panel_ClearBlackList() HealBot_Panel_ClearHealTarget() HealBot_Action_ResethbInitButtons() HealBot_ClearAggro(true) HealBot_Panel_ClearBarArrays() HealBot_Loaded=1 HealBot_setOptions_Timer(150) HealBot_PlayerGUID=nil HealBot_Load("hbReset") HealBot_OnEvent_PlayerEnteringWorld(nil); HealBot_setOptions_Timer(190) HealBot_IncHeals_resetIncHeals() HealBot_OnEvent_RaidRosterUpdate(nil) end function HealBot_ResetCustomDebuffs() HealBot_Config.HealBot_Custom_Debuffs = HealBot_ConfigDefaults.HealBot_Custom_Debuffs HealBot_Globals.Custom_Debuff_Categories = HealBot_GlobalsDefaults.Custom_Debuff_Categories for s in pairs(HealBot_Config.CDCBarColour) do if not HealBot_ConfigDefaults.CDCBarColour[s] then HealBot_Config.CDCBarColour[s]=nil end end HealBot_Config.CDCBarColour[HEALBOT_CUSTOM_en]=HealBot_ConfigDefaults.CDCBarColour[HEALBOT_CUSTOM_en] HealBot_Options_NewCDebuff:SetText("") HealBot_Options_CDebuffTxt1_Refresh() HealBot_Options_CDCPriorityC_Refresh() HealBot_SetCDCBarColours(); HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_CONFIRMCUSTOMDEFAULTS) end function HealBot_ResetSkins() Healbot_Config_Skins = HealBot_Config_SkinsDefaults HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_CONFIRMSKINDEFAULTS) HealBot_Reset_flag=1 end function HealBot_Reset_Unit(hbGUID) HealBot_Action_ClearUnitDebuffStatus(hbGUID) HealBot_ClearAllBuffs(hbGUID) HealBot_ClearAllDebuffs(hbGUID) HealBot_Reset_UnitHealth(hbGUID) if HealBot_UnitID[hbGUID] then HealBot_ClearUnitAggro(HealBot_UnitID[hbGUID], hbGUID) HealBot_Action_ResetUnitStatus(HealBot_UnitID[hbGUID]) end if HealBot_Action_RetMyTarget(hbGUID) then HealBot_Action_Toggle_Enabled(hbGUID); end end function HealBot_GetSpellName(id) if (not id) then return nil end sName, sRank = GetSpellName(id,BOOKTYPE_SPELL); if (not sName) then return nil; end if (not sRank or sRank=="") then return sName; end return sName, sRank; end function HealBot_GetSpellId(spellName) if (not spellName) then return nil end x,y = 1,0; if HealBot_Spells[spellName] then if HealBot_Spells[spellName].x then return HealBot_Spells[spellName].x; end end while true do sName, sRank = GetSpellName(x,BOOKTYPE_SPELL); if (sName) then if (spellName == sName .. "(" .. sRank .. ")") then return x; end if (spellName == sName) then y=x; end else do break end end x = x + 1; end if y>0 then return y else return nil; end end function HealBot_UnitHealth(hbGUID, unit) x,y=nil,nil if HealBot_unitHealth[hbGUID] then x=HealBot_unitHealth[hbGUID] y=HealBot_unitHealthMax[hbGUID] elseif unit and UnitHealth(unit) then x=UnitHealth(unit) y=UnitHealthMax(unit) end if not x or not y then if unit then HealBot_AddDebug("HealBot_UnitHealth - Health(Max) is nil! unit passed in = "..unit.." ("..UnitName(unit)..")") else HealBot_AddDebug("HealBot_UnitHealth - Health(Max) is nil! unitid is nil") end x=500 y=1000 end return x,y; end local talenty,talentx,talentz=0,0,0 local initIncHealsVals={} function HealBot_FindHealSpells() if strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_PRIEST] then y=1+HealBot_Talents[HEALBOT_SPIRITAL_HEALING]+HealBot_Talents[HEALBOT_BLESSED_RESILIENCE]+HealBot_Talents[HEALBOT_FOCUSED_POWER] elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_DRUID] then y=1+HealBot_Talents[HEALBOT_GIFT_OF_NATURE]+HealBot_Talents[HEALBOT_MASTER_SHAPESHIFTER] elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_SHAMAN] then y=1+HealBot_Talents[HEALBOT_PURIFICATION] else y=1 end table.foreach(HealBot_Spells, function (spell,_) if HealBot_Spells[spell].NoBonus then HealBot_Spells[spell].RealHealing = 0 else talentz=GetSpellBonusHealing()*1.88; talentx=y if strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_DRUID] then talenty=1+HealBot_Talents[HEALBOT_NURTURING_INSTINCT] elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_SHAMAN] then talenty=1+HealBot_Talents[HEALBOT_NATURES_BLESSING] elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_PALADIN] then talenty=1+HealBot_Talents[HEALBOT_TOUCHED_BY_THE_LIGHT] talenty=talenty+HealBot_Talents[HEALBOT_HOLY_GUIDANCE] else talenty=1 end local healingbonus_penalty=1; if HealBot_Spells[spell].Level < 20 then healingbonus_penalty=(1-((20-HealBot_Spells[spell].Level)*0.0375)); end if strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_DRUID] and HealBot_Spells[spell].HealsExt>0 then talentx=talentx+HealBot_Talents[HEALBOT_EMPOWERED_REJUVENATION] end if HealBot_Spells[spell].Cast == 0 then if strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_PRIEST] then talentx=talentx+HealBot_Talents[HEALBOT_TWIN_DISCIPLINES] if strfind(spell,HEALBOT_RENEW,1) then talentx=talentx+HealBot_Talents[HEALBOT_IMPROVED_RENEW] talentx=talentx+HealBot_Talents[HEALBOT_EMPOWERED_RENEW] end elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_DRUID] then talentx=talentx+HealBot_Talents[HEALBOT_GENESIS] if strfind(spell,HEALBOT_REJUVENATION,1) then talentx=talentx+HealBot_Talents[HEALBOT_IMPROVED_REJUVENATION] end end w=3.5; else if strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_PRIEST] then if strfind(spell,HEALBOT_GREATER_HEAL,1) then talentx=talentx+(HealBot_Talents[HEALBOT_EMPOWERED_HEALING]*2) elseif strfind(spell,HEALBOT_FLASH_HEAL,1) then talentx=talentx+HealBot_Talents[HEALBOT_EMPOWERED_HEALING] elseif strfind(spell,HEALBOT_BINDING_HEAL,1) then talentx=talentx+HealBot_Talents[HEALBOT_DIVINE_PROVIDENCE] talentx=talentx+HealBot_Talents[HEALBOT_EMPOWERED_HEALING] elseif strfind(spell,HEALBOT_PRAYER_OF_HEALING,1) then talentz=GetSpellBonusHealing() talentx=talentx+HealBot_Talents[HEALBOT_DIVINE_PROVIDENCE] end elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_DRUID] then if strfind(spell,HEALBOT_HEALING_TOUCH,1) then talentx=talentx+HealBot_Talents[HEALBOT_EMPOWERED_TOUCH] end elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_PALADIN] then talentx=talentx+HealBot_Talents[HEALBOT_HEALING_LIGHT]+HealBot_Talents[HEALBOT_DIVINITY] elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_SHAMAN] then if strfind(spell,HEALBOT_CHAIN_HEAL,1) then talentx=talentx+HealBot_Talents[HEALBOT_IMPROVED_CHAIN_HEAL] elseif strfind(spell,HEALBOT_HEALING_WAVE,1) then talentx=talentx+HealBot_Talents[HEALBOT_HEALING_WAY] talentx=talentx+(HealBot_Talents[HEALBOT_TIDAL_WAVES]*2) elseif strfind(spell,HEALBOT_LESSER_HEALING_WAVE,1) then talentx=talentx+HealBot_Talents[HEALBOT_TIDAL_WAVES] end end if HealBot_Spells[spell].Cast > 0 and HealBot_Spells[spell].Cast < 3.5 then w=HealBot_Spells[spell].Cast; else w=3.5 end end talentz = (talentz * healingbonus_penalty); z = ((HealBot_Spells[spell].Level)+6)/(UnitLevel("player")) if z<1 then talentz=talentz*z; end talentz = talentz + talenty talentz=talentz*(w/3.5) x=ceil(talentz*talentx) HealBot_Spells[spell].RealHealing = x; end if HealBot_Config.HealCommMethod>1 then if HealBot_Spells[spell].HealsCast>0 and HealBot_Spells[spell].Cast>0 and HealBot_Spells[spell].spell and HealBot_Spells[HealBot_Spells[spell].spell].Level==HealBot_Spells[spell].Level then if initIncHeals then initIncHealsVals[HealBot_Spells[spell].spell]=HealBot_Spells[spell].HealsCast+HealBot_Spells[spell].RealHealing initIncHeals="nil" if HealBot_Spells[spell].spell==HEALBOT_REGROWTH then initIncHealsVals["H"..HealBot_Spells[spell].spell]=HealBot_Spells[spell].HealsExt+HealBot_Spells[spell].RealHealing end else HealBot_initHealData[HealBot_Spells[spell].spell]=true end elseif HealBot_Spells[spell].Duration and HealBot_Spells[spell].Duration>0 and HealBot_Spells[spell].spell and HealBot_Spells[HealBot_Spells[spell].spell].Level==HealBot_Spells[spell].Level then if initIncHeals then initIncHealsVals[HealBot_Spells[spell].spell]=HealBot_Spells[spell].HealsExt+HealBot_Spells[spell].RealHealing else HealBot_initHealData[HealBot_Spells[spell].spell]=true end end end HealBot_Spells[spell].HealsDur = floor((HealBot_Spells[spell].HealsCast+HealBot_Spells[spell].HealsExt) + HealBot_Spells[spell].RealHealing); end); if initIncHeals and initIncHeals=="nil" then for x,y in pairs(initIncHealsVals) do HealBot_IncHeals_setHealValues(HealBot_PlayerName, x, y) end initIncHeals=nil end end function HealBot_RecalcHeals(hbGUID) if HealBot_luVars["DoUpdates"] and UnitExists(HealBot_UnitID[hbGUID]) then HealBot_Action_Refresh(hbGUID); end end function HealBot_RecalcParty(HealBot_PreCombat) Delay_RecalcParty=0; HealBot_Action_PartyChanged(HealBot_PreCombat); end function HealBot_RecalcSpells() HealBot_FindHealSpells(); end function HealBot_OnLoad(self) HealBot_PlayerClass, HealBot_PlayerClassEN=UnitClass("player") HealBot_PlayerRace, HealBot_PlayerRaceEN=UnitRace("player") HealBot_PlayerName=UnitName("player") HealBot:RegisterEvent("VARIABLES_LOADED"); HealBot:RegisterEvent("PLAYER_REGEN_DISABLED"); HealBot:RegisterEvent("PLAYER_REGEN_ENABLED"); SLASH_HEALBOT1 = "/healbot"; SLASH_HEALBOT2 = "/hb"; SlashCmdList["HEALBOT"] = function(msg) HealBot_SlashCmd(msg); end end local ouName=nil local aSwitch=0 function HealBot_Set_Timers() if HealBot_Config.DisableHealBot==0 then HB_Timer1=0.7 HB_Timer2=HealBot_Comm_round(HealBot_Config.RangeCheckFreq/8, 4) HB_Timer3=0.3 else HB_Timer1=2 HB_Timer2=5 HB_Timer3=5 end end local HealBot_Options_Timer={} function HealBot_setOptions_Timer(value) HealBot_Options_Timer[value]=true end local HealBot_ErrorNum=0 local HealBot_testBarInit={} local HealBot_trackPartyFrames=false local hbRequestTime=0 function HealBot_initTestBar(b) table.insert(HealBot_testBarInit,b) end local hbDelayResetUnitStatus={} function HealBot_setDelayResetUnitStatus(hbGUID) hbDelayResetUnitStatus[hbGUID]=GetTime()+0.3 end local lTimer,eTimer=0,GetTime() function HealBot_OnUpdate(self) lTimer=GetTime()-eTimer eTimer=GetTime() HealBot_Timer1 = HealBot_Timer1+lTimer; HealBot_Timer2 = HealBot_Timer2+lTimer; HealBot_Timer3 = HealBot_Timer3+lTimer; if HealBot_Loaded then if not HealBot_PlayerGUID then HealBot_Load("onUpdate") elseif HealBot_Timer1>=HB_Timer1 then HealBot_Timer1 = 0; Ti=0 for s in pairs(HealBot_HealsIncEndTime) do if HealBot_HealsIncEndTime[s]0 then if HealBot_Config.HealCommMethod==1 then HealBot_IncHeals_HealsInUpdate(xGUID) else HealBot_IncHeals_resetIncHeals(xGUID, "D", casterName) end else HealBot_HealsIncEndTime[s]=nil end end end if HealBot_luVars["rcEnd"] and HealBot_luVars["rcEnd"]0 then Delay_RecalcParty=Delay_RecalcParty+1 if Delay_RecalcParty>2 and HealBot_luVars["CheckSkin"] then HealBot_PartyUpdate_CheckSkin() elseif Delay_RecalcParty>3 then HealBot_RecalcParty(nil); HealBot_InCombatUpdCnt=0 end elseif HealBot_NeedEquipUpdate then HealBot_NeedEquipUpdate=false HealBot_RecalcSpells(); if strsub(HealBot_PlayerClassEN,1,4)=="SHAM" then HealBot_CheckAllBuffs(HealBot_PlayerGUID) end elseif HealBot_CheckTalents then HealBot_InitSpells() HealBot_CheckTalents=false; HealBot_NeedEquipUpdate=true HealBot_GetTalentInfo(HealBot_PlayerGUID, "player") if strsub(HealBot_PlayerClassEN,1,4)=="PRIE" then HealBot_Talents[HEALBOT_BODY_AND_SOUL]=HealBot_HasTalent(2,20,HEALBOT_BODY_AND_SOUL) HealBot_Talents[HEALBOT_IMPROVED_RENEW]=(5*HealBot_HasTalent(2,2,HEALBOT_IMPROVED_RENEW))/100 HealBot_Talents[HEALBOT_EMPOWERED_RENEW]=(5*HealBot_HasTalent(2,23,HEALBOT_EMPOWERED_RENEW))/100 HealBot_Talents[HEALBOT_SPIRITAL_HEALING]=(2*HealBot_HasTalent(2,16,HEALBOT_SPIRITAL_HEALING))/100 HealBot_Talents[HEALBOT_TWIN_DISCIPLINES]=HealBot_HasTalent(1,2,HEALBOT_TWIN_DISCIPLINES)/100 HealBot_Talents[HEALBOT_FOCUSED_POWER]=(2*HealBot_HasTalent(1,16,HEALBOT_FOCUSED_POWER))/100 HealBot_Talents[HEALBOT_EMPOWERED_HEALING]=(4*HealBot_HasTalent(2,21,HEALBOT_EMPOWERED_HEALING))/100 HealBot_Talents[HEALBOT_DIVINE_PROVIDENCE]=(2*HealBot_HasTalent(2,26,HEALBOT_DIVINE_PROVIDENCE))/100 HealBot_Talents[HEALBOT_BLESSED_RESILIENCE]=HealBot_HasTalent(2,19,HEALBOT_BLESSED_RESILIENCE)/100 elseif strsub(HealBot_PlayerClassEN,1,4)=="DRUI" then HealBot_Talents[HEALBOT_GENESIS]=HealBot_HasTalent(1,2,HEALBOT_GENESIS)/100 _,i=UnitStat("player", 2) HealBot_Talents[HEALBOT_NURTURING_INSTINCT]=i*(0+(35*HealBot_HasTalent(2,15,HEALBOT_NURTURING_INSTINCT)/100)) HealBot_Talents[HEALBOT_IMPROVED_REJUVENATION]=(5*HealBot_HasTalent(3,11,HEALBOT_IMPROVED_REJUVENATION))/100 HealBot_Talents[HEALBOT_GIFT_OF_NATURE]=(2*HealBot_HasTalent(3,13,HEALBOT_GIFT_OF_NATURE))/100 HealBot_Talents[HEALBOT_EMPOWERED_TOUCH]=(20*HealBot_HasTalent(3,15,HEALBOT_EMPOWERED_TOUCH))/100 HealBot_Talents[HEALBOT_EMPOWERED_REJUVENATION]=(4*HealBot_HasTalent(3,20,HEALBOT_EMPOWERED_REJUVENATION))/100 HealBot_Talents[HEALBOT_MASTER_SHAPESHIFTER]=(2*HealBot_HasTalent(3,9,HEALBOT_MASTER_SHAPESHIFTER))/100 elseif strsub(HealBot_PlayerClassEN,1,4)=="SHAM" then HealBot_Talents[HEALBOT_PURIFICATION]=(2*HealBot_HasTalent(3,15,HEALBOT_PURIFICATION))/100 HealBot_Talents[HEALBOT_IMPROVED_CHAIN_HEAL]=(10*HealBot_HasTalent(3,20,HEALBOT_IMPROVED_CHAIN_HEAL))/100 HealBot_Talents[HEALBOT_TIDAL_WAVES]=(2*HealBot_HasTalent(3,25,HEALBOT_TIDAL_WAVES))/100 HealBot_Talents[HEALBOT_HEALING_WAY]=(3*HealBot_HasTalent(3,12,HEALBOT_HEALING_WAY))/100 _,i=UnitStat("player", 4) HealBot_Talents[HEALBOT_NATURES_BLESSING]=i*(0+(5*HealBot_HasTalent(3,21,HEALBOT_NATURES_BLESSING)/100)) elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_PALADIN] then HealBot_Talents[HEALBOT_HEALING_LIGHT]=(4*HealBot_HasTalent(1,3,HEALBOT_HEALING_LIGHT))/100 HealBot_Talents[HEALBOT_DIVINITY]=(1*HealBot_HasTalent(2,1,HEALBOT_DIVINITY))/100 _,i=UnitStat("player", 1) HealBot_Talents[HEALBOT_TOUCHED_BY_THE_LIGHT]=i*(0+(20*HealBot_HasTalent(2,21,HEALBOT_TOUCHED_BY_THE_LIGHT)/100)) _,i=UnitStat("player", 4) HealBot_Talents[HEALBOT_HOLY_GUIDANCE]=i*(0+(4*HealBot_HasTalent(1,21,HEALBOT_HOLY_GUIDANCE)/100)) end HealBot_Options_InitBuffList() HealBot_setOptions_Timer(15) HealBot_Options_ResetDoInittab(10) HealBot_Options_ResetDoInittab(5) HealBot_Options_ResetDoInittab(4) HealBot_setOptions_Timer(40) HealBot_setOptions_Timer(50) HealBot_ClearAllBuffs() HealBot_ClearAllDebuffs() HealBot_setOptions_Timer(400) HealBot_setOptions_Timer(10) elseif HealBot_CheckBuffsTimehbGUID and HealBot_CheckBuffsTime3 then HealBot_Comms_SendAddonMsg("HealBot", "S:"..HEALBOT_VERSION..":V", HealBot_AddonMsgType, HealBot_PlayerName) else HealBot_Comms_SendAddonMsg("HealBot", "S:"..HEALBOT_VERSION..":N", HealBot_AddonMsgType, HealBot_PlayerName) end HealBot_RequestVer=nil; end if HealBot_Config.TooltipUpdate==1 then if HealBot_Action_TooltipUnit then HealBot_Action_RefreshTooltip(HealBot_Action_TooltipUnit,"Enabled"); elseif HealBot_Action_DisableTooltipUnit then HealBot_Action_RefreshTooltip(HealBot_Action_DisableTooltipUnit,"Disabled"); end end if HealBot_luVars["cpMacro"] and HealBot_luVars["cpMacro"]0 then for y=1,x do uName, _, _, _, z = GetFriendInfo(y) if z then HealBot_Comms_SendAddonMsg("HealBot", "F", 4, uName) end end end HealBot_TalentQuery("player") elseif HealBot_Options_Timer[160] then HealBot_Options_Timer[160]=nil HealBot_Options_SetSkinBars() elseif HealBot_Options_Timer[170] then HealBot_Options_Timer[170]=nil HealBot_configClassHoT(strsub(HealBot_PlayerClassEN,1,4), strsub(HealBot_PlayerRaceEN,1,3)) elseif HealBot_Options_Timer[180] then HealBot_Options_Timer[180]=nil if Healbot_Config_Skins.HidePartyFrames[Healbot_Config_Skins.Current_Skin]==1 then HealBot_Options_DisablePartyFrame() HealBot_Options_PlayerTargetFrames:Enable(); HealBot_trackPartyFrames=true if Healbot_Config_Skins.HidePlayerTarget[Healbot_Config_Skins.Current_Skin]==1 then HealBot_Options_DisablePlayerFrame() HealBot_Options_DisablePetFrame() HealBot_Options_DisableTargetFrame() else HealBot_Options_EnablePlayerFrame() HealBot_Options_EnablePetFrame() HealBot_Options_EnableTargetFrame() end elseif HealBot_trackPartyFrames then if Healbot_Config_Skins.HidePlayerTarget[Healbot_Config_Skins.Current_Skin]==1 then HealBot_Options_EnablePlayerFrame(); HealBot_Options_EnablePetFrame() HealBot_Options_EnableTargetFrame() Healbot_Config_Skins.HidePlayerTarget[Healbot_Config_Skins.Current_Skin]=0; HealBot_Options_PlayerTargetFrames:SetChecked(Healbot_Config_Skins.HidePlayerTarget[Healbot_Config_Skins.Current_Skin]); end HealBot_Options_PlayerTargetFrames:Disable(); HealBot_Options_EnablePartyFrame() HealBot_trackPartyFrames=nil end elseif HealBot_Options_Timer[190] then HealBot_Options_Timer[190]=nil HealBot_Options_ShareSkin_Refresh() HealBot_luVars["CheckSkin"]=true if Delay_RecalcParty<1 then Delay_RecalcParty=1 end HealBot_Loaded=9 elseif HealBot_Options_Timer[200] then HealBot_talentSpam(HealBot_PlayerGUID,"update",1) HealBot_TalentQuery("player") HealBot_Options_Timer[200]=nil elseif HealBot_Options_Timer[400] then HealBot_Options_Timer[400]=nil HealBot_Action_SetAllAttribs() elseif HealBot_Options_Timer[500] or HealBot_Options_Timer[501] then if HealBot_Options_Timer[500] then HealBot_SetResetFlag("SOFT") ShowUIPanel(HealBot_Action) HealBot_Options_Timer[500]=nil else HealBot_UnRegister_Events() HealBot_Register_Events() HideUIPanel(HealBot_Action) HealBot_SetResetFlag("SOFT") HealBot_Options_Timer[501]=nil end elseif HealBot_Options_Timer[950] then HealBot_Options_Timer[950]=nil _,z = GetNumMacros() if z>12 then HealBot_AddDebug("Calling HealBot_useCrashProtection()") HealBot_useCrashProtection() end elseif HealBot_Options_Timer[5000] then HealBot_Set_Timers() HealBot_Action_Set_Timers() HealBot_Options_Timer[5000]=nil end end elseif HealBot_luVars["IsReallyFighting"] then if not InCombatLockdown() then HealBot_luVars["IsReallyFighting"] = nil HealBot_IsFighting = nil; end end HealBot_SpamCnt = 0; for xGUID,bType in pairs(HealBot_BarCheck) do if Ti<5 then if bType=="H" then if HealBot_UnitID[xGUID] and UnitExists(HealBot_UnitID[xGUID]) then HealBot_OnEvent_UnitHealth(nil,HealBot_UnitID[xGUID],UnitHealth(HealBot_UnitID[xGUID]),UnitHealthMax(HealBot_UnitID[xGUID])) end elseif bType=="P" then if HealBot_UnitID[xGUID] and UnitExists(HealBot_UnitID[xGUID]) then HealBot_OnEvent_UnitMana(nil,HealBot_UnitID[xGUID],UnitPowerType(HealBot_UnitID[xGUID])); end elseif HealBot_UnitID[xGUID] and UnitExists(HealBot_UnitID[xGUID]) then HealBot_OnEvent_UnitHealth(nil,HealBot_UnitID[xGUID],UnitHealth(HealBot_UnitID[xGUID]),UnitHealthMax(HealBot_UnitID[xGUID])) HealBot_OnEvent_UnitMana(nil,HealBot_UnitID[xGUID],UnitPowerType(HealBot_UnitID[xGUID])) end HealBot_BarCheck[xGUID]=nil Ti=Ti+1 end end for xGUID in pairs(HealBot_Ressing) do if HealBot_Ressing[xGUID]=="_NIL_" then HealBot_Ressing[xGUID]=nil; if HealBot_UnitID[xGUID] then HealBot_Action_ResetUnitStatus(HealBot_UnitID[xGUID]) end elseif HealBot_Ressing[xGUID]=="_RESSED3_" then HealBot_Ressing[xGUID]="_NIL_" elseif HealBot_Ressing[xGUID]=="_RESSED2_" then HealBot_Ressing[xGUID]="_RESSED3_" elseif HealBot_Ressing[xGUID]=="_RESSED1_" then HealBot_Ressing[xGUID]="_RESSED2_"; elseif HealBot_Ressing[xGUID]=="_RESSED_" then HealBot_Ressing[xGUID]="_RESSED1_"; end end end if HealBot_Timer3>=HB_Timer3 and HealBot_Loaded then HealBot_Timer3=0 for xGUID in pairs(HealBot_Player_HoT) do huHoTtime=HealBot_Player_HoT[xGUID] for sName in pairs(huHoTtime) do if huHoTtime[sName]<40 then huHoTtime[sName]=huHoTtime[sName]-1 if huHoTtime[sName]<2 then if HealBot_Player_HoT_Icons[xGUID][sName]>0 then HealBot_HoT_Update(xGUID, sName) else huHoTtime[sName]=nil end end elseif huHoTtime[sName]<=GetTime()+Healbot_Config_Skins.IconTextDurationShow[Healbot_Config_Skins.Current_Skin] then HealBot_HoT_Update(xGUID, sName) end end end for hbUID,xGUID in pairs(HealBot_HoTincHeals) do HealBot_HoT_incHealsCheck(xGUID, hbUID) end HealBot_ThrottleCnt=0 for xUnit,z in pairs(HealBot_VehicleCheck) do if z<4 then HealBot_VehicleCheck[xUnit]=HealBot_VehicleCheck[xUnit]+1 else HealBot_VehicleCheck[xUnit]=nil end HealBot_OnEvent_VehicleChange(nil, xUnit, true) end if HealBot_InCombatUpdate then HealBot_IC_PartyMembersChanged() end if HealBot_HelpCnt then HealBot_HelpCnt=HealBot_HelpCnt+1 if HealBot_HelpCnt>#HEALBOT_HELP then HealBot_HelpCnt=nil else HealBot_AddChat(HEALBOT_HELP[HealBot_HelpCnt]) end end end if HealBot_Timer2>HB_Timer2 then HealBot_Timer2=0 aSwitch=aSwitch+1 if aSwitch==1 then if HealBot_luVars["DelayAuraCheck"] then HealBot_doAura() elseif HealBot_luVars["DelayClearAggro"] then HealBot_doClearAggro() aSwitch=aSwitch+1 elseif HealBot_luVars["DelayDebuffCheck"] then aSwitch=aSwitch+2 HealBot_doDebuff() elseif HealBot_luVars["DelayBuffCheck"] then aSwitch=aSwitch+3 HealBot_doBuff() else aSwitch=aSwitch+4 if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 then HealBot_CheckAggro() end end elseif aSwitch==2 then if HealBot_luVars["DelayClearAggro"] then HealBot_doClearAggro() elseif HealBot_luVars["DelayDebuffCheck"] then aSwitch=aSwitch+1 HealBot_doDebuff() elseif HealBot_luVars["DelayBuffCheck"] then aSwitch=aSwitch+2 HealBot_doBuff() else aSwitch=aSwitch+3 if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 then HealBot_CheckAggro() end end elseif aSwitch==3 then if HealBot_luVars["DelayDebuffCheck"] then HealBot_doDebuff() elseif HealBot_luVars["DelayBuffCheck"] then aSwitch=aSwitch+1 HealBot_doBuff() else aSwitch=aSwitch+2 if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 then HealBot_CheckAggro() end end elseif aSwitch==4 then if HealBot_luVars["DelayBuffCheck"] then HealBot_doBuff() else aSwitch=aSwitch+1 if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 then HealBot_CheckAggro() end end elseif aSwitch==5 and Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 then HealBot_CheckAggro() else HealBot_Action_RefreshButtons() aSwitch=0 end if HealBot_testBarInit[1] then HealBot_Action_setTestBar(HealBot_testBarInit[1]) table.remove(HealBot_testBarInit,1) end for xGUID,xTime in pairs(hbDelayResetUnitStatus) do if xTime0 then HealBot_Register_Mana() end HealBot:RegisterEvent("LEARNED_SPELL_IN_TAB"); HealBot:RegisterEvent("UNIT_SPELLCAST_START"); HealBot:RegisterEvent("UNIT_AURA"); HealBot:RegisterEvent("CHARACTER_POINTS_CHANGED"); HealBot:RegisterEvent("UNIT_INVENTORY_CHANGED"); HealBot:RegisterEvent("CHAT_MSG_ADDON"); HealBot:RegisterEvent("CHAT_MSG_SYSTEM"); HealBot:RegisterEvent("MODIFIER_STATE_CHANGED"); HealBot:RegisterEvent("UNIT_PET"); HealBot:RegisterEvent("UNIT_NAME_UPDATE"); if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 then HealBot_Register_Aggro() end HealBot:RegisterEvent("ZONE_CHANGED_NEW_AREA"); HealBot:RegisterEvent("RAID_ROSTER_UPDATE"); if Healbot_Config_Skins.ShowRaidIcon[Healbot_Config_Skins.Current_Skin]==1 then HealBot:RegisterEvent("RAID_TARGET_UPDATE") end if Healbot_Config_Skins.ReadyCheck[Healbot_Config_Skins.Current_Skin]==1 then HealBot_Register_ReadyCheck() end -- HealBot:RegisterEvent("INSPECT_TALENT_READY"); -- HealBot:RegisterEvent("PARTY_MEMBER_DISABLE"); -- HealBot:RegisterEvent("PARTY_MEMBER_ENABLE"); end HealBot:RegisterEvent("UNIT_SPELLCAST_SENT"); HealBot:RegisterEvent("CHAT_MSG_ADDON"); HealBot:RegisterEvent("UNIT_SPELLCAST_STOP"); HealBot:RegisterEvent("UNIT_SPELLCAST_FAILED"); HealBot:RegisterEvent("UNIT_SPELLCAST_INTERRUPTED"); HealBot:RegisterEvent("UNIT_SPELLCAST_SUCCEEDED"); HealBot:RegisterEvent("UPDATE_MACROS"); HealBot_setOptions_Timer(125) HealBot_setOptions_Timer(5000) end function HealBot_Register_Aggro() HealBot:RegisterEvent("UNIT_COMBAT") HealBot:RegisterEvent("UNIT_THREAT_SITUATION_UPDATE") end function HealBot_UnRegister_Aggro() HealBot:UnregisterEvent("UNIT_COMBAT") HealBot:UnregisterEvent("UNIT_THREAT_SITUATION_UPDATE") HealBot_ClearAggro(true) end function HealBot_Register_ReadyCheck() HealBot:RegisterEvent("READY_CHECK") HealBot:RegisterEvent("READY_CHECK_CONFIRM") HealBot:RegisterEvent("READY_CHECK_FINISHED") end function HealBot_UnRegister_ReadyCheck() HealBot:UnregisterEvent("READY_CHECK") HealBot:UnregisterEvent("READY_CHECK_CONFIRM") HealBot:UnregisterEvent("READY_CHECK_FINISHED") HealBot_OnEvent_ReadyCheckFinished(nil); end function HealBot_Register_Mana() HealBot:RegisterEvent("UNIT_MANA") HealBot:RegisterEvent("UNIT_RAGE") HealBot:RegisterEvent("UNIT_ENERGY") HealBot:RegisterEvent("UNIT_RUNIC_POWER") HealBot:RegisterEvent("UNIT_MAXRAGE") HealBot:RegisterEvent("UNIT_MAXENERGY") HealBot:RegisterEvent("UNIT_MAXRUNIC_POWER") for xGUID,_ in pairs(HealBot_UnitID) do HealBot_CheckPower(xGUID) end end function HealBot_UnRegister_Mana() HealBot:UnregisterEvent("UNIT_MANA") HealBot:UnregisterEvent("UNIT_RAGE") HealBot:UnregisterEvent("UNIT_ENERGY") HealBot:UnregisterEvent("UNIT_RUNIC_POWER") -- HealBot:UnregisterEvent("UNIT_MAXMANA") HealBot:UnregisterEvent("UNIT_MAXRAGE") HealBot:UnregisterEvent("UNIT_MAXENERGY") HealBot:UnregisterEvent("UNIT_MAXRUNIC_POWER") end function HealBot_UnRegister_Events() -- HealBot:UnregisterEvent("ZONE_CHANGED_NEW_AREA"); -- HealBot:UnregisterEvent("PLAYER_REGEN_DISABLED"); -- HealBot:UnregisterEvent("PLAYER_REGEN_ENABLED"); -- HealBot:UnregisterEvent("UNIT_ENTERED_VEHICLE"); -- HealBot:UnregisterEvent("UNIT_EXITED_VEHICLE"); -- HealBot:UnregisterEvent("UNIT_EXITING_VEHICLE"); -- HealBot:UnregisterEvent("PLAYER_TARGET_CHANGED"); -- HealBot:UnregisterEvent("PLAYER_FOCUS_CHANGED"); -- HealBot:UnregisterEvent("PARTY_MEMBERS_CHANGED"); -- HealBot:UnregisterEvent("UNIT_HEALTH"); -- HealBot_UnRegister_Mana() -- HealBot:UnregisterEvent("LEARNED_SPELL_IN_TAB"); -- HealBot:UnregisterEvent("UNIT_SPELLCAST_SENT"); -- HealBot:UnregisterEvent("UNIT_SPELLCAST_START"); -- HealBot:UnregisterEvent("UNIT_SPELLCAST_STOP"); -- HealBot:UnregisterEvent("UNIT_SPELLCAST_FAILED"); -- HealBot:UnregisterEvent("UNIT_SPELLCAST_INTERRUPTED"); -- HealBot:UnregisterEvent("UNIT_SPELLCAST_SUCCEEDED"); -- HealBot:UnregisterEvent("UNIT_AURA"); -- HealBot:UnregisterEvent("CHARACTER_POINTS_CHANGED"); -- HealBot:UnregisterEvent("UNIT_INVENTORY_CHANGED"); -- HealBot:UnregisterEvent("CHAT_MSG_ADDON"); -- HealBot:UnregisterEvent("CHAT_MSG_SYSTEM"); -- HealBot:UnregisterEvent("MODIFIER_STATE_CHANGED"); -- HealBot:UnregisterEvent("UNIT_PET"); -- HealBot:UnregisterEvent("UNIT_NAME_UPDATE"); -- HealBot:UnregisterEvent("RAID_ROSTER_UPDATE"); -- HealBot:UnregisterEvent("INSPECT_TALENT_READY"); -- HealBot_UnRegister_Aggro() HB_Timer1=0.5 HB_Timer2=0.2 HB_Timer3=0.025 HealBot_Action_Set_Timers(true) -- HealBot:UnregisterEvent("PARTY_MEMBER_DISABLE"); -- HealBot:UnregisterEvent("PARTY_MEMBER_ENABLE"); end local aUnit,oUnit,eUnit=nil,nil,nil local aGUID=nil local HealBot_nonAggro={} local aggroSwitch=0 function HealBot_CheckAggro() aggroSwitch=aggroSwitch+1 if aggroSwitch>1 then for aUnit,oUnit in pairs(HealBot_Aggro2) do HealBot_CheckUnitAggro(aUnit, oUnit) end aggroSwitch=0 else for aUnit,oUnit in pairs(HealBot_Aggro1) do HealBot_CheckUnitAggro(aUnit, oUnit) end end if eUnit and UnitExists(eUnit) then for xGUID,xUnit in pairs(HealBot_nonAggro) do if UnitExists(eUnit) and UnitIsEnemy(xUnit, eUnit) then z=HealBot_CalcThreat(xUnit) or 0 if z and z>0 then y = UnitThreatSituation(xUnit) or 0 if HealBot_AggroS==1 then HealBot_Aggro1[xUnit]=xUnit HealBot_AggroS=2 else HealBot_Aggro2[xUnit]=xUnit HealBot_AggroS=1 end HealBot_nonAggro[xGUID]=nil if z==100 and y<2 then y=2 end HealBot_Action_UpdateAggro(xUnit,true,y,xGUID,z) end end end end end function HealBot_CheckUnitAggro(aUnit, oUnit) y = UnitThreatSituation(aUnit) xGUID=HealBot_UnitGUID(aUnit) if not y then if UnitIsEnemy(aUnit, aUnit.."target") then if not UnitIsUnit(aUnit, aUnit.."targettarget") then HealBot_qClearUnitAggro(aUnit, xGUID) HealBot_SetAggro(aUnit) end elseif UnitIsEnemy(oUnit, oUnit.."target") then if not UnitIsUnit(aUnit, oUnit.."targettarget") then HealBot_qClearUnitAggro(aUnit, xGUID) HealBot_SetAggro(oUnit) end else HealBot_qClearUnitAggro(aUnit, xGUID) end else z=HealBot_CalcThreat(aUnit) or 0 if z==100 and y<2 then y=2 end if y~=HealBot_Action_RetUnitThreat(xGUID) or z~=HealBot_Action_RetUnitThreatPct(xGUID) then HealBot_Action_UpdateAggro(aUnit,true,y,xGUID,z) end end end function HealBot_CalcThreat(unit) z=nil if UnitIsEnemy(unit, unit.."target") then if UnitIsUnit(unit, unit.."targettarget") then z=100 else _, _, z, _, _ = UnitDetailedThreatSituation(unit, unit.."target") end elseif eUnit and UnitExists(eUnit) and UnitIsEnemy(unit, eUnit) then _, _, z, _, _ = UnitDetailedThreatSituation(unit, eUnit) elseif UnitExists("playertarget") and UnitIsEnemy("player", "playertarget") then _, _, z, _, _ = UnitDetailedThreatSituation(unit, "playertarget") end return z end function HealBot_qClearUnitAggro(unit, hbGUID) HealBot_endAggro[unit]=hbGUID HealBot_luVars["DelayClearAggro"]=true end function HealBot_ClearUnitAggro(unit, hbGUID) if UnitExists(unit) and eUnit and hbGUID then z=HealBot_CalcThreat(unit) if not z or z==0 then if HealBot_Aggro1[unit] then HealBot_Aggro1[unit]=nil end if HealBot_Aggro2[unit] then HealBot_Aggro2[unit]=nil end HealBot_nonAggro[hbGUID]=unit HealBot_Action_UpdateAggro(unit,false,nil,hbGUID) else y = UnitThreatSituation(unit) or 0 if z==100 and y<2 then y = 2 end if y~=HealBot_Action_RetUnitThreat(hbGUID) or z~=HealBot_Action_RetUnitThreatPct(hbGUID) then HealBot_Action_UpdateAggro(unit,true,y,hbGUID,z) end end else if HealBot_Aggro1[unit] then HealBot_Aggro1[unit]=nil end if HealBot_Aggro2[unit] then HealBot_Aggro2[unit]=nil end if unit then HealBot_Action_UpdateAggro(unit,false,nil,hbGUID) end end end function HealBot_SetAggro(unit) uName=UnitName(unit.."targettarget") aGUID=HealBot_Derive_GUID_fuName(uName) xUnit=HealBot_UnitID[aGUID] if xUnit and xUnit~="target" then if UnitIsUnit(unit, xUnit) then z=100 elseif UnitIsEnemy(xUnit, xUnit.."target") and UnitIsUnit (xUnit, xUnit.."targettarget") then z=100 else _, _, z, _, _ = UnitDetailedThreatSituation(xUnit, unit.."target") end y = UnitThreatSituation(xUnit) or 0 if z==100 and y<2 then y = 2 end if HealBot_Aggro1[xUnit] then HealBot_Aggro1[xUnit]=unit elseif HealBot_Aggro2[xUnit] then HealBot_Aggro2[xUnit]=unit elseif HealBot_AggroS==1 then HealBot_Aggro1[xUnit]=unit HealBot_AggroS=2 else HealBot_Aggro2[xUnit]=unit HealBot_AggroS=1 end HealBot_nonAggro[aGUID]=nil if y~=HealBot_Action_RetUnitThreat(aGUID) or z~=HealBot_Action_RetUnitThreatPct(aGUID) then HealBot_Action_UpdateAggro(xUnit,true,y,aGUID,z) end end if Healbot_Config_Skins.ShowAggroBarsPct[Healbot_Config_Skins.Current_Skin]==1 or Healbot_Config_Skins.ShowAggroTextPct[Healbot_Config_Skins.Current_Skin]==1 then if not eUnit or not UnitIsEnemy(unit, eUnit) then eUnit=unit.."target" HealBot_unitHealthMax["eUnit"]=UnitHealthMax(eUnit) or 2 HealBot_unitHealth["eUnit"]=UnitHealth(eUnit) or 1 elseif UnitHealthMax(eUnit)>HealBot_unitHealthMax["eUnit"] or (UnitHealthMax(eUnit)==HealBot_unitHealthMax["eUnit"] and UnitHealth(eUnit)>HealBot_unitHealth["eUnit"]) then eUnit=unit.."target" HealBot_unitHealthMax["eUnit"]=UnitHealthMax(eUnit) HealBot_unitHealth["eUnit"]=UnitHealth(eUnit) end end end function HealBot_nileUnit() eUnit=nil HealBot_unitHealth["eUnit"]=0 HealBot_unitHealthMax["eUnit"]=0 end function HealBot_Update_nonAggro() for xGUID,xUnit in pairs(HealBot_UnitID) do HealBot_nonAggro[xGUID]=xUnit end end function HealBot_RetSetAggroSize() z=0 for _,_ in pairs(HealBot_Aggro1) do z=z+1 end y=0 for _,_ in pairs(HealBot_Aggro2) do y=y+1 end return z, y end function HealBot_ClearAggro(force, unit) if unit then xGUID=HealBot_UnitGUID(unit) if force then HealBot_Action_UpdateAggro(unit,false,nil,xGUID) HealBot_Aggro1[unit]=nil else HealBot_ClearUnitAggro(xUnit, xGUID) end else for xUnit,_ in pairs(HealBot_Aggro1) do xGUID=HealBot_UnitGUID(xUnit) if force then HealBot_Action_UpdateAggro(xUnit,false,nil,xGUID) HealBot_Aggro1[xUnit]=nil else HealBot_qClearUnitAggro(xUnit, xGUID) end end for xUnit,_ in pairs(HealBot_Aggro2) do xGUID=HealBot_UnitGUID(xUnit) if force then HealBot_Action_UpdateAggro(xUnit,false,nil,xGUID) HealBot_Aggro2[xUnit]=nil else HealBot_qClearUnitAggro(xUnit, xGUID) end end if force then HealBot_Action_EndAggro() HealBot_nileUnit() HealBot_Update_nonAggro() end end end local HealBotAddonSummary={} local HealBotAddonIncHeals={} local hbExtra1, hbExtra2=nil, nil function HealBot_OnEvent_AddonMsg(self,addon_id,msg,distribution,sender_id) -- inc_msg = gsub(msg, "%$", "s"); -- inc_msg = gsub(inc_msg, "�", "S"); inc_msg=msg sender_id = HealBot_UnitNameOnly(sender_id) utGUID=nil if not HealBotAddonSummary[sender_id..": "..addon_id] then HealBotAddonSummary[sender_id..": "..addon_id]=string.len(inc_msg) else HealBotAddonSummary[sender_id..": "..addon_id]=HealBotAddonSummary[sender_id..": "..addon_id]+string.len(inc_msg) end if addon_id==HealBot_IncHeals_retAddonCommsID() and HealBot_Config.HealCommMethod>3 then HealBot_IncHeals_Msg(inc_msg, sender_id) elseif addon_id=="HealBot" then _,_, datatype, sender, datamsg = strfind(inc_msg, ">> (%a+) <<=>> (%a+) <<=>> (.+)"); if sender then if datatype=="RequestVersion" then HealBot_Comms_SendAddonMsg("HealBot", ">> SendVersion <<=>> "..sender.." <<=>> Version="..HEALBOT_VERSION, HealBot_AddonMsgType, HealBot_PlayerName) elseif datatype=="SendVersion" then HealBot_Vers[sender_id]=strsub(datamsg,9,-1) HealBot_AddDebug(sender_id..": "..datamsg); HealBot_Comms_CheckVer(sender_id, strsub(datamsg,9,-1)) end else datatype, datamsg, hbExtra1, hbExtra2 = string.split(":", inc_msg) if datatype=="R" then HealBot_RequestVer=sender_id if HealBot_Options_Timer[130] then HealBot_Options_Timer[130]=nil end elseif datatype=="S" then HealBot_Vers[sender_id]=datamsg if hbExtra1 then if hbExtra1=="V" then HealBot_IncHeals_sethbCommsUsers(sender_id) else HealBot_IncHeals_removehbCommsUsers(sender_id) end end HealBot_AddDebug(sender_id..": "..datamsg); HealBot_Comms_CheckVer(sender_id, datamsg) elseif datatype=="G" then HealBot_Comms_SendAddonMsg("HealBot", "H:"..HEALBOT_VERSION, 4, sender_id) if not HealBot_Vers[sender_id] then HealBot_Comms_SendAddonMsg("HealBot", "G", 4, sender_id) end elseif datatype=="F" then HealBot_Comms_SendAddonMsg("HealBot", "C:"..HEALBOT_VERSION, 4, sender_id) if not HealBot_Vers[sender_id] then HealBot_Comms_SendAddonMsg("HealBot", "F", 4, sender_id) end elseif datatype=="H" then HealBot_Vers[sender_id]=datamsg HealBot_AddDebug(sender_id..": "..datamsg); HealBot_Comms_CheckVer(sender_id, datamsg) HealBot_Options_setMyGuildMates(sender_id) elseif datatype=="C" then HealBot_Vers[sender_id]=datamsg HealBot_AddDebug(sender_id..": "..datamsg); HealBot_Comms_CheckVer(sender_id, datamsg) HealBot_Options_setMyFriends(sender_id) elseif datatype=="S" then HealBot_Vers[sender_id]=datamsg if hbExtra1 then if hbExtra1=="V" then HealBot_IncHeals_sethbCommsUsers(sender_id) else HealBot_IncHeals_removehbCommsUsers(sender_id) end end HealBot_AddDebug(sender_id..": "..datamsg); HealBot_Comms_CheckVer(sender_id, datamsg) elseif datatype=="X" and HealBot_Config.AcceptSkins==1 then HealBot_Options_ShareSkinRec("X", sender_id.."!"..datamsg) elseif datatype=="Y" then HealBot_AddChat(HEALBOT_CHAT_ADDONID..HEALBOT_CHAT_SHARESKINACPT..sender_id); HealBot_Options_ShareSkinSend("Z", datamsg, sender_id) elseif datatype=="Z" then HealBot_Options_ShareSkinRec("Z", hbExtra1, datamsg) elseif datatype=="RC" and Healbot_Config_Skins.ReadyCheck[Healbot_Config_Skins.Current_Skin]==1 then if datamsg=="I" then HealBot_OnEvent_hbReadyCheck(hbExtra1,hbExtra2) else HealBot_OnEvent_hbReadyCheckConfirmed(hbExtra1,hbExtra2) end end end elseif addon_id=="CTRA" then if ( strfind(inc_msg, "#") ) then arr = HealBot_Split(inc_msg, "#"); for k in pairs(arr) do HealBot_ParseCTRAMsg(sender_id, arr[k]); end else HealBot_ParseCTRAMsg(sender_id, inc_msg); end end end function HealBot_addHealBotAddonIncHeals(id) if not HealBotAddonIncHeals[id] then HealBotAddonIncHeals[id]=1 else HealBotAddonIncHeals[id]=HealBotAddonIncHeals[id]+1 end end function HealBot_RetHealBotAddonSummary() return HealBotAddonSummary end function HealBot_RetHealBotAddonIncHeals() return HealBotAddonIncHeals end function HealBot_GetInfo() return HealBot_Vers end function HealBot_Split(msg, char) for x,_ in pairs(arrg) do arrg[x]=nil; end while (strfind(msg, char) ) do x, y = strfind(msg, char); tinsert(arrg, strsub(msg, 1, x-1)); msg = strsub(msg, y+1, strlen(msg)); end if ( strlen(msg) > 0 ) then tinsert(arrg, msg); end return arrg; end function HealBot_ParseCTRAMsg(sender_id, inc_msg) if ( strsub(inc_msg, 1, 3) == "RES" ) then if ( inc_msg == "RESNO" ) then for j in pairs(HealBot_Ressing) do if HealBot_Ressing[j]==sender_id then HealBot_Ressing[j] = "_RESSED_"; break end end else _,_, uName = strfind(inc_msg, "^RES (.+)$"); if ( uName ) then xGUID = HealBot_Derive_GUID_fuName(uName) if HealBot_UnitID[xGUID] then HealBot_Ressing[xGUID] = sender_id; HealBot_RecalcHeals(xGUID); end end end elseif ( strsub(inc_msg, 1, 4) == "SET " ) then _,_, x, uName = strfind(inc_msg, "^SET (%d+) (.+)$"); if ( x and uName ) then xGUID = HealBot_Derive_GUID_fuName(uName) if HealBot_UnitID[xGUID] then for k in pairs(HealBot_CTRATanks) do if ( HealBot_CTRATanks[k] == xGUID ) then HealBot_CTRATanks[k] = nil; end end end HealBot_CTRATanks[tonumber(x)] = xGUID; end HealBot_addPrivateTanks() elseif ( strsub(inc_msg, 1, 2) == "R " ) then _,_, uName = strfind(inc_msg, "^R (.+)$"); if ( uName ) then xGUID = HealBot_Derive_GUID_fuName(uName) if HealBot_UnitID[xGUID] then for k in pairs(HealBot_CTRATanks) do if ( HealBot_CTRATanks[k] == xGUID ) then HealBot_CTRATanks[k] = nil; end end end end HealBot_addPrivateTanks() end end local dGUID,uGUID=nil,nil local hbTempUnitNames={} function HealBot_Derive_GUID_fuName(unitName) if not unitName then return end dGUID=HealBot_RetUnitNameGUIDs(unitName) if not dGUID then xUnit=HealBot_RaidUnit(hbTempUnitNames[unitName],nil,unitName) if xUnit then hbTempUnitNames[unitName]=xUnit dGUID=HealBot_UnitGUID(xUnit) end end return dGUID end function HealBot_OnEvent_RaidRosterUpdate(self) for x,_ in pairs(HealBot_MainTanks) do HealBot_MainTanks[x]=nil; end for x,_ in pairs(HealBot_MainAssists) do HealBot_MainAssists[x]=nil; end y = 0 w = 0 for i=1,GetNumRaidMembers() do xUnit = "raid"..i xGUID=UnitGUID(xUnit) if xGUID then _,_,_,_,_,_,_,_,_,z,_ = GetRaidRosterInfo(i) if z and string.lower(z)=="maintank" then y = y + 1 HealBot_MainTanks[y]=xGUID elseif z and string.lower(z)=="mainassist" then w = w + 1 HealBot_MainAssists[w]=xGUID end end end HealBot_addPrivateTanks() end function HealBot_addPrivateTanks() local PrivTanks = HealBot_Panel_retPrivateTanks() table.foreach(PrivTanks, function (i,xGUID) HealBot_addExtraTank(xGUID) end) if Delay_RecalcParty<2 then Delay_RecalcParty=2; end end function HealBot_addExtraTank(hbGUID) z = true for i=1, #HealBot_MainTanks do if hbGUID==HealBot_MainTanks[i] then z = false break; end end if z then HealBot_MainTanks[#HealBot_MainTanks+1]=hbGUID end end function HealBot_removePrivateTanks(hbGUID) for i=1, #HealBot_MainTanks do if hbGUID==HealBot_MainTanks[i] then y=i break; end end if y>0 then HealBot_MainTanks[y]=nil if #HealBot_MainTanks>y then for i=y, #HealBot_MainTanks-1 do HealBot_MainTanks[i]=HealBot_MainTanks[i+1] end end end end function HealBot_OnEvent_UnitHealth(self,unit,health,healthMax) hGUID=HealBot_UnitGUID(unit) if not hGUID then return end if hGUID and HealBot_VehicleUnit[unit] and not HealBot_UnitID[hGUID] then HealBot_UnitID[hGUID]=unit end if HealBot_Config.DisableHealBot==1 or not HealBot_UnitID[hGUID] then return end hUnit=HealBot_IDs(unit,hGUID) if not hUnit then return end if HealBot_VehicleUnit[hUnit] then HBvUnits=HealBot_VehicleUnit[hUnit] for xUnit,_ in pairs(HBvUnits) do HealBot_Action_ResetUnitStatus(xUnit) end if not HealBot_Unit_Button[hUnit] then y = UnitThreatSituation(hUnit) or 0 if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 and (UnitIsEnemy(hUnit, hUnit.."target") or y>0) then HealBot_Action_SetVAggro(hGUID, true) else HealBot_Action_SetVAggro(hGUID, nil) end HealBot_VehicleSetHealth(hUnit, health, healthMax) return end end if not HealBot_unitHealth[hGUID] then HealBot_unitHealth[hGUID]=-1 HealBot_unitHealthMax[hGUID]=-1 end if HealBot_unitHealth[hGUID]~=health or HealBot_unitHealthMax[hGUID]~=healthMax then if HealBot_unitHealthMax[hGUID]~=healthMax then HealBot_talentSpam(hGUID,"update",1) end HealBot_unitHealth[hGUID]=health HealBot_unitHealthMax[hGUID]=healthMax HealBot_RecalcHeals(hGUID) end -- if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 and UnitIsEnemy(hUnit, hUnit.."target") then HealBot_SetAggro(hUnit) end end function HealBot_Reset_UnitHealth(hbGUID) if hbGUID and HealBot_UnitID[hbGUID] then HealBot_OnEvent_UnitHealth(nil,HealBot_UnitID[hbGUID],UnitHealth(HealBot_UnitID[hbGUID]),UnitHealthMax(HealBot_UnitID[hbGUID])) else for xUnit,_ in pairs(HealBot_Unit_Button) do HealBot_OnEvent_UnitHealth(nil,xUnit,UnitHealth(xUnit),UnitHealthMax(xUnit)) end end end function HealBot_VehicleHealth(unit) vGUID=HealBot_UnitGUID(unit) if not vGUID then HealBot_NoVehicle(unit) return 100,100 end if not HealBot_unitHealth[vGUID] then HealBot_unitHealth[vGUID]=UnitHealth(unit) HealBot_unitHealthMax[vGUID]=UnitHealthMax(unit) end return HealBot_unitHealth[vGUID], HealBot_unitHealthMax[vGUID] end function HealBot_NoVehicle(unit) HBvUnits=HealBot_VehicleUnit[unit] if not HBvUnits then HealBot_AddDebug("HBvUnits is NIL in HealBot_NoVehicle") else for xUnit,_ in pairs(HBvUnits) do if HealBot_UnitInVehicle[xUnit] then HealBot_UnitInVehicle[xUnit]=nil end end end if HealBot_VehicleUnit[unit] then HealBot_VehicleUnit[unit]=nil end vGUID=HealBot_UnitGUID(unit) if vGUID then if HealBot_unitHealth[vGUID] then HealBot_unitHealth[vGUID]=nil HealBot_unitHealthMax[vGUID]=nil end if HealBot_UnitID[vGUID] then HealBot_UnitID[vGUID]=nil end end end function HealBot_VehicleSetHealth(unit, health, healthMax) vGUID=HealBot_UnitGUID(unit) if not vGUID then HealBot_NoVehicle(unit) else HealBot_unitHealth[vGUID]=health HealBot_unitHealthMax[vGUID]=healthMax end end function HealBot_OnEvent_VehicleChange(self, unit, enterVehicle) xGUID=HealBot_UnitGUID(unit) if not xGUID then return end xUnit=HealBot_IDs(unit,xGUID) if not xUnit then return end if enterVehicle then vUnit=HealBot_UnitPet(xUnit) if vUnit and UnitHasVehicleUI(xUnit) then if HealBot_VehicleCheck[xUnit] then HealBot_VehicleCheck[xUnit]=nil end if not HealBot_VehicleUnit[vUnit] then HealBot_VehicleUnit[vUnit]={} end HealBot_VehicleUnit[vUnit][xUnit]=true HealBot_UnitInVehicle[xUnit]=vUnit xGUID=HealBot_UnitGUID(vUnit) if xGUID and not HealBot_UnitID[xGUID] then HealBot_UnitID[xGUID]=vUnit end HealBot_OnEvent_UnitHealth(self,vUnit,UnitHealth(vUnit),UnitHealthMax(vUnit)) elseif self then HealBot_VehicleCheck[xUnit]=1 end elseif HealBot_UnitInVehicle[xUnit] then vUnit=HealBot_UnitInVehicle[xUnit] HealBot_NoVehicle(vUnit) end HealBot_Action_ResetUnitStatus(xUnit) Delay_RecalcParty=1 end function HealBot_OnEvent_LeavingVehicle(self, unit) xGUID=HealBot_UnitGUID(unit) if not xGUID then return end xUnit=HealBot_IDs(unit,xGUID) if not xUnit then return end if HealBot_UnitInVehicle[xUnit] then vUnit=HealBot_UnitInVehicle[xUnit] HealBot_Action_SetVAggro(HealBot_UnitGUID(vUnit), nil) end end function HealBot_retIsInVehicle(unit) return HealBot_UnitInVehicle[unit] end function HealBot_CheckAllUnitVehicle(unit) if unit then HealBot_OnEvent_VehicleChange(nil, unit, true) else for xUnit,_ in pairs(HealBot_Unit_Button) do HealBot_VehicleCheck[xUnit]=3 end end end function HealBot_OnEvent_UnitMana(self,unit) xGUID=HealBot_UnitGUID(unit) if not xGUID then return end xUnit=HealBot_IDs(unit,xGUID) if not xUnit or not HealBot_UnitName[xGUID] or HealBot_Config.DisableHealBot==1 then return end HealBot_Action_SetBar3Value(HealBot_Unit_Button[xUnit]) end function HealBot_OnEvent_UnitMaxMana(self,unit) xGUID=HealBot_UnitGUID(unit) if not xGUID then return end HealBot_talentSpam(xGUID,"update",1) end function HealBot_OnEvent_UnitCombat(self,unit) xGUID=HealBot_UnitGUID(unit) if not xGUID then return end xUnit=HealBot_IDs(unit,xGUID) if not xUnit then return end if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 and UnitIsEnemy(xUnit, xUnit.."target") then HealBot_SetAggro(xUnit) end end function HealBot_OnEvent_ModifierStateChange(self,arg1,arg2) if HealBot_Action_TooltipUnit then HealBot_Action_RefreshTooltip(HealBot_Action_TooltipUnit,"Enabled"); elseif HealBot_Action_DisableTooltipUnit then HealBot_Action_RefreshTooltip(HealBot_Action_DisableTooltipUnit,"Disabled"); end end function HealBot_OnEvent_ZoneChanged(self) HealBot_setOptions_Timer(120) end function HealBot_CheckZone() local inBG=nil -- z = GetRealZoneText() _,z = IsInInstance() if z=="pvp" or z == "arena" then inBG=true end HealBot_SetAddonComms(inBG) HealBot_Queue_AllActiveMyBuffs() for xGUID,_ in pairs(HealBot_UnitID) do HealBot_CheckHealth(xGUID) end end local uaUnit=nil local uaGUID=nil function HealBot_OnEvent_UnitAura(self,unit) uaGUID=HealBot_UnitGUID(unit) if not uaGUID or not HealBot_UnitID[uaGUID] then return end uaUnit=HealBot_IDs(unit,uaGUID) if not HealBot_Unit_Button[uaUnit] then if UnitName("target")==UnitName(uaUnit) then uaUnit="target" uaGUID=HealBot_UnitGUID(uaUnit) if not uaGUID or not HealBot_UnitID[uaGUID] then return end else return; end end if HealBot_Config.DebuffWatch==1 then if HealBot_Config.DebuffWatchInCombat==0 and HealBot_IsFighting then HealBot_DelayDebuffCheck[uaGUID]="S"; else HealBot_DelayDebuffCheck[uaGUID]="F"; HealBot_luVars["DelayDebuffCheck"]=true end end if HealBot_Config.BuffWatch==1 then if HealBot_Config.BuffWatchInCombat==0 and HealBot_IsFighting then HealBot_DelayBuffCheck[uaGUID]="S"; else HealBot_DelayBuffCheck[uaGUID]="F"; HealBot_luVars["DelayBuffCheck"]=true end end if Healbot_Config_Skins.ShowHoTicons[Healbot_Config_Skins.Current_Skin]==1 then HealBot_DelayAuraCheck[uaGUID]=uaUnit HealBot_luVars["DelayAuraCheck"]=true end -- if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 and UnitIsEnemy(uaUnit, uaUnit.."target") then HealBot_SetAggro(uaUnit) end end function HealBot_SetUnitBuffTimer(hbGUID,buffName,endtime) if not HealBot_PlayerBuff[hbGUID] then HealBot_PlayerBuff[hbGUID]={} end if HealBot_ShortBuffs[buffName] then HealBot_PlayerBuff[hbGUID][buffName] = endtime-HealBot_Config.ShortBuffTimer else HealBot_PlayerBuff[hbGUID][buffName] = endtime-HealBot_Config.LongBuffTimer end -- HealBot_AddDebug("Set bufftimer.buffName="..buffName.." hbGUID="..hbGUID.." endtime="..endtime) if not HealBot_CheckBuffsTime or HealBot_PlayerBuff[hbGUID][buffName] < HealBot_CheckBuffsTime then HealBot_CheckBuffsTime=HealBot_PlayerBuff[hbGUID][buffName] HealBot_CheckBuffsTimehbGUID=hbGUID end end function HealBot_HasBuff(buffName, unit) x,_,iTexture,bCount,_,_,expirationTime, caster,_ = UnitBuff(unit,buffName) if x then if not HealBot_HoT_Texture[buffName] then HealBot_HoT_Texture[buffName]=iTexture end return true, expirationTime, caster, bCount; end return false; end local hbExcludeSpells = { [67358]="Rejuvenating", [58597]="Sacred Shield" } function HealBot_HasUnitBuff(buffName, unit, casterUnitID) if UnitExists(unit) then k = 1 while true do x,_,iTexture,bCount,_,_,expirationTime, caster,_,_,spellID = UnitAura(unit, k, "HELPFUL"); if x then if x==buffName and casterUnitID==caster and not hbExcludeSpells[spellID] then if not HealBot_HoT_Texture[buffName] then HealBot_HoT_Texture[buffName]=iTexture end return true, expirationTime, bCount end k=k+1 else do break end end end end return false; end function HealBot_HasDebuff(debuffName, unit) x,_,_,_,_,_,_,_,_ = UnitDebuff(unit,debuffName) if x then return true; end return false; end local hbHoTcaster="!"; local hbFoundHoT={} local hbNoEndTime=GetTime()+604800 function HealBot_HasMyBuffs(hbGUID) xUnit=HealBot_UnitID[hbGUID] if UnitExists(xUnit) then for x,_ in pairs(hbFoundHoT) do hbFoundHoT[x]=nil; end k = 1 HoTActive=nil while true do bName,_,iTexture,bCount,_,_,expirationTime, caster,_,_,spellID = UnitAura(xUnit, k, "HELPFUL"); if bName and caster then y=HealBot_Watch_HoT[bName] or "nil" if (y=="A" or (y=="C" and caster=="player")) and not hbExcludeSpells[spellID] then hbHoTcaster=UnitGUID(caster).."!" if bName==HEALBOT_INNER_FOCUS or bName==HEALBOT_NATURE_SWIFTNESS or (expirationTime or 0)==0 then expirationTime=hbNoEndTime end if not HealBot_Player_HoT[hbGUID] then HealBot_Player_HoT[hbGUID]={} end if not HealBot_Player_HoT_Icons[hbGUID] then HealBot_Player_HoT_Icons[hbGUID]={} end if not HealBot_Player_HoT_Icons[hbGUID][hbHoTcaster..bName] then HealBot_Player_HoT_Icons[hbGUID][hbHoTcaster..bName]=0 end if not HealBot_Player_HoT[hbGUID][hbHoTcaster..bName] then HealBot_Player_HoT[hbGUID][hbHoTcaster..bName]=expirationTime+1 end hbFoundHoT[hbHoTcaster..bName]=true if (bCount and bCount>1) or HealBot_HoT_Count[hbHoTcaster..bName] then if (Healbot_Config_Skins.ShowIconTextCountSelfCast[Healbot_Config_Skins.Current_Skin]==1 and caster~="player") or Healbot_Config_Skins.ShowIconTextCount[Healbot_Config_Skins.Current_Skin]==0 then if HealBot_HoT_Count[hbHoTcaster..bName] then HealBot_HoT_Count[hbHoTcaster..bName]=nil end else if not HealBot_HoT_Count[hbHoTcaster..bName] then HealBot_HoT_Count[hbHoTcaster..bName]={} end if bCount~=(HealBot_HoT_Count[hbHoTcaster..bName][hbGUID] or 0) then HealBot_HoT_Count[hbHoTcaster..bName][hbGUID]=bCount HealBot_Player_HoT[hbGUID][hbHoTcaster..bName]=expirationTime+1 end end end if bName==HEALBOT_POWER_WORD_SHIELD then HoTActive=HEALBOT_POWER_WORD_SHIELD if (HealBot_TrackWS[hbGUID] or "-")=="-" and expirationTime>GetTime()+20 then HealBot_TrackWS[hbGUID]="+" HealBot_Player_HoT[hbGUID][hbHoTcaster..bName]=expirationTime+1 elseif HealBot_TrackWS[hbGUID] and not HealBot_HasDebuff(HEALBOT_DEBUFF_WEAKENED_SOUL, xUnit) then HealBot_TrackWS[hbGUID]=nil HealBot_Player_HoT[hbGUID][hbHoTcaster..bName]=expirationTime+1 end end if not HealBot_HoT_Texture[bName] then HealBot_HoT_Texture[bName]=iTexture end if HealBot_Player_HoT[hbGUID][hbHoTcaster..bName]~=expirationTime then HealBot_Player_HoT[hbGUID][hbHoTcaster..bName]=expirationTime HealBot_HoT_Update(hbGUID, hbHoTcaster..bName) end end k=k+1 else do break end end end if not HoTActive and (HealBot_Watch_HoT[HEALBOT_POWER_WORD_SHIELD]=="A" or HealBot_Watch_HoT[HEALBOT_POWER_WORD_SHIELD]=="C") then bName,_,iTexture,bCount,_,_,expirationTime, caster,_,_,spellID = UnitDebuff(xUnit, HEALBOT_DEBUFF_WEAKENED_SOUL); if bName and caster then if (HealBot_Watch_HoT[HEALBOT_POWER_WORD_SHIELD]=="A" or (HealBot_Watch_HoT[HEALBOT_POWER_WORD_SHIELD]=="C" and caster=="player")) then hbHoTcaster=UnitGUID(caster).."!" if not HealBot_Player_HoT[hbGUID] then HealBot_Player_HoT[hbGUID]={} end if not HealBot_Player_HoT_Icons[hbGUID] then HealBot_Player_HoT_Icons[hbGUID]={} end if not HealBot_Player_HoT_Icons[hbGUID][hbHoTcaster..HEALBOT_POWER_WORD_SHIELD] then HealBot_Player_HoT_Icons[hbGUID][hbHoTcaster..HEALBOT_POWER_WORD_SHIELD]=0 end if not HealBot_Player_HoT[hbGUID][hbHoTcaster..HEALBOT_POWER_WORD_SHIELD] then HealBot_Player_HoT[hbGUID][hbHoTcaster..HEALBOT_POWER_WORD_SHIELD]=expirationTime+1 end HealBot_HoT_Texture[HEALBOT_DEBUFF_WEAKENED_SOUL]=iTexture HealBot_TrackWS[hbGUID]="-" if HealBot_Player_HoT[hbGUID][hbHoTcaster..HEALBOT_POWER_WORD_SHIELD]~=expirationTime then HealBot_Player_HoT[hbGUID][hbHoTcaster..HEALBOT_POWER_WORD_SHIELD]=expirationTime HealBot_HoT_Update(hbGUID, hbHoTcaster..HEALBOT_POWER_WORD_SHIELD) end hbFoundHoT[hbHoTcaster..HEALBOT_POWER_WORD_SHIELD]=true elseif HealBot_TrackWS[hbGUID] then HealBot_TrackWS[hbGUID]=nil end end end huHoTtime=HealBot_Player_HoT[hbGUID] if huHoTtime then for sName, expirationTime in pairs(huHoTtime) do if not hbFoundHoT[sName] then _, hotName=string.split("!", sName) if HealBot_Watch_HoT[hotName] then huHoTtime[sName]=1 if HealBot_Player_HoT_Icons[hbGUID][sName]>0 then HealBot_HoT_Update(hbGUID, sName) else huHoTtime[sName]=nil HealBot_Player_HoT_Icons[hbGUID][sName]=nil if HealBot_HoT_Count[sName] and HealBot_HoT_Count[sName][hbGUID] then HealBot_HoT_Count[sName][hbGUID]=nil end end end end end end end end function HealBot_CheckMyBuffs(hbGUID) xUnit=HealBot_UnitID[hbGUID] if not xUnit then return end for bName,_ in pairs(HealBot_CheckBuffs) do _,_,_,_,_,_,z,caster,_ = HealBot_HasUnitBuff(xUnit,bName,"player") if z and caster and caster=="player" then HealBot_SetUnitBuffTimer(hbGUID,bName,z) elseif HealBot_PlayerBuff[hbGUID] and HealBot_PlayerBuff[hbGUID][bName] then if HealBot_PlayerBuff[hbGUID][bName]==HealBot_CheckBuffsTime then HealBot_PlayerBuff[hbGUID][bName]=nil HealBot_ResetCheckBuffsTime() else HealBot_PlayerBuff[hbGUID][bName]=nil end end end end function HealBot_CheckAllBuffs(hbGUID) if HealBot_Config.BuffWatch==1 then if hbGUID then if not HealBot_DelayBuffCheck[hbGUID] then HealBot_DelayBuffCheck[hbGUID]="S" end else for xGUID,_ in pairs(HealBot_UnitID) do if not HealBot_DelayBuffCheck[xGUID] then HealBot_DelayBuffCheck[xGUID]="S" end end end end end function HealBot_ClearAllBuffs(hbGUID) if hbGUID then if HealBot_DelayBuffCheck[hbGUID] then HealBot_DelayBuffCheck[hbGUID]=nil HealBot_Action_ResetUnitStatus(HealBot_UnitID[hbGUID]) end else for x,_ in pairs(HealBot_DelayBuffCheck) do HealBot_DelayBuffCheck[x]=nil; HealBot_Action_ResetUnitStatus(HealBot_UnitID[x]) end end end function HealBot_CheckAllDebuffs(hbGUID) if HealBot_Config.DebuffWatch==1 then if hbGUID then if not HealBot_DelayDebuffCheck[hbGUID] then HealBot_DelayDebuffCheck[hbGUID]="S" end else for xGUID,_ in pairs(HealBot_UnitID) do if not HealBot_DelayDebuffCheck[xGUID] then HealBot_DelayDebuffCheck[xGUID]="S" end end end end end function HealBot_ClearAllDebuffs(hbGUID) if hbGUID then if HealBot_DelayDebuffCheck[hbGUID] then HealBot_DelayDebuffCheck[hbGUID]=nil HealBot_Action_ResetUnitStatus(HealBot_UnitID[hbGUID]) end else for x,_ in pairs(HealBot_DelayDebuffCheck) do HealBot_DelayDebuffCheck[x]=nil; HealBot_Action_ResetUnitStatus(HealBot_UnitID[x]) end end end local DebuffNameIn="x" local curDebuffs={} local DebuffClass=nil local myhTargets={} local inSpellRange = 0 -- added by Diacono local dPrio=100 local debuffDuration=nil local trackdebuffIcon={} function HealBot_CheckUnitDebuffs(hbGUID) if not HealBot_UnitID[hbGUID] then return end xUnit=HealBot_UnitID[hbGUID] if not xUnit or not HealBot_Unit_Button[xUnit] or not UnitExists(xUnit) then return end _,DebuffClass=UnitClass(xUnit) if not DebuffClass then DebuffClass=HealBot_Class_En[HEALBOT_WARRIOR] end DebuffType=nil; y = 1; if HealBot_UnitDebuff[hbGUID] then DebuffNameIn=HealBot_UnitDebuff[hbGUID]["name"] else DebuffNameIn="x" end for x,_ in pairs(curDebuffs) do curDebuffs[x]=nil; end while true do dName,_,_,_,debuff_type,debuffDuration,_,_,_,_ = UnitDebuff(xUnit,y) if dName then y = y +1 curDebuffs[dName]={} if HealBot_Config.HealBot_Custom_Debuffs[dName] then debuff_type = HEALBOT_CUSTOM_en end curDebuffs[dName]["priority"]=HealBot_Options_retDebuffPriority(dName, debuff_type) curDebuffs[dName]["type"]=debuff_type curDebuffs[dName]["duration"]=debuffDuration else do break end end end dPrio = 100 for dName,_ in pairs(curDebuffs) do if curDebuffs[dName]["priority"] 0) then WatchTarget={["Self"]=true,}; end end if WatchTarget then if WatchTarget["Raid"] then checkthis=true; elseif WatchTarget["Party"] and (UnitInParty(xUnit) or hbGUID==HealBot_PlayerGUID) then checkthis=true; elseif WatchTarget["Self"] and hbGUID==HealBot_PlayerGUID then checkthis=true elseif WatchTarget[strsub(DebuffClass,1,4)] then checkthis=true; elseif WatchTarget["PvP"] and UnitIsPVP("player") then checkthis=true; elseif WatchTarget["Name"] and hbGUID==WatchGUID then checkthis=true; elseif WatchTarget["Focus"] and UnitIsUnit(xUnit, "focus") then checkthis=true; elseif WatchTarget["MainTanks"] then for i=1, #HealBot_MainTanks do if hbGUID==HealBot_MainTanks[i] then checkthis=true; break; end end for i=1, #HealBot_MainAssists do if hbGUID==HealBot_MainAssists[i] then checkthis=true; break; end end for i=1, #HealBot_CTRATanks do if hbGUID==HealBot_CTRATanks[i] then checkthis=true; break; end end elseif WatchTarget["MyTargets"] then myhTargets=HealBot_GetMyHealTargets(); for i=1, #myhTargets do if hbGUID==myhTargets[i] then checkthis=true; break; end end end if checkthis and (debuff_type ~= HEALBOT_CUSTOM_en) then if HealBot_Config.IgnoreMovementDebuffs==1 and HealBot_Ignore_Movement_Debuffs[dName] then checkthis=false; elseif HealBot_Config.IgnoreFastDurDebuffs==1 and debuffDuration and debuffDuration5 then HealBot_Action_ResetUnitStatus(xUnit) else HealBot_RecalcHeals(hbGUID) HealBot_ThrottleCnt=HealBot_ThrottleCnt+1 end if HealBot_Config.CDCshownAB==1 then HealBot_Action_SetUnitDebuffStatus(hbGUID) if not HealBot_Aggro1[xUnit] and not HealBot_Aggro2[xUnit] then if HealBot_AggroS==1 then HealBot_Aggro1[xUnit]=xUnit HealBot_AggroS=2 else HealBot_Aggro2[xUnit]=xUnit HealBot_AggroS=1 end end end end end if HealBot_UnitDebuff[hbGUID] then if HealBot_UnitDebuff[hbGUID]["name"]~=DebuffNameIn then inSpellRange = HealBot_UnitInRange(HealBot_dSpell, xUnit) if HealBot_Config.CDCshownAB==1 and inSpellRange>(HealBot_Config.HealBot_CDCWarnRange_Aggro-3) then HealBot_Action_SetUnitDebuffStatus(hbGUID,debuffCodes[DebuffType]) HealBot_Action_UpdateAggro(xUnit,"debuff",debuffCodes[DebuffType],hbGUID) end if HealBot_Config.ShowDebuffWarning==1 and inSpellRange>(HealBot_Config.HealBot_CDCWarnRange_Screen-3) then if HealBot_Config.CDCBarColour[HealBot_UnitDebuff[hbGUID]["name"]] then UIErrorsFrame:AddMessage(UnitName(xUnit).." suffers from "..HealBot_UnitDebuff[hbGUID]["name"], HealBot_Config.CDCBarColour[HealBot_UnitDebuff[hbGUID]["name"]].R, HealBot_Config.CDCBarColour[HealBot_UnitDebuff[hbGUID]["name"]].G, HealBot_Config.CDCBarColour[HealBot_UnitDebuff[hbGUID]["name"]].B, 1, UIERRORS_HOLD_TIME); else UIErrorsFrame:AddMessage(UnitName(xUnit).." suffers from "..HealBot_UnitDebuff[hbGUID]["name"], HealBot_Config.CDCBarColour[DebuffType].R, HealBot_Config.CDCBarColour[DebuffType].G, HealBot_Config.CDCBarColour[DebuffType].B, 1, UIERRORS_HOLD_TIME); end end if HealBot_Config.SoundDebuffWarning==1 and inSpellRange>(HealBot_Config.HealBot_CDCWarnRange_Sound-3) then HealBot_PlaySound(HealBot_Config.SoundDebuffPlay) end if inSpellRange >-1 then if HealBot_ThrottleCnt>5 then HealBot_Action_ResetUnitStatus(xUnit) else HealBot_RecalcHeals(hbGUID) HealBot_ThrottleCnt=HealBot_ThrottleCnt+1 end else HealBot_Action_ResetUnitStatus(xUnit) end end if HealBot_UnitDebuff[hbGUID] then if Healbot_Config_Skins.ShowDebuffIcon[Healbot_Config_Skins.Current_Skin]==1 and UnitIsVisible(xUnit) then dName,_,deBuffTexture,bCount,_,_,expirationTime,_,_ = UnitDebuff(xUnit,HealBot_UnitDebuff[hbGUID]["name"]) if dName then if not HealBot_DeBuff_Texture[dName] and deBuffTexture then HealBot_DeBuff_Texture[dName]=deBuffTexture end if (expirationTime or 0)==0 then expirationTime=hbNoEndTime end if HealBot_DeBuff_Texture[dName] then if not trackdebuffIcon[hbGUID] then trackdebuffIcon[hbGUID]=dName elseif trackdebuffIcon[hbGUID]~=dName and HealBot_Player_HoT[hbGUID] and HealBot_Player_HoT[hbGUID][HealBot_PlayerGUID.."!"..trackdebuffIcon[hbGUID]] then HealBot_Player_HoT[hbGUID][HealBot_PlayerGUID.."!"..trackdebuffIcon[hbGUID]]=10 HealBot_HoT_Update(hbGUID, HealBot_PlayerGUID.."!"..trackdebuffIcon[hbGUID]) trackdebuffIcon[hbGUID]=dName end if not bCount then bCount=1 end if not HealBot_Player_HoT[hbGUID] then HealBot_Player_HoT[hbGUID]={} end if (DeBuff_Count[hbGUID] or -1)~=bCount then DeBuff_Count[hbGUID]=bCount HealBot_Player_HoT[hbGUID][HealBot_PlayerGUID.."!"..dName]=expirationTime+1 elseif not HealBot_Player_HoT[hbGUID][HealBot_PlayerGUID.."!"..dName] then HealBot_Player_HoT[hbGUID][HealBot_PlayerGUID.."!"..dName]=expirationTime+1 end if not HealBot_Player_HoT_Icons[hbGUID] then HealBot_Player_HoT_Icons[hbGUID]={} end if not HealBot_Player_HoT_Icons[hbGUID][HealBot_PlayerGUID.."!"..dName] then HealBot_Player_HoT_Icons[hbGUID][HealBot_PlayerGUID.."!"..dName]=0 end if HealBot_Player_HoT[hbGUID][HealBot_PlayerGUID.."!"..dName]~=expirationTime then HealBot_Player_HoT[hbGUID][HealBot_PlayerGUID.."!"..dName]=expirationTime HealBot_HoT_Update(hbGUID, HealBot_PlayerGUID.."!"..dName) end end elseif HealBot_Player_HoT[hbGUID] and HealBot_Player_HoT[hbGUID][HealBot_PlayerGUID.."!"..DebuffNameIn] then HealBot_Player_HoT[hbGUID][HealBot_PlayerGUID.."!"..DebuffNameIn]=10 HealBot_HoT_Update(hbGUID, HealBot_PlayerGUID.."!"..DebuffNameIn) trackdebuffIcon[hbGUID]=nil end end end end end function HealBot_CheckUnitBuffs(hbGUID) if not HealBot_UnitID[hbGUID] then return end xUnit=HealBot_UnitID[hbGUID] if not UnitName(xUnit) then return end if not xUnit or not HealBot_Unit_Button[xUnit] or not UnitExists(xUnit) then return end uName=UnitName(xUnit); if not uName then return end _,BuffClass=UnitClass(xUnit) if not BuffClass then BuffClass=HealBot_Class_En[HEALBOT_WARRIOR] end y = 1; for x,_ in pairs(PlayerBuffs) do PlayerBuffs[x]=nil; end while true do bName,_,_,_,_,_,w,_ = UnitAura(xUnit,y,"HELPFUL") if bName then PlayerBuffs[bName]=true y = y + 1; if HealBot_CheckBuffs[bName] then if w-GetTime()>0 then HealBot_SetUnitBuffTimer(hbGUID,bName,w) elseif HealBot_PlayerBuff[hbGUID] and HealBot_PlayerBuff[hbGUID][bName] then if HealBot_PlayerBuff[hbGUID][bName]==HealBot_CheckBuffsTime then HealBot_PlayerBuff[hbGUID][bName]=nil HealBot_ResetCheckBuffsTime() else HealBot_PlayerBuff[hbGUID][bName]=nil end end end else do break end end end if HealBot_PlayerBuff[hbGUID] then PlayerBuffsGUID=HealBot_PlayerBuff[hbGUID] for z,_ in pairs (PlayerBuffsGUID) do if not PlayerBuffs[z] then -- HealBot_AddDebug("Removed buff="..z) if PlayerBuffsGUID[z]==HealBot_CheckBuffsTime then PlayerBuffsGUID[z]=nil HealBot_ResetCheckBuffsTime() else PlayerBuffsGUID[z]=nil end end end for x,_ in pairs(PlayerBuffs) do if HealBot_PlayerBuff[hbGUID][x] and HealBot_PlayerBuff[hbGUID][x] < GetTime() then PlayerBuffs[x]=nil end end end HasWeaponBuff=GetWeaponEnchantInfo() bName=nil; for k in pairs(HealBot_BuffWatch) do if not PlayerBuffs[HealBot_BuffWatch[k]] then checkthis=false; WatchTarget, WatchGUID=HealBot_Options_retBuffWatchTarget(HealBot_BuffWatch[k], hbGUID); z, x, _ = GetSpellCooldown(HealBot_BuffWatch[k]); if not x then -- Spec change within that last few secs - buff outdated so do nothing elseif x<2 then if WatchTarget["Raid"] then checkthis=true; elseif WatchTarget["Party"] and (UnitInParty(xUnit) or uName==HealBot_PlayerName) then checkthis=true; elseif WatchTarget["Self"] and uName==HealBot_PlayerName then checkthis=true elseif WatchTarget[strsub(BuffClass,1,4)] then checkthis=true elseif WatchTarget["PvP"] and UnitIsPVP(xUnit) then checkthis=true; elseif WatchTarget["Name"] and hbGUID==WatchGUID then checkthis=true; elseif WatchTarget["Focus"] and UnitIsUnit(xUnit, "focus") then checkthis=true; elseif WatchTarget["MainTanks"] then for i=1, #HealBot_MainTanks do if hbGUID==HealBot_MainTanks[i] then checkthis=true; break; end end for i=1, #HealBot_MainAssists do if hbGUID==HealBot_MainAssists[i] then checkthis=true; break; end end for i=1, #HealBot_CTRATanks do if hbGUID==HealBot_CTRATanks[i] then checkthis=true; break; end end elseif WatchTarget["MyTargets"] then myhTargets=HealBot_GetMyHealTargets(); for i=1, #myhTargets do if hbGUID==myhTargets[i] then checkthis=true; break; end end end elseif not HealBot_ReCheckBuffsTime or HealBot_ReCheckBuffsTime>z+x then HealBot_ReCheckBuffsTime=z+x HealBot_ReCheckBuffsTimed[HealBot_ReCheckBuffsTime]=hbGUID elseif HealBot_ReCheckBuffsTime3 then HealBot_Action_ResetUnitStatus(xUnit) else HealBot_RecalcHeals(hbGUID) HealBot_ThrottleCnt=HealBot_ThrottleCnt+1 end end end local needReset=nil function HealBot_OnEvent_PlayerRegenDisabled(self) if not HealBot_Loaded then return end if not HealBot_PlayerGUID then HealBot_Load("playerRD") needReset=true elseif (Healbot_Config_Skins.TargetHeals[Healbot_Config_Skins.Current_Skin]==1 and UnitExists("target") and not UnitIsEnemy("target", "player")) or HealBot_Panel_retTestBars() or HealBot_Loaded<9 then HealBot_RecalcParty(true); else HealBot_EnteringCombat() end if HealBot_Config.BuffWatch==1 and HealBot_Config.BuffWatchInCombat==0 then for xGUID,_ in pairs(HealBot_UnitBuff) do HealBot_UnitBuff[xGUID]=nil if HealBot_UnitID[xGUID] and HealBot_Unit_Button[HealBot_UnitID[xGUID]] then HealBot_RecalcHeals(xGUID) HealBot_DelayBuffCheck[xGUID]="S" end end if HealBot_UnitID[HealBot_PlayerGUID] then HealBot_DelayBuffCheck[HealBot_PlayerGUID]="S"; end end if HealBot_Config.DebuffWatch==1 and HealBot_Config.DebuffWatchInCombat==0 then for xGUID,_ in pairs(HealBot_UnitDebuff) do HealBot_UnitDebuff[xGUID]=nil if HealBot_UnitID[xGUID] and HealBot_Unit_Button[HealBot_UnitID[xGUID]] then HealBot_RecalcHeals(xGUID) HealBot_DelayDebuffCheck[xGUID]="S" end end if HealBot_UnitID[HealBot_PlayerGUID] then HealBot_DelayDebuffCheck[HealBot_PlayerGUID]="S"; end end if Healbot_Config_Skins.AutoClose[Healbot_Config_Skins.Current_Skin]==1 and HealBot_Config.ActionVisible==0 and HealBot_Config.DisableHealBot==0 then HealBot_TogglePanel(HealBot_Action) end if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 then HealBot_OnEvent_UnitCombat(self,"player") end if Healbot_Config_Skins.HighLightTargetBarInCombat[Healbot_Config_Skins.Current_Skin]==0 and HealBot_luVars["HighlightTarget"] then if (HealBot_Action_retAggro(HealBot_UnitGUID(HealBot_luVars["HighlightTarget"])) or "z")=="h" then HealBot_Action_UpdateAggro(HealBot_luVars["HighlightTarget"],"off",nil,HealBot_UnitGUID(HealBot_luVars["HighlightTarget"])) HealBot_luVars["HighlightTarget"]=nil end end end function HealBot_OnEvent_PlayerRegenEnabled(self) if InCombatLockdown() then HealBot_luVars["IsReallyFighting"] = true else HealBot_IsFighting = nil; end if Healbot_Config_Skins.TargetHeals[Healbot_Config_Skins.Current_Skin]==1 and UnitExists("target") and not UnitIsEnemy("target", "player") then HealBot_RecalcParty(nil); end if needReset then HealBot_Reset_flag=true needReset=nil end if HealBot_Config.DisableToolTipInCombat==1 then if HealBot_Action_TooltipUnit then HealBot_Action_ShowTooltip(HealBot_Action_TooltipUnit) elseif HealBot_Action_DisableTooltipUnit then HealBot_Action_ShowDisabledTooltip(HealBot_Action_DisableTooltipUnit) end end if HealBot_InCombatUpdCntFlag then HealBot_InCombatUpdCntFlag=nil HealBot_Reset_UnitHealth() end HealBot_ClearAggro(true) end function HealBot_EnteringCombat() if HealBot_Config.DisableToolTipInCombat==1 and (HealBot_Action_TooltipUnit or HealBot_Action_DisableTooltipUnit) then HealBot_Action_HideTooltipFrame() end HealBot_IsFighting = true; end function HealBot_OnEvent_UnitNameUpdate(self,unit) xGUID=HealBot_UnitGUID(unit) if HealBot_UnitID[xGUID] then if unit==HealBot_UnitID[xGUID] then HealBot_Action_ResetUnitStatus(unit) elseif HealBot_IsFighting then HealBot_InCombatUpdate=true else HealBot_UnitNameUpdate(unit,HealBot_UnitGUID(unit)) end end end function HealBot_UnitNameUpdate(unUnit,unGUID) if unGUID and unGUID==HealBot_PlayerGUID then unUnit="player" end if HealBot_Unit_Button[unUnit] then if UnitExists(unUnit) and unGUID then HealBot_UnitName[unGUID]=UnitName(unUnit) HealBot_UnitID[unGUID]=unUnit HealBot_CheckAllDebuffs(unGUID) HealBot_CheckAllBuffs(unGUID) if HealBot_HoT_Active_Button[unGUID] then b=HealBot_Unit_Button[unUnit] if HealBot_HoT_Active_Button[unGUID]~=b then HealBot_HoT_MoveIcon(HealBot_HoT_Active_Button[unGUID], b, unGUID) HealBot_HoT_Active_Button[unGUID]=b end end HealBot_unitHealth[unGUID]=nil HealBot_BarCheck[unGUID]="A" HealBot_ClearUnitAggro(unUnit, unGUID) HealBot_CheckAllUnitVehicle(unUnit) HealBot_Queue_MyBuffsCheck(unGUID,unUnit) end HealBot_Action_ResetUnitStatus(unUnit) end if Delay_RecalcParty<2 then Delay_RecalcParty=2; end end function HealBot_UnitNameOnly(unitName) uName=string.match(unitName, "^[^-]*") or "noName" return uName end function HealBot_CheckHealth(hbGUID) if not HealBot_BarCheck[hbGUID] then HealBot_BarCheck[hbGUID]="H" elseif HealBot_BarCheck[hbGUID]=="P" then HealBot_BarCheck[hbGUID]="A" end end function HealBot_CheckPower(hbGUID) if not HealBot_BarCheck[hbGUID] then HealBot_BarCheck[hbGUID]="P" elseif HealBot_BarCheck[hbGUID]=="H" then HealBot_BarCheck[hbGUID]="A" end end function HealBot_IDs(unit,hbGUID) xUnit=HealBot_UnitID[hbGUID] if xUnit and not UnitIsUnit(unit,xUnit) then xUnit=HealBot_RaidUnit("unknown",hbGUID,nil) HealBot_UnitNameUpdate(xUnit,hbGUID) end return xUnit end function HealBot_RaidUnit(unit,hbGUID,unitName) if unitName then if not unit or UnitName(unit)~=unitName then unit=nil if unitName==HealBot_PlayerName then unit="player" elseif GetNumRaidMembers()>0 then for j=1,40 do xUnit = "raid"..j if UnitExists(xUnit) and UnitName(xUnit)==unitName then unit=xUnit do break end end xUnit = "raidpet"..j if UnitExists(xUnit) and UnitName(xUnit)==unitName then unit=xUnit do break end end end elseif GetNumPartyMembers()>0 then for j=1,4 do xUnit = "party"..j if UnitExists(xUnit) and UnitName(xUnit)==unitName then unit=xUnit do break end end xUnit = "partypet"..j if UnitExists(xUnit) and UnitName(xUnit)==unitName then unit=xUnit do break end end end end if not unit then if UnitName("focus")==unitName then unit="focus" elseif UnitName("target")==unitName then unit="target" end end end else if hbGUID==HealBot_PlayerGUID then unit="player" elseif Healbot_Config_Skins.SetFocusBar[Healbot_Config_Skins.Current_Skin]==1 and HealBot_UnitGUID("focus")==hbGUID then unit="focus" elseif unit and GetNumRaidMembers()>0 then if unit~="unknown" and HealBot_UnitID[hbGUID] and HealBot_UnitGUID(HealBot_UnitID[hbGUID])==hbGUID then unit=HealBot_UnitID[hbGUID] else for j=1,40 do xUnit = "raid"..j if UnitGUID(xUnit)==hbGUID then unit=xUnit do break end end xUnit = "raidpet"..j if HealBot_UnitGUID(xUnit)==hbGUID then unit=xUnit do break end end end end elseif unit and GetNumPartyMembers()>0 then if unit~="unknown" and HealBot_UnitID[hbGUID] and HealBot_UnitGUID(HealBot_UnitID[hbGUID])==hbGUID then unit=HealBot_UnitID[hbGUID] else for j=1,4 do xUnit = "party"..j if UnitGUID(xUnit)==hbGUID then unit=xUnit do break end end xUnit = "partypet"..j if HealBot_UnitGUID(xUnit)==hbGUID then unit=xUnit do break end end end end end end return unit end function HealBot_UnitGUID(unit) if not unit or not UnitExists(unit) then xGUID=nil else s=string.gsub(UnitName(unit), " ", "") if unit=="pet" then xGUID=UnitGUID("player")..s HealBot_PetGUID[UnitGUID(unit)]=xGUID elseif strsub(unit,1,7)=="raidpet" then if strsub(unit,8) and UnitGUID("raid"..strsub(unit,8)) then xGUID=UnitGUID("raid"..strsub(unit,8))..s HealBot_PetGUID[UnitGUID(unit)]=xGUID else HealBot_AddDebug("No owner found for pet "..unit.." ("..s..")") xGUID=UnitGUID(unit) end elseif strsub(unit,1,8)=="partypet" then if strsub(unit,9) and UnitGUID("party"..strsub(unit,9)) then xGUID=UnitGUID("party"..strsub(unit,9))..s HealBot_PetGUID[UnitGUID(unit)]=xGUID else HealBot_AddDebug("No owner found for pet "..unit.." ("..s..")") xGUID=UnitGUID(unit) end else xGUID=UnitGUID(unit) end end return xGUID end function HealBot_retPetGUID(hbGUID) return HealBot_PetGUID[hbGUID] end function HealBot_UnitPet(unit) vUnit=nil if unit=="player" then vUnit="pet" elseif strsub(unit,1,4)=="raid" then vUnit="raidpet"..strsub(unit,5) elseif strsub(unit,1,5)=="party" then vUnit="partypet"..strsub(unit,6) end return vUnit end function HealBot_IC_PartyMembersChanged() z=false HealBot_InCombatUpdCnt=HealBot_InCombatUpdCnt+1 if HealBot_InCombatUpdCnt<15 then for x,_ in pairs(HealBot_UpUnitInCombat) do HealBot_UpUnitInCombat[x]=nil end for xGUID,xUnit in pairs(HealBot_UnitID) do if HealBot_UnitGUID(xUnit) and HealBot_UnitGUID(xUnit)~=xGUID then HealBot_ClearAggro(true, xUnit) HealBot_ClearAggro(true, HealBot_GetUnitID(xGUID)) HealBot_UpUnitInCombat[xGUID]=xUnit end end for zGUID,zUnit in pairs(HealBot_UpUnitInCombat) do HealBot_UnitNameUpdate(HealBot_GetUnitID(zGUID),zGUID) HealBot_UnitNameUpdate(zUnit,HealBot_UnitGUID(zUnit)) z=true end end if z then HealBot_InCombatUpdCnt=HealBot_InCombatUpdCnt+1 HealBot_InCombatUpdCntFlag=true else HealBot_AddDebug("HealBot_InCombatUpdCnt="..HealBot_InCombatUpdCnt) HealBot_InCombatUpdate=false HealBot_InCombatUpdCnt=0 if Healbot_Config_Skins.ShowRaidIcon[Healbot_Config_Skins.Current_Skin]==1 then HealBot_OnEvent_RaidTargetUpdate(nil) end end end function HealBot_GetUnitID(hbGUID) xUnit=nil for _,zUnit in pairs(HealBot_UnitID) do if HealBot_UnitGUID(zUnit)==hbGUID then xUnit=zUnit do break end end end return xUnit end function HealBot_OnEvent_PartyMembersChanged(self) if HealBot_IsFighting then HealBot_InCombatUpdate=true end HealBot_luVars["CheckSkin"]=true if Delay_RecalcParty<3 then Delay_RecalcParty=3; end HealBot_IncHeals_PartyChange() if Healbot_Config_Skins.CombatProt[Healbot_Config_Skins.Current_Skin]==1 then for xUnit,_ in pairs(HealBot_Unit_Button) do if not UnitExists(xUnit) then HealBot_Action_ResetUnitStatus(xUnit) end end HealBot_Action_CheckReserved() end end function HealBot_PartyUpdate_CheckSkin() _,z = IsInInstance() x = GetInstanceDifficulty() HealBot_luVars["CheckSkin"]=nil if z == "arena" then if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=7 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==7 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end elseif z=="pvp" then if GetNumRaidMembers()>19 then if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=10 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==10 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end elseif GetNumRaidMembers()>11 then if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=9 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==9 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end else if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=8 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==8 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end end elseif x==4 or (x==2 and GetNumRaidMembers()>17) then if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=5 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==5 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end elseif x==3 then if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=4 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==4 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end elseif GetNumRaidMembers()>29 then if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=6 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==6 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end elseif GetNumRaidMembers()>17 then if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=5 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==5 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end elseif GetNumRaidMembers()>5 then if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=4 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==4 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end elseif GetNumPartyMembers()>0 then if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=3 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==3 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end else if HealBot_Config.SkinDefault[Healbot_Config_Skins.Current_Skin]~=2 then for x in pairs (Healbot_Config_Skins.Skins) do if HealBot_Config.SkinDefault[Healbot_Config_Skins.Skins[x]]==2 then Delay_RecalcParty=0 HealBot_Options_Set_Current_Skin(Healbot_Config_Skins.Skins[x]) do break end end end end end if Delay_RecalcParty>2 then HealBot_RecalcParty(nil); end end function HealBot_OnEvent_PlayerTargetChanged(self) if Healbot_Config_Skins.TargetHeals[Healbot_Config_Skins.Current_Skin]==1 then HealBot_RecalcParty(nil); if UnitExists("target") and not UnitIsEnemy("target", "player") then HealBot_OnEvent_UnitAura(nil,"target") end end if UnitName("target") and HealBot_retHbFocus(UnitName("target")) then HealBot_Panel_clickToFocus("Show") end if Healbot_Config_Skins.HighLightTargetBar[Healbot_Config_Skins.Current_Skin]==1 then HealBot_luVars["HighlightTargetFound"]=false if not HealBot_IsFighting or Healbot_Config_Skins.HighLightTargetBarInCombat[Healbot_Config_Skins.Current_Skin]==1 then if UnitExists("target") and not UnitIsDeadOrGhost("target") and not UnitIsEnemy("target", "player") then for _,xUnit in pairs(HealBot_UnitID) do if UnitIsUnit(xUnit, "target") then if xUnit~="target" then if HealBot_luVars["HighlightTarget"] and HealBot_luVars["HighlightTarget"]~=xUnit and (HealBot_Action_retAggro(HealBot_UnitGUID(HealBot_luVars["HighlightTarget"])) or "z")=="h" then HealBot_Action_UpdateAggro(HealBot_luVars["HighlightTarget"],"off",nil,HealBot_UnitGUID(HealBot_luVars["HighlightTarget"])) end HealBot_luVars["HighlightTargetFound"]=true HealBot_luVars["HighlightTarget"]=xUnit -- HealBot_AddDebug("Aggro Target") end z=HealBot_Action_RetUnitThreat(hbGUID) HealBot_Action_UpdateAggro(xUnit,"target",z,HealBot_UnitGUID(xUnit)) end end end end if not HealBot_luVars["HighlightTargetFound"] and HealBot_luVars["HighlightTarget"] and (HealBot_Action_retAggro(HealBot_UnitGUID(HealBot_luVars["HighlightTarget"])) or "z")=="h" then HealBot_Action_UpdateAggro(HealBot_luVars["HighlightTarget"],"off",nil,HealBot_UnitGUID(HealBot_luVars["HighlightTarget"])) HealBot_luVars["HighlightTarget"]=nil end end end function HealBot_retHighlightTarget() return HealBot_luVars["HighlightTarget"] or "nil" end function HealBot_retHbFocus(unitName) if HealBot_Config.FocusMonitor[unitName] then if HealBot_Config.FocusMonitor[unitName]=="all" then return true else _,z = IsInInstance() if z=="pvp" or z == "arena" then if HealBot_Config.FocusMonitor[unitName]=="bg" then return true end elseif z==HealBot_Config.FocusMonitor[unitName] then return true else z = GetRealZoneText() if z==HealBot_Config.FocusMonitor[unitName] then return true end end end end return false end function HealBot_OnEvent_ReadyCheck(self,unitName,timer) local isLeader = IsRaidLeader() or IsRaidOfficer() or IsPartyLeader() if isLeader then HealBot_luVars["rcEnd"]=nil HealBot_luVars["isLeader"]=true HealBot_Comms_SendAddonMsg("HealBot", "RC:I:"..unitName..":"..timer, HealBot_AddonMsgType, HealBot_PlayerName) else HealBot_luVars["isLeader"]=false end end function HealBot_OnEvent_hbReadyCheck(unitName,timer) local lUnit=HealBot_RaidUnit(hbTempUnitNames[unitName],nil,unitName) if not HealBot_luVars["rcEnd"] or HealBot_luVars["rcEnd"]0 and uClass then if ((x > y) and (x > z)) then w = 1 elseif (y > z) then w = 2 else w = 3 end uClass=strsub(uClass,1,4) s=HealBot_Init_retSpec(uClass,w) if s then if hbGUID==HealBot_PlayerGUID then HealBot_Config.CurrentSpec=w end HealBot_UnitSpec[hbGUID] = " "..s.." " HealBot_talentSpam(hbGUID,"update",0) end --HealBot_AddDebug("tab1="..x.." tab2="..y.." tab3="..z) end end end local HealBot_PrevComm=0 function HealBot_SetAddonComms(hbInBG) if not hbInBG then if GetNumRaidMembers()>0 then HealBot_AddonMsgType=2; elseif GetNumPartyMembers()>0 then HealBot_AddonMsgType=3; else HealBot_AddonMsgType=4; end else HealBot_AddonMsgType=1; end if HealBot_PrevComm~=HealBot_AddonMsgType then HealBot_PrevComm=HealBot_AddonMsgType HealBot_IncHeals_sethbAddonMsgType(HealBot_AddonMsgType) end end function HealBot_OnEvent_PartyPetChanged(self) if Healbot_Config_Skins.PetHeals[Healbot_Config_Skins.Current_Skin]==1 and Delay_RecalcParty<2 then Delay_RecalcParty=2 end end function HealBot_OnEvent_SystemMsg(self,msg) if type(msg)=="string" then if (string.find(msg, HB_ONLINE)) or (string.find(msg, HB_OFFLINE)) then msg = gsub(msg, "|Hplayer:([^%c^%d^%s^%p]+)|h(.+)|h", "%1") uName = msg:match("([^%c^%d^%s^%p]+)") xGUID=HealBot_Derive_GUID_fuName(uName) if HealBot_UnitID[xGUID] then if (string.find(msg, HB_ONLINE)) then HealBot_Action_UnitIsOffline(xGUID,-1) else HealBot_Action_UnitIsOffline(xGUID,time()) end HealBot_Action_ResetUnitStatus(HealBot_UnitID[xGUID]); end end end end function HealBot_OnEvent_PlayerEquipmentChanged(self,unit) if UnitName(unit)==HealBot_PlayerName then HealBot_NeedEquipUpdate=true end end function HealBot_OnEvent_SpellsChanged(self, arg1) if arg1==0 then return; end HealBot_OnEvent_TalentsChanged(self) end function HealBot_OnEvent_TalentsChanged(self) HealBot_UnitSpec[HealBot_PlayerGUID] = " " HealBot_CheckTalents=true end function HealBot_OnEvent_PlayerEnteringWorld(self) if not HealBot_Loaded then return elseif not HealBot_PlayerGUID then HealBot_Load("playerEW") end HealBot_luVars["DoUpdates"]=true HealBot_setOptions_Timer(180) HealBot_setOptions_Timer(190) HealBot_Register_Events() HealBot_OnEvent_ZoneChanged(self) HealBot_CheckAllUnitVehicle() if not HealBot_IsFighting then HealBot_RecalcParty(nil); else HealBot_RecalcParty(true); end HealBot_ClearAggro(true) end function HealBot_OnEvent_PlayerLeavingWorld(self) HealBot_luVars["DoUpdates"]=false -- if Healbot_Config_Skins.CrashProt[Healbot_Config_Skins.Current_Skin]==1 then HealBot_cpSave(HealBot_Config.CrashProtMacroName.."_0", "Clean") end HealBot_UnRegister_Events(); if Healbot_Config_Skins.HidePartyFrames[Healbot_Config_Skins.Current_Skin]==1 then HealBot_Options_EnablePartyFrame() end if Healbot_Config_Skins.HidePlayerTarget[Healbot_Config_Skins.Current_Skin]==1 then HealBot_Options_EnablePlayerFrame() HealBot_Options_EnablePetFrame() HealBot_Options_EnableTargetFrame() end end local uscSpell,uscName,uscGUID=nil,nil,nil function HealBot_OnEvent_UnitSpellcastSent(self,caster,spellName,spellRank,unitName) uscGUID=nil uscName = HealBot_UnitNameOnly(unitName) if uscName=="" then if spellName==HEALBOT_PRAYER_OF_HEALING or spellName==HEALBOT_INNER_FIRE or spellName==HEALBOT_WILD_GROWTH or spellName==HEALBOT_TRANQUILITY then uscName=HealBot_PlayerName uscGUID=HealBot_PlayerGUID if spellName==HEALBOT_INNER_FIRE then HealBot_NeedEquipUpdate=true end elseif spellName==HEALBOT_MENDPET then uscName=UnitName("pet") uscGUID=HealBot_UnitGUID("pet") end end if caster=="player" and uscName == HEALBOT_WORDS_UNKNOWN then uscName = HealBot_GetCorpseName(uscName) end if not uscGUID then if uscName==UnitName(HealBot_luVars["TargetUnitID"]) then uscGUID=HealBot_UnitGUID(HealBot_luVars["TargetUnitID"]) elseif HealBot_Derive_GUID_fuName(uscName) then uscGUID=HealBot_Derive_GUID_fuName(uscName) elseif UnitName("target") and UnitName("target")==uscName then xUnit="target" uscGUID=HealBot_UnitGUID("target") end end xUnit = HealBot_UnitID[uscGUID]; if caster=="player" and uscGUID and UnitExists(xUnit) then uscSpell=spellName.."("..spellRank..")" if spellName==HEALBOT_RESURRECTION or spellName==HEALBOT_ANCESTRALSPIRIT or spellName==HEALBOT_REBIRTH or spellName==HEALBOT_REDEMPTION or spellName==HEALBOT_REVIVE then HealBot_IamRessing = uscName; if HealBot_IamRessing then HealBot_Comms_SendAddonMsg("CTRA", "RES "..HealBot_IamRessing, HealBot_AddonMsgType, HealBot_PlayerName) end HealBot_CastingTarget = xUnit; if Healbot_Config_Skins.CastNotify[Healbot_Config_Skins.Current_Skin]>1 and Healbot_Config_Skins.CastNotifyResOnly[Healbot_Config_Skins.Current_Skin]==1 then HealBot_CastNotify(uscSpell,uscName,spellName) end elseif HealBot_Spells[uscSpell] then if HealBot_Spells[uscSpell].CastTime>=1 then if HealBot_IamHealing then HealBot_OnEvent_UnitSpellcastFail(nil,"player",HealBot_HealData.Spell) -- Chances are there is no fail, only lag but fail will stop the last cast. HealBot_IamHealing=nil end if HealBot_initHealData[spellName] then HealBot_IncHeals_setHealValues(HealBot_PlayerName, spellName, HealBot_Spells[uscSpell].HealsCast+HealBot_Spells[uscSpell].RealHealing) if spellName==HEALBOT_REGROWTH then HealBot_IncHeals_setHealValues(HealBot_PlayerName, "H"..spellName, HealBot_Spells[uscSpell].HealsExt+HealBot_Spells[uscSpell].RealHealing) end HealBot_initHealData[spellName]=nil end if spellName==HEALBOT_BINDING_HEAL then if HealBot_Config.HealCommMethod>1 then HealBot_AddIamHealingList(HealBot_PlayerGUID) HealBot_AddIamHealingList(uscGUID) end elseif spellName==HEALBOT_PRAYER_OF_HEALING then utGUID=HealBot_RetGroupGUIDs(uscGUID) utGUID = HealBot_Split(utGUID, ":"); table.foreach(utGUID, function (index,xGUID) if HealBot_UnitID[xGUID] and HealBot_UnitInRange(HEALBOT_PRAYER_OF_HEALING, HealBot_UnitID[xGUID])==1 then if HealBot_Config.HealCommMethod>1 then HealBot_AddIamHealingList(xGUID) end end end) elseif uscName then if HealBot_Config.HealCommMethod>1 then HealBot_AddIamHealingList(uscGUID) end end if HealBot_IamHealing and HealBot_IncHeals_hbFixedSpells(spellName) then HealBot_HealData.Spell=spellName HealBot_HealData.EndTime=GetTime()+HealBot_Spells[uscSpell].CastTime+0.2 if HealBot_Config.HealCommMethod==2 or HealBot_Config.HealCommMethod==4 then HealBot_IncHeals_parseHBincHeals(spellName, HealBot_IamHealing, "D", HealBot_HealData.EndTime) end if spellName==HEALBOT_REGROWTH then HealBot_AddHoThbHeals(uscGUID, "H"..spellName, uscSpell) end elseif HealBot_IamHealing then HealBot_IamHealing=nil end elseif HealBot_Spells[uscSpell].Duration and HealBot_Spells[uscSpell].Duration>0 and HealBot_Config.HealCommMethod>1 and HealBot_IncHeals_hbFixedSpells(spellName) then if HealBot_initHealData[spellName] then HealBot_IncHeals_setHealValues(HealBot_PlayerName, spellName, HealBot_Spells[uscSpell].HealsExt+HealBot_Spells[uscSpell].RealHealing) HealBot_initHealData[spellName]=nil end HealBot_AddHoThbHeals(uscGUID, spellName, uscSpell) end HealBot_CastingTarget = xUnit; end if HealBot_Spells[uscSpell] or HealBot_OtherSpells[uscSpell] then if Healbot_Config_Skins.CastNotify[Healbot_Config_Skins.Current_Skin]>1 and Healbot_Config_Skins.CastNotifyResOnly[Healbot_Config_Skins.Current_Skin]==0 then HealBot_CastNotify(uscSpell,uscName,spellName) end end end if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 then HealBot_OnEvent_UnitCombat(self,"player") end end function HealBot_AddHoThbHeals(hbGUID, spellName, spell) z=GetTime()+HealBot_Spells[spell].CastTime+HealBot_Spells[spell].Duration HealBot_IncHeals_parseHBincHeals(spellName, hbGUID, "H", z) end function HealBot_GetCorpseName(cName) z = _G["GameTooltipTextLeft1"]; x = z:GetText(); if (x) then cName = string.gsub(x, HEALBOT_TOOLTIP_CORPSE, "") end return cName end function HealBot_AddIamHealingList(hbGUID) if Healbot_Config_Skins.ShowIncHeals[Healbot_Config_Skins.Current_Skin]==1 then if HealBot_IamHealing then HealBot_IamHealing=HealBot_IamHealing..":"..hbGUID else HealBot_IamHealing=hbGUID end end end function HealBot_ResetCheckBuffsTime() HealBot_CheckBuffsTime=GetTime()+10000200 for z,_ in pairs(HealBot_PlayerBuff) do if HealBot_PlayerBuff[z] then PlayerBuffsGUID=HealBot_PlayerBuff[z] for y,_ in pairs (PlayerBuffsGUID) do if PlayerBuffsGUID[y]<0 then PlayerBuffsGUID[y]=nil elseif PlayerBuffsGUID[y] < HealBot_CheckBuffsTime then HealBot_CheckBuffsTime=PlayerBuffsGUID[y] HealBot_CheckBuffsTimehbGUID=z end end end end if HealBot_CheckBuffsTime>GetTime()+10000000 then HealBot_CheckBuffsTime=nil HealBot_CheckBuffsTimehbGUID=nil end end function HealBot_CastNotify(spellrank,unitName,spell) z = Healbot_Config_Skins.CastNotify[Healbot_Config_Skins.Current_Skin]; if HealBot_Spells[spellrank] then if HealBot_Spells[spellrank].HealsDur>0 then s = gsub(Healbot_Config_Skins.NotifyHealMsg[Healbot_Config_Skins.Current_Skin],"#s",spell) s = gsub(s,"#n",unitName) s = gsub(s,"#h",HealBot_Spells[spellrank].HealsDur) else s = gsub(Healbot_Config_Skins.NotifyOtherMsg[Healbot_Config_Skins.Current_Skin],"#s",spell) s = gsub(s,"#n",unitName) end elseif HealBot_OtherSpells[spellrank] then if HealBot_OtherSpells[spellrank].HealsDur and HealBot_OtherSpells[spellrank].HealsDur>0 then s = gsub(Healbot_Config_Skins.NotifyHealMsg[Healbot_Config_Skins.Current_Skin],"#s",spell) s = gsub(s,"#n",unitName) s = gsub(s,"#h",HealBot_Spells[spellrank].HealsDur) else s = gsub(Healbot_Config_Skins.NotifyOtherMsg[Healbot_Config_Skins.Current_Skin],"#s",spell) s = gsub(s,"#n",unitName) end else s = gsub(Healbot_Config_Skins.NotifyOtherMsg[Healbot_Config_Skins.Current_Skin],"#s",spell) s = gsub(s,"#n",unitName) end w=nil; if z==6 then w=HealBot_Comms_GetChan(Healbot_Config_Skins.NotifyChan[Healbot_Config_Skins.Current_Skin]) if not w then z=2 end end if z==5 and GetNumRaidMembers()==0 then z = 4 end if z==4 and GetNumPartyMembers()==0 then z = 2 end if z==3 and not (UnitPlayerControlled(HealBot_CastingTarget) and HealBot_CastingTarget~='player' and HealBot_CastingTarget~='pet') then z = 2 end if z==3 then s = gsub(s,unitName,HEALBOT_WORDS_YOU) SendChatMessage(s,"WHISPER",nil,unitName); elseif z==4 then SendChatMessage(s,"PARTY",nil,nil); elseif z==5 then SendChatMessage(s,"RAID",nil,nil); elseif z==6 then SendChatMessage(s,"CHANNEL",nil,w); else HealBot_AddChat(s); end end -- HealBot_IncHeals_retHealsIn(hbGUID) function HealBot_Titan_Check() if HealBot_CastingTarget and UnitExists(HealBot_CastingTarget) and HealBot_IncHeals_retHealsIn(HealBot_UnitGUID(HealBot_CastingTarget))>0 then return UnitName(HealBot_CastingTarget), HealBot_IncHeals_retHealsIn(HealBot_UnitGUID(HealBot_CastingTarget)) else return nil, nil end end function HealBot_OnEvent_UnitSpellcastStart(self,unit,spellName) if not HealBot_Unit_Button[unit] then return end if UnitGUID(unit)==HealBot_PlayerGUID then if HealBot_IamHealing and HealBot_Config.HealCommMethod>2 and HealBot_HealData.Spell==spellName then if HealBot_Config.HealCommMethod==3 or HealBot_Config.HealCommMethod==5 then HealBot_IncHeals_parseHBincHeals(spellName, HealBot_IamHealing, "D", HealBot_HealData.EndTime) end end end if Healbot_Config_Skins.ShowAggro[Healbot_Config_Skins.Current_Skin]==1 then HealBot_OnEvent_UnitCombat(self,unit) end end function HealBot_setHealsIncEndTime(hbGUID, casterName, endTime) s=hbGUID..":"..casterName if HealBot_HealsIncEndTime[s] then if HealBot_HealsIncEndTime[s]0 then if secLeft<0 then HealBot_HoT_UpdateIcon(HealBot_Unit_Button[huUnit], huHoTicon[hotID], -1) huHoTtime[hotID]=9 huHoTicon[hotID]=0 if HealBot_HoT_Count[hotID] and HealBot_HoT_Count[hotID][hbGUID] then HealBot_HoT_Count[hotID][hbGUID]=nil end if not HealBot_DeBuff_Texture[hotName] then HealBot_HoT_RefreshIcons(hbGUID,HealBot_Unit_Button[huUnit]) else if Healbot_Config_Skins.ShowClassOnBar[Healbot_Config_Skins.Current_Skin]==1 and Healbot_Config_Skins.ShowClassType[Healbot_Config_Skins.Current_Skin]==1 then HealBot_Action_SetClassIconTexture(HealBot_Unit_Button[huUnit], huUnit) if HealBot_debuffTargetIcon[huUnit] then HealBot_debuffTargetIcon[huUnit]=nil end elseif Healbot_Config_Skins.ShowRaidIcon[Healbot_Config_Skins.Current_Skin]==1 and HealBot_debuffTargetIcon[huUnit] and HealBot_debuffTargetIcon[huUnit]>0 then HealBot_RaidTargetUpdate(HealBot_Unit_Button[huUnit], nil, huUnit) HealBot_debuffTargetIcon[huUnit]=nil HealBot_RaidTargetUpdate(HealBot_Unit_Button[huUnit], HealBot_TargetIcons[huUnit], huUnit) end end else HealBot_HoT_UpdateIcon(HealBot_Unit_Button[huUnit], huHoTicon[hotID], secLeft, iTexture, hotID, hbGUID) end else if HealBot_DeBuff_Texture[hotName] then i=15 if Healbot_Config_Skins.ShowRaidIcon[Healbot_Config_Skins.Current_Skin]==1 then if HealBot_TargetIcons[huUnit] then HealBot_debuffTargetIcon[huUnit]=HealBot_TargetIcons[huUnit] HealBot_RaidTargetUpdate(HealBot_Unit_Button[huUnit], HealBot_TargetIcons[huUnit], huUnit) else HealBot_debuffTargetIcon[huUnit]=0 end end else i=1 for k,z in pairs(huHoTicon) do _,w=string.split("!", k) if z>0 and not HealBot_DeBuff_Texture[w] then i=i+1 end end end if HealBot_DeBuff_Texture[hotName] or i<15 then huHoTicon[hotID]=i HealBot_HoT_UpdateIcon(HealBot_Unit_Button[huUnit], huHoTicon[hotID], secLeft, iTexture, hotID, hbGUID) HealBot_HoT_Active_Button[hbGUID]=HealBot_Unit_Button[huUnit] end end end function HealBot_retdebuffTargetIcon(unit) if HealBot_debuffTargetIcon[unit] and HealBot_debuffTargetIcon[unit]>0 then return true else return false end end local temp_icons={} function HealBot_HoT_RefreshIcons(hbGUID,button) huHoTtime=HealBot_Player_HoT[hbGUID] huHoTicon=HealBot_Player_HoT_Icons[hbGUID] if not huHoTtime then HealBot_HoT_RemoveIcon(hbGUID) HealBot_AddDebug("huHoTtime==nil in HealBot_HoT_RefreshIcons") else z=0 for bName,k in pairs(huHoTicon) do temp_caster[k],temp_HoT[k]=string.split("!", bName) if k>0 and not HealBot_DeBuff_Texture[temp_HoT[k]] then temp_icons[k]=bName z=z+1 end end if z>0 then for i=1,13 do if not temp_icons[i] then if temp_icons[i+1] then HealBot_HoT_UpdateIcon(button, i+1, -1) secLeft=floor(huHoTtime[temp_icons[i+1]]-GetTime()) iTexture=HealBot_Icon_Texture(temp_HoT[i+1]) HealBot_HoT_UpdateIcon(button, i, secLeft, iTexture, temp_icons[i+1], hbGUID) -- HealBot_HoT_Update(hbGUID, temp_icons[i+1]) huHoTicon[temp_icons[i+1]]=i temp_icons[i+1]=nil end end temp_icons[i]=nil end else HealBot_HoT_Active_Button[hbGUID]=nil end end end function HealBot_retHoTdetails(hbGUID) return HealBot_Player_HoT_Icons[hbGUID], HealBot_Player_HoT[hbGUID] end function HealBot_retHoTcount(hotID,hbGUID) if HealBot_HoT_Count[hotID] then return HealBot_HoT_Count[hotID][hbGUID] end end function HealBot_HoT_MoveIcon(oldButton, newButton, hbGUID) huHoTtime=HealBot_Player_HoT[hbGUID] huHoTicon=HealBot_Player_HoT_Icons[hbGUID] if not huHoTicon then -- HealBot_AddDebug("huHoTicon is NIL in HealBot_HoT_MoveIcon") return end for bName,i in pairs(huHoTicon) do if i>0 then HealBot_HoT_UpdateIcon(oldButton, huHoTicon[bName], -1) if huHoTtime[bName] then secLeft=floor(huHoTtime[bName]-GetTime()) else secLeft=10 end _,w=string.split("!", bName) iTexture=HealBot_Icon_Texture(w) HealBot_HoT_UpdateIcon(newButton, i, secLeft, iTexture, bName, hbGUID) end end if Healbot_Config_Skins.ShowRaidIcon[Healbot_Config_Skins.Current_Skin]==1 and HealBot_debuffTargetIcon[huUnit] and HealBot_debuffTargetIcon[huUnit]>0 then HealBot_RaidTargetUpdate(oldButton, nil, huUnit) HealBot_RaidTargetUpdate(newButton, HealBot_debuffTargetIcon[huUnit], huUnit) end end function HealBot_HoT_RemoveIcon(hbGUID) z=HealBot_HoT_Active_Button[hbGUID]; huHoTicon=HealBot_Player_HoT_Icons[hbGUID] if not huHoTicon then -- HealBot_AddDebug("huHoTicon is NIL in HealBot_HoT_RemoveIcon") return end for _,i in pairs(huHoTicon) do if i>0 then HealBot_HoT_UpdateIcon(z, i, -1) end end HealBot_HoT_Active_Button[hbGUID]=nil; end function HealBot_HoT_RemoveIconButton(button,removeAll) for i=1,15 do HealBot_HoT_UpdateIcon(button, i, -1) end if Healbot_Config_Skins.ShowRaidIcon[Healbot_Config_Skins.Current_Skin]==1 and HealBot_debuffTargetIcon[button.unit] and HealBot_debuffTargetIcon[button.unit]>0 then HealBot_RaidTargetUpdate(button, nil, button.unit) HealBot_debuffTargetIcon[button.unit]=nil end if not removeAll then if Healbot_Config_Skins.ShowClassOnBar[Healbot_Config_Skins.Current_Skin]==1 and Healbot_Config_Skins.ShowClassType[Healbot_Config_Skins.Current_Skin]==1 then HealBot_Action_SetClassIconTexture(button, button.unit) end if Healbot_Config_Skins.ShowRaidIcon[Healbot_Config_Skins.Current_Skin]==1 and HealBot_TargetIcons[button.unit] then HealBot_OnEvent_RaidTargetUpdate(nil) end end end local iconTxt=nil local hbiconcount=nil local hbiconcount2=nil function HealBot_HoT_UpdateIcon(button, index, secLeft, Texture, hotID, hbGUID) if not button then return; end; bar = HealBot_Action_HealthBar(button); iconName = _G[bar:GetName().."Icon"..index]; if not iconName then HealBot_AddDebug("iconName is nil index="..index) return end hbiconcount = _G[bar:GetName().."Count"..index]; hbiconcount2 = _G[bar:GetName().."Count"..index.."a"]; x=HealBot_HoT_AlphaValue(secLeft) if index==15 then iconName:SetTexCoord(0,1,0,1); if x>0 then x=1 end end iconName:SetAlpha(x) if x==0 then hbiconcount:SetTextColor(1,1,1,0); hbiconcount2:SetTextColor(1,1,1,0) hbiconcount:SetText(" "); hbiconcount2:SetText(" "); else xGUID, sName=string.split("!", hotID or "H!B") if (Healbot_Config_Skins.ShowIconTextCountSelfCast==1 and xGUID~=HealBot_PlayerGUID) or Healbot_Config_Skins.ShowIconTextCount[Healbot_Config_Skins.Current_Skin]==0 then iconTxt=nil else if HealBot_HoT_Count[hotID] and HealBot_HoT_Count[hotID][hbGUID] then iconTxt=HealBot_HoT_Count[hotID][hbGUID] elseif sName==HEALBOT_POWER_WORD_SHIELD and HealBot_TrackWS[hbGUID] then if HealBot_TrackWS[hbGUID]=="-" and HealBot_Config.ShowWSicon==1 then Texture=HealBot_HoT_Texture[HEALBOT_DEBUFF_WEAKENED_SOUL] iconTxt=nil else iconTxt=HealBot_TrackWS[hbGUID] end elseif HealBot_DeBuff_Texture[sName] and DeBuff_Count[hbGUID]>0 then iconTxt=DeBuff_Count[hbGUID] else iconTxt=nil end end if Texture then iconName:SetTexture(Texture); end if iconTxt then hbiconcount2:SetText(iconTxt); hbiconcount2:SetTextColor(1,1,1,1); else hbiconcount2:SetText(" "); hbiconcount2:SetTextColor(1,1,1,0); end if (Healbot_Config_Skins.ShowIconTextDurationSelfCast==1 and xGUID~=HealBot_PlayerGUID) or Healbot_Config_Skins.ShowIconTextDuration[Healbot_Config_Skins.Current_Skin]==0 then iconTxt=nil else iconTxt=secLeft end hbiconcount:SetText(iconTxt or " "); if not iconTxt or iconTxt<0 or iconTxt>Healbot_Config_Skins.IconTextDurationShow[Healbot_Config_Skins.Current_Skin] then hbiconcount:SetTextColor(1,1,1,0); elseif iconTxt<=Healbot_Config_Skins.IconTextDurationWarn[Healbot_Config_Skins.Current_Skin] then if (Texture==HealBot_HoT_Texture[HEALBOT_REJUVENATION] or Texture==HealBot_HoT_Texture[HEALBOT_REGROWTH]) then y, x, _ = GetSpellCooldown(HEALBOT_SWIFTMEND); if x and y and (x+y)==0 then hbiconcount:SetTextColor(0,1,0,1); else hbiconcount:SetTextColor(1,0,0,1); end else hbiconcount:SetTextColor(1,0,0,1); end else hbiconcount:SetTextColor(1,1,1,1); end end end function HealBot_HoT_AlphaValue(secLeft) if not UnitIsDeadOrGhost("player") then if secLeft>=0 and secLeft<6 then return (secLeft/9)+.4 elseif secLeft<0 then return 0 else return 1 end end return 0 end function HealBot_Icon_Texture(spellName) if HealBot_HoT_Texture[spellName] then return HealBot_HoT_Texture[spellName] elseif HealBot_DeBuff_Texture[spellName] then return HealBot_DeBuff_Texture[spellName] else return nil end end function HealBot_ToggelFocusMonitor(unitName, zone) if HealBot_Config.FocusMonitor[unitName] then if UnitName("target") and unitName==UnitName("target") then HealBot_Panel_clickToFocus("hide") end HealBot_Config.FocusMonitor[unitName] = nil else HealBot_Config.FocusMonitor[unitName] = zone if UnitName("target") and HealBot_Config.FocusMonitor[UnitName("target")] then HealBot_Panel_clickToFocus("Show") end end end function HealBot_PlaySound(id) if HealBot_Loaded then PlaySoundFile(LSM:Fetch('sound',id)); end end function HealBot_InitSpells() for x,_ in pairs(HealBot_SmartCast_Spells) do HealBot_SmartCast_Spells[x]=nil; end HealBot_Init_Spells_Defaults(HealBot_PlayerClassEN); for x in pairs(HealBot_Spells) do if not HealBot_Spells[x].RealHealing then HealBot_Spells[x].RealHealing=0; end if not HealBot_Spells[x].HealsDur then HealBot_Spells[x].HealsDur=0; end HealBot_InitClearSpellNils(x) end id = 1 z = 0; local lsName,lsRank,iSpell,lsValue,tmpName = nil,nil,nil,0,"none" while true do lsName, lsRank = HealBot_GetSpellName(id); iSpell=nil; if not lsName then break end if lsRank then iSpell=lsName .. "(" .. lsRank .. ")"; end if tmpName~=lsName then lsValue=0 tmpName=lsName end if (HealBot_Spells[iSpell]) then HealBot_Spells[iSpell].id = id; HealBot_InitGetSpellData(iSpell, id, HealBot_PlayerClassEN, lsName); if (HealBot_Spells[iSpell].HealsMax+HealBot_Spells[iSpell].HealsExt)>lsValue then HealBot_Spells[iSpell].spell=lsName HealBot_Spells[lsName].Duration=HealBot_Spells[iSpell].Duration HealBot_Spells[lsName].Level=HealBot_Spells[iSpell].Level lsValue=HealBot_Spells[iSpell].HealsMax+HealBot_Spells[iSpell].HealsExt end z = z + 1; end id = id + 1; end if strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_PRIEST] then if UnitLevel("player") < 20 then sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_LESSER_HEAL)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_LESSER_HEAL]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_LESSER_HEAL]=sName end end if UnitLevel("player") < 40 then sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_HEAL)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_HEAL]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_HEAL]=sName end end sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_GREATER_HEAL)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_GREATER_HEAL]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_GREATER_HEAL]=sName end sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_RENEW)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_RENEW]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_RENEW]=sName end sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_FLASH_HEAL)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_FLASH_HEAL]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_FLASH_HEAL]=sName end elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_DRUID] then sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_REGROWTH)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_REGROWTH]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_REGROWTH]=sName end sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_HEALING_TOUCH)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_HEALING_TOUCH]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_HEALING_TOUCH]=sName end sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_REJUVENATION)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_REJUVENATION]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_REJUVENATION]=sName end elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_PALADIN] then sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_HOLY_LIGHT)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_HOLY_LIGHT]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_HOLY_LIGHT]=sName end sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_FLASH_OF_LIGHT)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_FLASH_OF_LIGHT]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_FLASH_OF_LIGHT]=sName end elseif strsub(HealBot_PlayerClassEN,1,4)==HealBot_Class_En[HEALBOT_SHAMAN] then sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_HEALING_WAVE)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_HEALING_WAVE]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_HEALING_WAVE]=sName end sName,sRank= HealBot_GetSpellName(HealBot_GetSpellId(HEALBOT_LESSER_HEALING_WAVE)) if sName and sRank then HealBot_SmartCast_Spells[HEALBOT_LESSER_HEALING_WAVE]=sName .. "(" .. sRank .. ")" elseif sName then HealBot_SmartCast_Spells[HEALBOT_LESSER_HEALING_WAVE]=sName end end HealBot_Action_SetrSpell() HealBot_AddDebug("Initiated HealBot with ".. z .." Spells"); HealBot_Options_CheckCombos(); HealBot_Init_SmartCast(); end function HealBot_InitNewChar(PlayerClassEN) if HealBot_Config.EnabledKeyCombo then HealBot_Config.DisabledKeyCombo=HealBot_Config.EnabledKeyCombo else HealBot_DoReset_Spells(PlayerClassEN) HealBot_DoReset_Cures(PlayerClassEN) HealBot_DoReset_Buffs(PlayerClassEN) HealBot_Config.HealBotBuffColR = {[1]=1,[2]=1,[3]=1,[4]=1,[5]=1,[6]=1,[7]=1,[8]=1,[9]=1,[10]=1} HealBot_Config.HealBotBuffColG = {[1]=1,[2]=1,[3]=1,[4]=1,[5]=1,[6]=1,[7]=1,[8]=1,[9]=1,[10]=1} HealBot_Config.HealBotBuffColB = {[1]=1,[2]=1,[3]=1,[4]=1,[5]=1,[6]=1,[7]=1,[8]=1,[9]=1,[10]=1} HealBot_Update_SpellCombos() HealBot_Update_BuffsForSpec() Healbot_Config_Skins.PanelAnchorY[Healbot_Config_Skins.Current_Skin]=GetScreenHeight()/2 Healbot_Config_Skins.PanelAnchorX[Healbot_Config_Skins.Current_Skin]=GetScreenWidth()/2 HealBot_Action_setPoint() HealBot_Action_unlockFrame() end end function HealBot_ToggleOptions() HealBot_TogglePanel(HealBot_Options) end function HealBot_HasTalent(tab,icon,talentName) s,_,_,_,z,_ = GetTalentInfo(tab,icon); if s then if s~=talentName then HealBot_AddDebug("ERROR: in function HealBot_HasTalent"); HealBot_AddDebug("found talent "..s.." when expecting "..talentName); z=0 end else z=0 end return z end function HealBot_MMButton_UpdatePosition() HealBot_ButtonFrame:SetPoint( "TOPLEFT", "Minimap", "TOPLEFT", 54 - (HealBot_Config.HealBot_ButtonRadius * cos(HealBot_Config.HealBot_ButtonPosition)), (HealBot_Config.HealBot_ButtonRadius * sin(HealBot_Config.HealBot_ButtonPosition)) - 55 ); end function HealBot_MMButton_OnLoad(self) g=_G[self:GetName().."Icon"] g:SetVertexColor(1, 1, 0); self:RegisterForDrag("RightButton"); self.dragme = false; end function HealBot_MMButton_Init() if HealBot_Config.ButtonShown==1 then HealBot_ButtonFrame:Show(); HealBot_MMButton_UpdatePosition() else HealBot_ButtonFrame:Hide(); end end function HealBot_MMButton_OnEnter(self) GameTooltip:SetOwner(self, "ANCHOR_LEFT"); GameTooltip:SetText(HEALBOT_BUTTON_TOOLTIP); GameTooltipTextLeft1:SetTextColor(1, 1, 1); GameTooltip:Show(); end function HealBot_MMButton_OnClick(self,button) if button~="RightButton" then HealBot_ToggleOptions() else HealBot_AddDebug("right click") end end function HealBot_MMButton_BeingDragged() w,x = GetCursorPosition() y,z = Minimap:GetLeft(), Minimap:GetBottom() w = y-w/UIParent:GetScale()+70 x = x/UIParent:GetScale()-z-70 HealBot_MMButton_SetPosition(math.deg(math.atan2(x,w))); end function HealBot_MMButton_SetPosition(c) if(c < 0) then c = c + 360; end HealBot_Config.HealBot_ButtonPosition = c; HealBot_MMButton_UpdatePosition(); end function HealBot_SmartCast(hbGUID,hlthDelta) w=nil; x=0; y=0; z=false; for sName,sNameRank in pairs(HealBot_SmartCast_Spells) do if (HealBot_Spells[sNameRank]) then if HealBot_Spells[sNameRank].HealsDur<(hlthDelta*2) then if HealBot_Spells[sNameRank].Buff then if HealBot_HasBuff(sName,HealBot_UnitID[hbGUID]) then z=false; else z=true; end; else z=true end if z then x=(HealBot_Spells[sNameRank].HealsDur/hlthDelta)/5; x=x-(HealBot_Spells[sNameRank].Mana/2); x=x/(HealBot_Spells[sNameRank].CastTime+0.5); if x>y then y=x; w=sName; end end end end end return w; end local uRange=0 function HealBot_UnitInRange(spellName, unit) -- added by Diacono of Ursin if UnitGUID(unit)==HealBot_PlayerGUID then uRange = 1 elseif not spellName then if UnitInRange(unit) == 1 then uRange = 1 else uRange = 0 end elseif IsSpellInRange(spellName, unit) ~= nil then uRange = IsSpellInRange(spellName, unit) elseif IsItemInRange(spellName, unit) ~= nil then uRange = IsItemInRange(spellName, unit) elseif UnitInRange(unit) == 1 then uRange = 1 else uRange=0 end if uRange==0 and not UnitIsVisible(unit) then uRange=-1 end return uRange end function HealBot_ClearLocalArr(hbGUID, getTime) if (HealBot_UnitTime[hbGUID] or 0)