#Respuestas v1.0 by G.L.A

bind pub - !decime pub_choice

bind pub - !decimelo ayuda

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" }
    wiki {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 :!decime web  --> Te muestra el link de la home"
    putserv "PRIVMSG $chan :!decime foro --> Te muestra el link al foro"
    putserv "PRIVMSG $chan :!decime wiki --> Te muestra el link a la wiki"

        }
}