Repositorio IRC

Repositorio de scripts de irc.terrachat.cl desde los canales #TRAFFIC y #LATINWAREZ.

bind msgm - "*" msg:bot

proc msg:bot {nick uhost hand text} {
 if {![matchattr $hand n]} {
  foreach chan [channels] {
  if {[botisop $chan] && [onchan $nick $chan]} {
   putserv "MODE $chan +b *!*@[lindex [split $uhost @] 1]"
   putserv "KICK $chan $nick :Do not message me in private!"
   }
  }
 }
}

Explorando: ./tcl

Vista previa de: pv-kick-ban.tcl