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" }
}
putlog "=== Servidores ==="