PtokaX forum

Archive => Archived 5.0 boards => Finished Scripts => Topic started by: badtrip on 24 June, 2005, 16:54:57

Title: 666 in portuguese
Post by: badtrip on 24 June, 2005, 16:54:57
same script in portuguese by badtrip  ;)


--Lucifer 6.6.6-- updated version
--converted to LUA 5 by jiten
--This is a Powerful AntiAdvertising Script
--Powered by Demone.Astaroth and OpiumVolage
-- TRADU??O PARA PORTUGUES POR Badtrip
-- Translaction to portugues by Badtrip
-- OPchat automatico por Badtrip
-- AUTO OPCHAT NAME by Badtrip
--Historia: Base='multiline antiadvertise' by OpiumVolage (As suas tabelas simplificam o Trabalho Que foi feito at? ao momento). Aqui est?o as fun??es:
--             1)O script bloqueia este tipo de publicidade: A) example.no-ip.com
--       B) e x a m p l e . n o - i p . c o m
--       C)example.
--          no-
--          ip.
--          com
--       D)e
--          x
--          a
--          m
--          p
--          l
--          e
--          .
--          n
--          o
--          -      
--          i
--          p
--          .
--          c
--          o
--          m
--             2)Tu podes colocar endere?os (like yours) nos trigs, para o bot ? te kikar
--             3)Users que estejam a conversar com operadores ? s?o kikados
--             4)e o temporisador? limpa a memoria.

--             Demone.Astaroth adicionou: 1)Uma enorme lista de endere?os
--        2)Quando se publicita: O user ? avisado em privado antes que seja desligado; O bot envia para o main chat a seguinte mensagem (without IP);
--                                         informa??o sobre a publicidade ? enviada para  o Op-chat directamente sem chatear os operadores com privados! a informa??o contem O IP dos user, com quem falou o user(se for em privado) e a sua ultima frase

--                          3)colocado o disconect e temp ban (15 minutes) em vez de fazer gag ao user
--        4)Previne muitos endere?os  (com mais tabAdvert )
--                                      5)adicionado controlo de moradas: O user n?o ?  kickado por essas moradas mas os Ops s?o informados na mesma.
--                                                                                   ? muito importante para endere?os de hubs amigos , se quiseres controlar na mesma
--                                      6)adicionado estado dos users para controlo: se tiveres medo que os teus vip?s utilizem o teu hub para publicitar os seus hubs e roubar-te users,
--                                                                                     podes colocar a tag [VIP] ou outra qualquer no seu espa?o especifico: eles ? vam ser
--                                                                                      kickados mas os operadores s?o informados.
--                                                                      
--                                      7)alguns bug?s foram eliminados (Thanks Opium)
--      8)Adicionada uma nova string-pieces que encontra uma forma de apanhar publicidade escondida

--  coloca aqui o nome do bot
BotName = "????P?R?E?M?I?U?M????"

SendPmToOps = frmHub:GetOpChatName()

advtrigs = {"dns2go","myftpsite","servebeer","mine.nu","ip.com","dynip","depecheconnect.com","zapto.org",
"staticip","serveftp","ipactive","ip.org","no-ip","servegame","gotdns.org","ip.net","ip.co.uk",
"ath.cx","dyndns","68.67.18.75","clanpimp","idlegames","sytes","unusualperson.com",
"24.184.64.48","uni.cc","151.198.149.60","homeunix","24.209.232.97","ciscofreak.com",
"deftonzs.com","24.187.50.121","flamenap","xs4all","serveftp","point2this.com","ip.info",
"myftp","d2g","151.198.149.60","24.184.64.48","orgdns","myip.org","stufftoread.com",
"ip.biz","dynu.com","mine.org","kick-ass.net","darkdata.net","ipme.net","udgnet.com","homeip.net",
"e-net.lv","newgnr.com","bst.net","bsd.net","ods.org","x-host","bounceme.net","myvnc.com",
"kyed.com","lir.dk","finx.org","sheckie.net","vizvaz.net","snygging.net","kicks-ass.com","nerdcamp.net",
"cicileu.","3utilities.com","myftp.biz","redirectme.net","servebeer.com","servecounterstrike.com",
"servehalflife.com","servehttp.com","serveirc.com","servemp3.com","servepics.com","servequake.com",
"damnserver.com","ditchyourip.com","dnsiskinky.com","geekgalaxy.com","net-freaks.com","ip.ca",
"securityexploits.com","securitytactics.com","servehumour.com","servep2p.com","servesarcasm.com",
"workisboring.com","hopto","64.246.26.135","213.145.29.222","dnsalias"}

