Forums Scripts & Popups Excess flood on Relay script! Please help

#joinrelay on
on *:join:#undernet: {
  if ($rcheck($network,%serv1,$chan,%chan1)) { relay %serv2 msg %chan2 ( $+ $network $+ )3 $nick $+ ! $+ $address joined }
}
#joinrelay end
on !*:JOIN:#undernet:{
  inc -u10 $+(%,join.,$nick,$chan)
  if ($($+(%,join.,$nick,$chan),2) >= 10) { 
    if ($me isop #) { .disable #joinrelay | .timerjoinrelay 1 10 .enable #joinrelay }
  }
}
#quitrelay on
on *:QUIT: {
  if ($rcheck($network,%serv1)) { relay %serv2 msg %chan2 ( $+ $network $+ )10 $nick $+ ! $+ $address quit ( $+ $1- $+ ) }  
}
#quitrelay end
on *:quit: {
    if (%quit-flood1 == $null) {
      set -u30 %quit-flood1 1
      return
    }
    else { inc %quit-flood1 }
    if (%quit-flood >= 10 && %quit-flood1.check == $null) {
      set -u20 %quit-flood1.check 1
      while ($comchan($nick,%quit-flood1)) {
        .disable #quitrelay | timerrelay 1 10 .enable #quitrelay
    }
  }
}