/ScriptServ

[aliases]
n0=/c3 {
n1=  %talk = $1-
n2=  %talk = $replace(%talk, 1, ¹)
n3=  %talk = $replace(%talk, 2, ²)
n4=  %talk = $replace(%talk, 3, ³)
n5=  %talk = $replace(%talk, 1/4, ¼)
n6=  %talk = $replace(%talk, 1/2, ½)
n7=  %talk = $replace(%talk, 3/4, ¾)
n8=  %talk = $replace(%talk, AE, Æ)
n9=  %talk = $replace(%talk, A, Å)
n10=  %talk = $replace(%talk, B, ß)
n11=  %talk = $replace(%talk, C, Ç)
n12=  %talk = $replace(%talk, D, Ð)
n13=  %talk = $replace(%talk, E, Ê)
n14=  %talk = $replace(%talk, I, Î)
n15=  %talk = $replace(%talk, L, £)
n16=  %talk = $replace(%talk, N, Ñ)
n17=  %talk = $replace(%talk, O, Ô)
n18=  %talk = $replace(%talk, R, ®)
n19=  %talk = $replace(%talk, S, §)
n20=  %talk = $replace(%talk, U, Û)
n21=  %talk = $replace(%talk, Y, ¥)
n22=  { 
n23=    %talk1 = %talk
n24=    unset %talk
n25=    %talk = 
n26=    %number = 1 
n27=    %color = 2
n28=    :continue
n29=    if $mid(%number,1, %talk1) != $null {
n30=      %talk = %talk $+   $+ %color $+ $mid(%number, 1,%talk1) $+  
n31=      inc %number
n32=      If (%color == 15) %color = 1
n33=      inc %color
n34=      goto continue
n35=    }
n36=    say %talk
n37=    unset %talk*
n38=    unset %color
n39=    unset %number
n40=  }
n41=} 
n42=/c4 {
n43=  set %rk *1
n44=  %rk = $replace(%rk,a,4a)
n45=  %rk = $replace(%rk,b,4b)
n46=  %rk = $replace(%rk,c,4c)
n47=  %rk = $replace(%rk,d,4d)
n48=  %rk = $replace(%rk,e,4e)
n49=  %rk = $replace(%rk,f,4f)
n50=  %rk = $replace(%rk,g,4g)
n51=  %rk = $replace(%rk,h,4h)
n52=  %rk = $replace(%rk,i,4i)
n53=  %rk = $replace(%rk,j,4j)
n54=  %rk = $replace(%rk,k,4k)
n55=  %rk = $replace(%rk,l,4l)
n56=  %rk = $replace(%rk,m,4m)
n57=  %rk = $replace(%rk,n,4n)
n58=  %rk = $replace(%rk,o,4o)
n59=  %rk = $replace(%rk,p,4p)
n60=  %rk = $replace(%rk,q,4q)
n61=  %rk = $replace(%rk,r,4r)
n62=  %rk = $replace(%rk,s,4s)
n63=  %rk = $replace(%rk,t,4t)
n64=  %rk = $replace(%rk,u,4u)
n65=  %rk = $replace(%rk,v,4v)
n66=  %rk = $replace(%rk,w,4w)
n67=  %rk = $replace(%rk,x,4x)
n68=  %rk = $replace(%rk,y,4y)
n69=  %rk = $replace(%rk,z,4z)
n70=  say %rk
n71=  unset %rk
n72=}
n73=
n74=/c6 { %num = 1 | unset %msg  | %msg =  | %color = p
n75=  :start
n76=  if %color == p { %num2 = 8 | %num3 = 6 | %color = y | goto add }
n77=  if %color == y  { %num2 = 11 | %num3 = 12 | %color = p | goto add }
n78=  :add
n79=  if $mid(%num,1, *1) != $null {
n80=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
n81=    inc %num 
n82=  goto start  }
n83=  say %msg
n84=  unset %msg
n85=  unset %num*
n86=  unset %color
n87=  unset %ctext*
n88=}
n89=
n90=/c15 { %num = 1 | unset %msg  | %msg =  | %color = p
n91=  :start
n92=  if %color == p { %num2 = 8 | %num3 = 13 | %color = y | goto add }
n93=  if %color == y  { %num2 = 13 | %num3 = 8 | %color = p | goto add }
n94=  :add
n95=  if $mid(%num,1, *1) != $null {
n96=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+   
n97=    inc %num 
n98=  goto start  }
n99=  say %msg
n100=  unset %num*
n101=  unset %msg
n102=  unset %color 
n103=}
n104=
n105=/c17 {
n106=  %c = *1
n107=  set %c $replace(%c,a,4a)
n108=  set %c $replace(%c,b,3B)
n109=  set %c $replace(%c,c,6C) 
n110=  set %c $replace(%c,d,7D) 
n111=  set %c $replace(%c,e,4e) 
n112=  set %c $replace(%c,f,12F) 
n113=  set %c $replace(%c,g,13G) 
n114=  set %c $replace(%c,h,6H) 
n115=  set %c $replace(%c,i,4i) 
n116=  set %c $replace(%c,j,J) 
n117=  set %c $replace(%c,k,3K) 
n118=  set %c $replace(%c,l,L) 
n119=  set %c $replace(%c,m,4M) 
n120=  set %c $replace(%c,n,6N)
n121=  set %c $replace(%c,o,4o) 
n122=  set %c $replace(%c,p,12P) 
n123=  set %c $replace(%c,q,Q) 
n124=  set %c $replace(%c,r,13R) 
n125=  set %c $replace(%c,s,7S) 
n126=  set %c $replace(%c,t,T) 
n127=  set %c $replace(%c,u,4u) 
n128=  set %c $replace(%c,v,V) 
n129=  set %c $replace(%c,w,12W) 
n130=  set %c $replace(%c,x,7X) 
n131=  set %c $replace(%c,y,Y) 
n132=  set %c $replace(%c,z,6z) 
n133=  set %c $replace(%c,?,12¿15?) 
n134=  say %c
n135=  unset %c
n136=}
n137=
n138=/c22 {
n139=  set %i $replace(*1,$chr(32), ) | set %i $left(200,%i) | set %o $chr(3) $+ 4,1 | set %p 1 | set %c 1
n140=  :loop
n141=  set %o %o $+ $chr(3) $+ $token( %c , 38 , 4&7&8&9&11&13 ) $+ $mid(%p,1,%i) 
n142=  inc %p
n143=  if ( $mid(%p,1,%i) !=  ) { inc %c }
n144=  if ( %c > 6 ) { set %c 1 }
n145=  if ( $mid(%p,1,%i) != $null ) { goto loop }
n146=  say  $+ %o
n147=  unset %o %i %p %c
n148=}
n149=
n150=/c26 { %num = 1 | unset %msg  | %msg =  | %color = p
n151=  :start
n152=  if %color == p { %num2 = 0 | %num3 = 4 | %color = y | goto add }
n153=  if %color == y  { %num2 = 0 | %num3 = 2 | %color = p | goto add }
n154=  :add
n155=  if $mid(%num,1, *1) != $null {
n156=    %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid(%num, 1,*1) $+     
n157=    inc %num 
n158=  goto start  }
n159=  say %msg
n160=  unset %num*
n161=  unset %msg
n162=  unset %color 
n163=}
n164=
n165=/c39 {
n166=  %c = *1
n167=  set %c $replace(%c,a,4ª)
n168=  set %c $replace(%c,b,3B)
n169=  set %c $replace(%c,c,6C)
n170=  set %c $replace(%c,d,7D)
n171=  set %c $replace(%c,e,4e)
n172=  set %c $replace(%c,f,12F)
n173=  set %c $replace(%c,g,13G)
n174=  set %c $replace(%c,h,6H)
n175=  set %c $replace(%c,i,4i)
n176=  set %c $replace(%c,j,J)
n177=  set %c $replace(%c,k,3K)
n178=  set %c $replace(%c,l,L)
n179=  set %c $replace(%c,m,4M)
n180=  set %c $replace(%c,n,6N)
n181=  set %c $replace(%c,o,4º)
n182=  set %c $replace(%c,p,12P)
n183=  set %c $replace(%c,q,Q)
n184=  set %c $replace(%c,r,13R)
n185=  set %c $replace(%c,s,7S)
n186=  set %c $replace(%c,t,T)
n187=  set %c $replace(%c,u,4u)
n188=  set %c $replace(%c,v,V)
n189=  set %c $replace(%c,w,12W)
n190=  set %c $replace(%c,x,7X)
n191=  set %c $replace(%c,y,Y)
n192=  set %c $replace(%c,z,6z)
n193=  set %c $replace(%c,?,12¿15?4¿13?)
n194=  set %c $replace(%c,!,4!6¡12!9¡5!15¡)
n195=  say %c
n196=  unset %c
n197=}
n198=
n199=/c42 {
n200=  %colortext = *1
n201=  %colortext = $lower(%colortext)
n202=  %colortext = $replace(%colortext,a,12â)
n203=  %colortext = $replace(%colortext,b,6ß)
n204=  %colortext = $replace(%colortext,c,4ç)
n205=  %colortext = $replace(%colortext,d,13Ð)
n206=  %colortext = $replace(%colortext,e,2é)
n207=  %colortext = $replace(%colortext,f,1f)
n208=  %colortext = $replace(%colortext,g,5G)           
n209=  %colortext = $replace(%colortext,h,15h)
n210=  %colortext = $replace(%colortext,i,10ì)
n211=  %colortext = $replace(%colortext,j,1j)
n212=  %colortext = $replace(%colortext,k,12K)
n213=  %colortext = $replace(%colortext,l,13£)
n214=  %colortext = $replace(%colortext,m,14m)
n215=  %colortext = $replace(%colortext,n,5Ñ)
n216=  %colortext = $replace(%colortext,o,12ø)
n217=  %colortext = $replace(%colortext,p,4p)
n218=  %colortext = $replace(%colortext,q,3Q)
n219=  %colortext = $replace(%colortext,r,4®)
n220=  %colortext = $replace(%colortext,s,5§)
n221=  %colortext = $replace(%colortext,t,4t)
n222=  %colortext = $replace(%colortext,u,7ü)
n223=  %colortext = $replace(%colortext,v,15V)
n224=  %colortext = $replace(%colortext,w,3W)
n225=  %colortext = $replace(%colortext,x,10x)
n226=  %colortext = $replace(%colortext,y,14¥)
n227=  %colortext = $replace(%colortext,z,12Z)
n228=  %colortext = $replace(%colortext,!,12!1¡¡12!)
n229=  %colortext = $replace(%colortext,^,4^)
n230=  %colortext = $replace(%colortext,?,4?15¿9?6¿3?)
n231=  %colortext = $replace(%colortext,@,3@)
n232=  %colortext = $replace(%colortext,*,12*)
n233=  %colortext = $replace(%colortext,&,12&)
n234=  %colortext = $replace(%colortext,<,12<)
n235=  %colortext = $replace(%colortext,>,12>)
n236=  %colortext = $replace(%colortext,~,4~)
n237=  %colortext = $replace(%colortext,-,12-)
n238=  %colortext = $replace(%colortext,`,4`)
n239=  %colortext = $replace(%colortext,',13')
n240=  %colortext = $replace(%colortext,_,9_)
n241=  %colortext = $replace(%colortext,;,11;)
n242=  say %colortext
n243=  unset %colortext
n244=}
n245=
n246=/c43 {
n247=  set %elite *1
n248=  %elite = $replace(%elite,a,å)
n249=  %elite = $replace(%elite,b,ß)
n250=  %elite = $replace(%elite,c,©)
n251=  %elite = $replace(%elite,d,Ð)
n252=  %elite = $replace(%elite,e,ê)         
n253=  %elite = $replace(%elite,f,f)
n254=  %elite = $replace(%elite,g,g)
n255=  %elite = $replace(%elite,h,h)
n256=  %elite = $replace(%elite,i,ï)
n257=  %elite = $replace(%elite,j,j)
n258=  %elite = $replace(%elite,k,|<)
n259=  %elite = $replace(%elite,l,£)
n260=  %elite = $replace(%elite,m,M)
n261=  %elite = $replace(%elite,n,ñ)
n262=  %elite = $replace(%elite,o,ð)
n263=  %elite = $replace(%elite,p,þ)
n264=  %elite = $replace(%elite,q,q)
n265=  %elite = $replace(%elite,r,®)
n266=  %elite = $replace(%elite,s,§)
n267=  %elite = $replace(%elite,t,t)
n268=  %elite = $replace(%elite,u,µ)
n269=  %elite = $replace(%elite,v,v)
n270=  %elite = $replace(%elite,w,W)
n271=  %elite = $replace(%elite,x,×)
n272=  %elite = $replace(%elite,y,¥)
n273=  %elite = $replace(%elite,z,z)
n274=  %elite = $replace(%elite,?,¿)
n275=  %elite = $replace(%elite,!,¡)
n276=  say %elite
n277=  unset %elite
n278=}