All pastes #805231 Raw Edit

Mine

public text v1 · immutable
·published 2007-12-04 04:09 UTC
rendered paste body
on *:text:!flood*:#:{
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (($nick isvoice #) || ($nick isreg #) && ($2 == on)) { halt }
  elseif (($nick isvoice #) || ($nick isreg #) && ($2 == off)) { halt }
  elseif (($nick isop #) || ($nick isvoice #) && ($2 == on) && (%controlFlood. [ $+ [ $chan ] ] == on)) {
    notice $nick 12My Flood Protection Is Already On For4 $chan $+12!
  }
  elseif (($nick isop #) || ($nick ishop #) && ($2 == on)) {
    set %controlFlood. [ $+ [ $chan ] ] on
    set %protecchan $addtok(%protecchan,$chan,44)
    msg $chan 12My Flood Protection Is Now4 ON 12In4 $chan $+12! 
  }
  elseif (($nick isop #) || ($nick ishop #) && ($2 == off) && (%controlFlood. [ $+ [ $chan ] ] == $null)) {
    notice $nick 12My Flood Protection Is Already4 OFF 12For4 $chan $+12!
  }
  elseif (($nick isop #) || ($nick ishop #) && ($2 == off)) {
    unset %controlflood. [ $+ [ $chan ] ]
    set %protecchan $remtok(%protecchan,$chan,1,44)
    msg $chan 12My Flood Protection Is Now4 OFF12!! In4 $chan $+!
  }
  elseif (($nick isop #) || ($nick ishop #) && ($2 == help)) {
    notice $nick  12To Turn4 On 12Type4 !Flood On 
    notice $nick  12To Turn4 Off 12Type4 !Flood Off 
  }
}
on !*:text:*:%protecchan: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (($nick isop #) || ($nick ishop #)) {
    halt
  }
  inc -u2 $+(%,flood,.,$chan,.,text,.,$nick)
  if $($+(%,flood,.,$chan,.,text,.,$nick),2) >= 5 {
    inc %floodd. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] 
    if (%floodd. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] = 2 ) { kick $chan $nick 12Do Not Flood This Room! Do It Again And I'll Ban You! }
    if (%floodd. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] = 5 ) {
      msg $chan 12Damn4 $nick 12You Were Warned Not To Flood This Room. 
      mode $chan +b $address($nick,5)
      kick $chan $nick 12Out With You! Banned For 10 Minutes! 
      unset %floodd. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ]
      .timer 1 600 mode $chan -b $address($nick,5)
    }
  }
}
on !*:action:*:%protecchan: {
  if ($me == stupidbot) noop
  elseif (%dchan [ $+ [ $chan ] ] == yes) { halt }
  if (($nick isop #) || ($nick ishop #)) {
    halt
  }
  inc -u2 $+(%,flood,.,$chan,.,text,.,$nick)
  if $($+(%,flood,.,$chan,.,text,.,$nick),2) >= 5 {
    inc %floodd. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] 
    if (%floodd. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] = 2 ) { kick $chan $nick 12Do Not Flood This Room! Do It Again And I'll Ban You! }
    if (%floodd. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ] = 5 ) {
      msg $chan 12Damn4 $nick 12You Were Warned Not To Flood This Room. 
      mode $chan +b $address($nick,5)
      kick $chan $nick 12Out With You! Banned For 10 Minutes! 
      unset %floodd. [ $+ [ $chan ] ] [ $+ . [ $+ [ $nick ] ] ]
      .timer 1 600 mode $chan -b $address($nick,5)
    }
  }
}