help tcl script

tahu · Post by **tahu** » Fri Feb 11, 2005 11:03 pm

proc g_timer_ask {} {
global botnick quizconf
global Answers AllAnswered RoundOver NumAnswered AnswerCount QuestionTimer
set x_ask $botnick {} {} $quizconf(quizchannel) {}
set Timer [utimer 10 Question]

}

i want to random this but i dont know how to do
plz help me!

greenbear · Post by **greenbear** » Sat Feb 12, 2005 12:56 am

Randomize what exactly? All this code ever does is adding a timer that is executing another proc (Question) 10sec later.

De Kus · Post by **De Kus** » Sat Feb 12, 2005 1:25 pm

in case you want to get a random element from a list you should read:
http://www.tcl.tk/man/tcl8.4/TclCmd/lindex.htm
and
DOC/TCL-COMMANDS section "rand"

I didn't say RTFM, did I?

tahu · Post by **tahu** » Sat Feb 12, 2005 2:02 pm

-set x_ask $botnick {} {} $quizconf(quizchannel) {}
-set Timer [utimer 10 Question]

i mean first round set x_ask
and the second round set timer
something like that.
thanks.

^DooM^ · Post by **^DooM^** » Sat Feb 12, 2005 2:06 pm

I dunno bout you guys but I am still confused by their Question.. Tahu Please explain properly..

Ofloo · Post by **Ofloo** » Sat Feb 12, 2005 2:42 pm

u mean the u timer should be random ??

try this

Code: Select all

utimer [rand 20] ...

De Kus · Post by **De Kus** » Sat Feb 12, 2005 9:42 pm

maybe he wants to rotate like this?

Code: Select all

switch $qcounter {
  1 {set x_ask $botnick {} {} $quizconf(quizchannel) {} }
  2 {set Timer [utimer 10 Question] }
}
if { [incr qcounter] > 2 } { set qcounter 1 }

alternativly he can use [set qcounter [rand 2]] or something like this for randomize @_o.

PS: this is my last guess without detailed explainations ^^

tahu · Post by **tahu** » Mon Feb 14, 2005 9:04 am

i write like what u say [De Kus} but the bot can executing another command. the bot stuck.
i wrote like this

proc mx_timer_ask {} {
global botnick quizconf
global Timer
switch $qcounter {
1 {set x_ask $botnick {} {} $quizconf(quizchannel) {} }
2 {set Timer [utimer 10 Question] }
}
if { [incr qcounter] > 2 } { set qcounter 1 }

please give me another way . cos i'm new in this n i want learn but i dont know how to do
for clue i want rotate this 2 script
n please write with the proc
cos i dunno what must i write.
thanks.

De Kus · Post by **De Kus** » Wed Feb 16, 2005 2:02 am

http://www.tcl.tk/man/tcl8.4/TclCmd/global.htm
read and think about your code again.