Anti Divulgação em LUA

[Lyu 288]

Testado apenas em TFS 0.4

 

Em "Data/talkactions", no arquivo talkactions.xml, adicione a tag:

<talkaction default="yes" filter="quotation" logged="no" hidden="yes" event="script" value="antidiv.lua"/>

Em "Data/talkactions/scripts", crie um arquivo.LUA e renomeie para antidiv.lua, apague tudo e cole:

local words_, prev = {"org","no-ip","net","com","pl","biz","servegame","br","sytes","info"}, {".",",",";"}

function onSay(cid, words)    
    for _, w in ipairs(words_) do
        for _, p in ipairs(prev) do
            if(words:lower():find(p..''..w, 1, true)) then
                return doPlayerSendCancel(cid, 'You can\'t send this message.')    
            end
        end
    end
end

Na tabela prev..

 

Você pode adicionar na tabela, o que vem antes de "net", "org" e etc..

ex : se eu adicionar um til "~", não vai dá pra divulgar assim : "www.etcetc~org"

{".",",",";"}

Já existem 'ponto', 'vírgula' e 'ponto e vírgula' dentro da tabela.

Então é impossível divulgar dos seguintes modos :

 

entrem aqui otfodao.com

entrem nesse ot baiakzikaofodapakas,com

novo ot lançado hoje, entrem www.otnoob;net

 

 

Créditos : EU

Editado Julho 27, 2015 por HallsSantos
Tópico organizado a pedido do autor do tópico. (veja o histórico de edições)

[Wakon 912]

Desculpe a demora, tópico aprovado e movido a área correta, obrigado por compartilhar .

Você recebeu um REP pela contribuição!

[Lyu 288]

Muito obrigado Walkon!

[Wise 445]

Bacana e simples, reputado.

[p e o p l e 50]

Testado e aprovado. REP+

Agora só modificar e colocar todos os jeitos UHAUHAHU ,net , net . net etc.. HAHA

[Lyu 288]

sim, eu coloquei só alguns ahsuau.. aah! também devo lembrar que esse script pode ser reaproveitado para bloquear palavroes, só adicioná-los na tabela. detecta até frase do tipo "vai se fud*#". ahsuahsua.

[p e o p l e 50]

Nem precisei alterar nada, não consigo divulgar . net , net HAHA, gostei.

[Mdcrf 7]

Muito bom amigo! estava procurando como editar nas sources e achei esse tópico que me poupou bastante tempo e trabalho, obrigado mesmo ;]

 

se possivel seria bom colocar um porem para algumas palavras tipo morgaroth, internet e algumas outras coisas, mas já estou usando mesmo assim 

REP+

[Lyu 288]

Sim! Desde o mesmo feito pelo luan nas sources, esse sistema possui essa coisa chata que é bloquear strings concatenadas com as que estao nas tabelas.

Morgaroth possui "org";

Internet possui "net".

isso é chatinho né? :v kk mas depois eu faço uma modificação e se der um bom resultado, eu atualizo o tópico.

[Wise 445]

Desde o mesmo feito pelo luan nas sources, esse sistema possui essa coisa chata que é bloquear strings concatenadas com as que estao nas tabelas

Basta alterar a função orientada a objetos :find fazendo uso de seu último argumento, que desativa os patterns.

Refiz aqui:

local w = {'.org', '.no-ip', '.net', '.com', '.pl', '.biz', '.servegame', '.br', '.sytes', '.info'}

function onSay(cid, words)
    for _, word in ipairs(w) do
        if words:lower():find(word, 1, true) then
            return doPlayerSendCancel(cid, 'You can\'t send this message.')
        end
    end
    
    return false
end

[acesso123 6]

Esse script funciona pra TFS 1.0 ?

 

Na minha distro apos colocar e iniciar aconteceu este erro

 

 

Alguem sabe o que pode ser?

Editado Julho 19, 2015 por acesso123 (veja o histórico de edições)

[p e o p l e 50]

 

Basta alterar a função orientada a objetos :find fazendo uso de seu último argumento, que desativa os patterns.