validtrigs = {"giga1.sytes.net"} --coloca aqui as tuas moradas (tipo os teus hubs ou de amigos ;) )

controltrigs={["http://p2pportugal.kazorum.com"]=1,["speed"]=2,["eski"]=3, ["grime"]=4, ["bbv"]=5, ["bigboi"]=6} --coloca aqui os endere?os que desejas ser informado (n?o d? kick)

tabAdvert = {}

function Main()
frmHub:RegBot(BotName)
SetTimer(60000)
StartTimer()
end

function OnTimer()
for key, value in tabAdvert do
if (tabAdvert[key].iClock > os.clock()+60) then
tabAdvert[key]=nil
end
end
end


function ChatArrival(user, data)
if not user.bOperator then
local _, _, msg = string.find(data, "^%b<>%s+(.*)|")
if Verify(user.sName, msg) then
catch=string.sub(user.sName,1,5)         --5 est? a contar como nivel da tag abaixo: se mudificares o [VIP], muda-o!
if catch=="[VIP]" then                  --ControlUser status : coloca a tag dos users que ? queres que sejam kikados
else
tabAdvert[user.sName]=nil
SendToAll( BotName, user.sName.." Foi Avisado Por PUblicidade!")
user:SendPM(BotName, "Foste avisado! N?o voltes a publicitar outros hubs!")
user:Disconnect();
user:TimeBan(15);
s,e,onlymes = string.find(data, "%b<> (.*)")
SendPmToOps ("AntiPublicidade", "User "..user.sName.." with IP "..user.sIP.." Publicitou no MainChat: "..onlymes.."")
end
end
for key, value in controltrigs do
if( string.find( string.lower(data), key) ) then
s,e,onlymes = string.find(data, "%b<> (.*)")
SendPmToOps ("AntiPublicidade", "Control: O User "..user.sName.." com o IP "..user.sIP.." Disse no main Chat: "..onlymes.."")
end
end
spam=0
if( string.find( string.lower(data), "no",1,1) ) and ( string.find( string.lower(data), "ip.",1,1) ) then
if ( string.find( string.lower(data), "com",1,1) ) or ( string.find( string.lower(data), "org",1,1) ) or ( string.find( string.lower(data), "info",1,1) ) then
spam=spam+1; end; end;
if( string.find( string.lower(data), "dns",1,1) ) and ( string.find( string.lower(data), "2",1,1) ) and ( string.find( string.lower(data), "go",1,1) ) then
spam=spam+1; end
if( string.find( string.lower(data), "dy",1,1) ) and ( string.find( string.lower(data), "nu",1,1) ) then
if( string.find( string.lower(data), ".net",1,1) ) or ( string.find( string.lower(data), ".com",1,1) ) then
spam=spam+1;end; end
if( string.find( string.lower(data), "d n s a",1,1) ) or ( string.find( string.lower(data), "d n s .",1,1) ) or ( string.find( string.lower(data), "d n s 2",1,1) ) or ( string.find( string.lower(data), "o d s .",1,1) ) or ( string.find( string.lower(data), "d y n",1,1) ) then
spam=spam+1;end
if spam>0 then
SendToAll( BotName, user.sName.." Foi Avisado Por PUblicidade!")
user:SendPM(BotName, "Foste avisado! N?o voltes a publicitar outros hubs!!")
user:Disconnect();
user:TimeBan(15);
s,e,onlymes = string.find(data, "%b<> (.*)")
SendPmToOps ("AntiPublicidade", "O User "..user.sName.." com o IP "..user.sIP.." publicitou no main chat: "..onlymes.."")
end
end
end

