egghelp/eggheads community

script suddenly stopped working

2007-09-09T14:39:44-04:00

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

Code:

# 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 belowbind pub $trigbind $trigger1 text-1bind pub $trigbind $trigger2 text-2bind pub $trigbind $trigger3 text-3bind pub $trigbind $trigger4 text-4bind pub $trigbind $trigger5 text-5set 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.."

Statistics: Posted by rosc2112 — Sun Sep 09, 2007 2:39 pm

script suddenly stopped working

2007-09-09T14:20:35-04:00

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?

Statistics: Posted by rosc2112 — Sun Sep 09, 2007 2:20 pm

script suddenly stopped working

2007-09-09T15:01:40-04:00

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

Statistics: Posted by ladynikon — Sun Sep 09, 2007 1:53 pm

script suddenly stopped working

2007-09-09T13:08:01-04:00

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.

Statistics: Posted by YooHoo — Sun Sep 09, 2007 1:08 pm

script suddenly stopped working

2007-09-09T11:38:08-04:00

.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

Statistics: Posted by DragnLord — Sun Sep 09, 2007 11:38 am

script suddenly stopped working

2007-09-09T08:22:11-04:00

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

Statistics: Posted by ladynikon — Sun Sep 09, 2007 8:22 am

script suddenly stopped working

2007-09-09T07:45:40-04:00

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:
set channelone    "#LB-Support" 
To this:
Code:
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:
if {$c == $channelone || $c == $channeltwo || $c == $channelthree}
To this:
Code:
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.

Statistics: Posted by ladynikon — Sun Sep 09, 2007 7:45 am

script suddenly stopped working

2007-09-09T06:31:02-04:00

Could be a problem with different cases. Change

Code:

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

Code:

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

Statistics: Posted by Sir_Fz — Sun Sep 09, 2007 6:31 am

script suddenly stopped working

2007-09-09T00:23:54-04:00

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:

set channelone    "#LB-Support"

To this:

Code:

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:

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

To this:

Code:

if {$c == $c}

Statistics: Posted by arcanedreams — Sun Sep 09, 2007 12:23 am

script suddenly stopped working

2007-09-08T23:45:00-04:00

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

Statistics: Posted by rosc2112 — Sat Sep 08, 2007 11:45 pm

script suddenly stopped working

2007-09-08T23:42:02-04:00

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:

#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-1bind pub $trigbind $trigger2 text-2bind pub $trigbind $trigger3 text-3bind pub $trigbind $trigger4 text-4bind pub $trigbind $trigger5 text-5proc text-1 {n u h c a }  {global channeloneglobal channeltwoglobal channelthreeglobal text1if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {puthelp "PRIVMSG $c :$text1"}return 0}proc text-2 {n u h c a}  {global channeloneglobal channeltwoglobal channelthreeglobal text2if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {puthelp "PRIVMSG $c :$text2"}return 0}proc text-3 {n u h c a}  {global channeloneglobal channeltwoglobal channelthreeglobal text3if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {puthelp "PRIVMSG $c :$text3"}return 0}proc text-4 {n u h c a}  {global channeloneglobal channeltwoglobal channelthreeglobal text4if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {puthelp "PRIVMSG $c :$text4"}return 0}proc text-5 {n u h c a}  {global channeloneglobal channeltwoglobal channelthreeglobal text5if {$c == $channelone || $c == $channeltwo || $c == $channelthree} {puthelp "PRIVMSG $c :$text5"}return 0}putlog "* [file tail [info script]] by Dalanx loaded."

Statistics: Posted by ladynikon — Sat Sep 08, 2007 11:42 pm