script suddenly stopped working

[ladynikon]

So I am using easyspeak.tcl. Everything was working fine. I changed the channel name and wham not updating or working..
TCL v1.07

here is the script.. it is loaded properly in the config.

Code: Select all

#Edit this to who you want to activate the triggers (The default is set to 
#public, which means everyone can activate them)

set trigbind -|-

#Set the channels to where you want the triggers available
#I've set it up to allow you up to 3 channels, if you want more please
#e-mail me and let me know. :)

set channelone    "#LB-Support"
set channeltwo    ""
set channelthree  ""
#Edit these to what ever you want the trigger names to be (IE !rules or ^Help)

set trigger1 "!seeding"
set trigger2 "!forums"
set trigger3 "!pastebin"
set trigger4 "!invite"
set trigger5 "!az"

#Edit these to what ever you want to be displayed in the channel after the #trigger the has been used, (IE if trigger1 was set to !rules then change #text1 to...These are the rules ect ect).
set text1 "Seeding is a major part of any thriving torrent community.  Please see http://www.bittorrentguide.co.uk/whyseed.html"
set text2 "Please check out the forums! http://www.learnbits.org/forums.php"
set text3 "Please paste your issue here -- > http://pastie.caboo.se Paste the link that is created into our channel :)."
set text4 "text here"
set text5 "Please see http://www.foo.com"
#Just comment out the "die" line with a #
#I put it here as a small reminder to edit this script.
#die "* [file tail [info script]]: Forgot to edit this script didn't you?"


#*******************************************************************************
*********

#DO NOT CHANGE ANYTHING BELOW HERE

#*******************************************************************************
*********

bind pub $trigbind $trigger1 text-1
bind pub $trigbind $trigger2 text-2
bind pub $trigbind $trigger3 text-3
bind pub $trigbind $trigger4 text-4
bind pub $trigbind $trigger5 text-5

proc text-1 {n u h c a }  {
global channelone
global channeltwo
global channelthree
global text1
if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {
puthelp "PRIVMSG $c :$text1"
}
return 0
}

proc text-2 {n u h c a}  {
global channelone
global channeltwo
global channelthree
global text2
if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {
puthelp "PRIVMSG $c :$text2"
}
return 0
}

proc text-3 {n u h c a}  {
global channelone
global channeltwo
global channelthree
global text3
if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {
puthelp "PRIVMSG $c :$text3"
}
return 0
}

proc text-4 {n u h c a}  {
global channelone
global channeltwo
global channelthree
global text4
if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {
puthelp "PRIVMSG $c :$text4"
}
return 0
}

proc text-5 {n u h c a}  {
global channelone
global channeltwo
global channelthree
global text5
if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {
puthelp "PRIVMSG $c :$text5"
}
return 0
}

putlog "* [file tail [info script]] by Dalanx loaded."

[rosc2112]

http://forum.egghelp.org/viewtopic.php?t=10215

[arcanedreams]

my guess would be because you have the # before the channel name, which would comment out the rest of that line (I think..I'm new)


Just try removing the #

From this:

Code: Select all

set channelone    "#LB-Support" 

To this:

Code: Select all

set channelone    "LB-Support" 

If that doesn't work, go through and change all the if statements.

This second method will make the bot respond to every channel it is in regardless of what channels you set in the beginning of the script!

Change all of these:

Code: Select all

if {$c == $channelone || $c == $channeltwo || $c == $channelthree}

To this:

Code: Select all

if {$c == $c}

[Sir_Fz]

Could be a problem with different cases. Change

Code: Select all

