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

Lord_Raiden · 24 Kasım 2008, 17:09

Ö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..

SuNSeT · 24 Kasım 2008, 20:05

NetherLanDs Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Ö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..

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.

Difuzyon · 24 Kasım 2008, 20:15

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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...

Lord_Raiden · 25 Kasım 2008, 05:22

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.

Lord_Raiden · 25 Kasım 2008, 20:50

-Konu Güncel-

Difuzyon · 26 Kasım 2008, 15:43

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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Geliştirilebilir Reklam Koruması	MatheuS	mIRC Parça Kodlar	1	16 Şubat 2018 00:15
Reklam Bot Koruması	oSmanLi	Unreal IRCd	2	12 Şubat 2011 19:05
Reklam koruması Bakarmısınız	wolera	mIRC Scripting Sorunları	2	18 Haziran 2009 06:44
Reklam koruması	Alience	mIRC Scripting Hazır Kodlar	11	13 Mayıs 2008 13:52
Reklam Koruması..	hurewi	mIRC Scripting Sorunları	1	27 Haziran 2005 23:14

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.