Flood Judges Fix

on *:text:*:#:{
if ($me !isop #) { return }
if ($IsNormUser($nick) == no) { return }
  inc -u3 %asd. [ $+ [ $nick ] $+ [ $chan ]  ]
  if (%asd. [ $+ [ $nick ] $+ [ $chan ]  ] == 4) {
    if ($nick ison #) { ban -ku31536000 # $nick 4 4Don't flood - 12You Have typed 0,1[TEXT]12,0 5 Lines below 1sec 11,1[banned 525600min] }
    unset  %asd. [ $+ [ $nick ] $+ [ $chan ]  ]
  }
}

on *:action:*:#:{
if ($me !isop #) { return }
if ($IsNormUser($nick) == no) { return }
  inc -u3 %asda. [ $+ [ $nick ] $+ [ $chan ]  ]
  if (%asda. [ $+ [ $nick ] $+ [ $chan ]  ] == 4) {
    if ($nick ison #) {  ban -ku31536000 # $nick 4 4Don't flood - 12You Have typed 6,1[ACTION]12,0  5 Lines below 1sec  11,1[banned 525600min] }
    unset  %asda. [ $+ [ $nick ] $+ [ $chan ]  ]
  }
}

on *:notice:*:#:{
if ($me !isop #) { return }
if ($IsNormUser($nick) == no) { return }
  inc -u3 %asdn. [ $+ [ $nick ] $+ [ $chan ]  ]
  if (%asdn. [ $+ [ $nick ] $+ [ $chan ]  ] == 4) {
    if ($nick ison #) {  ban -ku31536000 # $nick 4 4Don't flood - 12You Have typed 7,1[NOTICE]12,0  5 Lines below 1sec  11,1[banned 525600min] }
    unset  %asdn. [ $+ [ $nick ] $+ [ $chan ]  ]
  }
}

alias IsNormUser {
;; checking if the user is in @+- mode #
; if (@+- isin $nick(#,$1).pnick) { return no | halt }

; checking if user is op # mode
if ($1 isop #) { return no | halt }
; checking if user is in UVoice mode #
if ($mid($nick(#,$1).pnick,1,1) == -) { return no | halt }
; the user is no mode in # so return yes
return yes
}