Morse

function morza(rus, chars)
  local tab
  if rus then
    tab = {
      ['.-'] = 'а',
      ['-...'] = 'б',
      ['.--'] = 'в',
      ['--.'] = 'г',
      ['-..'] = 'д',
      ['.'] = 'е',
      ['...-'] = 'ж',
      ['--..'] = 'з',
      ['..'] = 'и',
      ['.---'] = 'й',
      ['-.-'] = 'к',
      ['.-..'] = 'л',
      ['--'] = 'м',
      ['-.'] = 'н',
      ['---'] = 'о',
      ['.--.'] = 'п',
      ['.-.'] = 'р',
      ['...'] = 'с',
      ['-'] = 'т',
      ['..-'] = 'у',
      ['..-.'] = 'ф',
      ['....'] = 'х',
      ['-.-.'] = 'ц',
      ['---.'] = 'ч',
      ['----'] = 'ш',
      ['--.-'] = 'щ',
      ['--.--'] = 'ъ',
      ['-.--'] = 'ы',
      ['-..-'] = 'ь',
      ['..-..'] = 'э',
      ['..--'] = 'ю',
      ['.-.-'] = 'я'
    }
  else
    tab = {
      ['.-'] = 'a',
      ['-...'] = 'b',
      ['.--'] = 'w',
      ['--.'] = 'g',
      ['-..'] = 'd',
      ['.'] = 'e',
      ['...-'] = 'v',
      ['--..'] = 'z',
      ['..'] = 'i',
      ['.---'] = 'j',
      ['-.-'] = 'k',
      ['.-..'] = 'l',
      ['--'] = 'm',
      ['-.'] = 'n',
      ['---'] = 'o',
      ['.--.'] = 'p',
      ['.-.'] = 'r',
      ['...'] = 's',
      ['-'] = 't',
      ['..-'] = 'u',
      ['..-.'] = 'f',
      ['....'] = 'h',
      ['-.-.'] = 'c',
      ['---.'] = 'ö',
      ['----'] = 'ch',
      ['--.-'] = 'q',
      ['--.--'] = 'ñ',
      ['-.--'] = 'y',
      ['-..-'] = 'x',
      ['..-..'] = 'é',
      ['..--'] = 'ü',
      ['.-.-'] = 'ä'
    }
  end
  tab['.----'] = '1'
  tab['..---'] = '2'
  tab['...--'] = '3'
  tab['....-'] = '4'
  tab['.....'] = '5'
  tab['-....'] = '6'
  tab['--...'] = '7'
  tab['---..'] = '8'
  tab['----.'] = '9'
  tab['-----'] = '0'
  tab['......'] = '.'
  tab['.-.-.-'] = ','
  tab['...---'] = ':'
  tab['-.-.-.'] = ';'
  tab['-.--.-'] = '()'
  tab['.----.'] = '\''
  tab['.-..-.'] = '"'
  tab['-....-'] = '−'
  tab['-..-.'] = '/'
  tab['..--..'] = '?'
  tab['--..--'] = '!'
  tab['.--.-.'] = '@'
  return tab[chars] or ''
end

if not _ARGS then return '!!morse [rus/eng]; [morse code]' end

local b, c = string.match(AnsiToUtf8(_ARGS), '(.-); (.*)')
if not b then return 'Error' end

local n = ''
for w in string.gmatch(c, '%S+%s?%s?') do
  local w, d = string.gsub(w, '%s', '')
  n = n .. morza(b == 'rus', w)
  if d == 2 then n = n .. ' ' end
end

return n