[Request script] TCL Script Pt Testerii

[MaDaLiN2]

<NickBot> [12:18] <<Normal>> Normal!polistu@madalin2.users.undernet.org #tests TEST wrong # args: should be "set varName ?newValue?"

ce nu e bine ?!

[MasT3r]

Am o intrebare ,tot in legatura cu ceva de genu acesta ! dak puteti sa ma ajutati,am un canal de help !si vreau ceva d genu : cand scriu .topic nohelp ,botu sa seteze topic welcome to # .Sorry but there are no oper who can help you ,please try later , .topic on ,botu sa seteze topic Welcome to # .Helpers: ON .Ask your question in one line ,si tot asha..cum as putea face ,aveti idee ? sigur ca aveti,dar ma puteti ajuta si pe mn?

[Normal]

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

[florin]

Am cautat pe forum dupa un script pt. teste dar nu gasesc ceea ce as vrea.
Cand intra omul pe canal sa dau !start si bot'ul sa puna +m sa spuna regulile, gen: "Test'ul contine 10 intrebari. la 4 gresite out. Ai la dispozitie 60 de sec pt. a raspunde. Bft" si dupaia sa puna intrebarile. Dupa 1 min dupa ce a pus intrebarea sa spuna "trecem la urmatoarea". Se poate asa ceva ?
Ms Anticipat

[KShadow]

Daca te-ai uita o pagina in spate in acest topic, ai gasii exact ce cauti

[florin]

am luat script'ul lui vlad si uite ce imi da in botnet

Tcl error [pub:start]: can't read "ask(start)": no such element in array
Tcl error [timed:modemm]: can't read "ask(start)": no such element in array
Tcl error [timed:modem]: can't read "ask(start)": no such element in array

ce trebuie sa fac ca sa functioneze ? Sau daca aveti vreun script pt. teste va rog sa il postati, ca nu am multe cunostinte de tcl
Ms Anticipat.

[KShadow]

Ia-l pe cel al lu Freezed Pe acela l-am testat si eu mai demult si merge perfect, doar sa pui spatiu intre cifra si [ peste tot...

Folosire: !test <nick> <nick>