if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {

to

Code: Select all

if {[string equal -nocase $c $channelone] || [string equal -nocase $c $channeltwo] || [string equal -nocase $c $channelthree]} {

[ladynikon]

my guess would be because you have the # before the channel name, which would comment out the rest of that line (I think..I'm new)


Just try removing the #

From this:

Code: Select all

set channelone    "#LB-Support" 

To this:

Code: Select all

set channelone    "LB-Support" 

If that doesn't work, go through and change all the if statements.

This second method will make the bot respond to every channel it is in regardless of what channels you set in the beginning of the script!

Change all of these:

Code: Select all

if {$c == $channelone || $c == $channeltwo || $c == $channelthree}

To this:

Code: Select all

if {$c == $c}

Well in vi the line didn't change color to specify a commented out line. AND it worked fine with that naming scheme. I entire script worked fine then boom nothing.

[ladynikon]

http://forum.egghelp.org/viewtopic.php?t=10215

So.. I looked at the forum you suggested. I have a few questions...
.set errorInfo
What? You need '.help'
.set errorinfo
What? You need '.help'

According to that forum. Those should work because .set is uncommented.

What is the purpose of the moving the brackets around when posting?

Thanks,
LN

[DragnLord]

.set errorInfo
What? You need '.help'
.set errorinfo
What? You need '.help'

According to that forum. Those should work because .set is uncommented.

if you uncommented "#unbind dcc n set *dcc:set" in the conf, then the .set command will NOT work (that is why it is called with UNBIND)
it must be commented out to work

[YooHoo]

my guess would be because you have the # before the channel name, which would comment out the rest of that line (I think..I'm new)

good guess, unfortunately a wrong one. Tcl will interpret anything enclosed within "quotation marks" as pure text, even a hash symbol.

[ladynikon]

.set errorInfo
What? You need '.help'
.set errorinfo
What? You need '.help'

According to that forum. Those should work because .set is uncommented.

if you uncommented "#unbind dcc n set *dcc:set" in the conf, then the .set command will NOT work (that is why it is called with UNBIND)
it must be commented out to work

Sorry my dislexia kicked in. I thought it said it has to be uncommented.

So I decided to give up on what was wrong. I just redownloaded the script and overwrote the fubared one. meh.

[rosc2112]

http://forum.egghelp.org/viewtopic.php?t=10215

According to that forum. Those should work because .set is uncommented.

Change the unbind to bind, to enable the .set command. Or comment it out and do a restart to enable it.

What is the purpose of the moving the brackets around when posting?

Not sure I understand your question, what brackets?

[rosc2112]

Cleaned up that mess a little, could do other things but, this should be good enough:

Code: Select all

# trigger permissions  
set trigbind -|-

# Set the channels to where you want the triggers available
# It's now case-insensitive.
set pubchanlist "#LB-Support #channel2 #etc"        

# Edit these to what ever you want the trigger names to be (IE !rules or ^Help)
set trigger1 "!seeding"
set trigger2 "!forums"
set trigger3 "!pastebin"
set trigger4 "!invite"
set trigger5 "!az"
 
#Edit these to what ever you want to be displayed in the channel.
set text(1) "blah blah blah"
set text(2) "Please check out the forums!"
set text(3) "Deleted for brevity"
set text(4) "text here"
set text(5) "Please see http://www.foo.com"
 
# code below

bind pub $trigbind $trigger1 text-1
bind pub $trigbind $trigger2 text-2
bind pub $trigbind $trigger3 text-3
bind pub $trigbind $trigger4 text-4
bind pub $trigbind $trigger5 text-5

set pubchanlist [string tolower $pubchanlist]

proc text-1 {n u h c a }  {
        global pubchanlist text
        set c [string tolower $c]
        if {[lsearch -exact $pubchanlist $c] == -1} {return}
        puthelp "PRIVMSG $c :$text(1)"
}
        
proc text-2 {n u h c a}  {
        global pubchanlist text
        set c [string tolower $c]
        if {[lsearch -exact $pubchanlist $c] == -1} {return}
        puthelp "PRIVMSG $c :$text(2)"
}

proc text-3 {n u h c a}  {
        global pubchanlist text
        set c [string tolower $c]  
        if {[lsearch -exact $pubchanlist $c] == -1} {return}
        puthelp "PRIVMSG $c :$text(3)"
}
        
proc text-4 {n u h c a}  {
        global pubchanlist text
        set c [string tolower $c]
        if {[lsearch -exact $pubchanlist $c] == -1} {return}
        puthelp "PRIVMSG $c :$text(4)"
}
        
proc text-5 {n u h c a}  {
        global pubchanlist text
        set c [string tolower $c]
        if {[lsearch -exact $pubchanlist $c] == -1} {return}
        puthelp "PRIVMSG $c :$text(5)"
}
        
putlog "* blah blah script loaded.."