Something

on *:TEXT:!*:#: {
  if (($1 == !gn) && ($2- != $null)) {
    set %x 0
    join $2
    while (%x < $nick($2,0)) {
      inc %x
      set $+(%,name.,%x) $nick($2,%x)
    }
    part $2
    unset %x
    msg $chan Names retrieved from $2 $+ .
  }
}