galera hoje vou ensinar um comando que teleporta player vip's para locais diferentes.

vamos la entao.

Creditos :

90% vodkart

10% pra mim por varias modificaçoes.

Primeiro vai em data>talkactions>scripts. crie 1 arquivo com nome fly.lua e cole isso dentro.

--[[script By Vodkart And Lfelipebsilva05]]--

function onSay(cid, words, param)

local config = {
pz = true, -- players precisam estar em protection zone para usar? (true or false)
battle = false, -- players deve estar sem battle (true or false)
custo = false, -- se os teleport irão custa (true or false)
need_level = false, -- se os teleport irão precisar de level (true or false)
vip = true, -- somente vip players poderam usar o comando? ("yes" or "no")
storage = 13500 -- Storage Id da sua vip account caso for usar somente vips
}

--[[ Config lugares]]--
local lugar = {
["depot"] = { -- nome do lugar
pos = {x=1016, y=1045, z=7},level = 8,price = 0},
["temple"] = { -- nome do lugar
pos = {x=1032, y=1016, z=7},level = 8, price = 0},
["arena"] = { -- nome do lugar
pos = {x=1016, y=1052, z=8},level = 8,price = 0},
["viparea"] ={ -- nome do lugar
pos = {x=701, y=1015, z=7},level = 8,price = 0},
["trainer"] ={ -- nome do lugar
pos = {x=965, y=1057, z=7},level = 8,price = 0}
}

--[[ Lista de Viagem (Não mexa) ]]--
if (param == "lista") then
local str = ""
str = str .. "lista de viagem :\n\n"
for name, pos in pairs(lugar) do
str = str..name.."\n"
end
str = str .. ""
doShowTextDialog(cid, 6579, str)
return TRUE
end


local a = lugar[param]
if not(a) then
doPlayerSendTextMessage(cid, 25, "desculpe,este lugar não existe")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
elseif config.pz == true and getTilePzInfo(getCreaturePosition(cid)) == FALSE then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.")
return TRUE
elseif config.premium == true and not isPremium(cid) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Apenas players com premium account podem teleportar.")
return TRUE
elseif config.battle == true and getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Você precisa estar sem battler pra poder teleportar.")
return TRUE
elseif config.need_level == true and getPlayerLevel(cid) < a.level then
doPlayerSendTextMessage(cid, 25, "Desculpe,Voce não tem level. voce precisa "..a.level.." level ou mais para ser teleportado.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
elseif config.custo == true and doPlayerRemoveMoney(cid, a.price) == FALSE then
doPlayerSendTextMessage(cid, 25, "Desculpe,voce nao tem dinheiro suficiente. Voce precisa "..a.price.." gp para ser teleportado.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
elseif config.vip == true and getPlayerStorageValue(cid, tonumber(config.storage))  - os.time() <= 0 then
doPlayerSendTextMessage(cid, 25, "Desculpe,voce nao e Player vip Para Usar o !fly!.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
doTeleportThing(cid, a.pos)
doSendMagicEffect(a.pos, CONST_ME_TELEPORT)
doBroadcastMessage("" .. getPlayerName(cid) .. " has flown to " .. param ..  " using !fly." ,MESSAGE_INFO_DESCR)
return TRUE
end

agora em talkactions.xml cole isso

<talkaction words="!fly" script="fly.lua"/>

GOSTOU ? REP+

Firs reply! o0

Parabens mano, ficou 10 a idéia e o script. Continue assim!!

sinceramente? Plagio é crime.

http://www.xtibia.com/forum/topic/134593-talkaction-teleport-por-talk-para-vip/ <-- original

vc nao merece 10% de crédito por mudar uma frase.

fora q foi double post.