Thread: [Release-LuaHypArc] LunarSCR ChatCommands v3

_______________________
--=[[LunarSCR ChatCommands v3]]=--
-------------------------

This is a Chat command script you need for it LuaHypArc last version...
What do script ??
Example you need Buffs?? Then type #Buffs and you will get buffs..
This is maybe final release of script if there is no errors..
If you find any error report me here please...
And if you dont get something ask me...
If you wanna to i add something more tell me, Because i dont have any idea what more to add...
And if some one make better INFO tell me xD
What commands has? Read here:

#Reload - Just Gm can use it. And it reloads LuaHypArc.
#Shattrath - teleports you to the Shattrath.
#Dalaran - teleports you to the Dalaran
#Orgrimmar - teleports you to the Orgimmar.
#Thunderbluff - teleports you to the ThunderBluff.
#Silvermoon - teleports you to the SilverMoon.
#Undercity - teleports you to the UnderCity.
#Stormwind - teleports you to the StormWind.
#Ironforge - teleports you to the IronForge.
#Exodar - teleports you to the Exodar.
#Darnassus - teleports you to the Darnassus.
#Gurubashi - teleports you to the Gurubashi Arena.
#Mall - teleports you to the mall.
#Revive - you are dead? Okay you are alive after using this command.
#LvlRoad - teleports you to the Leveling Road.
#RemoveRess - Remove your ressickness.
#Heal - Do you need HEAL?? Then this is right Command for you.
#RepairMe - Are you broken!??? Ohh damn call then our mighty gnome with this command.
#Level80 - Level you up to level 80.
#Buffs - adds a number of buffs to you.
#drink - adds drink to your inventory.
#food - adds food to your inventory.
#gender - Change your grender to female or male.
#Onplayers - Shows you how much players are online.
#Exit - Instant Dissconnect.
#reset - Reset your talents.
#talents - Get 15 talents points on level 80 only.
#commands - displays a list of commands.

Code:

--[[

Scripted by Onlykl.
Do not repost without my permission.
Do not take credits for what you haven't scripted.
I hope you like this script.
If you like my scripts feel free to request one.


--]]

print("LunarSCR ChatCommands v2- Do not remove credits,Please.")

-- Messages:
local RELOAD_MSG = "#Reload"
local SHATTRATH_MSG = "#Shattrath" 
local DALARAN_MSG = "#Dalaran"
local ORGRIMMAR_MSG = "#Orgrimmar"
local THUNDERBLUFF_MSG = "#Thunderbluff"
local SILVERMOON_MSG = "#Silvermoon"
local UNDERCITY_MSG = "#Undercity"
local STORMWIND_MSG = "#Stormwind"
local IRONFORGE_MSG = "#Ironforge"
local EXODAR_MSG = "#Exodar"
local DARNASSUS_MSG = "#Darnassus"
local GURUBASHI_MSG =  "#Gurubashi"
local MALL_MSG = "#Mall"
local REVIVE_MSG = "#Revive"
local LEVELROAD_MSG = "#LvlRoad"
local REMOVERESS_MSG = "#RemoveRess"
local HEAL_MSG = "#Heal"
local REPAIRGNOME_MSG = "#RepairMe"
local SETLEVEL_MSG = "#Level80"
local BUFFS_MSG = "#Buffs"
local DRINK_MSG = "#drink"
local FOOD_MSG = "#food"
local GENDER_MSG = "#gender"
local OnlinePlayers_MSG = "#Onplayers"
local race = pPlayer:GetPlayerRace()
local DISSCONNECT_MSG = "#Exit"
local RESET_MSG = "#reset"
local TALENT_MSG = "#talents"
local COMMANDLIST_MSG = "#commands"

-- Config:
local MALL = {MAP = 0, X = 0, Y = 0, Z = 0} -- change to the map, x, y, and z coordinates of your mall (self explanatory).
local LEVELROAD= {MAP = 0, X = 0, Y = 0, Z = 0} -- change to the map, x, y, and z coordinates of your Leveling Road (self explanatory).
local BUFFIDS = {58452, 48104, 48102, 48469, 61024, 20217, 48161, 48073, 48169, 54675, 15366, 33077, 53307, 43017, 5697, 132, 1706, 16618, 48100, 58451} -- add/remove spell IDs for buffs (used in the buff command).
local FOOD_ID = 45932 -- change to the entry ID for the food to be added to the player (20 of the item is added each time).
local DRINK_ID = 42777 -- same as food, just the drink's entry ID
-- Config end.
-- Do not change anything below this unless you know what you're doing.

