Forumlara bakarken 10 Şubat 2009‘da yazdığım, “Çevrimiçi Yetkili Gösterici” hazır kodunu sizlerle paylaşmak istedim. Bundan birkaç ay öncesine kadar bildiğiniz gibi ’le yoğun olarak ilgilenmekteydim.

-

Açıklama: Bu kodun özelliği, aslında kodların tek yönlü yazılıyor olmasından farklı olarak hem alias, hem de identifier şeklinde kullanabilmenizdir. Her neyse kullanımını, zaten aşağıda açıklayacağım. Kodun yapacağı işlem; kullanıma göre belirtilen kanaldaki çevrimiçi yetkilileri; alias olarak kullanırsanız aktif ekrana, identifier olarak kullanırsanız da yazı yazdığınız pencereye listeleyecektir.

Kullanım:

  • Alias: /yetkili ([<kanal>])
  • Identifier: $yetkili([<kanal>])

Örnek kullanımlar:

  • /yetkili #YuzukTurk (#yuzukturk kanalının, çevrimiçi yetkililerini aktif ekranda gösterir.)
  • /yetkili (Eğer bulunduğunuz pencere, bir kanalsa o kanalın çevrimiçi yetkililerini aktif ekranda gösterir.)
  • $yetkili(#YuzukTurk) (#yuzukturk kanalının, çevrimiçi yetkililerini yazı yazdığınız pencerede gösterir.)
  • $yetkili (Eğer bulunduğunuz pencere, bir kanalsa o kanalın çevrimiçi yetkililerini aktif ekranda gösterir.)

Evet, bu kadar kullanım imkânı sundum. Dilediğiniz gibi kullanabilirsiniz.

İşte kod:

/*
Aşağıdaki rumuzu değiştiren kişi, karakter bakımından zayıftır.
*/
;Yazan: Regex
;Kod: /yetkili|$yetkili
;Kullanım şekilleri: /yetkili [<kanal>] - $yetkili([<kanal>])
;Sanırım ve umarım, işinize yarar.

yetkili {
var %h = $iif($isid,return,echo) $+($chr(2),*,$iif($isid,$+($chr(36),yetkili),/yetkili),:,$chr(2)) Hatalı kullanım.,%c = Kullanım şekli: $iif($isid,$!yetkili([<kanal>]),/yetkili [<kanal>])
if $active !ischan { %h $qt($active) bir kanal değil. %c }
if $1 && $1 !ischan { %h $qt($1) bir kanal değil. %c }
var %^ = 1,%$ = $iif($1,$1,$iif($regex($active,/#+/A),#)),%½
while $nick(%$,%^) {
if $regex($nick(%$,$v1).pnick,/^(%|@|&|~)/) { %½ = $addtok(%½,$+($regml(1),$nick(%$,%^)),44) }
inc %^
}
$iif($isid,return,echo) $regsubex(%½,$+(/,$chr(44),/g),$+($chr(44),$chr(32)))
}

Not: Kod, alias ve identifier olarak işlem yaptığı için mIRC’de Alias kısmına (ALT+D) eklenmelidir. Eğer Remote’a (ALT+R) eklemek istiyorsanız da “yetkili {” satırının başına, “alias” takısını eklemelisiniz.

Sanırım ve umarım, işinize yarar.

Kolay gelsin.