Replace my colors!

Print Thread

Replace my colors! #48308 09/09/03 06:14 PM
B bleah
bleah B	Following up to this thread where color codes higher than 16 are no longer working... Here's my problem now: I'm using a simple script to change unreadable colors on a certain background color: on ^:text::#:{ echo $color(text) -tqlbf $chan < $+ $nick $+ > $visible($1-) } alias visible { if ($colour(back) == 1) { return $replace($1-,01,14) } elseif ($colour(back) == 0) { return $replace($1-,00,14) } } So, if people are forcing black text on my black background, I'll see 'em, and inversely on white BG. But if those people use one character color code, like "1text" ? If I do a $replace($1-,1,14), then when someone says "12text", then my result will be "142text" (displays "2text" in color 14), which is something I didn't want to. On my original version, I replaced colors 10 to 15 by colors 42 to 47, then replace color 1 by 14, but 'cause of the way $replace works, I'm currently screwed Any ideas on how this could be done?

Re: Replace my colors!

#48309 09/09/03 06:20 PM

Joined: Dec 2002

Posts: 3,534

Kent, England

SladeKraven Offline

Hoopy frood

SladeKraven

Hoopy frood

Joined: Dec 2002

Posts: 3,534

Kent, England

Code:

on ^*:text:*:#:{ 
  echo $color(text) -tqlbf $chan &lt; $+ $nick $+ &gt; $visible($1-) 
  haltdef
}
alias visible {
  if ($colour(back) == 1) { return $replace($1-,01,14) }
  elseif ($colour(back) == 0) { return $replace($1-,00,14) }
}

Re: Replace my colors! #48310 09/09/03 06:45 PM
B bleah
bleah B	Not helpful. This is the raw event: <- :nick!ident@host.com PRIVMSG #channel :1This is a test On my black background (color 1), all I'll see is this: [14:44] <nick> ... and I want to replace color 1 by color 14 :\|

Re: Replace my colors!

#48311 09/09/03 07:17 PM

Joined: Dec 2002

Posts: 3,534

Kent, England

SladeKraven Offline

Hoopy frood

SladeKraven

Hoopy frood

Joined: Dec 2002

Posts: 3,534

Kent, England

Code:

on ^*:text:*:#: {   
  echo $color(text) -tqlbf $chan &lt; $+ $nick $+ &gt; $visible($1-)   
  haltdef
}

alias visible {  
  if ($colour(back) == 1) { return $chr(3) $+ 14 $+ $1- $+ $chr(3)  }   
  elseif ($colour(back) == 0) { return $chr(3) $+ 14 $+ $1- $+ $chr(3) } 
}

This works for me.

Re: Replace my colors! #48312 09/09/03 07:55 PM
B bleah
bleah B	oh god, maybe I'm VERY bad in explanations... The script you posted just replaces any normal text to color 14. If I wanted that, I would do menu View, Colors, and change my "Normal Text" there. The condition to replace text is IF the text contains a control code that is unreadable using a background color. Try white text on white background Try black background on black background Try yellow (8) on white background. Any other color is acceptable and needs to be displayed normally.

Re: Replace my colors!

#48313 09/09/03 08:40 PM

Joined: Dec 2002

Posts: 3,534

Kent, England

SladeKraven Offline

Hoopy frood

SladeKraven

Hoopy frood

Joined: Dec 2002

Posts: 3,534

Kent, England

Sorry, read it wrong, try:

Code:

on ^*:text:*:#: {   
  echo $color(text) -tqlbf $chan &lt; $+ $nick $+ &gt; $visible($1-)   
  haltdef
}

alias visible {    
  if ($colour(back) == 1) &amp;&amp; ($chr(3) $+ 1 isin $1-) { return $chr(3) $+ 14 $+ $1- $+ $chr(3)  }     
  elseif ($colour(back) == 0) &amp;&amp; ($chr(3) $+ 0 isin $1-) { return $chr(3) $+ 14 $+ $1- $+ $chr(3) } 
}

Re: Replace my colors! #48314 09/09/03 09:16 PM
B bleah
bleah B	Code: if ($colour(back) == 1) && ($chr(3) $+ 1 isin $1-) { return $chr(3) $+ 14 $+ $1- $+ $chr(3) } This script will catch any control code that starts with a 1 1 10 11 12 13 14 15

Re: Replace my colors! #48315 09/09/03 09:25 PM
Joined: Dec 2002 Posts: 3,534 Kent, England S SladeKraven Hoopy frood
SladeKraven Hoopy frood S Joined: Dec 2002 Posts: 3,534 Kent, England	Try changing isin to iswm. Last edited by SladeKraven; 09/09/03 09:33 PM.

Re: Replace my colors! #48316 09/09/03 10:39 PM
B bleah
bleah B	The color codes rule is more complex. a color code with 1-digit color number (0-9) and alphabetic text (a-z) == colored text a color code with 2-digits color numbers (00-15) and alphabetic text (a-z) == colored text a color code with 1-digit color number (0-9) and text which starts with a number (9abc) == 2 digits color number + remaining text (unwished) a color code with 2-digits color numbers (00-15) and text which starts with a number (9abc) == colored text + the number and text Keeping in mind that some people can use ^01 or ^1 for black color, or use a color between 10 and 15, the script has to detect if the next character is a letter or a number. Regex is the solution?

Re: Replace my colors! #48317 10/09/03 12:23 AM
Joined: Jan 2003 Posts: 2,125 Q qwerty Hoopy frood
qwerty Hoopy frood Q Joined: Jan 2003 Posts: 2,125	Yes, this situation screams for regex. Try this: Code: alias visible { var %r = /(?<=\x03)(?: $iif($color(back) < 10,0 $ifmatch (?!,\d)\| $& $ifmatch (?!,?\d),$color(back) (?!,\d)) )/x !.echo -q $regsub($1,%r,$color(normal).dd,%r) return %r }

Link Copied to Clipboard

Forums Scripts & Popups Replace my colors!