IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Random nick/ident remotesinde ban atma sorunu

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

- - Random nick/ident remotesinde ban atma sorunu (https://www.ircforumlari.net/mirc-scripting-sorunlari/538205-random-nick-ident-remotesinde-ban-atma-sorunu.html)

Random nick/ident remotesinde ban atma sorunu

Merhaba İF üyeleri;
Herkese hayırlı Ramazan'lar.
Konu başlığını yazarken açılmış konuları inceledim ama konuları hortlatmak istemedim.
Bir süredir random nick/ident koruması aramama rağmen, bir türlü içime sinen bir random nick/ident koruması bulamadım. Bulduklarım ya çalışmadı, ya da istediğim formatta değildi.
Dün tesadüfen çok alâkasız bir sitede, aşağıdaki random nick/ident korumasını buldum.
Tam istediğim formatta çalışıyor, yapanın eline-koluna sağlık.
Dünden beri kaç kere hayır dua ettim bilmiyorum.
Şu mübarek ayda sevindirdi beni...

Öncelikle kullandığım random nick/ident korumasını yazmak istiyorum.

Kod:

 alias _ran2 {

  var %a = a.A.ı.I.i.İ.o.ö.Ö.u.ü.Ü.e.E,%b = b.c.ç.Ç.d.f.g.ğ.Ğ.h.j.k.l.m.n.p.r.s.ş.Ş.t.v.y.z.q.w.x,%i = 1

  while $mid($4,%i,1) {

    if ($istok(%a,$mid($4,%i,1),46)) { var %s = %a ,%is = $1 }

    elseif ($istok(%b,$mid($4,%i,1),46)) { var %s = %b,%is = $2 }

    else { unset %s }

    if %s {

      var %im = 0,%ig = %is

      while %is {

        if ($istok(%s,$mid($4,$calc((%i + %is) - 1),1),46)) {

          inc %im

        }

        if (%im >= %ig) { return evet }

        if ($calc((%i + %im) -1) >= $3) { return }

        dec %is

      }

    }

    inc %i

  }

}

on *:nick:{ if $_ran2(3,3,99,$nick) { !KOMUT SATIRI }

on *:join:#:{ if $_ran2(3,3,99,$nick) { !KOMUT SATIRI }

Daha sonrasında da bu random nick/ident koruması ile ne yapmak istediğimi belirteyim:

[Aliases]
mode $1 +b $ulist($nick($1,%i) $+ !*@*,1)

[Users] bölümünde
badnick:*0532* şeklinde ekli olduğu için,

* 0532falanfilan (ident@host) has joined #kanal
* nick sets mode: +b *0532*!*@* şeklinde ban atabiliyorum.

ama gel gelelim, random nickler ekli olmadığı için *mask*!*@* şeklinde ban atamıyorum.

ÖRNEK:
* ircforumlari (ident@host) has joined #kanal'agirdiği zaman
* nick sets mode: +b *ircforumlari*@* gibi 10 farklı ban atıyor ama;
* nick sets mode: +b *rcf*@* olarak ban atmak istiyorum.

Dünden beri bildiğim ve bulduğum yöntemleri denedim ama ne yazık ki sonuç alamadım.
Bu random nick/ident korumasında nick içindeki yan yana yazılmış üç sesli veya sessiz harfe ban attırmak münkün mü?

Random nick/ident remotesinde ban atma sorunu (DEVAMI)

Eğer mümkün değilse;

[users]
badnick:*falan*
badnick:*filan*
badnick:*felan* şeklinde ekli olan badnick'lere
*falan*!*@*
*filan*!*@*
*felan*!*@* olarak ban atmak yerine *nick*!*@* maskesini kullanmak istiyorum.

Script kodlarını bir hayli kucalasam da işe yaramadı. Hatta tüm +b modlarını $nick yaptım, $1, $2, $3... şeklinde denedim ama, yine de bir sonuç alamadım.

Script kodları (1)

Kod:

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

!mode # +b $ulist($nick $+ !*@*,1)

!kick # $nick $kmesaj(bul,23) $slogo

rapor Badnick girişi görüldü: kanal: # - nick: $nick - mask: $ulist($nick $+ !*@*,1)

return

}

Script kodları (2)

Kod:


 if %n == 352 {

if $level($6) == badnick {

if $ircop {

kill $6 $kmesaj(bul,36)

return

}

var %i 1

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

if $me isop $comchan($me,%i) {

modex $comchan($me,%i) +b $ulist($6 $+ !*@*,1)

kick $comchan($me,%i) $6 $kmesaj(bul,23)

}

inc %i

}

}

Script kodları (3)

Kod:

var %b 1

while %b < $ulist(*,badnick) {

if $ulist(*,badnick,%b) {

did -ac genel 92 $ulist(*,badnick,%b)

}

inc %b

}

Script kodları (4)

Kod:

if $level($nick($1,%i) $+ !*@*) == badnick {

if $me isop $1 || $me ishop $1 || $ircop { .timer 1 5 _do !mode $1 -b $ulist($nick($1,%i) $+ !*@*,1) }

.timer 1 5 kick $1 $nick($1,%i) $kmesaj(bul,23)

rapor Badnick girişi görüldü: kanal: $1 - nick: $nick($1,%i) - mask: $ulist($nick($1,%i) $+ !*@*,1)

}

if $rayar(genel,randomnick) == acik {

if $randmi($nick($1,%i)) {

if $ircop {

kill $nick($1,%i) $kmesaj(bul,11)

}

else {

.timer 1 5 kick $1 $nick($1,%i) $kmesaj(bul,11)

}

rapor Random nick girişi tespit edildi: kanal: $1 - nick: $nick($1,%i)

}

}

Script kodları (5)

Kod:

if $1 == badnick {

var %i 1

while %i <= $ulist(*,badnick,0) {

mode $2 -b $ulist(*,badnick,%i)

inc %i

}

}

}

