IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - reklam koruması. (https://www.ircforumlari.net/mirc-scripting-sorunlari/159997-reklam-korumasi.html)

reklam koruması.

Özelimde birisi @,hot,tıkla,gel gibi reklam cümleleri kurdugunda o an hangi kanallardaysam belirttiğim ibareleri kullananları kanaldan kicklesin..

Kodu anlatımlı olarak yazıp mantıgını açıklarsanız sevinirim..

Cevap: reklam koruması.

Alıntı:

NetherLanDs Nickli Üyeden Alıntı (Mesaj 592558)

on 1:TEXT:*:?: {
;? eger mesaj özele yazılırsa
if $me !isop $comchan($nick,1) { halt }
;ben kanal'da op isem. Ortak kanal sorgusu cekiyor nick'e.
if $nick isop $comchan($nick,1) { halt }
;Nick kanalda op ise,
if (tıkla isin $1-) || (hotmail isin $1-) || (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
isin $1-) {
;özele yazılan cümlede, "tıkla, hotmail,
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kelimeleri kullanılırsa
mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick Özelime Reklam Yapmayınız..
;Ortak bulundugum bir kanaldan nick'i banla, ve at..
}
}
hatam varsa, düzeltir diger arkadaşlar,
umarım faydalı olur, kolay gelsin.

Cevap: reklam koruması.

Kod:

on *:text:*:?:{

  if $regex($1-,(?<=^|\s)(tıkla|tikla|ekle|hot|@|@hotmail|)(\s|$)) && ($comchan($nick,0) !== 0) {

    var %Cnk 1

    while %Cnk <= $comchan($nick,0) {

      if $me isop $comchan($nick,%Cnk) { 

        mode $comchan($nick,%Cnk) +b $nick

        kick $comchan($nick,%Cnk) $nick Reklam yapmak yasaktır!

      }

      inc %Cnk

    }

  }

}

Özeline yazılacak kelime(ler),aralarında boşluk olmak(cümle içinde) yada cümle başlarında veya cümle sonlarında bitmek koşuluyla ve bunu yazan $nick ile ortak bulunduğum kanal sayısı 0 değil ise(şayet 0 ise ban + kick işlemini uygulayacağım kanal yok demektir,boşuna işlem yapmaması için),

$nick ile bulunduğum ortak kanalları döngü işlemine al ve bu kanallarda ben op isem, ban + kick işlemi uygula.

İyi paylaşımlar...

Cevap: reklam koruması.

on 1:TEXT:*:?: {
if $me !isop $comchan($nick,1) { halt }
if $nick isop $comchan($nick,1) { halt }
if (tıkla isin $1-) || (hotmail isin $1-) || (@ isin $1-) {
timer 1 1 cs op $comchan $me
timer 1 3 mode $comchan($nick,1) +b $nick | kick $comchan($nick,1) $nick Banladınız
timer 1 5 cs deop $comchan $me
}
}

Bu kodu yaptıgımda script donuyor ek olarak ilave ettiğim;
deoptan opa çıkma
ve opken ban atma.

İşlemleri yapıyor ama scriptide donduruyor.

Cevap: reklam koruması.

$comchan yazan yerleri $comchan($nick,1) şeklinde değişmelisin,belirtmiş olduğun kodda...