8 Farklı Yazı Stili.

**ProdoziaC** · 19-01-11, 21:07

Yazan: L4roXyL - (Hasan AYDENİZ)
Tarih: 09/25/2009 - Cuma
Not: Bu kod bir [Link Görmek ve Forumumuzdan Yararlanmak İçin Üye Olmasınız. ] dökümanıdır. (Site sahibi ve kod yazarının izni ile yayımlanmıştır.)

-

Evet arkadaşlar, [Link Görmek ve Forumumuzdan Yararlanmak İçin Üye Olmasınız. ] dersimizde örnek olarak yazdığım $_t() alias-ını fazlasıyla geliştirerek tamamen bir yazı stilleri alias-ı haline getirdim. Yazmış olduğum bu alias sayesinde, scriptler-de gördüğünüz yazı stillerinin hepsini elde edebileceksiniz. Hemde çok daha hızlı ve çok çok daha kısa bir şekilde. Açık konuşmak gerekirse $_t() alias-ının yaptığı işlevlerin aynılarını, bir çoğu scriptde en az 200 satırlık kodlar ile görebilirsiniz. Ve bu kodlarda uzunluk bir yana, bir çok gereksiz external loop göreceksinizdir. Yazmış olduğum $_t() alias-i tüm işlevleri regex ile yapar. Yani kısacası loop kullansa dahi, internal loop kullanır. Buda external loop-dan fazlasıyla hızlıdır. Neyse ben daha fazla uzatmadan, alias ve kullanımlarını size açıklamak istiyorum.

-

Alias-ımız: $_t(stil-ismi,[0-15],[0-15],text)

Kod:

alias _t {
  if ($isid && $regex(+t,$1,/^(caps|color|bold|regular|underline|randomclr|reverse_(t|c))$/i)) {
    var %_t = $regml(+t,1),%_r = return,%_2 = $iif($2,$v1),%_3 = $iif($3,$v1),%_tx = $$2-
    if ($(,%_t) = caps) %_r $regsubex(%_tx,/(.(?<!\s))/g,$iif(2 \\ \n,$upper(\1),$lower(\1)))
    if ($(,%_t) = bold) %_r $regsubex(%_tx,/(.)/g,$chr(2)\1)
    if ($(,%_t) = reverse_c) %_r $regsubex(%_tx,/(.(?<!\s))/g,$chr(22)\1)
    if ($(,%_t) = underline) %_r $regsubex(%_tx,/(.(?<!\s))/g,$chr(31)\1)
    if ($(,%_t) = color) %_r $regsubex($$4-,/(.)/g,$iif(2 \\ \n,$+($chr(3),%_2,\1,$chr(3),%_3),\1))
    if ($(,%_t) = regular) %_r $regsubex(%_tx,/(?<=^|(?<=[.:;])|(?<=[.;:])\s)(.(?<![.;:]))/g,$chr(32) $upper(\1))
    if ($(,%_t) = randomclr) %_r $regsubex(%_tx,/(.)/g,$+($chr(3),$r($r(1,15),$r(1,\n)),\1))
    if ($(,%_t) = reverse_t) %_r $regsubex(%_tx,/(.)/g,$mid(%_tx,$mid(%_tx,\n,0),1))
  }
}

Alias-ın sağladığı yazı stilleri:

Büyük/küçük yazı stili
Kalın/ince yazı stili(ctrl+b)
Reverse yazı stili(ctrl+r)
Altı çizili yazı sitili(ctrl+u)
Çift renkli yazı stili
Düzenli cümle yazı stili
Karışık renkli yazı stili
Ters yazı stili

Kullanımlar:

Büyük/küçük yazı stili için

İşlev: $_t(caps,text)
Örnek: //echo -: $_t(caps,bu bir denemedir.)

Kalın/ince yazı stili için

İşlev: $_t(bold,text)
Örnek: //echo -: $_t(bold,bu bir denemedir.)

Reverse yazı stili için

İşlev: $_t(reverse_c,text)
Örnek: //echo -: $_t(reverse_c,bu bir denemedir.)

Altı çizili yazı stili için

İşlev: $_t(underline,text)
Örnek: //echo -: $_t(underline,bu bir denemedir.)

Çift renkli yazı stili için

