karaliste {
  if (!$1) {
    dialog -m karaliste.diyalog karaliste.diyalog
    return
  }
  if ($1 == -ekle) {
    if ($2 != $null) {
      if ($2 != $me $+ !*@*) || ($replace($address($me,1),$right($address($me,1),6), $+ * $+ ) !isin $2) {
        hadd -m karaliste $2 $iif($3-,$3-,n/a)
        echo -a ——> Kara Liste....!  $+ $parantez($2) $+  başarıyla listeye eklendi. ....
        if ($dialog(karaliste.diyalog)) { did -a $ifmatch 5 $2 $iif($3-,$parantez($3-)) }
        scon -at1 bkacs
      }
    }
    else { echo -a ——> Kara Liste....!  $+ Bilinmeyen kullanıcı! $+  Lütfen IAL update olana kadar bekleyin. .... }
  }
  elseif ($1 == -temizle) {
    hdel -w karaliste *
    echo -a ——> Kara Liste....!  $+ Başarıyla $+  temizlendi. ....
    if ($dialog(karaliste.diyalog)) { did -r $ifmatch 5 }
  }
  elseif ($1 == -cikar) {
    var %i = 1,%s
    while ($hmatch(karaliste,$2,%i)) {
      hdel karaliste $hmatch(karaliste,$2,%i)
      if ($dialog(karaliste.diyalog)) {
        var %x = $did($ifmatch,5).lines
        while (%x) {
          if ($did(karaliste.diyalog,5,%x) iswm $2) { did -d karaliste.diyalog 5 %x }
          dec %x
        }
        if (!$did(karaliste.diyalog,5).sel) { did -b karaliste.diyalog 7 }
      }
      inc %s
      inc %i
    }
    if (%s) { echo -a ——> Kara Liste....!  $+ Toplam $+  $parantez(%s) $iif(%s == 1,kişi,kişi) listeden silindi. .... }
    else { echo -a ——> Kara Liste....!  $+ $parantez($2) $+  sizin listenizde değil. .... }
  }
  hsave -ob karaliste Dosyalar\Txt\KaraListe.txt
}

f3 {
  tumkanalkickban $$1 4Adios! (F3 Tuşu - Özel Kill)
  karaliste -ekle $address($$1,2) 4 Adios! (F3 Eklentisi $tarih $+ )
  karaliste -ekle $$1 $+ !*@* Adios! (F3 Eklentisi $tarih $+ )
}