$idrt(%ccikoCalligraphy)

$idrt($strip(%ccikoCalligraphy))

sifre { 
  var %bd = $1-
  var %bd = $replace(%bd,a,±)
  var %bd = $replace(%bd,b,_)
  var %bd = $replace(%bd,c,Ï)
  var %bd = $replace(%bd,d,õ)
  var %bd = $replace(%bd,e,ô)
  var %bd = $replace(%bd,f,ó)
  var %bd = $replace(%bd,g,ñ)
  var %bd = $replace(%bd,h,²)
  var %bd = $replace(%bd,i,¯)
  var %bd = $replace(%bd,j,Í)
  var %bd = $replace(%bd,k,ì)
  var %bd = $replace(%bd,l,ë)
  var %bd = $replace(%bd,m,ê)
  var %bd = $replace(%bd,n,É)
  var %bd = $replace(%bd,o,Ç)
  var %bd = $replace(%bd,p,Æ)
  var %bd = $replace(%bd,q,¦)
  var %bd = $replace(%bd,r,§)
  var %bd = $replace(%bd,s,à)
  var %bd = $replace(%bd,t,À)
  var %bd = $replace(%bd,u,¶)
  var %bd = $replace(%bd,v,¢)
  var %bd = $replace(%bd,w,£)
  var %bd = $replace(%bd,x,Ş)
  var %bd = $replace(%bd,y,ß)
  var %bd = $replace(%bd,z,¿)
  return %bd
}
/ctkod {
  var %c = $1-
  var %c = $replace(%c,a,4a)
  var %c = $replace(%c,b,3B)
  var %c = $replace(%c,c,6C)
  var %c = $replace(%c,d,7D)
  var %c = $replace(%c,e,4e)
  var %c = $replace(%c,f,12F)
  var %c = $replace(%c,g,10G)
  var %c = $replace(%c,h,6H)
  var %c = $replace(%c,i,4i)
  var %c = $replace(%c,j,J)
  var %c = $replace(%c,k,3K)
  var %c = $replace(%c,l,L)
  var %c = $replace(%c,m,4M)
  var %c = $replace(%c,n,6N)
  var %c = $replace(%c,o,4o)
  var %c = $replace(%c,p,12P)
  var %c = $replace(%c,q,Q)
  var %c = $replace(%c,r,10R)
  var %c = $replace(%c,s,7S)
  var %c = $replace(%c,t,T)
  var %c = $replace(%c,u,4u)
  var %c = $replace(%c,v,V)
  var %c = $replace(%c,w,12W)
  var %c = $replace(%c,x,7X)
  var %c = $replace(%c,y,Y)
  var %c = $replace(%c,z,6z)
  var %c = $replace(%c,?,12¿15?)
  return %c
}
colors say 1 12 23 34 45 56 67 78 89 910 1011 1112 1210 1314 1415 15
colore echo -a  1 12 23 34 45 56 67 78 89 910 1011 1112 1210 1314 1415 15
idrt {
  unset %backtex
  var %tex = $1- ,%spac = $chr(32) ,%i = $len(%tex) + 1
  :next
  dec %i 1
  if %i == 0 {   
    return %backtex
    unset %backtex %thisle %thischa %i %spac
    .halt
  }  
  var %thischa = $mid(%tex,%i,1)
  if %thischa == %spac {
    var %thisle = *
    if %backtex == $null { var %backtex = %thisle | goto next }
    else { %backtex = %backtex $+ %thisle | goto next }
  }
  if %backtex == $null { var %backtex = %thischa | goto next }
  else { var %backtex = %backtex $+ %thischa | goto next }
  unset %backtex

}
/colorline /echo $active |1 0 16,1 1 1,2 2 1,3 3 1,4 4 1,5 5 1,6 6 1,7 7 1,8 8 1,9 9 1,10 10 1,11 11 1,12 12 1,13 13 1,14 14 1,15 15 
/coke { var %num = 1 | unset %msg  | var %msg =  | %color = p
  :start
  if %color == p { var %num2 0, %num3 4 ,%color y | goto add }
  if %color == y  { var %num2 4, %num3 0, %color p | goto add }
  :add
  if $mid($1-,%num,1) != $null {
    var %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $mid($1-,%num, 1) $+  
    inc %num 
  goto start  }
  return %msg 
} 
sayc {
  if (%input.color == $null) set %input.color 6
  echo  $+ %input.color $+  $+ %input.bold $+ $1-
}
special {
  var %asd = $1-
  var %asd = $replace(%asd,o,ø)
  var %asd = $replace(%asd,O,Ø)
  var %asd = $replace(%asd,b,ß)
  var %asd = $replace(%asd,ş,§)
  var %asd = $replace(%asd,Ş,Ş)
  var %asd = $replace(%asd,x,`)
  var %asd = $replace(%asd,!,¡)
  var %asd = $replace(%asd,?,¿)
  var %asd = $replace(%asd,l,L)
  var %asd = $replace(%asd,e,é)
  var %asd = $replace(%asd,:,¦)
  return %asd
}