Repositorio IRC

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

##################
### Servidores ###
##################

set chanservidores {
"(Server): irc.terrachat.cl           (random)"
"(Server): us.terrachat.cl            (6667)"
"(Server): eu.terrachat.cl            (6667)"

}
bind pub - !servers pub:t
proc pub:t {nick uhost hand chan text} {
global chanservidores
set servidoresnick [lindex [split $text " "] 0]
if {$text != "" && [onchan $servidoresnick $chan]} {
puthelp "NOTICE $servidoresnick :Estos son los servidores oficiales:"
foreach line $chanservidores { puthelp "NOTICE $servidoresnick :$line" }
return 0
}
foreach line $chanservidores { putquick "NOTICE $nick :$line" }
}

Explorando: ./tcl

Vista previa de: version.tcl