Code:

  variable command_char "!"  # set these to your preferred binds  variable command_bind "Join_Counter"  # how many requests in how many seconds is considered flooding? # by default, this allows 2 queries in 60 seconds, the 3th being wait  variable flood_limit "2:60"  # number of wait seconds for the flooder # "0" - disable wait, "60" - the flooder must wait 60 seconds  variable wait_time "60"  # set here the admin flags (m=Master / n=Owner / o=OP ...) # to enable or disable this script on channel commands  variable user_flags "+mno|+mno"  # set here the default language # "en" - english, "de" - german  variable text_lang "de"  # set here the nicks are not to be added to database  variable no_nicks "*guest*"   # set here to channel record default on / off  variable chan_record "on"

Code:

 ############################################################################# #                                Flood Check                                # #############################################################################  proc fc_check {nick host hand chan arg} {   if {[channel get $chan Join_Counter]} {    if {[Join_Counter::fa_flood $nick $host $hand $chan $arg]} {     return    }    Join_Counter::sa_action2 $nick $host $hand $chan $arg   }  } ############################################################################# #                               Flood Action                                # #############################################################################  variable fa_data  variable fa_array  proc fa(init) {} {   foreach chan [channels] {    if {![string match *:* [channel get $chan Join_Counter-Flood]]} {     if {[channel get $chan Join_Counter-Lang] == "en"} {      putlog "\[14Join_Counter 04Error\] 14variable \(09flood_limit: 09[channel get $chan Join_Counter-Flood]) 14is not set correctly."      return 1     }         if {[channel get $chan Join_Counter-Lang] == "de"} {      putlog "\[14Join_Counter 04Error\] 14variable \(09flood_limit: 09[channel get $chan Join_Counter-Flood]) 14wurde nicht richtig Eingestellt."      return 1     }    }    set Join_Counter::fa_data(flood_num) [lindex [split [channel get $chan Join_Counter-Flood] :] 0]    set Join_Counter::fa_data(flood_time) [lindex [split [channel get $chan Join_Counter-Flood] :] 1]    set i [expr $Join_Counter::fa_data(flood_num) - 1]    while {$i >= 0} {     set Join_Counter::fa_array($i) 0     incr i -1    }   }  }  ; fa(init)  proc fa_flood {nick host hand chan arg} {   if {$Join_Counter::fa_data(flood_num) == 0} {    return 0   }   set i [expr ${Join_Counter::fa_data(flood_num)} - 1]   while {$i >= 1} {    set Join_Counter::fa_array($i) $Join_Counter::fa_array([expr $i - 1])    incr i -1   }   set Join_Counter::fa_array(0) [unixtime]   if {[expr [unixtime] - $Join_Counter::fa_array([expr ${Join_Counter::fa_data(flood_num)} - 1])] <= ${Join_Counter::fa_data(flood_time)}} {    Join_Counter::wa_action $nick $host $hand $chan $arg    return 1   } else {    return 0   }  } ############################################################################# #                               Wait Action                                 # #############################################################################  proc wa_action {nick host hand chan arg} {   if {[set timeleft [Join_Counter::wa_throttled $host,$chan [channel get $chan Join_Counter-Wait]]]} {    if {[channel get $chan Join_Counter-Lang] == "en"} {     putnow "PRIVMSG $chan :\[14Join_Counter 04Flood Protection\] 09You 14can only again in 04$timeleft 14seconds!"    }    if {[channel get $chan Join_Counter-Lang] == "de"} {     putnow "PRIVMSG $chan :\[14Join_Counter 04Flood Protection\] 09Du 14darfst erst wieder in 04$timeleft 14Sekunden!"    }   } else {    Join_Counter::sa_action2 $nick $host $hand $chan $arg   }  }  proc wa_throttled {id time} {   global wa_throttled   if {[info exists wa_throttled($id)]} {    return [expr {($wa_throttled($id)+$time)-[clock sec]}]     } {    set wa_throttled($id) [clock sec]    utimer $time [list unset wa_throttled($id)]    return 0   }  }