rendered paste body#Respuestas v1.0 by G.L.A
bind pub - !decime pub_choice
proc pub_choice {nick uhost hand chan arg} {
if {[lindex $arg 0] != ""} {
set partes [split $arg " "]
set pregunta [lindex $partes 0]
switch -exact -- $pregunta {
web {putserv "PRIVMSG $chan :\002$pregunta\002 -> http://www.gnulinuxargentina.com.ar"}
foro {putserv "PRIVMSG $chan :\002$pregunta\002 -> http://gnulinuxargentina.com.ar/foro/index.php" }
3 {putserv "PRIVMSG $chan :\002$pregunta\002 -> http://www.gnulinuxargentina.com.ar/wiki/index.php/Portada"}
default {puts "Ninguno"}
}
putserv "PRIVMSG $chan :\002$pregunta\002 -> $respuesta"
} else {
putserv "PRIVMSG $chan :\002Syntax:\002 -> !decime web| www.gnulinuxargentina.com.ar:gnulinuxargentina.com.ar"
}
}