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

 Kayıt ol Sosyal Gruplar Forumları Okundu Kabul Et
Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Kasım 2007, 17:07   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Bütün Yazı Stilleri.



Forumda Birçok Yazı Stili mevcut.TEk tek ARamaktansa Hepsını Bir Konuda Toplamak Mantıklı olur dıye dusundum.Elimdeki Butun Yazı Stillerini Buraya EKliyorum.Sizde Bu konuda OLmayan AMa sizde Bulunan Yazı stıllerını eklersenız Sevinirim.Bundan sonra Yazı stılı Arıyan Herkezde Butun SAyfaları ARamadan Burdan Faydalanabılır.
sAygılar..

Bİr ince Bir Kalın yazma :

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:*: { if $left($1,1) != / { var %1 = $1- | var %2 = $regsub(%1, /()/g, $chr(2)\1, %1) | say %1 | haltdef } }
 
İLk Harfi REnkLi Yazmak :
 
on *:input:*: {
  if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
    msg $active $regsubex($1-,/(?<=^|\s)(.)/g,04\1)
    halt
  }
}

 
İLk Harfi İnce Yazmak :
 
on *:input:*:if $istok(channel chat query,$window($active).type,32) && /* !iswm $1 { say $bold($1-) | halt }
alias bold return $regsubex($1-,/(?<=^| )(.)/g,$+($chr(2),\1,$chr(2)))

 
ÇEştLi Yazı Stilleri :
 
#yaziturkce 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 == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  unset %turkce 
  set %turkce $1- 
  if ( $chr(47) == $mid(%turkce,1,1) ) { %turkce | unset %turkce* | halt } 
  %turkce = $replacecs(%turkce,ı,I,İ,Î,ş,$,Ş,$,ç,¢,Ç,¢,ğ,g,Ğ,Ğ,ü,û,Ü,Û,ö,ô,Ö,Ô) 
  say %turkce 
  unset %turkce  
  halt 
  :halt 
  halt 
  :son 
} 
#yaziturkce end 
#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 == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { 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 
#yazielite 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 == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { 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,ı,I) 
  set %kelime $replace(%kelime,ş,$) 
  set %kelime $replace(%kelime,Ş,$) 
  set %kelime $replace(%kelime,j,J) 
  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,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 
} 
#yazielite end 
#yaziqarisma 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 == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  set %kelime $1- 
  if ( $left($1,1) == . ) { goto bit } 
  set %kelime $replace(%kelime,o-,º) 
  set %kelime $replace(%kelime,k,]{) 
  set %kelime $replace(%kelime,1/4,¼) 
  set %kelime $replace(%kelime,1/2,½) 
  set %kelime $replace(%kelime,/,÷) 
  set %kelime $replace(%kelime,0,ø) 
  set %kelime $replace(%kelime,1,¹) 
  set %kelime $replace(%kelime,2,²) 
  set %kelime $replace(%kelime,3,³) 
  set %kelime $replace(%kelime,ae,Æ) 
  set %kelime $replace(%kelime,a,å) 
  set %kelime $replace(%kelime,b,ß) 
  set %kelime $replace(%kelime,c,©) 
  set %kelime $replace(%kelime,e,ë) 
  set %kelime $replace(%kelime,i,î) 
  set %kelime $replace(%kelime,l,£) 
  set %kelime $replace(%kelime,n,ñ) 
  set %kelime $replace(%kelime,o,ø) 
  set %kelime $replace(%kelime,r,®) 
  set %kelime $replace(%kelime,s,§) 
  set %kelime $replace(%kelime,u,µ) 
  set %kelime $replace(%kelime,x,×) 
  set %kelime $replace(%kelime,y,¥) 
  set %kelime $replace(%kelime,!,¡) 
  set %kelime $replace(%kelime,?,¿) 
  set %kelime $replace(%kelime,<set>,») 
  set %kelime $replace(%kelime,-,¬) 
  set %kelime $replace(%kelime,:,¦) 
  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 
} 
#yaziqarisma end 
#yaziilkbuyuk 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 == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  set %Var3 $1- 
  unset %Var1 %Var2 
  set %Var1 1 | set %Var2 $upper($mid(%Var3,1,1)) 
  if ($mid(%Var3,1,1) == $chr(47)) { goto ServerCommand } 
  if ($len(%Var3) == 1) { set %Var2 $upper(%Var2) | say %Var2 | halt } 
  :Start1 
  inc %Var1 1 
  if ($mid(%Var3,%Var1,1) != $chr(32)) { set %Var2 %Var2 $+ $mid(%Var3,%Var1,1) | if ($len(%Var3) < %Var1) { goto Start1 } } 
  if ($mid(%Var3,%Var1,1) == $chr(32)) { set %Var2 %Var2 $+ $upper($mid(%Var3,%Var1,2)) | inc %Var1 1 | if ($len(%Var3) < %Var1) { goto Start1 } } 
  if ($len(%Var3) != %Var1) { goto Start1 } 
  say %Var2 
  halt 
  :ServerCommand 
  :halt 
  halt 
  :son 
} 
#yaziilkbuyuk end 
#yazirenkli 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 == @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { goto halt } 
  unset %ahenk*  
  if ( $chr(47) == $mid($1-,1,1) ) { $1- | unset %ahenk* | halt } 
  :ilk 
  inc %ahenks 
  if ( %ahenks > $len($1-) ) { say %ahenkt | unset %ahenk* | halt } 
  %ahenkh = $mid($1-,%ahenks,1) 
  %ahenkh = $replace(%ahenkh,$chr(32),$chr(0160)) 
  %ahenkt = %ahenkt $+  $+ $rand(3,13) $+ %ahenkh 
  goto ilk 
  :halt 
  halt 
  :son 
} 
#yazirenkli end 
dialog Yazim { 
  title "Yazıtipi" 
  size -1 -1 110 220 
  radio "Tûrk¢e",1,10 10 90 20 
  radio "eLite",2,10 30 90 20 
  radio "Ilk Harf Büyük",3,10 50 90 20 
  radio "KaLın-İnce",7,10 70 90 20 
  radio "Qa®i§ma",5,10 90 90 20 
  radio "Rengarenk",6,10 110 90 20 
  radio "Normal",19,10 130 90 20 
  box "",20,5 0 100 155 
  button "TAMAM",21,5 195 100 20,ok 
} 
on 1:dialog:Yazim:*:*: { 
  if ( $devent == init ) { 
    if ($group(#yaziturkce).status == on ) { did -c Yazim 1 } 
    elseif ($group(#yazielite).status == on ) { did -c Yazim 2 } 
    elseif ($group(#yaziilkbuyuk).status == on ) { did -c Yazim 3 } 
    elseif ($group(#yazikalinince).status == on ) { did -c Yazim 7 } 
    elseif ($group(#yazirenkli).status == on ) { did -c Yazim 6 } 
    elseif ($group(#yaziqarisma).status == on ) { did -c Yazim 5 } 
    else { did -c Yazim 19 } 
  } 
  if ( $devent == sclick ) { 
    if ( $did == 1 ) { .disable #yazi* | .enable #yaziturkce | echo %logo2 11Yazı Stili "4Tûrk¢e11" Açıldı! } 
    if ( $did == 2 ) { .disable #yazi* | .enable #yazielite | echo %logo2 11Yazı Stili "4eLite11" Açıldı! } 
    if ( $did == 3 ) { .disable #yazi* | .enable #yaziilkbuyuk | echo %logo2 11Yazı Stili "4İlk Harf Büyük11" Açıldı! } 
    if ( $did == 7 ) { .disable #yazi* | .enable #yazikalinince | echo %logo2 11Yazı Stili "4KaLın-İnCe11" Açıldı! } 
    if ( $did == 5 ) { .disable #yazi* | .enable #yaziqarisma | echo %logo2 11Yazı Stili "4Qa®i§ma11" Açıldı! } 
    if ( $did == 6 ) { .disable #yazi* | .enable #yazirenkli | echo %logo2 11Yazı Stili "4R8e7n14G0a12r9e6N3k11" Açıldı! } 
    if ( $did == 19) { .disable #yazi* } 
  } 
} 
alias Yazim { dialog -m Yazim Yazim } 
alias acolor { dialog -m acolor acolor } 
dialog acolor { 
  title "Renkli yazı" 
  size -1 -1 169 109 
  box "Renk", 1, 6 5 80 69 
  text "Renkno:", 2, 16 27 22 13 
  edit "", 3, 51 20 25 22, center multi return 
  text "Arka:", 4, 16 50 29 13 
  edit "", 5, 51 43 25 22, center multi return 
  box "Diğer", 6, 84 5 79 69 
  check "Kalın", 7, 94 27 43 13 
  check "Çizgili", 8, 94 49 61 13 
  button "Önizleme", 9, 21 82 55 20 
  button "Tamam", 10, 93 82 55 20, ok 
  box "", 11, -1 -6 171 116 
} 
on *:dialog:acolor:*:*: { 
  if $devent = init { 
    did -a $dname 3 %ac.text 
    did -a $dname 5 %ac.back 
    if (%ac.bold == on) { did -c $dname 7 } 
    if (%ac.underline == on) { did -c $dname 8 } 
  } 
  if $devent = edit { 
    if $did = 3 { set %ac.text $did(3).text } 
    if $did = 5 { set %ac.back $did(5).text } 
  } 
  if $devent = sclick { 
    if $did = 7 { 
      if ($did(7).state = 1) { set %ac.bold on | set %ac.bold2  } 
      if ($did(7).state = 0) { set %ac.bold off | set %ac.bold2 } 
    } 
    if $did = 8 { 
      if ($did(8).state = 1) { set %ac.underline on | set %ac.underline2  } 
      if ($did(8).state = 0) { set %ac.underline off | set %ac.underline2 } 
    } 
    if $did = 9 { echo -a  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ Yazdığınız böyle görünecek.! } 
  } 
} 
#acolor off 
on *:input:*:if (/* !iswm $1) && (*: !iswm $1) { say  $+ %ac.text $+ , $+ %ac.back $+ %ac.bold2 $+ %ac.underline2 $+ $1- | halt } 
#acolor end

Elimde Bu kadar Var.Çoguda Bu Forumdan aLıntıdır.Devamını SizLErden Bekliyorum. Kolay gelsın.

Konu Feragat tarafından (10 Şubat 2022 Saat 22:02 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 17 Eylül 2008, 17:21   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bütün Yazı Stilleri.



Güzel.

__________________
-
Sod ~ Emirhan
 
Alıntı ile Cevapla

Alt 09 Eylül 2020, 14:36   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bütün Yazı Stilleri.



acaba elinizde her cümlenin ilk harfi büyük ve sadece L harfi büyük yazacagımız Kod yoqmu tşkler.

 
Alıntı ile Cevapla

Alt 10 Şubat 2022, 09:43   #4
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: Bütün Yazı Stilleri.



YasakLım Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
acaba elinizde her cümlenin ilk harfi büyük ve sadece L harfi büyük yazacagımız Kod yoqmu tşkler.


Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 $replace(%Jnk,l,L))
    halt
  }


Konu Feragat tarafından (10 Şubat 2022 Saat 22:02 ) değiştirilmiştir.
 
Alıntı ile Cevapla

Cevapla

Etiketler
butun, bütün, mirc, mirc download, mirc indir, stilleri, yazi, yazı

« önceki Konu | sonraki Konu »

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler
Stil
Normal Normal

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok
BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık

Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
Düz Yazı Türleri - Düz Yazı Çeşitleri Nelerdir -Yazı Çeşitleri Hakkında Bilgi PySSyCaT Türkçe 0 28 Ekim 2014 00:36
Yeni Saç Stilleri. Ein Ah Kadınlar 0 06 Nisan 2012 11:10
Salsa Stilleri Liaaa Dans 1 14 Şubat 2012 16:20
Biliyorum artık dünyadaki bütün yıkımlar bütün katliamlar dilimdeki bu kesik yüzünden Dilara Şiir, Hikaye ve Güzel Sözler 0 23 Kasım 2010 04:50




Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir.
Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. IRCForumlari.Net hiçbir yasal sorumluluk kabul etmemektedir. İllegal herhangi bir faaliyet görülmesi durumunda İletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
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.
İletişim Arşiv Gizlilik Sözleşmesi Yukarı git
yavru köpek sohbet sohbet teması yetişkin sohbet
Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net

mimarsinanokullari.com mjsanaokulu.com eburke.org