/ScriptServ

[aliases]
n0=elite {
n1=  set %elite $$?="What To Say In ê£îtê Talker?:" *2
n2=  %rk = $replace(%rk,a,å)
n3=  %rk = $replace(%rk,b,ß)
n4=  %rk = $replace(%rk,c,©)
n5=  %rk = $replace(%rk,d,Ð)
n6=  %rk = $replace(%rk,e,ê)
n7=  %rk = $replace(%rk,f,f)
n8=  %rk = $replace(%rk,g,g)
n9=  %rk = $replace(%rk,h,|-|)
n10=  %rk = $replace(%rk,i,î)
n11=  %rk = $replace(%rk,j,j)
n12=  %rk = $replace(%rk,k,K)
n13=  %rk = $replace(%rk,l,£)
n14=  %rk = $replace(%rk,m,//`)
n15=  %rk = $replace(%rk,n,ñ)
n16=  %rk = $replace(%rk,o,ð)
n17=  %rk = $replace(%rk,p,þ)
n18=  %rk = $replace(%rk,q,q)
n19=  %rk = $replace(%rk,r,®)
n20=  %rk = $replace(%rk,s,§)
n21=  %rk = $replace(%rk,t,-|-)
n22=  %rk = $replace(%rk,u,ü)
n23=  %rk = $replace(%rk,v,v)
n24=  %rk = $replace(%rk,w,\\`)
n25=  %rk = $replace(%rk,x,×)
n26=  %rk = $replace(%rk,y,¥)
n27=  %rk = $replace(%rk,z,z)
n28=  say %elite
n29=  unset %elite
n30=}
n31=box {
n32=  set %box $$?="What To Say In [B][O][X] Writer?:" *2
n33=  %box = $replace(%box,a,[A])
n34=  %box = $replace(%box,b,[B])
n35=  %box = $replace(%box,c,[C])
n36=  %box = $replace(%box,d,[D])
n37=  %box = $replace(%Box,e,[E])
n38=  %box = $replace(%box,f,[F])
n39=  %box = $replace(%box,g,[G])
n40=  %box = $Replace(%box,h,[H])
n41=  %box = $replace(%box,i,[I])
n42=  %box = $replace(%box,j,[J])
n43=  %box = $replace(%box,k,[K])
n44=  %box = $replace(%box,l,[L])
n45=  %box = $replace(%box,m,[M])
n46=  %box = $replace(%box,n,[N])
n47=  %box = $replace(%box,o,[O])
n48=  %box = $replace(%box,p,[P])
n49=  %box = $replace(%box,q,[Q])
n50=  %box = $replace(%box,r,[R])
n51=  %box = $replace(%box,s,[S])
n52=  %box = $replace(%box,t,[T])
n53=  %box = $replace(%box,u,[U])
n54=  %box = $replace(%box,v,[V])
n55=  %box = $replace(%box,w,[W])
n56=  %box = $replace(%box,x,[X])
n57=  %box = $replace(%box,y,[Y])
n58=  %box = $replace(%box,z,[Z])
n59=  say %box
n60=  unset %box
n61=}
n62=
n63=color {
n64=  set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
n65=  :loop
n66=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 12&10&2&12&10&2 ) $+ $mid(%p,1,%i) 
n67=  inc %p
n68=  if ( $mid(%p,1,%i) !=  ) { inc %c }
n69=  if ( %c > 6 ) { set %c 1 }
n70=  if ( $mid(%p,1,%i) != $null ) { goto loop }            
n71=  me %o
n72=  unset %o %i %p %c
n73=}