on *:INPUT:*: {
  if ($ctrlenter) return halt
  if (over iswm $1)  && ($2 != $null) {
    haltdef
    set %replaceitalias $replace($2-,e,3,a,4,o,0,c,$chr(169),r,$chr(174),$chr(63),$chr(191),p,$chr(254),s,$chr(167),i,$chr(238))
    msg $active  $($+(%replaceitalias),™,$chr(32)))
    unset %replaceitalias
  }
}