Ir para conteúdo

(Resolvido)Alguém me ajuda com script ?

Por jhubber
em Suporte Tibia OTServer (Resolvidos)

Featured Replies

Postado
  • Autor
  Em 16/06/2015 em 12:36, Vodkart disse:

posta o erro e tbm posta o eu script

 

 

script:

 

function getPlayerNameByGUID2(n)
local c = db.getResult("SELECT `name` FROM `players` WHERE `id` = "..n..";")
if c:getID() == -1 then
return "SQL_ERROR["..n.."]"
end
return c:getDataString("name")
end
 
function onSay(cid, words, param)
 
local max = 20
local letters_to_next = 20
 
local skills = {
['fist'] = 0,
['club'] = 1,
['sword'] = 2,
['axe'] = 3,
['distance'] = 4,
['shielding'] = 5,
['fishing'] = 6,
['dist'] = 4,
['shield'] = 5,
['fish'] = 6,
}
local name_now
local name = "Highscore for level\n"
local rkn = 0
local no_break = 0
param = string.lower(param)
dofile('config.lua')
if param == "" or param == "level" and ( param ~= "magic" and param == "ml") and skills[param] == nil then
name = name.."\n"
name = name.."Rank Level - Nome do Jogador\n"
local v = db.getResult("SELECT `name`, `level`, `experience` FROM `players` WHERE `group_id` <= 3 ORDER BY `experience` DESC LIMIT 0,"..(max)..";")
repeat
no_break = no_break +1
if v:getID() == -1 then
break
end
rkn = rkn+1
name_now, l = v:getDataString("name"), string.len(v:getDataString("name"))
space = ""
for i=1, letters_to_next-l do
space = space.." "
end
name = name..rkn..". "..v:getDataInt("level") .." - "..name_now..space.." ".."\n" 
if no_break >= 20 then
break
end
until v:next() == false
 
elseif param == "magic" or param == "ml" then
name = name.."\n"
name = name.."Rank Magic - Nome do Jogador\n"
local v = db.getResult("SELECT `name`, `level`, `maglevel` FROM `players` WHERE `group_id` <= 2 ORDER BY `maglevel` DESC LIMIT 0,"..(max)..";")
repeat
if v:getID() == -1 then
break
end
rkn = rkn+1
name_now, l = v:getDataString("name"), string.len(v:getDataString("name"))
space = ""
for i=1, letters_to_next-l do
space = space.." "
end
name = name..rkn..". "..v:getDataInt("maglevel").." - "..name_now..space.." ".." ".."".."\n" 
until v:next() == false
 
elseif param == "reset" or param == "resets" then
name = name.."\n"
name = name.."Rank Reset - Nome do Jogador\n"
local v = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = 2310 ORDER BY cast(value as INTEGER) DESC;")
local kk = 0
 
repeat
if kk == max or v:getID() == -1 then
break
end
kk = kk+1
name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("player_id")))
space = ""
for i=1, letters_to_next-l do
space = space.." "
end
if name_now == nil then
name_now = 'sql error['..v:getDataInt("player_id")..']'
end
name = name..kk..". "..v:getDataInt("value").." - "..name_now..space.." \n"
until v:next() == false
 
elseif skills[param] ~= nil then
name = name.."\n"
name = name.."Rank "..param.." fighting - Nome do Jogador\n"
local v = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = "..skills[param].." ORDER BY `value` DESC;")
local kk = 0
 
repeat
if kk == max or v:getID() == -1 then
break
end
kk = kk+1
name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("player_id")))
space = ""
for i=1, letters_to_next-l do
space = space.." "
end
 
if name_now == nil then
name_now = 'sql error['..v:getDataInt("player_id")..']'
end
name = name..kk..". "..v:getDataInt("value").." - "..name_now..space.." \n"
until v:next() == false
end
if name ~= "Highscore\n" then 
doPlayerPopupFYI(cid, name)
end
 
return TRUE
end

post-172667-0-38724700-1434459625_thumb.

post-172667-0-15483400-1434459630_thumb.

post-172667-0-86310600-1434459650_thumb.

ranks.lua

  • Citar
  • Mention
    • Respostas 13
    • Visualizações 631
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Most Popular Posts

    • Wakon
      Wakon

      É só abrir o script desejado e colocar para retornar caso não seja VIP, exemplo: Após a callback function onSay(cid, words, param) coloque: if vip.hasVip(cid) == false then return doPlayerSendCance

    • Vodkart
      Vodkart

      posta o erro e tbm posta o eu script

    • Vodkart
      Vodkart

      kk, creio que era só colocar um 'return true'   function getPlayerNameByGUID2(n) local c = db.getResult("SELECT `name` FROM `players` WHERE `id` = "..n..";") if c:getID() == -1 then return "SQL_ER

    Posted Images

    Postado
    • Autor
      Em 16/06/2015 em 16:28, Vodkart disse:

    blz, qndo vc executa o script já alterado, qual o erro aparece no distro?

    Esta é a questão, não aparece nenhum erro.

    Porque ele não reconhece isso como um código.

    (Não entendo muito de programação mas fiz um pouco)

     

    E na minha logico na hora que eu chamo o comando ele roda ate na parte 

     

    script:

    

    function getPlayerNameByGUID2(n)
local c = db.getResult("SELECT `name` FROM `players` WHERE `id` = "..n..";")
if c:getID() == -1 then
return "SQL_ERROR["..n.."]"
end
return c:getDataString("name")
end

function onSay(cid, words, param)

if vip.hasVip(cid) == false then
return doPlayerSendCancel(cid, "Você não é VIP!")
end

     

    hora chega nessa parte ele não reconhece mais ou alguma coisa do tipo 
     
    no Distro não aparece nenhum erro (estou começando a achar que é o script do vip que esta errado)
  • Citar
  • Mention
    • Postado
    • Solução

    kk, creio que era só colocar um 'return true'

     

    function getPlayerNameByGUID2(n)
local c = db.getResult("SELECT `name` FROM `players` WHERE `id` = "..n..";")
if c:getID() == -1 then
return "SQL_ERROR["..n.."]"
end
return c:getDataString("name")
end
 
function onSay(cid, words, param)
 
if not vip.hasVip(cid) then
doPlayerSendCancel(cid, "Você não é VIP!") return true
end
local max = 20
local letters_to_next = 20
 
local skills = {
['fist'] = 0,
['club'] = 1,
['sword'] = 2,
['axe'] = 3,
['distance'] = 4,
['shielding'] = 5,
['fishing'] = 6,
['dist'] = 4,
['shield'] = 5,
['fish'] = 6,
}
local name_now
local name = "Highscore for level\n"
local rkn = 0
local no_break = 0
param = string.lower(param)
dofile('config.lua')
if param == "" or param == "level" and ( param ~= "magic" and param == "ml") and skills[param] == nil then
name = name.."\n"
name = name.."Rank Level - Nome do Jogador\n"
local v = db.getResult("SELECT `name`, `level`, `experience` FROM `players` WHERE `group_id` <= 3 ORDER BY `experience` DESC LIMIT 0,"..(max)..";")
repeat
no_break = no_break +1
if v:getID() == -1 then
break
end
rkn = rkn+1
name_now, l = v:getDataString("name"), string.len(v:getDataString("name"))
space = ""
for i=1, letters_to_next-l do
space = space.." "
end
name = name..rkn..". "..v:getDataInt("level") .." - "..name_now..space.." ".."\n" 
if no_break >= 20 then
break
end
until v:next() == false
 
elseif param == "magic" or param == "ml" then
name = name.."\n"
name = name.."Rank Magic - Nome do Jogador\n"
local v = db.getResult("SELECT `name`, `level`, `maglevel` FROM `players` WHERE `group_id` <= 2 ORDER BY `maglevel` DESC LIMIT 0,"..(max)..";")
repeat
if v:getID() == -1 then
break
end
rkn = rkn+1
name_now, l = v:getDataString("name"), string.len(v:getDataString("name"))
space = ""
for i=1, letters_to_next-l do
space = space.." "
end
name = name..rkn..". "..v:getDataInt("maglevel").." - "..name_now..space.." ".." ".."".."\n" 
until v:next() == false
 
elseif param == "reset" or param == "resets" then
name = name.."\n"
name = name.."Rank Reset - Nome do Jogador\n"
local v = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = 2310 ORDER BY cast(value as INTEGER) DESC;")
local kk = 0
 
repeat
if kk == max or v:getID() == -1 then
break
end
kk = kk+1
name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("player_id")))
space = ""
for i=1, letters_to_next-l do
space = space.." "
end
if name_now == nil then
name_now = 'sql error['..v:getDataInt("player_id")..']'
end
name = name..kk..". "..v:getDataInt("value").." - "..name_now..space.." \n"
until v:next() == false
 
elseif skills[param] ~= nil then
name = name.."\n"
name = name.."Rank "..param.." fighting - Nome do Jogador\n"
local v = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = "..skills[param].." ORDER BY `value` DESC;")
local kk = 0
 
repeat
if kk == max or v:getID() == -1 then
break
end
kk = kk+1
name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("player_id")))
space = ""
for i=1, letters_to_next-l do
space = space.." "
end
 
if name_now == nil then
name_now = 'sql error['..v:getDataInt("player_id")..']'
end
name = name..kk..". "..v:getDataInt("value").." - "..name_now..space.." \n"
until v:next() == false
end
if name ~= "Highscore\n" then 
doPlayerPopupFYI(cid, name)
end
 
