[Release] WotLK isntance script's

[AzolexX]

"Wrath of the Lich King" instance script's.

Ahn'kahet The Old Kingdom

--[[ Blua script ]]

function HeraldVolazj_OnEnterCombat(pUnit, Event)
	pUnit:RegisterEvent("HeraldVolazj_Insanity",10000,0)
	pUnit:RegisterEvent("HeraldVolazj_Mindflay",20000,0)

end


function Insanity (pUnit, Event)
	pUnit:FullCastSpellOnTarget(57496,pUnit:GetRandomPlayer(0))
end 

function Mindflay (pUnit, Event)
	pUnit:FullCastSpellOnTarget(52586,pUnit:GetClosestPlayer(0))
end

function HeraldVolazj_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function HeraldVolazj_Died(pUnit, Event)
	pUnit:RemoveEvents()
end

RegisterUnitEvent(29311, 1, "HeraldVolazj_OnEnterCombat")
RegisterUnitEvent(29311, 2, "HeraldVolazj_OnLeaveCombat")
RegisterUnitEvent(29311, 4, "HeraldVolazj_OnDied")

--[[ Blua script ]]
--[[
	DEFINES
	]]
local CHAT_MSG_MONSTER_YELL = 14 -- Do this because if enums where to change again, we would just update this.
local LANG_UNIVERSAL = 0

function ElderNadox_OnEnterCombat(pUnit,Event)
	math.randomseed(os.time()) -- to help randomize the function.
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL, LANG_UNIVERSAL,"The secrets of the deep shall remain hidden.")
	pUnit:RegisterEvent("ElderNadox_Summon",20000, 1)
	pUnit:RegisterEvent("ElderNadox_BroodPlague",8000, 1)
end

function ElderNadox_Summon(pUnit,Event)
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL, LANG_UNIVERSAL,"The young must not grow hungry.")
	local x,y,z,o = pUnit:GetX(),pUnit:GetY(),pUnit:GetZ(),pUnit:GetO() -- save some reading space here ^ ^
	pUnit:SpawnCreature(30176 , x, y, z, o, 14, 60000)
end

function ElderNadox_BroodPlague(pUnit,Event) -- if closest plr happens to be nil then console will spam error messages of this.
	if Unit:IsInCombat() == true then -- to prevent spamming whilst the unit isn't in combat.
		local plr = Unit:GetClosestPlayer()
		if type(plr) == "userdata" and plr:IsAlive() == true then
			pUnit:FullCastSpellOnTarget(56130,plr)
			pUnit:RegisterEvent("ElderNadox_BroodPlague",8000, 1)
		elseif type(plr) ~= "userdata" then
			ElderNadox_BroodPlague(pUnit,Event) -- call it again.
		end
	end
end

function ElderNadox_OnKilledTarget(pUnit, Event) -- might aswell call it a few times to randomize it
	if math.random(3) ==1 then
		pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL, LANG_UNIVERSAL,"Sleep now, in the cold dark.")
	elseif math.random(3)==2 then	
		pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL, LANG_UNIVERSAL,"For the Lich King!")
	elseif math.random(3)==3 then
		pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL, LANG_UNIVERSAL,"Perhaps we will be allies soon. ")	
	end
end

function ElderNadox_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function ElderNadox_Died(pUnit, event, player)
	pUnit:SendChatMessage(CHAT_MSG_MONSTER_YELL, LANG_UNIVERSAL, "Master, is my service complete?")	
	pUnit:RemoveEvents()
end

RegisterUnitEvent(29309, 1, "ElderNadox_OnCombat")
RegisterUnitEvent(29309, 2, "ElderNadox_OnLeaveCombat")
RegisterUnitEvent(29309, 4, "ElderNadox_OnDied")
RegisterUnitEvent(29309, 3, "ElderNadox_OnKilledTarget")

--[[ Blua script ]]

function PrinceTaldaram_OnEnterCombat(pUnit, Event)
	pUnit:SendChatMessage(14, 0, "I will feast on your remains.")
	pUnit:RegisterEvent("PrinceTaldaram_Bloodthirst",17000, 0)
	pUnit:RegisterEvent("PrinceTaldaram_Vasnih",24000, 0)
	pUnit:RegisterEvent("PrinceTaldaram_Conjure",35000, 0)
	pUnit:RegisterEvent("PrinceTaldaram_Vampyr",40000, 0)
end

function PrinceTaldaram_Bloodthirst(pUnit,Event)
	pUnit:FullCastSpell(55968)
