/ScriptServ

/clz_r {
  set %rk *1
  %rk = $replace(%rk,a,1a)
  %rk = $replace(%rk,b,3b)
  %rk = $replace(%rk,c,4c)
  %rk = $replace(%rk,d,6d)
  %rk = $replace(%rk,e,12e)
  %rk = $replace(%rk,f,13f)
  %rk = $replace(%rk,g,14g)
  %rk = $replace(%rk,h,15h)
  %rk = $replace(%rk,i,1i)
  %rk = $replace(%rk,j,3j)
  %rk = $replace(%rk,k,4k)
  %rk = $replace(%rk,l,6l)
  %rk = $replace(%rk,m,12m)
  %rk = $replace(%rk,n,13n)
  %rk = $replace(%rk,o,14o)
  %rk = $replace(%rk,p,1p)
  %rk = $replace(%rk,q,3q)
  %rk = $replace(%rk,r,4r)
  %rk = $replace(%rk,s,6s)
  %rk = $replace(%rk,t,12t)
  %rk = $replace(%rk,u,13u)
  %rk = $replace(%rk,v,14v)
  %rk = $replace(%rk,w,15w)
  %rk = $replace(%rk,x,1x)
  %rk = $replace(%rk,y,3y)
  %rk = $replace(%rk,z,4z)
  say %rk
  unset %rk
}
/clz_br {
  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
}
/clz_ascii {
  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)
  %rk = $replace(%rk,?,¿)
  %rk = $replace(%rk,!,¡)
  say %rk
  unset %rk
}
/clz_cascii {
  set %talk *1
  %talk = $replace(%talk, 1, ¹)
  %talk = $replace(%talk, 2, ²)
  %talk = $replace(%talk, 3, ³)
  %talk = $replace(%talk, 1/4, ¼)
  %talk = $replace(%talk, 1/2, ½)
  %talk = $replace(%talk, 3/4, ¾)
  %talk = $replace(%talk, AE, Æ)
  %talk = $replace(%talk, A, Å)
  %talk = $replace(%talk, B, ß)
  %talk = $replace(%talk, C, Ç)
  %talk = $replace(%talk, D, Ð)
  %talk = $replace(%talk, E, Ê)
  %talk = $replace(%talk, I, Î)
  %talk = $replace(%talk, L, £)
  %talk = $replace(%talk, N, Ñ)
  %talk = $replace(%talk, O, Ô)
  %talk = $replace(%talk, R, ®)
  %talk = $replace(%talk, S, §)
  %talk = $replace(%talk, U, Û)
  %talk = $replace(%talk, Y, ¥)
  { 
    %talk1 = %talk
    unset %talk
    %talk = 
    %number = 1 
    %color = 2
    :continue
    if $mid(%number,1, %talk1) != $null {
      %talk = %talk $+   $+ %color $+ $mid(%number, 1,%talk1) $+  
      inc %number
      If (%color == 15) %color = 1
      inc %color
      goto continue
    }
    say %talk
  }
} 
/clz_red {
  set %rk *1
  %rk = $replace(%rk,a,4a)
  %rk = $replace(%rk,b,4b)
  %rk = $replace(%rk,c,4c)
  %rk = $replace(%rk,d,4d)
  %rk = $replace(%rk,e,4e)
  %rk = $replace(%rk,f,4f)
  %rk = $replace(%rk,g,4g)
  %rk = $replace(%rk,h,4h)
  %rk = $replace(%rk,i,4i)
  %rk = $replace(%rk,j,4j)
  %rk = $replace(%rk,k,4k)
  %rk = $replace(%rk,l,4l)
  %rk = $replace(%rk,m,4m)
  %rk = $replace(%rk,n,4n)
  %rk = $replace(%rk,o,4o)
  %rk = $replace(%rk,p,4p)
  %rk = $replace(%rk,q,4q)
  %rk = $replace(%rk,r,4r)
  %rk = $replace(%rk,s,4s)
  %rk = $replace(%rk,t,4t)
  %rk = $replace(%rk,u,4u)
  %rk = $replace(%rk,v,4v)
  %rk = $replace(%rk,w,4w)
  %rk = $replace(%rk,x,4x)
  %rk = $replace(%rk,y,4y)
  %rk = $replace(%rk,z,4z)
  say %rk
  unset %rk
}
/clz_ctext { 
  unset %ctext*
  set %loop 0
  set %ctext *1
  :1
  inc %loop 1
  if ($mid(%loop,1,%ctext) == $chr(32)) { %ctext2 = %ctext2 $+ $chr(160) | goto 1 }
  %ctext1 =  $+ $rand(1,13) $+ $mid(%loop,1,%ctext)
  if (%ctext2 == $null) { %ctext2 = %ctext1 }
  else { %ctext2 = %ctext2 $+ %ctext1 }
  ;echo -s .. %ctext4
  if (%loop => $len(%ctext)) { say %ctext2 | unset %ctext* | unset %loop | halt }
  goto 1
}