Code:
alias Themed { 
  var %thm 
  %thm = $regsubex($strip($1-),/([0-9][0-9 ]*)/g,$+($tc(3),\1))
  %thm = $regsubex(%thm,/([A-ZÀÁÂÃÄÅÆÇÈÉÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝ][A-ZÀÁÂÃÄÅÆÇÈÉÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÜÝ ]*)/g,$+($tc(1),,\1,))
  %thm = $regsubex(%thm,/([a-zàáâãäåæçèéêëìíîïðñòóôõöøùúûüýÿ][a-zàáâãäåæçèéêëìíîïðñòóôõöøùúûüýÿ ]*)/g,$+($tc(2),\1))
  return %thm 
}


I removed that middle line of symbols for simplicity in writing, you can add it back in. There might be a way to write those regexes more concisely with some extra trickery.

- argv[0] on EFnet #mIRC
- "Life is a pointer to an integer without a cast"