İşlev: $_t(color,[ilk-renk-kodu],[ikinci-renk-kodu],text)
Örnek: //echo -: $_t(color,2,4,bu bir denemedir.)

Düzenli cümle yazı stili

İşlev: $_t(regular,text)
Örnek: //echo -: $_t(regular,bu bir denemedir.bu ikinci..birde bu;var..)

Karışık renkli yazı stili için

İşlev: $_t(randomclr,text)
Örnek: //echo -: $_t(randomclr,bu bir denemedir.)

Reverse yazı stili için

İşlev: $_t(reverse_c,text)
Örnek: //echo -: $_t(reverse_c,bu bir denemedir.)

Ters yazı stili için

İşlev: $_t(reverse_t,text)
Örnek: //echo -: $_t(reverse_t,bu bir denemedir.)

Örnek resim:

İsteğe bağlı hazır kullanım(lar):

Kod:

on *:input:*: {
  if ($regex($window($active).type,^(channel|query|chat)$) && $left($1,1) != /) {
    haltdef 
    ;kullanımlar
    ;say $_t(underline,$1-)
    ;say $_t(randomclr,$1-)
    ;say $_t(bold,$1-)
    ;say $_t(reverse_c,$1-)
    ;say $_t(reverse_t,$1-)
    ;say $_t(regular,$1-)
    ;say $_t(color,3,6,$1-)
    ;say $_t(caps,$1-)
    ;---
    ;kullanmak istediğiniz yazı stilinin başından ";" karakterini kaldırmanız yeterlidir.
    ;bu bir örnektir.
  }
}

