sim tem sim
mais iria remover o item quando ele usasse?
VO
talkaction
[ Talkaction ]Teleport Por Talk. Para Vip
Por Vodkart, 09 de jun. de 2010 em Actions e Talkactions
script
77
18.5k
info
Grupo: Herói
Registrado: 20/05/10
Posts: 3.4k
Reputação: +1.5k
Gênero: Masculino
01 de agosto de 2010 às 22:46
info
Grupo: Campones
Registrado: 06/05/10
Posts: 33
Reputação: +1
01 de agosto de 2010 às 23:57
não não.. não removeria pq tpw tava pensando em fazer este item para por no shop do meu server intende??
e tem como deixar só pra vip usar né? oou seja o player necessitaria ser vip e ainda comprar o item no shop...
info
Grupo: Herói
Registrado: 20/05/10
Posts: 3.4k
Reputação: +1.5k
Gênero: Masculino
02 de agosto de 2010 às 00:01
ta na mão então parcerinho
function onSay(cid, words, param)
local config = {
vip = "yes", -- somente vip players poderam usar o comando? ("yes" or "no")
pz = "yes", -- players precisam estar em protection zone para usar? ("yes" or "no").
battle = "yes", -- players deve estar sem battle ("yes" or "no")
custo = "yes", -- se os teleport irão custa ("yes" or "no")
storage = 13540, -- Storage Id da sua vip account caso for usar somente vips
premium = "yes", -- se precisa ser premium account ("yes" or "no")
Need = "yes", -- se precisa de item para usar ("yes" or "no")
Item = 2123 -- ID do seu item
}
-------------Config Lugares----------------
local lugar = {
["depot"] = {{x=129, y=54, z=6}, 1, 2000},
["templo"] = {{x=160, y=54, z=7}, 10, 1000},
["arena"] = {{x=162, y=54, z=7}, 10, 1000},
["area vip"] = {{x=163, y=54, z=7}, 10, 1000}
}
-------------/Config Checkar não mecha----------------
local lugares = lugar[param]
if (param == "check") then
for name, pos in pairs(lugar) do
text = "Destino: "..name..", Level necessario: "..pos[2]..","
if(config.battle == "yes") then
text = text.." Voce pode usar estando battler: NÃO"
else
text = text.." Voce pode usar estando battler: SIM"
end
if(config.pz == "yes") then
text = text.." Voce DeVe Usar estando PZ: SIM"
else
text = text.." Voce DeVe Usar estando PZ: Não"
end
if (pos[3] == TRUE) then
text = text..", Cost: "..pos[4]..";"
end
doPlayerSendTextMessage(cid, 20, ""..text.."")
end
return TRUE
end
if(config.pz == "yes") and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.")
return TRUE
end
if(config.premium == "yes") and (not isPremium(cid)) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Apenas players com premium account podem teleportar.")
return TRUE
end
if (config.vip == "yes") and getPlayerStorageValue(cid, tonumber(config.storage)) - os.time() <= 0 then
doPlayerSendCancel(cid,"Você não possui vip.")
return TRUE
end
if(config.battle == "yes") and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Você precisa estar sem battler pra poder teleportar.")
return TRUE
end
if not(lugares) then
doPlayerSendTextMessage(cid, 22, "desculpe,este lugar não existe")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
if (getPlayerLevel(cid) <= lugares[2]) then
doPlayerSendTextMessage(cid, 22, "Desculpe,Voce não tem level. voce precisa "..lugares[2].." level ou mais para ser teleportado.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
if (config.Need == "yes") and getPlayerItemCount(cid,config.Item) < 1 then
doPlayerSendCancel(cid,"Você não tem o item " .. getItemNameById(config.Item) .. ".")
return TRUE
end
if(config.custo == "yes") and (doPlayerRemoveMoney(cid, lugares[3]) == FALSE) then
doPlayerSendTextMessage(cid, 22, "Desculpe,voce nao tem dinheiro suficiente. Voce precisa "..lugares[3].." gp para ser teleportado.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
doTeleportThing(cid, lugares[1])
doSendMagicEffect(lugares[1], CONST_ME_TELEPORT)
doPlayerSendTextMessage(cid, 22, "" .. getPlayerName(cid) .. " foi teleportado para: \n " .. param .. ".")
return TRUE
end
Editado Agosto 2 por Vodkart
info
Grupo: Campones
Registrado: 06/05/10
Posts: 33
Reputação: +1
02 de agosto de 2010 às 00:12
woow thanks <3
vo testa aki 
vlw mesmo 
Edited : unico problema minha vip não é por storage, tem como arrumar? ;P
abraços
Editado Agosto 2 por Skolzim
info
Grupo: Herói
Registrado: 20/05/10
Posts: 3.4k
Reputação: +1.5k
Gênero: Masculino
02 de agosto de 2010 às 00:18
é pelo oque então?
info
Grupo: Campones
Registrado: 06/05/10
Posts: 33
Reputação: +1
02 de agosto de 2010 às 00:20
usou este sisteminha vip aquii óoh do kekox da otland 
http://otland.net/f163/best-vip-system-ever-action-movevent-globalevent-71638/
info
Grupo: Herói
Registrado: 20/05/10
Posts: 3.4k
Reputação: +1.5k
Gênero: Masculino
02 de agosto de 2010 às 09:20
tenta então:
function onSay(cid, words, param)
local config = {
vip = "yes", -- somente vip players poderam usar o comando? ("yes" or "no")
pz = "yes", -- players precisam estar em protection zone para usar? ("yes" or "no").
battle = "yes", -- players deve estar sem battle ("yes" or "no")
custo = "yes", -- se os teleport irão custa ("yes" or "no")
premium = "yes", -- se precisa ser premium account ("yes" or "no")
Need = "yes", -- se precisa de item para usar ("yes" or "no")
Item = 2123 -- ID do seu item
}
-------------Config Lugares----------------
local lugar = {
["depot"] = {{x=129, y=54, z=6}, 1, 2000},
["templo"] = {{x=160, y=54, z=7}, 10, 1000},
["arena"] = {{x=162, y=54, z=7}, 10, 1000},
["area vip"] = {{x=163, y=54, z=7}, 10, 1000}
}
-------------/Config Checkar não mecha----------------
local lugares = lugar[param]
if (param == "check") then
for name, pos in pairs(lugar) do
text = "Destino: "..name..", Level necessario: "..pos[2]..","
if(config.battle == "yes") then
text = text.." Voce pode usar estando battler: NÃO"
else
text = text.." Voce pode usar estando battler: SIM"
end
if(config.pz == "yes") then
text = text.." Voce DeVe Usar estando PZ: SIM"
else
text = text.." Voce DeVe Usar estando PZ: Não"
end
if (pos[3] == TRUE) then
text = text..", Cost: "..pos[4]..";"
end
doPlayerSendTextMessage(cid, 20, ""..text.."")
end
return TRUE
end
if(config.pz == "yes") and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.")
return TRUE
end
if(config.premium == "yes") and (not isPremium(cid)) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Apenas players com premium account podem teleportar.")
return TRUE
end
if (config.vip == "yes") and getPlayerVipDays(cid) == 0 then
doPlayerSendCancel(cid,"Você não possui vip.")
return TRUE
end
if(config.battle == "yes") and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Você precisa estar sem battler pra poder teleportar.")
return TRUE
end
if not(lugares) then
doPlayerSendTextMessage(cid, 22, "desculpe,este lugar não existe")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
if (getPlayerLevel(cid) <= lugares[2]) then
doPlayerSendTextMessage(cid, 22, "Desculpe,Voce não tem level. voce precisa "..lugares[2].." level ou mais para ser teleportado.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
if (config.Need == "yes") and getPlayerItemCount(cid,config.Item) < 1 then
doPlayerSendCancel(cid,"Você não tem o item " .. getItemNameById(config.Item) .. ".")
return TRUE
end
if(config.custo == "yes") and (doPlayerRemoveMoney(cid, lugares[3]) == FALSE) then
doPlayerSendTextMessage(cid, 22, "Desculpe,voce nao tem dinheiro suficiente. Voce precisa "..lugares[3].." gp para ser teleportado.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
doTeleportThing(cid, lugares[1])
doSendMagicEffect(lugares[1], CONST_ME_TELEPORT)
doPlayerSendTextMessage(cid, 22, "" .. getPlayerName(cid) .. " foi teleportado para: \n " .. param .. ".")
return TRUE
end
info
Grupo: Campones
Registrado: 06/05/10
Posts: 33
Reputação: +1
02 de agosto de 2010 às 10:12
hohoh precisa fala mais nada néa? ;x
vlw cara work ´perfect
se é foda em ;x
info
Grupo: Campones
Registrado: 01/08/10
Posts: 9
Reputação: 0
02 de agosto de 2010 às 10:37
Muinto BOm , Vodkart!!! Parabéns!! REP+ Aprovado , so que teve um Errinho!!
StorageValue da minha vip é 9798 ok? e So Olha! falo !tp Templo , e aparece Voce precisa de Vip !
e olha como ta o script!!
function onSay(cid, words, param)
local config = {
vip = "yes", -- somente vip players poderam usar o comando? ("yes" or "no")
pz = "no", -- players precisam estar em protection zone para usar? ("yes" or "no").
battle = "yes", -- players deve estar sem battle ("yes" or "no")
custo = "yes", -- se os teleport irão custa ("yes" or "no")
storage = 9798, -- Storage Id da sua vip account caso for usar somente vips
premium = "yes" -- se precisa ser premium account ("yes" or "no")
}
-------------Config Lugares----------------
local lugar = {
["Templo"] = {{x=160, y=54, z=7}, 1000, 500000},
["Arena"] = {{x=187, y=246, z=7}, 1000, 100000},
["Sbot"] = {{x=732, y=55, z=7}, 1000, 100000},
["Dp"] = {{x=128, y=54, z=6}, 1000, 100000}
}
-------------/Config Checkar não mecha----------------
local lugares = lugar[param]
if (param == "check") then
for name, pos in pairs(lugar) do
text = "Destino: "..name..", Level necessario: "..pos[2]..","
if(config.battle == "yes") then
text = text.." Voce pode usar estando battler: NÃO"
else
text = text.." Voce pode usar estando battler: SIM"
end
if(config.pz == "yes") then
text = text.." Voce DeVe Usar estando PZ: SIM"
else
text = text.." Voce DeVe Usar estando PZ: Não"
end
if (pos[3] == TRUE) then
text = text..", Cost: "..pos[4]..";"
end
doPlayerSendTextMessage(cid, 20, ""..text.."")
end
return TRUE
end
if(config.pz == "yes") and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.")
return TRUE
end
if(config.premium == "yes") and (not isPremium(cid)) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Apenas players com premium account podem teleportar.")
return TRUE
end
if (config.vip == "yes") and getPlayerStorageValue(cid, tonumber(config.storage)) - os.time() <= 0 then
doPlayerSendCancel(cid,"Você não possui vip.")
return TRUE
end
if(config.battle == "yes") and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Você precisa estar sem battler pra poder teleportar.")
return TRUE
end
if not(lugares) then
doPlayerSendTextMessage(cid, 22, "desculpe,este lugar não existe")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
if (getPlayerLevel(cid) <= lugares[2]) then
doPlayerSendTextMessage(cid, 22, "Desculpe,Voce não tem level. voce precisa "..lugares[2].." level ou mais para ser teleportado.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
if(config.custo == "yes") and (doPlayerRemoveMoney(cid, lugares[3]) == FALSE) then
doPlayerSendTextMessage(cid, 22, "Desculpe,voce nao tem dinheiro suficiente. Voce precisa "..lugares[3].." gp para ser teleportado.")
doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
return TRUE
end
doTeleportThing(cid, lugares[1])
doSendMagicEffect(lugares[1], CONST_ME_TELEPORT)
doPlayerSendTextMessage(cid, 22, "" .. getPlayerName(cid) .. " foi teleportado para: \n " .. param .. ".")
return TRUE
end
e a tag
<talkaction words="!tp" script="tpvip.lua"/>
info
Grupo: Herói
Registrado: 20/05/10
Posts: 3.4k
Reputação: +1.5k
Gênero: Masculino
02 de agosto de 2010 às 11:50
@UP
eu fiz aquele script. que é modificado de acordo com o sistema vip dele...
o original ja vem com storage value da vip :]
info
Grupo: Campones
Registrado: 29/04/10
Posts: 74
Reputação: +5
Char no Tibia: Walking Knight
03 de agosto de 2010 às 09:46
Muinto BOm , Vodkart!!! Parabéns!! REP+ Aprovado , so que teve um Errinho!!
StorageValue da minha vip é 9798 ok? e So Olha! falo !tp Templo , e aparece Voce precisa de Vip !
acho que esta eu posso ajudar!!
Onde esta ali no script
vip = "yes", -- somente vip players poderam usar o comando? ("yes" or "no")pz = "no", -- players precisam estar em protection zone para usar? ("yes" or "no").
battle = "yes", -- players deve estar sem battle ("yes" or "no")
custo = "yes", -- se os teleport irão custa ("yes" or "no")
storage = 9798, -- Storage Id da sua vip account caso for usar somente vips
premium = "yes" -- se precisa ser premium account ("yes" or "no")
Mude para
vip = "true", -- somente vip players poderam usar o comando? ("yes" or "no")pz = "no", -- players precisam estar em protection zone para usar? ("yes" or "no").
battle = "yes", -- players deve estar sem battle ("yes" or "no")
custo = "yes", -- se os teleport irão custa ("yes" or "no")
storage = "9798", -- Storage Id da sua vip account caso for usar somente vips
premium = "yes" -- se precisa ser premium account ("yes" or "no")
eu tbm esta com este problema é consegui arrumar deste jeito!!
info
Grupo: Herói
Registrado: 20/05/10
Posts: 3.4k
Reputação: +1.5k
Gênero: Masculino
03 de agosto de 2010 às 12:40
não não
não precisa colocar entre "" porque ja tem a variavel que identifica o numero da storage
tonumber(config.storage)
-------
o script ta funfando 100% aqui,cabei de testa-lo.
info
Grupo: Herói
Registrado: 17/02/08
Posts: 2.5k
Reputação: +193
04 de agosto de 2010 às 16:17
não consegui usando o real server
você digita !tp
e aparece que você não tem vip days.
13540 storage da vip é o mesmo do seu script
info
Grupo: Herói
Registrado: 20/05/10
Posts: 3.4k
Reputação: +1.5k
Gênero: Masculino
04 de agosto de 2010 às 16:43
eu baixei o servidor do realserver e vi que o /addvip dele estava diferente do sistema da talkactions
vc tem que colocar lá o sistema entao do perfect vip system
ou se não modificar a variavel da vip para
if (config.vip == "yes") and vip.hasVip(cid) == FALSE then doPlayerSendCancel(cid,"Você não possui vip.") return TRUE end
Editado Agosto 4 por Vodkart
info
Grupo: Campones
Registrado: 06/05/10
Posts: 33
Reputação: +1
vodkard tem como por exp pro player usar o comando ele precisar de um item tpw o addon doll saka? ele precisa ter tal item ai ele pode executar o comando e ainda necessitaria ser vip tem como??