Kara / Beyaz Liste Ekle Sil

Erroneous

New member
Kullanıcı
Katılım
9 Ağu 2019
Mesajlar
332
Tepkime puanı
166
Puanları
0
Yaş
38
Konum
turkiye
Cinsiyet
Erkek
Kullanımı: /lists veya herhangi bir kanalda sağ tık yapıp Kara/Beyaz Liste Seçeneğine Tıklayabilirsiniz.

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