IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Korumalarım Kanal Oplarını ve Halfoplarını Atmasın

UZUN YAZI KORUMASI
on *:text:*:#: {
if $regex($1-,/([[:print:]])\1\1/gi) >= 7 {
mode # +b $wildsite | kick $chan $nick 2Kanal kurallarına aykırı hareket.5 $time
}

KÜFÜR KORUMASI

on *:text:*:#: { var %: $lines(kufur.txt)
while (%: > 0) { if $read(kufur.txt,%:) iswm $strip($1-) {
if $me !isop $chan { halt } | if ($nick == NoMercy) || (dmin isin $address($nick,0)) { halt }
mode # +b $wildsite | kick # $nick 2Lütfen kanal içerisinde 4argo/küfür 2içeren sözcükler kullanmayın.5 $time }
.dec %:
}
}

KANAL REKLAMLARINA KARSI OLARAK KULLANDIĞIM KORUMA
alias Coder { dialog -m Coder1 Coder1 }
dialog Coder1 {
title "[ Coded : Coder ] • [ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ]"
size -1 -1 150 155
option dbu
box "", 1, 9 9 132 130
box "", 2, 2 3 146 142
list 3, 74 34 62 101, size vsbar
edit "", 4, 74 19 62 12, return autohs autovs
button "Ekle", 5, 39 19 25 11
button "Çıkart", 6, 39 33 25 11
box "", 7, 33 13 39 34
check "Check Box", 8, 12 52 8 10
edit "Eklemiş olduğunuz kelimeler kanalda cümle icinde gecerse sizi uyarır", 9, 19 53 53 36, read multi
check "Check Box", 10, 12 92 8 10
edit "Eklediğiniz kelimeler kanalda gecerse kickban atılır", 11, 19 93 53 27, read multi
button "Kapat", 13, 56 145 37 10, ok
}
on *:dialog:Coder1:*:*:{
if ($devent == sclick) {
if ($did == 3) { did -ra $dname 4 $did(3).seltext }
if ($did == 5) {
if ($istok(%l,$did(4),32) == $true) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $false) { set %l $addtok(%l,$did(4),32) | did -a $dname 3 $did(4) }
did -r $dname 4
}
if ($did == 6) {
if ($istok(%l,$did(4),32) == $false) && ($did(4) != $null) { halt }
if ($did(4) == $null) { halt }
if ($istok(%l,$did(4),32) == $true) { set %l $remtok(%l,$did(4),32) | did -d leader1 3 $did(3).sel }
did -r $dname 4
}
if ($did == 13) {
if ($did(8).state == 1) { .enable #uyari } | else { .disable #uyari }
if ($did(10).state == 1) { .enable #kickle } | else { .disable #kickle }
}
}
if ($devent == init) {
var %l.e = 1
var %l.d = $numtok(%l,32)
while (%l.e <= %l.d) { did -a $dname 3 $gettok(%l,%l.e,32) | inc %l.e }
if ($group(#uyari) == on) { did -c $dname 8 } | if ($group(#uyari) == off) { did -u $dname 8 }
if ($group(#kickle) == on) { did -c $dname 10 } | if ($group(#kickle) == off) { did -u $dname 10 }
}
}
#uyari off
on *:text:*:#: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) iswm $1- {
echo -a 0,5« Bilgi » 0,4 •• # •• Kanalından •• $nick •• $ifmatch Kelimesini Kullandı ••
}
inc %i
}
}
#uyari end
#kickle on
on *:text:*:#mircturk,#ww: {
var %i 1
while %i <= $numtok(%l,32) {
if $gettok(%l,%i,32) iswm $1- {
mode # +b $wildsite
kick # $nick 2Kanal kurallarına aykırı hareket.5 $time
}
inc %i
}
}
#kickle end

BÜYÜK HARF İÇİN KULLANDIĞIM KORUMA

on @*:text:*:#:{
var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-ZÖÜŞİÇĞ]/g) / $len(%<)) * 100))
if $nick isreg # && %> >= 75 && $len(%< >= 5) {
inc -u600 $+(%,cc.,#,$nick) | var %' = $($+(%,cc.,#,$nick),2)
if %' == 1 { msg $chan UYARI: $nick 4UYARI! 4Lütfen 4CapsLock 4Tuşunu 4Kapatarak 4Yazınız.4ßüyük 4Harf 4Kullanmayınız. 4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız. }
if %' >= 2 { ban -ku600 # $nick 2 5Lütfen 2büyük harf kullanmayınız, 2aynı sözcükleri 5devamlı tekrar etmeyin.4 $time | unset $+(%,cc.,#,$nick) }
}
}

KODLARI VERMEMİN SEBEBİ BUNLARA GÖRE OLMASI İÇİN ve AYRICA REKLAM KORUMASINDA SERVERİN ADRESİ İLE @ OLDUM KANALIN ADI GECTİĞİNDE ATMAMASI MÜMKÜNMÜ