egghelp/eggheads community

I'm blocked

2003-04-29T14:21:39-04:00

Try this out, I haven't tested it. I wasn't serious about you paying me but you can if you want.

Code:

### What is the name of the bot to send CSAUTH to?set bot(csauth) "Neptune"### What is the name of the bot to send AUTH to?set bot(auth) "Sephir"### Set the user of the Eggdrop that will use for CSAUTH and AUTHset bot(user) "Zarifa"### Set the password of the Eggdrop that will use for CSAUTHset bot(csauthpass) "x0zomp69a"### Set the password of the Eggdrop that will use for AUTHset bot(authpass) "af442z9echy"### Are AUTH and CSAUTH enabled or disabledset bot(authenabled) 1set bot(csauthenabled) 1### Done with configurationsetudef flag authbind join * * check_authbind dcc - auth dcc_auth_togglebind dcc - csauth dcc_csauth_toggleproc send_auth {chan} {  global bot  if {$bot(authenabled)} {    foreach b $bot(auth) {      if {[onchan $b $chan]} {        putserv "privmsg $b :AUTH $chan $bot(user) $bot(authpass)"      }    }  }  if {$bot(csauthenabled)} {    foreach b $bot(csauth) {      if {[onchan $b $chan]} {        putserv "privmsg $b :CSAUTH $chan $bot(user) $bot(csauthpass)"      }    }  }}proc check_auth {nick uhost hand chan} {  global bot  # If auth isn't enabled for this channel, abort  if {[channel get $chan auth] == 0} { return 0 }  # If it's our nick joining, send the auth in 2 seconds  if {[isbotnick $nick]} {    utimer 2 [list send_auth $chan]    return 0  }  # Nope, check if it's one of the other bots joining  if {$bot(authenabled)} {    foreach b $bot(auth) {      if {[string compare -nocase $b $nick] == 0} {        putserv "privmsg $b :AUTH $chan $bot(user) $bot(authpass)"      }    }  }  if {$bot(csauthenabled)} {    foreach b $bot(csauth) {      if {[string compare -nocase $b $nick] == 0} {        putserv "privmsg $b :CSAUTH $chan $bot(user) $bot(csauthpass)"      }    }  }  return 0}proc dcc_auth_toggle {hand idx text} {  global bot  if {[string compare -nocase "on" [lindex [split #text] 0]] == 0} {    putlog "AUTH enabled"    set bot(authenable) 1  } else {    putlog "AUTH disabled"    set bot(authenable) 0  }}proc dcc_csauth_toggle {hand idx text} {  global bot  if {[string compare -nocase "on" [lindex [split #text] 0]] == 0} {    putlog "CSAUTH enabled"    set bot(csauthenable) 1  } else {    putlog "CSAUTH disabled"    set bot(csauthenable) 0  }}

Statistics: Posted by stdragon — Tue Apr 29, 2003 2:21 pm

I'm blocked

2003-04-28T07:27:15-04:00

I see nobody want to help me so yes I will pay you, here is my e-mail : Gatsby_from@yahoo.fr send me the TCL working, and send me a mail I will pay you through paypal.com

I think 10 euros or 10 dollars will be nice, what do you think ?

Statistics: Posted by Gatsby — Mon Apr 28, 2003 7:27 am

I'm blocked

2003-04-27T22:57:37-04:00

Will you pay me to write it? It sounds like you want it pretty badly :) hehe

Statistics: Posted by stdragon — Sun Apr 27, 2003 10:57 pm

I'm blocked

2003-04-26T14:55:04-04:00

I don't know TCL and I'm not able to learn it only for this TCL!!!!You don't gonna to learn japanese just to say "hello every body how are you"... it's the same with me.

I don't know 0.01 % of TCL !!! And I don't try to understand or learn I can't programming... this code vas made by caesar (a person very very helpfull) he don't want to help me it's his choice I can't oblige people to help me... if you won't help me just say it...

But the only last thing I would like is to send the AUTH and CSAUTH not only Zarifa joins #channel but also when the two other bots join #channel... that's all...

