egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2004-05-26T13:02:04-04:00 https://forum.eggheads.org/app.php/feed/topic/7540 2004-05-26T13:02:04-04:00 2004-05-26T13:02:04-04:00 https://forum.eggheads.org/viewtopic.php?p=36611#p36611 <![CDATA[Random bots]]>

Code: 

bind pub n !random show:randombotsproc 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 :)

Statistics: Posted by KrzychuG — Wed May 26, 2004 1:02 pm

]]> 2004-05-26T09:26:53-04:00 2004-05-26T09:26:53-04:00 https://forum.eggheads.org/viewtopic.php?p=36603#p36603 <![CDATA[Random bots]]>
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)

Statistics: Posted by kem — Wed May 26, 2004 9:26 am

]]>