This snippet just allows you to change colors of your text.
Example, "Hello" would be displayed as "Hello"
just put it in your remotes, and make sure you pick your colors through the menu.
#talker on
on 1:input:*: {
if (!%co1) || (!%co2) { echo -a Please set the colors in the menu, or disable the talker. | halt }
elseif (/ !iswm $left($1,1)) && (Status Window !iswm $active) {
var %x 1
while (%x <= $gettok($1-,0,32)) {
var %text1 $mid($gettok($1-, [ [ %x ] ],32),1,1)
var %text [ [ %text ] ] $replace($mid($gettok($1-, [ [ %x ] ],32),1,1),[ [ %text1 ] ], $+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],)) $+ $mid($gettok($1-, [ [ %x ] ],32),2,$calc($len($gettok($1-, [ [ %x ] ],32) - 1)))
inc %x
}
msg $active %text
halt
}
}
#talker end
menu * {
Talker
.Colors
..Color One %co1 : set %co1 $$input(Choose a color: Ex. 12,eo,Color,%co1)
..Color Two %co2 : set %co2 $$input(Choose a color: Ex. 14,eo,Color,%co2)
. -
. $iif($group(#talker) == on,$style(1) Enabled,Enabled): enable #talker
. $iif($group(#talker) == off,$style(1) Disabled,Disabled): disable #talker
}
Nevermind. I figured it out and rewrote parts of the codes. Works good now.
Anybody have any problems let me know and I'll show you what changes I made to it.
Only thing I haven't been able to fix just yet is being able to change to ANY color I want without it appearing blank to the Java users.
The blue background with light blue text and a couple others work good. But colors like red text with black background, or white text with blue background and others, do not work. They appear blank, like invisible until I change it to some other colors that will make it appear and be visible to all users.
var %text [ [ %text ] ] $replace($mid($gettok($1-, [ [ %x ] ],32),1,1),[ [ %text1 ] ], $+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],)) $+ $mid($gettok($1-, [ [ %x ] ],32),2,$calc($len($gettok($1-, [ [ %x ] ],32) - 1)))
Somewhere along that line is wrong. And I'm thinking it's something with this part from that line....
$+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],))
Ok, I played around with it testing it from Java while being on mIRC at the same time. I just started putting different color numbers together to see if any colors come up. Some do, some dont. The ones that don't will remain a blank message. The ones I do will look like this:
(This is what it looks like on Java)
11,12**t**11,12**est Notice the ***** between the letters? I don't know why a bunch of **** comes up. But at least the colors finally came up. The people in Java are able to see the colors finally when I have one that will show up but it's all screwed up with asterisks (****).I've got a question. I used this for mIRC. People in mIRC can see my color change but people using Java instead of mIRC cannot see my colors. They see a blank message. It's all white.
I chose a white text with blue background and it showed up as that in mIRC but it shows up as all white, even with other colors, for the people using Java.
How do I fix this?
@HatebreedeR
when adding your color do
example
04,01 <-- red text black background
if your using a one digit color, always add a 0 before it
example
01 02 03 04 etc
here is a real quick re-write so your actions will also be color
#talker off
on 1:input:*: {
if (!%co1) || (!%co2) { echo -a Please set the colors in the menu, or disable the talker. | halt }
elseif (/ !iswm $left($1,1)) && (Status Window !iswm $active) {
var %x 1
while (%x <= $gettok($1-,0,32)) {
var %text1 $mid($gettok($1-, [ [ %x ] ],32),1,1)
var %text [ [ %text ] ] $replace($mid($gettok($1-, [ [ %x ] ],32),1,1),[ [ %text1 ] ], $+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],)) $+ $mid($gettok($1-, [ [ %x ] ],32),2,$calc($len($gettok($1-, [ [ %x ] ],32) - 1)))
inc %x
}
msg $active %text
halt
}
elseif (/me iswm $left($1,1)) && (Status Window !iswm $active) {
var %x 1
while (%x <= $gettok($2-,0,32)) {
var %text1 $mid($gettok($2-, [ [ %x ] ],32),1,1)
var %text [ [ %text ] ] $replace($mid($gettok($2-, [ [ %x ] ],32),1,1),[ [ %text1 ] ], $+(,[ %co1 ],,[ [ %text1 ] ],,[ %co2 ],)) $+ $mid($gettok($2-, [ [ %x ] ],32),2,$calc($len($gettok($2-, [ [ %x ] ],32) - 1)))
inc %x
}
me %text
halt
}
}
#talker end
menu * {
Talker
.Colors
..Color One %co1 : set %co1 $$input(Choose a color: Ex. 12,eo,Color,%co1)
..Color Two %co2 : set %co2 $$input(Choose a color: Ex. 14,eo,Color,%co2)
. -
. $iif($group(#talker) == on,$style(1) Enabled,Enabled): enable #talker
. $iif($group(#talker) == off,$style(1) Disabled,Disabled): disable #talker
}