![[-]](https://lamerler.com/images/collapse.png "[-]")
Ekleme: Mircinizde Alt+R tuşuna basın sol üstte dosya => yeni ekle seçin. Kodları yapıştırın.
Kullanımı mircinizde sağ tuşa tıklayıp chanserv yetki paneline tıklayın.
Kullanımı mircinizde sağ tuşa tıklayıp chanserv yetki paneline tıklayın.
Kod:
dialog ch.access {
title "Chanserv Access Paneli"
size -1 -1 251 142
option dbu
box "Kanali Seç", 1, 2 0 65 111
combo 2, 4 9 60 50, size drop
combo 3, 4 24 60 50, size
edit "Kaç LeveLs ?", 4, 4 73 60 10, center
button "Ekle", 5, 14 89 37 12
box "Alt Kısımdakiler Access Seviyelerini ve Nickleri Gösterir.", 6, 67 0 179 111
combo 7, 70 9 173 75, size
button "Kaldir", 8, 73 86 37 12
edit "Access Level", 9, 154 86 50 11, center
button "Düzenle", 10, 205 85 37 12
button "Tamam Kapat.", 11, 190 116 54 12, ok
text " Kullanimi : İlk önce Kanali Seçiyorsunuz. Sonra bi altina Nicki yaziyorsunuz. Kaç Levels yazan yerede Seviyesini yazip Ekle diyorsunuz. ßy RosicRucian", 12, 12 116 150 22
}
alias access { dialog -m ch.access ch.access }
Menu Channel {
Chanserv Yetki Paneli:access
}
on ^*:NOTICE:*:?:{
if ($dialog(ch.access)) && ($nick == Chanserv) {
if (Access list for isin $1-) { haltdef }
if (must be non-zero isin $1-) { haltdef | echo -a 4Error: Level must be a number and non-zero }
if ($2 = VOP) || ($2 = HOP) || ($2 = AOP) || ($2 = SOP) {
if (%halt.x = on) { halt }
haltdef
did -a ch.access 7 Chan must have xOp turned off
set -u3 %halt.x on
}
if ($1 isnum) && ($2 isnum) { haltdef | did -a ch.access 7 $3 - Access Level $2 }
if (Num isin $1-) { haltdef }
if (End isin $1-) { haltdef }
if (Access Denied isin $1-) { haltdef | did -a ch.access 7 Access Denied }
if (added to isin $1-) { haltdef }
if (deleted from isin $1-) { haltdef }
if (changed isin $1-) { haltdef }
if (list is empty isin $1-) { haltdef | did -a ch.access 7 Access List is Empty }
}
}
on *:DIALOG:ch.access:*:*: {
if ($devent == init) {
did -b $dname 3-5
did -b $dname 7-10
did -f $dname 2
var %chan.var 1
while (%chan.var <= $chan(0)) {
did -a $dname 2 $chan(%chan.var)
inc %chan.var
}
}
if ($devent == sclick) {
if ($did == 2) {
did -r $dname 7
cs access $did(2) list
did -e $dname 7
did -e $dname 3
did -f $dname 3
var %nick.var 1
while (%nick.var <= $nick($did(2),0)) {
did -a $dname 3 $nick($did(2),%nick.var)
inc %nick.var
}
}
if ($did == 3) { did -e $dname 4 | did -f $dname 4 }
if ($did == 5) {
did -r $dname 7
cs access $did(2) add $did(3) $did(4)
did -r $dname 4
did -a $dname 4 Access Level
did -b $dname 4-5
cs access $did(2) list
}
if ($did == 7) { did -e $dname 8-9 }
if ($did == 8) {
cs access $did(2) del $gettok($did(7),1,32)
did -r $dname 7
did -b $dname 8-10
cs access $did(2) list
}
if ($did == 10) {
cs access $did(2) add $gettok($did(7),1,32) $did(9)
did -r $dname 7
did -r $dname 9
did -a $dname 9 Access Level
did -b $dname 8-10
cs access $did(2) list
}
}
if ($devent == edit) {
if ($did == 3) { did -e $dname 4 }
if ($did == 4) { did -e $dname 5 }
if ($did == 9) { did -e $dname 10 }
}
}