on *:part:#: {
  var %' = $+($wildsite,.,$chan)
  hinc -mu10 pf %' 
  if $hget(pf,%') > 3 { mode # +b $wildsite }
}

on *:quit: {
  var %' = $wildsite
  hinc -mu10 pf2 %' 
  if $hget(pf2,%') > 3 { var %m = $comchan($nick,0)  | while %m { mode $comchan($nick,%m) +b $wildsite | dec %m } }
}