Action%25252525252FTalkaction Talkaction, "!go", teleport para cidades, inovador.

[Eduardo Dantas 16]

Resumindo é um script bem simples, porém que muitos procuram, e é bem legal também, encontrei no tibiaking, e resolvi trazer para cá, dei uma editada nos textos e alterei algumas funções para ficar mais moderno e mais bonitinho. É um script de "!go", mais conhecido como "!fly" por muitos. 

Você fala !go nome da cidade (configurável), e você será teleportado para a cidade, só pode ser usado em Protection Zone, opção para apenas vips (ou premium) usarem, com opção de tirar dinheiro por uso do comando (ou não). 


Lá vai o script. Se tiverem dúvidas comentar aqui, que eu tentarei ajudar.

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 = true, -- precisa de dinheiro para teleportar? (true or false)
need_level = false, -- nível necessario para usar o comando (true or false)
vip = true -- se precisa ser vip account ou premium account (true or false)
}

--[[ Config lugares]]-- level é o nivel necessario para usar o comando, e price é o dinheiro necessario para usar o comando
local lugar = {
["carlin"] = { -- nome do lugar
pos = {x= 32360, y= 31782, z= 7},level = 5,price = 1000}, 
["thais"] = { -- nome do lugar
pos = {x= 32369, y= 32241, z= 7},level = 10, price = 1000},
["venore"] = { -- nome do lugar
pos = {x= 32957, y= 32076, z= 7},level = 15,price = 1000},
["area vip"] ={ -- nome do lugar
pos = {x=305, y=934, z=7},level = 20,price = 1000}
}

--[[ Lista de Viagem (Não mexa) ]]--
if (param == "list") then
local str = ""
str = str .. "Citys list:\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, MESSAGE_INFO_DESCR, "Sorry, this city does not exist.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
elseif config.pz == true and getTilePzInfo(getCreaturePosition(cid)) == FALSE then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"You must be in the protection zone.")
return TRUE
elseif config.vip == true and isPremium(cid) == false then -- Se você tiver um sistema de VIP, pegar o comando isVip, ou algo semelhante e trocar por isPremium
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Only VIP players can telepot.") 
return TRUE
elseif config.battle == true and getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You need no battle for teleport.")
return TRUE
elseif config.need_level == true and getPlayerLevel(cid) < a.level then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have level, you need a "..a.level.." level for teleport.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
elseif config.custo == true and doPlayerRemoveMoney(cid, a.price) == FALSE then
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have suficiently money, you need of "..a.price.." gp's for teleport.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
doTeleportThing(cid, a.pos)
doSendMagicEffect(a.pos, CONST_ME_TELEPORT)
doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You is teleported for " .. param .. ".")
return TRUE
end

Colar linha em talkactions.xml: 

 

<talkaction words="!go" event="script" value="go.lua"/>

 

 

Créditos; Barão (Por criar o script)
Eu (por fazer algumas pequenas melhorias nele e trazer ao TibiaKing)

Editado Março 20, 2014 por Eduardo Dantas (veja o histórico de edições)

[Nogard 344]

Você o testou depois que editou?

[Eduardo Dantas 16]

Ainda não, não está funcionando?

#Edit
Acabei de testar, tá funcionando normal aqui. :v

Editado Março 20, 2014 por Eduardo Dantas (veja o histórico de edições)

[Nogard 344]

Algo me pareceu errado quando li o script, mas se está funcionando, erro meu. XD

[Eduardo Dantas 16]

O que viu de aparentemente errado? 
Só para tirar a dúvida.

[Vodkart 2155]

créditos barão??

o que você editou no script??

[hempz 16]

cara como é que vou colocar isso só pra vip parçeiro? precisa colocar o storage da vip não? n mexo muito com script se puder me dizer como fazer eu ia agradeçer muito!!

[Eduardo Dantas 16]

É muito simples cara, ali onde tem "vip = true -- se precisa ser vip account ou premium account (true or false)"

É só deixar true, claro que depende do sistema vip que você usa, se tiver problemas é só falar comigo.

[JeanShamayin 2]

Muito show o script, porem tive um problema...

 

[16/12/2014 12:54:16] [Error - LuaScriptInterface::loadFile] data/talkactions/scripts/tp.lua:20: '}' expected (to close '{' at line 11) near '['

[16/12/2014 12:54:16] [Warning - Event::loadScript] Cannot load script (data/talkactions/scripts/tp.lua)

[16/12/2014 12:54:16] data/talkactions/scripts/tp.lua:20: '}' expected (to close '{' at line 11) near '['

Pode ajuda? Fiz algumas modificaçoes só no nome e local das cidades.

 

function onSay(cid, words, param)

 

local config = {

pz = false,

battle = true,

custo = true,

need_level = false,

vip = false,

}

 

local lugar = {

["vermilion"] = { -- nome do lugar

pos = {x= 1358, y= 1322, z= 7},level = 5,price = 10000}, 

["lavender"] = { -- nome do lugar

pos = {x= 1505, y= 1179, z= 7},level = 10, price = 10000},

["saffon"] = { -- nome do lugar

pos = {x= 1354, y= 1168, z= 6},level = 15,price = 10000},

["celadon"] ={ -- nome do lugar

pos = {x=1232, y=1222, z=6},level = 20,price = 10000}

["cerulean"] ={ -- nome do lugar

pos = {x=1357, y=999, z=7},level = 20,price = 10000}

["pewter"] ={ -- nome do lugar

pos = {x=950, y=1000, z=7},level = 20,price = 10000}

}

 

if (param == "list") then

local str = ""

str = str .. "Citys list:\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, MESSAGE_INFO_DESCR, "Essa cidade não existe")

doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)

return TRUE

elseif config.pz == true and getTilePzInfo(getCreaturePosition(cid)) == FALSE then

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR,"You must be in the protection zone.")

return TRUE

elseif config.vip == true and isPremium(cid) == false then -- Se você tiver um sistema de VIP, pegar o comando isVip, ou algo semelhante e trocar por isPremium

doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Only VIP players can telepot.") 

return TRUE

elseif config.battle == true and getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE then

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você esta em batalha, não pode teleporta")

return TRUE

elseif config.need_level == true and getPlayerLevel(cid) < a.level then

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "You don't have level, you need a "..a.level.." level for teleport.")

doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)

return TRUE

elseif config.custo == true and doPlayerRemoveMoney(cid, a.price) == FALSE then

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você não tem o dinheiro necessario"..a.price.." dollars para teleporta")

doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)

return TRUE

end

doTeleportThing(cid, a.pos)

doSendMagicEffect(a.pos, CONST_ME_TELEPORT)

doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, "Você foi teleportado para " .. param .. ".")

return TRUE

end

PS: Meu server é OTPokemon (não sei se influencia, mas só pra deixa claro)