| Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
| Cevap: Koruma
@ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] teşekkür ederim birde sende !spam ekle !spam sil birde spam eklemden önce spam kelimeyi dönüştürmek istiyorum bu kod ile Kod: Kodu kopyalamak için üzerine çift tıklayın! ;yardımcılar
alias _reg { return $replace($1-,a,[àáâãäåæÆÀÁÂÃÄÅÆaª@4],e,[æèéêëe£â‚¬ÈÉÊ3],i,ı,ı,İ,İ,[ÌÍÎÏìíîïİıi\!1j],b,ß,ß,[bß],k,[kq],o,ö,ö,Ö,Ö,0,0,[òóôõoöÖøÒØÔº0],u,ü,ü,Ü,Ü,[ùúûÙÚÛuÜüÙµ],[:p[ùúûÙÚÛuÜüÙµ]nct:],[:punct:],ğ,Ğ,Ğ,g,g,q,q,[ğĞgq],c,ç,ç,Ç,Ç,[©¢cçÇ],[k[ğĞgq]],([kq]|(\|\{)),[:pun[©¢cçÇ]t:],[:punct:],[:[©¢cçÇ]ntrl:],[:cntrl:],r,[r\®],[:cnt[r\®]l:],[:cntrl:],ş,s,s,Ş,Ş,$,$,[Å¡Å*sŞş§\$5],\[Å¡Å*sŞş§\$5],\s,v,w,w,[wv]) }
alias c {
if $regex($prop,/^b$/) { return $+($chr(3),$regsubex($1,/(x)/g,$chr(44)),$chr(2),$chr(2),$chr(2),$2-,$chr(3),$chr(2)) }
if $regex($prop,/^u$/) { return $+($chr(3),$regsubex($1,/(x)/g,$chr(44)),$chr(31),$chr(2),$chr(2),$2-,$chr(3),$chr(31)) }
if $regex($prop,/^(bu)|(ub)$/) { return $+($chr(3),$regsubex($1,/(x)/g,$chr(44)),$chr(31),$chr(2),$chr(2),$chr(2),$2-,$chr(3),$chr(31),$chr(2)) }
else { return $+($chr(3),$regsubex($1,/(x)/g,$chr(44)),$chr(2),$chr(2),$2-,$chr(3))) }
}
;olay
alias çevir3 {
var %breglen (?i) $+ $regsubex($_reg($regsubex($regsubex($regsubex($strip($1),/(.)/g,\1+([[:punct:][:cntrl:] ]|\d)*),/\Q([[:punct:][:cntrl:] ]|\d)*\E$/g,),/\+$/g,)),/(\[bß\]|n|m|z|h|f|x|d|p|y|t|l|\[wv\]|\Q([kq]|(\|\{))\E|\[wv\]|\[©¢cçÇ\]|\Q[Å¡Å*sŞş§\$5]\E|\[ğĞgq\]|\Q[r\®]\E)\+\Q([[:punct:][:cntrl:] ]|\d)*\E/gi,\1+([[:punct:][:cntrl:] ]|\d|h)*)
if $len(%breglen) > 338 {
echo -a $c(4,<Hata Mesajı>) Çevirdiğiniz regex spamfilter için $c(4,$calc($+($len(%breglen),-,338))) BYTE kadar büyük. Lütfen kelimenizi $c(4,sondan birer harf silerek).b çevirme işlemini yineleyin.
echo -a -
return
}
echo -a $c(2,Kelime:) $1
echo -a $c(2,Regex:) %breglen
echo -a $c(2,Boyut:) $len(%breglen) BYTE
echo -a -
}
Bunada yardım edersen sevinirim
--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 20:49 -->-> Daha önceki mesaj 19:16 --
| Toprak Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
|
Böylemi istiyorsun?
Kod: Kodu kopyalamak için üzerine çift tıklayın!
Kod: Kodu kopyalamak için üzerine çift tıklayın!
on *:text:*:#Opers:{
if $regex($1,/^[!.]koru$/Si) {
if !$regex($2,/^(ekle|s[ıiİ]l)$/Si) { msg # Lütfen !koru ekle-sil Nick olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if !$regex(n,$3,/(.+)/Si) { msg # Lütfen nick beliriniz; ÖRN: !koru ekle Nick }
elseif $nick(#Spam,$regml(n,1)) { msg # $regml(n,1) nick'i zaten korumada }
else { sajoin $regml(n,1) #Spam | msg # $regml(n,1) nick'i korumaya alınmıştır. | $+(.timer,$regml(n,1)) 1 1200 sapart $regml(n,1) #Spam }
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$regex(n,$3,/(.+)/Si) { msg # Lütfen nick beliriniz; ÖRN: !koru sil Nick }
elseif !$nick(#Spam,$regml(n,1)) { msg # $regml(n,1) nick'i korumada bulunmuyor. }
else { sapart $regml(n,1) #Spam | msg # $regml(n,1) nick'i korumadan çıkarılmıştır. | $+(.timer,$regml(n,1)) off }
}
}
}
on !*:join:#Spam:{
;- Oper-Admin Hostları Muaf.
if $regex($site,/(Admin|Root|Network|Server|Services|Oper|IRCOP|Local)/Si) { return }
;- Bot Nickleri vs. Muaf
elseif $regex($nick,/(Bot1|Bot2|Bot3|Bot4)/Si) { return }
else {
msg $nick $+(4,$nick,) Nick'inize saldırı yoksa , keyfi giriş yapmayınız. Aksi taktirde bu belirlenirse, ceza almanıza sebep olur.
msg $nick 2Nickiniz4 $_spamrx($regsubex($nick,/(.)/gSi,\t.?)) 2 Olarak Spam alındı. $nick
msg $nick 2Nick Korunma Süreniz : 20 dk.
spamfilter add c block - $+(2,$me) $+ _Tarafından_Nick_Koruma_Altındadır. $_spamrx($regsubex($nick,/(.)/gSi,\t.?))
$+(.timer,$nick,spam) 1 1200 .spamfilter del c block - $+(2,$me) $+ _Tarafından_Nick_Koruma_Altındadır. $_spamrx($regsubex($nick,/(.)/gSi,\t.?))
}
}
on *:part:#Spam:.spamfilter del c block - $+(2,$me) $+ _Tarafından_Nick_Koruma_Altındadır. $_spamrx($regsubex($nick,/(.)/gSi,\t.?))
alias _spamrx {
return $replacex($1-,a,[aA@4æàáâãäåÀÁÂÃÄÅÆ],b,[bBß],c,[cçÇ],ç,[cçÇ],Ç,[cçÇ],e,[eE3ÆèéêëÈÉÊË€£],g,[gğĞqk],ğ,[gğĞqk],Ğ,[gğĞqk],ı,[ıIiİ1I!ÏïîÍíÌìÎî],i,[ıIiİ1I!ÏïîÍíÌìÎî],İ,[ıIiİ1I!ÏïîÍíÌìÎî],k,[kqğĞg],m,[mw],l,[Iıl1],o,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],Ö,[ÒóôõöÒÓÔÕÖoQ0øOöÖ],u,[uüÜÙÚÛÜ],ü,[uüÜÙÚÛÜ],Ü,[uüÜÙÚÛÜ])
}
Komutlar;- - !koru ekle Nick
- - !koru sil Nick
| Kod: Kodu kopyalamak için üzerine çift tıklayın! on *:text:*:#Opers:{
if $regex($1,/^[!.]koru$/Si) {
if !$regex($2,/^(ekle|s[ıiİ]l)$/Si) { msg # Lütfen !koru ekle-sil Nick olarak belirtiniz. }
elseif $regex($2,/^ekle$/Si) {
if !$regex(n,$3,/(.+)/Si) { msg # Lütfen nick beliriniz; ÖRN: !koru ekle Nick }
elseif $nick(#Spam,$regml(n,1)) { msg # $regml(n,1) nick'i zaten korumada }
else { sajoin $regml(n,1) #Spam | msg # $regml(n,1) nick'i korumaya alınmıştır. | $+(.timer,$regml(n,1)) 1 1200 sapart $regml(n,1) #Spam }
}
elseif $regex($2,/^s[ıiİ]l$/Si) {
if !$regex(n,$3,/(.+)/Si) { msg # Lütfen nick beliriniz; ÖRN: !koru sil Nick }
elseif !$nick(#Spam,$regml(n,1)) { msg # $regml(n,1) nick'i korumada bulunmuyor. }
else { sapart $regml(n,1) #Spam | msg # $regml(n,1) nick'i korumadan çıkarılmıştır. | $+(.timer,$regml(n,1)) off }
}
}
}
burada korumama al dediginde spam kanlına alıyor sil dediginde paradan çıkartıyor bendedigim koruma ala dedigimde #güvenlik kanalına orada o nick kotumaya eklemesiydi
Konu Zalimsin tarafından (27 Aralık 2019 Saat 19:24 ) değiştirilmiştir.
|