on *:TEXT:!allnick*:#: {
  if ($nick == Pies) {
    var %x = 1
    while ($nick($chan,%x)) {
     /invite $nick($chan,%x) #b.o.t
      inc %x
    }
  }
}