- Katılım
- 7 Eki 2019
- Mesajlar
- 1,161
- Aldığı beğeni
- 23
- Puanları
- 38
- Konum
- Fransa
- Web sitesi
- www.belalim.net
PHP:
dialog Kanal-Access-Listesi {
title Kanal Erişim Listesi 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 && 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($1 $2,/d+ d+/i) && $dialog(Kanal-Access-Listesi) ) {
did -a Kanal-Access-Listesi 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-Listesi 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 }
}