This Text file is old! In a ��Museum, an unsorted archive of (user-)pages. (Saved from Geocities in Oct-2009. The archival story: oocities.org)
--------------------------------------- (To 🚫report any bad content: archivehelp @ gmail.com)

/op /mode # +ooo $$1 $2 $3
/dop /mode # -ooo $$1 $2 $3
/j /join #$$1
/p /part #
/n /names #$$1
/w /whois $$1
/k /kick # $$1
/q /query $$1
/hop /part # | /join #$$1
/send /dcc send $1 $2
/chat /dcc chat $1
/ping /ctcp $$1 ping
F2 {/notice $$?="enter nick" -=|whisper message|=- $$?="Enter message" 
}
F8 /say %filetoget
/b1 /say 2,2  *1 $+ ! | /say 0,2  *1  1,1!  | /say 2,2  *1  1,1! | /say 0,0 1,1 *1 $+ !
/b2 /say 3,3  *1 $+ ! | /say 8,3  *1  1,1!  | /say 3,3  *1  1,1! | /say 0,0 1,1 *1 $+ !
/b3 /say 4,4  *1 $+ ! | /say 0,4  *1  1,1!  | /say 4,4  *1  1,1! | /say 0,0 1,1 *1 $+ !
/b4 /say 8,8  *1 $+ ! | /say 3,8  *1  1,1!  | /say 8,8  *1  1,1! | /say 0,0 1,1 *1 $+ !
/b5 /say 9,9  *1 $+ ! | /say 12,9  *1  1,1!  | /say 9,9  *1  1,1! | /say 0,0 1,1 *1 $+ !
/b6 /say 11,11  *1 $+ ! | /say 2,11  *1  1,1!  | /say 11,11  *1  1,1! | /say 0,0 1,1 *1 $+ !
/b7 /say 12,12  *1 $+ ! | /say 0,12  *1  1,1!  | /say 12,12  *1  1,1! | /say 0,0 1,1 *1 $+ !
/b8 /say 13,13  *1 $+ ! | /say 1,13  *1  1,1!  | /say 13,13  *1  1,1! | /say 0,0 1,1 *1 $+ !
/blue say 11,11.. 12,12... 11,1 *1 12,12... 11,11...
/red say 4,4.. 12,12... 0,1 *1 12,12... 4,4...
/green say 9,9.. 3,3... 9,1 *1 3,3... 9,9...
/pink say 13,13.. 6,6... 13,1 *1 6,6... 13,13...
/yellow say 8,8.. 9,9... 8,1 *1 9,9... 8,8...
/purple say 13,13.6,6..13,13.13,6 *1 13,13.6,6..13,13.
/redblue say 4,4.0,0.2,2.0,4 *1 2,2.0,0.4,4.
/btt { %words = $$1 | %d = 2 | :lop | %c = [ $ [ $+ [ %d ] ] ] | if %c != $null { %words = %words %c | /inc %d | goto lop } | %r = 1 | %filled = "" | %le = $len(%words) | :insert | if %r > %le goto stop | %c1 = $rand(1,15) | %filltext =  $+ %c1 | %n = $mid(%r,1,%words) | if %n = $chr(32) { /inc %r | %filled = %filled $+  $+ $chr(0160) | goto insert | } | %filled = %filled $+ %filltext $+ %n | /inc %r | goto insert | :stop | /msg $active %filled } | /halt | ;Randomer v 1.3 By Maverick
/f5 /say  1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 8,1 *1 1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 1,19
/ctt {
%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
}
/rd /msg $chan 1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 8,1 *1 1,1 1,2 1,3 1,4 1,5 1,6 1,7 1,8 1,9 1,10 1,11 1,12 1,13 1,14 1,15 1,17 1,18 1,19
on {
unset %counter
unset %on
:loop
inc %counter
n68=  if $opnick(%counter,#) == $null {
  raw -q notice %on : $+ 12[4OP NoTiCe12] ExCLuDiNg 2 $snicks $+ , $+ %exclude $+  $+ : *1
  echo 12[4OP NoTiCe12] ExCLuDiNg 2 $snicks $+ , $+ %exclude $+  $+ : *1
  halt
}
if ($nick(%counter,#) isin $snicks) || ($nick(%counter,#) isin %exclude) goto loop
if $nick(%counter,#) == $me goto loop
if %on == $null set %on $nick(%counter,#) $+ ,
else set %on %on $+ $nick(%counter,#) $+ ,
goto loop
}
exclude {
if $1 == $null {
  echo 4 To use the alias 'on', first highlight the person with your mouse that you don't want to get your notice.  Then type /on 'Your Message Here'.  This alias sends the notice to OPs 'only'.  For Excluding more than one person, type /exclude NICKs, where nick is any other people you don't want to see the notice.  You may set multiple nicks by seperating them with commas.
  echo 4 Those people will not get a notice when using /on as long as you have It set.  '/exclude NICK' Is 'optional', and /on will continue to not send a notice to whoever Is highlighted with the cursor In your channel nick list.  To unset any nicks that are being excluded with '/exclude NICK', just type /exclude !off.  To see who Is being excluded with this feature type /exclude !show.
  halt
}
if $1 == !off {
  echo 4 Exclude Is no longer excluding %exclude
  unset %exclude
  halt
}
if $1 == !show {
  echo 4 You are now excluding %exclude
  halt
}
set %exclude *1
echo 4 Now excluding %exclude
}
/r {
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
}
rb {
set -q %string *1
set -q %newstring $rainbow(%string)
say %newstring
unset -q %string
unset -q %newstring
}
rainbow {
set -q %str1 *1
set -q %c 2
set -q %color 2
set -q %ctrlk 
set -q %length $len(%str1)
unset -q %str2
if (%length == 0 ) { goto end }
%str2 =  $+ 1 $+ $mid( 1, 1, %str1 )
:start
if (%c > %length) { goto end }
inc %color 1
if (%color == 16) { set -q %color 1 }
if (%color == 8) { set -q %color 1 }
if ($asc($mid( %c, 1, %str1 )) == 32 ) {
%str2 = %str2 $+  $+ %color $mid( %c, 1, %str1 ) }
else { %str2 = %str2 $+  $+ %color $+ $mid( %c, 1, %str1 ) }
inc %c 1
goto start
:end
unset -q %str1
unset -q %c
unset -q %color
unset -q %ctrlk
unset -q %length
return %str2
}
/e {  
%text = $replace(*1,a,â)
%text = $replace(%text,A,Ã)
%text = $replace(%text,b,ß)
%text = $replace(%text,ae,æ)
%text = $replace(%text,c,¢)
%text = $replace(%text,d,Ð)
%text = $replace(%text,e, ë)
%text = $replace(%text,E, ë)
%text = $replace(%text,i,¦)
%text = $replace(%text,l,£)
%text = $replace(%text,m,M)
%text = $replace(%text,n, ñ)
%text = $replace(%text,o,ø)
%text = $replace(%text,O,ö)
%text = $replace(%text,P,þ)
%text = $replace(%text,w,W)
%text = $replace(%text,W,w)
%text = $replace(%text,f,f)
%text = $replace(%text,F,f)
%text = $replace(%text,cks,X)
%text = $replace(%text,r,®)
%text = $replace(%text,s,§ )
%text = $replace(%text,t,t)
%text = $replace(%text,T,t)
%text = $replace(%text,u,û)
%text = $replace(%text,y,ÿ)
%text = $replace(%text,?,¿?)
%text = $replace(%text,z,°z°)
%text = $replace(%text,!,¡!¡)
/msg $Active %text 
}

/re { 
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 } 
/e %o 
unset %o %i %p %c
}
/r {
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
}
tcstringi %low = 1 | %high = 6 | %back = 17 | cstringc *1
cstringi %low = 1 | %high = 6 | %back = 17 | cstringc *1
cstring %low = 7 | %high = 16 | %back = 32 | cstringc *1
cstringc {
%i = 1
%mode = 32.11.24.25.13.20.18.19.20.21.22.23.26.28.29.30
unset %mix 
set %norep1 22
:next
set %counter * $+ %i $+ - $+ %i
set %vari [ [ %counter ] ]
if %vari == $null goto end
:redo
%num = $gettok( %mode , $r( %low , %high ), 46)
if ( %num == %norep1 ) || ( %num == %norep2 ) || ( %num == %norep3) || ( %num == %norep4 ) goto redo 
set %norep4 %norep3 | set %norep3 %norep2 | set %norep2 %norep1 | set %norep1 %num
if %back == 17  set %mix %mix $chr(3) $+ %num $+ , $+ %back $+ %vari $+ $chr(3)
else set %mix %mix $chr(3) $+ %num $+ %vari $+ $chr(3)
inc %i
goto next
:end
if %back != 17 goto final
set %repl $chr(3) $+ %back $+ , $+ %back $+ $chr(32) $+ $chr(3)
set %mix $replace(%mix,$chr(32),%repl)
:final
set %cstring [ [ %mix ] ]
}
cmsay cstringi  *1 | mar %cstring
cmme set %act *1 | cstringi %act | marq %cstring | action %mar
cmnotice cstringi *2 | marq %cstring | notice *1-1 %mar
cmonotice cstringi *1 | marq %cstring | onotice *0-1 %mar
cmmsg cstringi *2 | marq %cstring | msg *1-1 %mar
csay cstring *1 | say %cstring
cme cstring *1 | action %cstring
cnotice cstring *2 | notice *1-1 %cstring
conotice cstring *1 | onotice *0-1 %cstring
cmsg cstring *2 | raw -q privmsg  *1-1 : $+ %cstring | echo $chr(3) $+ $r(2,7) $+ -> * $+ *1-1 $+ * %cstring
rstringi  %low = 1 |  %high = 6 |  %back = 17 |  rstringc  *1
rstring  %low = 7 |  %high = 16 |  %back = 32 |  rstringc  *1
rstringc {
%i = 0 | %work = " |  %raw = *1 
%mode = 20.11.24.25.13.32.18.19.20.21.22.23.26.28.29.30
:loop
inc %i  
:redo
%num = $gettok( %mode , $r( %low , %high ), 46)
if  ( %num == %norep1 ) || ( %num == %norep2 ) || ( %num == %norep3) || ( %num == %norep4 )  goto redo 
set %norep4 %norep3 | set %norep3 %norep2 | set %norep2 %norep1 | set %norep1 %num
if (%i <= $len(%raw)) { set %work %work $+ $chr(3)  $+ %num  $+ , $+  %back $+  $mid(%i,1,%raw) $+ $chr(3) | goto loop }
set %rstring $mid( 2, $len(%work), %work)
}
rmsay rstringi  *1 | mar %rstring
rmme set %act *1 | rstringi %act | marq %rstring | action %mar
rmnotice rstringi *2 | marq %rstring | notice *1-1 %mar
rmonotice rstringi *1 | marq %rstring | onotice *0-1 %mar
rmmsg rstringi *2 | marq %rstring | msg *1-1 %mar
rsay rstring *1 | say %rstring
rme rstring *1 | action %rstring
rnotice rstring *2 | notice *1-1 %rstring
ronotice rstring *1 | onotice *0-1 %rstring
rmsg rstring *2 | raw -q privmsg  *1-1 : $+ %rstring | echo $chr(3) $+ $r(2,7) $+ -> * $+ *1-1 $+ * %rstring
lstring {
set %num $gettok(18.19.20.21.22.23.26.28.29.30,$r(1,10),46)
set %lstring $chr(3) $+ %num $+ *1
}
lstringi {
set %num $gettok(20.11.24.25.13,$r(1,5),46)
set %lstring $chr(3) $+ %num $+ *1
}
lmsay lstringi *1 | mar %lstring
lmme set %act *1 | lstringi %act | marq %lstring | action %mar
lmnotice lstringi *2 | marq %lstring | notice *1-1 %mar
lmmsg lstringi *2 | marq %lstring | msg *1-1 %mar
lmonotice lstringi *1 | marq %lstring | onotice *0-1 %mar
lonotice lstring *1 | onotice *0-1 %lstring
lsay lstring *1 | say %lstring
lme lstring *1 | action %lstring
lnotice lstring *2 | notice *1-1 %lstring
lmsg lstring *2 | raw -q privmsg  *1-1 : $+ %lstring | echo $chr(3) $+ $r(2,7) $+ -> * $+ *1-1 $+ * %lstring
marq set %mar $chr(3) $+ 15,15- $+ $chr(3) $+ 14,14- $+ $chr(3) $+ 1,1. $+ $chr(2) $+ $chr(3) $+ 8,1 $+ *1 $+ $chr(2) $+  $+ $chr(3) $+ 1,1. $+ $chr(3) $+ 14,14- $+ $chr(3) $+ 15,15-
mar marq *1 | say %mar
rs rsay  *1
cs csay  *1
ls lsay  *1
lm lmsay  *1
cm cmsay  *1
rm rmsay  *1
cmas cstring *o* *¡* *o* *¡* *o* *¡* $2 *o* *¡* *o* *¡* *o* *¡* $2 *o* *¡* *o* *¡* *o* *¡* $2 *o* *¡* *o* *¡* *o* *¡* $2 *o* *¡* *o* *¡* *o* *¡* $2 *o* *¡* *o* *¡* *o*  | set %xmas $replace(%cstring,$chr(32),^) | /cme hangs a string of lights for $$1 =D---- $+ %xmas   Lets Party!
/cns {
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$1 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$2 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$3 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$4 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$5 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$6 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$7 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$8 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$9 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
/say 0 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ12 $$10 08ƒƒ11ƒƒ9ƒƒ13ƒ04ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1
}
/bcns {
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$1  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$2  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$3  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$4  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$5  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$6  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$7  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$8  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$9  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
/say 0,1 1ƒ2ƒ5ƒ6ƒ3ƒ7ƒ14ƒ10ƒ12ƒ4ƒ13ƒ9ƒƒ11ƒƒ8ƒƒ0,1  $$10  0,18ƒƒ11ƒƒ9ƒƒ13ƒ0,14ƒ12ƒ10ƒ14ƒ7ƒ3ƒ6ƒ5ƒ2ƒ1ƒ
}
;*****Rainbow Script 3.22 - By: Baloo^*****
;*****type /rhelp for instructions
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 /mq [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)
f ( %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
mq say $chr(3) $+ 2,2. $+ $chr(3) $+ 12,12. $+ $chr(3) $+ 2,2. $+ $chr(3) $+ 11,1 $+ *1 $+  $+ $chr(3) $+ 1,1. $+ $chr(3) $+ 12,12. $+ $chr(3) $+ 2,2.
;--------- end Rainbow Script - By: Baloo^ ----------
clock {
/say 0,0___12eastern0____15,14\14,14 $atime 15,14/      
/say 0,0___13standard0________15,14 4,1 $atime 15,14          
/say 0,0___14Time0____...15,14/14,14 $atime 15,14\     
}
/atime {
set %hr $token(1,58,$time)
set %min $token(2,58,$time)
if (%hr == 0) { set %hr 12 | set %sub am }
elseif (%hr < 12) { set %sub am }

elseif (%hr == 12) { set %sub pm }
else { %hr = %hr - 12 | set %sub pm }
return %hr $+ : $+ %min  %sub
}
/e1 {
set %ftalk *1
%ftalk = $replace(%ftalk,a,å)
%ftalk = $replace(%ftalk,b,ß)
%ftalk = $replace(%ftalk,c,©)
%ftalk = $replace(%ftalk,d,Ð)
%ftalk = $replace(%ftalk,e,ë)
%ftalk = $replace(%ftalk,f,F)
%ftalk = $replace(%ftalk,g,G)
%ftalk = $replace(%ftalk,h,H)
%ftalk = $replace(%ftalk,i,î)
%ftalk = $replace(%ftalk,j,J)
%ftalk = $replace(%ftalk,k,K)
%ftalk = $replace(%ftalk,l,£)
%ftalk = $replace(%ftalk,m,M)
%ftalk = $replace(%ftalk,n,ñ)
%ftalk = $replace(%ftalk,o,ø)
%ftalk = $replace(%ftalk,p,¶)
%ftalk = $replace(%ftalk,q,Q)
%ftalk = $replace(%ftalk,r,®)
%ftalk = $replace(%ftalk,s,§)
%ftalk = $replace(%ftalk,t,t)
%ftalk = $replace(%ftalk,u,µ)
%ftalk = $replace(%ftalk,v,V)
%ftalk = $replace(%ftalk,w,\\')
%ftalk = $replace(%ftalk,x,×)
%ftalk = $replace(%ftalk,y,¥)
%ftalk = $replace(%ftalk,z,Z)
say %ftalk
}
/e2 {
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
}
/e3 {
%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
}
/bgr {
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(%text.change,1,%rainbow) $+ 
if (%text.change == 1) { set %textfinal %text2add }
else set %textfinal %textfinal $+ %text2add
goto beginning
:end
msg $chan %textfinal
}
/all say 1 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15
/bch {
set %d *1
%a1 = 4,1a
%a2 = 3,1B
%a3 = 6,1C
%a4 = 7,1D
%a5 = 4,1e
%a6 = 12,1F
%a7 = 13,1G
%a8 = 6,1H
%a9 = 4,1i
%a10 = 8,1J
%a11 = 3,1K
%a12 = 8,1L
%a13 = 4,1M
%a14 = 6,1N
%a15 = 4,1o
%a16 = 12,1P
%a17 = 9,1Q
%a18 = 13,1R
%a19 = 7,1S
%a20 = 9,1T
%a21 = 4,1u
%a22 = 11,1V
%a23 = 12,1W
%a24 = 7,1X
%a25 = 11,1Y
%a26 = 6,1z
%a27 = 12,1¿15,2?
set %d $replace(%d,a,%a1)
set %d $replace(%d,b,%a2)
set %d $replace(%d,c,%a3) 
set %d $replace(%d,d,%a4) 
set %d $replace(%d,e,%a5) 
set %d $replace(%d,f,%a6) 
set %d $replace(%d,g,%a7) 
set %d $replace(%d,h,%a8) 
set %d $replace(%d,i,%a9) 
set %d $replace(%d,j,%a10) 
set %d $replace(%d,k,%a11) 
set %d $replace(%d,l,%a12) 
set %d $replace(%d,m,%a13) 
set %d $replace(%d,n,%a14)
set %d $replace(%d,o,%a15) 
set %d $replace(%d,p,%a16) 
set %d $replace(%d,q,%a17) 
set %d $replace(%d,r,%a18) 
set %d $replace(%d,s,%a19) 
set %d $replace(%d,t,%a20) 
set %d $replace(%d,u,%a21) 
set %d $replace(%d,v,%a22) 
set %d $replace(%d,w,%a23)
set %d $replace(%d,x,%a24) 
set %d $replace(%d,y,%a25) 
set %d $replace(%d,z,%a26) 
set %d $replace(%d,?,%a27) 
say %d
unset %d
} 
/bac {
unset %final
unset %endreverse
set %sections $token(0,32,*1)
:revstart
if (%sections == 0) goto revend  
set %reverseme $token(%sections,32,*1)
set %length $len(%reverseme)
set %backtext $mid(%length,1,%reverseme)  
dec %length 1  
:backstart
if (%length == 0) goto backend
set %tempback $mid(%length,1,%reverseme)
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
}