Colour stripper

[Maz.b]

I have a colour stripper for a eggdrop, it does a goodjob but it doesn't strip all the colours.

Code: Select all

catch {unbind raw - PRIVMSG *raw:irc:msg} 
catch {unbind raw - PRIVMSG *raw:PRIVMSG} 
bind raw - PRIVMSG striprivmsg 
proc striprivmsg {f k a} { 
   set a [stripcodes abcgru $a] 
   *raw:irc:msg $f $k $a 
   *raw:PRIVMSG $f $k $a 
} 

putlog "colourstripper... Loaded" 

How can I add more colours to strip?

[caesar]

instead of

Code: Select all

set a [stripcodes abcgru $a] 

try user's strip color regsub:

Code: Select all

regsub -all {\002|\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\026|\037} $a {} a

[Maz.b]

Heey Thanks! It is working! <3333