egghelp/eggheads community

Problem script counter

2005-07-11T19:54:40-04:00

Use

Code:

[regexp -all {:\)} $arg]

instead.

Statistics: Posted by Sir_Fz — Mon Jul 11, 2005 7:54 pm

Problem script counter

2005-07-11T19:51:09-04:00

hello, thank you demond, it's good.
Another question, why with

Code:

[regexp -all {:)} $arg]

I have this error message:Tcl error [counter]: couldn't compile regular expression pattern: parentheses () not balanced ??

Thanks

Statistics: Posted by ranny — Mon Jul 11, 2005 7:51 pm

Problem script counter

2005-07-11T16:05:46-04:00

change first [bind pub] to [bind pubm]

Statistics: Posted by demond — Mon Jul 11, 2005 4:05 pm

Problem script counter

2005-07-11T15:54:36-04:00

Hello everyone,

I made this small script

bind pub - * counter
proc counter {nick uhost handle channel arg} {
global counternumber
set counternumber($nick) [regexp -all -nocase {[A-Z][0-9]} $arg]
}

bind pub - !count countera
proc countera {nick uhost handle channel arg} {
global counternumber
putserv "privmsg $channel :$counternumber($nick)"
}

but that returns this error:can't read "counternumber(lorenbarre)": no such variable

if somebody can help me.

thank you

Statistics: Posted by ranny — Mon Jul 11, 2005 3:54 pm