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

Sayfa 1 Toplam 2 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)

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

- - Tüm Banları Yanyana Açtırabilmek ? (https://www.ircforumlari.net/mirc-scripting-sorunlari/173862-tum-banlari-yanyana-actirabilmek.html)

RapStar

22 Ocak 2009 14:44

Tüm Banları Yanyana Açtırabilmek ?

Kod:

raw *:*: {

  var %abc $numeric 

  if %abc == 367 && $me isop $2 {

    mode $2 -b $3

    haltdef 

  }

}

alias f12 { if $me isop $active { mode $active +b } | else { echo -a Sen Kendini Op mu Sanıyorsun... :) } }

Bu Komut Normal Çalışıyor Fakat Alt Alta Açıyor. Banları Yan Yana Açtırabilmemiz Mümkünmü ?

Difuzyon

22 Ocak 2009 16:46

Cevap: Tüm Banları Yanyana Açtırabilmek ?

Remote'a eklenecek kısım:

Kod:

alias bans {

  var %senk = $ibl($1,0), %yep = $calc($ibl($1,0) - 12) 

  while %senk >= %yep { 

    %total = $addtok(%total,$ibl($1,%senk),32)  

    dec %senk 

  }  

  while %total { 

    mode $1 $+(-,$str(b,12)) $token(%total,1-13,32)

    %total = $deltok(%total,1-13,32)   

  }

}

Aliases'e eklenecek kısım:

PHP- Kodu:

   f12 { if $me isop $active { mode $active b | .timer 5 2 bans $active } | else { echo -a Sen Kendini Op mu Sanıyorsun... :) } }

Kanal penceresinde f12 tuşuna bastığınızda banları açacaktır.

Kanalda tek komut satırında uygulanabilecek mode prefix sayısı 12 olarak hesap edilmiştir.(bknz: /version)
Kanal banlist maximum değeri 60 olarak hesap edilmiştir.(bknz: /version)

Şayet banlist 60'dan fazlaysa (.timer 5 .......)deki 5 değerini 12 çarpanına göre yükseltmelisiniz.(5*12=60)

İyi forumlar...

RapStar

23 Ocak 2009 01:33

Cevap: Tüm Banları Yanyana Açtırabilmek ?

İzin verilmedi, gerekli IRC Operatör yetkisine sahip değilsiniz.
İzin verilmedi, gerekli IRC Operatör yetkisine sahip değilsiniz.

XcLusive

23 Ocak 2009 15:14

Cevap: Tüm Banları Yanyana Açtırabilmek ?

Kod:

alias clearallban {

  if ($regex($usermode,/(o|O|N|a|A|C))) { 

    echo 4 -a IRCop modu tespit edildi, bulunduğunuz bütün kanalların banı açılıyor..

    var %cx = 1,%xc = $chan(0)

    while (%cx <= %xc) {

      clearbans $chan(%cx)

      inc %cx 1

    }

    halt 

  }

  var %u = 1,%f = $chan(0)

  while (%u <= %f) {

    if ($me isop $chan(%u) || $me ishop $chan(%u)) { clearbans $chan(%u) | echo 4 -a *** $chan(%u) Kanalının banı açılıyor.. }

    inc %u 1

  }

}

raw 478:*:{ if ($regex($usermode,/(o|O|N|a|A|C))) { echo -at $2 Kanalının Ban Listesi Dolmuş Durumda, Banlar Temizleniyor.. | clearbans $2 | Halt } }

alias massmode {

  var %i = 1, %x = $numtok($3-,32), %y = $modespl

  while (%i <= %x) {

    mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)

    inc %i %y

  }

}

alias clearbans {

  var %1 = $iif($1,$1,$chan), %b = $ibl(%1,0), %i, %t

  if (%b == 0) {

    echo -t %1 * Ban Listesi Alınıyor $+(%1,...)

    mode %1 b

  }

  else {

    var %i = $ibl(%1,0)

    while (%i) {

      var %t = $addtok(%t,$ibl(%1,%i),32)

      dec %i

    }

    massmode %1 -b %t

  }

}

