Bots script

l.kleijn · Post by **l.kleijn** » Fri May 07, 2021 6:50 am

I'm searching for a script that when i type '/msg botnick bots'

That i get a list with all linked bots.
Can someone help me with this ?

Post by **CrazyCat** » Fri May 07, 2021 7:08 am

Really short:

Code: Select all

bind msg n bots getbots
proc getbots {nick uhost handle text} {
   foreach lbot [botlist] {
      putserv "PRIVMSG $nick :[lindex $lbot 0] is connected to [lindex $lbot 1]"
   }
}

Post by **willyw** » Fri May 07, 2021 7:32 am

If you don't want the extra info, and are ok with just the bare list of bots on the botnet, experiment with substituting:

Code: Select all

putserv "privmsg $nick :[bots]"

for

Code: Select all

   foreach lbot [botlist] {
      putserv "PRIVMSG $nick :[lindex $lbot 0] is connected to [lindex $lbot 1]"
   }

Reference:
https://docs.eggheads.org/mainDocs/tcl- ... .html#bots

Arnold_X-P · Post by **Arnold_X-P** » Sat May 08, 2021 12:28 am

CrazyCat wrote:Really short:

Code: Select all

bind msg n bots getbots
proc getbots {nick uhost handle text} {
   foreach lbot [botlist] {
      putserv "PRIVMSG $nick :[lindex $lbot 0] is connected to [lindex $lbot 1]"
   }
}

use the code and it doesn't work....and it does not generate any error

but it works this way for me

Code: Select all

bind msg n bots getbots
proc getbots {nick uhost handle text} {
   foreach lbot [split botlist] {
      putserv "PRIVMSG $nick :[lindex $lbot 0] is connected to [lindex $lbot 1]"
   }
}