Thread: {release 1.0} Event Rewards [lua]

Hello once again i have made a great lua script. Here is a script that you can fully customize. First let me explain the script itself. The script is intended to have many uses and therefore has lots of "comment outs" meaning scripts that can be implemented by just removing the "--" in front of a line. Please feel free to edit this script to what you need. Also the event token item i use is 8860048 but you can change that by opening up in notepad and doing a <ctrl>+<h> and replacing them all. The npc i use is "7760039". I have also included a token trade trade 1 token for 3 other types. Now lets get on with what is inside the script itself.

"1 Event Token Items"- List of 5 items that cost 1 event token

"5 Event Token Items"- List of 5 items that cost 5 event token

"10 Event Token Items" List of 5 items that cost 10 event token

"25 Event Token Items"- List of 5 items that cost 25 event token

"10 Event Token Buffs"- List of 5 Buffs that cost 10 event token



"15 Event Token Buffs"- List of 5 Buffs that cost 15 event token

"15 Event Token Other"-
"Quest Complete"
"Learn Spell"
"Spawn GO"
"Spawn NPC"
"Add Skill"

"25 Event Token Other"-
"Quest Complete"
"Learn Spell"
"Spawn GO"
"Spawn NPC"
"Add Skill"

"Trade Coins for Tokens"- Trade in 1 other type of token for 3 event tokens

Code:

-------------------------------------------------
-------- -The True Event Reward Script- ---------
--  Created by Runi@2009 Norwegian Elite Team  --
--     Our Web: http://www.chronos-wow.com      --
--                                              --
--   Modifying is allowed as long as original   --
--    credits are not removed from this lua.    --
--------------------------------------------------
--------------------------------------------------

function Event_Guide(unit, event, player)
unit:GossipCreateMenu(1, player, 0)
unit:GossipMenuAddItem(0, "1 Event Token Items", 2, 0)
unit:GossipMenuAddItem(0, "5 Event Token Items", 3, 0)
unit:GossipMenuAddItem(0, "10 Event Token Items", 4, 0)
unit:GossipMenuAddItem(0, "25 Event Token Items", 5, 0)
unit:GossipMenuAddItem(0, "10 Event Token Buffs", 6, 0)
--unit:GossipMenuAddItem(0, "15 Event Token Buffs", 7, 0)
--unit:GossipMenuAddItem(0, "15 Event Token Other", 8, 0)
--unit:GossipMenuAddItem(0, "25 Event Token Other", 9, 0)
--unit:GossipMenuAddItem(0, "1 Event Token Hints", 10,  0)
--unit:GossipMenuAddItem(0, "5 Event Token Hints", 11,  0)
--unit:GossipMenuAddItem(0, "How To Get Tokens", 12,  0)
--unit:GossipMenuAddItem(0, "Trade Coins for Tokens", 99, 0)
unit:GossipSendMenu(player)
end

function Event_Submenu(unit, event, player, id, intid, code)
if(intid == 1) then
unit:GossipCreateMenu(16, player, 0)
unit:GossipMenuAddItem(0, "1 Event Token Items", 2, 0)
unit:GossipMenuAddItem(0, "5 Event Token Items", 3, 0)
unit:GossipMenuAddItem(0, "10 Event Token Items", 4, 0)
unit:GossipMenuAddItem(0, "25 Event Token Items", 5, 0)
unit:GossipMenuAddItem(0, "10 Event Token Buffs", 6, 0)
--unit:GossipMenuAddItem(0, "15 Event Token Buffs", 7, 0)
--unit:GossipMenuAddItem(0, "15 Event Token Other", 8, 0)
--unit:GossipMenuAddItem(0, "25 Event Token Other", 9, 0)
--unit:GossipMenuAddItem(0, "1 Event Token Hints", 10,  0)
--unit:GossipMenuAddItem(0, "5 Event Token Hints", 11,  0)
--unit:GossipMenuAddItem(0, "How To Get Tokens", 12,  0)
--unit:GossipMenuAddItem(0, "Trade Coins for Tokens", 99, 0)
unit:GossipSendMenu(player)
end

--1-items
if(intid == 2) then
unit:GossipCreateMenu(21, player, 0)
unit:GossipMenuAddItem(0, "Riding Turtle", 13, 0)
unit:GossipMenuAddItem(0, "Handful of Rose Petals", 14, 0)
unit:GossipMenuAddItem(0, "Handful of Snowflakes", 15, 0)
unit:GossipMenuAddItem(0, "Handful of Summer Petals", 18, 0)
--unit:GossipMenuAddItem(0, "Item 3", 16, 0)
--unit:GossipMenuAddItem(0, "Item 4", 17, 0)
unit:GossipMenuAddItem(0, "[Back]", 1, 0)
unit:GossipSendMenu(player)
end