/clearallbans

IRCop modu varsa bulunduğun bütün kanallar eğer sadece OPsan op olduğun kanalların banını açar.

QkLa	24 Ocak 2009 07:27

Cevap: Tüm Banları Yanyana Açtırabilmek ?

S'a

peki bunu bot icin !clear... seklinde nasil uygulatabiliriz.

AzuLa

24 Ocak 2009 07:54

Cevap: Tüm Banları Yanyana Açtırabilmek ?

Eklemiş oldugunuz kodun altına ya da yeni bir sayfaya ekleyiniz.

PHP- Kodu:

   on *:text:*:#: {

  if $chan == #AzuLon {

    if $nick isop $chan {

      if $1 == !clearbans {

        clearallban

      }

    }

    else {

      if $1 == !clearbans {

        msg $chan(#AzuLon) Bu komutu kullanabilmek için $chan kanalında Op (@) konumunda olmalısınız.

      }

    }

  }

}

Kullanılan komut : !clearbans
Kullanılabilecek seviye: Op (@)
Kullanılabilecek kanal: #AzuLon

komutun hangi kanalda kullanılmasını istiyorsanız #AzuLon yerleri #kanalınız olarak değiştiriniz.

Log:

Alıntı:

[07:32] * aLias mod değiştirdi:+b test!*@*
[07:32] * aLias mod değiştirdi:+b test1!*@*
[07:32] * aLias mod değiştirdi:+b test12!*@*
[07:32] * aLias mod değiştirdi:+b test123!*@*
[07:32] * aLias mod değiştirdi:+b test1234!*@*
[07:32] * aLias mod değiştirdi:+b test12345!*@*
[07:32] * aLias mod değiştirdi:+b test123456!*@*
[07:32] * aLias mod değiştirdi:+b test1234567!*@*
[07:32] * aLias mod değiştirdi:+b test12345678!*@*
[07:32] * aLias mod değiştirdi:+b test123456789!*@*
[07:33] <@aLias> !clearbans
*** #AzuLon Kanalının banı açılıyor..
*** #Bots Kanalının banı açılıyor..
*** #dostsuzinSan Kanalının banı açılıyor..
*** #Master Kanalının banı açılıyor..
*** #oyun Kanalının banı açılıyor..
*** #OyunOps Kanalının banı açılıyor..
*** #System Kanalının banı açılıyor..
[07:33] * AzuLa mod değiştirdi:-bbbbbbbbbb test!*@* test1!*@* test12!*@* test123!*@* test1234!*@* test12345!*@* test123456!*@* test1234567!*@* test12345678!*@* test123456789!*@*
[07:34] * aLias mod değiştirdi:-o aLias
[07:34] <aLias> !clearbans
[07:34] <~AzuLa> Bu komutu kullanabilmek için #AzuLon kanalında Op (@) konumunda olmalısınız.

MerakLıuSer

26 Ocak 2009 12:30

Cevap: Tüm Banları Yanyana Açtırabilmek ?

Arkadaşım belki işine yarayabilir ben anlatayım kısaca;
Bu codemiz @(AOP) olduğun kanalda 25 adet ban atıldığında yanyana bu 25 adet bandan sonra 5 tanesi hariç 20 tanesini açıyor. Aşağıda vermiş olduğum kırmızı yerlerdeki sayıyı kendine göre ayarlıyabilirsin. İyi paylaşımlar.

