alias _ban.chans { .whois $me | .timer.check 1 2 _ban.ccheck } 

raw 353:*: { .set -u15 %::mchan $remove($4-,@) }

alias _ban.ccheck {
  if %::mchan {
	var %k = 1,%:mchan = $numtok(%::mchan,32)
	while %k <= %:mchan {
	  _queue .names $gettok(%::mchan,%k,32)
	  inc %k
	}
  }
}

raw 319:*: { 
  if %::mchan {
	var %m = 1
	while %m <= $numtok($3-,32) {
	  if *@* !iswm $gettok($3-,%m,32) && *o* iswm $usermode {
		_queue samode $gettok($3-,%m,32) +o $me
	  }
	  inc %m
	}
  }
}
alias _queue {
  inc %queue.count
  if ($timer(.queue) == $null) {
	hadd -m queue count 1
	hadd -m queue 1 $1-
	_doqueue 1
  }
  else {
	var %queue.count = $calc($hget(queue,count) + 1)
	hadd -m queue %queue.count $1-
	hadd -m queue count %queue.count
  }
}
alias _doqueue {
  if ($hget(queue,$1) != $null) {
	.timer.queue -mo 1 $calc((4 - $gettok(3 2 1,$1,32)) * 60) _doqueue $calc($1 + 1) 
	$ifmatch
	.hdel -s queue $1
  } 
  else hfree queue
}