Kanal Koruma Sistemi addonu

alias badtara {
var %jnk 1
while %jnk <= $nick($1,0) {
if $ulist($nick($1,%jnk),badnick,0) {
mode $chan +b $nick($1,%jnk)
kick $chan $nick($1,%jnk) 1Nickiniz Kanal kurallarına aykırı. 4"/nick yeninickiniz" 1şeklinde nickinizi değiştirin. %Bans
}
inc %jnk
}
}
--------
#kkufur on
on *:text:*:#: {
if ($nick !isop $chan) || ($nick !ishop $chan) || ($chan != #oyun) {
var %i $lines(scripts/kufur.txt)
while (0 < %i) {
if ($read(scripts/kufur.txt,%i) iswm $strip($1-)) {
mode # +b $nick
kick $chan $nick KuraL ihLaLi [ Banned ßy $me ] %Logo
}
dec %i
}
}
}
#kkufur end
---------
#flood off
on @*:text:*:#:{ if ($nick isreg #) { inc -u3 $+(%,fld.,$chan,.,$nick) | if ($($+(%,fld.,$chan,.,$nick),2) >= 5) { ban -k # $nick 2 4Flood Yasak %logo | /mode # +Rm } } }
#flood end
---------
#tekrar off
on *:text:*:#: {
if $nick !isop $chan {
var %m $hash($lower($strip($1-)),32),%v $+(%m,$wildsite,#)
hinc -mu5 repeat %v
if $hget(repeat,%v) = 5 {
mode $chan +b $nick
kick $chan $nick 10( Kickban Sebebi : Tekrar Yapmak Yasaktır! ) %Bans
}
}
}
}
#tekrar end
------------
#badnicks off
on BadNick:JOIN:#:{
if ($chan == #cinsellik) { halt }
if ($chan == #CinselSohbet) { halt }
if ($chan == #helpers) { halt }
if ($chan == #heLp) { halt }
if ($chan == #helpegitim) { halt }
.mode # +b $nick
.kick # $nick 1Nickiniz Kanal kurallarına aykırı. Lütfen Nick değiŞiniz. %Bans
}
#badnicks end
-----
#capslar off
on @*:TEXT:*:#: {
if ($nick ison #sohbetop) { halt }
if ($chan == #help) { halt }
if ($chan == #OperHelp) { halt }
if ($len($1-) < 14) || ($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) {
capsban $nick
kick # $nick 4 $+ 14Caps YazIm! ( $+ % $+ $calc(%percent * 100) $+ ) %logo
unset %CAPS. $+ $nick
}
}
#capslar end
------------

#########
alias Koru dialog -m Koru Koru
dialog Koru {
title "HelpOper Script"
size -1 -1 90 110
option dbu
box "KanaL Koruma Sistemi ", 2, 4 31 80 60
check "Küfür Koruması", 3, 14 40 53 10
check "Badnick Koruması ", 4, 14 50 50 10
check "Flood Koruması", 5, 14 60 50 10
check "Tekrar Koruması", 6, 14 70 50 10
check "CapsLock Koruması", 7, 14 80 50 10
button "Kaydet / Kapat", 9, 25 93 45 14,ok
}
on 1:dialog:Koru:sclick:4:{ if %o4 = Kapalı {
.enable #badnicks | did -cxa Koru 4 Açık | .set %o4 Açık
}
else {
.disable #Badnicks | did -cxa Koru 4 Kapalı | .set %o4 Kapalı
}
}
on 1:dialog:Koru:sclick:3:{ if %o3 = Kapalı {
.enable #kkufur | did -cxa Koru 3 Açık | .set %o3 Açık
}
else {
.disable #kkufur | did -cxa Koru 3 Kapalı | .set %o3 Kapalı
}
}
on 1:dialog:Koru:sclick:5:{ if %o5 = Kapalı {
.enable #flood | did -cxa Koru 5 Açık | .set %o5 Açık
}
else {
.disable #flood | did -cxa Koru 5 Kapalı | .set %o5 Kapalı
}
}
on 1:dialog:Koru:sclick:6:{ if %o6 = Kapalı {
.enable #tekrar | did -cxa Koru 6 Açık | .set %o6 Açık
}
else {
.disable #tekrar | did -cxa koru 6 Kapalı | .set %o6 Kapalı
}
}
on 1:dialog:Koru:sclick:7:{ if %o7 = Kapalı {
.enable #capsLar | did -cxa Koru 7 Açık | .set %o7 Açık
}
else {
.disable #CapsLar | did -cxa Koru 7 Kapalı | .set %o7 Kapalı
}
}

on *:dialog:Koru:init:*: {
if (%o3 = Açık) { .enable #kkufur | did -c Koru 3 }
if (%o4 = Açık) { .enable #Badnicks | did -c Koru 4 }
if (%o5 = Açık) { .enable #flood | did -c Koru 5 }
if (%o6 = Açık) { .enable #tekrar | did -c Koru 6 }
if (%o7 = Açık) { .enable #capsLar | did -c Koru 7 }
}