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

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

- - !bantemizle ( -bbb ) (https://www.ircforumlari.net/mirc-scripting-sorunlari/352949-bantemizle-bbb.html)

!bantemizle ( -bbb )

Kod:

raw 367:*: { 

mode $2 -b $3 

} 

alias banac { 

mode # +b 

} 

on &*:text:*:#:{ 

if ($1 == !bantemizle) { banac } 

} 

on *:ban:#: { 

if (%biz == 10) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 } 

if (%biz == 15) { banac | msg $chan KanaL ßan Listesi TemizLeniyor. | set %biz 1 } 

if (%biz == 15) { unset %biz } 

else { 

inc %biz 

} 

}

Sorun :

Ben Bu Codlamadaki Ban acılımını

Yanyana ( -bbbbbb ) Şeklinde olmasını istesem mümkünmüdür.

Cevap: !bantemizle ( -bbb )

Kod:

on *:text:*:#: { if $1 == !unban && $nick isop # { msg # 12Tüm Banlar Temizleniyor.. | msg #bilgi 4 # 12kanalında 4 !unban 12komutunu Kullanan Nick :4 $nick  | banac # } }

alias banac { mode $1 +b | var %1 = 1,%2 = $ibl($1,0) | while %1 <= %2 { mode $1 -b $ibl($1,%1) | inc %1 } }

Cevap: !bantemizle ( -bbb )

Alıntı:

DaDaS Nickli Üyeden Alıntı (Mesaj 1040508292)

Kod:

on *:text:*:#: { if $1 == !unban && $nick isop # { msg # 12Tüm Banlar Temizleniyor.. | msg #bilgi 4 # 12kanalında 4 !unban 12komutunu Kullanan Nick :4 $nick  | banac # } }

alias banac { mode $1 +b | var %1 = 1,%2 = $ibl($1,0) | while %1 <= %2 { mode $1 -b $ibl($1,%1) | inc %1 } }

Olmadı DADAS denedim ama Yinede Teşekkürler.

Cevap: !bantemizle ( -bbb )

[13:08] <@KoRuMa> DaDaS Suan Kanal Operatörü (@) Konumuna Gecti.
[13:08] *** DaDaS modu değiştirdi: +b hamsi!*@*
[13:08] *** hamsi DaDaS tarafından kanaldan atıldı (Kurallara Uymayan Davranis Gosterdiniz! By-DaDaS)
[13:08] *** DaDaS modu değiştirdi: +b mek_38!*@*
[13:08] *** mek_38 DaDaS tarafından kanaldan atıldı (Kurallara Uymayan Davranis Gosterdiniz! By-DaDaS)
[13:08] <@DaDaS> !unban
[13:08] <@KoRuMa> Tüm Banlar Temizleniyor..
[13:08] *** KoRuMa modu değiştirdi: -b mek_38!*@*
[13:08] *** KoRuMa modu değiştirdi: -b hamsi!*@*

ha Sen Banları Yan yana Temızledıgını Gostermesını Istemısın ona dıkkat etmedım kod busekılde calısıyorda bakalım onada

Cevap: !bantemizle ( -bbb )

Kod:

on *:text:!bantemizle*:#: {

  if ($nick !isop $chan) { msg $chan Op değilsiniz Bu komutu Kullanamassınız. }

  else {

    msg $chan Banlar Temizleniyor lütfen Bekleyin..

    mode $chan +b 

    .timer 1 4 Banac $chan

  }

}

alias banac {  

  mode $1 $+(-,$str(b,$ibl($1,0))) %banlar |

  msg $1 Banlar temizlenmişdir.. Hoş Sohbetler.. 

  unset %banlar 

}

raw 367:*: {

  set %banlar $addtok(%banlar,$gettok($3,1,33),32)
 

}

İşini Görür.

Cevap: !bantemizle ( -bbb )

Kod:

menu * {

  .Tüm Banlari aç:/clearallban

}

on *:input:#:{ 

  if ($1 == !unban) { 

    unban

  }

  if ($1 == !ban) { 

    rln

  }

}

alias unban {

  .rln -z

  .timer 1 05 rln -s

  .timer 1 10 rln -k

  .timer 1 15 rln -g

  .timer 1 20 clearallban

}

alias unb {

  .rln -z

  .timer 1 05 rln -s

  .timer 1 10 rln -k

  .timer 1 15 rln -g

}

alias RLN {

  if ($1 = $null) { 

    echo -a Eksik parametre 

    echo -a /Rln -z Zline acmak için 

    echo -a /Rln -k Kline acmak için 

    echo -a /Rln -g Gline acmak için 

    echo -a /Rln -s Shun acmak için

    echo -a /aLLban  Kanalin tüm Banlarini acmak için

    echo -a /clearallban Tüm banlari açmak için

  } 

  if ($1 = -s) {

    set %t -s

    .enable #Line

    stats s

  }

  if ($1 = -k) {

    set %t -k

    .enable #Line

    stats k

  }

  if ($1 = -z) {

    set %t -z

    .enable #Line

    stats k 

  }

  if ($1 = -g) {

    set %t -g

    .enable #Line

    stats g

  }

}

