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:block hakkında (https://www.ircforumlari.net/mirc-scripting-sorunlari/771612-t-block-hakkinda.html)

BlackForce 15 Nisan 2017 01:24

T:block hakkında
 
Hayırlı geceler arkadaşlar. Bağzen kanalda birden farklı nickler tarafından flood şeklinde bir saldırı gerçekleşiyor.

Ben otomatik t:block'a almayı denedim fakat başarılı olamadım.

Rica ettiğim şey; birden farklı nick tarafından bir saldırı gerçekleştiğinde otomatik olarak kelimeyi t:block'a alması. Bir kaç tane örneği var ama stabil değil.
Elinden gelen arkadaşlar yardımcı olabilirse minnettar olurum.

Şöyle bir addon var mesela ;

Kod:

on *:text:*:#: mul $chan $nick $1-
alias -l mul {
  ;<#chan> <nick> <text>
  hinc -mu10 $+(f:,$1) $md5($3-) | hadd -mu10 $+(n:,$1) $2 $1
  if $hget($+(f:,$1),1).data >= 2 && $hget($+(n:,$1),0).item  {
    var %i $v1 | while (%i) { var %b´ $addtok(%b´,$hget($+(n:,$1),%i).item,32) | dec %i }
    var %r´ /((\w+\s|\w+){ $+ $modespl $+ })/g,%b~ $regsubex(%b´,%r`,&\1)),%i 1,%c´ $1
    while %i <= $token(%b~,0,38) {
      mode $1 $+(+,$str(b,$token($token(%b~,%i,38),0,32))) $regsubex($token(%b~,%i,38),/(\S+)/g,$address(\t,2))
      tokenize 32 $token(%b~,%i,38)
      kick $chan $* Stop $iif($token(%b~,0,32) > 1,Mass Repeat,Repeat)
      inc %i
    } 
  }
}

Bunu kullarak t:block yapabilir miyiz?

CoCoRiCo 15 Nisan 2017 10:10

Cevap: T:block hakkında
 
Alıntı:

BlackForce Nickli Üyeden Alıntı (Mesaj 1041853228)
Hayırlı geceler arkadaşlar. Bağzen kanalda birden farklı nickler tarafından flood şeklinde bir saldırı gerçekleşiyor.

Ben otomatik t:block'a almayı denedim fakat başarılı olamadım.

Rica ettiğim şey; birden farklı nick tarafından bir saldırı gerçekleştiğinde otomatik olarak kelimeyi t:block'a alması. Bir kaç tane örneği var ama stabil değil.
Elinden gelen arkadaşlar yardımcı olabilirse minnettar olurum.

Şöyle bir addon var mesela ;

Kod:

on *:text:*:#: mul $chan $nick $1-
alias -l mul {
  ;<#chan> <nick> <text>
  hinc -mu10 $+(f:,$1) $md5($3-) | hadd -mu10 $+(n:,$1) $2 $1
  if $hget($+(f:,$1),1).data >= 2 && $hget($+(n:,$1),0).item  {
    var %i $v1 | while (%i) { var %b´ $addtok(%b´,$hget($+(n:,$1),%i).item,32) | dec %i }
    var %r´ /((\w+\s|\w+){ $+ $modespl $+ })/g,%b~ $regsubex(%b´,%r`,&\1)),%i 1,%c´ $1
    while %i <= $token(%b~,0,38) {
      mode $1 $+(+,$str(b,$token($token(%b~,%i,38),0,32))) $regsubex($token(%b~,%i,38),/(\S+)/g,$address(\t,2))
      tokenize 32 $token(%b~,%i,38)
      kick $chan $* Stop $iif($token(%b~,0,32) > 1,Mass Repeat,Repeat)
      inc %i
    } 
  }
}

Bunu kullarak t:block yapabilir miyiz?


Kod:

