posta ae luck pra contar as warnings por accounts.
LU
sistema
Radbr Banishment System [Atualizado]
By LuckOake, 03 de nov. de 2012 in Mods, funções e outros
script
5.0 (1)
30
7.2k
info
Group: Visconde
Joined: 21/08/11
Posts: 470
Reputation: +5
Tibia Character: ...
04 de novembro de 2012 às 20:32
Edited Novembro 4 by KennyxD
info
Group: Marquês
Joined: 22/07/12
Posts: 1.1k
Reputation: +400
Gender: Masculino
Tibia Character: Luck Oake
04 de novembro de 2012 às 20:33
Script atualizado!
04 de novembro de 2012 às 21:46
Deu erro. Executei a função na database normalmente e da este erro:
[4/11/2012 21:44:20] [Error - TalkAction Interface]
[4/11/2012 21:44:20] local cid = 268442056
[4/11/2012 21:44:20] local words = "/ban"
[4/11/2012 21:44:20] local param = "Wern Takapox,Ofensa,2"
[4/11/2012 21:44:20] local channel = 65534
[4/11/2012 21:44:20] domodlib('radban')
[4/11/2012 21:44:20] local t = string.explode(param, ",")
[4/11/2012 21:44:21] local a = {
[4/11/2012 21:44:21] [1] = 7,
[4/11/2012 21:44:21] [2] = 14,
[4/11/2012 21:44:21] [3] = 30,
[4/11/2012 21:44:21] [4] = 60,
[4/11/2012 21:44:21] [5] = 9999,
[4/11/2012 21:44:21] [6] = 9999,
[4/11/2012 21:44:21] [7] = 9999,
[4/11/2012 21:44:21] [8] = 9999,
[4/11/2012 21:44:22] [9] = 9999,
[4/11/2012 21:44:22] [10] = 9999,
[4/11/2012 21:44:22] [11] = 9999,
[4/11/2012 21:44:22] }
[4/11/2012 21:44:22]
[4/11/2012 21:44:22] local b = a[t[3]]
[4/11/2012 21:44:22]
[4/11/2012 21:44:22] if not t[2] or tonumber(t[2]) or t[3] and not tonumber(t[3]) or t[4] then
[4/11/2012 21:44:22] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Especifique nome,motivo,warnings(opcional).") return true
[4/11/2012 21:44:23] elseif not getPlayerGUIDByName(t[1]) then
[4/11/2012 21:44:23] doPlayerSendCancel(cid, "O jogador "..t[1].." não existe.") return true
[4/11/2012 21:44:23] elseif isAccountBanished(getAccountIdByName(t[1])) then
[4/11/2012 21:44:23] doPlayerSendCancel(cid, "O player "..t[1].." já está banido.") return true
[4/11/2012 21:44:23] elseif t[3] and tonumber(t[3]) < 1 then
[4/11/2012 21:44:23] doPlayerSendCancel(cid, "Desculpe, mas o mínimo de warnings é 1.") return true
[4/11/2012 21:44:23] elseif t[3] and tonumber(t[3]) > 11 then
[4/11/2012 21:44:23] doPlayerSendCancel(cid, "Desculpe, mas o máximo de warnings é 11.") return true
[4/11/2012 21:44:24] elseif not getWarnings(t[1]) or getWarnings(t[1]) < 0 then
[4/11/2012 21:44:24] setWarnings(t[1], 0)
[4/11/2012 21:44:24] elseif t[3] and tonumber(t[3]) <= getWarnings(t[1]) then
[4/11/2012 21:44:24] doPlayerSendCancel(cid, "Desculpe, mas esse player já tem "..getWarnings(t[1]).." warnings.") return true
[4/11/2012 21:44:24] end
[4/11/2012 21:44:24]
[4/11/2012 21:44:24] if getPlayerByName(t[1]) then
[4/11/2012 21:44:24] doRemoveCreature(getPlayerByName(t[1]))
[4/11/2012 21:44:24] end
[4/11/2012 21:44:25] if t[3] then
[4/11/2012 21:44:25] doAddBanishment(getAccountIdByName(t[1]), os.time() + (a[tonumber(t[3])]*3600*24), 1, 2, t[2], 0)
[4/11/2012 21:44:25] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você baniu o jogador "..t[1]..". Warnings setadas de "..getWarnings(t[1]).." para "..t[3]..".")
[4/11/2012 21:44:25] broadcastMessage("Jogador "..t[1].." notificado por "..getCreatureName(cid)..". Notificações setadas de "..getWarnings(t[1]).." para "..t[3]..". Comentário: "..t[2]..".")
[4/11/2012 21:44:25] setWarnings(t[1], tonumber(t[3]))
[4/11/2012 21:44:25] else
[4/11/2012 21:44:25] doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você baniu o jogador "..t[1]..". Warnings setadas de "..getWarnings(t[1]).." para "..(getWarnings(t[1])+1)..".")
[4/11/2012 21:44:25] broadcastMessage("O jogador "..t[1].." foi banido por "..getCreatureName(cid)..". Warnings setadas de "..getWarnings(t[1]).." para "..(getWarnings(t[1])+1)..". Comentário: "..t[2]..".")
[4/11/2012 21:44:25] setWarnings(t[1], getWarnings(t[1])+1)
[4/11/2012 21:44:26] doAddBanishment(getAccountIdByName(t[1]), os.time() + (a[getWarnings(t[1])]*3600*24), 1, 2, t[2], 0)
[4/11/2012 21:44:26] end
[4/11/2012 21:44:26] return true
[4/11/2012 21:44:26]
[4/11/2012 21:44:26] Description:
[4/11/2012 21:44:26] [string "LuaInterface::loadBuffer"]:43: attempt to call global 'doAddBanishment' (a nil value)
[4/11/2012 21:44:47] Wern Takapox has logged in.
Meu script
<?xml version="1.0" encoding="ISO-8859-1"?>
<mod name="RadBr Banishment System" version="1.0" author="LuckOake" contact="none" enabled="yes">
------------------------------------------------------------------------------------
<config name="radban"><![CDATA[
barid = 9971 -- ID das barras para desbanir
function getPlayerAccountStorageValue(name, key)
local result, ret = db.getResult("SELECT `value` FROM `account_storage` WHERE `acc_id` = '".. getAccountIdByName(name) .."' AND `key` = ".. key ..";")
if result:getID() == -1 then
return nil
end
ret = result:getDataInt("value")
result:free()
return ret
end
function setPlayerAccountStorageValue(name, key, value)
local result = db.getResult("SELECT * FROM `account_storage` WHERE `acc_id` = ".. getAccountIdByName(name) .." AND `key` = ".. key ..";")
if result:getID() == -1 then
return db.executeQuery("INSERT INTO `account_storage` (`acc_id`, `key`, `value`) VALUES (".. getAccountIdByName(name) ..", ".. key ..", ".. value ..");")
else
result:free()
return db.executeQuery("UPDATE `account_storage` SET `value` = ".. value .." WHERE `acc_id` = ".. getAccountIdByName(name) .." AND `key` = ".. key ..";")
end
end
function getWarnings(name)
return getPlayerAccountStorageValue(name, 21798)
end
function setWarnings(name, count)
return setPlayerAccountStorageValue(name, 21798, count)
end
]]></config>
------------------------------------------------------------------------------------
<talkaction words="/ban" event="buffer"><![CDATA[
domodlib('radban')
local t = string.explode(param, ",")
local a = {
[1] = 7,
[2] = 14,
[3] = 30,
[4] = 60,
[5] = 9999,
[6] = 9999,
[7] = 9999,
[8] = 9999,
[9] = 9999,
[10] = 9999,
[11] = 9999,
}
local b = a[t[3]]
if not t[2] or tonumber(t[2]) or t[3] and not tonumber(t[3]) or t[4] then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Especifique nome,motivo,warnings(opcional).") return true
elseif not getPlayerGUIDByName(t[1]) then
doPlayerSendCancel(cid, "O jogador "..t[1].." não existe.") return true
elseif isAccountBanished(getAccountIdByName(t[1])) then
doPlayerSendCancel(cid, "O player "..t[1].." já está banido.") return true
elseif t[3] and tonumber(t[3]) < 1 then
doPlayerSendCancel(cid, "Desculpe, mas o mínimo de warnings é 1.") return true
elseif t[3] and tonumber(t[3]) > 11 then
doPlayerSendCancel(cid, "Desculpe, mas o máximo de warnings é 11.") return true
elseif not getWarnings(t[1]) or getWarnings(t[1]) < 0 then
setWarnings(t[1], 0)
elseif t[3] and tonumber(t[3]) <= getWarnings(t[1]) then
doPlayerSendCancel(cid, "Desculpe, mas esse player já tem "..getWarnings(t[1]).." warnings.") return true
end
if getPlayerByName(t[1]) then
doRemoveCreature(getPlayerByName(t[1]))
end
if t[3] then
doAddBanishment(getAccountIdByName(t[1]), os.time() + (a[tonumber(t[3])]*3600*24), 1, 2, t[2], 0)
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você baniu o jogador "..t[1]..". Warnings setadas de "..getWarnings(t[1]).." para "..t[3]..".")
broadcastMessage("Jogador "..t[1].." notificado por "..getCreatureName(cid)..". Notificações setadas de "..getWarnings(t[1]).." para "..t[3]..". Comentário: "..t[2]..".")
setWarnings(t[1], tonumber(t[3]))
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você baniu o jogador "..t[1]..". Warnings setadas de "..getWarnings(t[1]).." para "..(getWarnings(t[1])+1)..".")
broadcastMessage("O jogador "..t[1].." foi banido por "..getCreatureName(cid)..". Warnings setadas de "..getWarnings(t[1]).." para "..(getWarnings(t[1])+1)..". Comentário: "..t[2]..".")
setWarnings(t[1], getWarnings(t[1])+1)
doAddBanishment(getAccountIdByName(t[1]), os.time() + (a[getWarnings(t[1])]*3600*24), 1, 2, t[2], 0)
end
return true
]]></talkaction>
------------------------------------------------------------------------------------
<talkaction words="!unban" event="buffer"><![CDATA[
domodlib('radban')
local a = {
[1] = 20,
[2] = 40,
[3] = 60,
[4] = 90,
[5] = 120,
[6] = 150,
[7] = 250,
[8] = 350,
[9] = 500,
[10] = 750,
[11] = 999,
}
b = a[getWarnings(param)]
if not getPlayerGUIDByName(param) then
doPlayerSendCancel(cid, "O jogador "..param.." não existe.") return true
elseif not isAccountBanished(getAccountIdByName(param)) then
doPlayerSendCancel(cid, "Esse jogador não está banido.") return true
elseif not doPlayerRemoveItem(cid, barid, b) then
doPlayerSendCancel(cid, "Você deve ter "..b.." moedas para desbanir esse jogador.") return true
end
doRemoveAccountBanishment(getAccountIdByName(param))
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Você desbaniu o jogador "..param.." pelo preço de "..b.." moedas.")
return true
]]></talkaction>
</mod>
@Edit não está banindo, está kikando o personagem e dando este erro.
Edited Novembro 4 by Lummos
info
Group: Barão
Joined: 23/03/08
Posts: 205
Reputation: +4
04 de novembro de 2012 às 21:58
Eu tambem tenho server 960 e nao funciona apareceu esse erro, eu troquei o que voce pediu la emcima.
o player levou kick e tudo mais entrou normalmente....
[4/11/2012 21:53:54] [Error - TalkAction Interface][4/11/2012 21:53:54] data/talkactions/scripts/radbrban.lua:onSay
[4/11/2012 21:53:54] Description:
[4/11/2012 21:53:54] data/talkactions/scripts/radbrban.lua:47: attempt to call global 'doAddBanishment' (a nil value)
[4/11/2012 21:53:54] stack traceback:
[4/11/2012 21:53:54] data/talkactions/scripts/radbrban.lua:47: in function <data/talkactions/scripts/radbrban.lua:1>
[4/11/2012 21:53:57] Ewerton Lima has logged in.
[4/11/2012 21:54:56] Ewerton Lima has logged out.
[4/11/2012 21:54:56] [Error - TalkAction Interface]
[4/11/2012 21:54:56] data/talkactions/scripts/radbrban.lua:onSay
[4/11/2012 21:54:56] Description:
[4/11/2012 21:54:56] data/talkactions/scripts/radbrban.lua:39: attempt to call global 'doAddBanishment' (a nil value)
[4/11/2012 21:54:56] stack traceback:
[4/11/2012 21:54:56] data/talkactions/scripts/radbrban.lua:39: in function <data/talkactions/scripts/radbrban.lua:1>
04 de novembro de 2012 às 22:51
Esses 9.6 tão zika da balada d+.
info
Group: Visconde
Joined: 21/08/11
Posts: 470
Reputation: +5
Tibia Character: ...
04 de novembro de 2012 às 23:06
testado novamente na verção 8.60 e funcionou perfeitamente jaja irei testar no meu servidor 9.53 e posto aki
e luck queria saber se voce poderia criar 1 comando para os players poderem saber quantas warnings tem na acc exemplo !warnings ai vai aparecer pro proprio player quantas warnings ele tem e se possivel criar tbm no comando !warnings Juca tipo isso para que os outros players possam saber quantas warnings tem o do outro player tenhu um exemplo aki de 1 comando que faz mais o menos isso ai é so voce editar
function onSay(cid, words, param, channel) if(param == '') then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "\nSeu skill axe é: " .. getPlayerSkillLevel(cid, SKILL_AXE) .. "") return true end if isPremium(cid) == TRUE then local pid = getPlayerByNameWildcard(param) if(not pid or (isPlayerGhost(pid) and getPlayerGhostAccess(pid) > getPlayerGhostAccess(cid))) then doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "O jogador com o nome " .. param .. " não esta online ou não existe.") return true end doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "\nSkill axe de [ " .. getCreatureName(pid) .. " ] " .. getPlayerSkillLevel(pid, SKILL_AXE) .. "") else doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Apenas jogadores VIP podem utilizar este comando para visualizar informações de outros jogadores.") end return true end
a uma coisa edita pra que de pra ver as warnings mesmo o player estando off.
Edited Novembro 4 by KennyxD
info
Group: Marquês
Joined: 22/07/12
Posts: 1.1k
Reputation: +400
Gender: Masculino
Tibia Character: Luck Oake
05 de novembro de 2012 às 21:49
@Pra galera do 9.6
Realmente não sei mais o que fazer, já tentei as únicas funções que eu conhecia e pelo visto não funcionaram.
@KennyxD
Só fazer assim:
function getPlayerAccountStorageValue(name, key)
local result, ret = db.getResult("SELECT `value` FROM `account_storage` WHERE `acc_id` = '".. getAccountIdByName(name) .."' AND `key` = ".. key ..";")
if result:getID() == -1 then
return nil
end
ret = result:getDataInt("value")
result:free()
return ret
end
function getWarnings(name)
return getPlayerAccountStorageValue(name, 21798)
end
function onSay(cid, words, param)
if not param then
doPlayerSendCancel(cid, "Você possui "..getWarnings(getCreatureName(cid)).." warnings.") return true
elseif param and playerExists(param) then
doPlayerSendCancel(cid, "O player "..param.." possui "..getWarnings(param).." warnings.") return true
else
doPlayerSendCancel(cid, "Esse player não existe.") return true
end
return true
end
Edited Novembro 5 by LuckOake
info
Group: Visconde
Joined: 21/08/11
Posts: 470
Reputation: +5
Tibia Character: ...
06 de novembro de 2012 às 01:24
@ luckoake
aki a talkction acima /\ deu esse erro aki
[06/11/2012 01:22:29] [Error - TalkAction Interface] [06/11/2012 01:22:29] data/talkactions/scripts/warnings.lua:onSay [06/11/2012 01:22:29] Description: [06/11/2012 01:22:29] data/talkactions/scripts/warnings.lua:19: attempt to concatenate a nil value [06/11/2012 01:22:29] stack traceback: [06/11/2012 01:22:29] data/talkactions/scripts/warnings.lua:19: in function <data/talkactions/scripts/warnings.lua:15>
06 de novembro de 2012 às 13:19
@Luck
Tente criar uma função na LIB nova para que o player seja banido. Pode funcionar. No RadBR, creio que foi feito isso.
Se possível veja meu post neste tópico. O último.
http://www.xtibia.com/forum/topic/197578-characters-market-system-in-game/
Abraços.
info
Group: Marquês
Joined: 22/07/12
Posts: 1.1k
Reputation: +400
Gender: Masculino
Tibia Character: Luck Oake
07 de novembro de 2012 às 20:08
@KennyxD
Vê se dá agora:
function getPlayerAccountStorageValue(name, key)
local result, ret = db.getResult("SELECT `value` FROM `account_storage` WHERE `acc_id` = '".. getAccountIdByName(name) .."' AND `key` = ".. key ..";")
if result:getID() == -1 then
return nil
end
ret = result:getDataInt("value")
result:free()
return ret
end
function getWarnings(name)
return getPlayerAccountStorageValue(name, 21798)
end
function onSay(cid, words, param)
if not param then
doPlayerSendCancel(cid, "Você possui "..getWarnings(getCreatureName(cid)).." warnings.") return true
elseif param then
if not playerExists(param) then
doPlayerSendCancel(cid, "Esse player não existe.") return true
end
doPlayerSendCancel(cid, "O player "..param.." possui "..getWarnings(param).." warnings.") return true
end
return true
end
@Lummos
Posso tentar, mas nada garantido.
info
Group: Visconde
Joined: 21/08/11
Posts: 470
Reputation: +5
Tibia Character: ...
08 de novembro de 2012 às 04:16
agora deu esse erro aki
[08/11/2012 04:15:34] [Error - TalkAction Interface] [08/11/2012 04:15:34] data/talkactions/scripts/warnings.lua:onSay [08/11/2012 04:15:34] Description: [08/11/2012 04:15:34] data/talkactions/scripts/warnings.lua:22: attempt to concatenate a nil value [08/11/2012 04:15:34] stack traceback: [08/11/2012 04:15:34] data/talkactions/scripts/warnings.lua:22: in function <data/talkactions/scripts/warnings.lua:15>
info
Group: Marquês
Joined: 22/07/12
Posts: 1.1k
Reputation: +400
Gender: Masculino
Tibia Character: Luck Oake
08 de novembro de 2012 às 13:41
@jNNo
Sim, funciona em 8.6. E o ban não é por IP, mas mesmo se fosse, se o cara mudasse o IP, conseguiria voltar ao server.
3 weeks later...
info
Group: Visconde
Joined: 21/08/11
Posts: 470
Reputation: +5
Tibia Character: ...
26 de novembro de 2012 às 00:04
@luckoake achei um pequeno bug exemplo nome do adm é {ADM} Master Viciado ai eu do ban no player ai ta blz vai aparecer a mensagem na tela player tal banido por {ADM} Master Viciado etc so que tipo quando o player vai logar apos ser banido aparece a mensagem que a account está banida porem lá não mostra o nome de quem baniu la fica escrito automatic banishiment. era pra ficar o nome de quem baniu se presisar posto umas imagems pra você entender melhor
2 years later...
info
Group: Campones
Joined: 18/08/12
Posts: 61
Reputation: -1
20 de maio de 2015 às 18:34
18:33 Você baniu o jogador Toreatea. Warnings setadas de 3 para 5.
Eu dou ban mas o player continua logando, ajuda ai
EDIT: aparece um linha no sql mas mesmo assim não está proibindo o player de entrar.
Edited Maio 20 by felipeomatad
info
Group: Artesão
Joined: 27/10/12
Posts: 102
Reputation: +12
Tibia Character: Não tenho
@Luck
Se possível postar para contar por accounts.
Sobre a função de 8.7+ tente usar a qual Vodkart mostrou:
doAddBanishment(accId[, length[, reason[, action[, comment[, admin]]]]])