Neler yeni
Türkiye'nin En Güncel Forum Sitesi

Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı yada giriş yapmalısınız. Forum üye olmak tamamen ücretsizdir.

Sekiz farklı yazı stili(regex)

diShy

~ یơυℓℓεss ..
Emektar Yönetici
  • Üyelik Tarihi
    27 Kas 2009
  • Mesajlar
    24,083
  • MFC Puanı
    339
  • MFC Seviyesi

Sekiz farklı yazı stili(regex)
Regex(yazı çeşitleri vs. hakkında) 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|reve rse_(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,/(.(? if ($(,%_t) = bold) %_r $regsubex(%_tx,/(.)/g,$chr(2)\\1)
if ($(,%_t) = reverse_c) %_r $regsubex(%_tx,/(.(? if ($(,%_t) = underline) %_r $regsubex(%_tx,/(.(? 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)(.(? 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.)

İ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.
}
}
 
Üst Alt