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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   Tblock Remotesi (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/778603-tblock-remotesi.html)

nikotin 05 Aralık 2017 16:55
Tblock Remotesi
 
Selam arkadaşlar.
Bu gün paylaşıcagım kodlardan biri tblock remotesi.
bundan önce ki paylaştıgım sus remotesin de oldugu gibi bunda da
prefix +/+h/@/~ /muafnick/muafkanal/muafident/muafhost mevcut.

remotenin en altında #unblok on / off aliası ise, kanal banliste ekli olan tblocklar sizin veya bir baskası tarafından acılırsa -b oto (+b) blok ekler tekrardan.
alias /unblokon
alias /unblokoff
ama buna gerek yok sadece bi kanalda tekrar ekleme yapsın derseniz aşagıdakini kullanmanız yeterli.
off *:unban:#kanal:{ if (*~T:bl* iswm $banmask) { mode # +b $banmask } }

buda F tusu ile aktif kanalda blok eklemenize yarar. (kalsın işinize yarar)
F1 mode # +b ~T:block:* $+ $+($$?="Kelime") $+ *

aşagıda ki listede yaklasık 800 e yakın blok var.
bunların cogunlugu saldırı, yazı flood girşimlerini engellemek amaçlı tarafımdan tek tek eklenen bloklar. (dileyen sil bastan yapabilir)
elimden geldigince kanalda ki normal kullanıcılar etkilenmicek sekilde eklemeye calıştım.

bu remote (#unblok aliası) acık ise ara sıra mirce bakmak zorundasınız çünkü;
1. mirci simge haline getirip oyun, film, sohbete e dalarsanız hiç birşeyden haberiniz yok iken
tarafınızdan kanaldaki tüm kullanıcılar etkilenecek sekilde +b blok alırsınız sıkıntı olur.
adamlar banı acmaya ugraşırlar siz yine +b yaparsanız nerden baksanız sorun yani.
böyle durumlarda (unblok oto +b) yi kapatmanızı öneririm.

not:
bu sekilde *))* parantez eklerseniz gecersiz format uyarısı alırsınız.
parantez ekleme örnekleri listede var ona göre ekleyebilirsiniz.
ayrıca liste icinde nikoox yazan yerler boş sayılır. yeni kelime ekleme yapacaksanız bunları silip ekleyebilirsiniz.

benim gibi saldırı engellemekten büyük haz alan arkadasların da işlerine yarıyacagını ve keyf alacaklarını umuyorum.

son olarak ileri ki günlerde oper admin iken güvenlik amaçlı kullandıgım remoteleride paylaşıp IRC mIRC sayfasını kapatarak uzaklaşacam artık inş.


Kod:
alias bblock { mode $chan +b $replace($+(~T:block:,%block),$chr(32),_) | join $chan | .window -en  @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | aline -h 04  @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]  $chan kanalında1 $nick nickinin yazdığı1 %block kelimesi blocklandı. }

