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")