end

function PrinceTaldaram_Vasnih(pUnit,Event)
	pUnit:FullCastSpell(55964)
	local vchoice=math.random(1, 2)
	if vchoice==1 then
		pUnit:SendChatMessage(14, 0,"Your heartbeat is music to my ears.")
	elseif vchoice==2 then
		pUnit:SendChatMessage(14, 0,"I am nowhere. I am everywhere. I am the watcher, unseen.")
	end
end

-- Core Script required it might crash server as well...worked on mine i will post patch
function PrinceTaldaram_Conjure(pUnit,Event)
	pUnit:FullCastSpellOnTarget(55931,pUnit:GetClosestPlayer(0))
end

function PrinceTaldaram_Vampyr(pUnit,Event)
	pUnit:FullCastSpellOnTarget(55959,pUnit:GetClosestPlayer(0))
	local vamchoice=math.random(1, 2)
	if vamchoice==1 then
		pUnit:SendChatMessage(14, 0,"So appetizing.")
	elseif vamchoice==2
		pUnit:SendChatMessage(14, 0,"Fresh, warm blood. It has been too long. ")
	end
end

function PrinceTaldaram_OnKilledTarget (pUnit, Event)
	local Choice=math.random(1, 2)
	if Choice==1 then
		pUnit:SendChatMessage(14, 0,"I will drink no blood before it's time.")
	elseif Choice==2 then	
		pUnit:SendChatMessage(14, 0,"One final embrace.")
end		
end

function PrinceTaldaram_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function PrinceTaldaram_Died(pUnit, event, player)
	pUnit:SendChatMessage(14, 0, "Still I hunger, still I thirst.")	
	pUnit:RemoveEvents()
end

RegisterUnitEvent(29308, 1, "PrinceTaldaram_OnEnterCombat")
RegisterUnitEvent(29308, 2, "PrinceTaldaram_OnLeaveCombat")
RegisterUnitEvent(29308, 4, "PrinceTaldaram_OnDied")
RegisterUnitEvent(29308, 3, "PrinceTaldaram_OnKilledTarget")

Azjol-Nerub

--[[ Blua script ]]

function Hadronox_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("Hadronox_WebGrab",15000, 0)
	pUnit:RegisterEvent("Hadronox_PierceArmor",12000, 0)
	pUnit:RegisterEvent("Hadronox_LeechPoison",10000, 0)
	pUnit:RegisterEvent("Hadronox_Acidcloud",20000, 0)	
end

function Hadronox_WebGrab(pUnit,Event)
	pUnit:FullCastSpellOnTarget(53406,pUnit:GetClosestPlayer(0))
end

function Hadronox_PierceArmor(pUnit,Event)
	pUnit:FullCastSpellOnTarget(53418,pUnit:GetClosestPlayer(0))
end

function Hadronox_LeechPoison(pUnit,Event)
	pUnit:FullCastSpell(53030)
end

function Hadronox_Acidcloud(pUnit,Event)
	pUnit:FullCastSpellOnTarget(53400,pUnit:GetClosestPlayer(0))
end

function Hadronox_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function Hadronox_OnDied(pUnit, event, player)
	pUnit:RemoveEvents()
end

RegisterUnitEvent(28921, 1, "Hadronox_OnEnterCombat")
RegisterUnitEvent(28921, 2, "Hadronox_OnLeaveCombat")
RegisterUnitEvent(28921, 4, "Hadronox_OnDied")

--[[ Blua script ]]

function Krikthir_OnEnterCombat(pUnit,Event)
	pUnit:SendChatMessage(14, 0,"This kingdom belongs to the Scourge! Only the dead may enter.")
	pUnit:RegisterEvent("Krikthir_MindFlay",7000, 0)
	pUnit:RegisterEvent("Krikthir_CurseofFatigue",10000, 0)
	if pUnit:GetHealthPct() < 10 then
	pUnit:RegisterEvent("Krikthir_Enrage",1,1)
end
end


function Krikthir_MindFlay(pUnit, Event)
	pUnit:FullCastSpellOnTarget(52586,pUnit:GetRandomPlayer(0))
end

function Krikthir_CurseofFatigue(pUnit,Event)
	pUnit:FullCastSpell(52592)
end

function Krikthir_Enrage(pUnit,Event)
	pUnit:CastSpell(28747)
end

