--NPC id
local hcNPC = 90000
--This is how long the character is locked for - default is 32 years.
local banTimer = 999999999

--on death function - checks if player has token and bans character if it does.
local function PlayerDeath(event, killer, killed)
  if killed:HasItem(90000,1) and killed:GetLevel() == 1 then
    print(killed:GetName() .. " was killed by " .. killer:GetName())
    SendWorldMessage(killed:GetName() .. " was killed by " .. killer:GetName())
    Ban(1,killed:GetName(),banTimer)
  end
end

--First Gossip Screen for NPC
function OnFirstTalk(event, player, unit)
  if player:GetLevel() == 1 then
    player:PlayDistanceSound(20431)
    player:GossipMenuAddItem(0, "Looking for a challenge? Click here to try hardcore mode!", 0, 1)
    player:GossipMenuAddItem(0, "What's with the wings?", 0, 4)
    player:GossipSendMenu(1, unit)
  else
    player:SendBroadcastMessage("You must be level 1 to access hardcore mode.")
    player:PlayDistanceSound(20432)
    player:GossipComplete()
  end
end

--Selection for NPC gossip
function OnSelect(event, player, unit, sender, intid, code)
  if intid == 1 then
    -- (Previous code remains the same)
  elseif intid == 4 then
    player:GossipMenuAddItem(0, "Wings are a major feature of this server and provide a number of unique benefits aside from simply looking great. If you open your spellbook, you'll notice a few new spells and can probably guess at what some of those features might be.", 0, 5)
    player:GossipSendMenu(4, unit)
  elseif intid == 5 then
    player:GossipMenuAddItem(0, "Where can I get wings?", 0, 6)
    player:GossipSendMenu(5, unit)
  elseif intid == 6 then
    player:GossipMenuAddItem(0, "Wings have been scattered in various places throughout Azeroth and are primarily attached to tabards. That said not every tabard will provide wings and not all wings have been released in game. As time goes on I will add more wings with different sources of acquisition and different benefits. If you choose to do hardcore mode you may get lucky enough to acquire a pair for yourself if you make it to certain levels...", 0, 7)
    player:GossipSendMenu(6, unit)
  elseif intid == 7 then
    player:GossipComplete()
  end
end

--if player chooses to do hardcore they receive the token and have custom items and Murky removed
function OnHardCore(event, player, unit, sender, intid, code)
  if intid == 2 then
	player:PlayDistanceSound(20434)
    player:AddItem(90000, 1)
    player:SetCoinage(0)
    player:RemoveItem(60002, player:GetItemCount(60002))
    player:RemoveItem(10594, player:GetItemCount(10594))
    player:RemoveItem(65000, player:GetItemCount(65000))
	player:RemoveSpell(24939)
	player:RemoveSpell(100117)
	player:RemoveSpell(100118)
    --else gossip ends
  else
    player:GossipComplete()
	player:PlayDistanceSound(20434)
  end
end

RegisterCreatureGossipEvent(hcNPC, 1 , OnFirstTalk)
RegisterCreatureGossipEvent(hcNPC, 2, OnSelect)
RegisterCreatureGossipEvent(hcNPC, 2, OnHardCore)
RegisterPlayerEvent(8, PlayerDeath)