chan notice

[CrazyCat]

J'aimerais qu'il ne kickban pas que les personnes etant enregistrer ds le bot

Il suffit alors de sortir de la procédure si l'utilisateur est connu, donc avec une handle différente de "*"

tclcopier

bind notc - * nonotice_chanoff
proc nonotice_chanoff { nick uhost handle arg dest } {
   global botnick salon
   if {![string match #nord_pasdecalais $dest]} {return 0}
   if {$handle != '*'} {return 0]
   if {[matchattr [nick2hand $nick $dest] m] || [matchattr [nick2hand $nick $dest] n] || [matchattr [nick2hand $nick $dest] |o $dest]} {return 0}
   if {![botisop $dest]} {return 0}
   set host [string range $uhost [expr [string first @ $uhost]+1] e]
   if {[isop $nick $dest] || [isvoice $nick $dest]} {return 0}
   putquick "mode $dest +bim $host"
   putquick "kick $dest $nick :~ Exp/Notice-Chan ~ Pas de notice salon svp"
   utimer 20 [list putquick "mode $dest -m"]
   utimer 120 [list putquick "mode $dest -i"]
}