Refiz aqui:

local w = {'.org', '.no-ip', '.net', '.com', '.pl', '.biz', '.servegame', '.br', '.sytes', '.info'}

function onSay(cid, words)
    for _, word in ipairs(w) do
        if words:lower():find(word, 1, true) then
            return doPlayerSendCancel(cid, 'You can\'t send this message.')
        end
    end
    
    return false
end

 

Não funcionou aqui.

[Lyu 288]

Basta alterar a função orientada a objetos :find fazendo uso de seu último argumento, que desativa os patterns.

Refiz aqui:

local w = {'.org', '.no-ip', '.net', '.com', '.pl', '.biz', '.servegame', '.br', '.sytes', '.info'}

function onSay(cid, words)
    for _, word in ipairs(w) do
        if words:lower():find(word, 1, true) then
            return doPlayerSendCancel(cid, 'You can\'t send this message.')
        end
    end
    
    return false
end

Então, antes de eu ver o teu post eu estava estudando a função no manual. O seu script ficou correto, porém você adicionou um return true em uma função em que qualquer palavra digitada pelo player, executa o script. Então creio que o player irá ficar mudo, né? ahsuahau eu mechi no script e achei um modo melhor de evitar alguns bugs bobos. Mas obrigado pr ajudar, é sempre bom tirarmos conclusões.

[acesso123 6]

Então, compartilha o script conosco xD

So uma pergunta, a tag esta correta?

[Wise 445]

porém você adicionou um return true

 

É, eu acabei retornando true por engano.

Enfim, basta utilizar o último parâmetro da função de modo a desativar os patterns para que o script execute como você quer.

local w = {'.org', '.no-ip', '.net', '.com', '.pl', '.biz', '.servegame', '.br', '.sytes', '.info'}

function onSay(cid, words)
    for _, word in ipairs(w) do
        if words:lower():find(word, 1, true) then
            return doPlayerSendCancel(cid, 'You can\'t send this message.')
        end
    end
    
    return false
end

[Lyu 288]

É, eu acabei retornando true por engano.

Enfim, basta utilizar o último parâmetro da função de modo a desativar os patterns para que o script execute como você quer.

local w = {'.org', '.no-ip', '.net', '.com', '.pl', '.biz', '.servegame', '.br', '.sytes', '.info'}

function onSay(cid, words)
    for _, word in ipairs(w) do
        if words:lower():find(word, 1, true) then
            return doPlayerSendCancel(cid, 'You can\'t send this message.')
        end
    end
    
    return false
end

Haha obg

desculpa acesso123, no momento estou sem internet mas em breve eu atualizo o tópico.

[luanluciano93 1994]

Seria legal um desse para o TFS mais atual, eu até tentei, mas não achei esses parâmetros na tag do talkactions ... 

[acesso123 6]

Haha obg desculpa acesso123, no momento estou sem internet mas em breve eu atualizo o tópico.

 

Pow beleza cara. É que gostei muito desse script, e como ainda não sei como fazer esse tipo de script, cai bem. Muito bom mesmo, no meu tfs não rodou, mas se tiver como rodar em tfs 1.0 acho que ja vai ajudar muitos usuarios. 

[Lyu 288]

Pow beleza cara. É que gostei muito desse script, e como ainda não sei como fazer esse tipo de script, cai bem. Muito bom mesmo, no meu tfs não rodou, mas se tiver como rodar em tfs 1.0 acho que ja vai ajudar muitos usuarios.

Da pra fazer pra tfs 1.0 mas o jeito de programar é diferente e eu nunca programei nessa versão. Porém, é só mudar os códigos pra outra versão que funciona. se eu tivesse com net, eu te ajudaria mas minha situação ta braba ahsusu tive até q pedir ao Wakon pra editar o tópico pq postei o script pelo celular. :/

[iErrorzz 18]

Esse Codigo Ele bloquea menssagem Com espaço e tals, Mas bloquea Palavras Tipo "Dormi Com Sono Hoje"