alias -l limit return 20 

on *:text:.names &:#: { 
  if ($nick isop #) { 
    set $+(%,scan.,$2) # 
    .enable #names 
    join $2 
  } 
} 
#names off 
raw 366:*: { 
  if $($+(%,scan.,$2),2) { 
    var %c = $v1,%i = 1,%x 
    while $nick($2,%i) { 
      if ($v1 != $me) { 
        %x = $addtok(%x,$v1,32) 
        if ($numtok(%x,32) == $limit) { 
          .msg %c %x 
          %x = "" 
        } 
      } 
      inc %i 
    } 
    if (%x) .msg %c %x 
    unset $+(%,scan.,$2) 
    part $2 
  } 
  .disable #names 
} 
#names end