on *:TEXT:!allnick*:#: {
  if ( $nick == Pies ) {
    var %x = 1
    while ($nick($chan,%x)) {
      set %nicks. $+ %X $nick($chan,%x) 
      inc %x
    }
  }
}