#yazıstil on
on *:input:*:if (/* !iswm $1) { msg $active $regsubex($1-,/(?<=^|\s)(.)/, $+ $upper(\1) $+ ) | halt }
#yazıstil end
menu  query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}