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

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 06 Ekim 2010, 17:22   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Büyük Harf / Uzun Harf / Tekrar Harf -Uyarı/koruma




Büyük Harf Koruma

if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1 dGNi9XeHQvZjUwL1hJPQ== }

on *:text:*:#: {
if (%caps == 1) && ($me isop #) && ($nick isreg #) && ($nick !isop #) {
if ($len($1-) < 20) || ($nick isop #) return
var %text = $strip($remove($1-,$chr(32)))
var %non.caps = $len($removecs(%text,A,B,C,Ç,Ü,Ğ,İ,Ş,D,E,F,G,H,I,J ,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z))
var %full.line = $len($strip($remove(%text,$chr(32))))
var %percent = $calc(1 - (%non.caps / %full.line))
if (%percent >= 0.8) {
ban -u300 # $nick 2 | .kick # $nick %buyuk.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Büyük Harf 1Sebebinen Atıldı.


Uzun Harf Koruma

if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1 dGNi9XeHQvZjUwL1hJPQ== }

on *:text:*:#: {
if (%uzunyazi == 1) && ($me isop #) && ($nick isreg #) && ($len($strip($1-)) >= 300) && ($nick !isop #) {
ban -u900 # $nick 2 | .kick # $nick %uzun.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 4Uzun Yazı 1Sebebinden Atıldı...
}
}

on *^:text:*:#: {
if $chan == #global && $chan == #helpop{ halt }
if ($regex($1-,/([[:print:]])\1\1/ig) >= $calc($coconf(U.limit)/3)) && $me isop $chan {
inc $+(-u,$coconf(U.mem)) %uz [ $+ [ $nick ] ] 1
if (%uz [ $+ [ $nick ] ] >= $coconf(U.LM)) {
.ban $+(-ku,$calc($coconf(U.kbs)*60)) $chan $nick $coconf(U.sb)
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Harf Uzatmak 1Sebebinden Atıldı
.unset %uz [ $+ [ $nick ] ]
}
if (%uz [ $+ [ $nick ] ] >= $coconf(U.AL)) {
msg $chan UYARI: $nick  $coconf(U.yr)
}
}
}
alias coconf {
goto $1
:U.Limit {
;# harf limiti
RETURN 15
}
:U.LM {
;# Kac kezde atsın..
RETURN 2
}
:U.AL {
;# Uyarı limiti (üstteki deger ile aynı-yüksek olmamalıdır.)
RETURN 1
}
:U.mem {
;# Hatayı yapan nikc-Adres'in Hafızada kalacagı süre (sn)
RETURN 99999999999999
}
:U.sb {
;# Kick Sebebi..
RETURN 4Uzun Harf 1Konusunda Uyarılmıştınız... %logo
}
:U.yr {
;# Uyarı mesajı
RETURN Harfleri uzatmayınız..
}
:U.kbs {
;# kikc\ban süresi "Dk."
RETURN 5
}

}

Tekrar Harf Koruma

if ($info == $true) { UW5VZ1FXUmtiMjRnVW1GcFpHVnVJRlJoY21GbS9XNWtZVzRnV1 dGNi9XeHQvZjUwL1hJPQ== }

on @*:text:*:#: {
if (%tekrar == 1) && ($me isop #) && ($nick isreg #) {
if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
set -u60 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1
set -u60 %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] $1-
return
}
var %rps = %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
var %rpt = %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
if (%rpt == $1-) {
inc %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
if (%rps > 2) && ($nick !isop #) {
ban # $nick 2
.kick # $nick %tekrar.yazi
echo -s + $timestamp 4 $+ $nick 12 $+ $chan 1Kanalından 12Tekrar 1Sebebinen Atıldı.
}
}
}
}

aLias Part { .part # $me }



on ^*:notice:Lag:*: {
{ window -z @Lag | .echo @Lag ¿n¿ 4 $+ $nick $+ 1 $1- | halt }
}


Elimde böyle bir koruma mevcut bu korumalar direk ban atıyor ben istiyorumki ilk başta uyarı yapsın 2.sinde banlasın ben biraz denedim ama hep hata verdi yardımcı olursunuz inş

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Cevapla

Etiketler
büyük, harf, tekrar, uyarı or koruma, uzun


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

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
Kahraman Tazeoğlu – Git Harf Harf Tümcelerimden. . . Sevda Şiir, Hikaye ve Güzel Sözler 0 04 Aralık 2010 09:02
Büyük Harf , Harf Uzatma Uyarı Admin Ve opları uyarmısın Yardim Edin.. eRCi mIRC Scripting Sorunları 3 04 Kasım 2010 14:22
Buyuk Harf harf Uzatma Leo mIRC Scripting Sorunları 5 03 Temmuz 2009 22:29
2 harf ident 2 harf username paLe mIRC Scripting Sorunları 13 16 Haziran 2008 11:31
Büyük Harf Uyarı Diyaloqu By_GuRbey mIRC Scripting Sorunları 9 15 Ağustos 2006 13:52