Kanal Koruma Sistemi addonu

07 Nisan 2013 • 17:10 dELi Hazır Kodlar

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 }
}

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

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 }

}

—

Bu kısım popuslerden KANAL kısmına eklenecektir

–
.• BadTara
..»Tarama Yap:.BadTara $chan
..»Badnick Ekle:/auser Badnick $$?=”Badnick Girin ? * Kullanabilirsiniz” $+ !*@*
..»Badnick Sil:/ruser Badnick $$?=”Silmek istediğiniz Nick” $+ !*@*
–

Kanalda sağ tıklayıp BADNİCK ekle butonundan istediğiniz kelimeleri karakter kullanarak bad nick listesine ekleyebilirsiniz

Örnek:

*azgın*
*jigo*
*ewLi*
*ablan*

Bu şekilde nickinin içerisinde bu karakterler varsa oto banlar.

Yorum yaz Addonu, Badnick Koruma, chat, Kanal, Kanal Koruma Addonu, Kanal Koruma Sistemi addonu, Kanal korumaları, Koruma, Küfür koruma vb, Mirc indir, Sistemi, Sohbet et, Türkçe mirc. addonlar

Kanal Koruma Sistemi addonu

Bir cevap yazın Cevabı iptal et