egghelp/eggheads community

Rand and if's

2014-05-26T01:10:53-04:00

Since [rand 6] will return results from 0 to 5 you need to either add 1 to it like [expr [rand 6] +1] to have both included or change the if lines to start with 0.

Anyway, I would honestly go with a switch than a bunch of if statements cos the interpreter will pass through them all, while the switch will go directly to the corresponding number and exit.

Code:

proc fight_kick {nick host hand chan text} {set rfu [expr [rand 6] +1]switch -- $rfu {1 {set msg "!fu"}2 {set msg "!fd"}3 {set msg "!fg"}4 {set msg "!fk"}5 {set msg "!fp"}6 {set msg "!fj"}}putmsg $chan $msg}

Statistics: Posted by caesar — Mon May 26, 2014 1:10 am

Re: I'm new to TCL, and I need a lil help with rand and if's

2014-05-24T16:46:30-04:00

Try this

Code:

proc fight_kick { nick host hand chan text } {     set rfu [rand 6]     if { $rfu == 1 } { putmsg $chan "!fu" }     if { $rfu == 2 } { putmsg $chan "!fd" }     if { $rfu == 3 } { putmsg $chan "!fg" }     if { $rfu == 4 } { putmsg $chan "!fk" }     if { $rfu == 5 } { putmsg $chan "!fp" }     if { $rfu == 6 } { putmsg $chan "!fj" }}

Statistics: Posted by Madalin — Sat May 24, 2014 4:46 pm

Rand and if's

2014-05-24T16:06:59-04:00

I'm new to TCL, and I need a lil help with rand and if's.

Code:

proc fight_kick { nick host hand chan text } {     set $rfu rand(1,6)     if { $rfu == 1 } { putmsg $chan "!fu" }     if { $rfu == 2 } { putmsg $chan "!fd" }     if { $rfu == 3 } { putmsg $chan "!fg" }     if { $rfu == 4 } { putmsg $chan "!fk" }     if { $rfu == 5 } { putmsg $chan "!fp" }     if { $rfu == 6 } { putmsg $chan "!fj" }}

Statistics: Posted by wikked — Sat May 24, 2014 4:06 pm