Oto spam,block kaldırma
 

arkadaşlar belki verilmiş bir konu olabilir araştırdım bulamadım size verecegim komut ile artık sunucunuzdaki adminlerin eklemiş oldugu spamları kolayca kaldırabileceksiniz verecek oldugum kot sadece mirc için geçerlidir umarım beyenirsiniz

;Coded By arziment

raw 229:*:{
write aspamf.txt $+($3,$chr(9)) $+($4,$chr(9)) $+($7,$chr(9)) $+($8,$chr(9)) $+($9,$chr(9)) $10-
halt
}

raw 219:*:{
halt
}

menu status,channel,query {
-
.Spamfilter:/_spamf
}

menu @Spamfilter {
.Sil: {
.spamfilter del $gettok($remove($1-,$chr(9)),1,32) $gettok($remove($1-,$chr(9)),2,32) $gettok($remove($1-,$chr(9)),3,32) $gettok($remove($1-,$chr(9)),4,32) $gettok($remove($1-,$chr(9)),6-,32)
}
-
.Yeni Giriş Ekle: {
.spamfilter add $$?="Tipi" $$?="Ceza Şekli" $$?="Süresi" $$?="Sebep" $$?="Eklenecek Kelime(ler)"
}
-
.Satırı Göster: {
if (!$window(@Satırı.Göster)) {
window -g @Satırı.Göster -1 -1 800 100 Fixedsys 11
}
.echo -tm @Satırı.Göster $remove($1-,$chr(9))
halt
}
-
.Yardım: {
if (!$window(@Spam.Yardım)) {
window -gl @Spam.Yardım -1 -1 600 400 Fixedsys 11
}
iline @Spam.Yardım 1 Spamfilter eklerken kullanılan harflerin manaları:
iline @Spam.Yardım 2 [1]c[1] : Kanal mesajları
iline @Spam.Yardım 3 [1]p[1] : Özel mesajları
iline @Spam.Yardım 4 [1]n[1] : Özel noticeleri
iline @Spam.Yardım 5 [1]N[1] : Kanal noticleri
iline @Spam.Yardım 6 [1]P[1] : Kanaldan çıkış mesajları
iline @Spam.Yardım 7 [1]q[1] : Quit mesajları
iline @Spam.Yardım 8 [1]a[1] : Away mesajları
iline @Spam.Yardım 9 [1]t[1] : Topic
iline @Spam.Yardım 10 [1]u[1] : User (nick!user@host:realname ban) Şeklinde tanımlanır
iline @Spam.Yardım 11 [1]d[1] : dcc
iline @Spam.Yardım 12 -
iline @Spam.Yardım 13 Uygulanacak hareket (ceza) şekilleri:
iline @Spam.Yardım 14 [1]kill, kline, gline, zline, gzline, shun, tempshun, block, dccblock[1]
iline @Spam.Yardım 15 -
iline @Spam.Yardım 16
4Not :
Sebep belirtilirken kelimeler arasında boşluk olmamalıdır.

iline @Spam.Yardım 17 Boşluk yerine _ kullanın. Örnek: Yasak_Kelime_Kullanımı
}
}
alias _spamf {
stats f
.timerdenemes 1 2 /_aspamfl
}

alias _aspamfl {
if ($window(@Spamfilter)) { window -c @Spamfilter } {
window -glk0 @Spamfilter -1 -1 800 600 Fixedsys 11
iline @Spamfilter 1 Eklenmiş bir spami silerken birden fazla satırı seçmeyiniz. Tek tek siliniz.
iline @Spamfilter 2 ­
4Tipi­ [1][1] ­Ceza Şekli­ ­Süresi­-­Ekleyen­-­Sebep­ - ­Eklenen Kelime(ler)­

iline @Spamfilter 3
12..................
2..................
1...........
2....................
12.......................

titlebar @Spamfilter Coded By arziment
var %s = 4
while %s <= $lines(aspamf.txt) {
var %k = $read(aspamf.txt,%s)
iline @Spamfilter %s $gettok(%k,1,32) $gettok(%k,2,32) $gettok(%k,3,32) $gettok(%k,4,32) $gettok(%k,5,32) $gettok(%k,6-,32)
inc %s
unset %k
}
remove aspamf.txt
}
halt
}




4,1 AKLımı ALmaya AkLınız YeTmez Ugraşmaya Sabrınız Yetmez Ben Kendimden Bukadar Eminken Alayınız GeLsin Hiç Farketmez

Cevap: Oto spam,block kaldırma
 

Bu kodun yazarı SaW hemen hemen her irc sitesinde bu kod var. :)

Cevap: Oto spam,block kaldırma
 

Evet Saw Bende Kullaıyorum

Cevap: Oto spam,block kaldırma
 

Alıntı:

;Coded By arziment

Oyle demeyin arkadaşımız işini biliyor :D