IRCForumu.Net - Türkiye'nin IRC ve mIRC Kullanıcılarının Buluştuğu Forum

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:

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 }