Problem script counter

ranny · Post by **ranny** » Mon Jul 11, 2005 3:54 pm

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

demond · Post by **demond** » Mon Jul 11, 2005 4:05 pm

change first [bind pub] to [bind pubm]

ranny · Post by **ranny** » Mon Jul 11, 2005 7:51 pm

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

Code: Select all

[regexp -all {:)} $arg]

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

Thanks

Post by **Sir_Fz** » Mon Jul 11, 2005 7:54 pm

Use

Code: Select all

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

instead.