I'm blocked

[Gatsby]

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...

[stdragon]

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

[Gatsby]

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 ?

[stdragon]

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

Code: Select all

### 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 AUTH
set bot(user) "Zarifa"

### Set the password of the Eggdrop that will use for CSAUTH
set bot(csauthpass) "x0zomp69a"

### Set the password of the Eggdrop that will use for AUTH
set bot(authpass) "af442z9echy"

### Are AUTH and CSAUTH enabled or disabled
set bot(authenabled) 1
set bot(csauthenabled) 1

### Done with configuration

setudef flag auth
bind join * * check_auth
bind dcc - auth dcc_auth_toggle
bind dcc - csauth dcc_csauth_toggle

proc 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
  }
}