Am gasit cu ceva timp in urma un tcl de teste aici pe forum si mi se pare bun dupa ce am facut mici modificari. Dar el functioneaza asa !test Nickname dar ar fi perfect sa functioneze asa !test <numarul testului> <nick> . Asta nu stiu cum se face.
Codul arata cam asa:
Code:
a:command -add test pub:test 0000 000 n
proc pub:test {hand chan args x mix} {
global botnick
set who1 [lindex $args 0]
set who2 [lindex $args 1]
set test(chan) "#BSCegg-Teste"
logfile pjk $test(chan) "logs/test.log"
if { ($who1 == "") || ($who2 == "") } {a:usage $x test ; return "FAILED: someone is missing"}
set welcome "Salut $who1 & $who2. Eu sunt $botnick, unul dintre botii #BSCeg. Astazi veti da testul cu mine. Dar inainte sa incepem cu cateva reguli:"
set reguli {
"Pentru a fi acceptat trebuie sa nu mai fi helper la un alt canal de botlending."
"Pentru a trece testul trebuie sa sti 10 intrebari din cele 15 care ti le voi pune."
"Iti urez mult norc!"
}
set intr1 " 1. Care este cel mai mare flag?"
set intr2 " 2. Cum dai acces cand bagi botul pe un canal (comanda)?"
set intr3 " 3. Cum dai sa seteze el limita?"
set intr4 " 4. Cum faci sa blochezi topicul (comanda)?"
set intr5 " 5. Care sunt primele 3 flaguri in ordine descrescatoare?"
set intr6 " 6. Ce face flagul +a?"
set intr7 " 7. Ce este greet?"
set intr8 " 8. Cum se seteaza flood-deop?"
set intr9 " 9. Ce face botul cand dai comanda .cycle ?"
set intr10 "10. Ce face flagul d?"
set intr11 "11. Ce comanda trebuie data ca botuil sa memoreze modurile canalului?"
set intr12 "12. Ce reprezinta flagul l?"
set intr13 "13. Cum se seteaza autovoice?"
set intr14 "14. Cum se seteaza revenge-mode ca sa fie pornit?"
set final "15. Cum pui autoop la x si la psyBNC (comenzile) ?"
if { $chan == $test(chan) } {
putquick "MODE $chan +m" ; puthelp "PRIVMSG $chan :$welcome" ; foreach line $reguli { puthelp "PRIVMSG $chan :[subst -noc $line]" }
utimer 140[list puthelp "PRIVMSG $chan :Intrebarea $intr1"] ; utimer 145[list putquick "MODE $chan -m"] ; utimer 270[list putquick "MODE $chan +m"]
utimer 280[list puthelp "PRIVMSG $chan :Intrebarea $intr2"] ; utimer 285[list putquick "MODE $chan -m"] ; utimer 410[list putquick "MODE $chan +m"]
utimer 420[list puthelp "PRIVMSG $chan :Intrebarea $intr3"] ; utimer 425[list putquick "MODE $chan -m"] ; utimer 550[list putquick "MODE $chan +m"]
utimer 560[list puthelp "PRIVMSG $chan :Intrebarea $intr4"] ; utimer 565[list putquick "MODE $chan -m"] ; utimer 690[list putquick "MODE $chan +m"]
utimer 700[list puthelp "PRIVMSG $chan :Intrebarea $intr5"] ; utimer 705[list putquick "MODE $chan -m"] ; utimer 830[list putquick "MODE $chan +m"]
utimer 840[list puthelp "PRIVMSG $chan :Intrebarea $intr6"] ; utimer 845[list putquick "MODE $chan -m"] ; utimer 970[list putquick "MODE $chan +m"]
utimer 980[list puthelp "PRIVMSG $chan :Intrebarea $intr7"] ; utimer 985[list putquick "MODE $chan -m"] ; utimer 1110[list putquick "MODE $chan +m"]
utimer 1120[list puthelp "PRIVMSG $chan :Intrebarea $intr8"] ; utimer 1125[list putquick "MODE $chan -m"] ; utimer 1250[list putquick "MODE $chan +m"]
utimer 1260[list puthelp "PRIVMSG $chan :Intrebarea $intr9"] ; utimer 1265[list putquick "MODE $chan -m"] ; utimer 1390[list putquick "MODE $chan +m"]
utimer 1400[list puthelp "PRIVMSG $chan :Intrebarea $intr10"] ; utimer 1405[list putquick "MODE $chan -m"] ; utimer 1530[list putquick "MODE $chan +m"]
utimer 1540[list puthelp "PRIVMSG $chan :Intrebarea $intr11"] ; utimer 1545[list putquick "MODE $chan -m"] ; utimer 1670[list putquick "MODE $chan +m"]
utimer 1680[list puthelp "PRIVMSG $chan :Intrebarea $intr12"] ; utimer 1685[list putquick "MODE $chan -m"] ; utimer 1810[list putquick "MODE $chan +m"]
utimer 1820[list puthelp "PRIVMSG $chan :Intrebarea $intr13"] ; utimer 1825[list putquick "MODE $chan -m"] ; utimer 1950[list putquick "MODE $chan +m"]
utimer 1960[list puthelp "PRIVMSG $chan :Intrebarea $intr14"] ; utimer 1965[list putquick "MODE $chan -m"] ; utimer 2090[list putquick "MODE $chan +m"]
utimer 2100[list puthelp "PRIVMSG $chan :Intrebarea $intr15"] ; utimer 2105[list putquick "MODE $chan -m"]
utimer 2245[list puthelp "PRIVMSG $chan :$final"]
} else { puthelp "PRIVMSG $chan :Invalid channel to give command on." ; return "FAILED: invalid channel" }
return "for $who1 & $who2 started."
}