Kod: Kodu kopyalamak için üzerine çift tıklayın!
/*
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)))
}