function OnChat(event, pPlayer, message, type, language)
	if(message == RELOAD_MSG and pPlayer:IsGm()) then
			ReloadLuaEngine()
	pPlayer:SendBroadcastMessage("Lua scripts reloaded..")
	end
	if(message == ORGRIMMAR_MSG and race == 2 or race == 5 or race == 6 or race == 8 or race == 10) then
		pPlayer:Teleport(1, 1502.71, -4415.42, 22.5512)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to Orgrimmar.")
	end
	if(message == THUNDERBLUFF_MSG and race == 2 or race == 5 or race == 6 or race == 8 or race == 10) then
		pPlayer:Teleport(1, -1285.42, 176.523, 130.994)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to ThunderBluff.")
	end
	if(message == SILVERMOON_MSG and race == 2 or race == 5 or race == 6 or race == 8 or race == 10) then
		pPlayer:Teleport(530, 9414.18, -7278.97, 15.2031)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to SilverMoon City.")
	end
	if(message == UNDERCITY_MSG and race == 2 or race == 5 or race == 6 or race == 8 or race == 10) then
		pPlayer:Teleport(0, 1831.26, 238.53, 61.52)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to UnderCity.")
	end
	if(message == STORMWIND_MSG and race == 1 or race == 3 or race == 4 or race == 7 or race == 11) then
		pPlayer:Teleport(0, -8913.23, 554.633, 94.7944)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to StormWind City.")
	end
	if(message == IRONFORGE_MSG and race == 1 or race == 3 or race == 4 or race == 7 or race == 11) then
		pPlayer:Teleport(0, -4981.25, -881.542, 502.66)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to IronForge.")
	end
	if(message == EXODAR_MSG and race == 1 or race == 3 or race == 4 or race == 7 or race == 11) then
		pPlayer:Teleport(530, -4014.08, -11895.8, -0.99324)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to Exodar.")
	end
	if(message == DARNASSUS_MSG and race == 1 or race == 3 or race == 4 or race == 7 or race == 11) then
		pPlayer:Teleport(1, 8795.8, 969.427, 31.1955)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to Darnassus.")
	end
	if(message == REPAIRGNOME_MSG) then
		local x = pPlayer:GetX ()
		local y = pPlayer:GetY ()
		local z = pPlayer:GetZ ()
		local o = pPlayer:GetO ()
	pPlayer:SpawnCreature (19383, x, y, z, o, 35, 70000)
	end
	if (message == MALL_MSG) then
		pPlayer:Teleport(MALL.MAP, MALL.X, MALL.Y, MALL.Z)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to Mall.")
	end
	if(message == REVIVE_MSG) then
		pPlayer:CastSpell(50768) 
 		end
	if (message == LEVELROAD_MSG) then
		pPlayer:Teleport(LEVELROAD.MAP, LEVELROAD.X, LEVELROAD.Y, LEVELROAD.Z)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to Leveling Road.Good Luck,you will need it.")
	end
	if(message == HEAL_MSG) then
		pPlayer:CastSpell(58053)
 		end
	if (message == BUFF_MSG) then
		for k, v in pairs(BUFFIDS) do
			pPlayer:CastSpell(v) -- pPlayer:AddAura(v, 600000, true)
		end
	if(message == REMOVERESS_MSG) then
		pPlayer:LearnSpell(15007)
		pPlayer:UnlearnSpell(15007)
	end
