egghelp/eggheads community

adding flood protections to this

2022-11-24T11:45:10-04:00

Just add the nick in the key of Xthrottled. That is what I pointed previously.

Code:

# throttle time in secondsset Xthrottled(time) 10proc throttlecheckerX {nick chan} {   global Xthrottled   if {[info exists Xthrottled($chan,$nick)]} {      return 1   } else {      set Xthrottled($chan,$nick) [utimer $::Xthrottled(time) [list unset Xthrottled($chan,$nick)]]      return 0   }} bind pub - !love fun_give-loveproc fun_give-love {nick uhost hand chan text} {     if {[throttlecheckerX $nick $chan]} { return 0 }         set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]         set items [split $text]     if {[llength $items] < 1 } { putnow "notice $nick :Syntax\: !love nick" ; return }          set lovenick [lindex [split $text] 0]         putserv "privmsg $chan :\001ACTION  \002\00305,00 $nick \002\00312 gives \00306\002 $lovenick \002\00307 love \003\017"}

Statistics: Posted by CrazyCat — Thu Nov 24, 2022 11:45 am

adding flood protections to this

2022-11-24T10:14:57-04:00

it's posibile to add a option every user to have let's say 1 shoot every 30 seconds?

Statistics: Posted by r6gear — Thu Nov 24, 2022 10:14 am

adding flood protections to this

2022-11-24T00:26:00-04:00

That's true i overlooked that thanks for pointing out CrazyCat

Statistics: Posted by simo — Thu Nov 24, 2022 12:26 am

adding flood protections to this

2022-11-23T19:25:29-04:00

Code:

# throttle time in secondsset Xthrottled(time) 10proc throttlecheckerX {nick chan} {  global Xthrottled  if {[info exists Xthrottled($chan)]} {       return 1} else {set Xthrottled($chan) [utimer $::Xthrottled(time) [list unset Xthrottled($chan)]]return 0}} bind pub - !love fun_give-loveproc fun_give-love {nick uhost hand chan text} {     if {[throttlecheckerX $nick $chan]} { return 0 }         set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]         set items [split $text]     if {[llength $items] < 1 } { putnow "notice $nick :Syntax\: !love nick" ; return }          set lovenick [lindex [split $text] 0]         putserv "privmsg $chan :\001ACTION  \002\00305,00 $nick \002\00312 gives \00306\002 $lovenick \002\00307 love \003\017"}

Thank you for helping! !beer

Statistics: Posted by r6gear — Wed Nov 23, 2022 7:25 pm

adding flood protections to this

2022-11-23T19:01:52-04:00

@simo : so the command could only be used once every 10s on the chan, whoever use it ?
Why throttlecheckerX has nick as argument if it's not used ?

Statistics: Posted by CrazyCat — Wed Nov 23, 2022 7:01 pm

adding flood protections to this

2022-11-24T08:53:01-04:00

Code:

# throttle time in secondsset Xthrottled(time) 10proc throttlecheckerX {chan} {  global Xthrottled  if {[info exists Xthrottled($chan)]} {       return 1} else {set Xthrottled($chan) [utimer $::Xthrottled(time) [list unset Xthrottled($chan)]]return 0}} bind pub - !love fun_give-loveproc fun_give-love {nick uhost hand chan text} {     if {[throttlecheckerX $chan]} { return 0 }         set text [regsub -all -- {\s{2,}} [string trim [stripcodes * $text]] { }]         set items [split $text]     if {[llength $items] < 1 } { putnow "notice $nick :Syntax\: !love nick" ; return }          set lovenick [lindex [split $text] 0]         putserv "privmsg $chan :\001ACTION  \002\00305,00 $nick \002\00312 gives \00306\002 $lovenick \002\00307 love \003\017"}

Statistics: Posted by simo — Wed Nov 23, 2022 4:15 pm

adding flood protections to this

2022-11-23T09:31:34-04:00

i want to add flood protection to this script. if a user want can user !love !love ...etc and floods the channel.
Can anyoane help me adding ? thank you

bind pub - !love fun_give-love

proc fun_give-love {nick uhost hand chan text} {
putserv "privmsg $chan :\001ACTION Lui 5$nick gives 5$text love!))"
}

Statistics: Posted by r6gear — Wed Nov 23, 2022 9:31 am