mircxreklam mircxreklam mircxreklam mircxreklam
Sohbet muhabbet sohbet, sohbet odası
Sohbet, Sohbet Odası mircx
mircx mircx

Kanal Erişim Listesi Düzenleme

[mIRCX] Konu Bilgileri

Konu Hakkında Merhaba, tarihinde mIRC Scripting Hazır Kodlar kategorisinde admin tarafından oluşturulan Kanal Erişim Listesi Düzenleme başlıklı konuyu okuyorsunuz. Bu konu şimdiye dek 309 kez görüntülenmiş, 0 yorum ve 0 tepki puanı almıştır...
Kategori Adı mIRC Scripting Hazır Kodlar
Konu Başlığı Kanal Erişim Listesi Düzenleme
Konbuyu başlatan admin
Başlangıç tarihi
Cevaplar
Görüntüleme
İlk mesaj tepki puanı
Son Mesaj Yazan admin

admin

Mustafa Kemal ATATÜRK
Administrator
Katılım
16 Kas 2019
Mesajlar
506
Tepkime puanı
0
Puanları
16
Konum
public_html
Cinsiyet
Erkek
İlgi Alanı
Xenforo
IRC
irc.superalem.org

İ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