if(intid == 13) then
if player:GetItemCount(8860048) > 0 then
player:RemoveItem(8860048, 1)
player:AddItem(23720, 1)
player:GossipComplete()
else
Unit:RegisterEvent(Donthave,500, 0)
end
end

if(intid == 14) then
if player:GetItemCount(8860048) > 0 then
player:RemoveItem(8860048, 1)
player:AddItem(22218, 1)
player:GossipComplete()
else
Unit:RegisterEvent(Donthave,500, 0)
end
end

if(intid == 15) then
if player:GetItemCount(8860048) > 0 then
player:RemoveItem(8860048, 1)
player:AddItem(34191, 1)
player:GossipComplete()
else
Unit:RegisterEvent(Donthave,500, 0)
end
end

if(intid == 16) then
if player:GetItemCount(8860048) > 0 then
player:RemoveItem(8860048, 1)
player:AddItem(34684, 1)
player:GossipComplete()
else
Unit:RegisterEvent(Donthave,500, 0)
end
end

if(intid == 17) then
if player:GetItemCount(8860048) > 0 then
player:RemoveItem(8860048, 1)
player:AddItem(itemid, 1)
player:GossipComplete()
else
Unit:RegisterEvent(Donthave,500, 0)
end
end

if(intid == 18) then
if player:GetItemCount(8860048) > 0 then
player:RemoveItem(8860048, 1)
player:AddItem(itemid, 1)
player:GossipComplete()
else
Unit:RegisterEvent(Donthave,500, 0)
end
end

-- 5 token items
if(intid == 3) then
unit:GossipCreateMenu(21, player, 0)
unit:GossipMenuAddItem(0, "Winter Stationery", 19, 0)
unit:GossipMenuAddItem(0, "Valentine's Day Stationery", 20, 0)
unit:GossipMenuAddItem(0, "Paper Flying Machine Kit", 21, 0)
--unit:GossipMenuAddItem(0, "Item 6", 22, 0)
--unit:GossipMenuAddItem(0, "Item 3", 23, 0)
unit:GossipMenuAddItem(0, "[Back]", 1, 0)
unit:GossipSendMenu(player)
end

if(intid == 19) then
if player:GetItemCount(8860048) > 4 then
player:RemoveItem(8860048, 5)
player:AddItem(34171, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 20) then
if player:GetItemCount(8860048) > 4 then
player:RemoveItem(8860048, 5)
player:AddItem(22058, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 21) then
if player:GetItemCount(8860048) > 4 then
player:RemoveItem(8860048, 5)
player:AddItem(34499, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 22) then
if player:GetItemCount(8860048) > 4 then
player:RemoveItem(8860048, 5)
player:AddItem(itemid, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 23) then
if player:GetItemCount(8860048) > 4 then
player:RemoveItem(8860048, 5)
player:AddItem(itemid, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

-- 10 token items
if(intid == 4) then
unit:GossipCreateMenu(21, player, 0)
unit:GossipMenuAddItem(0, "Swift Zhevra", 24, 0)
unit:GossipMenuAddItem(0, "Magic Broom", 25, 0)
unit:GossipMenuAddItem(0, "Fishing Chair", 26, 0)
--unit:GossipMenuAddItem(0, "Item 6", 27, 0)
--unit:GossipMenuAddItem(0, "Item 3", 28, 0)
unit:GossipMenuAddItem(0, "[Back]", 1, 0)
unit:GossipSendMenu(player)
end

if(intid == 24) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
player:AddItem(37719, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 25) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
player:AddItem(37011, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 26) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
player:AddItem(33223, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 27) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
player:AddItem(itemid, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 28) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
player:AddItem(itemid, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

-- 25 token items
if(intid == 5) then
unit:GossipCreateMenu(21, player, 0)
unit:GossipMenuAddItem(0, "Big Blizzard Bear", 29, 0)
unit:GossipMenuAddItem(0, "The Horseman's Reins", 30, 0)
--unit:GossipMenuAddItem(0, "Item 5", 31, 0)
--unit:GossipMenuAddItem(0, "Item 6", 32, 0)
--unit:GossipMenuAddItem(0, "Item 3", 33, 0)
unit:GossipMenuAddItem(0, "[Back]", 1, 0)
unit:GossipSendMenu(player)
end

if(intid == 29) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
player:AddItem(43599, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 30) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
player:AddItem(37012, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 31) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
player:AddItem(itemid, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 32) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
player:AddItem(itemid, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 33) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
player:AddItem(itemid, 1)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

-- 10 token buffs
if(intid == 6) then
unit:GossipCreateMenu(21, player, 0)
unit:GossipMenuAddItem(0, "Ahn'Qiraj Reward Buff (Caster - 60)", 34, 0)
unit:GossipMenuAddItem(0, "Ahn'Qiraj Reward Buff (Melee - 60)", 35, 0)
--unit:GossipMenuAddItem(0, "Item 5", 36, 0)
--unit:GossipMenuAddItem(0, "Item 6", 37, 0)
--unit:GossipMenuAddItem(0, "Item 3", 38, 0)
unit:GossipMenuAddItem(0, "[Back]", 1, 0)
unit:GossipSendMenu(player)
end

if(intid == 34) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
unit:FullCastSpellOnTarget(25799, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 35) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
unit:FullCastSpellOnTarget(25796, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 36) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
unit:FullCastSpellOnTarget(33077, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 37) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
unit:FullCastSpellOnTarget(33077, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 38) then
if player:GetItemCount(8860048) > 9 then
player:RemoveItem(8860048, 10)
unit:FullCastSpellOnTarget(33077, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

-- 15 token buffs
if(intid == 7) then
unit:GossipCreateMenu(21, player, 0)
unit:GossipMenuAddItem(0, "Item 1", 39, 0)
unit:GossipMenuAddItem(0, "Item 2", 40, 0)
unit:GossipMenuAddItem(0, "Item 5", 41, 0)
unit:GossipMenuAddItem(0, "Item 6", 42, 0)
unit:GossipMenuAddItem(0, "Item 3", 43, 0)
unit:GossipMenuAddItem(0, "[Back]", 1, 0)
unit:GossipSendMenu(player)
end

if(intid == 39) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
unit:FullCastSpellOnTarget(33077, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 40) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
unit:FullCastSpellOnTarget(33077, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 41) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
unit:FullCastSpellOnTarget(33077, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 42) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
unit:FullCastSpellOnTarget(33077, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 43) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
unit:FullCastSpellOnTarget(33077, player)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

-- 15 token Other
if(intid == 8) then
unit:GossipCreateMenu(21, player, 0)
unit:GossipMenuAddItem(0, "Quest Complete", 45, 0)
unit:GossipMenuAddItem(0, "Learn Spell", 44, 0)
unit:GossipMenuAddItem(0, "Spawn GO", 46, 0)
unit:GossipMenuAddItem(0, "Spawn NPC", 47, 0)
unit:GossipMenuAddItem(0, "Add Skill", 48, 0)
unit:GossipMenuAddItem(0, "[Back]", 1, 0)
unit:GossipSendMenu(player)
end

if(intid == 44) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
player:LearnSpell(spellid)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 45) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
player:MarkQuestObjectiveAsComplete(questid,objective)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 46) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
unit:SpawnGameObject(entry_id,x,y,z,duration)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 47) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
unit:SpawnCreature(entryid,x,y,z,faction,duration)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 48) then
if player:GetItemCount(8860048) > 14 then
player:RemoveItem(8860048, 15)
player:AddSkill(skillid)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

