alias apart {
  var %apart = 0 
  while (%apart <= $chan(0)) { 
    inc %apart 
    var %apc = $chan(%apart) 
    if ($nick(%apc,0) <= 2 )  {
      part %apc 4Auto Part, activated by:7 $1
      echo Auto parted: %apc
      write log.txt $adate $chr(91) $+ $time $+ $chr(93) $+ : Parted %apc $+ . Auto part.    
    } 
  }
}