on *:input:*: {
  if ($left($1,1) != $readini($mircini,text,commandchar)) {
    haltdef
    var %s = $+($chr(2),$chr(3),$r(1,15),\1,$chr(15)), $&
      %t = $regsubex($1-,$regsubex($1-,/([[:punct:]])/g,$+($chr(3),$r(1,15),\1,$chr(15))),/(?<=^|\s)(.)/g,$upper(\1))
    %t = $regsubex(%t,/(\w+|\x3\d+\x23.\w+)/g,$iif($strip(\1) = $active || \1 ison #,$iif($v1 = $active,< $+($chr(2),$chr(3),$r(1,15),$strip(\1),$chr(15)) >,( [ %s ] )),\1))
    say $replacecs(%t,ı,I,b,ß,l,L) 
  }
}