egghelp/eggheads community

why isn't this working?

2004-10-15T11:38:35-04:00

Guys, thank you very much for helping me, I really apreciate it

Statistics: Posted by Devil — Fri Oct 15, 2004 11:38 am

why isn't this working?

2004-10-15T10:11:52-04:00

Actually I don't know but I like to group them togehter. Like when you have a long line of multiple functions, putting them into one line with ()'s in between makes them easier to seperate from each other.

To me they look nice when grouped; well not nice but they are easier for me to read, nothing else.

Statistics: Posted by awyeah — Fri Oct 15, 2004 10:11 am

why isn't this working?

2004-10-15T09:58:20-04:00

Code:

if {([string match *$intro* $arg]) && ([string match *$intro1* $arg])} {

Why do you use so many redundant parentheses? I've noticed you do that alot lately. ()'s are only needed when there's several parts of an expression that needs to be "grouped". The result of 'string match' is a single integer and to put parentheses around it make no sense.

Statistics: Posted by user — Fri Oct 15, 2004 9:58 am

why isn't this working?

2004-10-15T09:36:16-04:00

Well, why don't you just use "bind notc" instead of binding raw to NOTICE. Directly binding to notice would be easier, if you are only considering binding for PRIVATE NOTICES, CHANNEL NOTICES and *NOT* SERVER NOTICES.

Note:

Code:

if {[string match *$intro* $arg]} {if {[string match *$intro1* $arg]} {

Can be simplied further to:

Code:

if {([string match *$intro* $arg]) && ([string match *$intro1* $arg])} {

Statistics: Posted by awyeah — Fri Oct 15, 2004 9:36 am

why isn't this working?

2004-10-14T22:03:19-04:00

Post the original, unmodified, procedure.

Statistics: Posted by Alchera — Thu Oct 14, 2004 10:03 pm

Re: why isn't this working?

2004-10-14T20:56:51-04:00

yeah, but i got that form awyeah in some other help topic I cant remember now... It's pretty strange hehe, can you tell me how to get it to work?

Statistics: Posted by Devil — Thu Oct 14, 2004 8:56 pm

Re: why isn't this working?

2004-10-14T20:52:47-04:00

bind raw - "NOTICE" intro

set intro "being"
set intro1 "introduced"

proc intro {from keyword arg} {
global intro intro1
if {[string match *$intro* $arg]} {
if {[string match *$intro1* $arg]} {
putserv "PRIVMSG #sysops :SRV_INTRODUCED! [strftime \[%H:%M\]] $arg"
}
}
}

That's wrong.

Statistics: Posted by DarkJFMan — Thu Oct 14, 2004 8:52 pm

why isn't this working?

2004-10-14T20:45:18-04:00

Can someone help me out on this one? the bot returns this error.

Code:

 Tcl error [intro]: wrong # args: should be "intro from keyword arg"

and here's how the tcl is now.

Code:

bind raw - "NOTICE" introset intro "being"set intro1 "introduced"proc intro {from keyword arg} {global intro intro1if {[string match *$intro* $arg]} {if {[string match *$intro1* $arg]} {putserv "PRIVMSG #sysops :SRV_INTRODUCED! [strftime \[%H:%M\]] $arg"}}}

Statistics: Posted by Devil — Thu Oct 14, 2004 8:45 pm