You tell me to learn it's very good idea and a pedagogic, but I want just this TCL and nothing else... and I think it's very easy for you who know the TCL (I mean it's not very difficult what I want to do...)

Thanks...

Statistics: Posted by Gatsby — Sat Apr 26, 2003 2:55 pm

I'm blocked

2003-04-26T11:12:30-04:00

What code add for Zarifa sends the CSAUTH and AUTH not only when she joins #channel but also when Neptune or Sephir join too...
Please.... help me tell me i musn't wait 3 weeks for this TCL ! Please !

sorry but I will help you no further when your not even trying to fix the problem on you own! Try figuring out the problem and fix it. If you get some new errors post the code you've added/modified and we may talk..
If you knew just a littlebit about tcl you should be very able to fix the rest of code...

Statistics: Posted by Papillon — Sat Apr 26, 2003 11:12 am

I'm blocked

2003-04-26T10:57:24-04:00

What code add for Zarifa sends the CSAUTH and AUTH not only when she joins #channel but also when Neptune or Sephir join too...

Please.... help me tell me i musn't wait 3 weeks for this TCL ! Please !

Statistics: Posted by Gatsby — Sat Apr 26, 2003 10:57 am

I'm blocked

2003-04-25T21:29:40-04:00

Yes i understand you're not here for me. I'm not the most important and either the question is not here, you are there to help and not to work at my place i'm agree but when i'm blocked since 2 weeks...

Thank you very much for you code it's working good except that Zarifa sends the CSAUTH and AUTH only when she joins #channel and in the DCC i have this error : Tcl error [dcc:csauth]: can't read "bot2(pass)": no such variable but she is sending the /msg because i seemed them so it's ok

Now what must i do ? What code add for Zarifa sends the CSAUTH and AUTH not only when she joins #channel but also when Neptune or Sephir join too...

If i can do somethin for you i will try, you are very a cool guy, sorry for my expression i don't know english very well...

Thank you very much papillon you made me happy

Statistics: Posted by Gatsby — Fri Apr 25, 2003 9:29 pm

I'm blocked

2003-04-25T19:27:16-04:00

Code:

### What is the name of the bot to identify to on join (CSAUTH)? set bot(name) "Neptune" ### What is the name of the bot you want to do the channel identify (AUTH)? set bot(chan) "Sephir" ### Set the user of the Eggdrop that will use for CSAUTH and AUTH set bot(user) "Zarifa" ### Set the password of the Eggdrop that will use for CSAUTH set bot(pass) "x0zomp69a" ### Set the password of the Eggdrop that will use for AUTH set bot2(pass) "af442z9echy" ### Set this to 1 if you want the script enabled by default, otherwise 0 //<<< this is caesar who made it, but i think it's not necessary if .auth on/off is available <-- it isset bot(enable) 1 # stuff setudef flag auth bind join * * dcc:csauth #bind dcc - csauth x:csauthbind dcc - auth x:csauth:on_offproc dcc:csauth {nick uhost handle channel} {   global bot botnick   if {$nick == $botnick && $bot(enable) == "1" } {     foreach luser $bot(name) {       putserv "PRIVMSG $luser :CSAUTH $bot(user) $bot(pass)"     }     foreach chan [channels] {       if {[channel get $chan auth]} {         putserv "PRIVMSG $bot(chan) :AUTH $chan $bot(user) $bot2(pass)"       }     }   } }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" }  }}

This should work, the .csauth command is not supported here, if you want it you make it on your own. We are NOT here to make script for peoples. We are here to give you pointers of how to do it on your own.
.auth on/off turns both AUTH and CSAUTH on or off as it is now.

Statistics: Posted by Papillon — Fri Apr 25, 2003 7:27 pm

I'm blocked

2003-04-25T18:52:25-04:00

I had corrected as you said me, but i have still the same answers and errors... is it really so difficult for the experts in TCL like you all on this forum ????

Tcl error [x:csauth]: wrong # args: should be "x:csauth nick uhost handle channel"

I mean i'm just a newbie who wants his eggdrop working only for this but i can't do it by myself i'm not intelligent enough... you can help me please help!!!

Code:

### What is the name of the bot to identify to on join (CSAUTH)? set bot(name) "Neptune" ### What is the name of the bot you want to do the channel identify (AUTH)? set bot(chan) "Sephir" ### Set the user of the Eggdrop that will use for CSAUTH and AUTH set bot(user) "Zarifa" ### Set the password of the Eggdrop that will use for CSAUTH set bot(pass) "x0zomp69a" ### Set the password of the Eggdrop that will use for AUTH set bot2(pass) "af442z9echy" ### Set this to 1 if you want the script enabled by default, otherwise 0 //<<< this is caesar who made it, but i think it's not necessary if .auth on/off is available set bot(enable) 1 # stuff setudef flag auth bind join * * dcc:csauth bind dcc - csauth x:csauth # stuff setudef flag auth bind join * * x:csauth bind dcc - csauth dcc:csauth proc dcc:csauth {nick uhost handle channel} { global bot botnick if {$nick == $botnick && $bot(enable) == "1" } { foreach luser $bot(name) { putserv "PRIVMSG $luser :CSAUTH $bot(user) $bot(pass)" } foreach chan [channels] { if {[channel get $chan auth]} { putserv "PRIVMSG $bot(chan) :AUTH $chan $bot(user) $bot2(pass)" } } } }

Statistics: Posted by Gatsby — Fri Apr 25, 2003 6:52 pm

I'm blocked

2003-04-25T11:51:12-04:00

All right, i can't test it now, but what is the whole code working ? What is the syntax the code I mean, could you paste all the code working as I want ?

Thanks

Statistics: Posted by Gatsby — Fri Apr 25, 2003 11:51 am

I'm blocked

2003-04-25T08:59:50-04:00

Code:

# stuff setudef flag auth bind join * * x:csauth bind dcc - csauth dcc:csauth

no need to have this twice..
also switch the procnames.. make it like this

Code:

# stuff setudef flag auth bind join * * dcc:csauth bind dcc - csauth x:csauth

as for this bind dcc - csauth x:csauth....
there is no proc in this code called x:csauth, so when you do .csauth it calls a proc which does not exist... unless it is in another scriptfile
the .auth command has not been binded in this code..

Statistics: Posted by Papillon — Fri Apr 25, 2003 8:59 am

I'm blocked

2003-04-25T07:31:39-04:00

Thank you very much for helping me Papillon

Description
- Zarifa is the eggdrop using this TCL
- Sephir is a bot Zarifa CSAUTH to
- Neptune is an other bot Zarifa AUTH to

Situation one
Zarifa joins #channel.
Sephir and Neptune are on #channel.
Zarifa sends them '/msg Neptune CSAUTH password' and '/msg Sephir AUTH #channel Zarifa password'

Situation Two
Zarifa is already on #channel.
Sephir or Neptune joins #channel.
Zarifa sends them '/msg Neptune CSAUTH password' and '/msg Sephir AUTH #channel Zarifa password'

Commands for this TCL
- .csauth on/off (Enables/Disables the sending of the CSAUTH by Zarifa to Neptune)
- .auth on/off (Enables/Disables the sending of the AUTH by Zarifa to Sephir)
- .chanset #channel +/-auth (Set the #channel used in the AUTH)

Errors i have
- When i ensure .csauth on/off i have this : Tcl error [dcc:csauth]: wrong # args: should be "dcc:csauth nick uhost handle channel"
- When i ensure .auth on/off i have this : What? You need '.help'
- When Sephir or Neptune join #channel or when Zarifa joins #channel no AUTH and CSAUTH is sended.
- When i ensure .chanset #channel +/-auth it's working i have this : Successfully set modes { +auth } on #channel.

The TCL

Code:

### What is the name of the bot to identify to on join (CSAUTH)? set bot(name) "Neptune" ### What is the name of the bot you want to do the channel identify (AUTH)? set bot(chan) "Sephir" ### Set the user of the Eggdrop that will use for CSAUTH and AUTHset bot(user) "Zarifa" ### Set the password of the Eggdrop that will use for CSAUTH set bot(pass) "x0zomp69a" ### Set the password of the Eggdrop that will use for AUTH set bot2(pass) "af442z9echy" ### Set this to 1 if you want the script enabled by default, otherwise 0 //<<< this is caesar who made it, but i think it's not necessary if .auth on/off is availableset bot(enable) 1 # stuff setudef flag auth bind join * * x:csauth bind dcc - csauth dcc:csauth # stuff setudef flag auth bind join * * x:csauth bind dcc - csauth dcc:csauth proc dcc:csauth {nick uhost handle channel} { global bot botnick if {$nick == $botnick && $bot(enable) == "1" } { foreach luser $bot(name) { putserv "PRIVMSG $luser :CSAUTH $bot(user) $bot(pass)" } foreach chan [channels] { if {[channel get $chan auth]} { putserv "PRIVMSG $bot(chan) :AUTH $chan $bot(user) $bot2(pass)" } } } }

Thank you very very very much.

Statistics: Posted by Gatsby — Fri Apr 25, 2003 7:31 am

I'm blocked

2003-04-25T03:12:09-04:00

please post the code you are using right now, include all the errors you get and why you get them...

Statistics: Posted by Papillon — Fri Apr 25, 2003 3:12 am

I'm blocked

2003-04-24T14:00:19-04:00

Please guys i'm still blocked i don't know what can i do here you are the only ones who can help me... please

Statistics: Posted by Gatsby — Thu Apr 24, 2003 2:00 pm

I'm blocked

2003-04-22T03:38:00-04:00

Please...

Statistics: Posted by Gatsby — Tue Apr 22, 2003 3:38 am