 |
| Yazar |
Mesaj |
CakaL
Misafir
|
 yapabilecek veya elinde olan varmı önemlidir. |
|
|
Bana Antispam bot Lazım botun özeline reklam yapılınca Zline aticak?
|
| |
|
|
21 Ekm 2006 02:14 pm |
|
Mesaj: #1  |
| Yazar |
Mesaj |
barı$
a$k beni sevmedi...
no women no cry
Kayıt: 17.08.2006
Üye no: 2
Mesaj: 6502
Başlık: 212
Şehir: AntaLyA
15608 Aşk puanı
|
|
|
|
|
alias asb.checkspamwords {
var %botchans = $numtok(%asb.chans,44)
var %bc = 1
while (%bc <= %botchans) {
if ($gettok(%asb.chans,%bc,44) isin $2) { goto end }
inc %bc
}
var %n = 1
var %totalwords $numtok(%asb.spamwords,44)
while (%n <= %totalwords) {
if ($gettok(%asb.spamwords,%n,44) iswm $2) {
if (%asb.logspam == 1) { write $scriptdirasb.spamlog.txt TIME: $date - $time | write $scriptdirasb.spamlog.txt SPAMMER: %asb.checkspammask | write $scriptdirasb.spamlog.txt AD: $gettok(%asb.checkspam,2-,32) | write -i $scriptdirasb.spamlog.txt | write $scriptdirasb.spamlog.txt 7============================================================== | write -i $scriptdirasb.spamlog.txt }
var %ct = $chan(0)
var %cn = 1
while (%cn <= %ct) {
if (($numtok(%asb.curchans,44) == 1) && ($me isop $gettok(%asb.curchans,1,44)) && ($1 !ison $gettok(%asb.curchans,1,44))) { set %asb.didkb 1 | ban -u60 $+ $calc(%asb.spamkb.mins * 60) $gettok(%asb.curchans,1,44) %asb.checkspammask %asb.spamkb.mask | goto end }
if (%asb.spamkb == 1) {
inc %gline. [ $+ [ $1 ] ]
if (%gline. [ $+ [ $1 ] ] == 1) {
gline $1 +7200 Reklam Nedeni ile Sunucumuzdan 2 Saat Banlandınız - $date - $time(hh:nn)
set %asb.didkb 1
.timer 1 10 unset %gline. [ $+ [ $1 ] ]
}
}
inc %cn
}
}
if (%asb.didkb == 1) { goto end }
inc %n
}
:end
set %asb.didkb 0
}
ASB anti spamı kullandıgını varsayarsak alias asb.checkspamwords { bu aliasi yukarda verdigim gibi değişirsen atar gline 
|
| |
|
 |
22 Ekm 2006 05:33 pm |
|
| Mesaj: #2 |
| Yazar |
Mesaj |
CakaL
Misafir
|
|
|
22 Ekm 2006 06:03 pm |
|
| Mesaj: #3 |
| Yazar |
Mesaj |
barı$
a$k beni sevmedi...
no women no cry
Kayıt: 17.08.2006
Üye no: 2
Mesaj: 6502
Başlık: 212
Şehir: AntaLyA
15608 Aşk puanı
|
|
bul indir  nerden bilim sende ne spamı var :S
|
| |
|
|
22 Ekm 2006 06:16 pm |
|
| Mesaj: #4 |
|
|
|
