#joinfloodkick off
on *:quit: { 
  if (*.*.* *.*.* iswm $1-2) {
    set %split. [ $+ [ $network ] ] $addtok(%split. [ $+ [ $network ] ],$nick,32)
  }
}
on @*:join:#: {
  if ($istok(%split. [ $+ [ $network ] ] ,$nick,32)) {
    set %split. [ $+ [ $network ] ] $remtok(%split. [ $+ [ $network ] ] ,$nick,32)
  }

  if (!$istok(%split. [ $+ [ $network ] ] ,$nick,32)) { 
    if (!%fldbot. [ $+ [ $chan ] $+ . $+ [ $network ] ]) {
      unset %floodbot. [ $+ [ $chan ] $+ . $+ [ $network ] ]
      unset %floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ]
      set -u [ $+ [ 3 ] ] %fldbot. [ $+ [ $chan ] $+ . $+ [ $network ] ] on

    }
    

        set %floodbot. [ $+ [ $chan ] $+ . $+ [ $network ] ]  $addtok(%floodbot. [ $+ [ $chan ] $+ . $+ [ $network ] ],$nick,32)
        set %floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ] $addtok(%floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ],$address($nick,2),32)

   

  }

  if ($numtok(%floodbot. [ $+ [ $chan ] $+ . $+ [ $network ] ],32) >= 5) && (%fldbot. [ $+ [ $chan ] $+ . $+ [ $network ] ]) {
    mode # $str(+b,$numtok(%floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ],32)) %floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ]

    if (!$timer(mi)) {
      .notice # channel is locked due to flood , please wait few moments ....
      mode # +mi
      .timermi 1 60 mode # -mi
    }
  }

}

on @*:ban:#: {
  if (%fldbot. [ $+ [ $chan ] $+ . $+ [ $network ] ])  {
    var %x 1
    while ($ialchan($banmask,#,%x)) {
      if ($ialchan($banmask,#,%x).nick isreg #) {
        kick # $ialchan($banmask,#,%x).nick banned: flood bot . $+ %kickno $+ . $read(rscript.txt)
      }
      inc %x
    }
  }
}

on *:kick:#: {
  set %floodbot. [ $+ [ $chan ] $+ . $+ [ $network ] ] $remtok(%floodbot. [ $+ [ $chan ] $+ . $+ [ $network ] ],$knick,32)
  set %floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ] $remtok(%floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ],$address($knick,2),32)
}

on *:part:#: {
  set %floodbot. [ $+ [ $chan ] $+ . $+ [ $network ] ] $remtok(%floodbot. [ $+ [ $chan ] $+ . $+ [ $network ] ],$nick,32)
  set %floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ] $remtok(%floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ],$address($nick,2),32)
}

on *:quit: {
  set %floodbot. [ $+ [ $comchan($nick,1) ] $+ . $+ [ $network ] ] $remtok(%floodbot. [ $+ [ $chan ] $+ . $+ [ $network ] ],$nick,32)
  set %floodhost. [ $+ [ $comchan($nick,1) ] $+ . $+ [ $network ] ] $remtok(%floodhost. [ $+ [ $chan ] $+ . $+ [ $network ] ],$address($nick,2),32)
}



on *:exit: { unset %split.*
  unset %floodbot.*
  unset %floodhost.* 
}

#joinfloodkick end