Ir para conteúdo

(Resolvido)Alguém me ajuda com script ?

Por jhubber
em Suporte Tibia OTServer (Resolvidos)

Featured Replies

Postado
  • Autor

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

 

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

 

 

Coloquei esse codigo agora começou a dar esse erro 

 

" [17/06/2015 11:11:11] [Error - TalkAction Interface] 

[17/06/2015 11:11:11] data/talkactions/scripts/ranks.lua:onSay
[17/06/2015 11:11:11] Description: 
[17/06/2015 11:11:11] data/talkactions/scripts/ranks.lua:11: attempt to index global 'vip' (a nil value)
[17/06/2015 11:11:11] stack traceback:
[17/06/2015 11:11:11] data/talkactions/scripts/ranks.lua:11: in function <data/talkactions/scripts/ranks.lua:9> "

 

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

Infelizmente esse código também deu erro no Distro :/

 

[Error - TalkAction Interface] 
[17/06/2015 11:15:53] data/talkactions/scripts/ranks.lua:onSay
[17/06/2015 11:15:53] Description: 
[17/06/2015 11:15:53] data/talkactions/scripts/ranks.lua:11: attempt to index global 'vip' (a nil value)
[17/06/2015 11:15:53] stack traceback:
[17/06/2015 11:15:53] data/talkactions/scripts/ranks.lua:11: in function <data/talkactions/scripts/ranks.lua:9>
  • Citar
  • Mention
    • Respostas 13
    • Visualizações 633
    • 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

    os 2 script não encontrou "vip", oque é estranho pois deveria estar declarado na lib do sistema.

     

    reinstala a lib do sistema.

    1° - Acesse a pasta data/lib e crie um arquivo chamado 049-vipsys.lua, coloque isso dentro do arquivo:

    vip = {


    name = "VIP System";
    author = "Mock";
    version = "1.0.0.0";
    query="ALTER TABLE `accounts` ADD `vip_time` INTEGER";
    query2="ALTER TABLE `accounts` ADD `vip_time` INT(15) NOT NULL"
    }

    function vip.setTable()
    dofile('config.lua')
    if sqlType == "sqlite" then
    db.executeQuery(vip.query)
    else
    db.executeQuery(vip.query2)
    end
    end

    function vip.getVip(cid)
    assert(tonumber(cid),'Parameter must be a number')
    if isPlayer(cid) == FALSE then error('Player don\'t find') end;
    ae = db.getResult("SELECT `vip_time` FROM `accounts` WHERE `name` = '"..getPlayerAccount(cid).."';")
    if ae:getID() == -1 then
    return 0
    end

    local retee = ae:getDataInt("vip_time") or 0
    ae:free()
    return retee
    end

    function vip.getVipByAcc(acc)
    assert(acc,'Account is nil')
    local a = db.getResult("SELECT `vip_time` FROM `accounts` WHERE `name` = '"..acc.."';")
    if a:getID() ~= -1 then
    return a:getDataInt("vip_time") or 0, a:free()
    else
    error('Account don\'t find.')
    end
    end

    function vip.setVip(cid,time)
    dofile("config.lua")
    assert(tonumber(cid),'Parameter must be a number')
    assert(tonumber(time),'Parameter must be a number')
    if isPlayer(cid) == FALSE then error('Player don\'t find') end;
    db.executeQuery("UPDATE `"..sqlDatabase.."`.`accounts` SET `vip_time` = '"..(os.time()+time).."' WHERE `accounts`.`name` ='".. getPlayerAccount(cid).."';")
    end

    function vip.getVipByAccount(acc)
    assert(acc,'Account is nil')
    return db.getResult("SELECT `vip_time` FROM `accounts` WHERE `name` = '"..acc.."';"):getDataInt("vip_time") or 0
    end

    function vip.hasVip(cid)
    assert(tonumber(cid),'Parameter must be a number')
    if isPlayer(cid) == FALSE then return end;
    local t = vip.getVip(cid) or 0
    if os.time(day) < t then
    return TRUE
    else
    return FALSE
    end
    end

    function vip.hasVips(cid)
    assert(tonumber(cid),'Parameter must be a number')
    if isPlayer(cid) == FALSE then return end;
    local t = vip.getVip(cid)
    if os.time(day) < t then
    return TRUE
    else
    return FALSE
    end
    end

    function vip.accountHasVip(acc)
    assert(acc,'Account is nil')
    if os.time() < vip.getVipByAccount(acc) then
    return TRUE
    else
    return FALSE
    end
    end
    function vip.getDays(days)
    return (3600 * 24 * days)
    end

    function vip.addVipByAccount(acc,time)
    assert(acc,'Account is nil')
    assert(tonumber(time),'Parameter must be a number')
    local a = vip.getVipByAcc(acc)
    a = os.difftime(a,os.time())
    if a < 0 then a = 0 end;
    a = a+time
    return vip.setVipByAccount(acc,a)
    end

    function vip.setVipByAccount(acc,time)
    dofile("config.lua")
    assert(acc,'Account is nil')
    assert(tonumber(time),'Parameter must be a number')
    db.executeQuery("UPDATE `accounts` SET `vip_time` = '"..(os.time()+time).."' WHERE `accounts`.`name` ='"..acc.."';")
    return TRUE
    end

    function vip.returnVipString(cid)
    assert(tonumber(cid),'Parameter must be a number')
    if isPlayer(cid) == TRUE then
    return os.date("%d %B %Y %X ", vip.getVip(cid))
    end
    end

    Editado por klipstyle (veja o histórico de edições)

  • Citar
  • Mention
    • Postado
    • Autor

    E ai galera ate que fim consegui *------* 

    Muito obrigado pela a atenção de você e por compartilha o conhecimento de vcs *-*

    Queria poder dar "Melhor Resposta!" !!!

     

    Tópico resolvido

  • 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