talkaction [ Talkaction ]Teleport Por Talk. Para Vip

[skolfuriosos 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??

[Vodkart 1515]

sim tem sim

 

mais iria remover o item quando ele usasse?

[skolfuriosos 1]

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...

 

[Vodkart 1515]

ta na mão então parcerinho

 

 

  Mostrar conteúdo oculto

 

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, 2010 por Vodkart

[skolfuriosos 1]

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, 2010 por Skolzim

[Vodkart 1515]

é pelo oque então?

[skolfuriosos 1]

usou este sisteminha vip aquii óoh do kekox da otland

 

http://otland.net/f163/best-vip-system-ever-action-movevent-globalevent-71638/

[Vodkart 1515]

tenta então:

 

 

  Mostrar conteúdo oculto

 

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

 

 

[skolfuriosos 1]

hohoh precisa fala mais nada néa? ;x

 

vlw cara work ´perfect

se é foda em ;x

 

[BlackStoner 0]

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!!

 

 

  Mostrar conteúdo oculto

 

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

 

 

  Mostrar conteúdo oculto

 

<talkaction words="!tp" script="tpvip.lua"/>

 

 

[Vodkart 1515]

@UP

 

eu fiz aquele script. que é modificado de acordo com o sistema vip dele...

o original ja vem com storage value da vip :]

[ZaskxD 5]

  Citar

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

  Citar

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

  Citar

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!!

[Vodkart 1515]

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.

[Henrique Moura 193]

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

[Vodkart 1515]

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, 2010 por Vodkart