dialog Spam {
  title "                                 SuperAlem  Spamfilter Ekleme Asistanı"
  size -1 -1 242 168
  option dbu
  combo 1, 3 37 61 50, size  drop
  text "SEBEB:", 2, 3 5 46 8, center
  text "Eklenecek Kelime", 4, 3 18 45 8, center
  check "Özel Mesajlar", 5, 71 49 50 10
  check "Kanal Mesajları", 7, 71 39 50 10
  check "Özel Notice", 8, 126 39 43 10
  check "KanaL Notice", 9, 126 49 40 10
  check "Kanaldan Çıkış Mesajı", 10, 173 39 64 10
  check "Quit Mesajları", 11, 173 49 64 10
  check "Away Mesajları", 12, 71 59 50 10
  check "Topicler", 13, 126 59 43 10
  check "Dcc Mesajları", 14, 173 59 50 10
  check "nick!user@host", 15, 71 69 50 10
  edit "-", 22, 143 69 65 8 
  box "Mesaj Seçenekleri", 6, 69 29 169 52 ,result
  text "Süre", 19, 126 70 15 8, center
  combo 3, 50 4 190 100, size edit hsbar  drop
  check "YARDIM ?", 16, 3 71 63 8 , push
  text "Bilgi", 17, 2 122 239 32
  button "EKLE", 18, 3 59 63 8
  edit "Yasaklanacak Kelime... ", 20, 50 17 189 10
  box "Ceza Tipi", 21, 1 29 69 28 ,result
  check "Spamları txt Dosyasına Kaydet", 24, 5 92 91 10
  check "Sebebleri Gösterme", 25, 5 102 91 10
  check "Dosyayı Kaydettikten Sonra Göster", 26, 133 92 101 10
  check "Satırları Numaralandır", 27, 133 103 101 10
  box "Extra Ayarlar", 23, 3 84 235 35 ,result
  link "[Link'i Görebilmeniz İçin Kayıt Olunuz.! Kayıt OL]", 28, 2 158 52 8
  text "Set By:   KaaN ", 29, 152 158 88 8, disable center
}
on *:dialog:Spam:*:*:{ 
  if ($devent == init) { 
    dialog -s Spam  -1 -1 485 165
    did -a $dname 1 Kill  | did -a $dname 1 KLine |   did -a $dname 1 GLine   |  did -a $dname 1 ZLine
    did -a $dname 1 GZLine | did -a $dname 1 Shun | did -a $dname 1 TempShun | did -a $dname 1 Block
    did -a $dname 1 DCCBlock |  did -a $dname 1 virusChan
    $iif($isfile(sebeb.txt) == $true,loadbuf -o $dname 3 sebeb.txt,write sebeb.txt) 
    did -a $dname 3  Server_kurallarina_uymadiginiz_icin_serverdan_uzaklastirildiniz.[Link'i Görebilmeniz İçin Kayıt Olunuz.! Kayıt OL]
    did -a $dname 3  AKILLI_OL_AKLINI_ALIRIM_www.Sperakem.Com
    did -a $dname 3 ---
    if (%num == açık) {  did -c $dname 27  }
    if (%run == on)  {  did -c $dname 26  }
    if (%kaydet == açık) {   did -c $dname 24 }
    if (%sebebler == kapalı) {  did -c $dname 25 }  
    if (%kaydet == kapalı) {   did -b $dname 26 }
  }
  if ($devent == sclick) { 
    if ($did == 28) {  run [Link'i Görebilmeniz İçin Kayıt Olunuz.! Kayıt OL]   }
    if ($did == 16) {  $iif($did(16).state == 1,dialog -s  Spam -1 -1 485 340,dialog -s Spam  -1 -1 485 165) }
    if ($did == 5)  {  $iif($did(5).state == 1,set %tip  $addtokcs(%tip,p,46),set %tip $remtokcs(%tip,p,1,46))    }
    if ($did == 7)  {  $iif($did(7).state == 1,set  %tip  $addtokcs(%tip,c,46),set %tip $remtokcs(%tip,c,1,46))    }
    if ($did == 8)  {  $iif($did(8).state == 1,set %tip  $addtokcs(%tip,n,46),set %tip $remtokcs(%tip,n,1,46))    }
    if ($did == 9)  {  $iif($did(9).state == 1,set %tip  $addtokcs(%tip,N,46),set %tip $remtokcs(%tip,N,1,46))    }
    if ($did == 10)  {  $iif($did(10).state == 1,set %tip  $addtokcs(%tip,P,46),set %tip $remtokcs(%tip,P,1,46))    }
    if ($did == 11)  {  $iif($did(11).state == 1,set %tip  $addtokcs(%tip,q,46),set %tip $remtokcs(%tip,q,1,46))    }
    if ($did == 12)  {  $iif($did(12).state == 1,set %tip  $addtokcs(%tip,a,46),set %tip $remtokcs(%tip,a,1,46))    }
    if ($did == 13)  {  $iif($did(13).state == 1,set %tip  $addtokcs(%tip,t,46),set %tip $remtokcs(%tip,t,1,46))    }
    if ($did == 14)  {  $iif($did(14).state == 1,set %tip  $addtokcs(%tip,d,46),set %tip $remtokcs(%tip,d,1,46))    }
    if ($did == 27)  {  $iif($did(27).state == 1,set %num  açık,set %num kapalı)    }  
    if ($did == 26)  {  $iif($did(26).state == 1,set %run  on,set %run off)    }  
    if ($did == 24)  { 
      if ($did(24).state == 1) { set %kaydet  açık  | did -e $dname 26 } 
      else {  set %kaydet kapalı | did -b  $dname 26 }   
    }  
    if ($did == 25)  {  $iif($did(25).state == 0,set %sebebler  açık,set %sebebler  kapalı)    }   
    if ($did == 15) { $iif($did(15).state == 1,set %tip  $addtokcs(%tip,u,46),set %tip $remtokcs(%tip,u,1,46)) }
    if ($did == 18) { 
      if ($did(1).sel == 0) {   halt  $input(Lütfen Ceza Tipi Seçiniz.,oiud,UYARI)    }
      if ($did(3).sel == 0) {  
        if (%sebeb == $null) {  halt  $input(Lütfen Sebep Seçiniz.  veya Yazınız.,oiud,UYARI)    }
      }  
      if ($len(%tip) <=  0) {   halt  $input(Lütfen Mesaj Tipi Seçiniz..,oiud,UYARI)   }  
      if ($did(20) == $null) && (%ekle == $null)  {  halt  $input(Lütfen Yasaklamak İstediğiniz Kelimeyi Yazınız...,oiud,UYARI)   }
      if (%sebeb == $null) {  spamfilter add  $remove(%tip,.) $did(1) $did(22) $did(3)  $did(20)    }
      if (%sebeb != $null) {  spamfilter add  $remove(%tip,.) $did(1) $did(22) %sebeb   $did(20)    }
    }
  }
  if ($devent == edit) { 
    if ($did == 3) {   
      if ($did(3) != $null) {  set %sebeb   $replace($did(3),$chr(32),$chr(95))  | did -a  $dname 3 $replace($did(3),$chr(32),$chr(95))   }   
    }
    if ($did == 20)  {    $iif($did(20) != $null,set %ekle $did(20))   }
  }
  if ($devent == close) { 
    write sebeb.txt %sebeb
    unset %ekle | unset %sebeb |  set %tip
  }
  if ($devent == mouse) {
    if ($did == 3) {    did -ra  $dname  17  Kendi Mesajını Yazmanızı Yada Daha Önce Yazdığınız Bir Mesajı Sebeb Olarak Belirtilir.  $crlf  Boşluk Karakterleri Otomatik  ( _ ) Alttire Yeçevrilir Hata Yapma Oranı 0 Olması için.  $crlf    ( _ ) Alttire Girerseniz işlev Yapılmaz. Normal Tanımlanır..  Değişen Mesajlar Otomatik Eklenir.    }
    if ($did == 5) {  did -ra  $dname 17 Kulanıcıların Özeline Yazılan Mesajlar Manasındadır. $crlf  Yasaklayacağınız Kelime Birinin Özeline Yazarsa Aktif olur.    }
    if ($did == 12) {  did -ra  $dname 17 Away Mesajları    Eğer Kişiler Away olurken  Away Mesajlarında Eklediğiniz  Geçiyorsa    Uyguladığınız İşlem Yapılır.  }
    if ($did == 8) {  did -ra  $dname 17 Özel Notice   Direk Kullanıcıya Gönderilen Mesajlar Anlamındadır  }
    if ($did == 9) {  did -ra  $dname 17 Kanala Gönderilen Notice   Eğer Bir Kullanıcı Herhangi Bir Kanala Notice Gönderirse Anlamındadır.    }
    if ($did == 13) {  did -ra  $dname 17   Kanal Topicleri   Herhangi Bir Kanalın Topic i Değiştiğinde  Aktif Olur   } 
    if ($did == 14) {  did -ra  $dname 17   DCC Mesajlar   Açılımı:  Direct Client  Connection    Bağlantı Kurulurken   Mesajlaşma   Esnasında Aktif olur..   }
    if ($did == 11) {  did -ra  $dname 17   Quit Mesajları     Kişiler Sunucudan Çıkarken  "/quit Mesaj" Şeklinde Komut Kullandıkların Aktif Olur..     }
    if ($did == 10) {  did -ra  $dname 17  Kanaldan Çıkış Mesajları    Kişiler Kanaldan Çıkmadan Hemen Önce Yolladığı Mesajlarda Aktif Olur.  }
    if ($did == 6) {  did -ra  $dname 17   Nick!user@Host:realname    Bir  Nick i veya İdenti yada bir Host u Yasaklamak İçin Kullanılır.   }
    if ($did == 22) {  did -ra $dname 17 Zaman Biçmi Tanımlamanız İçindir ( - ) Tire Karakteri Varsayılan Zamanı Temsil Etmektedir..   $crlf  Eğer Farklı Bir Zaman Çeşidi Girmek İsterseniz Saniye Cinsinden Belirtmelisiniz  $crlf  Yada Spamfilter Zaman Birimlerini Biliyorsanız  O Şekilde Girersiniz Ne yazlı ise Onu Yansıtmaktadır..   } 
    if ($did == 24) {  did -ra $dname 17 Spamfilter Den Gelen Tüm Yazıları txt Dosyasına Kaydeder  ; Fakat Bu bir Karışıklığa Yol Açmasın Diye Dialog Kapandığında Silinir.  Üst Üste Yığınlar Sizi Yanıltabilir..  }
    if ($did == 25) {  did -ra $dname 17  Bu Seçenek Seçilirse @Spam  Penceresinde Sebebler Görüntülenmez...   }
    if ($did == 27) {  did -ra $dname 17  Takibi Kolay Olması Açısından Satırları Numaralandırır.   }
    if ($did == 26) {  did -ra $dname 17  Eğer Dosyayı Kaydetmeyi Seçtiyseniz ; Dosyaya Yazıldıktan Sonra İncelemeniz İçin Dosyayı Görüntüler...  }
    if ($did == 29) {  did -ra $dname 17  [Link'i Görebilmeniz İçin Kayıt Olunuz.! Kayıt OL] un   1 Numaralı Coderi :)   Yardıma İhtiyacınız Olduğunda Beklerim irc.superalem.com  Nick:  KaaN   }
  } 
}
alias spamf { $iif(!$dialog(spam),dialog -ma Spam Spam,dialog -x Spam)  } 
menu channel,status,menubar { 
  Spam Filter
  .Göster:{ 
    if (@Spamlar) { window -l @Spamlar |  stats f    }
    else {  clear @Spamlar  |  stats f    }
  }
  .-
  .Ekle:.spamf
}
menu @Spamlar {  
  $iif($1,SiL):.set %kaldır   $read(spam.kaan,$sline(@spamlar,1).ln) | .spamfilter del   $gettok($eval(%kaldır,1),1-2,32) $gettok($eval(%kaldır,1),5-6,32) $gettok($eval(%kaldır,1),8-,32)   |   write  $+(-dl,$sline(@spamlar,1).ln) Spam.KaaN      |  dline  @Spamlar  $sline(@spamlar,1).ln  | unset %kaldır      
  $iif($1,Göster):{
    if (!$window(@SpamDetay)) {    window   @SpamDetay  | aline -hp @SpamDetay  $read(spam.kaan,$sline(@spamlar,1).ln)     }
    else {  clear @Spamdetay | aline -hp @spamdetay $read(spam.kaan,$sline(@spamlar,1).ln)   }
  }
}
raw 229:*:{ 
  tokenize 32 $1-
  inc %numara
  if (%num == açık) { var %numar  $+(4[,%numara,]) }
  $iif(%sebebler == kapalı,aline  -hp  @Spamlar  %numar   $3-6 $9 $+(12,$10-),aline  -hp  @Spamlar  %numar   $3-)     
  if (%kaydet == açık) {  write  Spamlar.txt   $3-  } 
  write  spam.kaan $3-
  halt
}
raw 219:*:{ 
  set %numara 0
  if (%run == on) {  run  Spamlar.txt   }
}
on 1:CLOSE:@Spamlar:.remove spam.kaan |  .remove spamlar.txt