#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 --> http://www.gnulinuxargentina.com.ar"} 
    foro {putserv "PRIVMSG $chan $pregunta --> http://gnulinuxargentina.com.ar/foro/index.php" } 
    wiki {putserv "PRIVMSG $chan $pregunta --> http://www.gnulinuxargentina.com.ar/wiki/index.php/Portada"} 
    

   default {puts ""} 
    }

  } else {
    putserv "PRIVMSG $nick Ayuda:"

  }
}