This is just a simple script that eliminates the need to use [ctrl]+[k] every time you want to type in a colored font. Its one of 50 million here on hawkee but its all together scripted well. This isnt my first script by any means, but i just got a Hawkee account to its the first one im posting.
To Use:
*NOTE: If you use the script and it doubles whatever you say (once in plain text and once in colored text) it means that you have another script using the ON INPUT trigger. This script (or any like it) WILL NOT WORK unless you disable the other script using the ON INPUT trigger.
;COLOR FONT 1.2 script by pope
;PEERCOMMONS chat.peercommons.net 6667
;#scripters.united
;thanks to Vox91 for the !iswmcs suggestion
;
menu * {
COLOR FONT
.on/off: {
if (!%cf.font) {
set %cf.font 1
}
if (!%cf.bkgrd) {
set %cf.bkgrd 0
}
if (!%colorfont) {
set %colorfont 1
echo -a 4 Color Font Now Active.
halt
}
unset %colorfont
echo -a 4 Color Font Now Inactive.
halt
}
.underline: {
if (!%cf.und) {
set %cf.und 1
halt
}
unset %cf.und
}
.bold: {
if (!%cf.bld) {
set %cf.bld 1
halt
}
unset %cf.bld
}
.text color
..0 white: set %cf.font 0
..1 black: set %cf.font 1
..2 blue: set %cf.font 2
..3 green: set %cf.font 3
..4 lightred: set %cf.font 4
..5 brown: set %cf.font 5
..6 purple: set %cf.font 6
..7 orange: set %cf.font 7
..8 yellow: set %cf.font 8
..9 lightgreen: set %cf.font 9
..10 cyan: set %cf.font 10
..11 light-cyan: set %cf.font 11
..12 lightblue: set %cf.font 12
..13 pink: set %cf.font 13
..14 grey: set %cf.font 14
..15 lightgrey: set %cf.font 15
.background color
..0 white: set %cf.bkgrd 0
..1 black: set %cf.bkgrd 1
..2 blue: set %cf.bkgrd 2
..3 green: set %cf.bkgrd 3
..4 lightred: set %cf.bkgrd 4
..5 brown: set %cf.bkgrd 5
..6 purple: set %cf.bkgrd 6
..7 orange: set %cf.bkgrd 7
..8 yellow: set %cf.bkgrd 8
..9 lightgreen: set %cf.bkgrd 9
..10 cyan: set %cf.bkgrd 10
..11 light-cyan: set %cf.bkgrd 11
..12 lightblue: set %cf.bkgrd 12
..13 pink: set %cf.bkgrd 13
..14 grey: set %cf.bkgrd 14
..15 lightgrey: set %cf.bkgrd 15
}
on *:input:#: {
if ((/ !isin $left($1,1)) && (%colorfont)) {
set %color.font $+ %cf.font $+ , $+ %cf.bkgrd
if (%cf.bld) {
set %color.font $+ %color.font
}
if (%cf.und) {
set %color.font $+ %color.font
}
msg $chan %color.font $+ $strip($1-)
halt
}
}
Since I didn't like being forced to use a background color .. white background on a white field is okay if the reader is using a white background .. but looks harsh on a black background .. I modified it slightly this way:
; this one will give you a choice for a colored background, default is white
; set %color.font $+ %cf.font $+ , $+ %cf.bkgrd
; this one removes the colored background
set %color.font $+ %cf.font