function Krikthir_OnKilledTarget(pUnit, Event)
	local Krikthichoice=math.random(1, 2)
	if Krikthichoice==1 then
		pUnit:SendChatMessage(14, 0,"You were foolish to come.")
	elseif Krikthichoice==2 then	
		pUnit:SendChatMessage(14, 0,"As Anub'Arak commands!")
end		
end

function Krikthir_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function Krikthir_OnDied(pUnit, event, player)
	pUnit:SendChatMessage(14, 0,"I should be grateful. But I long ago lost the capacity.")
	pUnit:RemoveEvents()
end

RegisterUnitEvent(28684, 1, "Krikthir_OnEnterCombat")
RegisterUnitEvent(28684, 2, "Krikthir_OnLeaveCombat")
RegisterUnitEvent(28684, 4, "Krikthir_OnDied")
RegisterUnitEvent(28684, 3, "Krikthir_OnKilledTarget")

--[[ Blua script ]]

-- Defines
local UNIT_FLAG_NOT_SELECTABLE = 0x02000000
local UNIT_FLAG_NOT_ATTACKABLE_9           = 0x00000100
local anubaraka = 29120
local assasian = 29214
local darter = 29213

-- Registers
RegisterUnitEvent(anubaraka, 1, "Anubarak_OnEnterCombat")
RegisterUnitEvent(anubaraka, 2, "Anubarak_OnLeaveCombat")
RegisterUnitEvent(anubaraka, 4, "Anubarak_OnDied")
RegisterUnitEvent(anubaraka, 3, "Anubarak_OnKilledTarget")

-- Script
function Anubarak_OnEnterCombat(pUnit,Event)
	pUnit:SendChatMessage(14, 0,"Eternal agony awaits you!")
	pUnit:RegisterEvent("Anubarak_Swarm",8000, 0)
	pUnit:RegisterEvent("Anubarak_CarrionBeetlesSummon",6000, 0).
	pUnit:RegisterEvent("Anubarak_SuperSpell",6000, 0)
	if pUnit:GetHealthPct() < 66 then
	pUnit:RegisterEvent("Anubarak_Phazo1",1,1)
	if pUnit:GetHealthPct() < 33 then
	pUnit:RegisterEvent("Anubarak_Phazo2",1,1)
	if pUnit:GetHealthPct() < 15 then
	pUnit:RegisterEvent("Anubarak_Phazo3",1,1)
	end
end
end
end


function Anubarak_Swarm(pUnit, Event)
	pUnit:FullCastSpellOnTarget(53467,pUnit:GetRandomPlayer(0))
	local anubarakchoice=math.random(1, 2)
	if killchoice==1 then
		pUnit:SendChatMessage(14, 0,"Your armor is useless against my locusts!")
	elseif killchoice==2 then	
		pUnit:SendChatMessage(14, 0,"The pestilence upon you!")	
end
end

function Anubarak_CarrionBeetlesSummon(pUnit,Event)
	pUnit:FullCastSpell(53520)
end

function Anubarak_Swarm(pUnit, Event)
	Unit:FullCastSpell(53454)
end
	
function Anubarak_OnKilledTarget (pUnit, Event)
	local anubarakchoice=math.random(1, 3)
	if Krikthichoice==1 then
		pUnit:SendChatMessage(14, 0,"You shall experience my torment, first-hand!")
	elseif Krikthichoice==2 then	
		pUnit:SendChatMessage(14, 0,"You have made your choice.")	
	elseif Krikthichoice==3 then	
		pUnit:SendChatMessage(14, 0,"Soon, the Master's voice will call to you.")
end		
end

function Anubarak_Phazo1(pUnit,Event)
	pUnit:Root()
	pUnit:SetScale(0)
	local plr = pUnit:GetRandomPlayer(0)
	if type(plr) == "userdata" then
	pUnit:SpawnCreature(assasian , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0)
	pUnit:SpawnCreature(assasian , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) 
	pUnit:SpawnCreature(darter , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) 
	pUnit:SpawnCreature(darter , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) 	
	pUnit:SendChatMessage(14, 0,"Come forth, my brethren. Feast on their flesh")
	pUnit:RegisterEvent("Anubarak_RemovePhazo1",10000, 1)
	pUnit:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_ATTACKABLE_9)
	pUnit:FullCastSpell(53472) -- Core script, will add patch
end

function Anubarak_RemovePhazo1(pUnit,Event)
	pUnit:RemoveEvents()
	pUnit:RegisterEvent("Anubarak_Swarm",8000, 0)
	pUnit:RegisterEvent("Anubarak_CarrionBeetlesSummon",6000, 0)
