IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - bad nick koruma ilave (https://www.ircforumlari.net/mirc-scripting-sorunlari/604575-bad-nick-koruma-ilave.html)

Cevap: bad nick koruma ilave

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Konuyu tamamen okumamışsın,
normalde kod toprak ın paylaştıgı muafip.txt belgesine 88.99.188.222 gibi ip eklemek için yazılmış.

Kod:

if !$3 || *#* !iswm $3

burada $3 koşulu olmalı ve $3 ün de içerisinde *#* işareti olması gerektiği, bunlar dahilinde kode işlevini tamamlıyacaktır denilmiş.
Kısacası kodun orjınal hali ip eklemeleri için *.*.* şeklinde olup kucuk değişiklikle muafkanal.txt belgesine #kanala, #kanalb, #kanalc, şeklinde kanal eklettirmek için *.*.* kaldırılıp kanal ibaresi *#* eklenmiş olup
!Muafkanal Ekle #Sohbet
!Muafkanal Ekle #Radyo
gibi çalışmaktadır yukarda belirttiğim gibi *.*.* silinip *#* eklenip amaç olarak sadece muafkanal.txt belgesine
#kanal1
#kanal2
#kanal3
şeklinde eklettirmek amaçlanmıştır..

Cevap: bad nick koruma ilave

Kod:

on 1:start:{

  hmake badnick

  hload badnick badnick.db

}

dialog bad_s {

  title "Badnick"

  size -1 -1 80 64

  option dbu

  edit "", 1, 2 1 50 10

  button "EKLE", 2, 53 2 25 8

  button "Liste", 6, 53 23 25 8

  edit "", 3, 2 12 50 10

  button "SiL", 4, 53 13 25 8

  button "Kapat", 5, 2 43 77 10, ok

}

on *:dialog:bad_s:*:*: {

  if $devent == SCLICK {

    if $did == 2 {

      hadd -m badnick $r(1000,999999) $did(1).text

      hsave badnick badnick.db

      .echo $colour(info) -a $timestamp *** $+(7,$did(1).text,) veritabanına başarıyla eklendi.

    }

    if $did == 6 {

      var %i = 1

      while %i <= $hget(badnick,0).item {

        echo -a %i $+ -) $hget(badnick,%i).data

        inc %i

      }

    }

    if $did == 4 {

      var %; $did(3).text

      if $hfind(badnick,%;,1,W).data {

        hdel badnick $ifmatch

        hsave badnick badnick.db

        .echo $colour(info) -a $timestamp *** $+(4,%;,) Veritabanından silindi.

      }

      else { .echo $colour(info) -a $timestamp *** $+(4,%;,) Veritabanında bulunamadı. }

    }

  }

}

on ^*:join:#:{

  if ($me ishop $chan) {

    if !$istok(#muaf1 #muaf2 #muaf3,$chan,32) {

      if !$istok(nick1 nick2 nick3,$nick,32) {

        if !$regex($gettok($address($nick,1),2,64),/(admin|oper|helper|global|yardimci|aop|op|ircop|global|sop|founder)/i) {

          if $hfind(badnick,$nick,1,W).data {

            .mode # +b $nick 

            .kick # $nick nick değişip tekrar giriniz

          }

        }

      }

    }

  }

}

menu * {

  -

  + badnick koruması:/dialog -m bad_s bad_s

  - 

}

Basit küçük bir diyalog muaf nick, muaf kanal, muaf host eklenebılır
ekle, sil, listele, şeklinde badnick işlemleride yapılır :)

Cevap: bad nick koruma ilave

Evet şimdi dikkat ettim muaf kanalmış o zaman a#a gibi eklemeleri engellemek için en sağlıklı yol

Kod:

#?*

yada

Kod:

