Add files via upload

HardcoreMode/Hardcore.lua

@@ -0,0 +1,60 @@
+--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: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
+	player:PlayDistanceSound(20433)
+    player:GossipMenuAddItem(0, "Just double checking to make sure that you want to turn on hardcore mode. This will lock the character after death to be no longer playable, remove all your current gold, remove bonus starter items and Murky will no longer be with you! I will likely be adding rewards for reaching certain stages of the game later...", 0, 2)
+    player:GossipMenuAddItem(0, "NO TAKE ME BACK!", 0, 3)
+    player:GossipSendMenu(2, unit)
+  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)