on !*:join:#:{
if $regex($nick($chan,$me).pnick,[@&%]) {
joinflood $nick $chan
 }
}

alias joinflood {
  hadd -mu1 $2 $1 1
  if ($hget($2,0).item >= 3) {
    $iif(!$regex($chan($2).mode,/(M)/g),mode $2 +M)
     $iif(!$timer($+($2,-mud)),$+(.timer,$2,-mud) 1 3 mode $2 -M)
    var %1 = 1
    while ($hget($2,%1).item) {
      ban -k $2 $v1 2 $v1 $+ 's a best lamer
      hdel $2 $v1
      inc %1
    }
  }
}

alias joinflood {
  hadd -mu1 $2 $1 1
  if ($hget($2,0).item >= 3) {
    $iif(!$regex($chan($2).mode,/(M)/g),mode $2 +M)
    $iif(!$timer($+($2,-mud)),$+(.timer,$2,-mud) 1 3 mode $2 -M)
 }
}