Basic Colour Text For mIRC

By KyleJack-Daniels on Jan 30, 2011

>>UPDATED<< 04/03/2011
Open Scripts Editor, Go Into Remotes, Click New, Paste.
This Will Not Work With Other Colour Scripts You Might Have!!
On Line 100 There Is Some Acronym (E.g. LOL = ~[L]aughing [O]ut [L]oud~) You Can Change That If You Wish!

Any Problems Or Questions Your Better Off Asking Someone Else because I Proberly Would Have No Idea! (:

menu * {
  .Colors
  ..On: { .Enable #Color-Talker | echo Colors are now Enabled, $me $+ . }
  ..Off: { .Disable #Color-Talker | echo Colors are Disabled, $me $+ . }
} 
#Color-Talker on
ON *:INPUT:*:{ if ( $left($1,1) == /) || ($ctrlenter) || ($inpaste) return | else {
    if (%fuck1 == off) return {
      if (c isincs $gettok($chan($target).mode,1,32)) return
      else {
        if  (!* iswm $1) return
        if ( %txtver == FireColour1 ) { say 0,8/7,8\8,7/4,7\7,4/5,4\4,5/1,5\5,7/4,8 $1- 5,7\1,5/4,5\5,4/7,4\4,7/8,7\7,8/0,8\ | halt }
        if ( %txtver == FireColour2 ) { say 8,0%0,8%8,84,8%8,4%4,45,4%4,5%5,50,5%5,1%0,10,1 $1- 0,15,1%0,5%5,54,5%5,4%4,48,4%4,8%8,80,8%8,0% | halt }
        if ( %txtver == RainbowColour ) { var %a = 04 07 08 09 11 12 06 | msg $target $chr(2) $+ $regsubex($1-,/([^ ])/g,$+($chr(3),$gettok(%a,$iif($calc(\n % $numtok(%a,32)),$v1,$numtok(%a,32)),32),$chr(44),01,\1)) | halt }
        if ( %txtver == Kyle1 ) { say 3,1\1,3\9,3\3,9\0,9\9,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 $1- 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-9,0/0,9/3,9/9,3/1,3/3,1/ | halt }
        tokenize 32 $strip($1-,c)
        if (%addnick) && (!%me) && ($regex($gettok($1-,1,32),/^( $+ $iif($chan,$c.nicks,$+(\Q,$target,\E|\Q,$me,\E)) $+ ):$/Si)) { var %txtn $+(9,$mid(%c.norm,4),$chr(40),14,$regml(1),9,$chr(41),) | tokenize 32 $gettok($1-,2-,32) }
        if (%acronym) tokenize 32 $replacexcs($1-,>.>,».»,<.<,«.«,!,4❢,brb,~[B]e [R]ight [B]ack~,GTFO,~[G]et [T]he [F]uck [O]ut!~,FYI,[F]or [Y]our [I]nfomation,BTW,[B]y [T]he [W]ay,kyle,[K]yle[J]ack[D]aniels,lmao,[L]aughing [M]y [A]ss [O]ff,lol,[L]aughing [O]ut [L]oud,brb,Be Right Back,LOL,Laughing Out Loud,HB,Hurry Back,NP,No Problem,WB,Welcome Back,ILY,[I] <3 [Y]ou,ROFLMAO,Rolling On Floor Laughing My Ass Off,LMAO,Laughing My Ass Off,ROFL,Rolling On Floor Laughing,BBL,Be Back Later,BBIAB,[B]e [B]ack [I]n [A] [B]it,SMD,[S]uck [M]y [D]ick,SMP,[S]uck [M]y [P]ussycat,FFS,[F]or [F]uck's [S]ake,BBS,[B]e [B]ack [S]oon,PMSL,[P]issing [M]yself [L]aughing,TBH,[T]o [B]e [H]onest,TTYL,[T]alk [T]o [Y]ou [L]ater,TY,[T]hank [Y]ou,YW,[Y]ou're [W]elcome,OMG,[O]h [M]y [G]od,ASAP,[A]s [S]oon [A]s [P]ossible,AFAIK,[A]s [F]ar [A]s [I] [K]now,AFK,[A]way [F]rom [K]eyboard,BBN,[B]ye [B]ye [N]ow,ASL,Age/Sex/Location,IMCO,[I]n [M]y [C]onsidered [O]pinion,IMHO,[I]n [M]y [H]umble [O]pinion,IMO,[I]n [M]y [O]pinion,JK,[J]ust [K]idding,LMSO,[L]aughing [M]y [S]ocks [O]ff,NP,[N]o [P]roblem,WYSIWYG,[W]hat [Y]ou [S]ee [I]s [W]hat [Y]ou [G]et,WTH,[W]hat [T]he [H]ell,TMI,[T]oo [M]uch [I]nformation)
        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 ($chan) { var %x $nick(#,0) | while (%x) { tokenize 32 $regsubex($1-,/(?<=[]})".?!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $nick(#,%x) $+ \E)(?=[]})"'.?!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$nick(#,%x),)) | dec %x } }
        else tokenize 32 $regsubex($1-,/(?<=[]})"'.?!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $+($me,\E,|\Q,$target) $+ \E)(?=[]})"'.?!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$iif(\1 == $me,$me,$target),))
        var %y $chan(0) | while (%y) { tokenize 32 $regsubex($1-,/(?<=[]})".?!: $+ $chr(44) $+ ({[]| ['"]| |^)(\Q $+ $chan(%y) $+ \E)(?=[]})".?!: $+ $chr(44) $+ ({[]| |$)/gi,$+(,$chan(%y),)) | dec %y }

        if (%c.punc) tokenize 32 $regsubex($1-,/((?: $+ $c.ereg $+ |[^A-z\s]|[]^_`\\[])+)/gi,$+(,%c.punc,\1,%c.norm))
        if (%c.caps) tokenize 32 $regsubex($1-,/(?<=^|[A-z\s]| $+ %c.norm $+ )(?<! $+ %c.punc $+ [A-z])([A-Z]+)(?=[A-z\s]| $+ %c.punc $+ |$)/g,$+(,%c.caps,\1,%c.norm))

        tokenize 32 $regsubex($1-,/((?:\d{1,2})?\S+)/g,$+(,2,%c.hnick,$strip(\1),%c.norm,))
        .msg $target %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
        echo $target $timestamp $+(4,$chr(40),,9,$regsubex($iif($chan,$nick(#,$me).pnick,$me),/^([~&@%+])([~&@%+]*)/,$+(4,$replace(\1,$regml(2),$null),14)),,4,$chr(41),) %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
        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 [Emoticons 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) $+ .]
  .$iif(%addnick,$style(1)) Address Nicks:$iif(%addnick,unset %addnick,set %addnick 1) | echo -a [Address Nicks turned $iif(%addnick,on,off) $+ .]
  .-
  .$iif(%bold,$style(1)) Bold:$iif(%bold,unset %bold,set %bold 1) | echo -a [Bold turned $iif(%bold,on,off) $+ .]
  .$iif(%underline,$style(1)) Underline:$iif(%underline,unset %underline,set %underline 1) | echo -a [Underline turned $iif(%underline,on,off) $+ .]
  .-
  .Talkers
  ..$iif(%txtver == FireColour1,$style(3)) Fire Colour 1:set %txtver FireColour1 | echo -a [ $+ %txtver is enabled.]
  ..$iif(%txtver == FireColour2,$style(3)) Fire Colour 2:set %txtver FireColour2 | echo -a [ $+ %txtver is enabled.]
  ..$iif(%txtver == Kyle1,$style(3)) Kyle 1:set %txtver Kyle1 | echo -a [ $+ %txtver is enabled.]
  ..$iif(%txtver == RainbowColour,$style(3)) Rainbow Colour:set %txtver RainbowColour | echo -a [ $+ %txtver is enabled.]
  .Coloured Caps/Punctuation
  ..$iif(%txtver == Custom,$style(1)) Custom
  ...$iif(((%txtver == Custom) && (%c.norm)),$style(1)) Normal
  ....$iif(00* iswm %c.norm,$style(1)) White (00):set %txtver Custom | set %c.norm 00
  ....$iif(01* iswm %c.norm,$style(1)) Black (01):set %txtver Custom | set %c.norm 01
  ....$iif(02* iswm %c.norm,$style(1)) Navy (02):set %txtver Custom | set %c.norm 02
  ....$iif(03* iswm %c.norm,$style(1)) Green (03):set %txtver Custom | set %c.norm 03
  ....$iif(04* iswm %c.norm,$style(1)) Red (04):set %txtver Custom | set %c.norm 04
  ....$iif(05* iswm %c.norm,$style(1)) Brown (05):set %txtver Custom | set %c.norm 05
  ....$iif(06* iswm %c.norm,$style(1)) Purple (06):set %txtver Custom | set %c.norm 06
  ....$iif(07* iswm %c.norm,$style(1)) Orange (07):set %txtver Custom | set %c.norm 07
  ....$iif(08* iswm %c.norm,$style(1)) Yellow (08):set %txtver Custom | set %c.norm 08
  ....$iif(09* iswm %c.norm,$style(1)) Lime (09):set %txtver Custom | set %c.norm 09
  ....$iif(10* iswm %c.norm,$style(1)) Teal (10):set %txtver Custom | set %c.norm 10
  ....$iif(11* iswm %c.norm,$style(1)) Aqua (11):set %txtver Custom | set %c.norm 11
  ....$iif(12* iswm %c.norm,$style(1)) Blue (12):set %txtver Custom | set %c.norm 12
  ....$iif(13* iswm %c.norm,$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm 13
  ....$iif(14* iswm %c.norm,$style(1)) Gray (14):set %txtver Custom | set %c.norm 14
  ....$iif(15* iswm %c.norm,$style(1)) Silver (15):set %txtver Custom | set %c.norm 15
  ....$iif(!%c.norm,$style(1)) Unset:set %txtver Custom | unset %c.norm
  ...$iif((%txtver == Custom) && ($mid(%c.norm,4)),$style(1)) Background
  ....$iif(($mid(%c.norm,4) == ,00),$style(1)) White (00):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,00
  ....$iif(($mid(%c.norm,4) == ,01),$style(1)) Black (01):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,01
  ....$iif(($mid(%c.norm,4) == ,02),$style(1)) Navy (02):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,02
  ....$iif(($mid(%c.norm,4) == ,03),$style(1)) Green (03):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,03
  ....$iif(($mid(%c.norm,4) == ,04),$style(1)) Red (04):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,04
  ....$iif(($mid(%c.norm,4) == ,05),$style(1)) Brown (05):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,05
  ....$iif(($mid(%c.norm,4) == ,06),$style(1)) Purple (06):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,06
  ....$iif(($mid(%c.norm,4) == ,07),$style(1)) Orange (07):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,07
  ....$iif(($mid(%c.norm,4) == ,08),$style(1)) Yellow (08):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,08
  ....$iif(($mid(%c.norm,4) == ,09),$style(1)) Lime (09):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,09
  ....$iif(($mid(%c.norm,4) == ,10),$style(1)) Teal (10):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,10
  ....$iif(($mid(%c.norm,4) == ,11),$style(1)) Aqua (11):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,11
  ....$iif(($mid(%c.norm,4) == ,12),$style(1)) Blue (12):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,12
  ....$iif(($mid(%c.norm,4) == ,13),$style(1)) Fuchsia (13):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,13
  ....$iif(($mid(%c.norm,4) == ,14),$style(1)) Gray (14):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,14
  ....$iif(($mid(%c.norm,4) == ,15),$style(1)) Silver (15):set %txtver Custom | set %c.norm $mid(%c.norm,1,3) $+ ,15
  ....$iif(!$mid(%c.norm,4),$style(1)) Unset:set %txtver Custom | set %c.norm $mid(%c.norm,1,3)
  ...$iif(((%txtver == Custom) && (%c.punc)),$style(1)) Punctuation
  ....$iif(00* iswm %c.punc,$style(1)) White (00):set %txtver Custom | set %c.punc 00
  ....$iif(01* iswm %c.punc,$style(1)) Black (01):set %txtver Custom | set %c.punc 01
  ....$iif(02* iswm %c.punc,$style(1)) Navy (02):set %txtver Custom | set %c.punc 02
  ....$iif(03* iswm %c.punc,$style(1)) Green (03):set %txtver Custom | set %c.punc 03
  ....$iif(04* iswm %c.punc,$style(1)) Red (04):set %txtver Custom | set %c.punc 04
  ....$iif(05* iswm %c.punc,$style(1)) Brown (05):set %txtver Custom | set %c.punc 05
  ....$iif(06* iswm %c.punc,$style(1)) Purple (06):set %txtver Custom | set %c.punc 06
  ....$iif(07* iswm %c.punc,$style(1)) Orange (07):set %txtver Custom | set %c.punc 07
  ....$iif(08* iswm %c.punc,$style(1)) Yellow (08):set %txtver Custom | set %c.punc 08
  ....$iif(09* iswm %c.punc,$style(1)) Lime (09):set %txtver Custom | set %c.punc 09
  ....$iif(10* iswm %c.punc,$style(1)) Teal (10):set %txtver Custom | set %c.punc 10
  ....$iif(11* iswm %c.punc,$style(1)) Aqua (11):set %txtver Custom | set %c.punc 11
  ....$iif(12* iswm %c.punc,$style(1)) Blue (12):set %txtver Custom | set %c.punc 12
  ....$iif(13* iswm %c.punc,$style(1)) Fuchsia (13):set %txtver Custom | set %c.punc 13
  ....$iif(14* iswm %c.punc,$style(1)) Gray (14):set %txtver Custom | set %c.punc 14
  ....$iif(15* iswm %c.punc,$style(1)) Silver (15):set %txtver Custom | set %c.punc 15
  ....$iif(!%c.punc,$style(1)) Unset:set %txtver Custom | unset %c.punc
  ...$iif(((%txtver == Custom) && (%c.caps)),$style(1)) Caps
  ....$iif(00* iswm %c.caps,$style(1)) White (00):set %txtver Custom | set %c.caps 00
  ....$iif(01* iswm %c.caps,$style(1)) Black (01):set %txtver Custom | set %c.caps 01
  ....$iif(02* iswm %c.caps,$style(1)) Navy (02):set %txtver Custom | set %c.caps 02
  ....$iif(03* iswm %c.caps,$style(1)) Green (03):set %txtver Custom | set %c.caps 03
  ....$iif(04* iswm %c.caps,$style(1)) Red (04):set %txtver Custom | set %c.caps 04
  ....$iif(05* iswm %c.caps,$style(1)) Brown (05):set %txtver Custom | set %c.caps 05
  ....$iif(06* iswm %c.caps,$style(1)) Purple (06):set %txtver Custom | set %c.caps 06
  ....$iif(07* iswm %c.caps,$style(1)) Orange (07):set %txtver Custom | set %c.caps 07
  ....$iif(08* iswm %c.caps,$style(1)) Yellow (08):set %txtver Custom | set %c.caps 08
  ....$iif(09* iswm %c.caps,$style(1)) Lime (09):set %txtver Custom | set %c.caps 09
  ....$iif(10* iswm %c.caps,$style(1)) Teal (10):set %txtver Custom | set %c.caps 10
  ....$iif(11* iswm %c.caps,$style(1)) Aqua (11):set %txtver Custom | set %c.caps 11
  ....$iif(12* iswm %c.caps,$style(1)) Blue (12):set %txtver Custom | set %c.caps 12
  ....$iif(13* iswm %c.caps,$style(1)) Fuchsia (13):set %txtver Custom | set %c.caps 13
  ....$iif(14* iswm %c.caps,$style(1)) Gray (14):set %txtver Custom | set %c.caps 14
  ....$iif(15* iswm %c.caps,$style(1)) Silver (15):set %txtver Custom | set %c.caps 15
  ....$iif(!%c.caps,$style(1)) Unset:set %txtver Custom | unset %c.caps
  ...$iif(((%txtver == Custom) && (%c.hnick)),$style(1)) Nick Highlighter
  ....$iif(00* iswm %c.hnick,$style(1)) White (00):set %txtver Custom | set %c.hnick 00
  ....$iif(01* iswm %c.hnick,$style(1)) Black (01):set %txtver Custom | set %c.hnick 01
  ....$iif(02* iswm %c.hnick,$style(1)) Navy (02):set %txtver Custom | set %c.hnick 02
  ....$iif(03* iswm %c.hnick,$style(1)) Green (03):set %txtver Custom | set %c.hnick 03
  ....$iif(04* iswm %c.hnick,$style(1)) Red (04):set %txtver Custom | set %c.hnick 04
  ....$iif(05* iswm %c.hnick,$style(1)) Brown (05):set %txtver Custom | set %c.hnick 05
  ....$iif(06* iswm %c.hnick,$style(1)) Purple (06):set %txtver Custom | set %c.hnick 06
  ....$iif(07* iswm %c.hnick,$style(1)) Orange (07):set %txtver Custom | set %c.hnick 07
  ....$iif(08* iswm %c.hnick,$style(1)) Yellow (08):set %txtver Custom | set %c.hnick 08
  ....$iif(09* iswm %c.hnick,$style(1)) Lime (09):set %txtver Custom | set %c.hnick 09
  ....$iif(10* iswm %c.hnick,$style(1)) Teal (10):set %txtver Custom | set %c.hnick 10
  ....$iif(11* iswm %c.hnick,$style(1)) Aqua (11):set %txtver Custom | set %c.hnick 11
  ....$iif(12* iswm %c.hnick,$style(1)) Blue (12):set %txtver Custom | set %c.hnick 12
  ....$iif(13* iswm %c.hnick,$style(1)) Fuchsia (13):set %txtver Custom | set %c.hnick 13
  ....$iif(14* iswm %c.hnick,$style(1)) Gray (14):set %txtver Custom | set %c.hnick 14
  ....$iif(15* iswm %c.hnick,$style(1)) Silver (15):set %txtver Custom | set %c.hnick 15
  ....$iif(!%c.hnick,$style(1)) Unset:set %txtver Custom | unset %c.hnick
  .-
  .Reset colours:unset %txtver | unset %c.* | echo -a 
}
alias came ame %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
alias cme describe $active %txtn $+(,$iif(%underline,),$iif(%bold,),%c.norm,$1-,)
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,[)
alias c.nicks { var %x 1,%r | while (%x <= $nick(#,0)) && ($len(%r) < 928) { var %r %r $+(\Q,$nick(#,%x),\E) | inc %x } | return (?<=[]})".?`!:({[]| ['"]| |^)( $+ $replace(%r,$chr(32),$chr(124)) $+ )(?=[]})".?!:({[]| |$) }
#Color-Talker end

KyleJack-Daniels

Like Page Follow Author

Comments

Sign in to comment.
KyleJack-Daniels   -  May 23, 2011

LOL yeah, i wanted to feel like a boss ;)

 Respond  
Person   -  May 21, 2011

You spelt probably* wrong && You have your name as an option in Acronyms? LOL.
Anyways good script :]

 Respond  
KyleJack-Daniels   -  Feb 01, 2011

Hey hey hey i got given this and it has been passed down via random people and people are always asking me how to get this script and instead of putting it in a pastebin i thought i'll put it on here.

 Respond  
Jethro   -  Jan 30, 2011

I remember reading the forum rules that the certain percentage of a posted snippet needs to be coded by you, or it'll be removed if found ripped. Also, It's always a polite gesture to include the sources you get the code from.

 Respond  
Sorasyn   -  Jan 30, 2011

Sigh... this has ripped written all over it. Taking other's snippets and combining them isn't considered your own work... >.>

 Respond  
_Dean_   -  Jan 30, 2011

Any Problems Or Questions Your Better Off Asking Someone Else because I Proberly Would Have No Idea! (:

wtf?
this is many scripts edited, i saw Gummo color script, and Invision script there...

 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.