mIRC Scripting - /* 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.