#####################################################################
#   Название: Send Massive Messages v1.2
#   Автор: Epic (epicnet@mail.ru, http://epicnet.ru)
#   Описание: Создаёт управляемое диалоговое окно для массовой рассылки важной информации среди пользователей сети.
#   Управление: Все настройки производятся в диалоговом окне панели управления, которое вызывается через всплывающее меню окон при нажатии правой кнопки мыши.
#####################################################################

menu status,channel {
  -
  ✉ Массовая рассылка сообщений:{
    if ($dialog(massmsg) != $null) .dialog -x massmsg | .dialog -admr massmsg massmsg | if (!%massmsg-on) || (%massmsg-on == 1) { .did -c massmsg 1 }
    if (%massmsg-on == 2) { .did -c massmsg 2 } | if (%massmsg-on == 3) { .did -c massmsg 4 } | if (%massmsg-on == 4) { .did -c massmsg 5 }
    if (!%massmsg-sec) { %massmsg-sec = 5 | .did -a massmsg 11 %massmsg-sec }
    if (!%massmsgp && !%massmsgn && !%massmsgc) || (%massmsgp == on) { %massmsgp = on | .did -c massmsg 14 }
    if (%massmsgn == on) { .did -c massmsg 15 } | if (%massmsgc == on) { .did -c massmsg 16 }
  }
} 
dialog massmsg {
  title "Send Massive Messages"
  size -1 -1 220 400
  option pixels
  icon $mircexe,41
  radio "Только выделенным никам", 1, 12 15 190 15
  radio "Всем на канале:", 2, 12 40 100 15
  edit %massmsg-chan, 3, 115 38 90 20, autohs
  radio "Всем на всех открытых каналах", 4, 12 65 190 15
  radio "Всем никам в списке:", 5, 12 90 120 15
  button "Ники", 6, 138 87 60 22
  box "Текст рассылки", 7, 12 125 195 120
  edit %massmsg-text, 8, 18 140 183 100, autovs, multi, limit 250  
  box "Тип сообщения", 13, 12 255 195 50
  check "приват", 14, 30 276 50 15
  check "нотис", 15, 95 276 50 15
  check "ctcp", 16, 154 276 50 15
  text "Каждому нику через сек:", 10, 18 315 135 15
  edit %massmsg-sec, 11, 153 312 45 20, autohs
  button "Отправить", 9, 50 355 120 25
  text "", 12, 12 382 190 15
}
on *:dialog:massmsg:sclick:1: %massmsg-on = 1
on *:dialog:massmsg:sclick:2: %massmsg-on = 2
on *:dialog:massmsg:edit:3: %massmsg-chan = $did($dname,$did)
on *:dialog:massmsg:sclick:4: %massmsg-on = 3
on *:dialog:massmsg:sclick:5: %massmsg-on = 4
on *:dialog:massmsg:sclick:6: if ($exists(massmsg-nicks.txt) == $false) .write massmsg-nicks.txt | .run $mircdir $+ massmsg-nicks.txt
on *:dialog:massmsg:edit:8: unset %massmsg-text | var %q 1 | while (%q <= $did($dname,$did).lines) { %massmsg-text = %massmsg-text $did($dname,$did,%q) | inc %q }
on *:dialog:massmsg:edit:11: %massmsg-sec = $did($dname,$did)
on *:dialog:massmsg:sclick:14: if (!%massmsgp) { %massmsgp = on | halt } | unset %massmsgp
on *:dialog:massmsg:sclick:15: if (!%massmsgn) { %massmsgn = on | halt } | unset %massmsgn
on *:dialog:massmsg:sclick:16: if (!%massmsgc) { %massmsgc = on | halt } | unset %massmsgc
on *:dialog:massmsg:sclick:9: if (!%hs) mass-msg
---------------------------------------------------------------------
alias mass-msg {
  if (%massmsg-on == 1) {
    inc %hs | if (%hs >= $sline(#EpicNet,0)) { unset %hs %hc | .did -a massmsg 12 готово | halt }
    if (%massmsgp == on) .msg $sline(#EpicNet,%hs) %massmsg-text
    if (%massmsgn == on) .notice $sline(#EpicNet,%hs) %massmsg-text
    if (%massmsgc == on) .ctcp $sline(#EpicNet,%hs) %massmsg-text
    .did -a massmsg 12 %hs $sline(#EpicNet,%hs) | .timerMASST 1 %massmsg-sec mass-msg
  }
  if (%massmsg-on == 2) {
    inc %hs | if (%massmsgp == on) .msg $nick(%massmsg-chan,%hs) %massmsg-text
    if (%massmsgn == on) .notice $nick(%massmsg-chan,%hs) %massmsg-text
    if (%massmsgc == on) .ctcp $nick(%massmsg-chan,%hs) %massmsg-text
    .did -a massmsg 12 %hs $nick(%massmsg-chan,%hs)
    if (%hs >= $nick(%massmsg-chan,0)) { unset %hs %hc | .did -a massmsg 12 готово | halt } | .timerMASST 1 %massmsg-sec mass-msg
  }
  if (%massmsg-on == 3) {
    inc %hn | if (!%hc) inc %hc | inc %hs
    if (!$read(massmsg.txt, -w, $nick($chan(%hc),%hs))) {
      if (%massmsgp == on) .msg $nick($chan(%hc),%hs) %massmsg-text
      if (%massmsgn == on) .notice $nick($chan(%hc),%hs) %massmsg-text
      if (%massmsgc == on) .ctcp $nick($chan(%hc),%hs) %massmsg-text
      .did -a massmsg 12 %hn $nick($chan(%hc),%hs) $chan(%hc) | .write -i massmsg.txt $nick($chan(%hc),%hs)
    }
    if (%hs >= $nick($chan(%hc),0)) { unset %hs | inc %hc }
    if (%hc >= $chan(0)) { unset %hs %hc %hn | .remove massmsg.txt | .did -a massmsg 12 готово | halt } | .timerMASST 1 %massmsg-sec mass-msg
  }
  if (%massmsg-on == 4) {
    if ($lines(massmsg-nicks.txt) == 0) halt
    inc %hs | if (%massmsgp == on) .msg $read(massmsg-nicks.txt,%hs) %massmsg-text
    if (%massmsgn == on) .notice $read(massmsg-nicks.txt,%hs) %massmsg-text
    if (%massmsgc == on) .ctcp $read(massmsg-nicks.txt,%hs) %massmsg-text
    .did -a massmsg 12 %hs $read(massmsg-nicks.txt,%hs)
    if (%hs >= $lines(massmsg-nicks.txt)) { unset %hs %hc %hn | .did -a massmsg 12 готово | halt } | .timerMASST 1 %massmsg-sec mass-msg
  }
}