$regex($3,^#([a-zA-Z0-9ğĞçÇiİşŞüÜöÖ]+$))

gibi bir sorguda yapılabilir

Cevap: bad nick koruma ilave

Alıntı:

xwerswoodx Nickli Üyeden Alıntı (Mesaj 1041474580)

Kod:

$regex($3,^#([a-zA-Z0-9ğĞçÇiİşŞüÜöÖ]+$))

gibi bir sorguda yapılabilir

yada :P

Kod:

$regex($3,^#.+)

$regex($3,^#\S+$)

geriye  dönük referans aticaksa :p

$regex($3,^(#.+))

kafa karistirmaya gerek yok :p

Cevap: bad nick koruma ilave

Alıntı:

aLone Nickli Üyeden Alıntı (Mesaj 1041473167)

kullanıcı bölümüne ekleniyor, ALT+R tusuna bastıgınızda acılan panelde yukarı sağda.
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

hocam teşekkürler çok güzel bir kod oldu.
peki biz başka bir rumuzun attığı ban'ı ban listemize ekleyebilirmiyiz?

biz ban attığımızda nasılki oto banlist'e ekleniyorsa.
aynı şekilde ahmet rumuzunun attığı ban benim ban liste eklensin?

Cevap: bad nick koruma ilave

bu bölümü sil

Kod:

on *:ban:#: { if $nick == $me { auser badnick $bnick | echo -a $bnick badnick liste eklendi. } }

Bunu ekle

Kod:

on *:ban:#: {

  auser badnick $bnick | echo -a $bnick badnick liste eklendi. 

}

bu oto banlar sağlıklı olmaz haberin olsun, yanlışlıkla birine kanalda ban atılsa +b uygulanırsa scriptin oto ekler onu badnick listesine, buda sağlıklı olmaz yinede sana kalmış..

Cevap: bad nick koruma ilave

Alıntı:

aLone Nickli Üyeden Alıntı (Mesaj 1041479962)

bu bölümü sil

Kod:

on *:ban:#: { if $nick == $me { auser badnick $bnick | echo -a $bnick badnick liste eklendi. } }

Bunu ekle

Kod:

on *:ban:#: {

  auser badnick $bnick | echo -a $bnick badnick liste eklendi. 

}

bu oto banlar sağlıklı olmaz haberin olsun, yanlışlıkla birine kanalda ban atılsa +b uygulanırsa scriptin oto ekler onu badnick listesine, buda sağlıklı olmaz yinede sana kalmış..

burada hem bizim attığımız ban hemende belirlediğimiz rumuzun attığı banmı listeye ekleniyor?

mesela hem benim banım eklenecek hemde belirlediğim Ahmet rumuzunun banı listeye eklenecek.
rumuzuma + olarak ahmet'in nickini kod'da nereye yazacağım.

Cevap: bad nick koruma ilave

Son verdiğim bölümü aşagıdaki ile değiştir

Kod:

on *:ban:#: { 

  if $nick == $me || $nick == ahmet {

    auser badnick $bnick | echo -a $bnick badnick liste eklendi.

  }

}

Cevap: bad nick koruma ilave

Alıntı:

aLone Nickli Üyeden Alıntı (Mesaj 1041480435)

Son verdiğim bölümü aşagıdaki ile değiştir

Kod:

on *:ban:#: { 

  if $nick == $me || $nick == ahmet {

    auser badnick $bnick | echo -a $bnick badnick liste eklendi.

  }

}

benim banımı ekledi fakat belirlediğim rumuzun banını eklemedi.

Cevap: bad nick koruma ilave

Kod:

#shilisten on

on @*:join:#: {

  if $level($nick $+ !*@*) == badnick {

    banall $nick $ulist($nick,badnick,1)

    kickall $nick KanaLda Girişin Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.

  }

}

on *:part:#: {

  if $level($nick $+ !*@*) == badnick {

    mode # +b $ulist($nick,badnick,1)

    kick # $nick KanaLdan Çıkışın Karaliste/Badnick/Inviter Sebebinden Dolayı Yasaklanmıştır.

  }

}

on *:nick: {

  if $level($newnick $+ !*@*) == badnick {

    banall $newnick $ulist($newnick,badnick,1)

    kickall $newnick New-Nick ‘iniz ßad oLarak Tespit ediLdi Nick değiştirerek Tekrar Giriniz ! ßy $me

  }

}
 

#shilisten end
 

alias banall {

  var %i 1

  while %i <= $comchan($1,0) {

    if $1 !isop $comchan($1,%i) { mode $comchan($1,%i) +b $2- }

    inc %i

  }

}

alias kickall {

  var %i 1

  while %i <= $comchan($1,0) {

    if $1 !isop $comchan($1,%i) { kick $comchan($1,%i) $1 $2- }

    inc %i

  }

}

menu * {

  -

  + Badnick

  .+ ekLe:/auser badnick $$1

  .+ çıkart:/ruser badnick $$1

  .+ ListeLe:/ulist badnick

  + Korumayı

  .+ Aç:/enable #shilisten | /echo -at biLgi; Badnick Koruması AçıLdı..

  .+ Kapat:/disable #shilisten | /echo -at biLgi; Badnick Koruması kapatıLdı..

  - 

}

on *:input:*:{

  if $1 == !badtara { tara $chan | msg $chan $chan kanalı taranıyor }

}

on *:ban:#: { 

  if $nick == $me || $nick == ahmet {

    auser badnick $bnick | echo -a $bnick badnick liste eklendi. ban kullanan nick $nick

  }

}

alias tara {

  var %t = 1,

  while (%t <= $nick($1,0)) {

    var %badnick = $nick($1,%t)

    if ($level($nick($1,%t)) == badnick) { mode $1 +b $ulist(%badnick) | kick $1 %badnick  Nick Uygunsuz }

    inc %t 1

  }

}

Kodda sorun yok denedim.. komple kopyala remoteye ekle..
if $nick == $me || $nick == ahmet { buradaki ahmet nicki diger istediğin nick tir..