lockheal

/run function canlifetap(thp,tmap)if UnitHealth("player")/UnitHealthMax("player")>thp and UnitMana("player")/UnitManaMax("player")<tmap then return true else return false end end

/run function castSpell(spell) if GetSpellCooldown(spell) ==0 then if IsUsableSpell(spell) then CastSpellByName(spell)end end end

/run function castdeBuff(spell,buff,ttrt) local _,_,_,_,_,_,eH,_=UnitDebuff("target",buff) if eH==nil then eH=0 end  if eH-GetTime()<2 then castSpell(spell) end end

/run function castBuff(spell,buff,ttrt) local _,_,_,_,_,_,eH,_=UnitBuff("target",buff) if eH==nil then eH=0 end  if eH-GetTime()<2 then castSpell(spell) end end
/run function useproc(spell,proc,stack)local _,_,_,count=UnitBuff("player",proc)if count == stack then castSpell(spell) end end

/run function castspellCh(spell) local ChSpell=UnitChannelInfo("player") if ChSpell==spell then else castSpell(spell) end end

/run function healSpellCh(spell,thp) if UnitHealth("player")/UnitHealthMax("player")<thp then castspellCh(spell) end end


/run castBuff("haunt","haunt",2)
/run healSpellCh("Drain Life",.75)
/run castdeBuff("Unstable Affliction","Unstable Affliction",2)
/run if canlifetap(.5,.4) == true then castSpell("Life Tap") end
/run castdeBuff("Corruption","Corruption",2)
/run castdeBuff("Curse of Agony","Curse of Agony",2)
/run useproc("Shadow Bolt","Shadow Trance",1)
/run if UnitHealth("target")/UnitHealthMax("target")<0.24 then castspellCh("Drain Soul") else  castSpell("Shadow Bolt") end