mIRC Yazı Tipi – Noktalama işareti

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.

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)

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;

alias yr return 4

1	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.

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 %:
}

on *:input:*:{

if (!$regex($left($1,1),/^(!|[\.]|\/)/i)) {

var %wn $numtok($1-,32)

while (%wn > 0) {

}

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.