Kanal Erişim Listesi Düzenleme

Erişim Düzenleme Dialogu

dialog -Access-Listesi {
title “Kanal Erişim Düzenleme”
size -1 -1 183 171
option dbu
list 2, 4 25 75 119, sort size vsbar
text “NICK”, 1, 83 24 17 10
edit “”, 4, 149 64 27 10
button “Tamam”, 5, 144 80 32 12
text “ACCESS DUZENLE”, 6, 82 65 44 8
button “SEÇİLİ NİCKİ ACCESS LISTESINDEN KALDIR”, 7, 93 118 83 25, default multi
button “KAPAT”, 8, 83 156 38 12
edit “”, 9, 122 23 55 10, disable
text “”, 10, 5 12 99 8
edit “”, 11, 122 35 55 10, disable
text “ACC. EKLEYEN”, 12, 83 36 35 8
text “ACC. SEVIYESI”, 3, 83 49 37 8
edit “”, 13, 149 47 27 10, disable
}
on ^:notice::?:{
if (%erisim && $nick == chanserv && seviyeekleyen iswm $1- ) { halt }
if (%erisim && $nick == chanserv && Erisim iswm $1-) {
dialog -m Kanal-Access- Kanal-Access-Listesi
set %ch_kanal $1
write -c kanal-acc-list.txt
did -a Kanal-Access- 10 $upper(%ch_kanal Kanalı Access Listesi)
halt
}
if (%erisim && $nick == Chanserv && $regex($1 $2,/d+ d+/i) && $dialog(Kanal-Access-Listesi) ) {
did -a Kanal-Access- 2 $3
write kanal-acc-list.txt $3 $2 $4
halt
}
if ($dialog(Kanal-Access-Listesi) && $nick == chanserv && erisim seviyesiolarakdegisti iswm $1-) { did -ra Kanal-Access- 13 $did(Kanal-Access-Listesi,4) | halt }
}
on :dialog:Kanal-Access-Listesi::*:{
if ($devent == sclick) {
var %n = $read(kanal-acc-list.txt,s,$did($dname,2).seltext)
if ($did == 2 && %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 == 5 && $did($dname,4) isnum 1-999) { cs access %ch_kanal add $did($dname,2).seltext $did($dname,4) }
if ($did == 7 && $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 }
}

No tags for this post.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak.