#yazıstil on
on *:input:*:{
  if $regex($1-,/(^[^/])/) {
    say $replace($regsubex($1-,/(^.|\s.)/gi,$upper(\t)),l,L,$+(:,$chr(41)),$+($chr(3),4,:,$chr(3),1,$chr(41),$chr(15)))
    halt
  }
}
#yazıstil end
menu query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapat:.disable #yazıstil
}