reklam reklam

  • Konu İçeriğini Görebilmek İçin Lütfen Üye Olun. Aksi Takdirde İçeriği Göremezsiniz.

Kanal Erişim Listesi Düzenleme

admin

Forever mIRCX!
Yönetici
Yetkili
mIRCX Admin
Denetleyici
Katılım
16 Kas 2019
Mesajlar
335
Tepkime puanı
0
Puanları
16
Konum
public_html
Web sitesi
www.mircx.net

İtibar:

Kod:
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 }
}
 
Üst Alt