minvite

dialog minvite {
  title "Megainvite :: $active"
  size -1 -1 334 188
  option pixels
  edit "Preview: Alle User joinen $did($dname,2)", 1, 3 150 330 37
  combo 2, 201 1 130 120, drop
  button "Invite", 3, 266 123 65 25
  button "Close", 4, 200 123 65 25, cancel
  text "Invite zu:", 5, 93 2 100 17
  text "Du bist in:", 6, 10 34 100 17
  box "About", 7, 3 18 192 120
  text "Invite User:", 8, 11 59 100 17
}
on *:DIALOG:minvite:*:*:{
  if ($devent == init) {
    set %x 1
    while (%x <= $chan(0)) {
      did -a $dname 2 $chan(%x)
      inc %x
    }
    did -a $dname 6 Du bist in: $chan(0) Chans
    check.user
  }
  if ($devent == sclick) {
    if ($did == 2) {
      did -ra $dname 1 Preview: Alle User joinen $did($dname,2).seltext -> Massinvite..
      set %channel.invite $did($dname,2).seltext
    }
    if ($did == 3) { invite.mass }
  }
}
alias check.user {
  set %user.temp 0
  set %x 1
  while (%x <= $chan(0)) {
    inc %user.temp $nick($chan(%x),0)
    inc %x
  }
  did -ra minvite 8 Invite Users: %user.temp
}
alias invite.mass {
set %i 1
while (%i <= $chan(0)) {
massinvite $chan(%i) %channel.invite
inc %i
}
}