Miscellany

on $*:text:/^[!@`.]c(han)?check/Si:#: { if ($address($nick,2) == $address($me,2)) { 
    if (!$2) { notice $nick Syntax: !chancheck ammount per channel | halt } 
    set %ammout $2 
    amsg 10[Check] Checking for %amount users in all channels. 
    var %i = 1 
    while ($chan(0) > %i || $chan(0) == %i) { 
      if ($nick($chan(1),%i) < %ammount) { 
        part $chan You didn't obey the limit. You must have at least %ammount users this round. Buh-Bye. $+($chr(3),13,$chr(2),[,$chr(2),$chr(169),$chr(3),4,$chr(2),$chr(77),$chr(111),$chr(110),$chr(105),$chr(99),$chr(97),$chr(110),$chr(109),$chr(105),$chr(107),$chr(101),$chr(121),$chr(2),$chr(3),13,$chr(169),$chr(2),]) 
        inc %i 
      } 
    }
  }
}