bind pubm -|- * check:hilight

proc check:hilight {n u h c a} {
  set arg [split $a];
  regsub -all "," $a " " arg
  set hits 0;

  foreach piece $a {
    if {[onchan $piece $c]} {
      incr hits;
    }
  }

  if {$hits >= 4} {
    #putquick "MODE $c +b [maskhost $h]"
    #putquick "KICK $c $n :Sem snicks :-)"
    putserv "PRIVMSG $c :$n: Sem snicks :-)"
  }
}
putlog "antisnicks.tcl carregada"