[MatheuS]

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.