Custom Arena first Boss Kel´Thuzad

local NPC_ID = 600001

function Masterofarena_OnSpawn(unit, event)
    are = unit
end

RegisterUnitEvent(600000, 18, "Masterofarena_OnSpawn")

function KelThuzad_OnSpawn(unit, event)
    kel = unit
end

RegisterUnitEvent(600001, 18, "KelThuzad_OnSpawn")

function KelThuzad_OnCombat(unit, event)
    are:SendChatMessage(14, 0, "Kel'Thuzad defeat before he turns you into a piece of ice!")
    are:Emote(1, 100)
    kel:SendChatMessage(14, 0, "You devour the cold wirde")
    kel:RegisterEvent("Damage_Spell_2", 7600, 0)
    kel:RegisterEvent("Damage_Spell_3", 12000, 0)
end

function Damage_Spell_2(unit, event)
    kel:FullCastSpellOnTarget(31249, unit:GetMainTank())
end

function Damage_Spell_3(unit, event)
    kel:CastSpellOnTarget(71001, unit:GetMainTank())
end


function KelThuzad_OnLeaveCombat(unit, event, player)
    kel:Despawn(10, 0)
    kel:RemoveEvents()
    are:SetNPCFlags(15)
end

function KelThuzad_OnKilledPlayer(unit, event, player)
    are:SendChatMessage(14, 0, "You have lost "..player:GetName()..", please try again")
    are:SetNPCFlags(15)
    are:Emote(1, 100)
    kel:SendChatMessage(14, 0, "You have lost "..player:GetPlayerClass().."!")
    player:CastSpell(34776)
    player:Teleport(1, 2214.309326, -4775.207031, 73.038269, 4.438317)
    kel:Despawn(10, 0)
    kel:RemoveEvents()
end

function KelThuzad_OnDied(unit, event, player)
    kel:SendChatMessage(14, 0, "Have won "..player:GetName().."! I give up.")
    are:SendChatMessage(14, 0, "You have managed to defeat Kel'Thuzad "..player:GetName().."!")
    are:Emote(1, 100)
    are:SetNPCFlags(15)
    kel:Despawn(10, 0)
    player:AddItem(49623, 1)
    player:Teleport(1, 2209.373291, -4780.540039, 65.416451, 2.655464)
    player:CastSpell(34776)
end

RegisterUnitEvent(600001, 1, "KelThuzad_OnCombat")
RegisterUnitEvent(600001, 2, "KelThuzad_OnLeaveCombat")
RegisterUnitEvent(600001, 3, "KelThuzad_OnKilledPlayer")
RegisterUnitEvent(600001, 4, "KelThuzad_OnDied")