IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - /yetkili [<kanal>]|$yetkili([<kanal>])

Alias, identifier veya kod (ne derseniz işte:)): /yetkili [<kanal>]|$yetkili([<kanal>]) - Çevrimiçi Yetkili Gösterici
Tarih: 10.02.2009 Salı
Yazan: Regex

-

Yazılış amacı: Dün akşam saatlerinde, Latin (Erhan) dostumla aramızda geçen: "Kanka, bulunduğumuz kanaldaki yetkilileri listeleyen bir komut var mı?" - "Yok ama yazarız." şeklindeki diyaloğun ardından yazmaya karar verdim. Bugün de biraz boş zamanım vardı ve kodu tamamlayarak paylaşayım dedim.

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 #mIRCafe (#mIRCafe 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(#mIRCafe) (#mIRCafe 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:

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.