end

function Anubarak_Phazo2(pUnit,Event)
	pUnit:Root()
	pUnit:SetScale(0)
	local plr = pUnit:GetRandomPlayer(0)
	if type(plr) == "userdata" then
	pUnit:SpawnCreature(assasian , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0)
	pUnit:SpawnCreature(assasian , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) 
	pUnit:SpawnCreature(darter , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) 
	pUnit:SpawnCreature(darter , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) 
	pUnit:SendChatMessage(14, 0,"Come forth, my brethren. Feast on their flesh")
	pUnit:RegisterEvent("Anubarak_RemovePhazo2",10000, 1)
	pUnit:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_ATTACKABLE_9)
	pUnit:FullCastSpell(53472) -- Core script, will add patch
end

function Anubarak_RemovePhazo2(pUnit,Event)
	pUnit:RemoveEvents()
	pUnit:RegisterEvent("Anubarak_Swarm",8000, 0)
	pUnit:RegisterEvent("Anubarak_CarrionBeetlesSummon",6000, 0)
end

function Anubarak_Phazo3(pUnit,Event)
	pUnit:Root()
	pUnit:SetScale(0)
	local plr = pUnit:GetRandomPlayer(0)
	if type(plr) == "userdata" then
	pUnit:SpawnCreature(assasian , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0)
	pUnit:SpawnCreature(assasian , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) 
	pUnit:SpawnCreature(darter , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) 
	pUnit:SpawnCreature(darter , plr:GetX(), plr:GetY(), plr:GetZ(), plr:GetO(), 14, 0) 	
	pUnit:SendChatMessage(14, 0,"Come forth, my brethren. Feast on their flesh")
	pUnit:RegisterEvent("Anubarak_RemovePhazo3",10000, 1)
	pUnit:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_ATTACKABLE_9)
	pUnit:FullCastSpell(53472) -- Core script, will add patch
end

function Anubarak_RemovePhazo3(pUnit,Event)
	pUnit:RemoveEvents()
	pUnit:RegisterEvent("Anubarak_Swarm",8000, 0)
	pUnit:RegisterEvent("Anubarak_CarrionBeetlesSummon",6000, 0)
end

function Anubarak_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function Anubarak_OnDied(pUnit, event, player)
	pUnit:SendChatMessage(14, 0,"I never thought... I would be rid of him.")
	pUnit:RemoveEvents()
end

The Culling of Stratholme

--[[ Blua Script]]

--Mal'Ganis Mal'Ganis - NPC - World of Warcraft last Boss of "Culling The Stratholme" CoT Wotlk Event Timers are not 100% Blizzlike but they are fine :)
-- He should banish at End of Fight i dont know how do you get Loot :) i Just good my Wotlk Retail Acc i hope i will find out soon
function MG_EnterCombat(pUnit, Event)
    pUnit:Root()
	pUnit:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_ATTACKABLE_9)
	pUnit:SendChatMessage(14, 0, "Yes, this is the beginning. I've been waiting for you, young prince. I am Mal'Ganis.")
	pUnit:RegisterEvent("MG_Speach1", 7000, 0)
end

function MG_Speach1(pUnit, Event)
	pUnit:SendChatMessage(14, 0, "Yes, this is the beginning. I've been waiting for you, young prince. I am Mal'Ganis.")
	pUnit:RegisterEvent("MG_Battle", 9000, 0)
end	
function MG_Battle(pUnit, Event)
    pUnit:RemoveEvents()
	pUnit:SendChatMessage(14, 0, "This will be a fine test, Prince Arthas.") -- I will add Sound ID's laterz :)
	pUnit:RegisterEvent("MG_Swarm", 16000, 0)
	pUnit:RegisterEvent("MG_Blast", 12000, 0)
	pUnit:RegisterEvent("MG_Sleep", 21000, 0)
	pUnit:RegisterEvent("MG_Vampiric", 8000, 0)
	pUnit:RegisterEvent("MG_Vanish", 1000, 0)
end	

function MG_Swarm(pUnit, Event)
	pUnit:CastSpell(52720) -- Carrion Swarm - Spell - World of Warcraft
end

function MG_Blast(pUnit,Event)
	pUnit:FullCastSpellOnTarget(52722,pUnit:GetRandomPlayer(0)) -- Mind Blast - Spell - World of Warcraft
end

