PDA

View Full Version : [Release-LuaHypArc] LunarSCR ChatCommands v3



Onlykl
06-12-09, 12:38 PM
_______________________
--=[[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.


--[[

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")

vitalik
06-12-09, 01:20 PM
Nice onlykl.rep+

Onlykl
06-12-09, 01:47 PM
Thanks +Rep back