random command in tcl

[tahu]

hello ..
anybody can help me to tell about how to make random command for tcl script ?
thanks..

[Sir_Fz]

What random commands?

[]Kami[]

Check this

[Alchera]

Code: Select all

proc rand { {range 100} } {
  return [expr {int(rand()*$range)}]
}

[Sir_Fz]

Is that what he meant with random command?

[Alchera]

Is that what he meant with random command?

I think so. I made an assumption based on dbl dutch.

[tahu]

proc mx_timer_ask {} {
global botnick quizconf
global rankfile
global rankfile userlist timerankreset
global tgcurrentanswer tghinttimer tgtimenext tgchan
global tgnextqtimer tgstreak tgstreakmin
global tgscoresbyname tgranksbyname tgranksbynum
global tgcongrats tgscorestotal tgmissed
global tgtimestart tgshowallscores tgrealnames tgscoresbyrank
global tgtimeanswer
global upasAnswers upasNumAnswered upasQuestionTimer
global upasAdTimer
tmcquiz_rank_save {} {} {}
[no.1] tmcquiz_ask $botnick {} {} $quizconf(quizchannel) {}
[no.2] utimer 5 upasAskQuestion
[no.3] set tgnextqtimer [utimer $tgtimenext tgnextq]
set tgplaying 1
set tgstreak 0
set tgmissed 0
}

i want to random this no.1, no.2, no.3 but i dont know how to do. please help me . thanks

[Sir_Fz]

i want to random this no.1, no.2, no.3 but i dont know how to do. please help me . thanks

What do you mean by randoming them?

[tahu]

that script game is 3 proc for next question.
so i mean when this game over for next question move to another script.

sorry for my poor english. i hope u understand what i mean. thanks