on join help!

[mindflow]

I havent been working in TCL for a long time now, and i need 1 channel to be excluded from the "join" event, this is how it looks like now.

Code: Select all

bind join * * msg_jmsg1

proc msg_jmsg1 {nick uhost hand channel args} {
	global botnick
    putserv "NOTICE $nick : Hi $nick, I'm $botnick. Rest of my message here. :)" 
    return 1
}

how would i make this see if the channel the person join is the excluded channel, the bot are on 6 channels i want it to send the notice on join, then 1 i dont want it to send the notice too.. someone that can help me with this?[/code]

[username]

Try it: http://www.egghelp.org/tclhtml/3478-4-7-0-1.htm

[mindflow]

Try it: http://www.egghelp.org/tclhtml/3478-4-7-0-1.htm

uhum, thats a link to other peoples TCL, all i need is a if statement, if {chan == #channel} do nothing

dont remember how to write it right tho..

[rosc2112]

Code: Select all

set excludedchans "#channelname #chan2 #whatever"

proc msg_jmsg1 {nick uhost hand channel args} {
    global botnick
     if {[lsearch -exact $::excludedchans $channel] == -1}
          putserv "NOTICE $nick : Hi $nick, I'm $botnick. Rest of msg"
     } else {
          return
     }
}

BTW "args" is a special case in tcl, in case you run into problems using it.

[mindflow]

Code: Select all

set excludedchans "#channelname #chan2 #whatever"

proc msg_jmsg1 {nick uhost hand channel args} {
    global botnick
     if {[lsearch -exact $::excludedchans $channel] == -1}
          putserv "NOTICE $nick : Hi $nick, I'm $botnick. Rest of msg"
     } else {
          return
     }
}

BTW "args" is a special case in tcl, in case you run into problems using it.

Thnx for the help, the code didnt work as it should tho.. any other idea?

* EDIT *

Forgot to say, the bot dies when i rehach it:

(03:45) « bot » (file "scripts/fun.tcl" line 710)
(03:45) « bot » invoked from within
(03:45) « bot » "source scripts/fun.tcl"
(03:45) « bot » (file "bot.conf" line 1220)
(03:45) « bot » [05:44] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)

Line 710 in the tcl:

proc msg_jmsg1 {nick uhost hand channel} {

tryed to edit it a bit, but still same result.

[caesar]

* off topic *
mindflow stop checking the 'Disable BBCode in this post' if you use BBCode in your replyes.

* on topic *

if {[lsearch -exact $::excludedchans $channel] == -1}

is missing a "{"

Code: Select all

if {[lsearch -exact $::excludedchans $channel] == -1} {

Also, if the channel name will be #foo and in the 'excludedchans' you have #FOO or something different than #foo then it will send the message. I would go for 'setudef'.

[rosc2112]

I thought lsearch was case-sensitive when using the -exact switch? Hmm, just looked at the lsearch manpage, guess you'd have to use -exact -ascii for it to be case-sensitive.

And about crashing the bot, sorry! <grin>

Read this post and you'll never have a bot crash from loading scripts:

http://forum.egghelp.org/viewtopic.php?p=63899#63899

[mindflow]

* off topic *
mindflow stop checking the 'Disable BBCode in this post' if you use BBCode in your replyes.

* on topic *

if {[lsearch -exact $::excludedchans $channel] == -1}

is missing a "{"

Code: Select all

if {[lsearch -exact $::excludedchans $channel] == -1} {

Also, if the channel name will be #foo and in the 'excludedchans' you have #FOO or something different than #foo then it will send the message. I would go for 'setudef'.

Ok. the TCL working now, but i got a strange behavior from the bot, after added that line i got a huge "lag" or "delay" when the bot auto op me, i know auto op is a bad this to use, but since the channels are protected by channel service i use it any way

Problem:
befor that line i got auto oped 2 sec after i joined, now it takes up to 1 minute befor i got my @, the bot are on 4 channels with maybe 100 users total, so that shouldent be any problem, anyone that have a suggestion about this? and i have a of topic question too, to change the eggdrop version reply i need to add 1 line in the eggdrop.con file, i forgot what line that is. someone that know what i mean?

[caesar]

If it's under heavy join/parts then it gets lagged thus leading to the delay in oping. If you really need this implement a *delay* function else remove it.

[nml375]

I'd also recommend using puthelp as it uses a different queue with a lower priority