on *:text:*:#: mul $chan $nick $1-
alias -l mul {
  ;<#chan> <nick> <text>
  hinc -mu10 $+(f:,$1) $+($md5($3-),:,$encode($3-,m))  | hadd -mu10 $+(n:,$1) $2 $1
  if $hget($+(f:,$1),1).data >= 2 && $hget($+(n:,$1),0).item  {
    var %i $v1 | while (%i) { var %b´ $addtok(%b´,$hget($+(n:,$1),%i).item,32) | dec %i }
    var %r´ /((\w+\s|\w+){ $+ $modespl $+ })/g,%b~ $regsubex(%b´,%r`,&\1)),%i 1,%c´ $1
    while %i <= $token(%b~,0,38) {
      mode $1 $+(+,$str(b,$token($token(%b~,%i,38),0,32))) $regsubex($token(%b~,%i,38),/(\S+)/g,$address(\t,2))
      mode $1 +b $+(~T:block:,$regsubex($decode($gettok($hget($+(f:,$chan),1).item,2,$asc(:)),m),/(^|\s|$)/gi,*))
      tokenize 32 $token(%b~,%i,38)
      kick $chan $* Stop $iif($token(%b~,0,32) > 1,Mass Repeat,Repeat)
      inc %i
    } 
  }
}


BlackForce 15 Nisan 2017 13:09

Cevap: T:block hakkında
 
Alıntı:

CoCoRiCo Nickli Üyeden Alıntı (Mesaj 1041853243)
Kod:

on *:text:*:#: mul $chan $nick $1-
alias -l mul {
  ;<#chan> <nick> <text>
  hinc -mu10 $+(f:,$1) $+($md5($3-),:,$encode($3-,m))  | hadd -mu10 $+(n:,$1) $2 $1
  if $hget($+(f:,$1),1).data >= 2 && $hget($+(n:,$1),0).item  {
    var %i $v1 | while (%i) { var %b´ $addtok(%b´,$hget($+(n:,$1),%i).item,32) | dec %i }
    var %r´ /((\w+\s|\w+){ $+ $modespl $+ })/g,%b~ $regsubex(%b´,%r`,&\1)),%i 1,%c´ $1
    while %i <= $token(%b~,0,38) {
      mode $1 $+(+,$str(b,$token($token(%b~,%i,38),0,32))) $regsubex($token(%b~,%i,38),/(\S+)/g,$address(\t,2))
      mode $1 +b $+(~T:block:,$regsubex($decode($gettok($hget($+(f:,$chan),1).item,2,$asc(:)),m),/(^|\s|$)/gi,*))
      tokenize 32 $token(%b~,%i,38)
      kick $chan $* Stop $iif($token(%b~,0,32) > 1,Mass Repeat,Repeat)
      inc %i
    } 
  }
}


Hocam çok teşekkürler.

mIRC'imden kaynaklı bir hatadan dolayı galiba şöyle diyor;

PHP- Kodu:

Tanıtma  menüsü Ayarlar Menüsünde kitlenmiş durumda$decode (Satır 15script13.txt



--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 13:09 -->-> Daha önceki mesaj 12:44 --

Hata değilmiş pardon, komut'u tekrar aktif ettim.

Kantura 11 Haziran 2017 12:09

Cevap: T:block hakkında
 
emeginize saglık

Erdem 15 Haziran 2017 03:18

Cevap: T:block hakkında
 
Kod:

* Geçersiz format: $addtok (Satır 6, flood.txt)

bu hatayı alıyorum, neden acaba yardımcı olur musunuz.. Eklediğim kod bu ;

Kod:

on *:text:*:#sohbet: mul $chan $nick $1-
alias -l mul {
  ;<#chan> <nick> <text>
  hinc -mu10 $+(f:,$1) $+($md5($3-),:,$encode($3-,m))  | hadd -mu10 $+(n:,$1) $2 $1
  if $hget($+(f:,$1),1).data >= 2 && $hget($+(n:,$1),0).item  {
    var %i $v1 | while (%i) { var %b´ $addtok(%b´,$hget($+(n:,$1),%i).item,32) | dec %i }
    var %r´ /((\w+\s|\w+){ $+ $modespl $+ })/g,%b~ $regsubex(%b´,%r`,&\1)),%i 1,%c´ $1
    while %i <= $token(%b~,0,38) {
      mode $1 $+(+,$str(b,$token($token(%b~,%i,38),0,32))) $regsubex($token(%b~,%i,38),/(\S+)/g,$address(\t,2))
      mode $1 +b $+(~T:block:,$regsubex($decode($gettok($hget($+(f:,$chan),1).item,2,$asc(:)),m),/(^|\s|$)/gi,*))
      tokenize 32 $token(%b~,%i,38)
      kick $chan $* Stop $iif($token(%b~,0,32) > 1,Mass Repeat,Repeat)
      inc %i
    } 
  }
}


CoCoRiCo 16 Haziran 2017 09:32

Cevap: T:block hakkında
 
mIRC versionunu değiştirip dene.
hangi şartlarda bu hatayı aldın ekran görüntüsü yada aksiyonu buraya kopyala.

BeReLi 14 Nisan 2022 22:03

Cevap: T:block hakkında
 
selam bu addonda sorun var bence gereksiz 4 5 kişi attı anlamadım pek ..

[21:54]» * dizZy mod değiştirdi:+bb *!*@DJ.Keyfim.Net *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].SuperOp.Keyfim.Net
[21:54]» * Vina dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)
[21:54]» * Ajan dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)
[21:54]» * ResT dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)
[21:54]» <BhR> SeLam
[21:54]» <dizZy> [¬ BhR ¬] HoŞ GeDiN ™ (:
[21:54]» * dizZy mod değiştirdi:+b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].HALFOP.Keyfim.Net
[21:54]» * BhR dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)
[21:54]» <Yasmin> BhR cim hg cnm
[21:54]» * dizZy mod değiştirdi:+b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Admin.Keyfim.Net
[21:54]» * Yasmin dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)

OperServ 16 Nisan 2022 20:07

Cevap: T:block hakkında
 
Alıntı:

ÖfKe Nickli Üyeden Alıntı (Mesaj 1042662388)
selam bu addonda sorun var bence gereksiz 4 5 kişi attı anlamadım pek ..

[21:54]» * dizZy mod değiştirdi:+bb *!*@DJ.Keyfim.Net *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].SuperOp.Keyfim.Net
[21:54]» * Vina dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)
[21:54]» * Ajan dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)
[21:54]» * ResT dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)
[21:54]» <BhR> SeLam
[21:54]» <dizZy> [¬ BhR ¬] HoŞ GeDiN ™ (:
[21:54]» * dizZy mod değiştirdi:+b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].HALFOP.Keyfim.Net
[21:54]» * BhR dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)
[21:54]» <Yasmin> BhR cim hg cnm
[21:54]» * dizZy mod değiştirdi:+b *!*@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]Admin.Keyfim.Net
[21:54]» * Yasmin dizZy Tarafından Kanaldan Atıldı (Stop Mass Repeat)

merhaba asagida verecegim kodla her hangi bir kanalda !tblock kelime yazdiginda block atacaktir muaf kanal ve muaf nickleri ekleyebilirsin.

Kod:

on *:input:#: {
  if ($regex($1-,/^[\.!]tb[Il][0oö][cç]k/Si) && $2) {
    if  !$istok(muafnick muafnick2,$nick,32) {
    var %nt = 1
    while %nt <= $comchan($me,0) {
      if !$istok(#muafkanal,#muafkanal2,$comchan($me,%nt),32) {
        mode $comchan($me,%nt) +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
      }
      inc %nt
    }
  }
}


AsiRuh 16 Nisan 2022 21:03

Cevap: T:block hakkında
 
Kod:

on *:input:#:{
  if ($me isop $chan) && $2 {
    if $regex($1,/^[!\.]tblock$/Si) {
      .timer -h 1 500 mode $chan +b ~T:block: $+ $iif($chr(42) isin $2,$2,$+($chr(42),$2,$chr(42)))
    }
  }
}


Bunuda deneyebilirsin


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

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