Custom Arena : The Lichking

local NPC_ID = 600004

function Masterofarena_OnSpawn(unit, event)
    are = unit
end

RegisterUnitEvent(600000, 18, "Masterofarena_OnSpawn")

function TheLichKing_OnSpawn(unit, event)
    tlk = unit
end

RegisterUnitEvent(600004, 18, "TheLichKing_OnSpawn")

function TheLichKing_OnCombat(unit, event)
    are:SendChatMessage(14, 0, "Next, the leader of the scourge, the Lich King waits for you!")
    are:Emote(1, 50)
    tlk:SendChatMessage(14, 0, "No one can ever stop the scourge!")
    tlk:Root()
    tlk:TeleportCreature(2178.245361, -4766.237305, 55.137955)
    tlk:RegisterEvent("Pain_And_Suffering", 5000, 0)
end

function Pain_And_Suffering(unit, event)
    tlk:CastSpellOnTarget(72133, unit:GetMainTank())
end

function TheLichKing_OnLeaveCombat(unit, event)
    tlk:Despawn(10, 0)
    tlk:RemoveEvents()
    are:SetNPCFlags(15)
end

function TheLichKing_OnKilledPlayer(unit, event, player)
    tlk:SendChatMessage(14, 0, "You have lost "..player:GetName().."!")
    are:SetNPCFlags(15)
    are:Emote(1, 50)
    are:SendChatMessage(14, 0, "You have lost, "..player:GetName().."! Please try later again!")
    player:CastSpell(34776)
    player:Teleport(1, 2214.309326, -4775.207031, 73.038269, 4.438317)
end

function TheLichKing_OnDied(unit, event, player)
    are:SetNPCFlags(15)
    are:SendChatMessage(14, 0, "Congratulations you defeat Illidan "..player:GetName().."!")
    are:Emote(1, 50)
    tlk:SendChatMessage(14, 0, "I gave up "..player:GetName().."!")
    tlk:Despawn(10, 0)
    player:AddItem(49623, 1)
    player:Teleport(1, 2209.373291, -4780.540039, 65.416451, 2.655464)
    player:CastSpell(34776)
end

RegisterUnitEvent(600004, 1, "TheLichKing_OnCombat")
RegisterUnitEvent(600004, 2, "TheLichKing_OnLeaveCombat")
RegisterUnitEvent(600004, 3, "TheLichKing_OnKilledPlayer")
RegisterUnitEvent(600004, 4, "TheLichKing_OnDied")