| YouMyCure | 24 Haziran 2019 20:07 |
Kara / Beyaz Liste Ekle Sil [Dialog]
Kara Liste ve Beyaz Liste Oluşturur Listeler Siler
Kullanımı: /lists veya herhangi bir kanalda sağ tık yapıp Kara/Beyaz Liste Seçeneğine Tıklayabilirsiniz. Not: Örnek olması açısından sadece ekleme ve silme işlemi yaptırdım ekli nicklere herhangi bir işlem uygulamaz, kullanmak isteyen kişiler hangi işlemi yaptırmak istediğini belirtirse kod düzenlenir. Kod:
menu status,channel,menubar {
## Kara/Beyaz Liste ##:.lists
}
alias bk.yenile {
did -r lists 3,4
var %q = 1 | while %q <= $hget(beyaz,0).item { did -a lists 3 $hget(beyaz,%q).item | inc %q }
var %qq = 1 | while %qq <= $hget(kara,0).item { did -a lists 4 $hget(kara,%qq).item | inc %qq }
}
alias lists { dialog -m lists lists | bk.yenile }
on *:start: { if $isfile(beyaz.xx) { .hmake beyaz | .hload beyaz beyaz.xx } | if $isfile(kara.xx) { .hmake kara | .hload kara kara.xx } }
dialog lists {
title "Listeler"
size -1 -1 210 174
option dbu
tab "Kara Liste", 1, 6 3 198 140
list 4, 99 21 98 89, tab 1 size vsbar
edit "", 6, 12 24 83 13, tab 1
button "Ekle !", 8, 12 42 82 51, tab 1
button "Sil !", 9, 99 114 97 24, tab 1
tab "Beyaz Liste", 2
list 3, 99 21 98 89, tab 2 size vsbar
edit "", 7, 12 24 83 13, tab 2
button "Sil !", 10, 99 114 97 24, tab 2
button "Ekle !", 11, 12 42 82 51, tab 2
button "KAPAT !", 5, 6 147 199 24, cancel
}
on *:dialog:lists:sclick:*:{
if ($did = 9) {
if !$did(4).seltext { echo -a Lütfen Bir Nick Seçiniz }
else { .hdel -sm kara $did(4).seltext | .hsave kara kara.xx | bk.yenile }
}
elseif ($did = 10) {
if !$did(3).seltext { echo -a Lütfen Bir Nick Seçiniz }
else { .hdel -sm kara $did(3).seltext | .hsave kara kara.xx | bk.yenile }
}
elseif ($did = 8) {
if !$did(6) { echo -a Lütfen Kutucuğu Boş Bırakmayın | return }
elseif !$hget(kara,$did(6)) { .hadd -m kara $did(6) ok | .hsave kara kara.xx | bk.yenile | did -r lists 6 }
else { echo -a $did(6) zaten kara listede ekli }
}
elseif ($did = 11) {
if !$did(7) { echo -a Lütfen Kutucuğu Boş Bırakmayın | return }
elseif !$hget(beyaz,$did(7)) { .hadd -m beyaz $did(7) ok | .hsave beyaz beyaz.xx | bk.yenile | did -r lists 7 }
else { echo -a $did(7) zaten beyaz listede ekli }
}
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...][Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] |