function MG_Sleep(pUnit,Event)
pUnit:FullCastSpellOnTarget(52721,pUnit:GetRandomPlayer(0))
	local Choice=math.random(1, 2)
		if Choice==1 then
			pUnit:SendChatMessage(14, 0, "Time out.")
		elseif Choice==2 then
			pUnit:SendChatMessage(14, 0, "You seem tired.")
end
end

function MG_Blast(pUnit,Event)
	pUnit:FullCastSpellOnTarget(52723,pUnit:GetRandomPlayer(0)) -- Vampiric Touch - Spell - World of Warcraft 100% not Supported by Any Core!
end


function MG_OnKill(pUnit,Event)
	pUnit:RemoveEvents()
	local Choice=math.random(1, 3)
		if Choice==1 then
			pUnit:SendChatMessage(14, 0, "All too easy.")
		elseif Choice==2 then
			pUnit:SendChatMessage(14, 0, "The dark lord is displeased with your interference.")
		elseif Choice==3 then
			pUnit:SendChatMessage(14, 0, "It is Prince Arthas I want, not you.")
end
end

function MG_Vanish(pUnit,Event)
	if pUnit:GetHealthPct() < 2 then	
	pUnit:SetUInt32Value(UNIT_FIELD_FLAGS,UNIT_FLAG_NOT_ATTACKABLE_9)
	pUnit:Emote(1)
	pUnit:SendChatMessage(12, 0, "Your journey has just begun, young prince...Gather your forces, and meet me in the arctic land of Northrend...It is there we shall settle the score between us...It is there that your true destiny will unfold...")
	pUnit:RemoveFromWorld()
	local x,y,z,o = pUnit:GetX(),pUnit:GetY(),pUnit:GetZ(),pUnit:GetO()
	pUnit:SpawnGameObject(190663, x , y , z ,0) 
	end
end

function MG_OnDied(pUnit,Event)
	pUnit:RemoveEvents()
end


function MG_OnLeaveCombat(pUnit,Event)
	pUnit:RemoveEvents()
end

RegisterUnitEvent(26533, 1, "MG_EnterCombat")
RegisterUnitEvent(26533, 2, "MG_OnLeaveCombat")
RegisterUnitEvent(26533, 4, "MG_OnKill")
RegisterUnitEvent(26533, 3, "MG_OnDied")

Utgarde Keep

--[[ Blua Script ]]

function Skarvald_OnEnterCombat(pUnit,Event)
	pUnit:SendChatMessage(14, 0,"Dalronn! See if you can muster the nerve to join my attack!")
	pUnit:RegisterEvent("Skarvald_Charge",8000, 0)
	pUnit:RegisterEvent("Skarvald_StoneStrike",10000, 0)
end

function Skarvald_Charge(pUnit, Event)
	pUnit:FullCastSpellOnTarget(43651,pUnit:GetRandomPlayer(7))
end

function Skarvald_StoneStrike(pUnit, Event)
	pUnit:FullCastSpellOnTarget(48583,pUnit:GetClosestPlayer())
end

function Skarvald_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function Skarvald_OnDied(pUnit, event, player)
	pUnit:SendChatMessage(14, 0,"A warrior's death.")
	pUnit:RemoveEvents()
end

RegisterUnitEvent(24200, 1, "Skarvald_OnEnterCombat")
RegisterUnitEvent(24200, 2, "Skarvald_OnLeaveCombat")
RegisterUnitEvent(24200, 4, "Skarvald_OnDied")

-- Other Boss :)
function Dalronn_OnEnterCombat(pUnit,Event)
	pUnit:RegisterEvent("Dalronn_Reply",5000, 1)	
	pUnit:RegisterEvent("Dalronn_ShadowBolt",2000, 0)
	pUnit:RegisterEvent("Dalronn_Debilitate",8000, 0)
end

function Skarvald_Reply(pUnit, event, player)
	pUnit:SendChatMessage(14, 0,"By all means, don't assess the situation, you halfwit! Just jump into the fray!")
end

function Dalronn_ShadowBolt(pUnit, Event)
	pUnit:FullCastSpellOnTarget(43649,pUnit:GetRandomPlayer(0))
end

function Dalronn_Debilitate(pUnit, Event)
	pUnit:FullCastSpellOnTarget(43650,pUnit:GetRandomPlayer(0))
end

function Dalronn_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function Dalronn_OnDied(pUnit, event, player)
	pUnit:SendChatMessage(14, 0,"See... you... soon.")
	pUnit:RemoveEvents()
