This is just like my 3 color fade but updated. I got bored one day and was looking through my scripts and decided to fix it and add stuff to it.

What's new____

• Added two more color options, now shows five colors instead of 3.
• Added Automatic Formatting, Acronyms, Emoticons.

Bugs__

• NONE

• Tested on two separate mIRC's on two different OS's

__Plans for next release___

• Working highlight when a name is said. <- In Progress/few bugs
• Colored /me. <- Someone volunteered to do this.
• Bold/Underline option. <- After I finish making highlight
• Change colors from menu instead of going into the script. <- Read above

Thanks To__

• Spanky, fixed the stripping of colors when +c is set on a channel.
• Mugen/Nic, helped me with the first release

Contact____

Prefix on Peercommons (Frostwire Chat)

    Strobe3

    menu menubar,channel,query {
      $iif($group(#Strobe3.Text) == Off,Strobe3 Text [Off],Strobe3 Text [On]):{
        $iif($group(#Strobe3.Text) == Off,.enable #Strobe3.Text,.disable #Strobe3.Text)
      }
    }
    #Strobe3.Text on

    on *:INPUT:*: {
      if (c isincs $gettok($chan($target).mode,1,32)) return
      if ($left($1,1) = /) || ($ctrlenter) || ($inpaste) return
      ;### wave text generator ###

      ;#### start of editable values

      ;## USER SETTING: first color in wave (3 characters)
      var %mrfw_color.1 = 09

      ;## USER SETTING: second color in wave (2 characters)
      var %mrfw_color.2 = 08

      ;## USER SETTING: third color in wave (1 character)
      var %mrfw_color.3 = 04

      ;## USER SETTING: forth color in wave (1 character)
      var %mrfw_color.4 = 07

      ;## USER SETTING: fifth color in wave (1 character)
      var %mrfw_color.5 = 09

      ;## USER SETTING: background color
      var %mrfw_color.background = 01

      ;#### end of editable values

      tokenize 32 $replacexcs($1-,Nigadoo,Ñigga do,Nigger,Ñigger,NIGGER,ÑIGGER,nigger,ñigger,WTS,~ What The Shït ~,FishS,~ These Fish Sticks Are Hard As Tïts! ~,FuckS,~ Fuck Salt ~,INR,~ inorïte? ~,WTD,~ What The Dueçes ~,BAMF,~ You are one BadAssMoFo FOO :D ~,BRB,~ ße Rïght ßaçk ~,YW,~ You're Welçome ~,LMD,~ £ïçk My Ðïçk ~,AFK,~ Away From Keyboard ~,BBL,~ ße ßaçk Later ~,G2G,~ Gotta Go ~,FFS,~ For Fµçk Sakes ~,LMFAO,~ £aµghïng My Fµçkïng Ass Øff ~,LMAO,~ £aµghïng My Ass Øff ~,ES&D,~ Eat Shït & Dïe ~,ILY,~ I <3 Yoµ ~,IHY,~ I </3 Yoµ ~,FOFF,~ Fµçk off ~,GFU,~ Go Fµçk Yourself ~,HTFU,~ Hµrry The Fµçk Up ~,LMAO,~ Laµghïng My Ass Off ~,LOL,~ Laµghïng Øut Loud ~,NP,~ No Problem ~,PMSL,Þïss Myself Laµghïng,ROFL,~ Rollïng On The Floor Laµghïng ~,FML,~ Fµck My Lïfe! ~,SMD,~ Sµck My Dick ~,STFU,~ Shµt The Fµck Up ~,TY,~ Thánk Yoµ ~,HTFB,~ Hµrry The Fµck ßáck ~,HB,~ Hµrry ßáck ~,WB,~ WelÇöme ßáÇk ~,WTF,~ What The Fµck ~,IWK,~ I Wás Kïddïng Brµh Táke It Eásy ~,JK,~ Jµst Kïddïn Brµh ~,BRB,~ Be Rïght Báck ~)
      tokenize 32 $replacexcs($1-,x.x,×.×,x_x,×_×,<_>,«.»,<.>,«.»,>.>,».»,>_>,».»,<.<,«.«,<_<,«.«,>_<,».«,>.<,».«,xd,xÐ,:D,:Ð,D:<,Ð:<,:p,:Þ,v.v,[v.v]",:o,:ð,D:,Ð:,<<3,â¤,:S,:§,O_O,Ò_Ó,O_o,Ò_ó,o_O,ò_Ó,O.O,Ò.Ó,o.o,ò.ó,O.o,Ò.ó,o.O,ò.Ó,^.^,¤.¤,-.-,¬.¬)
      tokenize 32 $regsubex($replacex($1-,dont,don't),/(^[A-z]|[.?!:]\s[A-z]|\bi\b)/g,$upper(\1)) $+ $iif(!$regex($1-,/^[!?@.]|[^A-z0-9]$/S),.)
      tokenize 32 $strip($1-,c)

      if ($0 == 0) { halt }
      var %mrfw_string $1-
      var %mrfw_string.len $len(%mrfw_string)
      var %mrfw_i 1
      var %mrfw_c 1
      var %mrfw_string.new  $+ %mrfw_color.1 $+ $chr(44) $+ %mrfw_color.background
      var %mrfw_string.color $null
      while (%mrfw_i <= %mrfw_string.len) {
        if (%mrfw_c == 1) { %mrfw_string.color = %mrfw_color.1 }
        elseif (%mrfw_c == 4) { %mrfw_string.color = %mrfw_color.2 }
        elseif (%mrfw_c == 6) { %mrfw_string.color = %mrfw_color.3 }
        elseif (%mrfw_c == 4) { %mrfw_string.color = %mrfw_color.4 }
        elseif (%mrfw_c == 5) { %mrfw_string.color = %mrfw_color.5 }
        elseif (%mrfw_c == 6) { %mrfw_string.color = %mrfw_color.6 }

        var %mrfw_spaces = $mid(%mrfw_string,%mrfw_i - 1,1)
        %mrfw_string.new = %mrfw_string.new $+  $+ %mrfw_string.color $+ $iif(%mrfw_spaces == $chr(32),$+ $chr(32)) $+ $mid(%mrfw_string,%mrfw_i,1)
        inc %mrfw_c
        inc %mrfw_i
        if (%mrfw_c == 10) { %mrfw_c = 1 }
      }
      msg $active %mrfw_string.new
      unset %mrfw_*
      haltdef

    }
    #Strobe3.Text End