egghelp/eggheads community

protect flood

2006-01-17T00:55:27-04:00

lol the proc is good lol thx demond

Statistics: Posted by pilouuu — Tue Jan 17, 2006 12:55 am

protect flood

2006-01-17T00:43:27-04:00

noone could possibly know that but you

Statistics: Posted by demond — Tue Jan 17, 2006 12:43 am

protect flood

2006-01-17T00:42:04-04:00

ok thx my variable

set pubflud 5:30

it good?

Statistics: Posted by pilouuu — Tue Jan 17, 2006 12:42 am

protect flood

2006-01-17T00:15:12-04:00

here's how to do that (code from my rssnews script) inside your public cmd proc:

Code:

...variable pcount; variable pubfludif {[info exists pcount]} {set n [lindex $pcount 1]; incr nset ts [lindex $pcount 0]set pcount [list $ts $n]scan $pubflud {%[^:]:%s} maxr maxtif {$n >= $maxr} {if {[unixtime] - $ts <= $maxt} {return}set n 1; set ts [unixtime]}} {set n 1; set ts [unixtime]}set pcount [list $ts $n]...

this thing will ignore any command requests beyond M:N (at most M requests in N seconds), set in the global variable pubflood (of course, you need to replace variable with global since you don't use namespaces)

Statistics: Posted by demond — Tue Jan 17, 2006 12:15 am

protect flood

2006-01-16T23:51:09-04:00

Code:

# databaseset dbfile "scripts/database.txt" # bindbind pub - !blg aleatory# set flood set fun(flood) 5:30 # Ignorer users after flood (0=no, 1=yes) : set fun(ignore) 1 # Yes?,tine mns : set fun(ignoretime) 1 # flags protect: set fun(ignflags) "fmnov|fmnov" proc fun:flood:init {} { global fun funflood set fun(floodnum) [lindex [split $fun(flood) :] 0] set fun(floodtime) [lindex [split $fun(flood) :] 1] set i [expr $fun(floodnum) - 1] while {$i >= 0} {    set funflood($i) 0    incr i -1 } } fun:flood:init proc fun:flood {nick uhost} { global fun funflood botnick if {$fun(floodnum) == 0} {    return 0 } set i [expr $fun(floodnum) - 1] while {$i >= 1} {    set funflood($i) $funflood([expr $i - 1])    incr i -1 } set funflood(0) [unixtime] if {[expr [unixtime] - $funflood([expr $fun(floodnum) - 1])] <= $fun(floodtime)} {    if {$fun(ignore)} {       newignore [join [maskhost *!*[string trimleft $uhost ~]]] $botnick "Flood" $fun(ignoretime)    }    return 1 } {    return 0 } }proc aleatory {nick uhost hand chan arg} {if ![matchattr $nick $fun(ignflags) $channel] {    if {[fun:flood $nick $uhost]} {  global dbfile  set r [lindex [set d [split [read [set f [open $dbfile]]] \n]] [rand [llength $d]]]  puthelp "PRIVMSG $chan :$r $nick"  close $f } putlog "blg loaded"

help me please i am lost after error

Statistics: Posted by pilouuu — Mon Jan 16, 2006 11:51 pm

protect flood

2006-01-16T23:44:06-04:00

Code:

set dbfile "scripts/database.txt" bind pub - !blg aleatory proc aleatory {nick uhost hand chan arg} {  global dbfile  set r [lindex [set d [split [read [set f [open $dbfile]]] \n]] [rand [llength $d]]]  puthelp "PRIVMSG $chan :$r $nick"  close $f }putlog "blg loaded"

possible to add protection flood?

expl:
user> !blg
bot> blabla
user> !blg
bot> blabla
user> !blg
bot> blabla
user> !blg
the bot say /notice user you have been ignoring for 1 mns and set ignore user for 1 mns

thx

Statistics: Posted by pilouuu — Mon Jan 16, 2006 11:44 pm