Custom Arena : Archimonde

local NPC_ID = 600002

function Masterofarena_OnSpawn(unit, event)
    are = unit
end

RegisterUnitEvent(600000, 18, "Masterofarena_OnSpawn")

function Archimonde_OnSpawn(unit, event)
    arc = unit
end

RegisterUnitEvent(600002, 18, "Archimonde_OnSpawn")

function Archimonde_OnCombat(unit, event)
    are:SendChatMessage(14, 0, "Easily, Archimonde defeated before he destroyed the arena")
    are:Emote(1, 100)
    arc:SendChatMessage(14, 0, "I leave no stone on the other stand")
    arc:RegisterEvent("Starfire", 3600, 1)
    arc:RegisterEvent("Frostbolt_Of_Times", 15000, 0)
    arc:RegisterEvent("Lightning_Whirl", 9000, 0)
end

function Frostbolt_Of_Times(unit, event)
    arc:CastSpellOnTarget(11, unit:GetMainTank())
end

function Starfire(unit, event)
    arc:FullCastSpellOnTarget(2912, unit:GetMainTank())
end

function Lightning_Whirl(unit, event)
    arc:CastSpellOnTarget(63483, unit:GetMainTank())
end

function Archimonde_OnLeaveCombat(unit, event)
    arc:Despawn(10, 0)
    are:SetNPCFlags(15)
    arc:RemoveEvents()
end

function Archimonde_OnKilledPlayer(unit, event, player)
    arc:SendChatMessage(14, 0, "You have lost "..player:GetName().."!")
    arc:Despawn(10, 0)
    are:SendChatMessage(14, 0, "You have lost, "..player:GetName().."! Please try later again!")
    are:Emote(1, 100)
    player:Teleport(1, 2214.309326, -4775.207031, 73.038269, 4.438317)
    player:CastSpell(34776)
    arc:RemoveEvents()
end

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

RegisterUnitEvent(600002, 1, "Archimonde_OnCombat")
RegisterUnitEvent(600002, 2, "Archimonde_OnLeaveCombat")
RegisterUnitEvent(600002, 3, "Archimonde_OnKilledPlayer")
RegisterUnitEvent(600002, 4, "Archimonde_OnDied")