Koruma Türkçe mIRC indir - Resmi mIRC indirme Sitesi

mIRC Badnick Koruması

02 Ekim 2015 • 13:40 OxiGeN Addonlar, Hazır Kodlar, Türkçe mIRC

Kurulum: Kodu çalıştırmak için aşağıdaki 2 işlemden birini uygulayabilirsiniz. 1) Kodları ALT+R yapıp açılan pencereye yapıştırın. 2) Bir not defteri açıp içine yapıştırın ve mIRC klasörünüzün içine atın. Daha sonra mIRCte /load -rs Dosyanız.txt komutunu uygulayın. Kodlar:

;--------------------------------------------------
; Kötü Rumuz Koruması
; /KötüRumuz Yazarak Çalıştırabilirsiniz...
on *:LOAD:{
  run notepad.exe nickler.txt
  set %oto-tara on
  set %NickDeğiş on
  set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
}
;---------------------------------------------------------
alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }
dialog kötürumuz {
  title "Kötü Rumuz Koruması"
  size -1 -1 200 180
  option dbu
  text "..:: Rumuz Listesi ::..", 999, 20 10 60 10
  combo 1, 5 20 90 130
  button "Ekle (+)", 2, 4 146 27 13
  button "Çıkar (-)", 3, 32 146 27 13
  button "Temizle (!)", 4, 60 146 35 13
  box "Seçenekler", 5, 101 17 93 40
  check "OP olduğumda tarama yap!", 6, 106 28 73 10
  check "Yeni rumuz kötüyse at!", 7, 106 40 70 10
  button "?", 8, 182 28 9 9
  button "?", 9, 182 40 9 9
  box "Kick Mesajınız", 10, 101 60 93 40
  edit "", 11, 106 76 83 10, autohs
  box "Açıklamalar", 12, 101 103 93 55
  text "Kötü Rumuz Koruması www.IRCForumlari.net S1y4H", 13, 106 110 85 40
  link "www.ircforumlari.net", 14, 108 164 52 15
  button "Kapat!", 15, 168 161 27 13
  text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable
}
on *:dialog:kötürumuz:*:*:{
  if ($devent == init) {
    loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1
    if (%oto-tara == on) { did -c kötürumuz 6 }
    if (%NickDeğiş == on) { did -c kötürumuz 7 }
    did -a $dname 11 %kckmsg
  }
  if ($devent == sclick) {
    if ($did == 2) {
      var %kötürmz = $did(1).text
      if $read(nickler.txt,w,%kötürmz) {
        echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.
      }
      else {
        write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text
      }
    }
    if ($did == 3) {
      if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }
    }
    if ($did == 4) {
      if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki  $+ %satırsayısı $+  adet rumuz silindi. | unset %satırsayısı } | else { return }
    }
    if ($did == 8) {
      did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.
    }
    if ($did == 9) {
      did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.
    }
    if ($did == 6) {
      if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }
      elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }
    }
    if ($did == 7) {
      if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }
      elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }
    }
    if ($did == 14) {
      run http://www.ircforumlari.net
    }
    if ($did == 15) {
      if ($did(11) == $Null) {
        echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.
        dialog -x kötürumuz kötürumuz
        set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.
      }
      else {
        set %kckmsg $did(11)
        dialog -x kötürumuz kötürumuz
      }
    }
  }
}
;--------------------
; Kodlamalar...
;--------------------
on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }

#NickDeğiş on
on *:NICK:{ if $kotunick($newnick) { 
    var %_ = 1, %< = $v1 | while $comchan($newnick,%_) { 
      if $me isop $v1 { 
        mode $v2 +b %< | kick $v2 $newnick %kckmsg 
      } | inc %_ 
    } 
  } 
} 
#NickDeğiş end 

alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) { 
    if $v1 iswm $1 {
      return $v1 
    } 
    inc %_ 
  } 
  return $false 
} 
alias krt { 
  if $1 ischan && $me isop $1 { 
    var %` = $lines(Nickler.txt) while %` { 
      if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ { 
          if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 { 
            mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg 
          } 
          dec %~ 
        } 
      }
      dec %`
    }
  }
}
#oto-tara on
on *:OP:#:if $opnick == $me { 
  krt $chan 
}
#oto-tara end

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

;--------------------------------------------------

; Kötü Rumuz Koruması

; /KötüRumuz Yazarak Çalıştırabilirsiniz...

on *:LOAD:{

run notepad.exe nickler.txt

set %oto-tara on

set %NickDeğiş on

set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.

}

;---------------------------------------------------------

alias kötürumuz { if (!$dialog(kötürumuz)) dialog -m kötürumuz kötürumuz }

dialog kötürumuz {

title "Kötü Rumuz Koruması"

size -1 -1 200 180

option dbu

text "..:: Rumuz Listesi ::..", 999, 20 10 60 10

combo 1, 5 20 90 130

button "Ekle (+)", 2, 4 146 27 13

button "Çıkar (-)", 3, 32 146 27 13

button "Temizle (!)", 4, 60 146 35 13

box "Seçenekler", 5, 101 17 93 40

check "OP olduğumda tarama yap!", 6, 106 28 73 10

check "Yeni rumuz kötüyse at!", 7, 106 40 70 10

button "?", 8, 182 28 9 9

button "?", 9, 182 40 9 9

box "Kick Mesajınız", 10, 101 60 93 40

edit "", 11, 106 76 83 10, autohs

box "Açıklamalar", 12, 101 103 93 55

text "Kötü Rumuz Koruması www.IRCForumlari.net S1y4H", 13, 106 110 85 40

link "www.ircforumlari.net", 14, 108 164 52 15

button "Kapat!", 15, 168 161 27 13

text "..:: Kötü Rumuz Koruması ::..", 16, 13 165 80 10,disable

}

on *:dialog:kötürumuz:*:*:{

if ($devent == init) {

loadbuf -o $dname 1 $shortfn(nickler.txt) | did -c $dname 1 1

if (%oto-tara == on) { did -c kötürumuz 6 }

if (%NickDeğiş == on) { did -c kötürumuz 7 }

did -a $dname 11 %kckmsg

}

if ($devent == sclick) {

if ($did == 2) {

var %kötürmz = $did(1).text

if $read(nickler.txt,w,%kötürmz) {

echo -a $timestamp *** Eklemek istediğiniz rumuz listede mevcut.

}

else {

write nickler.txt %kötürmz | did -a $dname 1 %kötürmz | did -d $dname 1 $did(1).text

}

if ($did == 3) {

if $read(nickler.txt,w,$did(1).seltext) { write $+(-dl,$readn) nickler.txt | did -d $dname 1 $did(1).sel }

}

if ($did == 4) {

if ($$?!="Bütün listeyi silmek istediğinizden emin misiniz?" == $true) { set %satırsayısı $lines(nickler.txt) | write -c nickler.txt | did -r $dname 1 | echo -a $timestamp *** Listedeki $+ %satırsayısı $+ adet rumuz silindi. | unset %satırsayısı } | else { return }

}

if ($did == 8) {

did -a $dname 13 +o modunu aldığınızda otomatik olarak kötü rumuz arar, bulunanları Nick!*@* şeklinde banlayıp atar. Özellikle kanala girdiğinizde (@ olursanız) oto. tarama yapacağından işinize yaracaktır.

}

if ($did == 9) {

did -a $dname 13 @ olduğunuz kanallarda kullanıcı nick değiştirdiğinde seçtiği yeni rumuz listedeki tanımlamalarınızdan biriyle uyuşursa @ olduğunuz tüm kanallarda Nick!*@* ban şeklinde uzaklaştırılır.

}

if ($did == 6) {

if (%oto-tara == off) { .set %oto-tara on | .enable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4aktif. }

elseif (%oto-tara == on) { .set %oto-tara off | .disable #oto-tara | echo -a $timestamp *** Otomatik rumuz tarama 4kapatıldı. }

}

if ($did == 7) {

if (%NickDeğiş == off) { .set %NickDeğiş on | .enable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4aktif. }

elseif (%NickDeğiş == on) { .set %NickDeğiş off | .disable #NickDeğiş | echo -a $timestamp *** Yeni kötü rumuz koruması 4kapatıldı. }

}

if ($did == 14) {

run http://www.ircforumlari.net

}

if ($did == 15) {

if ($did(11) == $Null) {

echo -a $timestamp *** Kick Mesajı belirlenmedi, orjinal mesaj kullanılacak.

dialog -x kötürumuz kötürumuz

set %kckmsg 4Rumuzunuz 1kanal seviyesine uygun olmayan nitelikler taşımaktadır. 4/Nick YeniRumuz 1komutuyla rumuzunuzu değiştirmeden kanala giriş yapamazsınız.

}

else {

set %kckmsg $did(11)

dialog -x kötürumuz kötürumuz

}

;--------------------

; Kodlamalar...

;--------------------

on @*:join:#:if $kotunick($nick) { mode # +b $nick | kick # $nick %kckmsg }

#NickDeğiş on

on *:NICK:{ if $kotunick($newnick) {

var %_ = 1, %< = $v1 | while $comchan($newnick,%_) {

if $me isop $v1 {

mode $v2 +b %< | kick $v2 $newnick %kckmsg

} | inc %_

}

#NickDeğiş end

alias kotunick { var %_ = 1 | while $read(nickler.txt,%_) {

if $v1 iswm $1 {

return $v1

}

inc %_

}

return $false

}

alias krt {

if $1 ischan && $me isop $1 {

var %` = $lines(Nickler.txt) while %` {

if $fline($1,$read(Nickler.txt,%`),0,1) >= 1 { var %~ = $ifmatch | while %~ {

if $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) isreg $1 {

mode $1 +b $+($read(Nickler.txt,%`),!*@*) | kick $1 $line($1,$fline($1,$read(Nickler.txt,%`),%~,1),1) %kckmsg

}