if(message == SETLEVEL_MSG) then
	if(pPlayer:PlayerLevel() < 80) then
			pPlayer:SetPlayerLeveL(80)
	end
	elseif (pPlayer:GetPlayerLevel() == 80) then
			pPlayer:SendChatMessageToPlayer(15, 0, "You are already 80!)
	end
	if(message == GURUBASHI_MSG) then
		pPlayer:Teleport(0, -13152.9, 342.729, 53.1328)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to Gurubashi Arena.")
	end
	if(message == DALARAN_MSG) then
		pPlayer:Teleport(571, 5785.24, 724.91, 641.081)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to Dalaran.")
	end
	if(message == SHATTRATH_MSG) then
		pPlayer:Teleport(530, -1722.58, 5382.7, 2.47504)
		pPlayer:SendBroadcastMessage("Welcome"..plr:GetName().." to Shattrath city.")
	end
	if (message == FOOD_MSG) then
		pPlayer:AddItem(FOOD_ID, 20)
	end
	if (message == DRINK_MSG) then
		pPlayer:AddItem(DRINK_ID, 20)
	end
	if(message == GENDER_MSG) then
		if (pPlayer:GetGender() == 0
		pPlayer:SendBroadcastMessage("Your gender has been changed!")
		pPlayer:SetGender(1)
			elseif (pPlayer:GetGender() == 1
		pPlayer:SendBroadcastMessage("Your gender has been changed!")
		pPlayer:SetGender(0)
	end
	if (message == OnlinePlayers_MSG) then
		local Players = GetPlayersInWorld()
		local Size = #Players
		if (Size == 1) then
		pPlayer:SendBroadcastMessage("There is "..Size.." player online.")
	else
		pPlayer:SendBroadcastMessage("There are "..Size.." players online.")
	end
	if (message == DISSCONNECT_MSG ) then
		pPlayer:SoftDisconnect()
	end
	if(message == RESET_MSG) then
		plr:SendBroadcastMessage("Your talents have been reseted!")
			unit:ResetTalents()
	end
	if(message == TALENT_MSG) then
		if(plr:GetPlayerLevel() < 80) then
			plr:SendBroadcastMessage("You are not high enough level!")
		end
	else
		plr:SendBroadcastMessage("You got 15 talent points!")
			plr:SetTalentPoints(86)
		end
	if (message == COMMANDLIST_MSG) then
		pPlayer:SendBroadcastMessage("Current commands:\n"..ORGRIMMAR_MSG.." - teleports you to the Orgimmar.\n"..THUNDERBLUFF_MSG.." - teleports you to the ThunderBluff.\n"..SILVERMOON_MSG.." - teleports you to the SilverMoon.\n"..UNDERCITY_MSG.." - teleports you to the UnderCity.\n"..STORMWIND_MSG.." - teleports you to the StormWind.\n"..IRONFORGE_MSG.." - teleports you to the IronForge.\n"..EXODAR_MSG .." - teleports you to the Exodar.\n"..DARNASSUS_MSG.." - teleports you to the Darnassus.\n"..REPAIRGNOME_MSG.." - Are you broken!??? Ohh damn call then our mighty gnome with this command.\n"..HEAL_MSG.." - Do you need HEAL?? Then this is right Command for you.\n"..REMOVERESS_MSG.." - Revmove your ressickness.\n"..SETLEVEL_MSG.." - Level you up to level 80.\n"..GURUBASHI_MSG.." - teleports you to the Gurubashi Arena.\n"..DALARAN_MSG.." - teleports you to the Dalaran.\n"..SHATTRATH_MSG.." - teleports you to the Shattrath.\n"..LEVELROAD_MSG.." - teleports you to the Leveling Road.\n"..MALL_MSG.." - teleports you to the mall.\n"..FOOD_MSG.." - adds food to your inventory.\n"..DRINK_MSG.." - adds drink to your inventory.\n"..BUFF_MSG.." - adds a number of buffs to you.\n"..GENDER_MSG.." - Change your grender to female or male.\n"..OnlinePlayers_MSG.." - Shows you how much players are online.\n"..REVIVE_MSG.." - you are dead? Okay you are alive after using this command.\n"..RELOAD_MSG.." - Just Gm can use it. And it reloads LuaHypArc.\n"..RESET_MSG.." - Reset your talents.\n"..DISSCONNECT_MSG.." - Instant Dissconnect.\n"..TALENT_MSG.." - Get 15 talents points on level 80 only.\n"..COMMANDLIST_MSG.." - displays a list of commands.")
	end
end


RegisterServerHook(16, "OnChat")

---

› See More: [Release-LuaHypArc] LunarSCR ChatCommands v3

Thanks +Rep back