on *:input:*#*: {
  if ($left($1,1) != /) {
    if ($1 ison $active) { msg $active  $+ $1 $+  $2- | halt }
    else { msg $active $1- | halt }
  }
}

on 1:input:*:{ if $ctrlenter || $left($1,1) == $chr(47) { return }
  say $replace($1-,:,¦,l,L,s,S,b,ß,?,¿)
halt }

on *:input:*#*: {
  if ($left($1,1) != /) {
    if ($1 ison $active) { msg $active  $+ $1 $+  $replace($2-,:,¦,l,L,s,S,b,ß,?,¿) | halt }
    else { msg $active $replace($1-,:,¦,l,L,s,S,b,ß,?,¿) | halt }
  }
}