dec %~

}

dec %`

}

#oto-tara on

on *:OP:#:if $opnick == $me {

krt $chan

}

#oto-tara end

» Devamını Oku

Yorum yaz badnick, hazır kodlar, Koruma, mirc, Mirc indir, scripting, turkce mırc

mIRC Proxy korumasi [Addon]

26 Eylül 2015 • 23:48 OxiGeN Addonlar, Hazır Kodlar, Scriptler, Türkçe mIRC

on *:Start:$iif(!$file(pm.s),write -c pm.s) | hmake pm | hload pm pm.s on *:sockopen:sorgu*:{ var %xs sockwrite -n $sockname %xs GET $+(/proxy/api/sorgu.php?key=,%api.key,&ip=,$regsubex($sockname,(.+)\*(.+)\*(.+),\2)) HTTP/1.1 %xs Host: proje.ircdepo.tk %xs Accept: image/jpeg, application/x-ms-application, image/gif, application/xaml+xml, image/pjpeg, application/x-ms-xbap, */* %xs Accept-Language: tr-TR %xs User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 6.1; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729) %xs Connection: Keep-Alive […]

» Devamını Oku

Yorum yaz Koruma, mirc, Proxy, scripting, turkce mırc

mIRC Büyük harf koruma Addon

19 Nisan 2014 • 19:29 OxiGeN Addonlar

alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }

#caps on
on @*:TEXT:*:#: {
  if $me !isop $chan { halt } | if $nick isop $chan { halt }
  if ($len($1-) &lt; 50) || ($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 &gt;= 0.8) {
    /mode $chan +b $address($nick,2) | /kick $chan $nick CAPS LOCK/OFF ( $+ % $+ $calc(%percent * 100) $+ )
    unset %CAPS. $+ $nick 
  }
}

#caps end

alias capsban { if (%ipban == on) { //Ban -u $+ 900 # $nick 2 } | mode # +b $$1 }

#caps on

on @*:TEXT:*:#: {

if $me !isop $chan { halt } | if $nick isop $chan { halt }

if ($len($1-) < 50) || ($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) {

/mode $chan +b $address($nick,2) | /kick $chan $nick CAPS LOCK/OFF ( $+ % $+ $calc(%percent * 100) $+ )

unset %CAPS. $+ $nick

}

#caps end

» Devamını Oku

Yorum yaz addon, büyük, harf, Koruma, mirc

SC5 Koruma Addonu

14 Mart 2014 • 22:55 OxiGeN Addonlar

alias sc5mi { 
if $lower($1) === $2 { 
return evet 
} 
} 
on *:snotice:*client connecting*: { 
if $sc5mi($9,$remove($gettok($gettok($10,1,40),1,64),~)) { 
!kline *@ $+ $remove($gettok($10,2,64),$chr(41)) 4SC5! 30 
} 
} 
raw *:*: { 
if $numeric == 381 { 
umode +c 
} 
}

alias sc5mi {

if $lower($1) === $2 {

return evet

}

on *:snotice:*client connecting*: {

if $sc5mi($9,$remove($gettok($gettok($10,1,40),1,64),~)) {

!kline *@ $+ $remove($gettok($10,2,64),$chr(41)) 4SC5! 30

}

raw *:*: {

if $numeric == 381 {

umode +c

}

» Devamını Oku

Yorum yaz addon, Koruma, Sc5

Bad identd korumasi Addon

22 Şubat 2014 • 15:20 OxiGeN Hazır Kodlar

on @*:JOIN:#:{ if (*!*fuck*@* iswm $fulladdress) || (*!*sex*@* iswm $fulladdress) || (*!*.com*@* iswm $fulladdress) || (*!*.net*@* iswm $fulladdress) || (*!*abaza*@* iswm $fulladdress) || (*!*pasif*@* iswm $fulladdress) { ban -u300 # $nick 2 ban # $nick 5 | /kick # $nick Bad identd korumasina takildiniz! }

» Devamını Oku

Yorum yaz addon, Bad, identd, Koruma, mirc

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 […]

» Devamını Oku

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

« 1 2