PHP- Kodu:

    dialog Kanal
-Access-Listesi {
    
title “Kanal Erişim Listesi Düzenleme”
    size 
--1 183 171
    option dbu
    
list 24 25 75 119sort size vsbar
    text “NICK”
183 24 17 10
    edit “”
4149 64 27 10
    button “Tamam”
5144 80 32 12
    text “ACCESS DUZENLE”
682 65 44 8
    button “SEÇİLİ NİCKİ ACCESS LISTESINDEN KALDIR”
793 118 83 25, default multi
    button “KAPAT”
883 156 38 12
    edit “”
9122 23 55 10disable
    text “”
105 12 99 8
    edit “”
11122 35 55 10disable
    text “ACC
EKLEYEN”1283 36 35 8
    text “ACC
SEVIYESI”383 49 37 8
    edit “”
13149 47 27 10disable
    
}
    
on ^:notice::?:{
    if (%
erisim && $nick == chanserv && seviyenickekleyen iswm $1- ) { halt }
    if (%
erisim && $nick == chanserv && Erisim Listesi iswm $1-) {
    
dialog -m Kanal-Access-Listesi Kanal-Access-Listesi
    set 
%ch_kanal $1
    write 
-c kanal-acc-list.txt
    did 
-a Kanal-Access-Listesi 10 $upper(%ch_kanal Kanalı Access Listesi)
    
halt
    
}
    if (%
erisim && $nick == Chanserv && $regex($$2,/dd+/i) && $dialog(Kanal-Access-Listesi) ) {
    
did -a Kanal-Access-Listesi 2 $3
    write kanal
-acc-list.txt $$$4
    halt
    
}
    if (
$dialog(Kanal-Access-Listesi) && $nick == chanserv && erisim seviyesiolarakdegisti iswm $1-) { did -ra Kanal-Access-Listesi 13 $did(Kanal-Access-Listesi,4) | halt }
    }
    
on :dialog:Kanal-Access-Listesi::*:{
    if (
$devent == sclick) {
    var %
$read(kanal-acc-list.txt,s,$did($dname,2).seltext)
    if (
$did == && %n) {
    
did -ra $dname 9 $did($dname,2).seltext
    did 
-ra $dname 11 $gettok(%n,2,32)
    
did -ra $dname 13 $gettok(%n,1,32)
    }
    if (
$did == && $did($dname,4isnum 1-999) { cs access %ch_kanal add $did($dname,2).seltext $did($dname,4) }
    if (
$did == && $did($dname,2).seltext) {
    
cs access %ch_kanal del $did($dname,2).seltext
    did 
-d $dname 2 $did($dname,2).sel
    did 
-r $dname 9,11,13
    
}
    if (
$did == 8) { dialog -x $dname }
    }
    }
    
menu channel {
    
$iif($me isop $chan && !$dialog(Kanal-Access-Listesi),$active Kanalı Access Listesi,$null) { set -u2 %erisim OK cs access $active list }
    }