on !@*:join:#.area:{ 
  hinc $+(-mu,$iif($hget(Jfld,#).unset,$v1,4)) JFld # 
  set $+(-u,$iif($hget(Jfld,#).unset,$v1,4)) %jnicks %jnicks $nick 
  if ($hget(Jfld,#) == 7) && (!%nspl) { 
    if (!%limit) {  mode # +l $calc($nick(#,0) + 1 ) } 
  } 
}