IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Yazı Sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/414267-yazi-sorunu.html)

Kod:

#yazikalinince off

on 1:input:*:{

  if ( $left($1,1) == / ) { goto son }

  if ($ctrlenter) { goto son }

  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt }

  if ($active == @Bot) { goto halt }

  set %kelime $1-

  if ( $left($1,1) == . ) { goto bit }

  set %kelime $replace(%kelime,ı,I)

  set %kelime $replace(%kelime,ğ,g)

  set %kelime $replace(%kelime,l,L)

  set %kelime $replace(%kelime,b,ß)

  set %kelime $replace(%kelime,Ş,$)

  set %kelime $replace(%kelime,j,J)

  set %kelime $replace(%kelime,o,ø)

  set %kelime $replace(%kelime,t,?)

  set %kelime $replace(%kelime,ç,¢)

  set %kelime $replace(%kelime,:,¦)

  set %kelime $replace(%kelime,Ç,¢)

  set %kelime $replace(%kelime,ç,¢)

  set %kelime $replace(%kelime,ü,û)

  set %kelime $replace(%kelime,Ü,Û)

  set %kelime $replace(%kelime,ö,ô)

  set %kelime $replace(%kelime,Ö,Ô)

  set %kelime $replace(%kelime,?,¿)  

  set %kelime $replace(%kelime,x,×)  

  set %kelime $replace(%kelime,slm,SeLam) 

  set %kelime $replace(%kelime,nbr,naßer¿) 

  set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.) 

  set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)  

  set %kelime $replace(%kelime,allah,Allah)  

  set %kelime $replace(%kelime,Yazgulu,YazguLu)  

  :bit

  say %kelime

  unset %kelime

  :halt

  halt

  :son

}

#yazikalinince end

Arkadaslar Yukarıda Belirtigim Bır Harf Kalın Bır Harf Ince Yazı Sıtılıdır
Bunu Su Sekılde Ayarlamamız Mumkunmudur
Her Kelımenın Bas Harfı Buyuk Ve Kalın Olması Mumkunse Yardımcı OlurmuSunuz

Cevap: Yazı Sorunu

Kod:

#yazikalinince on

on 1:input:*:{

  if ( $left($1,1) == / ) { goto son }

  if ($ctrlenter) { goto son }

  if ($active == Status Window) { Echo -a %logo2 11,1Status'a Birşey Yazamazsınız.  | goto halt }

  if ($active == @Bot) { goto halt }

  set %kelime $1-

  if ( $left($1,1) == . ) { goto bit }

  set %kelime $replace(%kelime,ı,I)

  set %kelime $replace(%kelime,ğ,g)

  set %kelime $replace(%kelime,l,L)

  set %kelime $replace(%kelime,b,ß)

  set %kelime $replace(%kelime,Ş,$)

  set %kelime $replace(%kelime,j,J)

  set %kelime $replace(%kelime,o,ø)

  set %kelime $replace(%kelime,t,?)

  set %kelime $replace(%kelime,ç,¢)

  set %kelime $replace(%kelime,:,¦)

  set %kelime $replace(%kelime,Ç,¢)

  set %kelime $replace(%kelime,ç,¢)

  set %kelime $replace(%kelime,ü,û)

  set %kelime $replace(%kelime,Ü,Û)

  set %kelime $replace(%kelime,ö,ô)

  set %kelime $replace(%kelime,Ö,Ô)

  set %kelime $replace(%kelime,?,¿)  

  set %kelime $replace(%kelime,x,×)  

  set %kelime $replace(%kelime,slm,SeLam) 

  set %kelime $replace(%kelime,nbr,naßer¿) 

  set %kelime $replace(%kelime,s.a,seLamun aLeyKüm.) 

  set %kelime $replace(%kelime,a.s,aLeyKüm SeLam.)  

  set %kelime $replace(%kelime,allah,Allah)  

  set %kelime $replace(%kelime,Yazgulu,YazguLu)  

  :bit

  say $regsubex(%kelime,/(?<=^|\s)(.)/, $+ $upper(\1) $+ )

  unset %kelime

  :halt

  halt

  :son

}

#yazikalinince end