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

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)

uFuK 10 Şubat 2009 10:59

Cevap: Tüm Banları Yanyana Açtırabilmek ?
 
Çalışıyor, denemediğim kodu vermem.

Eğer alias yani kendi komutun olan ban açma yönteminden bahsediyorsan yani 2'ncisi, $active kullandım onda. O komutu banı açacağın kanal penceresinde uygulayacaksın.

Hata alıyorsan aldığın hatayı buraya copy et. Ve kodu denediğin kanalda "ban" olup olmadığına ayrıca dikkat et.

OperServ 10 Şubat 2009 11:24

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

FenomeNs Nickli Üyeden Alıntı (Mesaj 636898)
Çalışıyor, denemediğim kodu vermem.

Eğer alias yani kendi komutun olan ban açma yönteminden bahsediyorsan yani 2'ncisi, $active kullandım onda. O komutu banı açacağın kanal penceresinde uygulayacaksın.

Hata alıyorsan aldığın hatayı buraya copy et. Ve kodu denediğin kanalda "ban" olup olmadığına ayrıca dikkat et.

bota !unban yaziyorum kanaldaki tum banlari acmiyor ayrica operatorler haricileride kulaniyor.

uFuK 10 Şubat 2009 11:57

Cevap: Tüm Banları Yanyana Açtırabilmek ?
 
Ben kodda botun tüm banları açması için !unban yazın demedim, !aLLban yazın dedim.
Ayrıca komutu herkezin kullanmaması için istekte bulunki öyle bir kod verelim.

Alıntı:

on *:text:*:#: {
if $read(zımbırtı.txt,w,$nick) {
if ($1 == !aLLban) {
var %i = 0
while (%i <= $ibl(#,0)) {
mode $chan -b $ibl(#,%i)
inc %i
}
}
}

}


//run $mircdir yaz sonra buraya zımbırtı adlı bir metin belgesi oluştur ismini sen değiştirebilirsin yalnız koddaki kırmızı yeride değiştir isme paralel. Botun o komutu kullanmasını istediğin nickleri oraya yaz. yada aşağıdaki gibide yapabilirsin;

Alıntı:

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

alias zimbirti { auser zimbirti $$?"Nick Giriniz" | echo -a Belirttiğiniz Nick Eklendi }


Burada botun o komutunu sadece zimbirti $ulist'ndekiler kullanabilir.
Zimbirti $ulist'ine nick eklemek için

/zimbirti yazman yeterli


DenperaS 18 Şubat 2009 00:23

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

alias clearallban {
  if (
$regex($usermode,/(o|O|N|a|A|C))) { 
    echo 
-a IRCop modu tespit edildibulunduğ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 %
1,%$chan(0)
  while (%
<= %f) {
    if (
$me isop $chan(%u) || $me ishop $chan(%u)) { clearbans $chan(%u) | echo -*** $chan(%uKanalı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ş DurumdaBanlar Temizleniyor.. | clearbans $Halt } }
alias massmode {
  var %
1, %$numtok($3-,32), %$modespl
  
while (%<= %x) {
    
mode $$+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%+ %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%+ %y)),32)
    
inc %%y
  
}
}
alias clearbans {
  var %
$iif($1,$1,$chan), %$ibl(%1,0), %i, %t
  
if (%== 0) {
    echo -
%Ban Listesi Alınıyor $+(%1,...)
    
mode %1 b
  
}
  else {
    var %
$ibl(%1,0)
    while (%
i) {
      var %
$addtok(%t,$ibl(%1,%i),32)
      
dec %i
    
}
    
massmode %-%t
  
}
}
on *:text:*:#: {
  
if $chan == #AzuLon {
    
if $nick isop $chan {
      if $
== !clearbans {
        
clearallban
      
}
    }
    else {
      if $
== !clearbans {
        
msg $chan(#AzuLon) Bu komutu kullanabilmek için $chan kanalında Op (@) konumunda olmalısınız.
      
}
    }
  }


Ben bu kodu bu şekilde ekledim gayet güzel çalışıyor. ama örneğin bu koddan
if $chan == #AzuLon bu kısmı ben if $chan == # bu şekilde değiştirdim fakat !clearbans yazdığımda opun yetkili olduğu tüm kanallarda banlar kalkıyor bunu sadece tek kanallarda yapabilirmiyizi örneğin sohbet kanalının opu !clearbans yazdığında sohbet kanalında kalksın islam kanalının opu !clearbans yazdığında islam kanalında kalksın kanal yetkilileri !clearbans yazdığında tüm kanallarda değilde sadece yazdığı o kanalda kalması için ne yapmalıyız.

AzuLa 18 Şubat 2009 00:47

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

alias massmode {
  var %
1, %$numtok($3-,32), %$modespl
  
while (%<= %x) {
    
mode $$+($left($2,1),$str($right($2,1),$numtok($gettok($3-,$+(%i,-,$calc(%+ %y)),32),32))) $gettok($3-,$+(%i,-,$calc(%+ %y)),32)
    
inc %%y
  
}
}
alias clearbans {
  var %
$iif($1,$1,$chan), %$ibl(%1,0), %i, %t
  
if (%== 0) {
    echo -
%Ban Listesi Alınıyor $+(%1,...)
    
mode %1 b
  
}
  else {
    var %
$ibl(%1,0)
    while (%
i) {
      var %
$addtok(%t,$ibl(%1,%i),32)
      
dec %i
    
}
    
massmode %-%t
  
}
}
on *:text:*:#: {
  
if $nick isop $chan {
    if $
== !clearbans {
      
set %clearss $chan
      clearbans 
%clearss
    
}
  }
  else {
    if $
== !clearbans {
      
msg $chan Bu komutu kullanabilmek için $chan kanalında Op (@) konumunda olmalısınız.
    }
  }


Kullanım: !clearbans

İşlev: Hangi kanalda !clearbans yazılırsa o kanaldaki banları temizler.
*DipNot: Kullanıcı en az Op (@) konumunda olmalıdır.

ScaNNeR 21 Mart 2009 09:35

Cevap: Tüm Banları Yanyana Açtırabilmek ?
 
Peki bu komutların otomatik olanı varmı yani banlist dolduğunda kendiliğinden onu temizleyen cinsten bi kod.

MerakLıuSer 21 Mart 2009 13:01

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

Ehemmiyetsiz Nickli Üyeden Alıntı (Mesaj 666040)
Peki bu komutların otomatik olanı varmı yani banlist dolduğunda kendiliğinden onu temizleyen cinsten bi kod.



Kod:

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) }
}
}



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

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk