Advertisement
avirax1994

Migraciones

Sep 4th, 2016
312
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
LScript 12.17 KB | None | 0 0
  1. --[[
  2. ╔══════════════════════════════════════════╗
  3. ║            Script Information            ║
  4. ╠══════════════════════════════════════════╣
  5. - Creado by: Avirax.                      ║
  6. - Contributor(s): Developer               ║
  7. - Completion: 100 %                       ║
  8. - Script Name: Migraciones                ║
  9. - Description: Ayuda a Dar Set 80 Y cosas.║
  10. ║ Also have the options to use my stats    ║
  11. ║ or a search filter.                      ║                                          
  12. ╚══════════════════════════════════════════╝
  13. --]]
  14.  
  15. local NpcEntry = 43286
  16.  
  17. function Migraciones_Gossip(event, player, unit) -- este mismo pero añadiremos otros.
  18.                     if (player:IsInCombat() == true) then
  19.                 else
  20.                     Migraciones_Menu(unit, player)
  21.                     end
  22. end
  23.  
  24. function Migraciones_Menu(unit, player)
  25. player:GossipMenuAddItem(0, "|TInterface/ICONS/Achievement_BG_returnXflags_def_WSG:25|t|cFFFF0000Promocion 80", 0, 50) -- ahora agregaremos mas menus
  26. player:GossipMenuAddItem(0, "|TInterface/ICONS/Achievement_BG_returnXflags_def_WSG:25|t|cFFFF0000Set furioso", 0, 51)
  27. player:GossipMenuAddItem(0, "|TInterface/ICONS/Achievement_BG_returnXflags_def_WSG:25|t|cFFFF0000Equitaciones", 0, 52)
  28. player:GossipMenuAddItem(0, "|TInterface/ICONS/Achievement_BG_returnXflags_def_WSG:25|t|cFFFF0000Max Skill De Armas", 0, 53)
  29. player:GossipMenuAddItem(0, "|TInterface/ICONS/Achievement_BG_returnXflags_def_WSG:25|t|cFFFF0000Telestranporte", 0, 54)
  30. player:GossipMenuAddItem(0, "|TInterface/ICONS/Achievement_BG_returnXflags_def_WSG:25|t|cFFFF0000Salir", 0, 55)
  31. player:GossipSendMenu(1, unit)
  32. end
  33.  
  34. function Migraciones_Events(event, player, unit, sender, intid, code) -- listo :)
  35. --aca empiezan las funciones que daremos al menu de arriba.
  36.  
  37. if (intid == 50)then
  38.         if(player:HasItem(56807))then
  39.                         player:RemoveItem(56807, 5)
  40.                         player:AddItem(41599, 3)
  41.                         player:AddItem(54811, 1)
  42.                         player:AddItem(49284, 1)
  43.                         player:ModifyMoney(1000000000)
  44.                         player:SetLevel(80)
  45.                         player:SendBroadcastMessage("Has Recivido la promocion")
  46.                         player:GossipComplete()
  47.         elseif(player:HasItem(56807) == false) then
  48.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  49.              player:GossipComplete()
  50.          end
  51. elseif(intid == 60)then
  52.         player:GossipComplete()
  53.         end
  54.  
  55. if ( intid == 51) then
  56. player:GossipMenuAddItem(0, "Guerrero", 0 , 21)
  57. player:GossipMenuAddItem(0, "Shaman", 0 , 22)
  58. player:GossipMenuAddItem(0, "Sacerdote", 0 , 23)
  59. player:GossipMenuAddItem(0, "paladin", 0 , 24)
  60. player:GossipMenuAddItem(0, "Druida", 0 , 25)
  61. player:GossipMenuAddItem(0, "Mago", 0 , 26)
  62. player:GossipMenuAddItem(0, "Caballero De La Muerte", 0 , 27)
  63. player:GossipMenuAddItem(0, "Cazador", 0 , 28)
  64. player:GossipMenuAddItem(0, "Brujo", 0 , 29)
  65. player:GossipMenuAddItem(0, "Picaro", 0 , 30)
  66. player:GossipMenuAddItem(0, "Salir", 0 , 55)
  67. player:GossipSendMenu(1, unit)
  68. end
  69.  
  70. if (intid == 21)then
  71.         if(player:HasItem(56807))then
  72.                         player:RemoveItem(56807, 5)
  73.                         player:AddItem(40789, 1)
  74.                         player:AddItem(40807, 1)
  75.                         player:AddItem(40826, 1)
  76.                         player:AddItem(40847, 1)
  77.                         player:AddItem(40866, 1)
  78.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  79.                         player:GossipComplete()
  80.         elseif(player:HasItem(56807) == false) then
  81.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  82.              player:GossipComplete()
  83.          end
  84. elseif(intid == 60)then
  85.         player:GossipComplete()
  86.         end
  87.        
  88.  if (intid == 22)then
  89.         if(player:HasItem(56807))then
  90.                         player:RemoveItem(56807, 5)
  91.                         player:AddItem(40992, 1)
  92.                         player:AddItem(41001, 1)
  93.                         player:AddItem(41013, 1)
  94.                         player:AddItem(41027, 1)
  95.                         player:AddItem(41038, 1)
  96.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  97.                         player:GossipComplete()
  98.         elseif(player:HasItem(56807) == false) then
  99.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  100.              player:GossipComplete()
  101.          end
  102. elseif(intid == 60)then
  103.         player:GossipComplete()
  104.         end
  105.  
  106. if (intid == 23)then
  107.         if(player:HasItem(56807))then
  108.                         player:RemoveItem(56807, 5)
  109.                         player:AddItem(41859, 1)
  110.                         player:AddItem(41874, 1)
  111.                         player:AddItem(41854, 1)
  112.                         player:AddItem(41864, 1)
  113.                         player:AddItem(41869, 1)
  114.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  115.                         player:GossipComplete()
  116.         elseif(player:HasItem(56807) == false) then
  117.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  118.              player:GossipComplete()
  119.          end
  120. elseif(intid == 60)then
  121.         player:GossipComplete()
  122.         end
  123.  
  124. if (intid == 24)then
  125.         if(player:HasItem(56807))then
  126.                         player:RemoveItem(56807, 5)
  127.                         player:AddItem(40907, 1)
  128.                         player:AddItem(40927, 1)
  129.                         player:AddItem(40933, 1)
  130.                         player:AddItem(40939, 1)
  131.                         player:AddItem(40963, 1)
  132.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  133.                         player:GossipComplete()
  134.         elseif(player:HasItem(56807) == false) then
  135.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  136.              player:GossipComplete()
  137.          end
  138. elseif(intid == 60)then
  139.         player:GossipComplete()
  140.         end
  141.  
  142. if (intid == 25)then
  143.         if(player:HasItem(56807))then
  144.                         player:RemoveItem(56807, 5)
  145.                         player:AddItem(41293, 1)
  146.                         player:AddItem(41327, 1)
  147.                         player:AddItem(41304, 1)
  148.                         player:AddItem(41281, 1)
  149.                         player:AddItem(41316, 1)
  150.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  151.                         player:GossipComplete()
  152.         elseif(player:HasItem(56807) == false) then
  153.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  154.              player:GossipComplete()
  155.          end
  156. elseif(intid == 60)then
  157.         player:GossipComplete()
  158.         end
  159.  
  160. if (intid == 26)then
  161.         if(player:HasItem(56807))then
  162.                         player:RemoveItem(56807, 5)
  163.                         player:AddItem(41953, 1)
  164.                         player:AddItem(41971, 1)
  165.                         player:AddItem(41946, 1)
  166.                         player:AddItem(41959, 1)
  167.                         player:AddItem(41965, 1)
  168.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  169.                         player:GossipComplete()
  170.         elseif(player:HasItem(56807) == false) then
  171.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  172.              player:GossipComplete()
  173.          end
  174. elseif(intid == 60)then
  175.         player:GossipComplete()
  176.         end
  177.  
  178. if (intid == 27)then
  179.         if(player:HasItem(56807))then
  180.                         player:RemoveItem(56807, 5)
  181.                         player:AddItem(40787, 1)
  182.                         player:AddItem(40809, 1)
  183.                         player:AddItem(40827, 1)
  184.                         player:AddItem(40848, 1)
  185.                         player:AddItem(40868, 1)
  186.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  187.                         player:GossipComplete()
  188.         elseif(player:HasItem(56807) == false) then
  189.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  190.              player:GossipComplete()
  191.          end
  192. elseif(intid == 60)then
  193.         player:GossipComplete()
  194.         end
  195.  
  196. if (intid == 28)then
  197.         if(player:HasItem(56807))then
  198.                         player:RemoveItem(56807, 5)
  199.                         player:AddItem(41087, 1)
  200.                         player:AddItem(41143, 1)
  201.                         player:AddItem(41157 , 1)
  202.                         player:AddItem(41205, 1)
  203.                         player:AddItem(41217, 1)
  204.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  205.                         player:GossipComplete()
  206.         elseif(player:HasItem(56807) == false) then
  207.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  208.              player:GossipComplete()
  209.          end
  210. elseif(intid == 60)then
  211.         player:GossipComplete()
  212.         end
  213.  
  214. if (intid == 29)then
  215.         if(player:HasItem(56807))then
  216.                         player:RemoveItem(56807, 5)
  217.                         player:AddItem(41998, 1)
  218.                         player:AddItem(42017, 1)
  219.                         player:AddItem(41993, 1)
  220.                         player:AddItem(42005, 1)
  221.                         player:AddItem(42011, 1)
  222.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  223.                         player:GossipComplete()
  224.         elseif(player:HasItem(56807) == false) then
  225.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  226.              player:GossipComplete()
  227.          end
  228. elseif(intid == 60)then
  229.         player:GossipComplete()
  230.         end
  231.        
  232. if (intid == 30)then
  233.         if(player:HasItem(56807))then
  234.                         player:RemoveItem(56807, 5)
  235.                         player:AddItem(41650, 1)
  236.                         player:AddItem(41767, 1)
  237.                         player:AddItem(41672, 1)
  238.                         player:AddItem(41655, 1)
  239.                         player:AddItem(41683, 1)
  240.                         player:SendBroadcastMessage("Has Recivido Tu Set")
  241.                         player:GossipComplete()
  242.         elseif(player:HasItem(56807) == false) then
  243.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  244.              player:GossipComplete()
  245.          end
  246. elseif(intid == 60)then
  247.         player:GossipComplete()
  248.         end
  249. --------- Max Eskill
  250. if (intid == 52)then
  251.         if(player:HasItem(56807))then
  252.                         player:RemoveItem(56807, 5)
  253.                         player:LearnSpell(33388)
  254.                         player:LearnSpell(33391)
  255.                         player:LearnSpell(34090)
  256.                         player:LearnSpell(34091)
  257.                         player:LearnSpell(90265)
  258.                         player:LearnSpell(54197)
  259.                         player:SendBroadcastMessage("Has Recivido Las Equitaciones")
  260.                         player:GossipComplete()
  261.         elseif(player:HasItem(56807) == false) then
  262.              player:SendBroadcastMessage("No tienes Suficientes Creditos")
  263.              player:GossipComplete()
  264.          end
  265. elseif(intid == 60)then
  266.         player:GossipComplete()
  267.         end
  268. --max skill weapons
  269.  
  270. if (intid == 53) then
  271. player:AdvanceAllSkills(450)
  272. player:SendBroadcastMessage("Tus Skill de armas estan Al Maximo!")
  273. player:GossipComplete()
  274. end
  275. --- Telestranportarse
  276. if ( intid == 54) then
  277. player:GossipMenuAddItem(0, "Dalaran", 0 , 500)
  278. player:GossipMenuAddItem(0, "Salir", 0 , 55)
  279. player:GossipSendMenu(1, unit)
  280. end
  281.  
  282. if (intid == 500) then
  283. player:Teleport(571, 5804.149902, 624.770996, 647.768066, 1.640000) --  map , x , y , z , o
  284. player:SendBroadcastMessage("Bienvenido Dalaran")
  285. player:GossipComplete()
  286. end
  287. ---------- salir
  288.  
  289. if (intid == 55) then
  290. player:GossipComplete()
  291. end
  292. end
  293.  
  294. RegisterCreatureGossipEvent(NpcEntry, 1, Migraciones_Gossip)
  295. RegisterCreatureGossipEvent(NpcEntry, 2, Migraciones_Events)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement