IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet odaları

Avatar
BuseNaz
Avatar
Own
Avatar
Convex
Avatar
Pentagram
Avatar
Ezgi
Avatar
EceNaz
Avatar
LyinG-LoVe
Avatar
Thilda
Avatar
Roger
>
+
Etiketlenen Kullanıcılar

 
 
LinkBack Seçenekler Stil
Prev önceki Mesaj   sonraki Mesaj Next
Alt 01 Şubat 2007, 00:28   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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,%
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;


Konu moonshield tarafından (01 Şubat 2007 Saat 00:59 ) değiştirilmiştir.
 
Alıntı ile Cevapla

 

Etiketler
atmasin, halfoplarini, korumalarim, mirc download, mirc indir, oplarini, ve


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
Konu Konuyu Başlatan Forum Cevaplar Son Mesaj
NoMercy Botları Atmasın.. ProgramHane Eggdrop, NeoStats, BNC 4 09 Şubat 2008 16:27
kanalda +h modundayken korumalarım çalışmıyor By_GuRbey mIRC Scripting Sorunları 7 20 Ekim 2007 16:04
Oper Opere Kline atmasın reco07 mIRC Scripting Sorunları 4 04 Ekim 2006 09:23
bopm belli identi atmasın.! CaSt Eggdrop, NeoStats, BNC 2 26 Ağustos 2006 12:34
Koruma Listesindekileri Atmasın... erdem55 mIRC Scripting Sorunları 13 21 Temmuz 2005 16:22