[LuaHypArc] Chat Teleporter

by Torgash Thu Nov 05, 2009 12:36 pm

Torgash: Newbie; Posts : 1
Points : 4
Join date : 2009-11-05

Post n°1

[LuaHypArc] Chat Teleporter

by Torgash Thu Nov 05, 2009 12:36 pm

YOU HAVE TO HAVE LuaHypArc COMPILED

What you edit. (in Green)
Dont Edit Red

print("Chat Teleporter")
print("Made by Torgash")

print("Dont Remove Credits!")

--Locals--
local RELOAD = "*Reload"

local FOOD_MESSAGE = "*Food"
local FOOD_ID = 35951
local WATER_MESSAGE = "*Drink"
local WATER_ID = 41731
local MALL_MESSAGE = "*Mall"
local ORGRIMMAR = "*Orgrimmar"
local THUNDERBLUFF = "*Thunderbluff"
local SILVERMOON = "*Silvermoon"
local UNDERCITY = "*Undercity"
local STORMWIND = "*Stormwind"
local IRONFORGE = "*Ironforge"
local EXODAR = "*Exodar"
local DARNASSUS = "*Darnassus"
local BUFFS = "*Buffs"
local REMOVERESS = "*RemoveRess"
local GURUBASHI = "*Gurubashi"
local SETLEVEL = "*Level80"
local DALARAN = "*Dalaran"
local SHATTRATH = "*Shattrath"

function OnChat(event, pPlayer, message, type, language)
if(message == RELOAD and pPlayer:IsGm()) then
ReloadLuaEngine()
end
if(message == FOOD_MESSAGE) then
pPlayer:AddItem(FODD_ID, 20)
end
if(message == WATER_MESSAGE) then
pPlayer:AddItem(WATER_ID, 20)
end

if(message == MALL_MESSAGE) then
local race = pPlayer:GetPlayerRace()
if race == 1 or race == 3 or race == 4 or race == 7 or race == 11 then
pPlayer:Teleport(ALLIANCEMAP, AX, AY, AZ)
else
pPlayer:Teleport(HORDEMALLMAP, HX, HY, HZ)
end

if(message == ORGRIMMAR) then
pPlayer:Teleport(1, 1502.71, -4415.42, 22.5512)
end
if(message == THUNDERBLUFF) then
pPlayer:Teleport(1, -1285.42, 176.523, 130.994)
end
if(message == SILVERMOON) then
pPlayer:Teleport(530, 9414.18, -7278.97, 15.2031)
end
if(message == UNDERCITY) then
pPlayer:Teleport(0, 1831.26, 238.53, 61.52)
end
if(message == STORMWIND) then
pPlayer:Teleport(0, -8913.23, 554.633, 94.7944)
end
if(message == IRONFORGE) then
pPlayer:Teleport(0, -4981.25, -881.542, 502.66)
end
if(message == EXODAR) then
pPlayer:Teleport(530, -4014.08, -11895.8, -0.99324)
end
if(message == DARNASSUS) then
pPlayer:Teleport(1, 8795.8, 969.427, 31.1955)
end
if(message == BUFFS) then
pPlayer:CastSpell(48102)
pPlayer:CastSpell(58451)
pPlayer:CastSpell(48104)
pPlayer:CastSpell(58449)
pPlayer:CastSpell(48100)
pPlayer:CastSpell(20217)
pPlayer:CastSpell(48932)
pPlayer:CastSpell(48936)
pPlayer:CastSpell(61024)
pPlayer:CastSpell(48469)
pPlayer:Castspell(57294)
end
if(message == REMOVERESS) then
pPlayer:LearnSpell(15007)
pPlayer:UnlearnSpell(15007)
end
if(message == SETLEVEL) then
pPlayer:SetLevel(80)
end
if(message == GURUBASHI) then
pPlayer:Teleport(0, -13152.9, 342.729, 53.1328)
end
if(message == DALARAN) then
pPlayer:Teleport(571, 5785.24, 724.91, 641.081)
end
if(message == SHATTRATH) then
pPlayer:Teleport(530, -1722.58, 5382.7, 2.47504)
end
end
end

RegisterServerHook(16, "OnChat")

Last edited by Torgash on Thu Nov 05, 2009 12:43 pm; edited 1 time in total