egghelp/eggheads community

putallbots

2003-10-14T13:59:06-04:00

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

Code:

# auth inviteproc 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"

Statistics: Posted by kain — Tue Oct 14, 2003 1:59 pm

putallbots

2003-10-14T13:55:42-04:00

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.

Statistics: Posted by kain — Tue Oct 14, 2003 1:55 pm

putallbots

2003-10-14T04:56:49-04:00

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

Statistics: Posted by ppslim — Tue Oct 14, 2003 4:56 am

putallbots

2003-10-14T04:14:23-04:00

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:

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

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

Statistics: Posted by CrazyCat — Tue Oct 14, 2003 4:14 am

putallbots

2003-10-14T13:45:00-04:00

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:

proc myproc { n u h a } {code...set netinvite "ainvite $n $h"putallbots $netinvite}# botnet invitebind bot - ainvite ninviteproc ninvite {from command args} {set n [lindex $args 0]set h [lindex $args 1]inviteall $n $h}# auth inviteproc 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.

Statistics: Posted by kain — Mon Oct 13, 2003 4:38 pm

putallbots

2003-10-13T14:06:00-04:00

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?

Statistics: Posted by kain — Mon Oct 13, 2003 2:06 pm

putallbots

2003-10-13T13:25:27-04:00

putallbots
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
proc-name
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:

# masta botproc your:proc {nick hand} {set msg "saw $nick $hand"putallbots $msg}################# slaves botsbind bot - saw proc:sawproc: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"   }}

Statistics: Posted by CrazyCat — Mon Oct 13, 2003 1:25 pm

putallbots

2003-10-13T12:52:12-04:00

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.

Statistics: Posted by kain — Mon Oct 13, 2003 12:52 pm