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

DaDaS · 24 Eylül 2011, 22:56

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#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

Set · 25 Eylül 2011, 23:25

Kod: Kodu kopyalamak için üzerine çift tıklayın!

#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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Yazı Tipi Sorunu	Poison341	mIRC Scripting Sorunları	0	14 Temmuz 2017 22:07
wepte yazı sorunu	Dahimurat	mIRC Scripting Sorunları	1	29 Ağustos 2014 21:48
Yazı Remotesi sorunu	heySs	mIRC Scripting Sorunları	3	19 Ocak 2011 01:24
ince yazı sorunu	BraveStorm	mIRC Scripting Sorunları	4	21 Temmuz 2008 22:15
Yazı StiLi Sorunu ?	AnarchYBrotherS	mIRC Scripting Sorunları	7	04 Şubat 2008 17:01

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.