Code:

proc bMotionChooseRandomBot { channel } {  putloglev 1 * "bMotion: checking $channel"  global botnick  set bots [chanlist $channel]  set botslist [list]  foreach bot $bots {    set handle [nick2hand $bot $channel]    putloglev 1 * "bMotion: checking $bot ($handle)"    if [matchattr [nick2hand $bot $channel] b&K $channel] {      lappend botslist $bot    }  }  set bots $botslist  putloglev 1 * "bMotion: found [llength $bots] bots in $channel, $bots"  if {[llength $bots] == 0} {    return ""  }  set rbot $botnick  while {$rbot == $botnick} {    set rbot [lindex $bots [rand [llength $bots]]]  }  return $rbot}

Code:

[14:11] bMotion: checking #___[14:11] bMotion: checking NoTopic (*)[14:11] bMotion: checking JamesOff (JamesOff)[14:11] bMotion: checking MonicaOff (*)[14:11] bMotion: checking KipAway (*)[14:11] bMotion: found 0 bots in #___,

Code:

[14:12] bMotion: checking #___[14:12] bMotion: checking NoTopic (NoTopic)[14:12] bMotion: checking JamesOff (JamesOff)[14:12] bMotion: checking MonicaOff (MonicaOff)[14:12] bMotion: checking KipAway (TurboKip)[14:12] bMotion: found 1 bots in #___, MonicaOff

Code:

.rehash<snip>.tcl putlog [chanlist #___][14:16] NoTopic JamesOff MonicaOff KipAway.tcl putlog [chanlist #___b]<nothing>.channel #___<snip>.tcl putlog [chanlist #___ b][14:18] NoTopic MonicaOff