un antispam

[caline012]

tclcopier

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

[NuNuX]

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