end

RegisterUnitEvent(24201, 1, "Dalronn_OnEnterCombat")
RegisterUnitEvent(24201, 2, "Dalronn_OnLeaveCombat")
RegisterUnitEvent(24201, 4, "Dalronn_OnDied")

--[[ Blua Script ]]

	
function Keleseth_OnEnterCombat(pUnit,Event)
	pUnit:SendChatMessage(14, 0,"Your blood is mine!")
	pUnit:RegisterEvent("Keleseth_ShadowBolt",3000, 0) 
	pUnit:RegisterEvent("Keleseth_Summon",15000, 0) -- this is incorrect, i will handle this after i get some time
	pUnit:RegisterEvent("Keleseth_FrostTomb",20000, 0)
end

function Keleseth_ShadowBolt(pUnit,Event)
	pUnit:FullCastSpellOnTarget(43667,pUnit:GetRandomPlayer(0))
end

function Keleseth_FrostTomb(pUnit,Event)
	pUnit:SendChatMessage(14, 0,"Not so fast.")
	pUnit:FullCastSpellOnTarget(48400,pUnit:GetRandomPlayer(0))
end
-- if someone can help me here, i think this spell can be scripted via lua, the player with this debuff should not move, like dummy applied on player witch haves HP ofc.

function Keleseth_Summon(pUnit,Event)
	pUnit:SendChatMessage(14, 0,"Aranal, lidel! Their fate shall be yours!")
	local x,y,z,o = pUnit:GetX(),pUnit:GetY(),pUnit:GetZ(),pUnit:GetO()
	pUnit:SpawnCreature(23970 , x, y, z, o, 14, 60000)
	pUnit:SpawnCreature(23970 , x, y, z, o, 14, 60000)
	pUnit:SpawnCreature(23970 , x, y, z, o, 14, 60000)
	pUnit:SpawnCreature(23970 , x, y, z, o, 14, 60000)
	pUnit:SpawnCreature(23970 , x, y, z, o, 14, 60000)
end 

-- should be rise emote

function Keleseth_OnLeaveCombat(pUnit, Event)
	pUnit:RemoveEvents()	
end

function Keleseth_OnDied(pUnit, event, player)
	pUnit:SendChatMessage(14, 0,"I join... the night.")
	pUnit:RemoveEvents()
end

RegisterUnitEvent(23953, 1, "Keleseth_OnEnterCombat")
RegisterUnitEvent(23953, 2, "Keleseth_OnLeaveCombat")
RegisterUnitEvent(23953, 4, "Keleseth_OnDied")

This script's are 100% by me AzoleX. Please don't use this in any repack or release. Thanks. (You can use this for your private server or anything done in private.

[Ground Zero]

urewin:

Once Again....Epic.... +Rep If I can. Thanks you've helped alot.

One question, Can I include in some of my future repacks If I include credits and a Picture of me bowing down to you? xD

[Edude]

Woah, here's something usefull, this is sick man, +Rep of course.

You are an EPIC scripter :P

Regards from FrostTeam

[Noobcraft]

Epic!!!!!!!!!!!!!! +Rep

[stoneharry]

Looks good and a lot of time and effort has gone into this by the looks of it. +Rep

[project anthrax]

._. omg....lol +rep + teh rep

[bsod-staff14]

Very awesome!This deserves +Rep man!You rock!

[bobby555]

Wow!! awesome job man!

[BrantX]

Epic, Would Rep but i need to Spread.
Will be using btw.

[Chrispee]

Epic mate really hard work +rep from me for sure
1 thing dont judge that this will be not be in any repacks
any great work

[AzolexX]

Few things, Thanks all i will release more done in CPP soon and about repack things, there are much leechers that will post this in there repacks without not only giving credit's but claiming as there own witch i don't want to see. And btw I forgot to credit BrantX for few things(fixes?).

x Elite x, no please don't include them in your repack, but you can link this thread to it.

[Performer]

+rep noob :P

[Freyetta]

These are for what Arcemu/Aspire/Ascent?

and to be saved as *.lua????

More instructions please

[AzolexX]

Yes, this are normal lua script's, they work with normal/basic Lua Engine support but it will work better with Blua Engine since some command's are fixed in there and there are more, it is for Heartstone, ArcEmu, AspireCore and Ascent. Save it as *.lua , enable lua in your core config's and move script's to .../Scripts. That is it.

[Hyldran0]

Really Nice done !! I love it and thx