Random bots

[kem]

bind pub n !random testk

proc testk {nick uhost hand chan args} {
set ilebotof [lindex [join $args] 0]
set kolek [bots]
set stringi "$kolek"
set miasto "[lindex $stringi $ilebotof]"
putserv "privmsg $chan :Random bots $miasto"
return 1
}
I need tcl when i give !random 5 - bot, give to channel 5 nicks bots (Random search from userlist-linked bots)

[KrzychuG]

Code: Select all

bind pub n !random show:randombots
proc show:randombots { nick uhost handle channel arg } {
  set limit [lindex $arg 0]
  set bots [chanlist $channel b]
  if {$limit > [expr [llength $bots] + 1]} then {
    set limit [expr [llength $bots] + 1]
  }
  set fbots ""
  set tlimit $limit
  while {$tlimit > 0} {
    set bot [lindex $bots [rand [llength $bots]]]
    if {[lsearch $fbots $bot] == -1} then {    
      lappend fbots $bot
      set tlimit [expr $tlimit - 1]
    }
  }
  if {$fbots != ""} then {
    putserv "PRIVMSG $channel :Random bots on $channel: $fbots"
  } else {
    putserv "PRIVMSG $channel :No bots on $channel"
  }
  return 0
} ;# show:randombots  

I hope it works :)