Color Font script for Mirc, I did not make or do not own, only pasting for copying purposes. The line for the rainbow font does not work, if anyone knows the error and how to fix it please let me know.

on 1:INPUT:*: {
  set %decfcol /
  if (%decsty == ON) { 
    if (%decfcol isin $left($1,1)) { goto THEEND } 
    if (%decmul == 0) { 
      say  $+ %deccol  $+ $1-
      { halt }
    }
    if (%decmul == 1) { 
      %clrlist = 2*3*14*4*13*5*12*6*2*7*10*2*4
      %altclrlist = 16*16*16*16*16*16*16*16*16*16*16*16*16
      %fnl = ""
      %txt = $replace($1-,$chr(32),$chr(1))
      %clr = 1
      %i = 1
      :start
      if ($mid(%txt,%i,1) != $null) {
        if ($gettok(%clrlist,%clr,42) == $null) { %clr = 1 }
        %fnl = %fnl $+ $chr(3) $+ $gettok(%clrlist,%clr,42) $+ , $+ $gettok(%altclrlist,%clr,42) $+ $mid(%txt,%i,1)
        inc %clr 1
        inc %i 1
        goto start
      }
      say $replace(%fnl,$chr(1),$chr(32))  
      { halt }
    }
    if (%decmul == 2) { 
      unset %textfinal
      set %rainbow $1-
      set %text.change 0
      :beginning
      inc %text.change
      if %text.change > $len(%rainbow) goto end
      :randomize
      set %rand1 $rand(1,15)
      set %rand2 $rand(1,15)
      if %rand1 == %rand2 goto randomize
      set %text2add  $+ %rand1 $+ , $+ %rand2 $+ $mid(%rainbow,%text.change,1) $+ 
      if (%text.change == 1) { set %textfinal %text2add }
      else set %textfinal %textfinal $+ %text2add
      goto beginning
      :end
      say %textfinal
      { halt }
    }
    if (%decmul == 3) { 
      %c = $1-
      set %c $replace(%c,a,4a)
      set %c $replace(%c,b,3B)
      set %c $replace(%c,c,6C) 
      set %c $replace(%c,d,7D) 
      set %c $replace(%c,e,4e) 
      set %c $replace(%c,f,12F) 
      set %c $replace(%c,g,13G) 
      set %c $replace(%c,h,6H) 
      set %c $replace(%c,i,4i) 
      set %c $replace(%c,j,J) 
      set %c $replace(%c,k,3K) 
      set %c $replace(%c,l,L) 
      set %c $replace(%c,m,4M) 
      set %c $replace(%c,n,6N)
      set %c $replace(%c,o,4o) 
      set %c $replace(%c,p,12P) 
      set %c $replace(%c,q,Q) 
      set %c $replace(%c,r,13R) 
      set %c $replace(%c,s,7S) 
      set %c $replace(%c,t,T) 
      set %c $replace(%c,u,4u) 
      set %c $replace(%c,v,V) 
      set %c $replace(%c,w,12W) 
      set %c $replace(%c,x,7X) 
      set %c $replace(%c,y,Y) 
      set %c $replace(%c,z,6z) 
      set %c $replace(%c,?,12¿15?) 
      say %c
      unset %c  
      { halt }
    }
    if (%decmul == 4) { 
      unset %final
      unset %endreverse
      set %sections $gettok($1-,0,32)
      :revstart
      if (%sections == 0) goto revend  
      set %reverseme $gettok($1-,%sections,32)
      set %length $len(%reverseme)
      set %backtext $mid(%reverseme,%length,1)  
      dec %length 1  
      :backstart
      if (%length == 0) goto backend
      set %tempback $mid(%reverseme,%length,1)
      set %backtext %backtext $+ %tempback 
      dec %length 1
      goto backstart
      :backend
      set %reversed_text %backtext
      set %temp %reversed_text
      set %final %final %temp
      dec %sections 1
      goto revstart  
      :revend
      set %endreverse %final
      say %final
      { halt }
    }
    if (%decmul == 5) { 
      set %ftalk $1-
      %ftalk = $replace(%ftalk,a,2å)
      %ftalk = $replace(%ftalk,b,3þ)
      %ftalk = $replace(%ftalk,c,4Ç)
      %ftalk = $replace(%ftalk,d,5Ð)
      %ftalk = $replace(%ftalk,e,6ë)
      %ftalk = $replace(%ftalk,f,7F)
      %ftalk = $replace(%ftalk,g,8G)
      %ftalk = $replace(%ftalk,h,9H)
      %ftalk = $replace(%ftalk,i,10î)
      %ftalk = $replace(%ftalk,j,11J)
      %ftalk = $replace(%ftalk,k,12K)
      %ftalk = $replace(%ftalk,l,13£)
      %ftalk = $replace(%ftalk,m,14M)
      %ftalk = $replace(%ftalk,n,15ñ)
      %ftalk = $replace(%ftalk,o,2ø)
      %ftalk = $replace(%ftalk,p,3¶)
      %ftalk = $replace(%ftalk,q,4Q)
      %ftalk = $replace(%ftalk,r,5®)
      %ftalk = $replace(%ftalk,s,6§)
      %ftalk = $replace(%ftalk,t,7T)
      %ftalk = $replace(%ftalk,u,8µ)
      %ftalk = $replace(%ftalk,v,9V)
      %ftalk = $replace(%ftalk,w,10\\')
      %ftalk = $replace(%ftalk,x,11×)
      %ftalk = $replace(%ftalk,y,12¥)
      %ftalk = $replace(%ftalk,z,12Z)
      %ftalk = $replace(%ftalk,!,4!)
      %ftalk = $replace(%ftalk,?,4?)
      %ftalk = $replace(%ftalk,*,5*)
      %ftalk = $replace(%ftalk,^,6^)
      %ftalk = $replace(%ftalk,$,7$)
      %ftalk = $replace(%ftalk,@,9@)
      %ftalk = $replace(%ftalk,&,10&)
      %ftalk = $replace(%ftalk,",11")
      %ftalk = $replace(%ftalk,<,12<)
      %ftalk = $replace(%ftalk,>,13>!)
      SAY %ftalk
      { halt }
    }
    if (%decmul == 6) { 
      set %temp1 $1 | set %temp2 $2 | set %temp3 $3 | set %temp4 $4 | set %temp5 $5 | set %temp6 $6 | set %temp7 $7
      set %bc1 $rand(2,14) | /set %bc2 $rand(2,14)  | /set %bc3 $rand(2,14) | /set %bc4 $rand(2,14) | /set %bc4 $rand(2,14) | /set %bc5 $rand(2,14) | /set %bc6 $rand(2,14) | /set %bc7 $rand(2,14)
      if (%bc1 > 7) { /set %w1 $rand(1,2) } | else { /set %w1 $rand(8,9) } | if (%bc2 > 7) { /set %w2 $rand(1,2) } | else { /set %w2 $rand(8,9) } |  if (%bc3 > 7) { /set %w3 $rand(1,2) } | else { /set %w3 $rand(8,9) } |  if (%bc4 > 7) { /set %w4 $rand(1,2) } | else { /set %w4 $rand(8,9) } | if (%bc5 > 7) { /set %w5 $rand(1,2) } | else { /set %w5 $rand(8,9) } | if (%bc6 > 7) { /set %w6 $rand(1,2) } | else { /set %w6 $rand(8,9) } | if (%bc7 > 7) { /set %w7 $rand(1,2) } | else { /set %w7 $rand(8,9) }  
      set %b1 [ $len(%temp1) + 2 ] | /set %b2 [ $len(%temp2) + 2 ] | /set %b3 [ $len(%temp3) + 2 ] | /set %b4 [ $len(%temp4) + 2 ] | /set %b5 [ $len(%temp5) + 2 ] | /set %b6 [ $len(%temp6) + 2 ] | /set %b7 [ $len(%temp7) + 2 ]
      set %cp1 $len(%temp1) | /set %cp2 $len(%temp2) | /set %cp3 $len(%temp3) | /set %cp4 $len(%temp4) | /set %cp5 $len(%temp5) | /set %cp6 $len(%temp6) | /set %cp7 $len(%temp7) | set %l21 $str(õ,%b1) | /set %l22 $str(©,%b2) | /set %l23 $str(§,%b3) | /set %l24 $str(Þ,%b4) | /set %l25 $str(¥,%b5) | /set %l26 $str(æ,%b6) | /set %l27 $str(±,%b7)
      set %l1 %cp1 / 2  | /set %l2 %cp2 / 2  | /set %l3 %cp3 / 2  | /set %l4 %cp4 / 2  | /set %l5 %cp5 / 2  | /set %l6 %cp6 / 2  | /set %l7 %cp7 / 2 | if ( 2 // %cp1 ) { set %cr1 1,1 $+  $+ $left(%temp1,2) } | else { set %cr1 1,1 $+  $+ $left(%temp1,1) } | if ( 2 // %cp2 ) { set %cr2 1,1 $+  $+ $left(%temp2,2) } | else { set %cr2 1,1 $+  $+ $left(%temp2,1) } | if ( 2 // %cp3 ) { set %cr3 1,1 $+  $+ $left(%temp3,2) } | else { set %cr3 1,1 $+  $+ $left(%temp3,1) } | if ( 2 // %cp4 ) { set %cr4 1,1 $+  $+ $left(%temp4,2) } | else { set %cr4 1,1 $+  $+ $left(%temp4,1) }
      if ( 2 // %cp5 ) { set %cr5 1,1 $+  $+ $left(%temp5,2) } | else { set %cr5 1,1 $+  $+ $left(%temp5,1) } | if ( 2 // %cp6 ) { set %cr6 1,1 $+  $+ $left(%temp6,2) } | else { set %cr6 1,1 $+  $+ $left(%temp6,1) } | if ( 2 // %cp7 ) { set %cr7 1,1 $+  $+ $left(%temp7,2) } | else { set %cr7 1,1 $+  $+ $left(%temp7,1) } | if ( 2 \\ %cp1 ) { set %l1 %l1 + 1 } | if ( 2 \\ %cp2 ) { set %l2 %l2 + 1 } | if ( 2 \\ %cp3 ) { set %l3 %l3 + 1 } | if ( 2 \\ %cp4 ) { set %l4 %l4 + 1 } | if ( 2 \\ %cp5 ) { set %l5 %l5 + 1 } | if ( 2 \\ %cp6 ) { set %l6 %l6 + 1 } | if ( 2 \\ %cp7 ) { set %l7 %l7 + 1 }
      set %l1 $int(%l1) | set %l2 $int(%l2) | set %l3 $int(%l3) | set %l4 $int(%l4) | set %l5 $int(%l5) | set %l6 $int(%l6) | set %l7 $int(%l7)
      set %p1 $str(æ,%l1) | /set %p2 $str(Þ,%l2) | /set %p3 $str(¿,%l3) | /set %p4 $str(£,%l4) | /set %p5 $str(ð,%l5) | /set %p6 $str(¢,%l6) | /set %p7 $str(©,%l7)
      set %tw2 $left($str(y,%cp2),1) | /set %tw3 $left($str(-,%cp3),1) | /set %tw4 $left($str(-,%cp4),1) | /set %tw5 $left($str(-,%cp5),1) | /set %tw6 $left($str(-,%cp6),1) | /set %tw7 $left($str($chr(160),%cp7),1) | /set %tw8 1,1 $+ $left($str(e,%cp7),1) | /set %tw9 $left($str(y,%cp7),1) | /set %twx $left($str(x,%cp7),1)
      set %z2 $left($str(¡,%cp2),1) | /set %z3 $left($str(¡,%cp3),1) | /set %z4 $left($str(¡,%cp4),1) | /set %z5 $left($str(¡,%cp5),1) | /set %z6 $left($str(¡,%cp6),1) | /set %z7 $left($str(¡,%cp7),1) 
      say 4,1_8¡ $+ $str(4_,%cp1) $+ 8¡4_ $+ 12 $+ %z2 $+ $str(4_,%cp2) $+ 12 $+ %z2 $+ 4 $+ $left($str(_,%cp2),1) $+ 11 $+ %z3 $+ $str(4_,%cp3) $+ 11 $+ %z3 $+ 4 $+ $left($str(_,%cp3),1) $+ 3 $+ %z4 $+ $str(4_,%cp4) $+ 3 $+ %z4 $+ 4 $+ $left($str(_,%cp4),1)  $+ 13 $+ %z5 $+ $str(4_,%cp5) $+ 13 $+ %z5 $+ 4 $+ $left($str(_,%cp5),1)  $+ 6 $+ %z6 $+ $str(4_,%cp6) $+ 6 $+ %z6 $+ 4 $+ $left($str(_,%cp6),1) $+ 9 $+ %z7 $+ $str(4_,%cp7) $+ 9 $+ %z7 $+ 4 $+ $left($str(_,%cp7),1)   
      say 1,1t $+ %w1 $+ , $+ %bc1 $+ %l21 $+ 1,1t $+ %w2 $+ , $+ %bc2 $+ %l22 $+ 1,1 $+ $left($str(-,%cp2),1) $+  $+ %w3 $+ , $+ %bc3 $+ %l23 $+ 1,1 $+ $left($str(-,%cp3),1) $+  $+ %w4 $+ , $+ %bc4 $+ %l24 $+ 1,1 $+ $left($str(-,%cp4),1) $+  $+ %w5 $+ , $+ %bc5 $+ %l25 $+ 1,1 $+ $left($str(-,%cp5),1) $+  $+ %w6 $+ , $+ %bc6 $+ %l26 $+ 1,1 $+ $left($str(-,%cp6),1) $+  $+ %w7 $+ , $+ %bc7 $+ %l27 $+ 1,1 $+ $left($str(t,%cp7),1) 
      say 1,1e $+ %w1 $+ , $+ %bc1 %temp1 1,1e $+  $+ %bc2 $+ , $+ %bc2 $+ %tw2 $+  $+ %w2 $+  $+ %temp2 $+  $+ %bc2 $+ , $+ %bc2 $+ %tw2 $+ 1,1 $+ %tw2 $+  $+ %bc3 $+ , $+ %bc3 $+ %tw3 $+  $+ %w3 $+  $+ %temp3 $+  $+ %bc3 $+ , $+ %bc3 $+ %tw3 $+ 1,1 $+ %tw3 $+  $+ %bc4 $+ , $+ %bc4 $+ %tw4 $+  $+ %w4 $+  $+ %temp4 $+  $+ %bc4 $+ , $+ %bc4 $+ %tw4 $+ 1,1 $+ %tw4 $+  $+ %bc5 $+ , $+ %bc5 $+ %tw5 $+  $+ %w5 $+  $+ %temp5 $+  $+ %bc5 $+ , $+ %bc5 $+ %tw5 $+ 1,1 $+ %tw5 $+  $+ %bc6 $+ , $+ %bc6 $+ %tw6 $+  $+ %w6 $+  $+ %temp6 $+  $+ %bc6 $+ , $+ %bc6 $+ %tw6 $+ 1,1 $+ %tw6 $+  $+ %bc7 $+ , $+ %bc7 $+ %tw7 $+  $+ %w7 $+  $+ %temp7 $+ %tw7 $+ %tw8
      say 1,1x $+ %w1 $+ , $+ %bc1 $+ %p1 $+ %cr1 $+  $+ %w1 $+ , $+ %bc1 $+ %p1 $+ 1,1x $+  $+ %w2 $+ , $+ %bc2 $+ %p2 $+ %cr2 $+  $+ %w2 $+ , $+ %bc2 $+ %p2 $+ 1,1 $+ %tw2 $+  $+ %w3 $+ , $+ %bc3 $+ %p3 $+ %cr3 $+  $+ %w3 $+ , $+ %bc3 $+ %p3 $+ 1,1 $+ %tw3 $+  $+ %w4 $+ , $+ %bc4 $+ %p4 $+ %cr4 $+  $+ %w4 $+ , $+ %bc4 $+ %p4 $+ 1,1 $+ %tw4 $+  $+ %w5 $+ , $+ %bc5 $+ %p5 $+ %cr5 $+  $+ %w5 $+ , $+ %bc5 $+ %p5 $+ 1,1 $+ %tw5 $+  $+ %w6 $+ , $+ %bc6 $+ %p6 $+ %cr6 $+  $+ %w6 $+ , $+ %bc6 $+ %p6 $+ 1,1 $+ %tw6 $+  $+ %w7 $+ , $+ %bc7 $+ %p7 $+ %cr7 $+  $+ %w7 $+ , $+ %bc7 $+ %p7 $+ 1,1 $+ %twx
      say 1,1xy $+ %temp1 x $+ %tw2 $+ %temp2 $+ %tw2 $+ %tw2 $+ %tw3 $+ %temp3 $+ %tw3 $+ %tw3 $+ %tw4 $+ %temp4 $+ %tw4 $+ %tw4 $+ %tw5 $+ %temp5 $+ %tw5 $+ %tw5 $+ %tw6 $+ %temp6 $+ %tw6 $+ %tw6 $+ %tw7 $+ %temp7 $+ %tw9 $+ %twx
      { halt }      
    }
    if (%decmul == 7) { 
      set %i $replace($1-,$chr(32), ) | set %i $left(%i,200) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
      :loop
      set %o %o $+ $chr(3) $+ $gettok(4&7&8&9&11&13,%c,38) $+ $mid(%i,%p,1) 
      inc %p
      if ( $mid(%i,%p,1) !=  ) { inc %c }
      if ( %c > 6 ) { set %c 1 }
      if ( $mid(%i,%p,1) != $null ) { goto loop }
      say %o
      unset %o %i %p %c
      { halt }      
    }
    else { goto THEEND }
  }
  :THEEND
}
menu query,channel {
  ¶ Color Style ¶
  .On:/set %decsty on | echo 4 -a ***  Color Script is now [4On1]
  .Off:/set %decsty Off | echo 12 -a *** Color Script is now 1[4Off1] 
  .ColourType
  ..Single Style:/echo 14 -a Avealable colours are 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 | set %deccol $?="Enter a number <1-15>" | set %decmul 0
  ..Multy Style1[Mul Col]:/set %decmul 1 | echo 14 -a *** Multy Colour Style is now active. 
  ..Multy Style2[Mul Bak Col]:/set %decmul 2 | echo 14 -a *** Multy Colour text and background Style is now active. 
  ..Multy Style3[Mul Sty Col]:/set %decmul 3 | echo 14 -a *** Multy Colour Style is now active.
  ..Multy Style4[Reverse]:/set %decmul 4 | echo 14 -a *** Reverse text Style is now active. 
  ..Multy Style5[Mul Styl]:/set %decmul 5 | echo 14 -a *** Multy Colour and Style is now active.
  ..Multy Style6[Pants]:/set %decmul 6 | echo 14 -a *** Multy Colour pants script is now active, this style may flood the channel!!! 
  ..Multy Style7[Rainbow]:/set %decmul 7 | echo 14 -a *** Multy Colour rainbow with black background style is now active. 
}