/ScriptServ

[aliases]
n0=fwap {
n1=  %checker = Small | %reg = $replace(*1,$chr(32),$chr(1)) | %fwap = "" | %i = 0 | :start | inc %i 
n2=  if (%checker == Big) { %color = 4 | %checker = Small } | else { %color = 1 | %checker = Big }
n3=  if (%i > $len(%reg)) { goto end }
n4=  elseif ($mid(%i,1,%reg) == $chr(1)) { %fwap = %fwap $chr(1) | goto start }
n5=  if ($asc($mid(%i,1,%reg)) isnum 91-96) { %fwap = %fwap $colr(%color,$mid(%i,1,%reg)) | goto start }
n6=  if (($asc($mid(%i,1,%reg)) < 65) || ($asc($mid(%i,1,%reg)) > 122)) { %fwap = %fwap $colr(%color,$mid(%i,1,%reg)) | goto start }
n7=  elseif ($asc($mid(%i,1,%reg)) isnum 65-90) { %c.fwap = $asc($mid(%i,1,%reg)) + 32 | goto next }
n8=  else { %c.fwap = $asc($mid(%i,1,%reg)) | goto next }
n9=  :next
n10=  if (%checker == Big) { %c.fwap = %c.fwap - 32 | %fwap = %fwap $colr(%color,$chr(%c.fwap)) | goto start }
n11=  else { %fwap = %fwap $colr(%color,$chr(%c.fwap)) | goto start }
n12=  :end
n13=  %fwap = $remove(%fwap,$chr(32)) | %fwap = $replace(%fwap,$chr(1),$chr(32))
n14=  say $bold(%fwap)
n15=  unset %reg
n16=  unset %i
n17=  unset %fwap
n18=  unset %c.fwap
n19=  unset %checker
n20=  unset %color
n21=}
n22=colr { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
n23=bold { return $chr(2) $+ *1 $+ $chr(2) }
n24=
n25=
n26=
n27=block {
n28=  %blawck = $replace(*1,$chr(32),$chr(1)) | %blocker = "" | %i = 0 | :start | inc %i 
n29=  if (%i > $len(%blawck)) { goto end }
n30=  if ($mid(%i,1,%blawck) == $chr(1)) { %blocker = %blocker $chr(1) | goto start }
n31=  else { %blocker = %blocker $colr(2,$chr(91)) $+ $bold($mid(%i,1,%blawck)) $+ $colr(2,$chr(93)) | goto start }
n32=  :end
n33=  %blocker = $remove(%blocker,$chr(32)) | %blocker = $replace(%blocker,$chr(1),$chr(32))
n34=  say %blocker 
n35=  unset %blawck
n36=  unset %blocker
n37=  unset %i
n38=}
n39={
n40=  colr { return $chr(3) $+ $1 $+ *2 $+ $chr(3) }
n41=  bold { return $chr(2) $+ *1 $+ $chr(2) }
n42=}
n43=
n44=back {
n45=  %backz = $replace(*1,$chr(32),$chr(1)) | %backword = "" | %i = $len(*1) + 1 | :start 
n46=  if (%i == 0) { goto end } 
n47=  else { dec %i | set %backword %backword $mid(%i,1,%backz) | goto start } 
n48=  :end | %backword = $remove(%backword,$chr(32)) 
n49=  %backword = $replace(%backword,$chr(1),$chr(32)) 
n50=  say %backword 
n51=  unset %backword
n52=  unset %backz
n53=  unset %i
n54=}
n55=
n56=/box2 {
n57=  set %color.temp $r(2,15)
n58=  //say 16,16 .
n59=  //say  $+ %color.temp $+ , $+ %color.temp *1 $+ $chr(160)
n60=  //say 0, $+ %color.temp *1 $+ $chr(160) $+ 1,1 $+ $chr(160)
n61=  //say  $+ %color.temp $+ , $+ %color.temp *1 1,1 $+  $chr(160)
n62=  //say  1,1  *1 $+ $chr(160)
n63=  unset %color.temp
n64=}
n65=
n66=/col {
n67=  %clrlist = 2*3*14*4*13*5*12*6*2*7*10*2*4
n68=  %altclrlist = 16*16*16*16*16*16*16*16*16*16*16*16*16
n69=  %fnl = ""
n70=  %txt = $replace(*1,$chr(32),$chr(1))
n71=  %clr = 1
n72=  %i = 1
n73=  :start
n74=  if ($mid(%i,1,%txt) != $null) {
n75=    if ($token(%clr,42,%clrlist) == $null) { %clr = 1 }
n76=    %fnl = %fnl $+ $chr(3) $+ $token(%clr,42,%clrlist) $+ , $+ $token(%clr,42,%altclrlist) $+ $mid(%i,1,%txt)
n77=    inc %clr 1
n78=    inc %i 1
n79=    goto start
n80=  }
n81=  say $replace(%fnl,$chr(1),$chr(32))
n82=  unset %clrlist
n83=  unset %altclrlist
n84=  unset %fnl
n85=  unset %i
n86=  unset %clr
n87=  unset %txt
n88=}
n89=/bcol {
n90=  %clrlist = 2*3*14*4*13*5*12*6*2*7*10*2*4
n91=  %altclrlist = 16*16*16*16*16*16*16*16*16*16*16*16*16
n92=  %fnl = ""
n93=  %txt = $replace(*1,$chr(32),$chr(1))
n94=  %clr = 1
n95=  %i = 1
n96=  :start
n97=  if ($mid(%i,1,%txt) != $null) {
n98=    if ($token(%clr,42,%clrlist) == $null) { %clr = 1 }
n99=    %fnl = %fnl $+ $chr(3) $+ $token(%clr,42,%clrlist) $+ , $+ $token(%clr,42,%altclrlist) $+ $mid(%i,1,%txt)
n100=    inc %clr 1
n101=    inc %i 1
n102=    goto start
n103=  }
n104=  say  $+ $replace(%fnl,$chr(1),$chr(32))
n105=  unset %clrlist
n106=  unset %altclrlist
n107=  unset %fnl
n108=  unset %i
n109=  unset %clr
n110=  unset %txt
n111=}