--[[ Massive Rock v1.2
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.
5.Sets Your Level.
6.Set Health/MaxHealth.
7.Set Mana/Max Mana.
8.Trains you.
9. Changes your Gender
10.Several guild options.
]]--
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, "Done", 999, 0)
item:GossipSendMenu(player)
end
end
function Rock_OnSelect(item, event, player, id, intid, code)
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
player:SendTrainerWindow(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
end
RegisterItemGossipEvent(PotionRockEntryID, 1,"Rock_OnClick")
RegisterItemGossipEvent(PotionRockEntryID, 2,"Rock_OnSelect")