on @*:BAN:#:{
if $ibl(#,0) >= 25 {
echo 4 -a $+([,#,]) kanalı ban listesinde 25'den fazla kişi var, ilk 20 ban açılıyor.
var %s = $ibl(#,0), %y = $calc($ibl(#,0) - 20) | while %s >= %y { %' = $addtok(%',$ibl(#,%s),32) | dec %s } | while %' { mode # $+(-,$str(b,6))} $gettok(%',1-6,32) | %' = $deltok(%',1-6,32) }
}
}

OperServ

10 Şubat 2009 06:50

Cevap: Tüm Banları Yanyana Açtırabilmek ?

Kod:

alias clearallban {

  if ($regex($usermode,/(o|O|N|a|A|C))) { 

    echo 4 -a IRCop modu tespit edildi, bulunduğunuz bütün kanalların banı açılıyor..

    var %cx = 1,%xc = $chan(0)

    while (%cx <= %xc) {

      clearbans $chan(%cx)

      inc %cx 1

    }

    halt 

  }

  var %u = 1,%f = $chan(0)

  while (%u <= %f) {

    if ($me isop $chan(%u) || $me ishop $chan(%u)) { clearbans $chan(%u) | echo 4 -a *** $chan(%u) Kanalının banı açılıyor.. }

    inc %u 1

  }

}

raw 478:*:{ if ($regex($usermode,/(o|O|N|a|A|C))) { echo -at $2 Kanalının Ban Listesi Dolmuş Durumda, Banlar Temizleniyor.. | clearbans $2 | Halt } }

alias massmode {

  var %i = 1, %x = $numtok($3-,32), %y = $modespl

  while (%i <= %x) {

    mode $1 $+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%i + %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%i + %y)),32)

    inc %i %y

  }

}

alias clearbans {

  var %1 = $iif($1,$1,$chan), %b = $ibl(%1,0), %i, %t

  if (%b == 0) {

    echo -t %1 * Ban Listesi Alınıyor $+(%1,...)

    mode %1 b

  }

  else {

    var %i = $ibl(%1,0)

    while (%i) {

      var %t = $addtok(%t,$ibl(%1,%i),32)

      dec %i

    }

    massmode %1 -b %t

  }

}

on *:text:*:#: { 

  if $nick isop $chan { 

    if $1 == !clearbans { 

      clearallban

    } 

  } 

  else { 

    if $1 == !clearbans { 

      msg $chan bu Komutu Kullanabilmek için $chan Kanalında Op (@) Konumunda olmalısınız. 

    } 

  } 

}

bu kod calisiyor ama operator oldugu kanalda tek tek aciyor

mesela #sohbet !clearbans yazinca bot sohbet kanalında bitanesini tek aciyor

ve #zurna kanalida olucada bole bise cikiyor

#zurna lzd!*@* set by ChanServ (Tue Feb 10 00:21:37)
#zurna End of Channel Ban List

-bbbbbbb olrakta acmiyor coderci ardaslarimdan yardim bekliyorum simdiden tskler.

uFuK	10 Şubat 2009 09:17

Cevap: Tüm Banları Yanyana Açtırabilmek ?

Açıkcası post uzun olduğu için okuyamadım hepsini tam olarak lakin; 2 tane kod yazdım
1.)Botunuz için Kanalda !allban yazdığınızda tüm banları açıcaktır.

Alıntı:

on *:text:*:#: {
if ($1 == !aLLban) {
var %i = 0
while (%i <= $ibl(#,0)) {
mode $chan -b $ibl(#,%i)
inc %i
}
}
}

Bu kodda kendiniz için /aLLban yazdığınızda kanaldaki tüm banları açar.

Alıntı:

alias aLLban {
var %i = 0
while (%i <= $ibl($active,0)) {
mode $chan -b $ibl($active,%i)
inc %i
}
}

İyi forumlar.

OperServ

10 Şubat 2009 10:53

Cevap: Tüm Banları Yanyana Açtırabilmek ?

Alıntı:

FenomeNs Nickli Üyeden Alıntı (Mesaj 636878)

Açıkcası post uzun olduğu için okuyamadım hepsini tam olarak lakin; 2 tane kod yazdım
1.)Botunuz için Kanalda !allban yazdığınızda tüm banları açıcaktır.

Bu kodda kendiniz için /aLLban yazdığınızda kanaldaki tüm banları açar.

İyi forumlar.

tesekurler ama calismiyor.

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 03:31.

Sayfa 1 Toplam 2 Sayfadan

Konuya ait 40 Mesajı başka Sayfada göster