My Pastes
Public Pastes
Layout Width
Share Pastebin
Guest
Public paste!

Untitled

By: a guest | Mar 16th, 2010 | Syntax: Lua | Size: 7.54 KB | Hits: 49 | Expires: Never
Download | Raw | Embed | Report abuse
This paste has a previous version, view the difference. Copy text to clipboard
  1. --[[ Pocket Town
  2.  Made by Kzan, and Remus.
  3.  First released at www.ac-web.org
  4.  Each thing spawned useing this only lasts 2 minutes then it despawns
  5.  
  6.  So many functions only cause it keep me organized.
  7. ]]
  8. local ItemID = ItemID Here -- Your desired item's EntryID here.
  9.  
  10. local race = :GetPlayerRace()
  11.  
  12. function Item_OnClick(pUnit, event, player)
  13.         if race == 1, race == 3, race == 4, race == 7, race == 11 then -- Horde
  14.                 Item:GossipCreateMenu(100, player, 0)
  15.                 Item:MenuAddItem(4, "Inkeepers", 1)
  16.                 Item:MenuAddItem(4, "Merchants", 3)
  17.                 Item:MenuAddItem(4, "TownsPeople", 4)
  18.                 Item:MenuAddItem(4, "Done", 5)
  19.                
  20.                 else
  21.                
  22.                 if race == 2, race == 5, race == 6, race == 8, race == 9, race == 10 then -- Allaince
  23.                 Item:GossipCreateMenu(100, player, 0)
  24.                 Item:MenuAddItem(4, "Inkeepers", 6)
  25.                 Item:MenuAddItem(4, "Merchants", 8)
  26.                 Item:MenuAddItem(4, "TownsPeople", 9)
  27.                 Item:MenuAddItem(4, "Done", 5)
  28.                 Item:GossipSendMenu()
  29.         end
  30.                 end
  31. end
  32.  
  33. function Item_OnSelect(pUnit, event, player) -- Horde
  34.         if(intid == 1) then
  35.                 Item:GossipCreateMenu(100, player, 0)
  36.                 Item:MenuAddItem(4, "Inkeeper 1", 200)
  37.                 Item:MenuAddItem(4, "Inkeeper 2", 201)
  38.                 Item:MenuAddItem(4, "Inkeeper 3", 202)
  39.                 Item:MenuAddItem(4, "Inkeeper 4", 203)
  40.                 Item:MenuAddItem(4, "Done", 5)
  41.                 Item:GossipSendMenu()
  42.                 else
  43.                
  44.                 if(indid == 6) then
  45.                 Item:GossipCreateMenu(100, player, 0) -- Allaince
  46.                 Item:MenuAddItem(4, "Inkeeper 1", 100)
  47.                 Item:MenuAddItem(4, "Inkeeper 2", 101)
  48.                 Item:MenuAddItem(4, "Inkeeper 3", 102)
  49.                 Item:MenuAddItem(4, "Inkeeper 4", 103)
  50.                 Item:MenuAddItem(4, "Done", 5)
  51.                 Item:GossipSendMenu()
  52.                 end
  53.                 end
  54. end
  55.                
  56. function Item_OnSelectHorde1(pUnit, event, player) -- Horde inkeepers
  57.        local PlyrX = player:GetX()
  58.            local PlyrY = player:GetY()
  59.            local PlyrZ = player:GetZ()
  60.            local PlyrO = player:GetO()
  61.            if(intid == 200) then
  62.            player:SpawnCreature(24208, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  63.            
  64.            else
  65.            
  66.            if(intid == 201) then
  67.            player:SpawnCreature(26680, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  68.            
  69.            else
  70.            
  71.            if(intid == 202) then
  72.            player:SpawnCreature(24149, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  73.            
  74.            else
  75.            
  76.            if(intid == 203) then
  77.            player:SpawnCreature(18957, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  78.            
  79.            elseif (intid == 5) then
  80.            Item:GossipComplete()
  81.     end
  82.    end
  83.   end
  84.  end
  85. end
  86.  
  87. function Item_OnSelectAllaince1(pUnit, Event, player) -- Allaince inkeepers
  88.        local PlyrX = player:GetX()
  89.            local PlyrY = player:GetY()
  90.            local PlyrZ = player:GetZ()
  91.            local PlyrO = player:GetO()
  92.            if(intid == 100) then
  93.            player:SpawnCreature(18251, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  94.            
  95.            else
  96.            
  97.            if(intid == 101) then
  98.            player:SpawnCreature(8931, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  99.            
  100.            else
  101.            
  102.            if(intid == 102) then
  103.            player:SpawnCreature(6790, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  104.            
  105.            else
  106.            
  107.            if(intid == 103) then
  108.            player:SpawnCreature(11103, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  109.            
  110.            elseif (intid == 5) then
  111.            Item:GossipComplete()
  112.            end
  113.           end
  114.          end
  115.         end
  116. end
  117.  
  118. function Item_OnSelectHorde2(pUnit, event, player) -- Horde Merchants list
  119.        local PlyrX = player:GetX()
  120.            local PlyrY = player:GetY()
  121.            local PlyrZ = player:GetZ()
  122.            local PlyrO = player:GetO()
  123.            if(intid == 3) then
  124.             Item:GossipCreateMenu(100, player, 0)
  125.             Item:MenuAddItem(4, "Merchant 1", 204)
  126.             Item:MenuAddItem(4, "Merchant 2", 205)
  127.                 Item:MenuAddItem(4, "Merchant 3", 206)
  128.                 Item:MenuAddItem(4, "Merchant 4", 207)
  129.                 Item:MenuAddItem(4, "Done", 5)
  130.                 Item:GossipSendMenu()
  131.                 end
  132. end
  133.  
  134.  
  135. function Item_OnSelectAllaince2(pUnit, event, player) -- Allaince Merchants list
  136.        local PlyrX = player:GetX()
  137.            local PlyrY = player:GetY()
  138.            local PlyrZ = player:GetZ()
  139.            local PlyrO = player:GetO()
  140.            if(intid == 8) then
  141.             Item:GossipCreateMenu(100, player, 0)
  142.             Item:MenuAddItem(4, "Merchant 1", 104)
  143.                 Item:MenuAddItem(4, "Merchant 2", 105)
  144.                 Item:MenuAddItem(4, "Merchant 3", 106)
  145.                 Item:MenuAddItem(4, "Merchant 4", 107)
  146.                 Item:MenuAddItem(4, "Done", 5)
  147.                 Item:GossipSendMenu()
  148.       end
  149. end
  150.  
  151. function Item_OnSelectHorde3(pUnit, event, player)
  152.         if(intid == 204) then
  153.                 player:SpawnCreature(24347, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  154.                
  155.                 elseif(intid == 205) then
  156.                 player:SpawnCreature(19383, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  157.                
  158.                 elseif(intid == 206) then
  159.                 player:SpawnCreature(26567, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  160.                
  161.                 elseif(intid == 207) then
  162.                 player:SpawnCreature(30239, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  163.                
  164.                 elseif(intid == 5) then
  165.                 Item:GossipComplete()
  166.                 end
  167. end
  168.  
  169. function Item_OnSelectAllaince3(pUnit, event, player)
  170.        local PlyrX = player:GetX()
  171.            local PlyrY = player:GetY()
  172.            local PlyrZ = player:GetZ()
  173.            local PlyrO = player:GetO()
  174.         if(intid == 104) then
  175.                 player:SpawnCreature(17246, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  176.                
  177.                 elseif(intid == 105) then
  178.                 player:SpawnCreature(4191, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  179.                
  180.                 elseif(intid == 106) then
  181.                 player:SpawnCreature(29923, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  182.                
  183.                 elseif(intid == 107) then
  184.                 player:SpawnCreature(225, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  185.                
  186.                 elseif(intid == 5) then
  187.                 Item:GossipComplete()
  188.                 end
  189. end
  190.  
  191. function Item_OnSelectHorde4(pUnit, event, player)
  192.            if(intid == 4) then
  193.             Item:GossipCreateMenu(100, player, 0)
  194.             Item:MenuAddItem(4, "Towns Person 1", 208)
  195.             Item:MenuAddItem(4, "Towns Person 2", 209)
  196.                 Item:MenuAddItem(4, "Towns Person 3", 210)
  197.                 Item:MenuAddItem(4, "Towns Person 4", 211)
  198.                 Item:MenuAddItem(4, "Done", 5)
  199.           end
  200. end
  201.  
  202. function Item_OnSelectAllaince4(pUnit, event, player)
  203.         if(intid == 9) then
  204.                 Item:GossipCreateMenu(100, player, 0)
  205.             Item:MenuAddItem(4, "Towns Person 1", 108)
  206.             Item:MenuAddItem(4, "Towns Person 2", 109)
  207.                 Item:MenuAddItem(4, "Towns Person 3", 110)
  208.                 Item:MenuAddItem(4, "Towns Person 4", 111)
  209.                 Item:MenuAddItem(4, "Done", 5)
  210.                 end
  211. end
  212.  
  213. function Item_OnSelectHorde5(pUnit, event, player) -- Horde townspeople
  214.        local PlyrX = player:GetX()
  215.            local PlyrY = player:GetY()
  216.            local PlyrZ = player:GetZ()
  217.            local PlyrO = player:GetO()
  218.       if(intid == 208) then
  219.           player:SpawnCreature(17100, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  220.          
  221.           elseif(intid == 209) then
  222.           player:SpawnCreature(31430, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  223.          
  224.           elseif(intid == 210) then
  225.           player:SpawnCreature(18744, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  226.          
  227.           elseif(intid == 211) then
  228.           player:SpawnCreature(15683, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  229.          
  230.           elseif(intid == 5) then
  231.                 Item:GossipComplete()
  232.           end
  233. end
  234.  
  235. function Item_OnSelectAllaince5(pUnit, event, player)
  236.        local PlyrX = player:GetX()
  237.            local PlyrY = player:GetY()
  238.            local PlyrZ = player:GetZ()
  239.            local PlyrO = player:GetO()
  240.            if(intid == 108) then
  241.            player:SpawnCreature(1478, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  242.            
  243.            elseif(intid == 109) then
  244.            player:SpawnCreature(1370, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  245.            
  246.            elseif(intid == 110) then
  247.            player:SpawnCreature(4959, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  248.            
  249.            elseif(intid == 111) then
  250.            player:SpawnCreature(11219, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 200000)
  251.            
  252.            elseif(intid == 5) then
  253.                 Item:GossipComplete()
  254.           end
  255. end
  256.  
  257.  
  258. RegisterUnitGossipEvent(ItemID, 1, "Item_OnClick")
  259. RegisterUnitGossipEvent(ItemID, 2, "Item_OnSelect")
create new paste | create new version of this paste RAW Paste Data