count characters affected by control codes

[De Kus]

We know all the scripts that count conrol codes and kicks them at a given amount.
But however, I feel sorry for guys beeing kicked from 2 lines that contain only 5 bold characters and offers post 3 lines the whole line in extrem red and bold, so I came up with the idea it would be more fair, if we would count how many characters are really affected by control codes.

I have been looking throught the forum via search, but couldn't find something like that and haven't seen something like that before. Does anybody know if there is already a script or script part doing this?
I would apprectiate any existing code, if there is none, I would probably create one, but I don't want to invent the wheel twice, you know . I only hope the CPU usage will be reasonable @_o.

[Sir_Fz]

I don't think there's a script that does the check like that, it's a nice idea though.

[awyeah]

Depends also upon the font you are using. Plus I've seen COLORS when used with BOLD they mess up. Or alot of control codes used in tsunami floods usually do too as we know. Don't match individual ones, try certain combinations of all 4-5 of them.

if {[string match "*[boldcode][reversecode]*"]} and {total_codes >= bla}
if {[string match "*[boldcode][underlinecode]*"]} and {total_codes >= bla}

[De Kus]

the font that someone is using will not affect how many characters the control will affect.
ex.: "Nick\002:\002 hello"
will have 1 affected character which is ":" no matter what font you use.
ex.: "\002\0034stop it !\003\002"
will have 14 affected characters, twice "stopit!", no matter what font you use.

[awyeah]

Then my guess is to use string index for $text, incr the index by 1 everytime you pass the foreach loop, and check the control character in each index, and if match check the control character in following the text after the control character. Set a list of characters you wouldn't want to allow.

[De Kus]

I already had an idea about splitten the text in each control char like:
set bold [split $text \002]
set color [split $text \003]
in bold each element with index 1,3,5, etc will contain affected chars (after stripping other control codes) for colors, i would do a ^[0-9]{1,2},?[0-9]{0,2} regsub to delete the color code and the result of the regsub tells me, if it was a start or close tag. But however, it would be easier to start with some known working code.

[De Kus]

So, something I wrote together in a few minutes, haven't tested it yet. Do you think thats a good start?
If this works it might be even CPU friendly enough for a bind to pubm.

[De Kus]

I was bored, I know .
I will debug the code later (so assume it has error and might even not run at all ^^)
Any suggestions regarding the features?

PS: first debugging done.

PPS: code moved to http://forum.egghelp.org/viewtopic.php?t=9434