Happy botting!
function Settings() FightDist = 40; PullDist = 40;-- Pet Mode - For those wishing to choose to use a pet or not ---- 0 = Sacrifice Pet-- 1 = Void LordPetMode = 1endfunction GetPower() LuaDoString("burningembers = UnitPower('player', 14);"); embers = tonumber(WowGetLuaValue("burningembers")); return embers;endfunction PullMob(MobAddr) if HasBuff(Player, 108503) == false and PetMode == 0 then if GetPet() == 0 then _Log("Summoning Pet"); CastSpellByID(691 , 0 , true); Sleep(1800) end if IsSpellKnown(108503) and IsSpellReady(108503) then _Log("Sacrifice Pet"); CastSpellByID(108503 , Player , true); NextAction(); end end if GetPet() == 0 and PetMode == 1 then _Log("Summoning Pet"); CastSpellByID(697 , 0 , true); Sleep(1800) endif HasBuff(Player,109773) == false then _Log("Dark Intent"); CastSpellByID(109773 , Player , true); NextAction(); endif GetPet() ~= 0 and PetMode == 1 then LuaDoString("PetAttack()") Sleep(1500) end if GetPower() >= 3 then _Log("Chaos Bolt"); CastSpellByID(116858 , MobAddr , true); NextAction(); endif IsSpellKnown(172) then _Log("Immolate"); CastSpellByID(172 , MobAddr , true); NextAction(); endif IsSpellKnown(17962) and IsSpellReady(17962) then _Log("Conflagrate"); CastSpellByID(17962 , MobAddr , true); NextAction(); end endfunction NextAction() if true then return endendfunction Fight() Target = GetAttacker(1); if IsSpellKnown(686) and IsSpellReady(686) then-- _Log("Incinerate"); LuaDoString('RunMacroText("/cast Incinerate")') NextAction(); Sleep(1000) end-- Ignor for now ---- if IsSpellKnown(686) and (GetUnitHpPro(Target)) > 19 then-- _Log("Incinerate");-- CastSpellByID(686 , Target , true);-- NextAction();-- endif GetPower() >= 1 and IsSpellKnown(17877) and (GetUnitHpPro(Target)) < 20 then _Log("Shadowburn"); LuaDoString('RunMacroText("/stopcasting")') CastSpellByID(17877 , Target , true); NextAction(); end if IsSpellKnown(17962) and IsSpellReady(17962) and HasBuff(Player,117828) == false and (GetUnitHpPro(Target)) > 30 then _Log("Conflagrate"); CastSpellByID(17962 , Target , true); NextAction(); endif IsSpellKnown(172) and HasBuff(Target,348) == false then _Log("Immolate"); CastSpellByID(172 , Target , true); NextAction(); end-- Health Recovery And Pet Summon -- if PlayerHpPercent() < 80 and IsSpellKnown(6789) and IsSpellReady(6789) then _Log("Mortal Coil"); CastSpellByID(6789 , Target , true); NextAction(); end if GetPet() == 0 and PetMode == 1 then _Log("Summoning Pet"); CastSpellByID(697 , 0 , true); Sleep(1800) end if GetUnitHpPro(GetPet()) <= 80 and PetMode == 1 then _Log("Health Funnel") CastSpellByID(755 , 0 , true); end-- Multiple Mobs --if GetAttackerCount() >1 thenif IsSpellKnown(172) and not HasBuff(Target,348) then _Log("Immolate"); CastSpellByID(172 , Target , true); NextAction(); endif GetPower() > 1 then _Log("Chaos Bolt"); CastSpellByID(116858 , Target , true); NextAction(); endif GetPower() > 1 then _Log("Chaos Bolt"); CastSpellByID(116858 , Target , true); NextAction(); end if IsSpellKnown(1122) and IsSpellReady(1122) then _Log("Infernal!!"); CastSpellByID(1122 , Player , true); Sleep(200) tPos = GetUnitPos(Player); DoTerrainClick(tPos[0],tPos[1],tPos[2]) Sleep(1500) NextAction(); end endend
Quinntree, have u done any more work on this? I use it and find it works very well me. Great work! & + rep