[aNormaLu]

set ask(chan) "#testeri"
set ask(qmax) "3"
set ask(welcome) "Bine ai venit .... testul incepe intr-un minut!"
set ask(reguli) "Ai la dispozitie 60 sec pentru a raspunde la intrebare si 60 secunde pentru a te gandi!"
set ask(question1) "Ce face setarea de canal +dynamicbans?"
set ask(question2) "Care e diferenta dintre +voice si +antivoice ?"
set ask(question3) "Ce face flagul +d?"

bind pubm m|m "$ask(chan) !start" pub:start
bind pubm m|m "$ask(chan) !stop" pub:stop

proc pub:start {nick uhost hand chan arg} {
global ask
    bind time - "* * * * *" timed:ask
    puthelp "PRIVMSG $chan :$ask(welcome)"
    puthelp "PRIVMSG $chan :$ask(reguli)"
}

proc pub:stop {nick uhost hand chan arg} {

    unbind time - "* * * * *" timed:ask
    puthelp "PRIVMSG $chan :stopping questions"

}

proc timed:ask {min hour day month year} {
global ask

  if {![info exists ask(start)]} { set ask(start) 0 }
  if {$ask(start)} {
    if {$ask(q) < [expr $ask(qmax)+1]} {
      pushmode $ask(chan) +m
      flushmode $ask(chan)
      utimer 2[list puthelp "PRIVMSG $ask(chan) :$ask(question$ask(q))"]
      utimer 10[list pushmode $ask(chan) -m]
      incr ask(q)
    } else {
      unbind time - "*****" timed:ask
      set ask(q) 1
  }
}
}

asta e tcl-u....din vorbele voastre acum....dau !start .. spune mesaju de la welcome si regulile....iar apoi.....pauza au trecut 5 minute si nu a mai zis nimik...si in botnet nu da nici o eroare