Tam Detaylı Reklamları Yakalayabilen Değilde Kurtuluşu Olabilen Korumalarla Karşılaştım ve Şöyle Bir Alternatif Sunmak İstedim Geliştirilirse Güzel Olur Diye Düşünüyorum.
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:TEXT:*:#: {
var %rklm $1-
var %rklm $remove(%rklm,$chr(6),$chr(1),$chr(31),$chr(32),$chr(33),$chr(34),$chr(35),$chr(39),$chr(40),$chr(41),$chr(42),$chr(43),$chr(44),$chr(45),$chr(46),$chr(47),$chr(58),$chr(59),$chr(60),$chr(61),$chr(62),$chr(63),$chr(64),$chr(91),$chr(92),$chr(93),$chr(94),$chr(95),$chr(96),$chr(123),$chr(124),$chr(125),$chr(126))
var %net = 1
while %net <= $lines(reklamuaf.txt) {
if $read(reklamuaf.txt,%net) isin %rklm {
goto son
}
inc %net
}
var %a = 1
while %a <= $lines(reklam.txt) {
if $read(reklam.txt,%a) isin %rklm {
.set %yrklm %rklm
.kill $nick 4... Sunucumuzda Reklam Yapmak Yasaktır! %xlogo
.yreklam
}
inc %a
}
:son
}
alias yreklam { .timeryreklam 1 2 .echo -a 5*** $chr(91) $+ $time(HH:nn) $+ $chr(93) $chr(2) $+ RekLam Tespit EdiLdi: $+ $chr(2) $+ $chr(3) $+ 4 %yrklm $+ $chr(3) | unset %yrklm }
ektede txt leri verdim yakalanabilecek aklıma gelenleri yazdım. net kelimesinde emaneti bile yakaladığı için sonu net ile biten kelimeleri muaf kısmına koydum daha aklınıza gelen varsa ekleme yapabilirsiniz.