Untitled

--[[ Massive Rock v1.3
 Made by RemusRowle

 Thanks to Kzan for Guild Options!

 What the Rock does
 1.Gives you health potions.
 2.Gives you mana potions.
 3.Sets your home anywhere you want.
 4.Removes res sickness.
 ****Stuff Below added in 1.2****
 5.Sets Your Level.
 6.Set Health/MaxHealth.
 7.Set Mana/Max Mana.
 8.Trains you.
 9. Changes your Gender
 10.Several guild options.
 ****Stuff Below added in 1.3****
 11. Sets your scale.
 12. Plays music!
 13. Removes any auras you might have on.
 14. Changes display id randomly.
 15. Increases RunSpeed
 16. Summons a Repair merchant based on race.
]]--

local ItemRockID = EntryID Here

function Rock_OnClick(Item, Event, player)
         if (player:IsInCombat() == true) then
                        player:SendBroadCastMessage("You can't use this while in combat")
                else

                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "Health", 5, 0)
                                item:GossipMenuAddItem(4, "Mana", 6, 0)
                                item:GossipMenuAddItem(3, "Set Home here", 7, 0)
                                item:GossipMenuAddItem(2, "Remove Sickness", 8, 0)
                                item:GossipMenuAddItem(4, "Set My Level", 9, 0)
                                item:GossipMenuAddItem(4, "Set My Health", 10, 0)
                                item:GossipMenuAddItem(4, "Set My Max Health", 11, 0)
                                item:GossipMenuAddItem(4, "Set My Mana", 12, 0)
                                item:GossipMenuAddItem(4, "Set My Max Mana", 13, 0)
                                item:GossipMenuAddItem(4, "My Trainer", 14, 0)
                                item:GossipMenuAddItem(4, "Gender Change", 15, 0)
                                item:GossipMenuAddItem(4, "My Guild", 16, 0)
                                item:GossipMenuAddItem(4, "Set Scale", 17, 0)
                                item:GossipMenuAddItem(4, "For The Horde!", 18, 0)
                                item:GossipMenuAddItem(4, "Remove ALL Auras", 19, 0)
                                item:GossipMenuAddItem(4, "Change Display", 20, 0)
                                item:GossipMenuAddItem(4, "Increase RunSpeed", 21, 0)
                                item:GossipMenuAddItem(4, "Repair Merchant", 22, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
            end
end

function Rock_OnSelect(item, event, player, id, intid, code)
local race  = :GetPlayerRace()
Choice=math.random(1,5)

        if(intid == 5) then
                  player:AddItem(3928, 5)
                  player:SendBroadCastMessage("You have recieved 5 Superior Healing potions!")
                  item:GossipComplete(player)
                end

                if(intid == 6) then
            player:AddItem(43530, 5)
            player:SendBroadCastMessage("You have recieved 5 Argent Mana Potions")
                item:GossipComplete(player)
                end

                if(intid == 7) then
                    local PlyrX = player:GetX()
                        local PlyrY = player:GetY()
                        local PlyrZ = player:GetZ()
                        local PlyrMapID = player:GetMapID()
                        local PlyrAreaID = player:GetAreaID()
                player:SetBindPoint(PlyrX, PlyrY, PlyrZ, PlyrMapID, PlyrAreaID)
                end

                if(intid == 8) then
                if (player:HasAura(15007) == true) then
                                player:SendBroadcastMessage("Careful, you might hurt yourself")
                                        player:RemoveAura(15007)
                                        player:GossipComplete()
                        else
                                player:SendBroadCastMessage("You don't appear to be sickened")
                                        player:GossipComplete()
                end
        end

        if(intid == 9) then
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "1-20", 100, 0)
                                item:GossipMenuAddItem(4, "20-40", 101, 0)
                                item:GossipMenuAddItem(3, "40-60", 102, 0)
                                item:GossipMenuAddItem(2, "60-79", 103, 0)
                                item:GossipMenuAddItem(4, "80", 104, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
                end

                if(intid == 100) then
         item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "1", 201, 0)
                                item:GossipMenuAddItem(4, "2", 202, 0)
                                item:GossipMenuAddItem(3, "3", 203, 0)
                                item:GossipMenuAddItem(2, "4", 204, 0)
                                item:GossipMenuAddItem(4, "5", 205, 0)
                                item:GossipMenuAddItem(4, "6", 206, 0)
                                item:GossipMenuAddItem(3, "7", 207, 0)
                                item:GossipMenuAddItem(2, "8", 208, 0)
                                item:GossipMenuAddItem(4, "9", 209, 0)
                                item:GossipMenuAddItem(4, "10", 210, 0)
                                item:GossipMenuAddItem(4, "11", 211, 0)
                                item:GossipMenuAddItem(3, "12", 212, 0)
                                item:GossipMenuAddItem(2, "13", 213, 0)
                                item:GossipMenuAddItem(4, "14", 214, 0)
                                item:GossipMenuAddItem(4, "15", 215, 0)
                                item:GossipMenuAddItem(3, "16", 216, 0)
                                item:GossipMenuAddItem(2, "17", 217, 0)
                                item:GossipMenuAddItem(4, "18", 218, 0)
                                item:GossipMenuAddItem(2, "19", 219, 0)
                                item:GossipMenuAddItem(4, "20", 220, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
            end

                        if(intid == 101) then
         item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "21", 221, 0)
                                item:GossipMenuAddItem(4, "22", 222, 0)
                                item:GossipMenuAddItem(3, "23", 223, 0)
                                item:GossipMenuAddItem(2, "24", 224, 0)
                                item:GossipMenuAddItem(4, "25", 225, 0)
                                item:GossipMenuAddItem(4, "26", 226, 0)
                                item:GossipMenuAddItem(3, "27", 227, 0)
                                item:GossipMenuAddItem(2, "28", 228, 0)
                                item:GossipMenuAddItem(4, "29", 229, 0)
                                item:GossipMenuAddItem(4, "30", 230, 0)
                                item:GossipMenuAddItem(4, "31", 231, 0)
                                item:GossipMenuAddItem(3, "32", 232, 0)
                                item:GossipMenuAddItem(2, "33", 233, 0)
                                item:GossipMenuAddItem(4, "34", 234, 0)
                                item:GossipMenuAddItem(4, "35", 235, 0)
                                item:GossipMenuAddItem(3, "36", 236, 0)
                                item:GossipMenuAddItem(2, "37", 237, 0)
                                item:GossipMenuAddItem(4, "38", 238, 0)
                                item:GossipMenuAddItem(2, "39", 239, 0)
                                item:GossipMenuAddItem(4, "40", 240, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
            end

                        if(intid == 102) then
         item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "41", 241, 0)
                                item:GossipMenuAddItem(4, "42", 242, 0)
                                item:GossipMenuAddItem(3, "43", 243, 0)
                                item:GossipMenuAddItem(2, "44", 244, 0)
                                item:GossipMenuAddItem(4, "45", 245, 0)
                                item:GossipMenuAddItem(4, "46", 246, 0)
                                item:GossipMenuAddItem(3, "47", 247, 0)
                                item:GossipMenuAddItem(2, "48", 248, 0)
                                item:GossipMenuAddItem(4, "49", 249, 0)
                                item:GossipMenuAddItem(4, "50", 250, 0)
                                item:GossipMenuAddItem(4, "51", 251, 0)
                                item:GossipMenuAddItem(3, "52", 252, 0)
                                item:GossipMenuAddItem(2, "53", 253, 0)
                                item:GossipMenuAddItem(4, "54", 254, 0)
                                item:GossipMenuAddItem(4, "55", 255, 0)
                                item:GossipMenuAddItem(3, "56", 256, 0)
                                item:GossipMenuAddItem(2, "57", 257, 0)
                                item:GossipMenuAddItem(4, "58", 258, 0)
                                item:GossipMenuAddItem(2, "59", 259, 0)
                                item:GossipMenuAddItem(4, "60", 260, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
            end

                if(intid == 103) then
         item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "61", 261, 0)
                                item:GossipMenuAddItem(4, "62", 262, 0)
                                item:GossipMenuAddItem(3, "63", 263, 0)
                                item:GossipMenuAddItem(2, "64", 264, 0)
                                item:GossipMenuAddItem(4, "65", 265, 0)
                                item:GossipMenuAddItem(4, "66", 266, 0)
                                item:GossipMenuAddItem(3, "67", 267, 0)
                                item:GossipMenuAddItem(2, "68", 268, 0)
                                item:GossipMenuAddItem(4, "69", 269, 0)
                                item:GossipMenuAddItem(4, "70", 270, 0)
                                item:GossipMenuAddItem(4, "71", 271, 0)
                                item:GossipMenuAddItem(3, "72", 272, 0)
                                item:GossipMenuAddItem(2, "73", 273, 0)
                                item:GossipMenuAddItem(4, "74", 274, 0)
                                item:GossipMenuAddItem(4, "75", 275, 0)
                                item:GossipMenuAddItem(3, "76", 276, 0)
                                item:GossipMenuAddItem(2, "77", 277, 0)
                                item:GossipMenuAddItem(4, "78", 278, 0)
                                item:GossipMenuAddItem(2, "79", 279, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
            end

                if(intid == 104) then
                item:GossipCreateMenu(1, player, 0)
                     item:GossipMenuAddItem(4, "80", 280, 0)
                         item:GossipMenuAddItem(4, "Done", 999, 0)
                         item:GossipSendMenu(player)
                end

                if(intid == 201) then
                player:SetLevel(1)
                end

                if(intid == 202) then
                player:SetLevel(2)
                end

                if(intid == 203) then
                player:SetLevel(3)
                end

                if(intid == 204) then
                player:SetLevel(4)
                end

                if(intid == 205) then
                player:SetLevel(5)
                end

                if(intid == 206) then
                player:SetLevel(6)
                end

                if(intid == 207) then
                player:SetLevel(7)
                end

                if(intid == 208) then
                player:SetLevel(8)
                end

                if(intid == 209) then
                player:SetLevel(9)
                end

                if(intid == 210) then
                player:SetLevel(10)
                end

                if(intid == 211) then
                player:SetLevel(11)
                end

                if(intid == 212) then
                player:SetLevel(12)
                end

                if(intid == 213) then
                player:SetLevel(13)
                end

                if(intid == 214) then
                player:SetLevel(14)
                end

                if(intid == 215) then
                player:SetLevel(15)
                end

                if(intid == 216) then
                player:SetLevel(16)
                end

                if(intid == 217) then
                player:SetLevel(17)
                end

                if(intid == 218) then
                player:SetLevel(18)
                end

                if(intid == 219) then
                player:SetLevel(19)
                end

                if(intid == 220) then
                player:SetLevel(20)
                end

                if(intid == 221) then
                player:SetLevel(21)
                end

                if(intid == 222) then
                player:SetLevel(22)
                end

                if(intid == 223) then
                player:SetLevel(23)
                end

                if(intid == 224) then
                player:SetLevel(24)
                end

                if(intid == 225) then
                player:SetLevel(25)
                end

                if(intid == 226) then
                player:SetLevel(26)
                end

                if(intid == 227) then
                player:SetLevel(27)
                end

                if(intid == 228) then
                player:SetLevel(28)
                end

                if(intid == 229) then
                player:SetLevel(29)
                end

                if(intid == 230) then
                player:SetLevel(30)
                end

                if(intid == 231) then
                player:SetLevel(31)
                end

                if(intid == 232) then
                player:SetLevel(32)
                end

                if(intid == 233) then
                player:SetLevel(33)
                end

                if(intid == 234) then
                player:SetLevel(34)
                end

                if(intid == 235) then
                player:SetLevel(35)
                end

                if(intid == 236) then
                player:SetLevel(36)
                end

                if(intid == 237) then
                player:SetLevel(37)
                end

                if(intid == 238) then
                player:SetLevel(38)
                end

                if(intid == 239) then
                player:SetLevel(39)
                end

                if(intid == 240) then
                player:SetLevel(40)
                end

                if(intid == 241) then
                player:SetLevel(41)
                end

                if(intid == 242) then
                player:SetLevel(42)
                end

                if(intid == 243) then
                player:SetLevel(43)
                end

                if(intid == 244) then
                player:SetLevel(44)
                end

                if(intid == 245) then
                player:SetLevel(45)
                end

                if(intid == 246) then
                player:SetLevel(46)
                end

                if(intid == 247) then
                player:SetLevel(47)
                end

                if(intid == 248) then
                player:SetLevel(48)
                end

                if(intid == 249) then
                player:SetLevel(49)
                end

                if(intid == 250) then
                player:SetLevel(50)
                end

                if(intid == 251) then
                player:SetLevel(51)
                end

                if(intid == 252) then
                player:SetLevel(52)
                end

                if(intid == 253) then
                player:SetLevel(53)
                end

                if(intid == 254) then
                player:SetLevel(54)
                end

                if(intid == 255) then
                player:SetLevel(55)
                end

                if(intid == 256) then
                player:SetLevel(56)
                end

                if(intid == 257) then
                player:SetLevel(57)
                end

                if(intid == 258) then
                player:SetLevel(58)
                end

                if(intid == 259) then
                player:SetLevel(59)
                end

                if(intid == 260) then
                player:SetLevel(60)
                end

                if(intid == 261) then
                player:SetLevel(61)
                end

                if(intid == 262) then
                player:SetLevel(62)
                end

                if(intid == 263) then
                player:SetLevel(63)
                end

                if(intid == 264) then
                player:SetLevel(64)
                end

            if(intid == 265) then
                player:SetLevel(65)
                end

                if(intid == 266) then
                player:SetLevel(66)
                end

                if(intid == 267) then
                player:SetLevel(67)
                end

                if(intid == 268) then
                player:SetLevel(68)
                end

                if(intid == 269) then
                player:SetLevel(69)
                end

                if(intid == 270) then
                player:SetLevel(70)
                end

                if(intid == 271) then
                player:SetLevel(71)
                end

                if(intid == 272) then
                player:SetLevel(72)
                end

                if(intid == 273) then
                player:SetLevel(73)
                end

                if(intid == 274) then
                player:SetLevel(74)
                end

                if(intid == 275) then
                player:SetLevel(75)
                end

                if(intid == 276) then
                player:SetLevel(76)
                end

                if(intid == 277) then
                player:SetLevel(77)
                end

                if(intid == 278) then
                player:SetLevel(78)
                end

                if(intid == 279) then
                player:SetLevel(79)
                end

                if(intid == 280) then
                player:SetLevel(80)
                end

                if(intid == 10) then
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "1000", 300, 0)
                                item:GossipMenuAddItem(4, "2500", 301, 0)
                                item:GossipMenuAddItem(3, "4000", 302, 0)
                                item:GossipMenuAddItem(2, "6000", 303, 0)
                                item:GossipMenuAddItem(4, "8000", 304, 0)
                                item:GossipMenuAddItem(3, "10000", 305, 0)
                                item:GossipMenuAddItem(2, "12000", 306, 0)
                                item:GossipMenuAddItem(4, "14000", 307, 0)
                                item:GossipMenuAddItem(2, "16000", 308, 0)
                                item:GossipMenuAddItem(4, "18000", 309, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
                end

                if(intid == 11) then
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "1000", 310, 0)
                                item:GossipMenuAddItem(4, "2500", 311, 0)
                                item:GossipMenuAddItem(3, "4000", 312, 0)
                                item:GossipMenuAddItem(2, "6000", 313, 0)
                                item:GossipMenuAddItem(4, "8000", 314, 0)
                                item:GossipMenuAddItem(3, "10000", 315, 0)
                                item:GossipMenuAddItem(2, "12000", 316, 0)
                                item:GossipMenuAddItem(4, "14000", 317, 0)
                                item:GossipMenuAddItem(2, "16000", 318, 0)
                                item:GossipMenuAddItem(4, "18000", 319, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
                end

                if(intid == 300) then
                player:SetHealth(1000)
                end

                if(intid == 301) then
                player:SetHealth(2500)
                end

                if(intid == 302) then
                player:SetHealth(4000)
                end

                if(intid == 303) then
                player:SetHealth(6000)
                end

                if(intid == 304) then
                player:SetHealth(8000)
                end

                if(intid == 305) then
                player:SetHealth(10000)
                end

                if(intid == 306) then
                player:SetHealth(12000)
                end

                if(intid == 307) then
                player:SetHealth(14000)
                end

                if(intid == 308) then
                player:SetHealth(16000)
                end

                if(intid == 309) then
                player:SetHealth(18000)
                end

                if(intid == 310) then
                player:SetMaxHealth(1000)
                end

                if(intid == 311) then
                player:SetMaxHealth(2500)
                end

                if(intid == 312) then
                player:SetMaxHealth(4000)
                end

                if(intid == 313) then
                player:SetMaxHealth(6000)
                end

                if(intid == 314) then
                player:SetMaxHealth(8000)
                end

                if(intid == 315) then
                player:SetMaxHealth(10000)
                end

                if(intid == 316) then
                player:SetMaxHealth(12000)
                end

                if(intid == 317) then
                player:SetMaxHealth(14000)
                end

                if(intid == 318) then
                player:SetMaxHealth(16000)
                end

                if(intid == 319) then
                player:SetMaxHealth(18000)
                end

                if(intid == 12) then
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "1000", 320, 0)
                                item:GossipMenuAddItem(4, "2500", 321, 0)
                                item:GossipMenuAddItem(3, "4000", 322, 0)
                                item:GossipMenuAddItem(2, "6000", 323, 0)
                                item:GossipMenuAddItem(4, "8000", 324, 0)
                                item:GossipMenuAddItem(3, "10000", 325, 0)
                                item:GossipMenuAddItem(2, "12000", 326, 0)
                                item:GossipMenuAddItem(4, "14000", 327, 0)
                                item:GossipMenuAddItem(2, "16000", 328, 0)
                                item:GossipMenuAddItem(4, "18000", 329, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
                end

                if(intid == 13) then
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "1000", 339, 0)
                                item:GossipMenuAddItem(4, "2500", 340, 0)
                                item:GossipMenuAddItem(3, "4000", 341, 0)
                                item:GossipMenuAddItem(2, "6000", 342, 0)
                                item:GossipMenuAddItem(4, "8000", 343, 0)
                                item:GossipMenuAddItem(3, "10000", 344, 0)
                                item:GossipMenuAddItem(2, "12000", 345, 0)
                                item:GossipMenuAddItem(4, "14000", 346, 0)
                                item:GossipMenuAddItem(2, "16000", 347, 0)
                                item:GossipMenuAddItem(4, "18000", 348, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
                end

                if(intid == 320) then
                player:SetMana(1000)
                end

                if(intid == 321) then
                player:SetMana(2500)
                end

                if(intid == 322) then
                player:SetMana(4000)
                end

                if(intid == 323) then
                player:SetMana(6000)
                end

                if(intid == 324) then
                player:SetMana(8000)
                end

                if(intid == 325) then
                player:SetMana(10000)
                end

                if(intid == 326) then
                player:SetMana(12000)
                end

                if(intid == 327) then
                player:SetMana(14000)
                end

                if(intid == 328) then
                player:SetMana(16000)
                end

                if(intid == 329) then
                player:SetMana(18000)
                end

                if(intid == 330) then
                player:SetMaxMana(1000)
                end

                if(intid == 331) then
                player:SetMaxMana(2500)
                end

                if(intid == 332) then
                player:SetMaxMana(4000)
                end

                if(intid == 333) then
                player:SetMaxMana(6000)
                end

                if(intid == 334) then
                player:SetMaxMana(8000)
                end

                if(intid == 335) then
                player:SetMaxMana(10000)
                end

                if(intid == 336) then
                player:SetMaxMana(12000)
                end

                if(intid == 337) then
                player:SetMaxMana(14000)
                end

                if(intid == 338) then
                player:SetMaxMana(16000)
                end

                if(intid == 339) then
                player:SetMaxMana(18000)
                end

                if(intid == 14) then
                playerSendTrainerWindow(unit)
                end

                if(intid == 15) then
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "Male", 1, 0)
                                item:GossipMenuAddItem(4, "Female", 2, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
                end

                if(intid == 1) then
        player:SetGender(0)
        Player:SendBroadCastMessage(6, 0, "Please Relog, Thank You.")
        player:GossipComplete()
        end

                if(intid == 2) then
        player:SetGender(1)
        Player:SendBroadCastMessage(6, 0, "Please Relog, Thank You.")
        player:GossipComplete()
        end

                if(intid == 16) then
                Player:SendBroadCastMessage(6, 0, "Welcome to the Guild options panel!")
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "Who is my Guild leader?", 400, 0)
                                item:GossipMenuAddItem(4, "What guild rank am i?", 401, 0)
                                item:GossipMenuAddItem(4, "How many members do we have?", 402, 0)
                                item:GossipMenuAddItem(4, "Veiw Guild Message of the Day", 403, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
        end

                if(intid == 400) then
            player:GetGuildLeader()
            item:GossipSendMenu(player)
                end

                if(intid == 401) then
            player:GetGuildRank()
            item:GossipSendMenu(player)
        end

                if(intid == 402) then
                player:GetGuildMemberCount()
                item:GossipSendMenu(player)
                end

                if(intid == 403)
                player:GetGuildMotd()
                item:GossipSendMenu(player)
                end

                if(intid == 999) then
                player:GossipComplete()
                end

                if(intid == 17) then
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "Set Scale 1", 500, 0)
                                item:GossipMenuAddItem(4, "Set Scale 2", 501, 0)
                                item:GossipMenuAddItem(4, "Set Scale 3", 502, 0)
                                item:GossipMenuAddItem(4, "Set Scale 4", 503, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
                end

                if(intid == 500) then
                player:SetScale(1)
                end

                if(intid == 501) then
                player:SetScale(2)
                end

                if(intid == 502) then
                player:SetScale(3)
                end

                if(intid == 503) then
                player:SetScale(4)
                end

                if(intid == 18) then
                player:PlaySoundToSet(11803)
                end

                if(intid == 19) then
                player:RemoveAllAuras()
                end

                if(intid == 20) then
                if(choice == 1) then
                player:SetModel(604)

                elseif(choice == 2) then
                player:SetModel(3042)

                elseif(choice == 3) then
                player:SetModel(3597)

                elseif(choice == 4) then
                player:SetModel(616)

                elseif(choice == 5) then
                player:SetModel(11686)
                end

                if(intid == 21) then
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "Set Speed 20", 510, 0)
                                item:GossipMenuAddItem(4, "Set Speed 30", 511, 0)
                                item:GossipMenuAddItem(4, "Set Speed 40", 512, 0)
                                item:GossipMenuAddItem(4, "Return Speed to Normal", 513, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
                end

                if(intid == 510) then
                player:ModifyRunSpeed(20)
                end

                if(intid == 511) then
                player:ModifyRunSpeed(30)
                end

                if(intid == 512) then
                player:ModifyRunSpeed(40)
                end

                if(intid == 513) then
                player:ModifyRunSpeed(7)
                end

                if(intid == 22) then
                item:GossipCreateMenu(1, player, 0)
                                item:GossipMenuAddItem(4, "Horde", 535, 0)
                                item:GossipMenuAddItem(4, "Alliance", 536, 0)
                                item:GossipMenuAddItem(4, "Done", 999, 0)
                                item:GossipSendMenu(player)
                end

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

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