Basic Actions... please I'm hopeless...

Zaiks · Post by **Zaiks** » Wed Jan 22, 2003 2:28 pm

Hello,

I searched a lot of engines for this tcl but i'm looking for a TCL for queit a long time, and I still hadn't found it.
I don't know TCL language so maybe someone would help me for this...
In this example 'Eggdrop' is the eggdrop's nick, and X is an other bot's nick.

1. If Eggdrop JOIN a channel, if X is on this channel, then do this : /msg X CSAUTH Eggdrop password

2. Or If X JOINS a channel, then do this : /msg X CSAUTH Eggdrop password

And that's all!

The 'joinactions.tcl' may start like that :

### What is the name of the bot to identify to on join?
set bot_name "X"

### Set the password the Eggdrop uses on X with CSAUTH X PASSWORD
set bot_pass "password"

If anyone can help me!

Post by **caesar** » Thu Jan 23, 2003 2:28 am

### What is the name of the bot to identify to on join?
set bot(name) "X"

### Set the user of the Eggdrop that will use for CSAUTH
set bot(user) "Eggdrop"

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

bind join * * x:xlogin

proc x:login {nick uhost handle channel} {
global bot
if {$nick == $bot(name)" || $nick == $botnick } {
putserv "PRIVMSG $bot(name) :CSAUTH $bot(user) $bot(pass)"}
return 1 }

Zaiks · Post by **Zaiks** » Thu Jan 23, 2003 6:25 am

Thanks a lot !

So this code make what I described higher ?

The Bot's JOIN and the Eggdrop's join ?

Post by **caesar** » Thu Jan 23, 2003 7:52 am

It's exactly what you've asked for.

Zaiks · Post by **Zaiks** » Thu Jan 23, 2003 1:29 pm

All right, I will test this, thanks very much !!!

If one day I can do something for you tell me !

Thank you very very much !!!

####

I tested it, I named it csauth.tcl I added it into source/scripts/csauth.tcl
But when Eggdrop JOIN channel he doesn't send any '/MSG X CSAUTH Eggdrop pass' to X

And the same when X JOINS the channel... I had done a mistake maybe ?

I pasted the code into a NotePad Document then I renamed it into *.tcl

I don't see what can I do caesar... maybe because I test it on a Windrop before put in on my Eggdrop ?

Zaiks · Post by **Zaiks** » Fri Jan 24, 2003 6:00 pm

Caesar please help me please!

I have this error, on JOIN :

Code: Select all

Tcl error [x:xlogin]: invalid command name "x:xlogin"

spock · Post by **spock** » Fri Jan 24, 2003 6:54 pm

bind join * * x:xlogin
proc x:login {nick uhost handle channel} {

name the proc x:xlogin like so:

proc x:xlogin {nick uhost handle channel} {

Zaiks · Post by **Zaiks** » Fri Jan 24, 2003 9:13 pm

Yes I have done it, and what you tell me to do is not stupid, but now with this TCL code :

Code: Select all

### What is the name of the bot to identify to on join? 
set bot(name) "Vegeta" 

### Set the user of the Eggdrop that will use for CSAUTH 
set bot(user) "FreeBSD" 

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

#######################################################


bind join * * x:xlogin 

proc x:xlogin {nick uhost handle channel} { 
global bot 
if {$nick == $bot(name)" || $nick == $botnick } { 
putserv "PRIVMSG $bot(name) :CSAUTH $bot(user) $bot(pass)"} 
return 1 }

I have this error message on JOINS

Code: Select all

Tcl error [x:xlogin]: syntax error in expression "$nick == $bot(name)" || $nick == $botnick ": extra tokens at end of expression

caesar made the code he may say but he seems to would not help me any more...

Thank you all I'm sure someone is going to find it out !

Papillon · Post by **Papillon** » Sat Jan 25, 2003 7:40 am

Code: Select all

### What is the name of the bot to identify to on join? 
set bot(name) "Vegeta" 

### Set the user of the Eggdrop that will use for CSAUTH 
set bot(user) "FreeBSD" 

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

####################################################### 


bind join * * x:xlogin 

proc x:xlogin {nick uhost handle channel} { 
  global bot botnick
  if {$nick == $bot(name) || $nick == $botnick } { 
    putserv "PRIVMSG $bot(name) :CSAUTH $bot(user) $bot(pass)"
  } 
}

Zaiks · Post by **Zaiks** » Sat Jan 25, 2003 9:59 am

It workkkkkkkkksssssssss thanks a lot !!!!!!!!!!!!