function ToArrival(user, data)
if not user.bOperator then
local _, _, to, from, msg = string.find(data, "^%$To:%s+(%S+)%s+From:%s+(%S+)%s-%$%b<>%s+(.*)|")
local nick = GetItemByName(to)
if not nick.bOperator then
local userdata = to.." "..from
if Verify(userdata, msg) then
catch=string.sub(user.sName,1,16)
if catch=="['??SemiDeus??']" then
else
tabAdvert[userdata] = nil
SendToAll( BotName, user.sName.." Foi Avisado Por PUblicidade!!")
user:SendPM(BotName, "Foste avisado! N?o voltes a publicitar outros hubs!!")
user:Disconnect();
user:TimeBan(15);
s,e,whoTo,from,mes = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
SendPmToOps ("AntiPublicidade", "User "..user.sName.." with IP "..user.sIP.." publicitou no main chat e disse "..whoTo.." isto: "..mes.."")
end
end
for key, value in controltrigs do
if( string.find( string.lower(data), key) ) then
s,e,whoTo,from,mes = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
SendPmToOps ("AntiPublicidade", "Control: O User "..user.sName.." com o IP "..user.sIP.." disse ao "..whoTo.." isto: "..mes.."")
end
end
spam=0
if( string.find( string.lower(data), "no",1,1) ) and ( string.find( string.lower(data), "ip.",1,1) ) then
if ( string.find( string.lower(data), "com",1,1) ) or ( string.find( string.lower(data), "org",1,1) ) or ( string.find( string.lower(data), "info",1,1) ) then
spam=spam+1; end; end;
if( string.find( string.lower(data), "dns",1,1) ) and ( string.find( string.lower(data), "2",1,1) ) and ( string.find( string.lower(data), "go",1,1) ) then
spam=spam+1; end

if( string.find( string.lower(data), "dy",1,1) ) and ( string.find( string.lower(data), "nu",1,1) ) then
if( string.find( string.lower(data), ".net",1,1) ) or ( string.find( string.lower(data), ".com",1,1) ) then
spam=spam+1;end; end
if( string.find( string.lower(data), "d n s a",1,1) ) or ( string.find( string.lower(data), "d n s .",1,1) ) or ( string.find( string.lower(data), "d n s 2",1,1) ) or ( string.find( string.lower(data), "o d s .",1,1) ) or ( string.find( string.lower(data), "d y n",1,1) ) then
spam=spam+1;end
if spam>0 then
SendToAll( BotName, user.sName.." Foi Avisado Por PUblicidade!")
user:SendPM(BotName, "Foste avisado! N?o voltes a publicitar outros hubs!")
user:Disconnect();
user:TimeBan(15);
s,e,whoTo,from,mes = string.find(data,"$To:%s+(%S+)%s+From:%s+(%S+)%s+$%b<>%s+(.*)")  
SendPmToOps ("AntiPublicidade", "User "..user.sName.." with IP "..user.sIP.." publicitou no main chat e disse "..whoTo.." isto: "..mes.."")
end
end
end
end

function Verify(userdata, msg)
if not msg then return end
tmp =""
string.gsub(string.lower(msg), "([a-z0-9.:%-])", function(x) tmp = tmp..x end)
if not tabAdvert[userdata] then
tabAdvert[userdata] = { iClock = os.clock(), l1 = "", l2 = "", l3 = "", l4= "", l5= "",l6= "",l7= "",l8= "",l9 = tmp}
else
tabAdvert[userdata].iClock = os.clock()
tabAdvert[userdata].l1 = tabAdvert[userdata].l2
tabAdvert[userdata].l2 = tabAdvert[userdata].l3
tabAdvert[userdata].l3 = tabAdvert[userdata].l4
tabAdvert[userdata].l4 = tabAdvert[userdata].l5
tabAdvert[userdata].l5 = tabAdvert[userdata].l6
tabAdvert[userdata].l6 = tabAdvert[userdata].l7
tabAdvert[userdata].l7 = tabAdvert[userdata].l8
tabAdvert[userdata].l8 = tabAdvert[userdata].l9
tabAdvert[userdata].l9 = tmp
end
local Lines = tabAdvert[userdata].l1..tabAdvert[userdata].l2..tabAdvert[userdata].l3..tabAdvert[userdata].l4..tabAdvert[userdata].l5..tabAdvert[userdata].l6..tabAdvert[userdata].l7..tabAdvert[userdata].l8..tabAdvert[userdata].l9
for key, value in advtrigs do
if (string.find(Lines, string.lower(value), 1, 1)) then
for key2, value2 in validtrigs do
if (string.find(Lines, string.lower(value2), 1, 1)) then
return nil
end
end
return 1
end
end
end
Title:
Post by: Markitos on 24 June, 2005, 17:02:13
I like it :-)
Now i can use it cos i hate to see lines and lines to traduce.


Cheers...Time's money
Title:
Post by: Re@SoN on 25 June, 2005, 13:26:11
hello!
good work badtrip...;)

best regards,
Re@SoN
Title:
Post by: jiten on 27 June, 2005, 11:24:31
badtrip, you may want to update this script with the second or third one I posted in the Lucifer 6.6.6 thread, as this one has some bugs ;)

Cheers