Çevrimdışı

eStebaN;
on *:input:*: { if $left($1,1) != / && !$ctrlenter { say $replace($1-,b,ß) | haltdef } }
İşini görür.

ScladeR;
on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= { var %: = $addtok(%:,$+($chr(2),$chr(3),4,$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32) | inc %/ | haltdef } | say %: } }

Kod'da kırmızı olarak belirttiğim yer, her baş harfin renk kod'u, 4 = kırmızı.
İsteğine göre değiştirebilirsin.