| IrCbaStarD | 24 Nisan 2008 16:44 |
Cevap: korumalar v2
Kod:
on *:text:*:#: {
if ($me isop #) && ($nick isreg #) {
if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
set -u30 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1
set -u30 %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 #) {
hinc -mu5 tekrars $+($chan,.,$nick) 1
if $hget(tekrars,$+($chan,.,$nick)) == 1 {
/msg # $nick uyarı1
}
if $hget(tekrars,$+($chan,.,$nick)) == 2 {
/msg # $nick uyarı2
}
if $hget(tekrars,$+($chan,.,$nick)) == 3 {
.kick # $nick Sebeb.
.hdel -s tekrars $+($chan,.,$nick))
}
}
}
}
if ($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) {
hinc -mu20 Capsq $+($chan,.,$nick) 1
if $hget(Capsq,$+($chan,.,$nick)) == 1 {
/msg # $nick uyarı
}
if $hget(Capsq,$+($chan,.,$nick)) == 2 {
/msg # $nick uyarı
}
if $hget(Capsq,$+($chan,.,$nick)) == 3 {
.kick # $nick Sebeb.
.hdel -s Capsq $+($chan,.,$nick))
}
}
}
}
Denemedim ama sorun yok gibi (: |
