İlk harfleri büyük şekilli harfler ince yazı stili

#yazıstil on
on *:input:*:{
  if ($left($1,1) != /) {
    var %Jnk
    var %e = 0
    while %e != $numtok($1-,32) {
      inc %e 1
      var %Jnk = %Jnk $upper($left($token($1-,%e,32),1)) $+ $lower($right($gettok($1-,%e,32),-1))
    }
    msg $active $+($chr(2),$replace(%Jnk,s,S,l,L,b,ß,B,ß,g,q,?,¿,g,q,ş,$,Ş,$))
    halt
  }
}
#yazıstil end
menu query,channel {
  .Yazı Stil
  ..Aç:.enable #yazıstil
  ..Kapa:.disable #yazıstil
}