egghelp/eggheads community

Completely blocked with sending message on join

2004-02-08T14:20:21-04:00

I have still ne same problem... is it this code so difficult ?!

Code:

### What is the name of the bot to identify to on join (CSAUTH)? set bot(csauthbot) "me" ### What is the name of the bot you want to do the channel identify (AUTH)? set bot(authbot) "me" ### Set the username / password of the Eggdrop that will use for CSAUTH set bot(csauthuserpass) "Zarifa pass1" ### Set the username / password of the Eggdrop that will use for AUTH set bot(authuserpass) "Zarifa pass2" ### Set this to 1 if you want the script enabled by default, otherwise 0 set bot(enable) 1 # stuff setudef flag auth bind join - * join:csauth #bind dcc - csauth x:csauth bind dcc - auth x:csauth:on_off proc join:csauth {nick uhost handle chan} {     global bot     if {![isbotnick $nick] || $bot(enable) != "1" } {return 0}     putserv "PRIVMSG $bot(csauthbot) :CSAUTH $bot(authbot) $bot(csauthuserpass)" #    foreach chan [channels] {         if {[channel get $chan auth]} {             putserv "PRIVMSG $bot(authbot) :AUTH $chan $bot(authbot) $bot(authuserpass)"         } #    }     return 0 } proc x:csauth:on_off {hand idx arg} {   global bot   switch -- [lindex [split $arg] 0] {     "on" { set bot(enable) 1; putdcc $idx "Authing turned on" }     "off" { set bot(enable) 0; putdcc $idx "Authing turned off" }   } } # suite tant attendue proc join:do_auth {nick uhost hand chan} {    global bot      if {[lsearch -exact [string tolower $bot(csauthbot)] [string tolower $nick]] != -1} {            putserv "PRIVMSG $nick :CSAUTH $bot(csauthuserpass)"       }    }    return 0 }bind join - * join:do_auth

Statistics: Posted by Zariffa — Sun Feb 08, 2004 2:20 pm

Completely blocked with sending message on join

2004-02-07T08:41:44-04:00

if {[lsearch -exact $bot(csauthbot) [string tolower $nick]]} {

this should be:

Code:

if {[lsearch -exact [string tolower $bot(csauthbot)] [string tolower $nick]] != -1} {

if nick matches one of the nicks in bot(csauthbot) then the bot will message it for auth.

Statistics: Posted by Sir_Fz — Sat Feb 07, 2004 8:41 am

Completely blocked with sending message on join

2004-02-06T19:32:44-04:00

Please help me

Statistics: Posted by Zariffa — Fri Feb 06, 2004 7:32 pm

Completely blocked with sending message on join

2004-02-05T06:33:47-04:00

well, I'm affraid that you never give the names of X, Y or Z:
Code:
set bot(csauthbot) "Me"
might be Code:
set bot(csauthbot) "X Y Z"

Yes I know, it was just for example...

And so what would I really modifiy ?

Statistics: Posted by Zariffa — Thu Feb 05, 2004 6:33 am

Completely blocked with sending message on join

2004-02-05T04:16:52-04:00

well, I'm affraid that you never give the names of X, Y or Z:

Code:

set bot(csauthbot) "Me"

might be

Code:

set bot(csauthbot) "X Y Z"

and thent you may modify your script:

Code:

proc join:do_auth {nick uhost hand chan} {   global bot      if {[lsearch -exact $bot(csauthbot) [string tolower $nick]]} {           putserv "PRIVMSG $nick :CSAUTH $bot(csauthuserpass)"      }   }   return 0}

This procedure will make your bot send is password if the joining nick is in your bot(csauthbot) variable.
The previous version of script you use was for only 1 auth bot.
You have to modify the join:csauth procedure

Statistics: Posted by CrazyCat — Thu Feb 05, 2004 4:16 am

Completely blocked with sending message on join

2004-02-08T15:02:37-04:00

Hello all,

I'm posting here beaucause I don't know how to get out of this problem, maybe some of you should help me, I think so.

What this script is supposed to do ? It's simple :

When Y or Z JOINs the channel the BOT will send him an AUTH, and when the BOT itself JOINs then channel it will send a send to Y or Z.
The problem is that the bot sends only :

CSAUTH me Zarifa pass1

when Y joins... the three other possibilities (send to X, send to Y when BOT join, send to W when BOT join) don't work... I hope you'll help me, thanks !!!

Code:

### What is the name of the bot to identify to on join (CSAUTH)? set bot(csauthbot) "Me" ### What is the name of the bot you want to do the channel identify (AUTH)? set bot(authbot) "Me" ### Set the username / password of the Eggdrop that will use for CSAUTH set bot(csauthuserpass) "Zarifa pass1" ### Set the username / password of the Eggdrop that will use for AUTH set bot(authuserpass) "Zarifa pass2" ### Set this to 1 if you want the script enabled by default, otherwise 0 set bot(enable) 1 # stuff setudef flag auth bind join - * join:csauth #bind dcc - csauth x:csauth bind dcc - auth x:csauth:on_off proc join:csauth {nick uhost handle chan} {     global bot     if {![isbotnick $nick] || $bot(enable) != "1" } {return 0}     putserv "PRIVMSG $bot(csauthbot) :CSAUTH $bot(authbot) $bot(csauthuserpass)" #    foreach chan [channels] {         if {[channel get $chan auth]} {             putserv "PRIVMSG $bot(authbot) :AUTH $chan $bot(authbot) $bot(authuserpass)"         } #    }     return 0 } proc x:csauth:on_off {hand idx arg} {   global bot   switch -- [lindex [split $arg] 0] {     "on" { set bot(enable) 1; putdcc $idx "Authing turned on" }     "off" { set bot(enable) 0; putdcc $idx "Authing turned off" }   } } # suite tant attendue proc join:do_auth {nick uhost hand chan} {     global bot     switch -- [string tolower $nick] {         [string tolower $bot(csauthbot)] {            putserv "PRIVMSG $bot(csauthbot) :CSAUTH $bot(csauthuserpass)"         }         [string tolower $bot(authbot)] {             if {[channel get $chan auth]} {                 putserv "PRIVMSG $bot(authbot) :AUTH $chan $bot(authuserpass)"             }         }     }     return 0 } bind join - * join:do_auth

Statistics: Posted by Zariffa — Wed Feb 04, 2004 3:02 pm