| Zalimsin | 27 Aralýk 2019 20:49 |
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:
;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 --
Alýntý:
Toprak Nickli Üyeden Alýntý
(Mesaj 1042217071)
Böylemi istiyorsun? Kod:
Kod:
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:
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 |