19-01-11, 21:07	#1
ProdoziaC Üyelik tarihi: Jan 2011 Yaş: 25 Mesajlar: 2.606 Konular: 909 Aldığı Teşekkür : 1 NF Puanı : 23890 NF Seviyesi :	8 Farklı Yazı Stili. Yazan: L4roXyL - (Hasan AYDENİZ) Tarih: 09/25/2009 - Cuma Not: Bu kod bir [Link Görmek ve Forumumuzdan Yararlanmak İçin Üye Olmasınız. ] dökümanıdır. (Site sahibi ve kod yazarının izni ile yayımlanmıştır.) - Evet arkadaşlar, [Link Görmek ve Forumumuzdan Yararlanmak İçin Üye Olmasınız. ] dersimizde örnek olarak yazdığım $_t() alias-ını fazlasıyla geliştirerek tamamen bir yazı stilleri alias-ı haline getirdim. Yazmış olduğum bu alias sayesinde, scriptler-de gördüğünüz yazı stillerinin hepsini elde edebileceksiniz. Hemde çok daha hızlı ve çok çok daha kısa bir şekilde. Açık konuşmak gerekirse $_t() alias-ının yaptığı işlevlerin aynılarını, bir çoğu scriptde en az 200 satırlık kodlar ile görebilirsiniz. Ve bu kodlarda uzunluk bir yana, bir çok gereksiz external loop göreceksinizdir. Yazmış olduğum $_t() alias-i tüm işlevleri regex ile yapar. Yani kısacası loop kullansa dahi, internal loop kullanır. Buda external loop-dan fazlasıyla hızlıdır. Neyse ben daha fazla uzatmadan, alias ve kullanımlarını size açıklamak istiyorum. - Alias-ımız: $_t(stil-ismi,[0-15],[0-15],text) Kod: alias _t { if ($isid && $regex(+t,$1,/^(caps\|color\|bold\|regular\|underline\|randomclr\|reverse_(t\|c))$/i)) { var %_t = $regml(+t,1),%_r = return,%_2 = $iif($2,$v1),%_3 = $iif($3,$v1),%_tx = $$2- if ($(,%_t) = caps) %_r $regsubex(%_tx,/(.(?<!\s))/g,$iif(2 \\ \n,$upper(\1),$lower(\1))) if ($(,%_t) = bold) %_r $regsubex(%_tx,/(.)/g,$chr(2)\1) if ($(,%_t) = reverse_c) %_r $regsubex(%_tx,/(.(?<!\s))/g,$chr(22)\1) if ($(,%_t) = underline) %_r $regsubex(%_tx,/(.(?<!\s))/g,$chr(31)\1) if ($(,%_t) = color) %_r $regsubex($$4-,/(.)/g,$iif(2 \\ \n,$+($chr(3),%_2,\1,$chr(3),%_3),\1)) if ($(,%_t) = regular) %_r $regsubex(%_tx,/(?<=^\|(?<=[.:;])\|(?<=[.;:])\s)(.(?<![.;:]))/g,$chr(32) $upper(\1)) if ($(,%_t) = randomclr) %_r $regsubex(%_tx,/(.)/g,$+($chr(3),$r($r(1,15),$r(1,\n)),\1)) if ($(,%_t) = reverse_t) %_r $regsubex(%_tx,/(.)/g,$mid(%_tx,$mid(%_tx,\n,0),1)) } } Alias-ın sağladığı yazı stilleri: Büyük/küçük yazı stili Kalın/ince yazı stili(ctrl+b) Reverse yazı stili(ctrl+r) Altı çizili yazı sitili(ctrl+u) Çift renkli yazı stili Düzenli cümle yazı stili Karışık renkli yazı stili Ters yazı stili Kullanımlar: Büyük/küçük yazı stili için İşlev: $_t(caps,text) Örnek: //echo -: $_t(caps,bu bir denemedir.) Kalın/ince yazı stili için İşlev: $_t(bold,text) Örnek: //echo -: $_t(bold,bu bir denemedir.) Reverse yazı stili için İşlev: $_t(reverse_c,text) Örnek: //echo -: $_t(reverse_c,bu bir denemedir.) Altı çizili yazı stili için İşlev: $_t(underline,text) Örnek: //echo -: $_t(underline,bu bir denemedir.) Çift renkli yazı stili için İşlev: $_t(color,[ilk-renk-kodu],[ikinci-renk-kodu],text) Örnek: //echo -: $_t(color,2,4,bu bir denemedir.) Düzenli cümle yazı stili İşlev: $_t(regular,text) Örnek: //echo -: $_t(regular,bu bir denemedir.bu ikinci..birde bu;var..) Karışık renkli yazı stili için İşlev: $_t(randomclr,text) Örnek: //echo -: $_t(randomclr,bu bir denemedir.) Reverse yazı stili için İşlev: $_t(reverse_c,text) Örnek: //echo -: $_t(reverse_c,bu bir denemedir.) Ters yazı stili için İşlev: $_t(reverse_t,text) Örnek: //echo -: $_t(reverse_t,bu bir denemedir.) Örnek resim: İsteğe bağlı hazır kullanım(lar): Kod: on :input:: { if ($regex($window($active).type,^(channel\|query\|chat)$) && $left($1,1) != /) { haltdef ;kullanımlar ;say $_t(underline,$1-) ;say $_t(randomclr,$1-) ;say $_t(bold,$1-) ;say $_t(reverse_c,$1-) ;say $_t(reverse_t,$1-) ;say $_t(regular,$1-) ;say $_t(color,3,6,$1-) ;say $_t(caps,$1-) ;--- ;kullanmak istediğiniz yazı stilinin başından ";" karakterini kaldırmanız yeterlidir. ;bu bir örnektir. } } ________________ [Link Görmek ve Forumumuzdan Yararlanmak İçin Üye Olmasınız. ] ωєв мαδтєя - ℓιиυχ - δєσ - му-δqℓ - ωєв ¢σ∂єя ¢σσя∂ιиαтισи'δ

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder
Stil
Normal Hybrid-Şeklinde gösterime geç Ağaç şeklinde gösterime geç

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Farklı Yazı tipi	My_HeaRt	Hazır Kodlar	0	18-03-09 00:44
Eklenmiş Dosya (Vb Stili)	BlackDark	SMF Mod & Hack & Eklentiler	0	05-02-09 01:05
Japon STiLi KıyafetLer...	NFM	Kadınca	0	11-01-09 20:35
Farklı bir saç stili isteyenlere büyük bir farklılık ....	LaviNya	Komik Resimler	1	25-12-08 20:47
Kültürü Farklı,Anlayışı Farklı Ama Bakış Aynı	Su	Komik Resimler	4	29-01-08 21:59

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

Etiketlenen Kullanıcılar
Input each user name separated by a comma, like so: User1,User2,User3.