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

 Kayıt ol  Topluluk
5Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 14 Mart 2011, 16:08   #11
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on 1:INPUT:*: { if ( $left($1,1) == / ) { goto son } if ($ctrlenter) { goto son } if ($active == Status Window) { Echo -a OAScript SohbeT | goto halt } if ($active == @Bot) { 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 }



Yazdığınız Yazının Tıpkı Şuan Oldugu Gibi Boşluktan Sonraki İlk Harfini Büyük'le Başlatır.

ÖNEMLİ: Myops CR Sürüm'den alıntıdır. Yazarı: aCode

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları sohbet odaları Benimmekan Mobil Sohbet
Alt 14 Mart 2011, 16:47   #12
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




FenomeNsTwo Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on 1:INPUT:*: { if ( $left($1,1) == / ) { goto son } if ($ctrlenter) { goto son } if ($active == Status Window) { Echo -a OAScript SohbeT | goto halt } if ($active == @Bot) { 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 }



Yazdığınız Yazının Tıpkı Şuan Oldugu Gibi Boşluktan Sonraki İlk Harfini Büyük'le Başlatır.

ÖNEMLİ: Myops CR Sürüm'den alıntıdır. Yazarı: aCode

Tşk Yardımın Icın Ama O Kodda Renkli Yazı Kalsın Istıyordumda. Hem İnce Yazıyor Renkli Yazıyor Ve Nıcklerıde Altı Cızgılı Gosterıyor O Yuzden Verdıgım Kodda Ekleme Yaparak Olmazmı Acaba ? Her Kelımenın Harfi Buyuk Yazılar Renkli Ince Ve Nıcklere Seslenınce Altı Cızgılı..

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 15 Mart 2011, 12:02   #13
Çevrimdışı
~ IRCTR.Org ~
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
#yaziturkce off on *:input:*: { if $left($1,1) != / { var %1 = $1- | var %2 = $regsub(%1, /()/g, $chr(2)1, %1) | say %1 | haltdef } } #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 == @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 #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 == @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,ı,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 == @Bot) { 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 %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 } #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 == @Bot) { 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 == @Bot) { 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


 
Alıntı ile Cevapla

Alt 15 Mart 2011, 15:05   #14
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




Yok Dedıgım Bu DegıL Neyse Eski Şekil İdare Edecez Artık.

__________________
Benim En Kötü Hikaye'mi En Güvendiğim İnsanlar Yazdı..
Erhan İle Hüzünlü Saatler Etka..
 
Alıntı ile Cevapla

Alt 16 Mart 2011, 21:37   #15
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#:{ if $left($1,1) != / { msg $chan 06 $+ $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(,\1,),$+($upper($left(\1,1)),$mid(\1,2-)))) halt } }


 
Alıntı ile Cevapla

Alt 22 Eylül 2011, 12:28   #16
Çevrimdışı
XqL
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




Difuzyon Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on *:input:#:{ if $left($1,1) != / { msg $chan 06 $+ $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(,\1,),$+($upper($left(\1,1)),$mid(\1,2-)))) halt } }




Peki bunun Rengi Siyah, ince değilde Kalın Olarak ayarlanabilir mi Rica etsem . Yani Nickin altı cizili , Kelimelerin Baş Harfleri büyük Fakat siyah ve Kalın sekilde yazsın ?

 
Alıntı ile Cevapla

Alt 22 Eylül 2011, 15:58   #17
TİGeR
Guest
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




Su satırı msg $chan 06 $+ $regsubex($1-,/(\S+)/gi,$iif(\1 ison #,$+(,\1,),
Ctrl+r kombinasyonu ile düzenleyebilirsin

 
Alıntı ile Cevapla

Alt 12 Ağustos 2014, 19:53   #18
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




Hocam bu aşağıdaki kod her kelimenin ilk harfi büyük ve S L harfleri büyüktür. Hocam bana aynı bu koddan sadece tek farkı bu kodun ince yazanını bulamıyorum yardımcı olmanız mümkünmüdür. tşkler. Şimdiden.

 
Alıntı ile Cevapla

Alt 12 Ağustos 2014, 19:55   #19
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (1)
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




Dahimurat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
Hocam bu aşağıdaki kod her kelimenin ilk harfi büyük ve S L harfleri büyüktür. Hocam bana aynı bu koddan sadece tek farkı bu kodun ince yazanını bulamıyorum yardımcı olmanız mümkünmüdür. tşkler. Şimdiden.

Kod'u verirsen yardımcı oluruz.

 
Alıntı ile Cevapla

Alt 12 Ağustos 2014, 20:02   #20
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: İlk Harf Buyuk Yazı Stili




Hocam her kelimenin ilk harfi ve S L harfleri büyük olmak kaydıyla ancak ince yazı şeklinde yazan bir kod arıyordum yardımcı olabilirmisiniz. tşkler.

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:32 -->-> Daha önceki mesaj 20:29 --

#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 $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
}


hocam bu koddur. Burda kalın ben ince yazanını arıyorum tşkler.

 
Alıntı ile Cevapla

Cevapla

Etiketler
buyuk, harf, ilk, mirc, mirc download, mirc indir, stili, yazi, yazı, İlk


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

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
Yazı Stili. ozJan mIRC Scripting Sorunları 10 25 Ekim 2011 12:41
Yazı StiLi buyukask mIRC Scripting Sorunları 4 11 Şubat 2011 13:54
Buyuk Harf harf Uzatma Leo mIRC Scripting Sorunları 5 03 Temmuz 2009 22:29
Buyuk Harf Teori mIRC Scripting Sorunları 7 28 Ağustos 2007 15:05