Code:
function DeathKnightKthals_EnterCombat (pUnit, Event)
Unit:RegisterEvent("Kill all", 600000, 0)
local Choice=math.random(1, 3)
if Choice==1 then
pUnit:SendChatMessage(14, 0, "Blade stike will cause your death!")
elseif Choice==2 then
pUnit:SendChatMessage(14, 0, "%n There is still time to retreat!")
elseif Choice==3 then
pUnit:SendChatMessage(14, 0, "You have 10 minutes to defeat me or....")
end
end
function DeathKnightKthals_OnKill (pUnit, Event)
local Choice=math.random(1, 2)
if Choice==1 then
pUnit:SendChatMessage(14, 0, "Dont say i didn't warn you!")
elseif Choice==2 then
pUnit:SendChatMessage(14, 0, "I have freed you, run now!")
end
end
function DeathKnightKthals_LeaveCombat (pUnit, Event)
local Choice=math.random(1, 2)
if Choice==1 then
pUnit:SendChatMessage(14, 0, "Never challenge the Death Knight!")
elseif Choice==2 then
pUnit:SendChatMessage(14, 0, "Come back with more ranged DPS next time!")
end
end
function DeathKnightKthals_Died (pUnit, Event)
pUnit:SendChatMessage(14, 0, "This is my final move... aghhh")
pUnit:FullCastSpellOnTarget(38831,GetMainTank())
pUnit:FullCastSpellOnTarget(25699,GetMainTank())
end
function DeathKnightKthals_1(pUnit, Event)
if pUnit:GetHealthPct() < 96 then
pUnit:RemoveEvents();
pUnit:SendChatMessage(14, 0, "Run now! Before it is too late!")
pUnit:CastSpell(32829)
pUnit:RegisterEvent("DeathKnightKthals_2",1000, 0)
end
end
function DeathKnightKthals_2(pUnit, Event)
if pUnit:GetHealthPct() < 93 then
pUnit:RemoveEvents();
pUnit:SendChatMessage(14, 0, "Spirit Wolfs! Come to me!")
pUnit:CastSpell(43110) -- Summons Spirit Wolf
pUnit:RegisterEvent("DeathKnightKthals_3",1000, 0)
end
end
function DeathKnightKthals_3(pUnit, Event)
if pUnit:GetHealthPct() < 91 then
pUnit:SendChatMessage(14, 0, "You don't want to die here! Turn back before its to late!")
pUnit:FullCastSpellOnTarget(41068,Unit:GetRandomPlayer(0)) -- Makes Physical Damage increase by 100%
pUnit:CastSpell(43110) -- Summons Spirit Wolf
pUnit:CastSpell(43110) -- Summons Spirit Wolf This rounds up of 2 Spirit Wolfs for the caster
pUnit:RegisterEvent("DeathKnightKthals_4",1000, 0)
end
end
function DeathKnightKthals_4(pUnit,Event)
if pUnit:GetHealthPct() < 89 then
pUnit:SendChatMessage(14, 0, "I'll show you the dark side of an DeathKnightKthals!")
pUnit:FullCastSpellOnTarget(43439,Unit:GetMainTank()) -- 6475 to 7525 Shadow damage after 30 sec.
pUnit:CastSpell(18662) -- Doomguard
pUnit:FullCastSpellOnTarget(27226,Unit:GetMainTank()) -- Decrease armor by 800, advance damage by 180
pUnit:RegisterEvent("DeathKnightKthals_5",1000, 0)
end
end
function DeathKnightKthals_5(pUnit,Event)
if pUnit:GetHealthPct() < 86 then
pUnit:SendChatMessage(14, 0, "Prepare for extermination!")
pUnit:CastSpell(36455)
pUnit:SetScale(3)
pUnit:SetModel(6372)
pUnit:RegisterEvent("DeathKnightKthals_6",1000, 0)
end
end
function DeathKnightKthals_6(pUnit,Event)
if pUnit:GetHealthPct() < 83 then
pUnit:SendChatMessage(14, 0, "One of your casters are dead!")
pUnit:CastSpellOnTarget(5,Unit:GetRandomPlayer(4))
pUnit:RegisterEvent("DeathKnightKthals_7",1000, 0)
end
end
function DeathKnightKthals_7(pUnit,Event)
if pUnit:GetHealthPct() < 80 then
pUnit:SendChatMessage(14, 0, "This has gone far enough %n, even for a %R like you, Nobody cant stand for this!")
pUnit:CastSpell(40441)
pUnit:FullCastSpellOnTarget(40932,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(36836,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(38533,Unit:GetMainTank())
pUnit:CastSpellOnTarget(38533,Unit:GetMainTank())
pUnit:RegisterEvent("DeathKnightKthals_8",1000, 0)
end
end
function DeathKnightKthals_8(pUnit,Event)
if pUnit:GetHealthPct() < 86 then
pUnit:SendChatMessage(14, 0, "The End is Now!")
pUnit:SendChatMessage(14, 0, "Souls of Dead Warriors, I Command you to release yourselfs and Corrupt this Un-Divine %R, Release your anger on The %R")
pUnit:FullCastSpellOnTarget(45657,Unit:GetMainTank())
pUnit:RegisterEvent("DeathKnightKthals_9",1000, 0)
end
end
function DeathKnightKthals_9(pUnit,Event)
if pUnit:GetHealthPct() < 83 then
pUnit:SendChatMessage(14, 0, "Your own Rogue shall fall!")
pUnit:CastSpellOnTarget(5,Unit:GetRandomPlayer(6))
pUnit:RegisterEvent("DeathKnightKthals_10",1000, 0)
end
end
function DeathKnightKthals_10(pUnit,Event)
if pUnit:GetHealthPct() < 81 then
pUnit:SendChatMessage(14, 0, "Why so far away? Don't want to fight?! Then DIE!")
pUnit:CastSpellOnTarget(5,Unit:GetRandomPlayer(3))
pUnit:RegisterEvent("DeathKnightKthals_11",1000, 0)
end
end
function DeathKnightKthals_11(pUnit,Event)
if pUnit:GetHealthPct() < 76 then
pUnit:SendChatMessage(14, 0, "Master i require aid!")
pUnit:CastSpell(43110) -- |
pUnit:CastSpell(43110) -- |
pUnit:CastSpell(43110) -- | -- These are Spirit Wolves!
pUnit:CastSpell(43110) -- |
pUnit:RegisterEvent("DeathKnightKthals_12",1000, 0)
end
end
function DeathKnightKthals_12(pUnit,Event)
if pUnit:GetHealthPct() < 73 then
pUnit:SendChatMessage(14, 0, "The end has come! Come to me my demons!")
local Choice=math.random(1, 2)
if Choice==1 then
pUnit:CastSpell(22865) --|
pUnit:CastSpell(22865) --|-- Summon Doom Guards
pUnit:CastSpell(22865) --|
pUnit:CastSpell(22865) --|
elseif Choice==2 then
pUnit:CastSpell(43110) --|
pUnit:CastSpell(43110) --|
pUnit:CastSpell(43110) --|--- Summons Spirit Wolves
pUnit:CastSpell(43110) --|
pUnit:CastSpell(43110) --|
pUnit:RegisterEvent("DeathKnightKthals_13",1000, 0)
end
end
end
function DeathKnightKthals_13(pUnit,Event)
if pUnit:GetHealthPct() < 66 then
pUnit:SendChatMessage(14, 0, "Light, Give me strength")
pUnit:FullCastSpellOnTarget(41472,Unit:GetMainTank())
pUnit:CastSpell(27778)
pUnit:CastSpell(27779)
pUnit:CastSpell(1020)
pUnit:RegisterEvent("DeathKnightKthals_14",1000, 0)
end
end
function DeathKnightKthals_14(pUnit,Event)
if pUnit:GetHealthPct() < 55 then
pUnit:SendChatMessage(14, 0, "No... My powers... are faiding!")
pUnit:SetModel(5233)
pUnit:SetScale(1)
pUnit:RegisterEvent("DeathKnightKthals_15",1000, 0)
end
end
function DeathKnightKthals_15(pUnit,Event)
if pUnit:GetHealthPct() < 43 then
pUnit:SendChatMessage(14, 0, "I Will not give up this easily!")
pUnit:FullCastSpellOnTarget(27085,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(27085,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(18435,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(18435,Unit:GetMainTank())
pUnit:RegisterEvent("DeathKnightKthals_16",1000, 0)
end
end
function DeathKnightKthals_16(pUnit,Event)
if pUnit:GetHealthPct() <36 then
pUnit:SendChatMessage(14, 0, "This will hurt only for a second!")
pUnit:FullCastSpellOnTarget(45150,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(15743,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(15743,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(15743,Unit:GetMainTank())
pUnit:RegisterEvent("DeathKnightKthals_17",1000, 0)
end
end
function DeathKnightKthals_17(pUnit,Event)
if pUnit:GetHealthPct() < 30 then
pUnit:SendChatMessage(14, 0,"There is need of mana for you!")
pUnit:CastSpellOnTarget(29881,Unit:GetRandomPlayer(4))
pUnit:CastSpellOnTarget(29881,Unit:GetRandomPlayer(3))
pUnit:CastSpellOnTarget(29881,Unit:GetRandomPlayer(4))
pUnit:CastSpellOnTarget(29881,Unit:GetRandomPlayer(3))
pUnit:RegisterEvent("DeathKnightKthals_18",1000, 0)
end
end
function DeathKnightKthals_18(pUnit,Event)
if pUnit:GetHealPct() < 22 then
pUnit:SendChatMessage(14, 0, "Seems like your a mighty ... Good... Time to show you the true power of a DeathKnightKthals!")
pUnit:CastSpellOnTarget(29881,Unit:GetRandomPlayer(4))
pUnit:CastSpellOnTarget(29881,Unit:GetRandomPlayer(3))
pUnit:CastSpellOnTarget(29881,Unit:GetRandomPlayer(4))
pUnit:CastSpellOnTarget(29881,Unit:GetRandomPlayer(3))
pUnit:FullCastSpellOnTarget(45150,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(15743,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(15743,Unit:GetMainTank())
pUnit:FullCastSpellOnTarget(15743,Unit:GetMainTank())
pUnit:CastSpell(43110)
pUnit:CastSpell(43110)
pUnit:CastSpell(43110)
pUnit:CastSpell(43110)
pUnit:CastSpell(43110)
pUnit:CastSpell(22865)
pUnit:CastSpell(22865)
pUnit:CastSpell(22865)
pUnit:CastSpell(22865)
pUnit:SendChatMessage(14, 0, "HAHAHAHA THERE IS NO SURVIVING!!!!!")
pUnit:RegisterEvent("DeathKnightKthals_19",1000, 0)
end
end
function DeathKnightKthals_19(pUnit,Event)
if pUnit:GetHealthPct() < 21 then
pUnit:SendChatMessage(14, 0, "You.. survived...through that... its... its impossible!!")
pUnit:RegisterEvent("DeathKnightKthals_20",1000, 0)
end
end
function DeathKnightKthals_20(pUnit,Event)
if pUnit:GetHealthPct() < 18 then
pUnit:SendChatMessage(14, 0, "Great one... i .. i am sorry..I Cannot win this...")
pUnit:RegisterEvent("DeathKnightKthals_20",1000, 0)
end
end
function DeathKnightKthals_21(pUnit,Event)
if pUnit:GetHealthPct() < 10 then
pUnit:SendChatMessage(14, 0, "I must... Kill!")
pUnit:CastSpellOnTarget(29973, pUnit:GetMainTank())
end
end
function Kill all(pUnit, Event)
pUnit:CastSpellOnTarget(35354, pUnit:GetRandomPlayer(7))
end
end
function DeathKnightKthals_start(pUnit,Event)
pUnit:RegisterEvent("DeathKnightKthals_1",1000, 0)
end
RegisterUnitEvent(94500, 1, "DeathKnightKthals_start")
RegisterUnitEvent(94500, 1, "DeathKnightKthals_EnterCombat")
RegisterUnitEvent(94500, 3, "DeathKnightKthals_OnKill")
RegisterUnitEvent(94500, 2, "DeathKnightKthals_LeaveCombat")
RegisterUnitEvent(94500, 4, "DeathKnightKthals_Died")
For some reason it wont work...