[CamdibiLee]

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:   Kodu kopyalamak için üzerine çift tıklayın!

 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ü?

[CamdibiLee]

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:   Kodu kopyalamak için üzerine çift tıklayın!

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:   Kodu kopyalamak için üzerine çift tıklayın!

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:   Kodu kopyalamak için üzerine çift tıklayın!

var %b 1
while %b < $ulist(*,badnick) {
if $ulist(*,badnick,%b) {
did -ac genel 92 $ulist(*,badnick,%b)
}
inc %b
}

Script kodları (4)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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:   Kodu kopyalamak için üzerine çift tıklayın!

if $1 == badnick {
var %i 1
while %i <= $ulist(*,badnick,0) {
mode $2 -b $ulist(*,badnick,%i)
inc %i
}
}
}

Script kodları (6)

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

_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.

[CoCoRiCo]

ban atarken referans ulist degil nick olmalı...

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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

[CamdibiLee]

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

Kod:   Kodu kopyalamak için üzerine çift tıklayın!

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:   Kodu kopyalamak için üzerine çift tıklayın!

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:   Kodu kopyalamak için üzerine çift tıklayın!

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?

[CoCoRiCo]

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

edit...

[CoCoRiCo]

toprak müsade et kendi yazsın
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Pardon abi
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.