on *:text:*:#: {
  if $istok(#Admin #Kontrol #Yardim #Services,#,32) == $true { halt }
  if $istok(KiMiMBeN Radyo islam Kelime Test Oyun Bilgi Yarismaci,$nick,32) == $true { halt }
  if $hfind(kgline,$1-,1,W).data { gline $nick - 8,115 Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15Tespit Edilmistir10.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir10. 4Lutfen 15Sohbet kurallarina Uyunuz10... | msg #Admin .temizle # }
  if $hfind(kshun,$1-,1,W).data { shun $nick - 8,115 Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15Tespit Edilmistir10.15 Kosullara Gore gerekli Mudahalelerde Bulunma Uyeyi Odadan Men etme Kanali veya Rumuzu Kapatma Yasaklama ve Uyelik iptali Haklarina ve Yetkilerine Sahiptir10. 4Lutfen 15Sohbet kurallarina Uyunuz10... }
  if $hfind(kban,$1-,1,W).data { os mode # +b $nick 2 | kick # $nick 15,1 Sunucumuzda 4Reklam15/ 4Kufur15/ 4Saldiri 15/ 4Rahatsiz Edici Hareket ve Sozler Tespit Edilmistir10.15 Kurallara Uyana kadar Salondan Uzaklastirildiniz10.14Ban15Kick | msg #Admin .temizle # } 
}
alias havin { dialog -m havin havin }
dialog havin {
  title "Kelime Yasaklama"
  size -1 -1 233 247
  option dbu
  list 1, 4 12 75 175, size
  list 2, 79 12 75 175, size
  list 3, 154 12 75 175, size
  edit "", 4, 4 190 75 10
  edit "", 5, 79 190 75 10
  edit "", 6, 154 190 75 10
  text "Gline", 7, 4 2 47 8
  text "Shun", 8, 79 2 47 8
  text "Ban+Kick", 9, 154 2 64 8
  button "Ekle", 10, 23 202 37 12
  button "Ekle", 11, 97 202 37 12
  button "Ekle", 12, 174 202 37 12
  text "Silmek icin Ustune Cift tiklayin", 13, 10 222 190 8
  button "Kapat", 14, 67 233 104 12, ok
}
on *:dialog:havin:*:*:{
  if $devent == init {
    mdx MarkDialog $dname
    mdx SetDialog $dname bgcolor $rgb(230,245,252)
    mdx SetFont $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 +b Turkish 13 550 Tahoma
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 textbg $rgb(230,245,252)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 background $rgb(230,245,252)
    mdx SetColor $dname 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18 text $rgb(0,0,0)
    var %x = 1
    while (%x <= $hget(kgline,0).item) { 
      did -a havin 1 $hget(kgline,%x).data
      inc %x
    }
    var %c = 1
    while (%c <=  $hget(kshun,0).item) { 
      did -a havin 2 $hget(kshun,%c).data
      inc %c
    }
    var %t = 1
    while (%t <= $hget(kban,0).item) {
      did -a havin 3 $hget(kban,%t).data
      inc %t
    }
  }
  if $devent == dclick {
    if $did == 1 {
      .hdel -s kgline $hfind(kgline,$did($dname,1).seltext,1,W).data 
      .hsave kgline kgline.save
      did -d $dname 1 $did(1).sel
    }
    if $did == 2 {
      .hdel -s kshun $hfind(kshun,$did($dname,2).seltext,1,W).data 
      .hsave kshun kshun.save   
      did -d $dname 2 $did(2).sel
    }
    if $did == 3 {
      .hdel -s kban $hfind(kban,$did($dname,3).seltext,1,W).data 
      .hsave kban kban.save
      did -d $dname 3 $did(3).sel
    }
  }
  if $devent == sclick {
    if $did == 10 { 
      hadd -m kgline $calc($hget(kgline,0).item + 1) $did(4) 
      hsave kgline kgline.save
      did -a $dname 1 $did(4)
    }
    if $did == 11 {
      hadd -m kshun $calc($hget(kshun,0).item + 1) $did(5) 
      hsave kshun kshun.save
      did -a $dname 2 $did(5)
    }
    if $did == 12 {
      hadd -m kban $calc($hget(kban,0).item + 1) $did(6) 
      hsave kban kban.save
      did -a $dname 3 $did(6)
    }
  }
}