ctcp *:*:*: {
 set -u60 %ctcp. [ $+ [ $site ] ] $calc( %ctcp. [ $+ [ $site ] ] + 1)
 if (%ctcp. [ $+ [ $address ] ] >= 5) {
  .ignore -tu60 $site
  var %i = 0
  while (%i < $comchan($nick,0)) { 
   inc %i 
   if ($nick !isop $comchan($nick,%i) {
    ban -u60 $comchan($nick,%i) 2
    kick $comchan($newnick,%i) $nick Stop the CTCP flooding please!
   }
  }
 }
}