return true
end
  • Citar
  • Mention
    • Postado

    eu sempre utilizei checando se e vip faz se não retorna mensagem.

     

    Mostrar conteúdo oculto

    function getPlayerNameByGUID2(n)


    local c = db.getResult("SELECT `name` FROM `players` WHERE `id` = "..n..";")
    if c:getID() == -1 then
    return "SQL_ERROR["..n.."]"
    end
    return c:getDataString("name")
    end

    function onSay(cid, words, param)

    if vip.hasVip(cid) == true then

    local max = 20
    local letters_to_next = 20

    local skills = {
    ['fist'] = 0,
    ['club'] = 1,
    ['sword'] = 2,
    ['axe'] = 3,
    ['distance'] = 4,
    ['shielding'] = 5,
    ['fishing'] = 6,
    ['dist'] = 4,
    ['shield'] = 5,
    ['fish'] = 6,
    }
    local name_now
    local name = "Highscore for level\n"
    local rkn = 0
    local no_break = 0
    param = string.lower(param)
    dofile('config.lua')
    if param == "" or param == "level" and ( param ~= "magic" and param == "ml") and skills[param] == nil then
    name = name.."\n"
    name = name.."Rank Level - Nome do Jogador\n"
    local v = db.getResult("SELECT `name`, `level`, `experience` FROM `players` WHERE `group_id` <= 3 ORDER BY `experience` DESC LIMIT 0,"..(max)..";")
    repeat
    no_break = no_break +1
    if v:getID() == -1 then
    break
    end
    rkn = rkn+1
    name_now, l = v:getDataString("name"), string.len(v:getDataString("name"))
    space = ""
    for i=1, letters_to_next-l do
    space = space.." "
    end
    name = name..rkn..". "..v:getDataInt("level") .." - "..name_now..space.." ".."\n"
    if no_break >= 20 then
    break
    end
    until v:next() == false

    elseif param == "magic" or param == "ml" then
    name = name.."\n"
    name = name.."Rank Magic - Nome do Jogador\n"
    local v = db.getResult("SELECT `name`, `level`, `maglevel` FROM `players` WHERE `group_id` <= 2 ORDER BY `maglevel` DESC LIMIT 0,"..(max)..";")
    repeat
    if v:getID() == -1 then
    break
    end
    rkn = rkn+1
    name_now, l = v:getDataString("name"), string.len(v:getDataString("name"))
    space = ""
    for i=1, letters_to_next-l do
    space = space.." "
    end
    name = name..rkn..". "..v:getDataInt("maglevel").." - "..name_now..space.." ".." ".."".."\n"
    until v:next() == false

    elseif param == "reset" or param == "resets" then
    name = name.."\n"
    name = name.."Rank Reset - Nome do Jogador\n"
    local v = db.getResult("SELECT `player_id`, `value` FROM `player_storage` WHERE `key` = 2310 ORDER BY cast(value as INTEGER) DESC;")
    local kk = 0

    repeat
    if kk == max or v:getID() == -1 then
    break
    end
    kk = kk+1
    name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("player_id")))
    space = ""
    for i=1, letters_to_next-l do
    space = space.." "
    end
    if name_now == nil then
    name_now = 'sql error['..v:getDataInt("player_id")..']'
    end
    name = name..kk..". "..v:getDataInt("value").." - "..name_now..space.." \n"
    until v:next() == false

    elseif skills[param] ~= nil then
    name = name.."\n"
    name = name.."Rank "..param.." fighting - Nome do Jogador\n"
    local v = db.getResult("SELECT `player_id`, `value` FROM `player_skills` WHERE `skillid` = "..skills[param].." ORDER BY `value` DESC;")
    local kk = 0

    repeat
    if kk == max or v:getID() == -1 then
    break
    end
    kk = kk+1
    name_now, l = getPlayerNameByGUID2(v:getDataInt("player_id")), string.len(getPlayerNameByGUID2(v:getDataInt("player_id")))
    space = ""
    for i=1, letters_to_next-l do
    space = space.." "
    end

    if name_now == nil then
    name_now = 'sql error['..v:getDataInt("player_id")..']'
    end
    name = name..kk..". "..v:getDataInt("value").." - "..name_now..space.." \n"
    until v:next() == false
    end
    if name ~= "Highscore\n" then
    doPlayerPopupFYI(cid, name)
    end
    else
    doPlayerSendCancel(cid, 'this command is a VIP benefit.')
    end
    return TRUE
    end

  • Citar
  • Mention

    • Participe da conversa

    Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

    Visitante
    Responder
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.6k

    Informação Importante

    Confirmação de Termo

    I accept