IRCDForum - IRC ve mIRC Kullanıcı Topluluğu  
Geri Git   IRCDForum - IRC ve mIRC Kullanıcı Topluluğu > IF- mIRC Scripting > mIRC Scripting Hazır Kodlar


Kanal Erişim Listesi Düzenleme Dialogu

mIRC Scriptinglerinizde kullanabileceğiniz hazır kodlara bu başlık altından ulaşabilirsiniz.


Etiketlenen üyelerin listesi

Yeni Konu Aç  Cevapla
 
Konu Araçları Görünüm Modları
Old 05 Aralık 2023, 15:08   #1
 
IRCDForum Kullanıcısının Avatarı

Kayıt Tarihi: 28 Kasım 2023
Üye No: 1
Cinsiyet: Erkek
Konular: 296
Mesajlar: 311
Nerden:
Meslek:
IRC:
Aldığı Beğeni: 19
Beğendikleri: 13
@IRCDForum
Varsayılan Kanal Erişim Listesi Düzenleme Dialogu

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 }
}

 
Alıntı ile Cevapla

5 SON KONULAR by IRCDForum
KONU Forum Son Post Cevaplar Görüntüleme Son Post Tarih Saat
Nesne Yönelimli Programlama(OOP) Programlama IRCDForum 0 1 20 Aralık 2023 12:17
2024 KPSS Ortaöğretim, Ön Lisans, Lisans, DHBT... KPSS IRCDForum 0 1 13 Aralık 2023 13:07
"Dune 2"den Yeni Fragman: Arrakis Savaşa... Sinema IRCDForum 0 1 13 Aralık 2023 13:02
“Nefes: Yer Eksi İki” Filminden Yeni fragman! Sinema IRCDForum 0 1 13 Aralık 2023 12:57
Samsung Galaxy S24 serisi ile görücüye çıkacak! Samsung IRCDForum 0 1 13 Aralık 2023 10:29

Cevapla

Yer İmleri

Etiketler
dialogu, düzenleme, erişim, kanal, listesi

Konu Araçları
Görünüm Modları

Yayınlama Kuralları
Yeni konu açamazsınız
Cevap gönderemezsiniz
Eklenti ekleyemezsiniz
Mesajlarınızı düzenleyemezsiniz

Kodlama is Açık
Smilies are Açık
[IMG] code is Açık
HTML code is Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı