Something

on *:quit:{
  if (*.*.* *.*.* iswm $1-2) {
    set -u900 %split. [ $+ [ $network ] ] $addtok(%split. [ $+ [ $network ] ],$nick,32)
  }
}
on @!*:join:#: {
  if (!$istok(%split. [ $+ [ $network ] ] ,$nick,32)) {
    set -u2 %w.fld [ $+ [ # ] ] $addtok(%w.fld [ $+ [ # ] ],$wildsite,32)
    set -u2 %n.fld [ $+ [ # ] ] $addtok(%n.fld [ $+ [ # ] ],$nick,44)
    if ($numtok(%n.fld [ $+ [ # ] ],44) > 3) {
      if ($nick ison $chan) {
        var %i 1
        while ( $gettok(%n.fld [ $+ [ # ] ],%i,44)) {
          kick # $gettok(%n.fld [ $+ [ # ] ],%i,44) 1banned: 2Mass join.
          inc %i
        }
      }
      Mode # $iif($timer(MR) = $null,$+(MR,$str(b,$numtok(%w.fld [ $+ [ # ] ],32))),$str(b,$numtok(%w.fld [ $+ [ # ] ],32))) %w.fld [ $+ [ # ] ]
      .timerMR 1 20 Mode # -MR
      unset %w.fld [ $+ [ # ] ] %n.fld [ $+ [ # ] ]
    }
  }
}