alias to16 {
  var %tlen $len($1-)
  var %ti 1
  var %tst
  if (%tlen > 450) { echo -a Per ilga eilute!!! | return $null }
  while %ti <= %tlen {
    %tst = %tst $+ $base($asc($mid($1-,%ti,1)),10,16)
    inc %ti
  }
  return %tst
}

alias to10 {
  var %ti 1
  var %tst
  while %ti <= $len($1-) {
    if ($base($mid($1-,%ti,2),16,10) == 32) {
      %tst = %tst $+ $chr(160)
    }
    else {
      %tst = %tst $+ $chr($base($mid($1-,%ti,2),16,10))
    }
    inc %ti 2
  }
  return $replace(%tst,$chr(160),$chr(32))
}

on *:input:*: {
  if (%to16 == on) && ($left($1-,1) != /) { msg $active $to16($1-) | halt }
}

on *:text:*:*: if ($readini(to10.ini,Nicks,$nick)) echo $iif($chan,$chan,$nick) $nick $+ : $to10($1-)

alias yyy { 
  if ($1 == off) set %to16 off
  elseif ($1 == on) set %to16 on
}

alias xxx {
  if (($1 == add) && $2) { writeini to10.ini Nicks $2 1 | echo -a $2 idetas i atkodavimo sarasa }
  elseif (($1 == del) && $2) { writeini to10.ini Nicks $2 0 | echo -a $2 istrintas is atkodavimo saraso }