putallbots

[kain]

Hey,
Can someone give me a simple example
of 'puallbots' and 'bind bot'
I've been fiddling with it for a while and can't
get it to work. All I need to carry over is $nick
and maybe $hand, just never works for me though.
Thanks in advance.

[CrazyCat]

putallbots <message>
Description: sends a message across the botnet to all bots. If no script intercepts the message on the other end, the message is ignored.

bind bot <flags> <command> <proc>
proc-name <from-bot> <command> <text>
Description: triggered by a message coming from another bot in the botnet. The first word is the command and the rest becomes the text argument; flags are ignored.

So, if you want to send $nick and $hand:

Code: Select all

# masta bot
proc your:proc {nick hand} {
set msg "saw $nick $hand"
putallbots $msg
}

################
# slaves bots
bind bot - saw proc:saw
proc:saw {from command args} {
   global masta_nick mychan
   if {$from == $masta_nick} {
      set unick [lindex $args 0]
      set uhand [lindex $args 1]
      putquick "PRIVMSG $mychan :$masta_nick saw $unick, known as $uhand"
   }
}

[kain]

This putallbots proc would be on each bot,
so is there any way to broadcast it to all bots
rather than a single bot, I thought putbot was for a single
and putallbots would send the command to all bots?

[kain]

Ok, still can't get it working
heres the code im trying to work with
basically it sends 'ninvite $n' over the botnet and then
gets caught by all the other bots then calls the 'inviteall' proc
which works on its own btw, just not like this.

Code: Select all

proc myproc { n u h a } {
code...
set netinvite "ainvite $n $h"
putallbots $netinvite
}

# botnet invite
bind bot - ainvite ninvite
proc ninvite {from command args} {
set n [lindex $args 0]
set h [lindex $args 1]
inviteall $n $h
}

# auth invite
proc inviteall { n h args } {
  set clist ""
  foreach c [channels] {
    if {[matchattr $h -|I $c] && [botisop $c] && [string match *+private* [channel info $c]]} {
      putserv "INVITE $n $c"
      lappend clist $c
    }
  }
  return 0
}

Like I said, the inviteall proc works fine, just doesnt work when sent over
the botnet.

[CrazyCat]

inviteall $n $h
proc inviteall { n h args } {

Don't think you forget to send args?
if you don't need it, don't put it.
End if you're not sure you'll use it, try:

Code: Select all

proc inviteall { n h {args ""}} {

and a small advice: use intelligent-named variables, prefer $nick than $n...

[ppslim]

Larger advice, your BOT bind proc is accepting $args which is a special variable.

[kain]

Removed the '$args' and now I get:
Tcl error [ninvite]: called "ninvite" with too many arguments
I've tried changing a few things but nothing seems to work.

[kain]

This code on a single bot works, but when called with the putallbots
it doesn't

Code: Select all

# auth invite
proc inviteall { n h c } {
  set clist ""
  foreach c [channels] {
    if {[matchattr $h -|I $c] && [botisop $c] && [string match *+private* [channel info $c]]} {
      putserv "INVITE $n $c"
      lappend clist $c
    }
  }
  return 0
}

Called with "inviteall $n $h"