alias chars {
  var %x = 1
  while %x <= 255 {
    write chars.txt $chr() %x -> $chr(%x)
    inc %x
  }
}

on *:TEXT:*:#: {
  if $1 == ^ {
    %howtops = $len($2)
    %klkl = 1
    unset %charchar
    while %howtops >= %klkl {
      if %klkl < %howtops { %charchar = %charchar $chr( $+ $readini(zchars.ini, CHARS, $mid($2,%klkl,1)) $+ ) $+ | inc %klkl 1 }
      if %klkl = %howtops { %charchar = %charchar $chr( $+ $readini(zchars.ini, CHARS, $mid($2,%klkl,1)) $+ ) | inc %klkl 1 }
    }
    msg $chan %charchar = $2
  }
  if $1 == convert {
    msg $chan $chr( $+ $2 $+ ) = $chr( $+ $2 $+ )
  }
}