Teleport por talk.

[Criticoo 4]

Creditos:

Eu(Vodkart)

Meu nick neste forum é Criticoo porque já está sendo usado o Nickname Vodkart.

 

Server testado:

Baiak 8.54 ~ 8.60

Mix War 8.60

Real server 8.57 ~ 8;60

 

Explicação:

É um teleport por talkactions onde vc digita:

/tp nome do lugar

e é teleportado para este local por um preço(ou não)

 

Comando adicional:

/tp lista

Mostra em uma janela a lista dos lugares que o player poderá viajar com a talkactions.

-------------------------------------//-------------------------------------

 

Vamos ao Script.

data/talkactions/script crie um arquivo.lua e renomeie para

 

teleporttalk.lua

--[[script By Vodkart]]--
function onSay(cid, words, param)
local config = {
pz = true, -- players precisam estar em protection zone para usar? (true or false)
battle = true, -- players deve estar sem battle (true or false)
custo = true, -- se os teleport irão custa (true or false)
need_level = true, -- se os teleport irão precisar de level (true or false)
premium = true -- se precisa ser premium account (true or false)
}
--[[ Config lugares]]--
local lugar = {
["depot"] = { -- nome do lugar
pos = {x=129, y=54, z=6},level = 5,price = 1000},
["templo"] = { -- nome do lugar
pos = {x=160, y=54, z=7},level = 10, price = 2000},
["arena"] = { -- nome do lugar
pos = {x=125, y=31, z=9},level = 15,price = 3000},
["area vip"] ={ -- nome do lugar
pos = {x=280, y=87, z=4},level = 20,price = 4000}
}
--[[ 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, 22, "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, 22, "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, 22, "Desculpe,voce nao tem dinheiro suficiente. Voce precisa "..a.price.." gp para ser teleportado.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
doTeleportThing(cid, a.pos)
doSendMagicEffect(a.pos, CONST_ME_TELEPORT)
doPlayerSendTextMessage(cid, 22, "" .. getPlayerName(cid) .. " foi teleportado para: \n " .. param .. ".")
return TRUE
end

em talkactions.xml adicione a tag:

<talkaction words="/tp" event="script" value="teleporttalk.lua"/>

exemplo:

 

/tp depot

 

 

Então é isso pessoal :X

abraços

Editado 24 Janeiro, 2011 por Black Ice

[Lwkass 1]

Pelo que eu me lembre tinha um script parecido com esse por aqui, mas o seu ta bem feito e organizado,

 

Aprovado

[Antharaz 4]

Não entendi o "" aqui:

 

str = str .. ""..name.."\n"

 

Já que dá para concatenar 2 variáveis assim: str = str..name.."\n"

[Criticoo 4]

@UP

 

ah claro,muito obrigado por me lembrar eu tinha esquecido

editei o tópico já.

abraços

[Karyus 2]

Aprovado!

[MaXwEllDeN 13]

Gostei cara, Muito bom mesmo (:

 

~~Aproved!

[Criticoo 4]

Lembrando que pode adicionar mais teleport na lista ali :X

abraços

[skrenanskk 0]

o meu nao deu, e é real server 8.6 D:, eu falo /tp nao da nada /tp lista nao da nada D: nao sei porq cara!

[Criticoo 4]

algum erro?

esse distro do realserve é vagabundo,tem uns bug cabuloso nele que tbm nao entendo...

alguns scripts n funfam nele...

 

abraços

[skrenanskk 0]

pior é q nao da erro nenhum, tipo eu falo e nao da nada, nem no cmd, nem no server OEIASOESIA Oo foda q nao sei mudar distro ;/

[eduardo4 0]

oque é isso

 

[19/10/2010 18:03:45] [Error - LuaScriptInterface::loadFile] data/talkactions/scripts/teleport.lua:17: '}' expected near 'z'

[19/10/2010 18:03:45] [Warning - Event::loadScript] Cannot load script (data/talkactions/scripts/teleport.lua)

[19/10/2010 18:03:45] data/talkactions/scripts/teleport.lua:17: '}' expected near 'z'

 

eu testei na versão 8.54 TFS

[Criticoo 4]

Obrigado,já arrumei.

Tinha esquecido uma virgula

[Konkordax 0]

É mio es melhor.

[joazan 0]

bom ja usei aki e funfa

so queria saber cmo coloco pra so vip usar

Editado 7 Novembro, 2010 por joazan

[Killua 11]

Mto maneiro (:

 

Eu curti ele, pricipalmente a lista, n sei pq mas achei ela mais foda q os tp :coolface:

[Criticoo 4]

@joazan

 

Poderia me dizer qual seu sistema vip,para que eu possa ajustar e assim somente os jogadores vip do seu servidor utilizarem este comando.

[treiner 0]

parabens cara

realmente mto bom

vo por isso no meu ot agora mesmo

parabens

[Bvkse 0]

i meus creditos pela ideia ?

[Criticoo 4]

?

seus créditos pelo oque? ideia?

puff eu já tinha feito esse script em outro fórum a tempo,mais agora que eu to frequentando esse aqui resolvi postar aqui,não me vem com essa sua infantalidade ok?

só um click e te reporto.

[Roku 3 0]

se n tiver 1 exaust e se nao for em pz ou no templo das cidades (acho uma boa esssa de templo) fica uma merda, os ricos viram imortais

 

n sei se tem, n li direito