#block off
On *:TEXT:*:#:if ($_block(#,$nick,$1-)) bblock $nick
#block end
; $_block(kanal,nick,yazi)
alias -l _block {
  if ($server == irc.sunucu.com) {
    if ($2 isop $1) || ($istok(#muafkanal #muafkanal #muafkanal,$chan,32)) return
    if ($regex($token($token($address($nick,5),2,33),1,64),/(muafident1|muafident2|muafident3)/i)) { return }
    if ($nick !isreg $chan) { return }
    if ($istok(muafnick muafnick muafnick,$nick,32)) { halt }
    if ($regex($wildsite,/(muafhost|muafhost|muafhost|Global|helper|admin|ircop|tech|server|services|network)/i)) { halt }
    if (*shiği* iswm $3-) || (*QP€R* iswm $3-) || (*bajın* iswm $3-) || (*C!KL€R* iswm $3-) || (*EYF!N* iswm $3-) || (*S€X* iswm $3-) || (*BAJIN* iswm $3-) || (*qömer* iswm $3-) goto ok
    if (*ør4s* iswm $3-) || (*beton*döke* iswm $3-) || (*Sookar* iswm $3-) || (*orbu co* iswm $3-) || (*sk1c* iswm $3-) || (*ib-in* iswm $3-) || (*s2k* iswm $3-) || (*Hay4t* iswm $3-) goto ok
    if (*dümbük* iswm $3-) || (*s4*şiyor* iswm $3-) || (*ip- -ne* iswm $3-) || (*karın*KIZIN* iswm $3-) || (*shıge* iswm $3-) || (*SİTE*SEKS* iswm $3-) || (*kırkk*bii* iswm $3-) goto ok
    if (*k0yaa* iswm $3-) || (*çoo-cu* iswm $3-) || (*orr*rsp* iswm $3-) || (*An_nes* iswm $3-) || (*c o m* iswm $3-) || (*ORSPU* iswm $3-) || (*BETON DOKE* iswm $3-) goto ok
    if (*ANNENIN A* iswm $3-) || (*özelde mum* iswm $3-) || (*sülalen* iswm $3-) || (*òr0zß* iswm $3-) || (*ann-nes* iswm $3-) || (*? ibine ?* iswm $3-) || (*K-e-r-h-a-n-e* iswm $3-) goto ok
    if (*emdirice* iswm $3-) || (*yaaRaağ* iswm $3-) || (*kızlıgın* iswm $3-) || (*s3k*ceğim* iswm $3-) || (*deyyus* iswm $3-) || (*s2 ki* iswm $3-) || (*kappen* iswm $3-) goto ok
    if (*kerhane* iswm $3-) || (*sii*ikker* iswm $3-) || (*yavv*vşak* iswm $3-) || (*ananı bac* iswm $3-) || (*baccın* iswm $3-) || (*ananı 10* iswm $3-) || (*zıkerım* iswm $3-) goto ok
    if (*Zik3y!m* iswm $3-) || (*sikece* iswm $3-) || (*yedi cettin* iswm $3-) || (*jojuq* iswm $3-) || (*sıhıver* iswm $3-) || (*Sehnın* iswm $3-) || (*SOUKUCAM* iswm $3-) || (*P  K    K* iswm $3-) goto ok
    if (*gohtun* iswm $3-) || (*sokayım* iswm $3-) || (*anacigini* iswm $3-) || (*becerme* iswm $3-) || (*dollum* iswm $3-) || (*m+ı* iswm $3-) || (*s+k* iswm $3-) || (*d+m* iswm $3-) goto ok
    if (*y+n* iswm $3-) || (*şarlolar* iswm $3-) || (*adhmin* iswm $3-) || (*şebbeg* iswm $3-) || (?????? :?* *D*e*r*d*o* iswm $3-) || (*qaLtah* iswm $3-) || (*sühüce* iswm $3-) || (*GaltaK* iswm $3-) goto ok
    if (*zühmey* iswm $3-) || (*meraqL* iswm $3-) || (*NeySan* iswm $3-) || (*bæchin* iswm $3-) || (*ohrsp* iswm $3-) || (*Kehpee* iswm $3-) || (*y?havsak* iswm $3-) || (*Annnnız* iswm $3-) goto ok
    if (*KİLOD* iswm $3-) || (*annCiğ* iswm $3-) || (*annCiğ* iswm $3-) || (*amsuyu* iswm $3-) || (*gööt* iswm $3-) || (*soksam* iswm $3-) || (*ko rum* iswm $3-) goto ok
    if (*onun bunu cocu* iswm $3-) || (*annene* iswm $3-) || (*s1hk* iswm $3-) || (*$k€r* iswm $3-) || (*SjKéR* iswm $3-) || (*ZİKER* iswm $3-) || (*Faişe* iswm $3-) || (*$iker* iswm $3-) goto ok
    if (*Sikicem* iswm $3-) || (*Ahnnen* iswm $3-) || (*a*m!na* iswm $3-) || (*S!ker* iswm $3-) || (*A.-n.-n* iswm $3-) || (*Goytler* iswm $3-) || (*mnkeNNn* iswm $3-) || (*kukuku* iswm $3-) goto ok
    if (*$!ker* iswm $3-) || (*t0t0s* iswm $3-) || (*A..mC* iswm $3-) || (*sijece* iswm $3-) || (*ikicejjj*m* iswm $3-) || (*K.*üL.*Od* iswm $3-) || (*K.*aŞ.*ŞaR* iswm $3-) || (*Yav-$ak* iswm $3-) goto ok
    if (*G4V4T* iswm $3-) || (*>AMINA<* iswm $3-) || (*A...na* iswm $3-) || (*S...iik* iswm $3-) || (*$okum* iswm $3-) || (*totosh* iswm $3-) || (*pıııjj* iswm $3-) || (*kajar* iswm $3-) goto ok
    if (*G.a.y* iswm $3-) || (*Siik*tiĞ* iswm $3-) || (*KaaŞ*ŞaaR* iswm $3-) || (*AnnaSın* iswm $3-) || (*sii*ccmm* iswm $3-) || (*Bozhuk* iswm $3-) || (*? phicin ?* iswm $3-) || (*hohoho* iswm $3-) goto ok
    if (*zıggtı* iswm $3-) || (*s K ti* iswm $3-) || (*A . M . E* iswm $3-) || (*L . A . N* iswm $3-) || (*Dötüne* iswm $3-) || (*T0piŞ* iswm $3-) || (*Oprsp* iswm $3-) || (*Şii*Jee* iswm $3-) goto ok
    if (*ŞiiJe* iswm $3-) || (*O.-ruS* iswm $3-) || (*@*(V)* iswm $3-) || (*d0maL* iswm $3-) || (*n-/-e-/-t* iswm $3-) || (*S.i.k.i.l* iswm $3-) || (*W , W , W* iswm $3-) || (*C , o , M* iswm $3-) goto ok
    if (*--c--* iswm $3-) || (*--w--* iswm $3-) || (*C o  m* iswm $3-) || (*İMZA*HAMBURGLU* iswm $3-) || (*ya r r*rR* iswm $3-) || (*? urspo ?* iswm $3-) || (*? sterim ?* iswm $3-) || (*? ğumun bebesi ?* iswm $3-) goto ok
    if (*Huıılk* iswm $3-) || (*Jaki OnLi* iswm $3-) || (*a.n.a.n* iswm $3-) || (*//A//* iswm $3-) || (*N3N* iswm $3-) || (*4naLar* iswm $3-) || (*bajı*nız* iswm $3-) || (?????? : ?* iswm $3-) goto ok
    if (*k-^E* iswm $3-) || (*hull*k*geld* iswm $3-) || (*[C][L]* iswm $3-) || (*[A][M]* iswm $3-) || (*M-/A-/S-/T* iswm $3-) || (*k..a...m* iswm $3-) || (*M.?.S.T.?.R* iswm $3-) || (*sgrm* iswm $3-) goto ok
    if (*hullık* iswm $3-) || (*N*0ig*htw* iswm $3-) || (*s-o--q* iswm $3-) || (*a-n-e-n* iswm $3-) || (*K+A+T* iswm $3-) || (*? oLun uLan ?* iswm $3-) || (*Ohhhro* iswm $3-) || (*? tpbun ?* iswm $3-) goto ok
    if (*K + A + T* iswm $3-) || (*an3 nin* iswm $3-) || (*an3nin* iswm $3-) || (*|??|* iswm $3-) || (*@namı* iswm $3-) || (*zi qcem* iswm $3-) || (*Ohros* iswm $3-) || (*K~a~m* iswm $3-) goto ok
    if (*? ad min ?* iswm $3-) || (*sii*kk*ee*cc*ee*m* iswm $3-) || (*? S.|k.?rm* iswm $3-) || (*N-e-t* iswm $3-) || (*S1z1n* iswm $3-) || (*Anha1n* iswm $3-) || (*oro*puuu* iswm $3-) || (*Mirc.t/k* iswm $3-) goto ok
    if (*Zik1yo* iswm $3-) || (*S.-en* iswm $3-) || (*A.-na* iswm $3-) || (*.B*c.|n|*  iswm $3-) || (*s1k* iswm $3-) || (*Arka deliğine* iswm $3-) || (*Sizi Doguranın* iswm $3-) || (*Aynnene* iswm $3-) || (*ÔN€* iswm $3-) goto ok
    if (*Zıkın ben* iswm $3-) || (*sii*kk*tt*gg* iswm $3-) || (*kaaaŞŞ* iswm $3-) || (*ŞiiJe* iswm $3-) || (*Şii*Jee* iswm $3-) || (*T..o...o* iswm $3-) || (*CLL*oo*Ne* iswm $3-) || (*Oprsp* iswm $3-) goto ok
    if (*? An_NeCigi* iswm $3-) || (*kee*ss*kk* iswm $3-) || (*€S]{in* iswm $3-) || (*kéSk* iswm $3-) || (*|{*es*qi*n* iswm $3-) || (*== ? ==* iswm $3-) || (*Annem*fahıse* iswm $3-) || (*baa h ciina* iswm $3-) goto ok
    if (*sii ccmm* iswm $3-) || (*aL-paÇ* iswm $3-) || (*baba*hu*ı*l*k*gel*di* iswm $3-) || (*Ic''C'aM* iswm $3-) || (*Lo''N* iswm $3-) || (*Dohtun* iswm $3-) || (*? Dherim ?* iswm $3-) || (*Ghtunde* iswm $3-) goto ok
    if (*? S__i__k ?* iswm $3-) || (*s.r.f.siz* iswm $3-) || (*A..na* iswm $3-) || (*Cap Cap* iswm $3-) || (*M€z@* iswm $3-) || (*Sikerler* iswm $3-) || (*Sikerler* iswm $3-) || (*S-k_rm* iswm $3-) goto ok
    if (*Do_gu_ra_n* iswm $3-) || (*a-Na-n-a-m* iswm $3-) || (*s-ıc-a-r* iswm $3-) || (*G0tten* iswm $3-) || (*4nn3N* iswm $3-) || (*S1k3* iswm $3-) || (*B0şal* iswm $3-) || (*B0şal* iswm $3-) goto ok
    if (*K + A + T* iswm $3-) || (*A?h?i?s?k?a?l*i* iswm $3-) || (*Skerım* iswm $3-) || (*sedat*bucak* iswm $3-) || (*n*oo]* iswm $3-) || (*Scehirm* iswm $3-) || (*A..NN..E* iswm $3-) || (*S...İ..K* iswm $3-) goto ok
    if (*? ænan ?* iswm $3-) || (*? ? ? ½ ?* iswm $3-) || (*? ? ? ´ ?* iswm $3-) || (*IDONCER-----S-I-K* iswm $3-) || (*? ? ? ”* iswm $3-) || (*? ? ? ¤* iswm $3-) || (*? ? ? ñ* iswm $3-) || (*? ? ? ©* iswm $3-) goto ok
    if (*R g j Ô* iswm $3-) || (*D f j § ”* iswm $3-) || (*_ ? ? é* iswm $3-) || (*? ? ? —* iswm $3-) || (*? ? ? Ê* iswm $3-) || (*K.*üL.*Od* iswm $3-) || (*!'/=?* iswm $3-) || (*mcx :$* iswm $3-) goto ok
    if (*? Bahcın? ?* iswm $3-) || (*bbb*b*beic*ee* iswm $3-) || (*hìic* iswm $3-) || (*bßbeêh* iswm $3-) || (*ßêh* iswm $3-) || (*kopru altı* iswm $3-) || (*nkotn* iswm $3-) || (*nkotin* iswm $3-) goto ok
    if (*admiin* iswm $3-) || (*? ahdminler ?* iswm $3-) || (*Tohpun* iswm $3-) || (*Sheyim* iswm $3-) || (*Orojb* iswm $3-) || (*Bee*hii*ice* iswm $3-) || (*sohbetsevdam* iswm $3-) goto ok
    if (*oo*rzz*bb*buu* iswm $3-) || (*? yiyistigin ?* iswm $3-) || (*Dj*|*Behice* iswm $3-) || (*GuvenLik*ciLer* iswm $3-) || (*Sherim* iswm $3-) || (*!'/=?* iswm $3-) goto ok
    if (*mcx :$* iswm $3-) || (*? Bahcın? ?* iswm $3-) || (*? basarim ?* iswm $3-) || (*? *Skeeee*em ?* iswm $3-) || (*k@hbe* iswm $3-) || (*tblcklar* iswm $3-) || (*tblcklr* iswm $3-) || (*K..İİ.M* iswm $3-) goto ok
    if (*göğüsler* iswm $3-) || (*Shecem* iswm $3-) || (*kaltaq* iswm $3-) || (*ßehicé* iswm $3-) || (*W'*''c''0''m* iswm $3-) || (*Béhice* iswm $3-) || (*C*LòNè* iswm $3-) || (*SÊX* iswm $3-) goto ok
    if (*yarraa* iswm $3-) || (*? zigecem?* iswm $3-) || (*? sigecem ?* iswm $3-) || (*s’k’r* iswm $3-) || (*züppe* iswm $3-) || (*s''kR* iswm $3-) || (*k''a'r* iswm $3-) || (*? g ö tü ?* iswm $3-) goto ok
    if (*an  sı n* iswm $3-) || (*si qecem* iswm $3-) || (*? kayıtsızlar ?* iswm $3-) || (*S-ür-tüq* iswm $3-) || (*? DeLıqe ?* iswm $3-) || (*sohbette org* iswm $3-) || (*VUHALDEN* iswm $3-) || (*TÖLLİYİM* iswm $3-) goto ok
    if (*LôNÈ* iswm $3-) || (*SuiKaST* iswm $3-) || (*q öt`e* iswm $3-) || (*Mister`* iswm $3-) || (*? aqzina ?* iswm $3-) || (ßukre* iswm $3-) || (*d0m alip* iswm $3-) || (*fai sh* iswm $3-) goto ok
    if (*S.tyL* iswm $3-) || (*ke'rh* iswm $3-) || (*gev'şe* iswm $3-) || (*ch.iLd* iswm $3-) || (*Nu''x* iswm $3-) || (*L'İ''N* iswm $3-) || (*pk'tır* iswm $3-) || (*? amına ?* iswm $3-) || (*qothun* iswm $3-) goto ok
    if (*götünü* iswm $3-) || (*? o r g ?* iswm $3-) || (*piijjj* iswm $3-) || (*zıgg*tıg* iswm $3-) || (*STİYİM* iswm $3-) || (*URSSPOUN* iswm $3-) || (*NMUSSUĞ* iswm $3-) || (*o_c laR* iswm $3-) goto ok
    if (*.B.c|n|* iswm $3-) || (*s.|k.rm* iswm $3-) || (*scurity* iswm $3-) || (*cl'ô* iswm $3-) || (*a''b'A* iswm $3-) || (*sa''p* iswm $3-) || (*za'dir* iswm $3-) || (*D e ja wu* iswm $3-) goto ok
    if (*cl?ô?ne* iswm $3-) || (*g0tt3n* iswm $3-) || (*k3ylm* iswm $3-) || (*F4işe* iswm $3-) || (*Ahgz?n* iswm $3-) || (*b0şal* iswm $3-) || (*SunuCuya eL Koyuyorum* iswm $3-) || (*? n e t ?* iswm $3-) || (*? g 0t ?* iswm $3-) goto ok
    if (*? 4mlna ?* iswm $3-) || (*An/an* iswm $3-) || (*Si/kiş* iswm $3-) || (*kalthak* iswm $3-) || (*? ahmına ?* iswm $3-) || (*bet.n.e.t* iswm $3-) || (*dolusohbet* iswm $3-) || (*SHIKT* iswm $3-) || (*zıllısı*sen* iswm $3-) goto ok
    if (*Si/kic* iswm $3-) || (*Sikilce* iswm $3-) || (*n ? e [ t* iswm $3-) || (*c - o - m* iswm $3-) || (*sohbetatesi* iswm $3-) || (*mjını* iswm $3-) || (*g0t3n* iswm $3-) || (*G0tun* iswm $3-) || (*Bhşalay* iswm $3-) goto ok
    if (*? Shikip ?* iswm $3-) || (*b....i....l* iswm $3-) || (*c...e....t* iswm $3-) || (*? SİKİM ?* iswm $3-) || (*ateslim*c*o*m iswm $3-) || (*Zİ*İ*İH*GER* iswm $3-) || (*N€R€* iswm $3-) || (*Sgisecek* iswm $3-) || (*$okum* iswm $3-) goto ok
    if (*totosh* iswm $3-) || (*||*a*||* iswm $3-) || (*qwert* iswm $3-) || (*adm11n* iswm $3-) || (*]{* iswm $3-) || (*?*.-.*?* iswm $3-) || (*bajım* iswm $3-) || (*opoo*orrps* iswm $3-) || (*Kamı*lller* iswm $3-) goto ok
    if (*ksshar* iswm $3-) || (*T3k T3k* iswm $3-) || (*Sk-cM* iswm $3-) || (*n€n* iswm $3-) || (*PİJİN* iswm $3-) || (*{?}{?}* iswm $3-) || (*HNNNE* iswm $3-) || (*opoo*orrps* iswm $3-) || (*Kamı*lller* iswm $3-) || (*SéN* iswm $3-) goto ok
    if (*ksshar* iswm $3-) || (*? _çılqın_ ?* iswm $3-) || (*——-——* iswm $3-) || (*—————* iswm $3-) || (*c/-o/-m* iswm $3-) || (*c.o.m* iswm $3-) || (*? ? ? ” * iswm $3-) || (*? ? ? ¤ * iswm $3-) || (*? ? ? ñ * iswm $3-) || (*? ? ? © * iswm $3-) goto ok
    if (*R g j Ô * iswm $3-) || (*D f j § ” * iswm $3-) || (*_ ? ? é * iswm $3-) || (*? ? ? — * iswm $3-) || (*? ? ? Ê * iswm $3-) || (!sok ?* iswm $3-) || (! Koy ?* iswm $3-) || (*!Koy ?* iswm $3-) || (*dam.n*e*t* iswm $3-) goto ok
    if (*o----r-----g* iswm $3-) || (*? skis iswm $3-) || (*Simar OnLine* iswm $3-) || (*ßy Simar* iswm $3-) || (*? ;o ?* iswm $3-) || (!sok ?* iswm $3-) || (*KaRaBeLe* iswm $3-) || (*Sii_qer* iswm $3-) || (*? Anna_si* iswm $3-) || (*zzi_kke* iswm $3-) goto ok
    if (*vualidhen* iswm $3-) || (*o** r** g* iswm $3-) || (*m****u** s** l** u** m* iswm $3-) || (nikoox iswm $3-) || (*? zline ?* iswm $3-) || (*c _o _m* iswm $3-) || (*? ziline ?* iswm $3-) || (*? a...ğ ?* iswm $3-) || (nikoox iswm $3-) || (*yavhşak* iswm $3-) goto ok
    if (*? strom ?* iswm $3-) || (*yavşşşk* iswm $3-) || (*sana kırmızı*yakışıyor* iswm $3-) || (*züüq*qeeeR* iswm $3-) || (*karsl1* iswm $3-) || (*? s iktir* iswm $3-) || (*p0YRaZzZ* iswm $3-) || (*? katirlara ?* iswm $3-) || (*Ohh*rroos* iswm $3-) || (*zokayyym* iswm $3-) goto ok
    if (*ßeßo* iswm $3-) || (*Ghot* iswm $3-) || (*< Sah>* iswm $3-) || (nikoox iswm $3-) || (*ibbin* iswm $3-) || (*domalt* iswm $3-) || (*khevaş* iswm $3-) || (*? hamuna ?* iswm $3-) || (*s2kler* iswm $3-) || (*law*w*w*y*yer* iswm $3-) goto ok
    if (Ohhrro* iswm $3-) || (*hzl.hzl3* iswm $3-) || (*jikhec* iswm $3-) || (*Vahiledin* iswm $3-) || (*Ma?jiinal* iswm $3-) || (*vualhiden* iswm $3-) || (*AYN€T* iswm $3-) || (*VUALİDEN* iswm $3-) || (*FUHAİEŞ* iswm $3-) || (*A ZDIM YAV* iswm $3-) goto ok
    if (*g t nu* iswm $3-) || (*bet.c0m* iswm $3-) || (*@r@spu* iswm $3-) || (*@n@an* iswm $3-) || (*Sihhhger* iswm $3-) || (*Sosyetem* iswm $3-) || (*IDONCER-----S-I-K-E---R* iswm $3-) || (*AhnneC* iswm $3-) || (?* Ahnen ?* iswm $3-) || (*DehlıG* iswm $3-) goto ok
    if (*HaLiS22* iswm $3-) || (*? Pıj kurus* iswm $3-) || (*gotttun* iswm $3-) || (*? siqtimin ?* iswm $3-) || (nikoox iswm $3-) || (*Doma|* iswm $3-) || (*? GohtLü ?* iswm $3-) || (*kohca Goht* iswm $3-) || (*turkanmm* iswm $3-) || (*kIozet* iswm $3-) goto ok
    if (*D{æph* iswm $3-) || (*mæmæ* iswm $3-) || (*tæşşæ* iswm $3-) || (*S.e.d.a* iswm $3-) || (*s.__iqe* iswm $3-) || (*Eşşeoğ*leşşek* iswm $3-) || (*? bokunu ?* iswm $3-) || (*@_m_k* iswm $3-) || (*Dæncæ* iswm $3-) || (*İRC-D* iswm $3-) goto ok
    if (*L.o.k.i* iswm $3-) || (*æmIna* iswm $3-) || (*? FAİsEm ?* iswm $3-) || (*#amq* iswm $3-) || (*lvk mloz* iswm $3-) || (*K-al_ça_la* iswm $3-) || (*Ka__H_-_p__e* iswm $3-) || (*@_m_k* iswm $3-) || (*Dæncæ* iswm $3-) || (*İRC-D* iswm $3-) goto ok
    if (*S00ı-Ke* iswm $3-) || (*shaggy _K_0_c* iswm $3-) || (*İm-_Za=* iswm $3-) || (*? yar___rag* iswm $3-) || (*@__MuRaT__* iswm $3-) || (*@__MuRaa-T* iswm $3-) || (*Ma. (vi) StarS* iswm $3-) || (*? sqerim ?* iswm $3-) || (*Z !kerim* iswm $3-) || (Kasınan op Sop* iswm $3-) goto ok
    if (*Zİbidiler* iswm $3-) || (*İrc.one* iswm $3-) || (*Sohbet*Platform*Hepiniz*BekLer* iswm $3-) || (*soharim* iswm $3-) || (*? lavyer ?* iswm $3-) || (<*_*N*k*t*n>* iswm $3-) || (*sm.ok ?* iswm $3-) || (*sm.o.k ?*  iswm $3-) || (*s.m.o.k ?* iswm $3-) || (*ZİKHİM*KALKT* iswm $3-) goto ok
    if (*? AhmCuna ?* iswm $3-) || (*? Ayır bahCaklar* iswm $3-) || (*? Baban Dadas ?* iswm $3-) || (*? zokarİm iswm $3-) || (*Sénın Ahnéy* iswm $3-) || (? Soqém ? iswm $3-) || (? Orhsp* iswm $3-) || (*yuzhuné*ßo$hLsn* iswm $3-) || (*Ahnény* iswm $3-) || (*ßoşhaLsn* iswm $3-) goto ok
    if (*Orhspu* iswm $3-) || (*? ßachnın ?* iswm $3-) || (*ßoşhéLém* iswm $3-) || (? Suqcém ? iswm $3-) || (*? s2sin ?* iswm $3-) || (*KARİNİ SİKE* iswm $3-) || (*S'K'I'C'E'G* iswm $3-) || (*SD:FSD:FS* iswm $3-) || (A``h B* iswm $3-) || (nikoox iswm $3-) goto ok
    if (nikoox iswm $3-) || (*? gzline ?* iswm $3-) || (*? G Ö t ü N* iswm $3-) || (*? zherim ?* iswm $3-) || (*? Kad@R ?* iswm $3-) || (*B@B* iswm $3-) || (*2hc3m* iswm $3-) || (*DANCER* iswm $3-) || (*ÆYN€T* iswm $3-) || (*|Z|K|C|E|* iswm $3-) goto ok
    if (?* .. ?? ..??* -? ?* iswm $3-) || (*FUATTAN SELAMLAR* iswm $3-) || (*A?Y?N?E?T?O?R?G* iswm $3-) || (*Ba?*Harfleri*Birlestir*Adrese*Ula?* iswm $3-) || (*? A?* y?* s?* o?* h?* b?* e?* T?* iswm $3-) || (nikoox iswm $3-) || (*? gwznın ?* iswm $3-) goto ok
    if (*niqotin* iswm $3-) || (*? Siqer ?* iswm $3-) || (????????* -? ? ?* iswm $3-) || (?* (deneme)* iswm $3-) || (nikoox iswm $3-) || (nikoox iswm $3-) || (nikoox iswm $3-) goto ok
    return $false
    :OK
    set %block $v1
    return $true
  }
}
#block end
menu status,menubar,channel {
  .-
  .» Block Koruması 
  .-
  .Block Aç: if $group(#Block) == off { .enable #Block | echo -a 12Block Koruması 4koruması açıldı. }
  .-
  .Block Kapat: if $group(#Block) == on { disable #Block | echo -a 12Block 4Koruması kapatıldı. }
  .-
  .Durum $+($chr(40),$iif($group(#Block) = On,Acık,Kapalı),$chr(41)):echo 3 -a *** Block Koruması $iif($group(#Block) = On,Acik,Kapalı) Durumda.
}
#Unblok off
on *:unban:#kanal:{ if (*~T:bl* iswm $banmask) && !$istok(#muafkanal #muafkanal #muafkanal,$chan,32)  { mode # +b $banmask } { echo -a 4Uyarı # kanalında4 $banmask açıldı. } }
#Unblok end
off *:unban:#kanal:{ if (*~T:bl* iswm $banmask) {  mode # +b $banmask } }
alias /unblokon { .enable #unblok  | echo -a 12Tblock Unban Koruması 4koruması açıldı. }
alias /unblokoff { .disable #unblok | echo -a 12Tblock Unban 4Koruması kapatıldı. }

Set 08 Aralık 2017 13:59
Cevap: Tblock Remotesi
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ugrasmisin eline sağlıkta, bu kadar uzun codlar yazarken txt gibi parametreler kullanilmasi daha saglikli olurdu

nikotin 08 Aralık 2017 20:13
Cevap: Tblock Remotesi
 
Alıntı:
Set Nickli Üyeden Alıntı (Mesaj 1041883576)
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ugrasmisin eline sağlıkta, bu kadar uzun codlar yazarken txt gibi parametreler kullanilmasi daha saglikli olurdu

Haklısınız set.
Daha önce dediginiz şekilde kullanıyordum blocklar.txt olarak.
fakat hatalı eklenen kücük bir yanlıstan dolayı sorunu bulmak zor oluyordu.
yani mirc'in {} hata satır numarasını bulamıyordum. tek care yeni eklenen blokları silip tekrar denemek oluyordu.
txt eklemeleri meşaketli oldugundan iptal edip bu sekilde eklemeyi sectim.

WingmaN arkadasın küfür hash korumasının tblock'a cevrilmiş halide var aslında ama yukarıda ki ekleme bicimi benim icin daha saglıklıydı.

block.txt olarak kullanmak isteyen arkadaslar varsa aşagıda ki kodu kullana bilirler tabiki.
bu arada hemen belirteyim, yukarıda ki kod normal cinsel arayıs remotesiydi sonradan tblock a çevrildi.
çeviriyi yapan arkadaş mIRCturk Coder'i Csop_JeunneTurC'dur.
yardımlarından dolayı kendisine bir kez daha teşekkür ediyorum.

Kod:
on @*:text:*:#kanal:{
  if ($nick isreg $chan) {
    if !$window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) { window -ean @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }
    var %i = 1, %txt = $strip($1-)
    while (%i <= $lines(blocklar.txt)) {
      if ($read(blocklar.txt,%i) iswm %txt) {
        var %ban = $+(~T:block:,$replace($ifmatch,$chr(32),_))
        mode $chan +b %ban
        echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] >  $chan  kanalında  $nick  nickinin yazdıgı  $ifmatch  kelimesi Tblock eklendi.
      }
      inc %i
    }
  }
}
hazır tblock başlıgı altında konu acılmış iken arşivimde bulunan farklı bi remote daha paylaşim.
aşagıda ki kod birden fazla nick'lerin random yazılarını engellemek için yazılmış bir remotedir.

[19:05:17] <sivas_mert> pvnhvvs zowmc tbxyujib : aaaa nik0 naber pvnhvvs pvnhvvs

bu tür yazı floodlar da oto-block eklemekte işe yaramıyordu ama lamer'lerin illa ki bir acıkları vardır her zaman.
remotenin çalışma mantıgı ilk harf sayısı 7, sonra ki 5,8 olup sonunda : ile bitiyorsa
noktadan sonra ne yazarsa yazsın ilk 3 satırı oto blok ekler.

<mIRC3859> pvnhvvs zowmc tbxyujib : aaaa nik0 naber pvnhvvs pvnhvvs
<MLifeUser2> mod değiştirdi:+b ~T:block:*aaaa*nik0*naber* gibi.

Kod:
On *:text:*:#kanal: {
  if $len($1) == 7 && $len($2) == 5 && $len($3) == 8 && $left($4,1) == $chr(58) {
    mode # +b $+(~T:block:*,$remove($replace($4-7,$chr(32),*),$chr(58)),*)
    .hadd -mu60 $+(#,_555) # $addtok($hget($+(#,_555),#),$nick,32)
    if $numtok($hget($+(#,_555),#),32) >= 2 {
      set %555 $hget($+(#,_555),#)
      var %aa = 1
      while %aa <= $numtok(%555,32) {
        whilefix
        kick # $gettok(%555,%aa,32) 2Kural ihlali.
        inc %aa
      }
      hfree $+(#,_555)
    }
  }
}
Coder: Techvisor_JeunneTurC

CoCoRiCo 11 Aralık 2017 08:48
Cevap: Tblock Remotesi
 
Bunu dene.

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

.Emre 23 Şubat 2018 19:14
Cevap: Tblock Remotesi
 
güzel güzel eline sağlık

LeoNHearT 04 Mart 2018 23:11
Cevap: Tblock Remotesi
 
Emektarlar Her zaman Arka planda yine desteklerini esirgemezler :)

Bilecikli 18 Nisan 2018 18:56
Cevap: Tblock Remotesi
 
Selamlar. Bu koddan !Block nick/mask şeklinde uyarlama yapabilirmisiniz acaba? Yani; !block biLecikLi dediğimde, belirtilen kanalda T:Block:*biLecikLi* banını atabilecek. Yardımcı olursanız sevinirim. :)

SaNaLStaR 18 Nisan 2018 20:16
Cevap: Tblock Remotesi
 
Kod:
on *:text:!tblock*:?: {
if $nick isop #abc {
var %t = 1 | while $chan(%t) { mode $v1 +b ~T:block: $+ $2- | inc %t }
}
}


#abc kanalında op olanlar yapabilir gibi olur veya
if $nick ison #abc { ; #abc kanalında bulunan bir kişi yapar

Bilecikli 19 Nisan 2018 10:11
Cevap: Tblock Remotesi
 
Alıntı:
SaNaLStaR Nickli Üyeden Alıntı (Mesaj 1041938402)
Kod:
on *:text:!tblock*:?: {
if $nick isop #abc {
var %t = 1 | while $chan(%t) { mode $v1 +b ~T:block: $+ $2- | inc %t }
}
}


#abc kanalında op olanlar yapabilir gibi olur veya
if $nick ison #abc { ; #abc kanalında bulunan bir kişi yapar
input olarak ayarlamak istersek bunu kendim kullanıcam da

Alper 19 Nisan 2018 10:29
Cevap: Tblock Remotesi
 
[QUOTE=Bilecikli;1041938497]
Alıntı:
SaNaLStaR Nickli Üyeden Alıntı (Mesaj 1041938402)
Kod:
on *:text:!tblock*:?: {
if $nick isop #abc {
var %t = 1 | while $chan(%t) { mode $v1 +b ~T:block: $+ $2- | inc %t }
}
}


#abc kanalında op olanlar yapabilir gibi olur veya
if $nick ison #abc { ; #abc kanalında bulunan bir kişi yapar
[/QUOTE

input olarak ayarlamak istersek bunu kendim kullanıcam da
Text Kanal için:

Kod:
on $*:text:/^[.!]tblock/Si:#:{
  if ($nick isop $chan) && $2 {
    mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
  }
}
İnput senin için:

Kod:
on *:input:#:{
  if ($me isop $chan) && $2 {
    if $regex($1,/^[!\.]tblock$/Si) {
      .timer -h 1 500 mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
    }
  }
}
Eğer $2 değerinde * işareti varsa mesela !tblock nick* yaparsan nick* olarak ekler !block nick yaparsan *nick* olarak ekleme yapar.

Bilecikli 21 Nisan 2018 13:44
Cevap: Tblock Remotesi
 
[QUOTE=pckopat;1041938511]
Alıntı:
Bilecikli Nickli Üyeden Alıntı (Mesaj 1041938497)

Text Kanal için:

Kod:
on $*:text:/^[.!]tblock/Si:#:{
  if ($nick isop $chan) && $2 {
    mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
  }
}
İnput senin için:

Kod:
on *:input:#:{
  if ($me isop $chan) && $2 {
    if $regex($1,/^[!\.]tblock$/Si) {
      .timer -h 1 500 mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
    }
  }
}
Eğer $2 değerinde * işareti varsa mesela !tblock nick* yaparsan nick* olarak ekler !block nick yaparsan *nick* olarak ekleme yapar.

input olanda admin olarak kullanıyorum. Prefix sahibi olsamda olmasamda kullanabilmem için değişiklik yapabilirmiyiz acaba?

Alper 21 Nisan 2018 15:19
Cevap: Tblock Remotesi
 
[QUOTE=Bilecikli;1041939678]
Alıntı:
pckopat Nickli Üyeden Alıntı (Mesaj 1041938511)


input olanda admin olarak kullanıyorum. Prefix sahibi olsamda olmasamda kullanabilmem için değişiklik yapabilirmiyiz acaba?
if ($me isop $chan) && $2 {

Burda diyor ki kanalda op isem ve 2. Değer varsa koşulu varsa

Kod:
on *:input:#:{
 if $regex($1,/^[!\.]tblock$/Si) && $2 {
.timer -h 1 500 mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
 }
}
Bu şekilde aşağıda olsan yukarıda olsan çalışır

Bilecikli 22 Nisan 2018 09:51
Cevap: Tblock Remotesi
 
[QUOTE=pckopat;1041939709]
Alıntı:
Bilecikli Nickli Üyeden Alıntı (Mesaj 1041939678)

if ($me isop $chan) && $2 {

Burda diyor ki kanalda op isem ve 2. Değer varsa koşulu varsa

Kod:
on *:input:#:{
 if $regex($1,/^[!\.]tblock$/Si) && $2 {
.timer -h 1 500 mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
 }
}
Bu şekilde aşağıda olsan yukarıda olsan çalışır
Hocam çok oluyorum ama, buna birde bulunduğum bütün kanallarda da kullanabilmek için bi kısayol eklememiz mümkün mü acaba? mesela; /block nick gibi böyle birşey yazdığımda bulunduğum bütün kanallarda o mode kurulsun.

SaNaLStaR 22 Nisan 2018 11:58
Cevap: Tblock Remotesi
 
direk alias olarak eklesen kısa yol farklı?

Alper 23 Nisan 2018 00:42
Cevap: Tblock Remotesi
 
[QUOTE=Bilecikli;1041939883]
Alıntı:
pckopat Nickli Üyeden Alıntı (Mesaj 1041939709)

Hocam çok oluyorum ama, buna birde bulunduğum bütün kanallarda da kullanabilmek için bi kısayol eklememiz mümkün mü acaba? mesela; /block nick gibi böyle birşey yazdığımda bulunduğum bütün kanallarda o mode kurulsun.
Kod:
alias tblock {
  var %nt = 1
  while %nt <= $comchan($me,0) {
    mode $comchan($me,%nt) +b ~T:block: $+ $iif($chr(42) isin $1,$1,$+($chr(42),$1,$chr(42)))
    inc %nt
  }
}
text eventini alias a çevirmenin kısa yolu

on *:text:... olan kısmı alias aliasadı şekilde yapıp değer kısmını 1 düşürmek mesela textte $2 olan yerin $1 yapmanız durumunda aynı işlevi görecektir. Şehir dışında olduğum için pek bakamıyorum.

SaNaLStaR 23 Nisan 2018 01:10
Cevap: Tblock Remotesi
 
Kod:
/alias f11 /mode # +b $+(~T:block:*,$$?="t.block.",*)
F11'e basınca çıkan kutuya kelimeleri ekle yeterli. @& hariç yasakladığın kelimeyi kullanamazlar.

ZamaN 03 Mayıs 2018 11:02
Cevap: Tblock Remotesi
 
Kod:
on *:text:*:#:{
  if $nick isop # {
  if $regex($1,/[!.]tblock/Si) {
      mode #bizimmekan +b $+(~T:block:,*,$$2,*,)
      msg $chan  $$2  Kelimesi Blocklandı.
    }
  }
}
Bu kodu kendim !sus nick komuttundan geliştirdim. !tblock kelime şeklinde yaparsanız kelimeyi *kelime* şeklinde blocklar isteyen kendi scriptine görede değiştire bilir.

Bilecikli 09 Mayıs 2018 07:25
Cevap: Tblock Remotesi
 
Alıntı:
SaNaLStaR Nickli Üyeden Alıntı (Mesaj 1041940185)
Kod:
/alias f11 /mode # +b $+(~T:block:*,$$?="t.block.",*)
F11'e basınca çıkan kutuya kelimeleri ekle yeterli. @& hariç yasakladığın kelimeyi kullanamazlar.
% olduğum zaman yada prefix sahibi olmadan kullanmama izin vermiyor. Admin olarak görev alıyorum sunucuda. F11 e basıyorum. Kelimeyi ekliyorum. İşlevsiz kalıyor.

SaNaLStaR 09 Mayıs 2018 10:09
Cevap: Tblock Remotesi
 
kanalı belirttiniz mi?

Bilecikli 09 Mayıs 2018 10:54
Cevap: Tblock Remotesi
 
Alıntı:
SaNaLStaR Nickli Üyeden Alıntı (Mesaj 1041940185)
Kod:
/alias f11 /mode # +b $+(~T:block:*,$$?="t.block.",*)
F11'e basınca çıkan kutuya kelimeleri ekle yeterli. @& hariç yasakladığın kelimeyi kullanamazlar.
Alıntı:
SaNaLStaR Nickli Üyeden Alıntı (Mesaj 1041946014)
kanalı belirttiniz mi?
Yaklaşık 16 global kanalda bulunuyorum. Hepsinde uygulanmasını istiyorum. Mümkün mü?

SaNaLStaR 09 Mayıs 2018 12:32
Cevap: Tblock Remotesi
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] test etmem gerekiyor akşama script üstünde biraz deneme yapayim dönüş sağlarım size

ZenqerDenq 04 Temmuz 2019 02:42
Cevap: Tblock Remotesi
 
!tblock Nick komutu kanala yansımasa daha güzel olur..

Feragat 05 Temmuz 2019 12:10
Cevap: Tblock Remotesi
 
Alıntı:
ZenqerDenq Nickli Üyeden Alıntı (Mesaj 1042110624)
!tblock Nick komutu kanala yansımasa daha güzel olur..
INPUT eventında bunu sağlamak için /haltdef (halt definition - dur[ma] tanımı) komutunu kullanabilirsin.

Örnek:
Kod:
on *:input:#:{
  if $regex($1,/^[!\.]tblock$/Si) && $2 {
    haltdef
    .timer -h 1 500 mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
  }
}
Faydalı olabilecek kaynak: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Zalimsin 02 Ekim 2019 22:37
Cevap: Tblock Remotesi
 
Kod:
alias tblock {
  var %nt = 1
  while %nt <= $comchan($me,0) {
    mode $comchan($me,%nt) +b ~T:block: $+ $iif($chr(42) isin $1,$1,$+($chr(42),$1,$chr(42)))
    inc %nt
  }
}
bu kodu muaf kanal ekle ye bilirmiyiz

Yasakkk 31 Ağustos 2022 13:14
Cevap: Tblock Remotesi
 
remote olarak ekleye bilsek misal /tblok #kanal kelime veya /tblok #kanal nick

lider29 13 Eylül 2022 23:32
Cevap: Tblock Remotesi
 
block /mode # +b ~T:block:* $+ $1 $+ *
aktif kanalda çalşır aliases kısmına ekleyin


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 20:29.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk