Repeat kick on specific command or text

[TimeRider]

Hi, I am looking for a repeat kick script that would either mute, kick or ban a user from the channel for repeating more than 4 times in 30 seconds like this:

Code: Select all

.tell nick some random text flood
.tell nick some random text flooding
.tell nick some random text flood
.tell nick some random text flooding

I am using this .tell command in channel so users can send offline messages to other users but it is getting abused.

If anyone could please write me this code, I would be grateful.

[CrazyCat]

Why use a tcl when you have the native setting flood-msg ?

[TimeRider]

Because I have turned off the native flood-msg as I have the Duckhunt game in the channel which uses !bang command too.

So, I only need it for the abusers who are flooding the channel with the .tell command as above.

[simo]

Code: Select all

bind pubm * "% .tell*" Repeated:Static-Text

set chantexttrigger "4:30"


proc Repeated:Static-Text {nick uhost hand chan text} {  
  if {[matchattr $hand of|of $chan] || [isop $nick $chan] || [ishalfop $nick $chan] || [isbotnick $nick]} { return 0 }
    global chantexttrigger chantextflood  

    set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]


set user $nick:$chan

 if {![info exists chantextflood($user)]} { set chantextflood($user) 0 ; utimer [lindex [split $chantexttrigger :] 1] [list text:flood:list $user] }


 if {[incr chantextflood($user)] >= [lindex [split $chantexttrigger :] 0]} {
   if {[isvoice $nick $chan]} { pushmode $chan -v $nick }


      if {[string match -nocase "*@*irccloud*" $uhost]} {  
                    set ident [string trimleft [lindex [split $uhost @] 0] "~"]
                    set xbmaskx [string map {sid id uid id} $ident]
                    set bmask  m:*!*$xbmaskx@*
                      pushmode $chan +b $bmask  
                  }  else { 
                      set bmask "m:*!*@[lindex [split $uhost "@"] 1]"
                       pushmode $chan +b $bmask 
}

 
   if {[info exists chantextflood($user)]} { unset chantextflood($user) }
   }
 flushmode $chan
}


proc text:flood:list u {
global chantextflood
if {[info exists chantextflood($u)]} { incr chantextflood($u) -1 }
}

[willyw]

Hi, I am looking for a repeat kick script that would either mute, kick or ban a user from the channel for repeating more than 4 times in 30 seconds like this:

Are you dead set on using a kick or ban? Because you have reminded me of something else, that may be suitable.

viewtopic.php?p=45537&hilit=throttle#p45537

Your current script could be edited to incorporate that code as a throttle. The user can use the command once, then it doesn't work for him again, for xx seconds. The idea is that this ruins his fun with hammering the command.

This is just an alternative idea that came to mind.
I've used that code by user, in that old post linked above, many times. It's great.
However, if you feel you need to do a ban or kick, then just ignore this.

I am using this .tell command in channel so users can send offline messages to other users ...

I'm curious about this.
Is this script available for download somewhere? I didn't see it on the archive.
Thanks.

[TimeRider]

Code: Select all

bind pubm * "% .tell*" Repeated:Static-Text

set chantexttrigger "4:30"


proc Repeated:Static-Text {nick uhost hand chan text} {  
  if {[matchattr $hand of|of $chan] || [isop $nick $chan] || [ishalfop $nick $chan] || [isbotnick $nick]} { return 0 }
    global chantexttrigger chantextflood  

    set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]


set user $nick:$chan

 if {![info exists chantextflood($user)]} { set chantextflood($user) 0 ; utimer [lindex [split $chantexttrigger :] 1] [list text:flood:list $user] }


 if {[incr chantextflood($user)] >= [lindex [split $chantexttrigger :] 0]} {
   if {[isvoice $nick $chan]} { pushmode $chan -v $nick }


      if {[string match -nocase "*@*irccloud*" $uhost]} {  
                    set ident [string trimleft [lindex [split $uhost @] 0] "~"]
                    set xbmaskx [string map {sid id uid id} $ident]
                    set bmask  m:*!*$xbmaskx@*
                      pushmode $chan +b $bmask  
                  }  else { 
                      set bmask "m:*!*@[lindex [split $uhost "@"] 1]"
                       pushmode $chan +b $bmask 
}

 
   if {[info exists chantextflood($user)]} { unset chantextflood($user) }
   }
 flushmode $chan
}


proc text:flood:list u {
global chantextflood
if {[info exists chantextflood($u)]} { incr chantextflood($u) -1 }
}

Hi simo, thank you, the script seems to be working. Is it also possible to add a timer of when the mute ban expires?

Are you dead set on using a kick or ban? Because you have reminded me of something else, that may be suitable.


I'm curious about this.
Is this script available for download somewhere? I didn't see it on the archive.
Thanks.

Hi willy, yes, but, a mute ban would also be nice to set with a option of timer of when the mute ban would be removed.

Unfortunately, the script or bot I am using for the .tell feature is a Sopel bot which is build with python. But, it would have been nice to add a throttle via python.

For now, it an eggdrop bot muting or banning the user is something i can see as solution.

[simo]

Code: Select all

bind pubm * "% .tell*" Repeated:Static-Text

set chantexttrigger "4:30"


proc Repeated:Static-Text {nick uhost hand chan text} {  
  if {[matchattr $hand of|of $chan] || [isop $nick $chan] || [ishalfop $nick $chan] || [isbotnick $nick]} { return 0 }
    global chantexttrigger chantextflood  

    set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]


set user $nick:$chan

 if {![info exists chantextflood($user)]} { set chantextflood($user) 0 ; utimer [lindex [split $chantexttrigger :] 1] [list text:flood:list $user] }


 if {[incr chantextflood($user)] >= [lindex [split $chantexttrigger :] 0]} {

   if {[isvoice $nick $chan]} { pushmode $chan -v $nick }

      if {[string match -nocase "*@*irccloud*" $uhost]} {  
                    set ident [string trimleft [lindex [split $uhost @] 0] "~"]
                    set xbmaskx [string map {sid id uid id} $ident]
                    set bmask  m:*!*$xbmaskx@*
                   if {![ischanban $bmask $chan]} { pushmode $chan +b $bmask ; timer 10 [list timed:ban $chan $bmask]} 
                  }  else { 
                      set bmask "m:*!*@[lindex [split $uhost "@"] 1]"
                   if {![ischanban $bmask $chan]} { pushmode $chan +b $bmask ; timer 10 [list timed:ban $chan $bmask]} 
}

 
   if {[info exists chantextflood($user)]} { unset chantextflood($user) }
   }
 flushmode $chan
}

 


proc timed:ban {chan banmask} {
  if {[ischanban $banmask $chan]} {
    pushmode $chan -b  $banmask 
  } else { putlog "$banmask is already removed from $chan" }
}



proc text:flood:list u {
global chantextflood
if {[info exists chantextflood($u)]} { incr chantextflood($u) -1 }
}

[TimeRider]

Simo, there seems to be a problem that the timer of 30 seconds not being to reset itself sometimes. Some users are getting mute banned even after using .tell after 30 seconds.