mIRC Scripting  


Geri dön   mIRC Scripting > mIRC Scripting > Snippets - Parça kodlar

Snippets - Parça kodlar mIRC Scripting hakkında "parça /ufak kod" niteliği taşıyan kodlarını bulup veya paylaşabileceğiniz bölüm.

Like Tree1Teşekkür
  • 1 Post By WingmaN
Cevapla
 
LinkBack Seçenekler
  #1  
Alt 24 Ağustos 2011, 10:21
Avatar Yok

mS Puan: 301
mS Derece: WingmaN MeraklıWingmaN MeraklıWingmaN MeraklıWingmaN Meraklı
 
Üyelik tarihi: 29 Temmuz 2009
Mesajlar: 15
Konular: 11
Eklentiler: 1
Alınan Teşekkür: 3
Yapılan Teşekkür: 0
Standart /* Yazı Tipi - Noktalama işaretleri ve Fazlası */

/* Yazı Tipi: Noktalama işaretleri ve fazlası */

Kodun amacı, cümle içerisinde kullandığınız noktalama işaretleri ve değer işaretlerini (.,:,%,+,-,^,? vs) belirlediğiniz renkte kullanmanızı sağlamaktır.

Ayrıca herhangi birinin "nick" 'ini " kanal " içerisinde yazmış olduğunuzda o nick'i parantez içine alıp, belirlediğiniz renk ile veya karışık renkli şekilde kalınlık ayarı ile birlikte kanalda kullanmanıza yardımcı olacaktır.

Ekstra olarak kanal içerisinde bulunduğunuz kanalı yazdığınızda tekrar belirlediğiniz renk'te "<#kanal>" şeklinde, kanalda yazmanıza yardımcı olacaktır.

Şuan ki kod, renklendirme şekli 2 ila 6 numaralı renkler arasında, karışık(random) olarak kendi seçip renklendirmektedir.

Kod:
on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+ $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { say $wn(%wm) | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)
Eğer ki, karışık renkler halinde kullanmak istemiyorum, bütün renkler sadece kırmızı olsun veya farklı bir renk olsun istiyorum diyorsanız, altta ki kodu değiştirmeniz gereklidir. Değiştirme yaparken, renklendirme işareti (CTRL+K) kullanmayınız.

Kırmızı için;
Kod:
 alias yr return 4


/* Her kelimenin baş harfleri büyük olsun */
(istek üzerine)

Yazdığınız cümlenin, her kelimesinin baş harfi de büyük olsun istiyorsanız, altta ki gibi eklemeniz gerekmektedir.
Kod:
on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    var %wn $numtok($1-,32)
    while (%wn > 0) {
      if ($gettok($1-,%wn,32) ison #) { set %wm $+($chr(40) $+  $chr(32),,$yr,$gettok($1-,%wn,32),,,$chr(32) $+ $chr(41)) %wm } | else { set %wm $gettok($1-,%wn,32) %wm } | if (%wn == 1) { byaz $wn(%wm) | unset %wm | halt } | dec %wn
    }
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return $r(2,6)

alias byaz {
  var %/ = 1,%= = $numtok($1-,32),%: 
  while %/ <= %= { 
    var %: = $addtok(%:,$+($upper($left($gettok($1-,%/,32),1)),$right($gettok($1-,%/,32),-1)),32)
    inc %/ 
    haltdef 
  }
  say %:
}

Update:
" if (!$regex($1,/^\//)) { " bu satır, !komut , .komut kullanan kişiler için " if (!$regex($left($1,1),/^!|[./]|/|/i/)) { " olarak değiştirilmiştir, kullanılan komutların , botlar tarafından algılanabilmesi amaçlıdır.

Not: Kod, Parça Kodlar bölümüne örnek amaçlı yazılmış olup, tamamen can sıkıntısıdır, +10 line oldu 2. bölüm sanırım ama, istek amaçlı geliştirilmiş olduğundan dolayı dokunmuyorum.
fav buna teşekkür etti.
Alıntı ile Cevapla
Sponsored Links
Cevapla

Etiketler
fazlası, işaretleri, noktalama, tipi, yazı

Seçenekler

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 Açık
Pingbacks are Açık
Refbacks are Açık



Yasal Uyarı

    5651 sayılı yasada belirtilen "Yer Sağlayıcı" olarak hizmet sunmaktadır. İlgili yasaya göre site yönetiminin tüm içerikleri kontrol etme yükümlülüğü yoktur. Bu sebep ile sitemiz, uyarıları dikkate alarak yasa dışı paylaşımlar hakkında gerekli işlemleri yapmaktadır. Oluşabilecek yasal sorumluluklar üyelerimize aittir. Gerekli şikayet bildirimleri yapabilmek için "burayı" tıklayarak gerekli alanları doldurup yapabilirsiniz.
mIRCScripting©
Powered by vBulletin®
Copyright © 2000-2015, Jelsoft Enterprises Ltd.
SEO by vBSEO 3.6.1

1 2 13 14 16 17 18 19 21 22 23 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 49 50 51 52 54 55 56 57 58 59 60 61 62 63 67 68 69 70 71 72 73 74 75 76