KaaN
21 September 2008, 06:39
Henüz Tamamladığım Spamfilter Addonu Fırından yeni çıktı taze taze :D
operler için gereken bir şey sebeb ise yapılan hatalar Bu kod hata oranını 0 a indirmek için tarafımca yazılmıştır..
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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 "[Only Registered Users Can See Links] ([Only Registered Users Can See Links])", 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_uzak lastirildiniz.[Only Registered Users Can See Links]
did -a $dname 3 AKILLI_OL_AKLINI_ALIRIM_[Only Registered Users Can See Links]
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 [Only Registered Users Can See Links] }
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 [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) 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
Ben Herhangi Bir hata bulamadım ama hatasını bulup buraya yazarsanız sevinirim çok işlevli bir addon dur
operler için gereken bir şey sebeb ise yapılan hatalar Bu kod hata oranını 0 a indirmek için tarafımca yazılmıştır..
[Only Registered Users Can See Links] ([Only Registered Users Can See Links])
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 "[Only Registered Users Can See Links] ([Only Registered Users Can See Links])", 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_uzak lastirildiniz.[Only Registered Users Can See Links]
did -a $dname 3 AKILLI_OL_AKLINI_ALIRIM_[Only Registered Users Can See Links]
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 [Only Registered Users Can See Links] }
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 [Only Registered Users Can See Links] ([Only Registered Users Can See Links]) 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
Ben Herhangi Bir hata bulamadım ama hatasını bulup buraya yazarsanız sevinirim çok işlevli bir addon dur