Untitled

--[[ Pocket Town GM]]
--[[ Made by Kzan, and Remus.
 First released at www.ac-web.org
]]
--[[ As part of the GM Version everything spawned is spawned forever unless deleted.
]]

local ItemID = ItemID Here -- Your desired item's EntryID here.

local GM = player:IsGM()

local Combat = player:IsInCombat()

function Item_OnClick(Unit, event, player)
        if (GM == true) and if(Combat == false) then
                Player:SendBroadCastMessage(6, 0, "Welcome to the Pocket Town Control Panel")
        Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(3, "Horde", 100)
                Item:MenuAddItem(3, "Allaince", 200)
                Item:GossipSendMenu()
                end

                else

                Player:SendBroadCastMessage(6, 0, "You are not a GM, or your in combat.")
                Item:GossipComplete()
                end
end


function Item_OnSelect(Unit, event, player)
       local PlyrX = player:GetX()
           local PlyrY = player:GetY()
           local PlyrZ = player:GetZ()
           local PlyrO = player:GetO()

        if(intid == 100) then
                Player:SendBroadCastMessage(6, 0, "You have selected the Horde menu")
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "InKeepers", 101)
                Item:MenuAddItem(4, "Merchants", 102)
                Item:MenuAddItem(4, "Objects", 103)
                Item:MenuAddItem(4, "TownsPeople", 104)
                end

        if(intid == 101) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "Orc Inkeeper Male", 110)
                Item:MenuAddItem(4, "Orc Inkeeper Female", 111)
                Item:MenuAddItem(4, "Undead Inkeeper Male", 112)
                Item:MenuAddItem(4, "Undead Inkeeper Female", 113)
                Item:MenuAddItem(4, "Tauren Inkeeper Male", 114)
                Item:MenuAddItem(4, "Tauren Inkeeper Female", 115)
        Item:MenuAddItem(4, "BloodElf Inkeeper Male", 116)
                Item:MenuAddItem(4, "BloodElf Inkeeper Female", 117)
                Item:MenuAddItem(4, "Troll Inkeeper Male", 118)
                Item:MenuAddItem(4, "Troll Inkeeper Female", 119)
                Item:GossipSendMenu()
                end

        elseif(intid == 200) then
                Player:SendBroadCastMessage(6, 0, "You have selected the Alliance menu")
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "InKeepers", 201)
                Item:MenuAddItem(4, "Merchants", 202)
                Item:MenuAddItem(4, "Objects", 203)
                Item:MenuAddItem(4, "TownsPeople", 204)
                Item:GossipSendMenu()

                if(intid == 201) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "Human Inkeeper Male", 210)
                Item:MenuAddItem(4, "Human Inkeeper Female", 211)
                Item:MenuAddItem(4, "NightElf Inkeeper Male", 212)
                Item:MenuAddItem(4, "NightElf Inkeeper Female", 213)
                Item:MenuAddItem(4, "Dwarf Inkeeper Male", 214)
                Item:MenuAddItem(4, "Dwarf Inkeeper Female", 215)
                Item:MenuAddItem(4, "Draenei Inkeeper Male", 216)
                Item:MenuAddItem(4, "Draenei Inkeeper Female", 217)
                Item:MenuAddItem(4, "Gnome Inkeeper Male", 218)
                Item:MenuAddItem(4, "Gnome Inkeeper Female", 219)
                Item:GossipSendMenu()
                end

                if(intid == 110) then
            player:SpawnCreature(9356, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Orc M
                end

                if(intid == 111) then
                player:SpawnCreature(6929, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Orc F
                end

                if(intid == 112) then
                player:SpawnCreature(6739, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Undead M
                end

                if(intid == 113) then
                Player:SpawnCreature(5688, Plyrx, PlyrY, PlyrZ, PlyrO, 34, 0) -- Undead F
                end

                if(intid == 114) then
                Player:SpawnCreature(6747, Plyrx, PlyrY, PlyrZ, PlyrO, 34, 0) -- Tauren M
                end

                if(intid == 115) then
                Player:SpawnCreature(26709, Plyrx, PlyrY, PlyrZ, PlyrO, 34, 0) -- Tauren F
                end

                if(intid == 116) then
                Player:SpawnCreature(16542, Plyrx, PlyrY, PlyrZ, PlyrO, 34, 0) -- BE M
                end

                if(intid == 117) then
                Player:SpawnCreature(16618, Plyrx, PlyrY, PlyrZ, PlyrO, 34, 0) -- BE F
                end

                if(intid == 118) then
                Player:SpawnCreature(18245, Plyrx, PlyrY, PlyrZ, PlyrO, 34, 0) -- Troll M
                end

                if(intid == 119) then
                Player:SpawnCreature(ID, Plyrx, PlyrY, PlyrZ, PlyrO, 34, 0) -- Troll F needs to be customly made.
                end

                --[[ End of Horde Inkeepers]]--
                --[[ Start of allaince inkeepers]]--

                if(intid == 210) then
            player:SpawnCreature(295, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Human M
                end

                if(intid == 211) then
            player:SpawnCreature(6740, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Human F
                end

                if(intid == 212) then
            player:SpawnCreature(6736, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- NightElf M
                end

                if(intid == 213) then
            player:SpawnCreature(6737, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- NightElf F
                end

                if(intid == 214) then
            player:SpawnCreature(6734, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Dwarf M
                end

                if(intid == 215) then
            player:SpawnCreature(29926, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Dwarf F
                end

                if(intid == 216) then
            player:SpawnCreature(17553, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Dreanei M
                end

                if(intid == 217) then
            player:SpawnCreature(16553, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Dreanei F
                end

                if(intid == 218) then
            player:SpawnCreature(21110, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Gnome M
                end

                if(intid == 219) then
            player:SpawnCreature(26596, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0) -- Gnome F
                end

                --[[Merchants]]--

                if(intid == 102) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "Horde", 300)
                Item:MenuAddItem(4, "Allaince", 301)
                Item:GossipSendMenu()
                end

                if(intid == 300) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "Repair Merchant", 350)
                Item:MenuAddItem(4, "Normal Vendor", 351)
                Item:GossipSendMenu()
                end

                if(intid == 301) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "Repair Merchant", 450)
                Item:MenuAddItem(4, "Normal Vendor", 451)
                Item:GossipSendMenu()
                end

                if(intid == 350) then
            player:SpawnCreature(24347, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end

                if(intid == 351) then
            player:SpawnCreature(26567, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end

                if(intid == 450) then
            player:SpawnCreature(23735, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end

                if(intid == 451) then
            player:SpawnCreature(4191, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end

                if(intid == 103) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "Horde", 360)
                Item:MenuAddItem(4, "Allaince", 460)
                Item:GossipSendMenu()
                end

                if(intid == 360) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "Chair", 361)
                Item:MenuAddItem(4, "Mailbox", 362)
                Item:MenuAddItem(4, "Table", 363)
                Item:GossipSendMenu()
                end

                if(intid == 460) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "Chair", 461)
                Item:MenuAddItem(4, "MailBox", 462)
                Item:MenuAddItem(4, "Table", 463)
                Item:GossipSendMenu()
                end

                if(intid == 361) then
                player:SpawnGameObject(182851, PlyrX, PlyrY, PlyrZ, PlyrO, 0, 1)
                end

                if(intid == 362) then
                player:SpawnGameObject(182356, PlyrX, PlyrY, PlyrZ, PlyrO, 0, 1)
                end

                if(intid == 363) then
                player:SpawnGameObject(182075, PlyrX, PlyrY, PlyrZ, PlyrO, 0, 1)
                end

                if(intid == 461) then
                player:SpawnGameObject(170473, PlyrX, PlyrY, PlyrZ, PlyrO, 0, 1)
                end

                if(intid == 462) then
                player:SpawnGameObject(171556, PlyrX, PlyrY, PlyrZ, PlyrO, 0, 1)
                end

                if(intid == 463) then
                player:SpawnGameObject(180884, PlyrX, PlyrY, PlyrZ, PlyrO, 0, 1)
                end

                if(intid == 104) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "Horde", 560)
                Item:MenuAddItem(4, "Allaince", 660)
                Item:GossipSendMenu()
                end

                if(intid == 560) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "TownsPeople 1", 561)
                Item:MenuAddItem(4, "TownsPeople 2", 562)
                Item:MenuAddItem(4, "TownsPeople 3", 563)
                Item:MenuAddItem(4, "TownsPeople 4", 564)
                Item:GossipSendMenu()
                end

                if(intid == 660) then
                Item:GossipCreateMenu(100, player, 0)
                Item:MenuAddItem(4, "TownsPeople 1", 661)
                Item:MenuAddItem(4, "TownsPeople 2", 662)
                Item:MenuAddItem(4, "TownsPeople 3", 663)
                Item:MenuAddItem(4, "TownsPeople 4", 664)
                Item:GossipSendMenu()
                end


                if(intid == 561) then
                player:SpawnCreature(24347, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end

            if(intid == 562) then
                player:SpawnCreature(19383, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end


            if(intid == 563) then
                player:SpawnCreature(26567, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end

                if(intid == 564) then
                player:SpawnCreature(30239, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end


                --[[Alliance]]--

            if(intid == 661) then
                player:SpawnCreature(25737, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end

            if(intid == 662) then
                player:SpawnCreature(11609, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end


            if(intid == 663) then
                player:SpawnCreature(18003, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end

                if(intid == 664) then
                player:SpawnCreature(16796, PlyrX, PlyrY, PlyrZ, PlyrO, 34, 0)
                end
end

RegisterUnitEvent(ItemID, 1, "Item_OnClick")
RegisterUnitEvent(ItemID, 2, "Item_OnSelect")