-- 25 token Other
if(intid == 8) then
unit:GossipCreateMenu(21, player, 0)
unit:GossipMenuAddItem(0, "Quest Complete", 49, 0)
unit:GossipMenuAddItem(0, "Learn Spell", 50, 0)
unit:GossipMenuAddItem(0, "Spawn GO", 51, 0)
unit:GossipMenuAddItem(0, "Spawn NPC", 52, 0)
unit:GossipMenuAddItem(0, "Add Skill", 53, 0)
unit:GossipMenuAddItem(0, "[Back]", 1, 0)
unit:GossipSendMenu(player)
end

if(intid == 50) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
player:LearnSpell(spellid)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 49) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
player:MarkQuestObjectiveAsComplete(questid,objective)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 51) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
unit:SpawnGameObject(entry_id,x,y,z,duration)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

if(intid == 52) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
unit:SpawnCreature(entryid,x,y,z,faction,duration)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end

--token trader
if(intid == 99) then
unit:GossipCreateMenu(21, player, 0)
unit:GossipMenuAddItem(0, "Trade 1 Event Coin", 99, 0)
unit:GossipMenuAddItem(0, "--For--", 99, 0)
unit:GossipMenuAddItem(0, "3 Event Coins", 99, 0)
unit:GossipMenuAddItem(0, "Yes", 98, 0)
--unit:GossipMenuAddItem(0, "Item 3", 16, 0)
--unit:GossipMenuAddItem(0, "Item 4", 17, 0)
unit:GossipMenuAddItem(0, "No", 1, 0)
unit:GossipSendMenu(player)
end

if(intid == 98) then
if player:GetItemCount(7777223) > 0 then
player:RemoveItem(7777223, 1)
player:AddItem(8860048, 3)
player:GossipComplete()
end
end

if(intid == 53) then
if player:GetItemCount(8860048) > 24 then
player:RemoveItem(8860048, 25)
player:AddSkill(skillid)
player:GossipComplete()
else
player:SendChatMessage(12, 0, "How dare you try to trick me you dont have what i need.")
end
end
end

RegisterUnitGossipEvent(7760039, 1, "Event_Guide")
RegisterUnitGossipEvent(7760039, 2, "Event_Submenu")