ex (in #bots users are lameuser and lamebot):
[lameuser] !summon
-join- lamebot2 join #bots
Hope I didn't confuse you -- Any help, direction, tutorial would be appriciated.

Code: Select all
set i 0
foreach x [botlist] {
set bots($i) $x
incr i
}
Code: Select all
[rand [llength [botlist]]
Code: Select all
putbot $bots([rand [llength [botlist]]) "JOINCHANNEL $chan"
Code: Select all
# master bot
proc summon_chan {nick host hand chan arg} {
foreach {x} [botlist] {
if {![onchan $x $chan]} {
putbot $x "joinchan $chan"
putserv "PRIVMSG $chan :$x joining channel."
break
}
}
}
bind pub n !summon summon_chan
# slave bot
proc bot_join_chan {bot cmd arg} {
channel add $arg
}
bind bot - joinchan bot_join_chan