Advertisement
Guest User

zero

a guest
Dec 20th, 2009
412
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lua 6.14 KB | None | 0 0
  1. --[ Created by Ground Zero of MMOwned]--
  2. function All_in_one_item(item, event, player)
  3.     if player:IsInCombat() == false then
  4.         item:GossipCreateMenu(34832, player, 0)
  5.         item:GossipMenuAddItem(5, "Player Tools", 1, 0)
  6.         item:GossipMenuAddItem(5, "Weather Control", 2, 0)
  7.         item:GossipMenuAddItem(3, "Buffs", 3, 0)
  8.         item:GossipMenuAddItem(3, "Morphs", 4, 0)
  9.         item:GossipMenuAddItem(9, "Teleport to GM Island", 9, 0)
  10.         item:GossipMenuAddItem(2, "Close this Window.", 5, 0)
  11.         item:GossipSendMenu(player)
  12. else
  13.         player:SendAreaTriggerMessage("You are currently in Combat!")
  14.     end
  15. end
  16.  
  17. print("Created By Ground Zero of MMOwned")
  18. print("All In One Item Successfully Loaded!")
  19.  
  20. function All_in_two_item(item, event, player, id, intid, code)
  21.     if(intid == 1) then
  22.         item:GossipCreateMenu(3433, player, 0)
  23.         item:GossipMenuAddItem(5, "Reset my Talents", 200, 0)
  24.         item:GossipMenuAddItem(3, "Show my Bank", 201, 0)
  25.         item:GossipMenuAddItem(5, "Sex Change", 6, 0)
  26.         item:GossipMenuAddItem(3, "Remove Resurrection Sickness", 850, 0)
  27.         item:GossipMenuAddItem(2, "<- Back", 202, 0)
  28.         item:GossipSendMenu(player)
  29.     end
  30.    
  31.     if(intid == 2) then
  32.         item:GossipCreateMenu(3434, player, 0)
  33.         item:GossipMenuAddItem(5, "Sunny", 203, 0)
  34.         item:GossipMenuAddItem(5, "Foggy", 204, 0)
  35.         item:GossipMenuAddItem(5, "Raining", 205, 0)
  36.         item:GossipMenuAddItem(5, "Snowing", 206, 0)
  37.         item:GossipMenuAddItem(2, "<- Back", 202, 0)
  38.         item:GossipSendMenu(player)
  39.     end
  40.    
  41.     if (intid == 3) then
  42.         if (player:HasAura(25472) == false) then
  43.         player:CastSpell(48162)
  44.         player:CastSpell(42995)
  45.         player:CastSpell(58499)
  46.         player:CastSpell(43046)
  47.         player:CastSpell(25472)
  48.         player:GossipComplete()
  49.     else
  50.         player:SendBroadcastMessage("You already have buffs on, wait a while and try again.")
  51.         player:GossipComplete()
  52.         end
  53.     end
  54.    
  55.     if (intid == 4) then
  56.         item:GossipCreateMenu(3435, player, 0) 
  57.         item:GossipMenuAddItem(5, "Goblin", 400, 0)
  58.         item:GossipMenuAddItem(5, "Scourge Plaguespreader", 401, 0)
  59.         item:GossipMenuAddItem(5, "Mudkip", 402, 0)
  60.         item:GossipMenuAddItem(5, "Prince Arthas", 403, 0)
  61.         item:GossipMenuAddItem(5, "Blood Elf Magi", 404, 0)
  62.         item:GossipMenuAddItem(5, "Undead Pirate", 405, 0)
  63.         item:GossipMenuAddItem(5, "Mecho Gnome", 406, 0)
  64.         item:GossipMenuAddItem(1, "Demorph", 407, 0)
  65.         item:GossipMenuAddItem(2, "<- Back", 202, 0)
  66.         item:GossipSendMenu(player)
  67.         end
  68.        
  69.     if (intid == 5) then
  70.         player:GossipComplete()
  71.         end
  72.        
  73.     if (intid == 9) then
  74.         local name = player:GetName()
  75.         if (player:IsGm() == true) then
  76.         player:Teleport(1, 16225.210938, 16261.741211, 13.3)
  77.         player:SendBroadcastMessage("Welcome <GM>"..name.." to GM Island.")
  78.     else
  79.         player:SendBroadcastMessage("You need to be a Gamemaster to Access this Feature!")
  80.         end
  81.     end
  82.    
  83.     if (intid == 400) then
  84.         player:SetModel(23444)
  85.         player:GossipComplete()
  86.         end
  87.    
  88.     if (intid == 401) then
  89.         player:SetModel(25323)
  90.         player:GossipComplete()
  91.         end
  92.    
  93.     if (intid == 402) then
  94.         player:SetModel(25643)
  95.         player:GossipComplete()
  96.         end
  97.    
  98.     if (intid == 403) then
  99.         player:SetModel(27544)
  100.         player:GossipComplete()
  101.         end
  102.    
  103.     if (intid == 404) then
  104.         player:SetModel(27559)
  105.         player:GossipComplete()
  106.         end
  107.    
  108.     if (intid == 405) then
  109.         player:SetModel(28129)
  110.         player:GossipComplete()
  111.         end
  112.    
  113.     if (intid == 406) then
  114.         player:SetModel(28113)
  115.         player:GossipComplete()
  116.         end
  117.    
  118.     if (intid == 407) then
  119.         player:DeMorph()
  120.         player:GossipComplete()
  121.         end
  122.        
  123.     if (intid == 850) then
  124.         if (player:HasAura(15007) == true) then
  125.             player:SendBroadcastMessage("Your Resurrection Sickness has been successfully removed.")
  126.             player:RemoveAura(15007)
  127.             player:GossipComplete()
  128.     else
  129.             player:SendBroadcastMessage("You currently do not have Resurrection Sickness!")
  130.             player:GossipComplete()
  131.         end
  132.     end
  133.    
  134.     if(intid == 6) then
  135.         item:GossipCreateMenu(3436, player, 0)
  136.         item:GossipMenuAddItem(5, "Swap my Gender!", 900, 0)
  137.         item:GossipMenuAddItem(2, "<- Back", 209, 0)
  138.         item:GossipSendMenu(player)
  139.     end
  140.    
  141.     if(intid == 209) then
  142.         item:GossipCreateMenu(3433, player, 0)
  143.         item:GossipMenuAddItem(5, "Reset my Talents", 200, 0)
  144.         item:GossipMenuAddItem(3, "Show my Bank", 201, 0)
  145.         item:GossipMenuAddItem(5, "Sex Change", 6, 0)
  146.         item:GossipMenuAddItem(3, "Remove Resurrection Sickness", 850, 0)
  147.         item:GossipMenuAddItem(2, "<- Back", 202, 0)
  148.         item:GossipSendMenu(player)
  149.         end
  150.    
  151.     if(intid == 200) then
  152.         player:ResetTalents()
  153.         player:SendBroadcastMessage("Talent points successfully reset.")
  154.         player:GossipComplete()
  155.     end
  156.    
  157.     if(intid == 201) then
  158.         player:SendBankWindow(unit)
  159.         player:GossipComplete()
  160.     end
  161.    
  162.     if(intid == 202) then
  163.     item:GossipCreateMenu(34832, player, 0)
  164.     item:GossipMenuAddItem(5, "Player Tools", 1, 0)
  165.     item:GossipMenuAddItem(5, "Weather Control", 2, 0)
  166.     item:GossipMenuAddItem(3, "Buffs", 3, 0)
  167.     item:GossipMenuAddItem(3, "Morphs", 4, 0)
  168.     item:GossipMenuAddItem(8, "Teleport to GM Island", 9, 0)   
  169.     item:GossipMenuAddItem(2, "Close this Window.", 5, 0)
  170.     item:GossipSendMenu(player)
  171.     end
  172.    
  173.     if(intid == 203) then
  174.         player:SetPlayerWeather(0, 1)
  175.         player:SendBroadcastMessage("Weather Changed to Sunny.")
  176.         player:GossipComplete()
  177.     end
  178.    
  179.     if(intid == 204) then
  180.         player:SetPlayerWeather(1, 1)
  181.         player:SendBroadcastMessage("Weather Changed to Foggy.")
  182.         player:GossipComplete()
  183.     end
  184.    
  185.     if(intid == 205) then
  186.         player:SetPlayerWeather(2, 1)
  187.         player:SendBroadcastMessage("Weather Changed to Raining.")
  188.         player:GossipComplete()
  189.     end
  190.    
  191.     if(intid == 206) then
  192.         player:SetPlayerWeather(8, 1)
  193.         player:SendBroadcastMessage("Weather Changed to Snowing.")
  194.         player:GossipComplete()
  195.     end
  196.    
  197.     if(intid == 900) then
  198.         if (player:GetGender() == 0) then
  199.             player:SetGender(1)
  200.             player:SendBroadcastMessage("Gender Changed from Male to Female, please Relog.")
  201.             player:GossipComplete()
  202.     else
  203.     if (player:GetGender() == 1) then
  204.         player:SetGender(0)
  205.         player:SendBroadcastMessage("Gender Changed from Female to Male, please Relog.")
  206.         player:GossipComplete()
  207.         end
  208.     end
  209. end
  210.     if(intid == 902) then
  211.         player:GossipComplete()
  212.     end
  213. end
  214.  
  215. RegisterItemGossipEvent(80000, 1, "All_in_one_item")
  216. RegisterItemGossipEvent(80000, 2, "All_in_two_item")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement