mIRC Colors

Now you can uses colors in your kicks, text, Quit Msg's, and just about every other place.




Hows the thing work?
mIRC 4.7 uses ascii characters and numbers for all then bold, underline, and color stuff. if you're using mIRC 4.7 then the ascii blocks will be invisible, but try using mIRC 4.6 or another client and you will be able to see them.
The Ascii Stuff
Ascii 2 is Bold
//say $chr(2) $+ This would be bold $+ $chr(2)
Ascii 3 is Color
//say $chr(3) $+ 4This would be red $+ $chr(3)
Ascii 22 is Reverse Color
//say $chr(22) $+ The background would be black and text white $+ $chr(22)
Ascii 31 is Underlined
//say $chr(31) $+ This Would be underlined $+ $chr(31)

Instead of typing $chr(#) you can press the following for the ascii characters
Ctrl+B = $chr(2) = Bold
Ctrl+K = $chr(3) = Color
Ctrl+R = $chr(22) = Reverse
Ctrl+U = $chr(31) = Underlined
And anything enclosed in the blocks will be affected.

Color Table
The format for colors is:
[Ascii 3][Color Number](text msg)[Ascii 3]
And for Background Colors:
[Ascii 3][Foreground Color Number,Background Color Number](text msg)[Ascii 3]
The colors are as follows:
1  = Black
2  = Dark Blue
3  = Dark Green
4  = Red
5  = Brown
6  = Purple
7  = Orange
8  = Yellow
9  = Light Green
10 = Aqua
11 = Light Blue
12 = Blue
13 = Violet
14 = Grey
15 = Light Grey
16 = White

Examples:
//say $chr(3) $+ 7Hello $+ $chr(3) everyone
would say Hello in orange and everyone in black
Ctrl+k 7Hello Ctrl+k everyone
would be the same as above

//say $chr(3) $+ 8,6Wild $+ $chr(3)
would say Wild in yellow with a purple background.
Ctrl+k 8,6Wild Ctrl+k 
would also say wild in yellow w/ purple background.
Helpful Statements


This one will list out the color table for you!
Alias:
ct {
  set %ct 1
  :next
  if (%ct > 16) { goto done }
  echo 2 $chr(3) $+ %ct $+ Color Table Number %ct $+ $chr(3)
  inc %ct 1
  goto next
  :done
}
Then just type /ct
This one will allow you to talk in random colors!
Alias:
rainbow {
  set %rainbow.msg *2
  if ($len(%rainbow.msg) >= 52) { echo 2 [TSG] Your msg was to long. Max 52 characters. | halt }
  else { set %length $len(%rainbow.msg) }
  set %cycles 1
  :next
  if ($mid(%cycles,1,%rainbow.msg) == $null) { goto done }
  if ($mid(%cycles,1,%rainbow.msg) == $chr(32)) { set %rainbow.str $chr(3) $+ $r(1,9) $+ $chr(160) $+ $chr(3) }
  else { set %rainbow.str $chr(3) $+ $r(1,15) $+ $mid(%cycles,1,%rainbow.msg) $+ $chr(3) }
  set %rainbow %rainbow %rainbow.str
  inc %cycles 1
  goto next
  :done
  %rainbow = $remove(%rainbow,$chr(32))
  msg $$1 %rainbow
  unset %rainbow
}
Usage:
/rainbow #mirc I love random colors!
/rainbow _MiZeR_ rainbow colors rule!
This page hosted by Get your own Free Homepage
©1996 The Scripters Guild All Rights Reserved
Please send all questions and comments to TiAMaT


1