/*
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)))
}