This is a multiple fun server or any server functional script, that has many many uses, i made it more versatile and more changeable. You can always remove or add more functions in, or ask me for a private script made just for you, Im always looking for work and if you need something done dont be afraid to ask.

When you look at the local's the LVL = 80 is your level cap, the MAX is 1+ the LVL, because it checks to see if you are <81, so it = 80. Please make sure you understand this.

In this script, For the boxes that pop up, always type in a number,

There is one little minor scratch in the script that i was looking at for a while now, but i cant seem to figure out how to make it so when you type in your amount for gold it gives you 1g instead of 10 copper. I tried adding the function 10 times lol didnt work. But yeah, holler at me if you know how to do it or if you need anything.

brathus is an unknown quantity at this point

This is a multiple fun server or any server functional script, that has many many uses, i made it more versatile and more changeable. You can always remove or add more functions in, or ask me for a private script made just for you, Im always looking for work and if you need something done dont be afraid to ask.

When you look at the local's the LVL = 80 is your level cap, the MAX is 1+ the LVL, because it checks to see if you are <81, so it = 80. Please make sure you understand this.

In this script, For the boxes that pop up, always type in a number, if you dont know one like lets say a title id or display id, look them up =) here's a link the the display id finder, and here's a title link

display id [Only registered and activated users can see links. ]
title id [Only registered and activated users can see links. ]

There is one little minor scratch in the script that i was looking at for a while now, but i cant seem to figure out how to make it so when you type in your amount for gold it gives you 1g instead of 10 copper. I tried adding the function 10 times lol didnt work. But yeah, holler at me if you know how to do it or if you need anything.

If you get any error's or have questions contact :jack-wren@hotmail.com

Code:
--[[Made by Brathus, this is a multiple funserver or any server functional script, that has many many uses, i made it more versitile and more changeable. You can always remove or add more functions in, or ask me for a private script made just for you, Im always looking for work and if you need something done dont be afraid to ask.
In this script, For the boxes that pop up, always type in a number, if you dont know one like lets say a title id or display id, look them up =) here's a link the the display id finder, and here's a title link
display id --- http://wow-v.com/displayid-finder-mobs.php
title id ----- http://www.************/forums/ascent-guides/223957-title-ids.html

If you get any error's or have questions contact me at jack-wren@hotmail.com .
I will be releasing more as time goes if i get support, if not, i wont bother.]]
logcol(12)
print("Made By Brathus, If you have any questions, Contact me at jack-wren@hotmail.com")
logcol(7)

local npcid = 123123 -- change to npc id
local NPCNAME = npc -- change this to your npc name.
local MAX = 81 -- Highest possible level.
local LVL = 80 -- should be 1 lower than your max.
local Scale = 1.5 -- Highest possible scale number.
local Scale2 = .5 -- Lowest possible scale number.

function Versitile_OnTalk(Unit, event, player)
if (player:IsInCombat() == true) then
player:SendAreaTriggerMessage("You are in combat!")
player:GossipComplete()

else
Unit:GossipCreateMenu(100, player, 0)
Unit:GossipMenuAddItem(0, "Choose Your Level", 59, 1)
Unit:GossipMenuAddItem(0, "Choose Your Display Id", 60, 1)
Unit:GossipMenuAddItem(0, "Choose Your Title Id", 61, 1)
Unit:GossipMenuAddItem(0, "Choose Your Scale", 62, 1)
Unit:GossipMenuAddItem(4, "Add Gold", 63, 1) -- in copper amount =/, if anyone has a fix talk to me.
Unit:GossipMenuAddItem(1, "Add Items", 64, 0)
Unit:GossipMenuAddItem(4, "Heal Me!", 65, 0)
Unit:GossipMenuAddItem(9, "Max Weapon Skills", 66, 0)
Unit:GossipMenuAddItem(7, "Nevermind!", 100, 0)
Unit:GossipSendMenu(player)
end
end

function Versitile_OnSelect(Unit, event, player, id, intid, Code, pMisc)
if (intid == 59) and
(player:GetLevel() < tonumber(Code)) and (tonumber(Code) < MAX) then
player:SetPlayerLevel(tonumber(Code))
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Congratulations, you are now level "..Code.."!")
player:GossipComplete()
elseif
(intid == 59) and
(player:GetLevel() == LVL) and (tonumber(Code) > LVL) then
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r You are already the highest level, You can not go higher than "..LVL..".")
player:GossipComplete()
elseif
(intid == 59) and
(player:GetLevel() == LVL) and (tonumber(Code) < LVL) then
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r You are already the highest level, and can not de-level!")
player:GossipComplete()
elseif
(intid == 59) and
(player:GetLevel() < tonumber(Code)) and (tonumber(Code)) > MAX then
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Your Specified level is too high!")
player:GossipComplete()
elseif
(intid == 59) and
(player:GetLevel() > tonumber(Code)) then
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r You can not de-level!, Please put a higher value in!")
player:GossipComplete()
end