#Line off

raw 223*:*:{ 

  if ($1 = z ) || (%t = -z ) {

    if (!$window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) { .window -bLe @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }

    else { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Acilan: %t $+ Line 5 $+ $3 }

    zline - $+ $3 

  }

  if ($1 = k ) || (%t = -k ) {

    if (!$window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) { .window -bLe @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }

    else { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Acilan: %t $+ Line 5 $+ $3 }

    kline - $+ $3 

  }

  if ($1 = s ) || (%t = -s ) {

    if (!$window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) { .window -bLe @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }

    else { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Acilan: %t $+ Line 5 $+ $3 }

    shun - $+ $3 

  }

  if ($1 = g ) || (%t = -g ) {

    if (!$window @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...])) { .window -bLe @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] }

    else { echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Acilan: %t $+ Line 5 $+ $3 }

    gline - $+ $3 

  }

  halt

}

raw 219*:*:{ 

  unset %t 

  .echo @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 4,8 %t $+ line islemi tamam 

  .timer 1 1 .disable #Line 

  halt 

}

#Line off 

alias aLLban {

  var %i = 0

  while (%i <= $ibl($active,0)) {

    mode $chan -b $ibl($active,%i) 

    inc %i

  }

} 

alias clearallban {

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

    echo 4 -a IRCop modu tespit edildi, bulundugunuz bütün kanallarin bani açiliyor..

    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) Kanalinin bani açiliyor.. }

    inc %u 1

  }

}

raw 478:*:{ if ($regex($usermode,/(o|O|N|a|A|C))) { echo -at $2 Kanalinin Ban Listesi Dolmus 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 Aliniyor $+(%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

  }

}

OP oldugun butun kanallardaki banlari temizler .. komut: /clearbanall

Cevap: !bantemizle ( -bbb )

Alıntı:

SiLuet Nickli Üyeden Alıntı (Mesaj 1040508827)

Kod:

on *:text:!bantemizle*:#: {

  if ($nick !isop $chan) { msg $chan Op değilsiniz Bu komutu Kullanamassınız. }

  else {

    msg $chan Banlar Temizleniyor lütfen Bekleyin..

    mode $chan +b 

    .timer 1 4 Banac $chan

  }

}

alias banac {  

  mode $1 $+(-,$str(b,$ibl($1,0))) %banlar |

  msg $1 Banlar temizlenmişdir.. Hoş Sohbetler.. 

  unset %banlar 

}

raw 367:*: {

  set %banlar $addtok(%banlar,$gettok($3,1,33),32)
 

}

İşini Görür.

!bantemizle #kanal , Değilde !bantemizle olarak değiştirebilirmiyiz

.timer 1 4 Banac $chan Bunları $chan değiştirdim ama bir işe yaramadı.

Cevap: !bantemizle ( -bbb )

Alıntı:

Sky-bLue Nickli Üyeden Alıntı (Mesaj 1041026604)

!bantemizle #kanal , Değilde !bantemizle olarak değiştirebilirmiyiz

.timer 1 4 Banac $chan Bunları $chan değiştirdim ama bir işe yaramadı.

Zaten Öyle Çalışıyor Kod,!bantemizle Yazdığın Kanalın Banlarını Temizler.

Cevap: !bantemizle ( -bbb )

on *:text:*:#: { if $1 == !unban && $nick isop # { msg # 12Tüm Banlar Temizleniyor.. | msg #bilgi 4 # 12kanalında 4 !unban 12komutunu Kullanan Nick :4 $nick | banac # } }
alias banac { mode $1 +b | var %1 = 1,%2 = $ibl($1,0) | while %1 <= %2 { mode $1 -b $ibl($1,%1) | inc %1 } }

[18:13:19] «@Bilecikli» !unban
[18:13:19] <miRCPro-387> Tüm Banlar Temizleniyor..
[18:13:19] *** miRCPro-387 mod değiştirdi:-b *ercan*!*@*
[18:13:19] *** miRCPro-387 mod değiştirdi:-b ercan*!*@*
[18:13:19] *** miRCPro-387 mod değiştirdi:-b ercan!*@*

Unban uygulayan nicki de yansıtabilirmi acaba kanala mümkünmü bu?

Cevap: !bantemizle ( -bbb )

Kod:

msg # !unban uygulayan kişi: $nick

Kod:

on *:text:*:#: { if $1 == !unban && $nick isop # { msg # 12Tüm Banlar Temizleniyor.. | msg # !unban uygulayan kişi: $nick | msg #bilgi 4 # 12kanalında 4 !unban 12komutunu Kullanan Nick :4 $nick | banac # } }

alias banac { mode $1 +b | var %1 = 1,%2 = $ibl($1,0) | while %1 <= %2 { mode $1 -b $ibl($1,%1) | inc %1 } }

Birde kodları paylaşırken code tag arasında paylaşırsanız.