/red /say 4 $+ *1
/navy /say 2 $+ *1
/grn /say 3 $+ *1
/brn /say 5 $+ *1
/pur /say 6 $+ *1
/puce /say 7 $+ *1
/yel /say 8 $+ *1
/lime /say 9 $+ *1
/teal /say 10 $+ *1
/neon /say 11 $+ *1
/blue /say 12 $+ *1
/pink /say 13 $+ *1
/lt /say 14 $+ *1
/dk /say 15 $+ *1
/rb {
  set -q %string *1
  set -q %newstring $rainbow(%string)
  say %newstring
  unset -q %string
  unset -q %newstring
}
The  /ht uses ascii chars. that look like letters (type:  /ht your msg. here)
/ht {
  set %rk *1
  %rk = $replace(%rk,a,)
  %rk = $replace(%rk,b,)
  %rk = $replace(%rk,c,)
  %rk = $replace(%rk,d,)
  %rk = $replace(%rk,e,)
  %rk = $replace(%rk,f,f)
  %rk = $replace(%rk,g,g)
  %rk = $replace(%rk,h,h)
  %rk = $replace(%rk,i,)
  %rk = $replace(%rk,j,j)
  %rk = $replace(%rk,k,K)
  %rk = $replace(%rk,l,)
  %rk = $replace(%rk,m,m)
  %rk = $replace(%rk,n,)
  %rk = $replace(%rk,o,)
  %rk = $replace(%rk,p,)
  %rk = $replace(%rk,q,q)
  %rk = $replace(%rk,r,)
  %rk = $replace(%rk,s,)
  %rk = $replace(%rk,t,t)
  %rk = $replace(%rk,u,)
  %rk = $replace(%rk,v,v)
  %rk = $replace(%rk,w,W)
  %rk = $replace(%rk,x,)
  %rk = $replace(%rk,y,)
  %rk = $replace(%rk,z,z)
  say %rk
  unset %rk
}
/crooked {
  set %crook *1
  %crook = $upper(%crook)
  %crook = $replace(%crook,A,a)
  %crook = $replace(%crook,E,e)
  %crook = $replace(%crook,I,i)
  %crook = $replace(%crook,O,o)
  %crook = $replace(%crook,U,u)
  %crook = $replace(%crook,W,w)
  say %crook
  unset %crook
}
/brick { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 1 | %num3 = 4 | %color = y | goto add }
  if %color == y  { %num2 = 4 | %num3 = 1 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}
/GS { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 8 | %num3 = 4 | %color = y | goto add }
  if %color == y  { %num2 = 4 | %num3 = 8 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}
/coke { %num = 1 | unset %msg  | %msg =  | %color = p
  :start
  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
  if %color == y  { %num2 = 4 | %num3 = 0 | %color = p | goto add }
  :add
  if $mid(%num,1, *1) != $null {
    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
    inc %num 
  goto start  }
  say %msg
}
/rep {
  set %i $replace(*1,$chr(32),) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
  :loop
  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
  inc %p
  if ( $mid(%p,1,%i) != ) { inc %c }
  if ( %c > 6 ) { set %c 1 }
  if ( $mid(%p,1,%i) != $null ) { goto loop }
  say %o
  unset %o %i %p %c
}
/ct {
  %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,12W) 
  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
}
} %c
}
}
/c say 1 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15
/rhelp {
echo 10 -s -----+++++=====+++++-----
echo 10 -s ****Rainbow Script 3.22 - By: Baloo^****
echo 12 -s use /csay to color each word in any normal statement
echo 12 -s use /cmsg as you would use /msg to color each word in a message
echo 12 -s use /cme as you would use /me to color each word in an action
echo 12 -s use /cnotice as you would use /notice to color each word in a notice
echo 7 -s use /rsay to color each letter in any normal statement
echo 7 -s use /rmsg as you would use /msg to color each letter in a message
echo 7 -s use /rme as you would use /me to  color each letter in an action
echo 7 -s use /rnotice as you would use /notice to color each letter in a notice
echo 4 -s type /col for a color chart in the status window
echo 4 -s type /col [anything] for a color chart in the current window
echo 6 -s type /mar [text] to make your text in marquis form
echo 10 -s -----+++++=====+++++-----
}
/col {
%i = 0 | %j = 16
set %col 0- $+ $chr(3) $+ 32,32... $+ $chr(3) $+ $chr(3) $+ $chr(3) $+ 1
:loop
inc %i | inc %j
if %i <= 15 { set %col %col $+ $chr(32) $+ %i $+ - $+ $chr(3) $+ %j $+ , $+ %j $+ ... $+ $chr(3) | goto loop }
if $1 == $null echo -s %col
else say %col
}
/cstring {
%i = 1
unset %mix 
set %norep1 22
:next
set %counter * $+ %i $+ - $+ %i
set %vari [ [ %counter ] ]
if %vari == $null goto end
:redo
set %num $r(18,30)
if ( %num == 24 ) || ( %num == 27 ) || ( %num == 25 ) || ( %num == %norep1 ) || ( %num == %norep2 ) || ( %num == %norep3) || ( %num == %norep4 ) || ( %num == %norep5 ) || ( %num == %norep6 ) || ( %num == %norep7 ) goto redo 
set %norep7 %norep6 | set %norep6 %norep5 | set %norep5 %norep4 | set %norep4 %norep3 | set %norep3 %norep2 | set %norep2 %norep1 | set %norep1 %num
set %mix %mix $chr(3) $+ %num $+ %vari $+ $chr(3)
inc %i
goto next
:end
set %cstring [ [ %mix ] ]
}
/csay cstring *1 | say %cstring
/cme cstring *1 | action %cstring
/cnotice cstring *2 | notice *1-1 %cstring
/cmsg cstring *2 | raw -q privmsg  *1-1 : $+ %cstring | echo $chr(3) $+ $r(2,7) $+ -> * $+ *1-1 $+ * %cstring
/rstring {
%i = 0 | %work = "" | %raw = *1 
:loop
inc %i  
:redo
set %num $r(18,30)
if ( %num == 24 ) || ( %num == 27 ) || ( %num == 25 ) || ( %num == %norep1 ) || ( %num == %norep2 ) || ( %num == %norep3) || ( %num == %norep4 ) || ( %num == %norep5 ) || ( %num == %norep6 ) || ( %num == %norep7 ) goto redo 
set %norep7 %norep6 | set %norep6 %norep5 | set %norep5 %norep4 | set %norep4 %norep3 | set %norep3 %norep2 | set %norep2 %norep1 | set %norep1 %num
if (%i <= $len(%raw)) { set %work %work $+ $chr(3) $+ %num $+ $mid(%i,1,%raw) $+ $chr(3) | goto loop }
set %rstring $mid(2,$len(%work),%work)
}
/rsay rstring *1 | say %rstring
/rme rstring *1 | action %rstring
/rnotice rstring *2 | notice *1-1 %rstring
/rmsg rstring *2 | raw -q privmsg  *1-1 : $+ %rstring | echo $chr(3) $+ $r(2,7) $+ -> * $+ *1-1 $+ * %rstring
/mar say $chr(3) $+ 15,15. $+ $chr(3) $+ 14,14. $+ $chr(3) $+ 1,1. $+ $chr(3) $+ 8,1 $+ *1 $+  $+ $chr(3) $+ 1,1. $+ $chr(3) $+ 14,14. $+ $chr(3) $+ 15,15.
--------------------------------
/sblu { %num = 1 | unset %msg  | %msg =  | %color = p
:start
if %color == p { %num2 = 12 | %num3 = 16 | %color = y | goto add }
if %color == y  { %num2 = 16 | %num3 = 12 | %color = p | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num 
goto start  }
say %msg
}
----------------------------------------
/tgrn { %num = 1 | unset %msg  | %msg =  | %color = p
:start
if %color == p { %num2 = 3 | %num3 = 9 | %color = y | goto add }
if %color == y  { %num2 = 9 | %num3 = 3 | %color = p | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num 
goto start  }
say %msg
}
--------------------------------------------------------
rem                 ************     BEGIN     ALIAS     SCRIPTS   *********** 
rem
rem          alias for   /c   general bold colors (individually colored letters)
rem
came /rc *1 | /ame %say
camsg /rc *1 | /amsg %say
cme /rc *1 | /me %say
c /rc *1 | /say %say
rc {
unset %say
set %text *1
set %loop 1
set %max $len(*1)
if $1 == 1 { set %loop 1 | set %max $len(*2) | set %text *2 | goto bold }
:start
set %colour.number $rand(1,13)
set %char $mid( %loop, 1, %text)
if %loop > %max goto end
if %say == $null { set %say  $+ %colour.number $+ %char $+  | inc %loop | goto start }
if %char == $null { set %say %say $+ . | inc %loop | goto start }
set %say %say $+  $+ %colour.number $+ %char $+ 
inc %loop
goto start
:bold
set %other.number $rand(0, 3)
set %colour.number $rand(1,13)
set %char $mid( %loop, 1, %text)
if %other.number = 0 { %burdo =  }
if %other.number = 1 { %burdo =  }
if %other.number = 2 { %burdo =  }
if %other.number = 3 { %burdo =  }
if %loop > %max goto end
if %say == $null { set %say  $+ %colour.number $+ %burdo $+ %char $+  | inc %loop | goto bold }
if %char == $null { set %say %say $+ . | inc %loop | goto bold }
set %say %say $+  $+ %colour.number $+ %burdo $+ %char $+ 
inc %loop
goto bold
:end
}
rem
rem         alias  /ct    for general fanci colors (individual colored letters
rem
rem
rem      **********    alias    /x   for greens  ******************   
rem
/gr { %num = 1 | unset %msg  | %msg =  | %color = p
:start
if %color == p { %num2 = 3 | %num3 = 9 | %color = y | goto tst }
if %color == y { %num2 = 9 | %num3 = 3 | %color = p | goto tst }
:tst
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num 
goto start  }
say %msg
}
rem
rem    **********    alias    /z   for blues   ******************   
rem
/z { %num = 1 | unset %msg  | %msg =  | %color = p
:start
if %color == p { %num2 = 12 | %num3 = 16 | %color = y | goto tst }
if %color == y { %num2 = 16 | %num3 = 12 | %color = p | goto tst }
:tst
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num 
goto start  }
say %msg
}
rem
rem    *************   alias    /g  4 color lt blue on black/yellow  ******************      
rem
/g { %num = 1 | unset %msg  | %msg =  | %color = p
:start
if %color == p { %num2 =  11 | %num3 = 1 | %color = y | goto tst }
if %color == y { %num2 = 1 | %num3 =  8 | %color = r | goto tst }
if %color == r { %num2 =  11 | %num3 = 1 | %color = d | goto tst }
if %color == d { %num2 = 1 | %num3 =  8 | %color = p | goto tst }
:tst
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num 
goto start  }
say %msg
}
rem
rem     *************    alias    /g1  4 color yellow/lt blue on black     ****************** 
rem
/g1 { %num = 1 | unset %msg  | %msg =  | %color = p
:start
if %color == p { %num2 =  8 | %num3 =  1 | %color = y | goto tst }
if %color == y { %num2 = 11 | %num3 = 1 | %color = r | goto tst }
if %color == r { %num2 =  8 | %num3 = 1 | %color = d | goto tst }
if %color == d { %num2 = 11 | %num3 =  1 | %color = p | goto tst }
:tst
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num 
goto start  }
say %msg
}
rem
rem      *********    alias    /b   for multi-color spy mode    ******************  
rem
/b { %num = 1 | unset %msg  | %msg =  | %color = p
:start
if %color == p { %num2 =  4 | %num3 = 4 | %color = y | goto tst }
if %color == y { %num2 = 12 | %num3 = 12 | %color = r | goto tst }
if %color == r { %num2 =  3 | %num3 = 3 | %color = d | goto tst }
if %color == d { %num2 = 6 | %num3 =  6 | %color = p | goto tst }
:tst
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num
goto start  }
say %msg
}
rem
rem       alias    /w1   for individual word colors set to blue/red/green/purple - NO BACKGROUND     
rem
/w1 { %num = 1 | unset %msg  | %msg =  | %color = p
:start
:one
if %color == p { %num2 =  12 | %num3 = 0 }
if %color == p { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = y } | goto add } }
:two
if %color == y { %num2 = 4 | %num3 = 0 }
if %color == y { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = r } | goto add } }
:three
if %color == r { %num2 =  3 | %num3 = 0 }
if %color == r { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = d } | goto add } }
:four
if %color == d { %num2 =  6 | %num3 = 0 }
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = p } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num
goto start  }
say %msg
}
rem
rem       alias    /w2   for individual word colors set to blue/yellow/green/white - all on black     
rem
/w2 { %num = 1 | unset %msg  | %msg =  | %color = p
:start
:one
if %color == p { %num2 =  11 | %num3 = 1 }
if %color == p { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = y } | goto add } }
:two
if %color == y { %num2 = 8 | %num3 = 1 }
if %color == y { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = r } | goto add } }
:three
if %color == r { %num2 =  9 | %num3 = 1 }
if %color == r { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = d } | goto add } }
:four
if %color == d { %num2 =  13 | %num3 = 1 }
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = p } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num
goto start  }
say %msg
}
rem
rem       alias    /w3   for individual word colors set to red/blue/mag/green - all on YELLOW     
rem
/w3 { %num = 1 | unset %msg  | %msg =  | %color = p
:start
:one
if %color == p { %num2 =  4 | %num3 = 8 }
if %color == p { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = y } | goto add } }
:two
if %color == y { %num2 = 2 | %num3 = 8 }
if %color == y { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = r } | goto add } }
:three
if %color == r { %num2 =  13 | %num3 = 8 }
if %color == r { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = d } | goto add } }
:four
if %color == d { %num2 =  3 | %num3 = 8 }
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = p } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num
goto start  }
say %msg
}
rem
rem       alias    /w4   for individual word colors set to yellow/black/lt green/lt blue - all on RED     
rem
/w4 { %num = 1 | unset %msg  | %msg =  | %color = p
:start
:one
if %color == p { %num2 =  8 | %num3 = 4 }
if %color == p { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = y } | goto add } }
:two
if %color == y { %num2 = 1 | %num3 = 4 }
if %color == y { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = r } | goto add } }
:three
if %color == r { %num2 =  9 | %num3 = 4 }
if %color == r { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = d } | goto add } }
:four
if %color == d { %num2 = 11 | %num3 = 4 }
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = p } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num
goto start  }
say %msg
}
rem
rem   alias    /w5   for individual word colors set to blue/green/red/lgt green - SPY MODE     
rem
/w5 { %num = 1 | unset %msg  | %msg =  | %color = p
:start
:one
if %color == p { %num2 =  12 | %num3 = 12 }
if %color == p { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = y } | goto add } }
:two
if %color == y { %num2 = 3 | %num3 = 3 }
if %color == y { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = r } | goto add } }
:three
if %color == r { %num2 =  4 | %num3 = 4 }
if %color == r { if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = d } | goto add } }
:four
if %color == d { %num2 =  10 | %num3 = 10 }
if $mid(%num,1, *1) == $chr(32) { { %num2 = 0 | %num3 = 0 | %color = p } | goto add }
:add
if $mid(%num,1, *1) != $null {
%msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
inc %num
goto start  }
say %msg
}
rem 
rem      ******   alias    /g calls alias /g for 5 words verticle words   ****************** 
rem
/h /g $1 | /g $2  | /g $3  | /g $4  | /g $5
rem 
rem     ******   alias    /b calls alias /b for 5 words verticle words (spy mode)  ********  
rem
/b1 /b $1 | /b $2  | /b $3  | /b $4  | /b $5
------------------------------------------------------------
Here ya go :)
put in aliases and to run just type /bears <nick> are /heart <nick> cant use over 9 letters though.
#make bears start
/bears {
if ($1 == $null) {
echo 2 $active [Help]: /bears <nick>
halt
}
%bearnick = $1
:home
if ($len(%bearnick) = 9) { goto end }
if ($len(%bearnick) isin 1357) { %bearnick = %bearnick $+  }
if ($len(%bearnick) isin 2468) { %bearnick =  $+ %bearnick }
goto home
:end
msg $active 1,17~* 11BeaRS N' RoSeS 7*~1----------
msg $active 1,111(~0.11_0.11~)1----------------
msg $active 1,111(5Y11)1------------------
msg $active 1,111(~0.11_0.11~)8@9>--11()9-;-11()9--11(~0.11_0.11~)1---
msg $active 1,111(5Y11)11(_)-(_)11(5Y11) 1----
msg $active 9,1--11()9-;-11()9--<0@9 %bearnick 11@9>--11()9-;-11()9-- -
msg $active 11,1(_)-(_)11(~0.11_0.11~)11(_)-(_)1---
msg $active 11,111(5Y11)1------------------
msg $active 9,1--11()9-;-11()9--<4@1------------
msg $active 11,1(_)-(_)1----------------
msg $active 1,1 11SweeT HeLLo FRoM Me!!1---------
}
;----------------------------------------------------
#make hearts start
/heart {
if ($1 == $null) {
echo 2 $active [Help]: /heart <nick>
halt
}
%heartnick = $1
:home
if ($len(%heartnick) = 9) { goto end }
if ($len(%heartnick) isin 1357) { %heartnick = %heartnick $+  }
if ($len(%heartnick) isin 2468) { %heartnick =  $+ %heartnick }
goto home
:end
msg $active 07,1    7~* 4BeaRS N' RoSeS 7*~1-----------
msg $active 11,1(~0.11_0.11~)04....1------------------
msg $active 11,1(5Y11)4.``.''.11(~0.11_0.11~)1--
msg $active 09,1--11()9-;-11()9--<0@4.0 %heartnick  4.  11(5Y11)1----
msg $active 11,1(_)-(_)4..0@9>--11()9-;-11()1--
msg $active 04,14..11(_)-(_)1--
msg $active 04,14.1----------------------
msg $active 04,1    a SweeT weLCoMe BaCK!!!!!1----------
}
;----------------------------------------------------
#make hug start
/hug {
if ($1 == $null) {
echo 2 $active [Help]: /hug <nick>
halt
}
%hugnick = $1
:home
if ($len(%hugnick) = 9) { goto end }
if ($len(%hugnick) isin 1357) { %hugnick = %hugnick $+  }
if ($len(%hugnick) isin 2468) { %hugnick =  $+ %hugnick }
goto home
:end
msg $active 01,1--------7~*0 BeaRS N' RoSeS 7*~1 -------------------
msg $active 11,1 {~0.11_0.11~}1-----------------11{~0.11_0.11~}1----------------
msg $active 01,1 -11(5 Y11 )7 ~* 13 %hugnick 7*~1- 11(5 Y11 )0 LoTS oF CuDDLY1-
msg $active 11,1 ()9~8*9~11()1-----------------11()9~8*9~11() 0TeDDY BeaR HuGS
msg $active 11,1 (_)-(_)1-----------------11(_)-(_) 0JuST FoR You...
}
;----------------------------------
/angel {
if ($1 == $null) {
echo 2 $active [Help]: /angel <nick>
halt
}
%angelnick = $1
:home
if ($len(%angelnick) = 9) { goto end }
if ($len(%angelnick) isin 1357) { %angelnick = %angelnick $+  }
if ($len(%angelnick) isin 2468) { %angelnick =  $+ %angelnick }
goto home
:end
msg $active 01,77-1,7~*11,7SeNDS A SPeCiaL aNGeL To waTCH oVeR1*~7-
msg $active 01,1--------------7_)1---------7(_1--------------
msg $active 01,1-------------7_) \0{~11.0_11.0~}7/ (_1-------------
msg $active 01,1-------------7)_\ \0(5 Y 0)7/ /_(1-------------
msg $active 01,1--------------7)_ 0()11~13*11~0()7 _(1--------------
msg $active 01,1-11,7 %angelnick 1,1--7 )_0(_)-(_)7_(1--11,7 %angelnick 1,1- 
}
;---------------------------------------------
********** Big Colored Text Version 1.1 By Maverick For mIRC 4.6 and Up
********** Place The Next Line In Your Aliases section
/bc { %r = $$1 $2 $3 $4 $5 | %l = $len(%r) | %nco = 1 | %bb = $chr(0160) | %bbc = $chr(44) | %bbs = $chr(3) | %bbo = $chr(15) | %bba = $chr(42) | %o = 1 | %o1 = 1 | %line = "" | :lop | if %o = 6 goto end | %o1 = 1 | %line = "" | :red | if %o1 > %l { /say %line | /inc %o | goto lop } | %lt = $mid(%o1,1,%r) | if %lt = $chr(32) set %lt sp | %rt = %lt $+ %o | %lin = $readini $mircdir $+ font.txt %lt %rt | %nco = %o1 | if %nco == 16 /set %nco 7 | %mgl = %bbs $+ %nco $+ %bbc $+ %nco $+ %bb $+ %bbo | %clin = $replace(%lin,%bba,%mgl) | if %lt = sp set %clin %lin | %line = %line %clin | /inc %o1 | goto red | :end | }
********** Move The Font.txt file to your mirc directory
********** To Use type /bc <Text>
********** Notes... Only will take 5 words per input, anything over 14 characters might flood you off of IRC :)
/boxes {
/say 2,2 $+ $1 $+ 0,0#M13,13 $+ $2 $+ 0,0IR8,8 $+ $3 $+ 0,0C_10,10 $+ $4 $+ 0,0CO12,12 $+ $5 $+ 0,0LO7,7 $+ $6 $+ 0,0RS3,3 $+ $7 $+ 0,0!!4,4 $+ $8 $+ 0,0!!5,5 $+ $9 $+ 
/say 8,2 $+ $1 $+ 1,1 0,0 2,13 $+ $2 $+ 1,1 $+ $left(1, $2 ) $+ 0,0 5,8 $+ $3 $+ 1,1 $+ $left(1, $3 ) $+ 0,0 9,10 $+ $4 $+ 1,1 $+ $left(1, $4 ) $+ 0,0 11,12 $+ $5 $+ 1,1 $+ $left(1, $5 ) $+ 0,0 8,7 $+ $6 $+ 1,1 $+ $left(1, $6 ) $+ 0,0 13,3 $+ $7 $+ 1,1 $+ $left(1, $7 ) $+ 0,0 2,4 $+ $8 $+ 1,1 $+ $left(1, $8 ) $+ 0,0 7,5 $+ $9 $+ 1,1 $+ $left(1, $9 )
/say 2,2 $+ $1 $+ 1,1 0,0 13,13 $+ $2 $+ 1,1 $+ $left(1, $2 ) $+ 0,0 8,8 $+ $3 $+ 1,1 $+ $left(1, $3 ) $+ 0,0 10,10 $+ $4 $+ 1,1 $+ $left(1, $4 ) $+ 0,0 12,12 $+ $5 $+ 1,1 $+ $left(1, $5 ) $+ 0,0 7,7 $+ $6 $+ 1,1 $+ $left(1, $6 ) $+ 0,0 3,3 $+ $7 $+ 1,1 $+ $left(1, $7 ) $+ 0,0 4,4 $+ $8 $+ 1,1 $+ $left(1, $8 ) $+ 0,0 5,5 $+ $9 $+ 1,1 $+ $left(1, $9 )
/say 0,0 1,1 $+ $1 $+ 0,0CO1,1 $+ $2 $+ 0,0LO1,1 $+ $3 $+ 0,0R 1,1 $+ $4 $+ 0,0BY1,1 $+ $5 $+ 0,0 T1,1 $+ $6 $+ 0,0EX1,1 $+ $7 $+ 0,0XY1,1 $+ $8 $+ 0,0!!1,1 $+ $9 $+ 
}
/rtime {
set %realtime $time
set %hour $token(1,58,%realtime)
set %type AM  
if (%hour > 12) { /set %hour %hour - 12 | /set %type PM }
if (%hour = 12) /set %type PM
if (%hour = 0) /set %hour 12 
set %min $token(2,58,%realtime)
set %realtime %hour $+ : $+ %min %type
if (%online = on) /set %online %realtime 
unset %hour | /unset %min | /unset %type | /return %realtime
}
