for {set n 0} {$n < [llength $TalkzChanArray]} {incr n} {
    set chan [lindex $TalkzChanArray $n]
    set ToUser "[lindex [chanlist $chan] [rand [llength [chanlist $chan]]]]"
    if {[matchattr $ToUser +b $chan] == 0} {
       putchan $chan "$ToUser: [lindex $TalkzStrArray [expr [rand [llength $TalkzStrArray]]]]"
    }
  }

#TalkzChanArray is #main