Normal Mod | Çizgisel Mod

**BLaCK_and_WHiTe** · 01-27-2008, 01:03 PM

- Alias kullanmlar ve açklamalar -

Indetifier(lar) içinde "ok" kelimesi neden var?
Identifier içinde, "ok" kelimesinin manas, kullancy tüm kanallardan uzaklatrmaktr. Eer "ok" kelimesini eklemezseniz, sadece ilev yapt kanaldan banlyacaktr.

* Tekrar korumas(alias ismi /rpt)
Kullanm ekli: $rpt(kanal,nick,mesaj,saniye,limit,tüm kanal-asl kanal)
Örnek kullanm: $rpt(#,$nick,$1-,10,5,ok)
Korumann mant: Kanal geneline herhangi bir kullanc, belirlediiniz saniye içerisin'de, AYNI yazy belirlediiniz limit kadar veya fazlas tekrar ederse, kullancy kanal(lar)dan uzaklatrlr.

* Satr limit korumas(alias ismi /lns)
Kullanm ekli: $lns(kanal,nick,saniye,limit,ok)
Örnek kullanm: $lns(#,$nick,5,3,ok)
Korumann mant: Kanal geneline herhangi bir kullanc, herhangi bir text'i belirlediiniz saniye içerisin'de, belirlediiniz miktar veya fazlas gönderirse, kullancy kanal(lar)dan uzaklatrlr.

* Yasakl kelime korumas(alias ismi /bdwrd)
Kullanm ekli: $bdwrd(kanal,nick,mesaj,ok)
Örnek kullanm: $bdwrd(#,$nick,$1-,ok)
Korumann mant: Kanal geneline herhangi bir kullanc, badwords.txt içerisin'deki kelimelerden herhangi birisini gönderirse, kullancy kanal(lar)dan uzaklatrrsnz.

* Random text korumas(alias ismi /rndm-t)
Kullanm ekli: $rndm-t(kanal,nick,mesaj,mesaj-uzunluu,mesajdaki-sesli-harf-miktar,ok)
Örnek kullanm: $rndm-t(#,$nick,$1-,100,10,ok)
Korumann mant: Kanal geneline herhangi bir kullanc, belirlediiniz limit'e eit veya fazlas uzunlukta bir yaz gönderdiinde ve bu yazdaki sesli harf says, belirlediiniz limit'den az olduu taktirde, kullancy kanal(lar)dan uzaklatrrsnz.

* Büyük harf korumas(alias ismi /uppr-t)
Kullanm ekli: $uppr-t(kanal,nick,mesaj,mesajdaki-büyük-harf-yüzdesi,ok)
Örnek kullanm: $uppr-t(#,$nick,$1-,50,ok)
Korumann mant: Kanal geline herhangi bir kullancnn gönderdii text içerisin'de, belirlediiniz %(yüzde) miktarda büyük harf veya fazlas mevcut ise, kullancy kanal(lar)dan uzaklatrrsnz.

* Rakam korumas(alias ismi /nmbr-t)
Kullanm ekli: $nmbr-t(kanal,nick,mesaj,mesajdaki-rakam-yüzdesi,ok)
Örnek kullanm: $nmbr-t(#,$nick,$1-,75,ok)
Korumann mant: Kanal geline gönderilen text'de, belirlediiniz %(yüzde) miktarna eit veya fazlas rakam bulunuyorsa, kullancy kanal(lar)dan uzaklatrrsnz.

* Harf uzatma korumas(alias ismi /earful)
Kullanm ekli: $earful(kanal,nick,mesaj,uzatma-miktar,ok)
Örnek kullanm: $earful(#,$nick,$1-,20,ok)
Korumann mant: Kanal geneline gönderilen text'de ayn harf, belirlediiniz miktar veya fazlas uzatlrsa, kullancy kanal(lar)dan uzaklatrrsnz.

* Clone korumas(alias ismi /clon)
Kullanm ekli: $clon(kanal,nick,limit,ok)
Örnek kullanm: $clon(#,$nick,3,ok)
Korumann mant: Kanal'a giri yapan kullancnn host adresinden, kanal'da belirlediiniz miktar veya fazlas bulunuyorsa, kullanc(lar) kanal(lar)dan uzaklatrrsnz.

* Hzl giri korumas(alias ismi /spd-jn)
Kullanm ekli: $spd-jn(kanal,nick,saniye,limit,ok)
Örnek kullanm: $spd-jn(#,$nick,10,5,ok)
Korumann mant: Bulunduunuz veya belirlediiniz kanal'da, belirlediiniz saniye içerisinde, yine belirlediiniz miktarda giri yaplrsa, giri yapan kullanclarn TÜMÜNÜ, kanal(lar)dan uzaklatrrsnz.

* Kötü rumuz korumas(alias ismi /bdnck)
Kullanm ekli: $bdnck(nick)
Örnek kullanm: $bdnck($nick)
Korumann mant: Kanal'a giri yapan veya rumuz deitiren bir kullanc, badnick.txt içerisin'deki kelimelerden herhangi birisini içerirse, kullancy tüm kanallardan uzaklatrrsnz.

* Random nick korumas(alias ismi /rndm-n)
Kullanm ekli: $rndm-n(nick,rakam-ve-x|z|w|q-harf-says)
Örnek kullanm: $rndm-n($nick,4)
Korumann mant: Kanal'a giri yapan veya rumuz deitiren bir kullancnn, nick'inde; sfr(0) sessiz harf ve ya belirlediiniz miktar'a eit yada fazlas x/w/z/q harflerinden ve/ya rakam mevcut ise, kullancy tüm kanallar'dan uzaklatrrsnz.

- Aliaslar -

Kod:

alias -l all var %s 1 | while %s <= $comchan($1,0) { if $count($nick($comchan($1,%s),$me).pnick,@,&,~,%) != 0 || $regex($usermode,o|A|a|C|N) { ban -k $comchan($1,%s) $1 2 $2- } | inc %s }

alias -l rpt {

  if ($count($nick($1,$2).pnick,@,&,%,~,+) == 0) && ($count($nick($1,$me).pnick,@,&,~,%) != 0) || $regex($usermode,o|A|a|C|N) { hinc $+(-mu,$4) rpt $+($1,½,$2,$encode($3)) 1 }

  if ($hget(rpt,$+($1,½,$2,$encode($3))) >= $5) { hdel rpt $+($1,½,$2,$encode($3)) | if ($6 != ok) ban -k $1 $2 2 $3 saniye'de, $5 tekrar. | else all $2 $4 saniye'de, $5 tekrar. }

}

alias -l lns {

  if ($count($nick($1,$2).pnick,@,&,%,~,+) == 0) && ($count($nick($1,$me).pnick,@,&,~,%) != 0) || $regex($usermode,o|A|a|C|N) { hinc $+(-mu,$3) lns $+($1,½,$2) 1 }

  if ($hget(lns,$+($1,½,$2)) >= $4) { hdel lns $+($1,½,$2) | if ($5 != ok) ban -k $1 $2 2 $3 saniyede, $4 satr text gönderdiniz. | else all $2 $3 saniyede, $4 satr text gönderdiniz. }

}

alias -l bdwrd {

  if ($2 isreg $1) && ($count($nick($1,$me).pnick,@,&,~,%) != 0) || $regex($usermode,o|A|a|C|N) { var %q = 1 | while %q <= $lines(badwords.txt) {

  if $regex($3,$read(badwords.txt,%q)) { if ($4 != ok) ban -k $1 $2 2 yasak kelime sebebi. | else all $2 yasak kelime sebebi. | break } | inc %q } }

}

alias -l rndm-t {

  if ($count($nick($1,$2).pnick,@,&,%,~,+) == 0) && ($count($nick($1,$me).pnick,@,&,~,%) != 0) || $regex($usermode,o|A|a|C|N) {

  if ($len($3) >= $4 && $regex($3, /[aAeEuUüÜiIoOöÖ]/gi) < $5) { if ($6 != ok) ban -k $1 $2 2 gönderdiiniz $4 uzunluundaki text'de, $5 adet'den az sesli harf mevcut. | else all $2 gönderdiiniz $4 uzunluundaki text'de, $5 adet'den az sesli harf mevcut. } }

}

alias -l uppr-t {

  if ($count($nick($1,$2).pnick,@,&,%,~,+) == 0) && ($count($nick($1,$me).pnick,@,&,~,%) != 0) || $regex($usermode,o|A|a|C|N) {

  var %& $len($3) | if ($int($calc($regex($3, /[A-Z]/g)*100/%&)) >= $4) { var %l $v1 | if ($5 != ok) ban -k $1 $2 2 gönderdiiniz text'de % %l orannda büyük harf mevcut. | else all $2 gönderdiiniz text'de % %l orannda büyük harf mevcut. } }

}

alias -l nmbr-t {

  if ($count($nick($1,$2).pnick,@,&,%,~,+) == 0) && ($count($nick($1,$me).pnick,@,&,~,%) != 0) || $regex($usermode,o|A|a|C|N) {

  var %% $len($3) | if ($int($calc($regex($3, /[[:digit:]]/g)*100/%%)) >= $4) { var %&& $v1 | if ($5 != ok) ban -k $1 $2 2 gönderdiiniz text % %&& orannda rakam bulundurmakta. | else all $2 gönderdiiniz text % %&& orannda rakam bulundurmakta. } }

}

alias -l earful {

  if ($count($nick($1,$2).pnick,@,&,%,~,+) == 0) && ($count($nick($1,$me).pnick,@,&,~,%) != 0) || $regex($usermode,o|A|a|C|N) {

  if ($regex($3, /([[:print:]])\1/gi) >= $4) { var %o $v1 | if ($5 != ok) ban -k $1 $2 2 gönderdiiniz text'de herhangi bir harf'den, $calc(%o *2) adet mevcut. | else all $2 gönderdiiniz text'de herhangi bir harf'den, $calc(%o *2) adet mevcut. } }

}

alias -l spd-jn {

  if ($count($nick($1,$me).pnick,@,&,~,%) != 0) || $regex($usermode,o|A|a|C|N) { hadd $+(-mu,$3) $1 $2 1 }

  if ($hget($1,0).item >= $4) { var %1 1 | while (%1 <= $hget($1,0).item) {

  if ($5 != ok) ban -k $1 $hget($1,%1).item 2 $3 saniye içerisin'de, $4 adet'den fazla hzl giri tespit edildi. | else all $hget($1,%1).item $3 saniye içerisin'de, $4 adet'den fazla hzl giri tespit edildi. | inc %1 } }

}

alias -l clon {

  if (!$regex($ialchan($address($2,2),$1,1),admin|oper|helper|yardimci|aop|op)) && ($count($nick($1,$me).pnick,@,&,~,%) != 0) || $regex($usermode,o|A|a|C|N) { if ($ialchan($address($2,2),$1,0) >= $3) {

      var %c 1,%a = $gettok($ialchan($address($2,2),$1,1),2,64) | while %c <= $ialchan($address($2,2),$1,0) {

  if ($4 != ok) ban -k $1 $gettok($ialchan($address($2,2),$1,%c),1,33) 2 %a adresinden, $3 adet'den fazla clon tespit edildi. | else all $gettok($ialchan($address($2,2),$1,%c),1,33) 2 %a adresinden, $3 adet clon tespit edildi. | inc %c } } }

}

alias -l bdnck {

  var %p 1 | while (%p <= $lines(badnick.txt)) { if ($regex($1,$read(badnick.txt,%p))) { all $1 yasakl rumuz tespit edildi. | break } | inc %p }

}

alias -l rndm-n {

  if ($regex($1, /[aAeEuUüÜiIoOöÖ]/gi) == 0 || $regex($1,/x|w|z|q|[0-9]/gi) >= $2) { all $1 random nick tespit edildi. }

}

Bir kaç açklama:

/all alias' kullancy tüm kanallar'dan banlamak için kullanlr.
Yukar'da dediim gibi, identifier içerisine eer "ok" yazarsanz, kullancy tüm kanallar'dan banlarsnz. Yazmazsanz, sadece ilev yapt kanal'dan banlarsnz. Bu özellik, badnick ve random nick korumalar için geçerli deildir. Kullancy kanal'dan banlamak için, kullancnn kanal'da yetkili olmamas gerekmektedir. Zaten normalide budur. Sizin banlama yetkisine sahip olabilmeniz için, kanal'da yetkili konumunda olmanz veya kendi kullanc modunuz'da ($usermode) "aACNoO" flaglarn bulundurmanz gerekmektedir.

Örnek kullanmlar:

Kod:

on *:text:*:#: {

  $rpt(#,$nick,$1-,10,5,ok)

  $lns(#,$nick,1,3)

  $bdwrd(#,$nick,$1-)

  $rndm-t(#,$nick,$1-,50,10,ok)

  $uppr-t(#,$nick,$1-,50,ok)

  $nmbr-t(#,$nick,$1-,60)

  $earful(#,$nick,$1-,15,ok)

}

on !*:join:#: {

  $clon(#,$nick,5)

  $spd-jn(#,$nick,10,4)

  $bdnck($nick)

  $rndm-n($nick,3)

}

on !*:nick: {

  $bdnck($newnick)

  $rndm-n($newnick,3)

}