Something

#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]
    set respuestas [split [lindex $partes 1] :]
    set respuesta [lindex $respuestas [expr {int(rand()*[llength $respuestas])}]]

    putserv "PRIVMSG $chan :\002Syntax:\002 -> !decime web| www.gnulinuxargentina.com.ar:gnulinuxargentina.com.ar"
  } else {
    putserv "PRIVMSG $chan :\002Syntax:\002 -> !decime web| www.gnulinuxargentina.com.ar:gnulinuxargentina.com.ar"

  }
}