Çevrimdışı

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,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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&#171; Bilgi &#187; 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&#220;Y&#220;K HARF İ&#199;İN KULLANDIĞIM KORUMA

on @*:text:*:#:{
var %< = $remove($strip($1-),$chr(32)),%> = $int($calc(($regex(%<,/[A-Z&#214;&#220;Şİ&#199;Ğ]/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&#252;tfen 4CapsLock 4Tuşunu 4Kapatarak 4Yazınız.4&#223;&#252;y&#252;k 4Harf 4Kullanmayınız. 4Aksi 4Taktirde 4Kanaldan 4Uzaklaştırılıcaksınız. }
if %' >= 2 { ban -ku600 # $nick 2 5L&#252;tfen 2b&#252;y&#252;k harf kullanmayınız, 2aynı s&#246;zc&#252;kleri 5devamlı tekrar etmeyin.4 $time | unset $+(%,cc.,#,$nick) }
}
}

KODLARI VERMEMİN SEBEBİ BUNLARA G&#214;RE OLMASI İ&#199;İN ve AYRICA REKLAM KORUMASINDA SERVERİN ADRESİ İLE @ OLDUM KANALIN ADI GECTİĞİNDE ATMAMASI M&#220;MK&#220;NM&#220;

 

Çevrimdışı

 

Çevrimdışı

Abi Bişi Daha Var Demiştim Ya Serverin Web Site Adresi Gecerse İrc Adreasi Gecerse Atmasın Reklam Korumasında Bunu Yapabilirmiyiz. Yani Ben irc.deneme.com [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] bu kelimelerde atmasın.

 

Çevrimdışı

Onuda b&#246;yle yapabilirsin, codene ekleyeceksin bunları;

 

Çevrimdışı

bunu ekle

if $nick isop $chan { halt }
if $nick ishop $chan { halt }

ilk { den sonra ki yere ekle

mesela

on *:text:*:#: {
if $nick isop $chan { halt }
if $nick ishop $chan { halt }
else {
var %: $lines(kufur.txt)
while (%: > 0) { if $read(kufur.txt,%
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
iswm $strip($1-) {
if $me !isop $chan { halt } | if ($nick == NoMercy) || (dmin isin $address($nick,0)) { halt }
mode # +b $wildsite | kick # $nick 2L&#252;tfen kanal i&#231;erisinde 4argo/k&#252;f&#252;r 2i&#231;eren s&#246;zc&#252;kler kullanmayın.5 $time }
.dec %:
}
}
}

mantık budur digerlerinide buna g&#246;re yaparsın sonuna bi } daha ekle en sona

 

Çevrimdışı

By_rebel Sağolasın O Sorunu Halletik MoonShieLL ile mavipiksel Sayesinde Yiinede Sağol