ElunaLuaEngineBTScript

local function highwarlord_needlespine1(Unit, Event)
	Unit:CastSpell(39835)
end

local function highwarlord_needlespine(Unit, Event)
	Unit:CastSpell(39992)
	Unit:RegisterEvent("highwarlord_needlespine1",0, 0)
end

local function highwarlord_impalingspine(unit)
local plr = unit:GetClosestPlayer()
	if (plr ~= nil) then
		unit:CastSpellOnTarget(39837, plr)
	local spruch = math.random(1,2)
	end
	if (spruch == 1) then
		Unit:SendChatMessage(12,0, "Stick around!")
	elseif (spruch == 2) then
		Unit:sendChatMessage(12,0, "I'll deal with you later!")
	end
end

local function highwarlord_tidalshield(unit)
	unit:CastSpell(39872)
	unit:SendChatMessage(12,0, "Blood will flow! ")
end

local function highwarlord_enrage(unit)
	unit:CastSpell(46587)
	Unit:SendChatMessage(12,0, "My patience has run out! Die, die!")
end

local function highwarlord_OnKilledTarget(unit, Event)
local spruch = math.random(1,2)
	if (spruch == 1) then
		Unit:SendChatMessage(12,0, "Your success was short lived!")
	elseif (spruch == 2) then
		Unit:sendChatMessage(12,0, "Time for you... to go!")
	end
end

local function highwarlord_OnCombat(Unit, Event)
	Unit:SendChatMessage(12,0, "You will die, in the name of Lady Vashj!")
	Unit:RegisterEvent("highwarlord_needlespine",7500, 0)
	Unit:RegisterEvent("highwarlord_enrage",480000, 0)
	Unit:RegisterEvent("highwarlord_tidalshield",60000, 0)
	Unit:RegisterEvent("highwarlord_impalingspine",20000, 0)
	end

local function highwarlord_OnDied(Unit, Event)
	Unit:SendChatMessage(12,0, "Lord Illidan will... crush you.")
	unit:RemoveEvents()
end

RegisterCreatureEvent(22887, 1, "highwarlord_OnCombat")
RegisterCreatureEvent(22887, 3, "highwarlord_OnKilledTarget")
RegisterCreatureEvent(22887, 4, "highwarlord_OnDied")