Communauté sur les Eggdrops - Community about Eggdrops
un antispam - Printable Version

+- Communauté sur les Eggdrops - Community about Eggdrops (https://forum.eggdrop.fr)
+-- Forum: Eggdrop et TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=8)
+--- Forum: Scripts TCL (https://forum.eggdrop.fr/forumdisplay.php?fid=4)
+--- Thread: un antispam (/showthread.php?tid=120)



un antispam - caline012 - 10/12/2007


tcl
set ver "1"
 
#------------------#
#     Config       #
#------------------#
 
 
# bannir pour Spam ( 1 / 0 )( à créer ou modifier )
set activ(ban) "1"  
 
# Si Activez bannir combien de temps ( en Secondes )
set ban "3600"  
 
# G-Line pour Spam ( 1 / 0 ) 
set activ(Gline) "1" 
 
# Si Activez Motif du G-Line
set Gline "Auto G-Line $nick (Pas de Spam Sur Un Salon Officiel.)"
 
# Raison du kick
set kick "(Pas de Spam Sur Un Salon Officiel, Vous êtes banni du salon $ban secondes.)" 
 
# Salon à Surveillez
set mod(on) "#irc-pacifique"
 
# Salon à ne pas Surveillez
set mod(off) "#services"
 
# Spam à détectez 
set Spam "http://* www.* irc.* *.com *.org *.info *.fr *.net *.biz *join*#* *venez*#* invit*#*" 
 
# Spam à exenptez 
set nospam "http://www.irc-pacifique.com www.irc-pacifique.com"  
 
# Personne à proteger @ & + ( 1/0 )
set protection "0"
 
#--------#
# bind   #
#--------#
 
if {($protection == 1) {return 0}
if {($protection == 1) && [isvoice $nick $chan]} {return 0}
#--------------------------------------------------#
# Variable à ne pas toucher çi vous connaissez pas #
#--------------------------------------------------#
 
set mod(on)      [string tolower $mod(on)]
 
proc mod {nick uhost hand chan argv} {
global ban kick mod nospam spam Gline activ protection 
 
set safe 0
set argv [string tolower $argv]
foreach mod_on $mod(on) {
if  {[lsearch $argv [string tolower $mod_on]]!=-1} {set safe 1}
}
 
if {[isop $nick $chan]==0 && [lsearch $mod(off) [string tolower $chan]]==-1 && $safe==0} {
    set banlamer $ip
    set why "No Spam"
    set creator "Anti-Spam"
    newchanban $chan $ip $creator $why $ban
    putserv "MODE $chan +b *!*$ip"
    putserv "KICK $chan $nick $kick"
    putserv "G-line $nick :$Gline"
    dccbroadcast "Anti-Spam TCL: Banni $nick De $chan"
}
 
}

surement encore beaucoup d erreurs mais bon on essaye


RE: un antispam - NuNuX - 18/01/2008

Salut, en regardant ton tcl, ton bot il glinait pour spam? Je crois pas car putserv "G-line ...." cela gline pas la bonne commande est gline :)