5 color text script

By Spanky on Aug 26, 2009

okay so this is sorta from http://www.hawkee.com/snippet/6458/ and sorta from my version of that. okay so whats Different about this one is. it has 5 colors 1 for caps 1 for normal text 1 for numbers 1 for punctuation and 1 for the background(if u want a background) just load it into a new remote. so basically i stumbled upon this while messing with the Regex of that other color script.. so i guess I'm lucky.. anyways enjoy.

menu * {
  .Colors
  ..On: { .Enable #Color-Talker2 | echo Colors are now Enabled, $me $+ . }
  ..Off: { .Disable #Color-Talker2 | echo Colors are Disabled, $me $+ . }
} 
#Color-Talker on
ON *:INPUT:*:{ if ( $left($1,1) == / ) || ($ctrlenter) || ($inpaste) return | else {
    if (c isincs $gettok($chan($target).mode,1,32)) return
    if (%fuck1 == off) return {
      else {
        if  (!* iswm $1) return
        if (%acronym) tokenize 32 $replacexcs($1-,>.>,».»,<.<,«.«,LOl,-Laughing Out Loud-,BRB,-Be Right Back-,HB,-Hurry Back-,WB,-Welcome Back-,ILY,-I <3 You-,ROFLMAO,-Rolling On Floor Laughing My Ass Off-,LMAO,-Laughing My Ass Off-,ROFL,-Rolling On Floor Laughing-,BBL,-Be Back Later-,BBIAB,-Be Back In A Bit-,BBS,-Be Back Soon-,PMSL,-Pissing Myself Laughing-,TBH,-To Be Honest-,TYVM,-Thank You Very Much-,TTYL,-Talk To You Later-,TY,-Thank You-,YW,-You're Welcome-,OMG,-Oh My God-,ASAP,-As Soon As Possible-,AFAIK,-As Far As I Know-,AFK,-Away From Keyboard-,BBN,-Bye Bye Now-,ASL,-Age/Sex/Location-,IMCO,-In My Considered Opinion-,IMHO,-In My Humble Opinion-,IMO,-In My Opinion-,JK,-Just Kidding-,LMSO,-Laughing My Socks Off-,NP,-No Problem-,WYSIWYG,-What You See Is What You Get-,WTH,-What The Hell?!-,TMI,-Too Much Information-)
        if (%emoticon) tokenize 32 $regsubex($1-,/( $+ $c.ereg $+ |\?(?=[]})".?!:({[]| ['"]| |$))/gi,$replacecs(\1,x,×,X,×,s,§,S,§,D,Ð,d,Ð,p,Þ,P,þ,?,?,O,$c.rand.upper.o,o,$c.rand.lower.o,-,¬,>.<,[-.-]",$chr(41),$c.rand.hap,$chr(40),$c.rand.unhap,C,Ç,c,ç,U,Û,u,û,F,ƒ,f,ƒ))
        if (%autoformat) && ($len($1-) > 1) && (!%me) tokenize 32 $regsubex($replacex($1-,dont,don't,w/ $+ $chr(32),$chr(32) $+ with,b/c,because),/(^[A-z]|(?<=[.?!:]\s)[A-z]|\bi\b)/g,$upper(\1)) $+ $iif($regex($1-,/^(?!['!?@.]).+(?<=[A-z0-9])(?<![]^_`\\[])$/),)
        if (%4.numb) tokenize 32 $regsubex($1-,/((?: $+ $c.ereg $+ |[^A-z\s]|[]^_`\\[])+)/gi,$+(,%4.numb,\1,%4.norm))
        if (%4.caps) tokenize 32 $regsubex($1-,/(?<=^|[A-z\s]| $+ %4.norm $+ )(?<! $+ %4.numb $+ [A-z])([A-Z]+)(?=[A-z\s]| $+ %c.punc $+ |$)/g,$+(,%4.caps,\1,%4.norm))
        tokenize 32 $strip($1-,c)
        msg $target %4.norm $+ $regsubex($regsubex($regsubex($1-,/([0-9]+)/g,%4.numb $+ \1 $+ %4.norm),/([][(){}<>\\|/%;:@_`'.!?£$^#&~"*+=-]+)/g,%4.cpunc $+ \1 $+ %4.norm),/(^[A-z]|[:]\s[A-z]|[A-Z]+)/g,%4.caps $+ $+(\1) $+ %4.norm)    
        haltdef
      }
    }
  }
}
Menu *,menubar {
  $me $+ 's Exclusive Talker
  .$style(3) Current Colour - $iif(%txtver,%txtver,None set)
  .-
  .$iif(%emoticon,$style(1)) Emoticons:$iif(%emoticon,unset %emoticon,set %emoticon 1) | echo -a [Aids turned $iif(%emoticon,on,off) $+ .]
  .$iif(%autoformat,$style(1)) Automatic formatting:$iif(%autoformat,unset %autoformat,set %autoformat 1) | echo -a [Automatic formatting turned $iif(%autoformat,on,off) $+ .]
  .$iif(%acronym,$style(1)) Acronyms:$iif(%acronym,unset %acronym,set %acronym 1) | echo -a [Acronyms turned $iif(%acronym,on,off) $+ .]
  .-
  .Coloured Caps/Punctuation
  ..$iif(%txtver == Custom,$style(1)) Custom
  ...$iif(((%txtver == Custom) && (%4.norm)),$style(1)) Normal
  ....$iif(00* iswm %4.norm,$style(1)) White (00):set %txtver Custom | set %4.norm 00
  ....$iif(01* iswm %4.norm,$style(1)) Black (01):set %txtver Custom | set %4.norm 01
  ....$iif(02* iswm %4.norm,$style(1)) Navy (02):set %txtver Custom | set %4.norm 02
  ....$iif(03* iswm %4.norm,$style(1)) Green (03):set %txtver Custom | set %4.norm 03
  ....$iif(04* iswm %4.norm,$style(1)) Red (04):set %txtver Custom | set %4.norm 04
  ....$iif(05* iswm %4.norm,$style(1)) Brown (05):set %txtver Custom | set %4.norm 05
  ....$iif(06* iswm %4.norm,$style(1)) Purple (06):set %txtver Custom | set %4.norm 06
  ....$iif(07* iswm %4.norm,$style(1)) Orange (07):set %txtver Custom | set %4.norm 07
  ....$iif(08* iswm %4.norm,$style(1)) Yellow (08):set %txtver Custom | set %4.norm 08
  ....$iif(09* iswm %4.norm,$style(1)) Lime (09):set %txtver Custom | set %4.norm 09
  ....$iif(10* iswm %4.norm,$style(1)) Teal (10):set %txtver Custom | set %4.norm 10
  ....$iif(11* iswm %4.norm,$style(1)) Aqua (11):set %txtver Custom | set %4.norm 11
  ....$iif(12* iswm %4.norm,$style(1)) Blue (12):set %txtver Custom | set %4.norm 12
  ....$iif(13* iswm %4.norm,$style(1)) Fuchsia (13):set %txtver Custom | set %4.norm 13
  ....$iif(14* iswm %4.norm,$style(1)) Gray (14):set %txtver Custom | set %4.norm 14
  ....$iif(15* iswm %4.norm,$style(1)) Silver (15):set %txtver Custom | set %4.norm 15
  ....$iif(!%4.norm,$style(1)) Unset:set %txtver Custom | unset %4.norm
  ...$iif((%txtver == Custom) && ($mid(%4.norm,4)),$style(1)) Background
  ....$iif(($mid(%4.norm,4) == ,00),$style(1)) White (00):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,00
  ....$iif(($mid(%4.norm,4) == ,01),$style(1)) Black (01):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,01
  ....$iif(($mid(%4.norm,4) == ,02),$style(1)) Navy (02):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,02
  ....$iif(($mid(%4.norm,4) == ,03),$style(1)) Green (03):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,03
  ....$iif(($mid(%4.norm,4) == ,04),$style(1)) Red (04):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,04
  ....$iif(($mid(%4.norm,4) == ,05),$style(1)) Brown (05):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,05
  ....$iif(($mid(%4.norm,4) == ,06),$style(1)) Purple (06):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,06
  ....$iif(($mid(%4.norm,4) == ,07),$style(1)) Orange (07):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,07
  ....$iif(($mid(%4.norm,4) == ,08),$style(1)) Yellow (08):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,08
  ....$iif(($mid(%4.norm,4) == ,09),$style(1)) Lime (09):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,09
  ....$iif(($mid(%4.norm,4) == ,10),$style(1)) Teal (10):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,10
  ....$iif(($mid(%4.norm,4) == ,11),$style(1)) Aqua (11):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,11
  ....$iif(($mid(%4.norm,4) == ,12),$style(1)) Blue (12):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,12
  ....$iif(($mid(%4.norm,4) == ,13),$style(1)) Fuchsia (13):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,13
  ....$iif(($mid(%4.norm,4) == ,14),$style(1)) Gray (14):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,14
  ....$iif(($mid(%4.norm,4) == ,15),$style(1)) Silver (15):set %txtver Custom | set %4.norm $mid(%4.norm,1,3) $+ ,15
  ....$iif(!$mid(%4.norm,4),$style(1)) Unset:set %txtver Custom | set %4.norm $mid(%4.norm,1,3)
  ...$iif(((%txtver == Custom) && (%4.numb)),$style(1)) Numbers
  ....$iif(00* iswm %4.numb,$style(1)) White (00):set %txtver Custom | set %4.numb 00
  ....$iif(01* iswm %4.numb,$style(1)) Black (01):set %txtver Custom | set %4.numb 01
  ....$iif(02* iswm %4.numb,$style(1)) Navy (02):set %txtver Custom | set %4.numb 02
  ....$iif(03* iswm %4.numb,$style(1)) Green (03):set %txtver Custom | set %4.numb 03
  ....$iif(04* iswm %4.numb,$style(1)) Red (04):set %txtver Custom | set %4.numb 04
  ....$iif(05* iswm %4.numb,$style(1)) Brown (05):set %txtver Custom | set %4.numb 05
  ....$iif(06* iswm %4.numb,$style(1)) Purple (06):set %txtver Custom | set %4.numb 06
  ....$iif(07* iswm %4.numb,$style(1)) Orange (07):set %txtver Custom | set %4.numb 07
  ....$iif(08* iswm %4.numb,$style(1)) Yellow (08):set %txtver Custom | set %4.numb 08
  ....$iif(09* iswm %4.numb,$style(1)) Lime (09):set %txtver Custom | set %4.numb 09
  ....$iif(10* iswm %4.numb,$style(1)) Teal (10):set %txtver Custom | set %4.numb 10
  ....$iif(11* iswm %4.numb,$style(1)) Aqua (11):set %txtver Custom | set %4.numb 11
  ....$iif(12* iswm %4.numb,$style(1)) Blue (12):set %txtver Custom | set %4.numb 12
  ....$iif(13* iswm %4.numb,$style(1)) Fuchsia (13):set %txtver Custom | set %4.numb 13
  ....$iif(14* iswm %4.numb,$style(1)) Gray (14):set %txtver Custom | set %4.numb 14
  ....$iif(15* iswm %4.numb,$style(1)) Silver (15):set %txtver Custom | set %4.numb 15
  ....$iif(!%4.numb,$style(1)) Unset:set %txtver Custom | unset %4.numb
  ...$iif(((%txtver == Custom) && (%4.caps)),$style(1)) Caps
  ....$iif(00* iswm %4.caps,$style(1)) White (00):set %txtver Custom | set %4.caps 00
  ....$iif(01* iswm %4.caps,$style(1)) Black (01):set %txtver Custom | set %4.caps 01
  ....$iif(02* iswm %4.caps,$style(1)) Navy (02):set %txtver Custom | set %4.caps 02
  ....$iif(03* iswm %4.caps,$style(1)) Green (03):set %txtver Custom | set %4.caps 03
  ....$iif(04* iswm %4.caps,$style(1)) Red (04):set %txtver Custom | set %4.caps 04
  ....$iif(05* iswm %4.caps,$style(1)) Brown (05):set %txtver Custom | set %4.caps 05
  ....$iif(06* iswm %4.caps,$style(1)) Purple (06):set %txtver Custom | set %4.caps 06
  ....$iif(07* iswm %4.caps,$style(1)) Orange (07):set %txtver Custom | set %4.caps 07
  ....$iif(08* iswm %4.caps,$style(1)) Yellow (08):set %txtver Custom | set %4.caps 08
  ....$iif(09* iswm %4.caps,$style(1)) Lime (09):set %txtver Custom | set %4.caps 09
  ....$iif(10* iswm %4.caps,$style(1)) Teal (10):set %txtver Custom | set %4.caps 10
  ....$iif(11* iswm %4.caps,$style(1)) Aqua (11):set %txtver Custom | set %4.caps 11
  ....$iif(12* iswm %4.caps,$style(1)) Blue (12):set %txtver Custom | set %4.caps 12
  ....$iif(13* iswm %4.caps,$style(1)) Fuchsia (13):set %txtver Custom | set %4.caps 13
  ....$iif(14* iswm %4.caps,$style(1)) Gray (14):set %txtver Custom | set %4.caps 14
  ....$iif(15* iswm %4.caps,$style(1)) Silver (15):set %txtver Custom | set %4.caps 15
  ....$iif(!%4.caps,$style(1)) Unset:set %txtver Custom | unset %4.caps
  ...$iif(((%txtver == Custom) && (%4.cpunc)),$style(1)) punc
  ....$iif(00* iswm %4.cpunc,$style(1)) White (00):set %txtver Custom | set %4.cpunc 00
  ....$iif(01* iswm %4.cpunc,$style(1)) Black (01):set %txtver Custom | set %4.cpunc 01
  ....$iif(02* iswm %4.cpunc,$style(1)) Navy (02):set %txtver Custom | set %4.cpunc 02
  ....$iif(03* iswm %4.cpunc,$style(1)) Green (03):set %txtver Custom | set %4.cpunc 03
  ....$iif(04* iswm %4.cpunc,$style(1)) Red (04):set %txtver Custom | set %4.cpunc 04
  ....$iif(05* iswm %4.cpunc,$style(1)) Brown (05):set %txtver Custom | set %4.cpunc 05
  ....$iif(06* iswm %4.cpunc,$style(1)) Purple (06):set %txtver Custom | set %4.cpunc 06
  ....$iif(07* iswm %4.cpunc,$style(1)) Orange (07):set %txtver Custom | set %4.cpunc 07
  ....$iif(08* iswm %4.cpunc,$style(1)) Yellow (08):set %txtver Custom | set %4.cpunc 08
  ....$iif(09* iswm %4.cpunc,$style(1)) Lime (09):set %txtver Custom | set %4.cpunc 09
  ....$iif(10* iswm %4.cpunc,$style(1)) Teal (10):set %txtver Custom | set %4.cpunc 10
  ....$iif(11* iswm %4.cpunc,$style(1)) Aqua (11):set %txtver Custom | set %4.cpunc 11
  ....$iif(12* iswm %4.cpunc,$style(1)) Blue (12):set %txtver Custom | set %4.cpunc 12
  ....$iif(13* iswm %4.cpunc,$style(1)) Fuchsia (13):set %txtver Custom | set %4.cpunc 13
  ....$iif(14* iswm %4.cpunc,$style(1)) Gray (14):set %txtver Custom | set %4.cpunc 14
  ....$iif(15* iswm %4.cpunc,$style(1)) Silver (15):set %txtver Custom | set %4.cpunc 15
  ....$iif(!%4.cpunc,$style(1)) Unset:set %txtver Custom | unset %4.cpunc
  .-
  .Reset colours:unset %txtver | unset %4.* | echo -a 
}
alias c.ereg return (?<=[]})"'.?!:({[]| ['"]| ||^)(?:[DX'O:;x=>][])<ZOPFSGDVX3:;\|=([](?<![ods][fosbvp])|[\Q0xcvuo-><\E][_,.']+[\Q0xcvuo-><\E]|\.o\.)(?=[]})"'.?!:({[]| ['"]| |$)
alias c.rand.upper.o return $replace($rand(1,7),1,Ø,2,Ò,3,Ó,4,Ô,5,Õ,6,Ö,7,©)
alias c.rand.lower.o return $replace($rand(1,9),1,ø,2,ò,3,ó,4,ô,5,õ,6,ö,7,ð,8,¤,9,º)
alias c.rand.hap return $replace($rand(1,6),1,$chr(41),2,›,3,»,4,>,5,$chr(125),6,])
alias c.rand.unhap return $replace($rand(1,7),1,$chr(40),2,‹,3,«,4,¢,5,<,6,$chr(123),7,[)
}
#Color-Talker end

Comments

Sign in to comment.
K33D4Y   -  May 27, 2012

@God425 you need to order your scripts and place this script at the top of the list.

More
 Respond  
God425   -  Jul 19, 2011

the only thing is that it showing up twice [Aids turned off.] [July 19] {22:06:07} <[Immortal]> :D [July 19] {22:06:14} <[DropKick]> wth i cant stop talking twice [July 19] {22:06:14} <[DropKick]> wth i cant stop talking twice

[July 19] {22:06:21} <[DropKick]> ok [July 19] {22:06:21} <[DropKick]> ok [July 19] {22:06:22} <[Immortal]> Ur bot? [July 19] {22:06:26} <[DropKick]> im not bot [July 19] {22:06:26} <[DropKick]> im not bot See

More
 Respond  
Person   -  Jun 10, 2011

Oh the thing is, i have another colour script and the display options are pretty much the exact same as when i use another colour script but in the colour script i want to use,it makes the room go dark blue instead of red.So i thought it must've been in the script.

More
 Respond  
Gummo   -  Jun 09, 2011

That's in mIRC's own options, not this script. Tools (menu)->Options->Display

More
 Respond  
Person   -  Jun 09, 2011

Nice script, just one Q though. In that script code, which line is the one that shows that once a comment is made in a room,the name of the room goes red ?

More
 Respond  
Spanky   -  Jan 19, 2011

Late late late reply but no it works with or without the number.

More
 Respond  
CraZy_KiLLaH   -  Oct 28, 2010

menu * { .Colors ..On: { .Enable #Color-Talker2 | echo Colors are now Enabled, $me $+ . } ..Off: { .Disable #Color-Talker2 | echo Colors are Disabled, $me $+ . } }

Sorry for bumping but isnt it

menu * { .Colors ..On: { .Enable #Color-Talker | echo Colors are now Enabled, $me $+ . } ..Off: { .Disable #Color-Talker | echo Colors are Disabled, $me $+ . } }

it should be .enable #color-talker without the 2 on it. With 2 on it on/off button wont work :)

More
 Respond  
Gummo   -  Jun 01, 2010

Do you still need to learn regex? It's definitely best to learn regex before you put it into your script, and I'd be happy to help as would the folks at http://regular-expressions.info By the way, I see the various versions of this script in a lot of places... I wonder if any of you who propagate it have any idea of its history.

More
 Respond  
Spanky   -  Apr 24, 2010

you.. right click in a channel? Then go to the menu.

More
 Respond  
AYo   -  Apr 24, 2010

how do i use it whats the command?

More
 Respond  
Ghost-writer   -  Sep 10, 2009

:3

More
 Respond  
Cracker200   -  Aug 28, 2009

Lol i wish i could help

More
 Respond  
Spanky   -  Aug 27, 2009

well. i have my own server but its down atm. (sucks i know) but i will send you a message with the link when it is back up.

More
 Respond  
Cracker200   -  Aug 27, 2009

Lol, I wish i could help but i aint a scripter i am but not for stuff like this i make war script sorry and yvw btw ;) what server you go on ???? spanky ????

More
 Respond  
Spanky   -  Aug 27, 2009

_> well thanks altho its not finished. i want to write the acro emotions, and most of all the regex.. new so im gonna try to make my own regex for that. also.. if anyone can help me with a tiny bit of the regex. because im not very good at it yet lol..

More
 Respond  
Cracker200   -  Aug 27, 2009

/me Rates it 10 outta 10 because it's good coding and i will use it alot xD :D:D:D

More
 Respond  
Spanky   -  Aug 27, 2009

Also this script has this line if (c isincs $gettok($chan($target).mode,1,32)) return

which means if a room is +c the script will just show normal text in that room without turning the script off. and rate it people. if you like it rate it lol.

More
 Respond  
Cracker200   -  Aug 27, 2009

It's good ^_^

More
 Respond  
Spanky   -  Aug 26, 2009

noticed i forgot the , in the punc trying to get it working but so far no luck D:

More
 Respond  
Spanky   -  Aug 26, 2009

Note. this is a Edit from the url in the intro This uses less lines for more effect the only thing you lose is nick highlights which i can add later once i figure out how, otherwise enjoy. oh and if you want a dumbed down version without acros or emotes or auto formatting let me know.

More
 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.