/ScriptServ

ctcp *:*:*: {
  inc -u7 %ctcp.tmp [ $+ [ . ] $+ [ $nick ] ] 1 1
  :fldchk
  if (%ctcp.tmp [ $+ [ . ] $+ [ $nick ] ] >= 6) {
    set -u7 %addr $nick $+ $chr(33) $+ $address
    .ignore -tu30 $mask(%addr,4)
    echo -a -5,4Added 8,1[[4 $+ $nick $+ 8]]5,4 to ignore list for 30 seconds for 8,1[[4CTCP Flood8]]
    .timer 1 30 echo $iif(#,#,-a) -5,4Removed 8,1[[4 $+ $nick $+ 8]]5,4 from ignore listt
  }
  :end
}
on *:TEXT:*:*: {
  inc -u5 %flood.tmp [ $+ [ . ] $+ [ $nick ] ] 1
  :fldchk
  if (%flood.tmp [ $+ [ . ] $+ [ $nick ] ] >= 15) {
    beep
    set -u7 %addr $nick $+ $chr(33) $+ $address
    .ignore -u30 $mask(%addr,4)
    echo -a -5,4Added 8,1[[4 $+ $nick $+ 8]]5,4 to ignore list for 30 seconds for 8,1[[4Text Flood8]]
    .timer 1 30 echo $iif(#,#,-a) -5,4Removed 8,1[[4 $+ $nick $+ 8]]5,4 from ignore list
  }
  :end
}
on *:ACTION:*:*: {
  inc -u5 %flood.tmp [ $+ [ . ] $+ [ $nick ] ] 1
  :fldchk
  if (%flood.tmp [ $+ [ . ] $+ [ $nick ] ] >= 15) {
    beep
    set -u7 %addr $nick $+ $chr(33) $+ $address
    .ignore -u30 $mask(%addr,4)
    echo -a -5,4Added 8,1[[4 $+ $nick $+ 8]]5,4 to ignore list for 30 seconds for 8,1[[4Text Flood8]]
    .timer 1 30 echo $iif(#,#,-a) -5,4Removed 8,1[[4 $+ $nick $+ 8]]5,4 from ignore list
  }
  :end
}
on *:NOTICE:*:*: {
  inc -u5 %flood.tmp [ $+ [ . ] $+ [ $nick ] ] 1
  :fldchk
  if (%flood.tmp [ $+ [ . ] $+ [ $nick ] ] >= 15) {
    beep
    set -u7 %addr $nick $+ $chr(33) $+ $address
    .ignore -u30 $mask(%addr,4)
    echo -a -5,4Added 8,1[[4 $+ $nick $+ 8]]5,4 to ignore list for 30 seconds for 8,1[[4Notice Flood8]]
    .timer 1 30 echo $iif(#,#,-a) -5,4Removed 8,1[[4 $+ $nick $+ 8]]5,4 from ignore list
  }
  :end
}
on *:START:unset %flood.* %ctcp.*