Ç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« 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Ü

 

Ç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ö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ütfen kanal içerisinde 4argo/küfür 2içeren sözcükler kullanmayın.5 $time }
.dec %:
}
}
}

mantık budur digerlerinide buna gö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