Script kodları (6)

Kod:

_sbtara {

var %b 1

while %b < $ulist(*,badnick) {

if $gettok($ulist(*,badnick,%b),1,33) {

kill $gettok($ulist(*,badnick,%b),1,33) $kmesaj(bul,36)

}

inc %b

}

}

ÖRNEK:
* falanca (ident@host) has joined #kanal
* filanca (ident@host) has joined #kanal
* felanca (ident@host) has joined #kanal'a girdiği zaman
* nick sets mode: +b *falan*!*@* yerine;
* nick sets mode: +b *falanca*!*@* olarak
* nick sets mode: +b *filan*!*@* yerine;
* nick sets mode: +b *filanca*!*@* olarak
* nick sets mode: +b *felan*!*@* yerine;
* nick sets mode: +b *felanca*!*@* olarak ban atmasını istiyorum.

Cevap: Random nick/ident remotesinde ban atma sorunu

ban atarken referans ulist degil nick olmalı...

Kod:

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

;!mode # +b $ulist($nick $+ !*@*,1) bunun yerine...

!mode # +b $+(*,$nick,*!*@*)

...

}

sen zaten badnick kontrolünü yapmıssın bir daha neden ban maskını ullistten alıyorsun..

Random nick remotesine random ident ekleme hatası/sorunu

Konu biraz yön değiştirdi...
Öncelikle, elimdeki random nick remotesini paylaşayım.

Kod:

alias random {

  var %a = a.A.ı.I.i.İ.o.ö.Ö.u.ü.Ü.e.E,%b = b.c.ç.Ç.d.f.g.ğ.Ğ.h.j.k.l.m.n.p.r.s.ş.Ş.t.v.y.z.q.w.x,%i = 1 && var %identd = a.A.ı.I.i.İ.o.ö.Ö.u.ü.Ü.e.E,%b = b.c.ç.Ç.d.f.g.ğ.Ğ.h.j.k.l.m.n.p.r.s.ş.Ş.t.v.y.z.q.w.x,%i = 1

  while $mid($4,%i,1) {

    if ($istok(%a,$mid($4,%i,1),46)) { var %s = %a ,%is = $1 }

    elseif ($istok(%b,$mid($4,%i,1),46)) { var %s = %b,%is = $2 }

    else { unset %s }

    if %s {

      var %im = 0,%ig = %is

      while %is {

        if ($istok(%s,$mid($4,$calc((%i + %is) - 1),1),46)) {

          inc %im

        }

        if (%im >= %ig) { return evet }

        if ($calc((%i + %im) -1) >= $3) { return }

        dec %is

      }

      inc %i

    }

  }

}

Bu remoteye;

Kod:

on *:nick:{ if $random(3,3,99,$nick) { mode $chan +b $nick | kick $chan $nick $kmesaj(bul,11) $slogo } }

on *:join:#:{ if $random(3,3,99,$nick) { mode $chan +b $nick | kick $chan $nick $kmesaj(bul,11) $slogo } }

Kodlarını ekleyince sorun olmuyor ama, aşağıdaki kodu ilave edince remote çalışmıyor.

Kod:

on *:join:#:{ if $random(3,6,99,$remove($gettok($gettok($address($n ick ,5),2,33),1,64),~)) { badidentd $nick | kick $chan $nick $kmesaj(bul,40) $slogo } }

Random nick korumasına random ident korumasını nasıl ekleyebilirim?

Cevap: Random nick/ident remotesinde ban atma sorunu

$nick yerine $address($nick) den tokenle sadece identi al

Cevap: Random nick/ident remotesinde ban atma sorunu

toprak müsade et kendi yazsın :)

Cevap: Random nick/ident remotesinde ban atma sorunu