if (intid == 60) then
player:SetModel(tonumber(Code))
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Congratulations, your Display Id is now "..Code.."")
player:GossipComplete()
end

if (intid == 61) then
player:SetKnownTitle(tonumber(Code))
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Congratulations, your Title Id is now "..Code.."")
player:GossipComplete()
end

if (intid == 62) and
(tonumber(Code) > Scale) then
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Your scale may not be higher than "..Scale.."!")
player:GossipComplete()
elseif
(intid == 62) and
(tonumber(Code) < Scale2) then
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Your scale may not be lower than "..Scale2.."!")
player:GossipComplete()
elseif
(intid == 62) then
player:SetScale(tonumber(Code))
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Congratulations, your scale is now "..Code.."")
player:GossipComplete()
end

if (intid == 64) then
Unit:GossipCreateMenu(100, player, 1)
Unit:GossipMenuAddItem(1, "Item x 1", 1000, 1)
Unit:GossipMenuAddItem(1, "Item x 5", 1005, 1)
Unit:GossipMenuAddItem(1, "Item x 10", 1010, 1)
Unit:GossipMenuAddItem(1, "Item x 20", 1020, 1)
Unit:GossipMenuAddItem(1, "Item x 100", 1100, 1)
Unit:GossipMenuAddItem(7, "Back", 999, 0)
Unit:GossipSendMenu(player)
end

if (intid == 63) then
player:DealGoldMerit(tonumber(Code))
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Added "..Code.."0 copper to your backpack")
player:GossipComplete()
end

if (intid == 65) then
player:RemoveAura(15007)
player:SetHealthPct(100)
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r You have been healed!")
player:GossipComplete()
end

if (intid == 66) then
player:AdvanceSkill (43, 399) 
player:AdvanceSkill (44, 399) 
player:AdvanceSkill (45, 399)
player:AdvanceSkill (46, 399) 
player:AdvanceSkill (54, 399) 
player:AdvanceSkill (55, 399) 
player:AdvanceSkill (95, 399) 
player:AdvanceSkill (136, 399) 
player:AdvanceSkill (160, 399) 
player:AdvanceSkill (162, 399) 
player:AdvanceSkill (172, 399)
player:AdvanceSkill (173, 399) 
player:AdvanceSkill (176, 399) 
player:AdvanceSkill (226, 399) 
player:AdvanceSkill (228, 399) 
player:AdvanceSkill (229, 399) 
player:AdvanceSkill (473, 399)
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Weapon Skills maxed.")
player:GossipComplete()
end

if (intid == 1000) then
player:AddItem(tonumber(Code), 1)
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Added Item id "..Code.." x 1 to your backpack!")
player:GossipComplete()
end

if (intid == 1005) then
player:AddItem(tonumber(Code), 5)
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Added Item id "..Code.." x 5 to your backpack!")
player:GossipComplete()
end

if (intid == 1010) then
player:AddItem(tonumber(Code), 10)
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Added Item id "..Code.." x 10 to your backpack!")
player:GossipComplete()
end

if (intid == 1020) then
player:AddItem(tonumber(Code), 20)
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Added Item id "..Code.." x 20 to your backpack!")
player:GossipComplete()
end

if (intid == 1100) then
player:AddItem(tonumber(Code), 100)
player:SendAreaTriggerMessage("|cFFFF0000[NOTICE]:|r Added Item id "..Code.." x 100 to your backpack!")
player:GossipComplete()
end

if (intid == 999) then
Unit:GossipMenuAddItem(0, "Choose Your Level", 59, 1)
Unit:GossipMenuAddItem(0, "Choose Your Display Id", 60, 1)
Unit:GossipMenuAddItem(0, "Choose Your Title Id", 61, 1)
Unit:GossipMenuAddItem(0, "Choose Your Scale", 62, 1)
Unit:GossipMenuAddItem(4, "Add Gold", 63, 1) -- in copper amount =/, if anyone has a fix talk to me.
Unit:GossipMenuAddItem(1, "Add Items", 64, 0)
Unit:GossipMenuAddItem(4, "Heal Me!", 65, 0)
Unit:GossipMenuAddItem(9, "Max Weapon Skills", 66, 0)
Unit:GossipMenuAddItem(7, "Nevermind!", 100, 0)
Unit:GossipSendMenu(player)
end

if (intid == 100) then
player:SendBroadcastMessage("|cFFFFFFF0[NPCNAME] says: Come back soon!")
player:GossipComplete()
end
end

RegisterUnitGossipEvent(npcid, 1, "Versitile_OnTalk")
RegisterUnitGossipEvent(npcid, 2, "Versitile_OnSelect")
Credit
~~~~~~~~~~~~~~
brathus-Ac Web