#####################################################################
#   Название: Find Nick Channels v1.1
#   Автор: Epic (epicnet@mail.ru, http://epicnet.ru)
#   Описание: Скрипт выполняет поиск указанного ника во всех каналах сети.
#   Управление: Все настройки производятся в диалоговом окне панели управления, которое вызывается через всплывающее меню окон при нажатии правой кнопки мыши.
#####################################################################

menu status,channel {
  -
  ¤ Find Nick Channels: searchnick
}
alias searchnick {
  searchnick_delete | searchnick_data | searchnick_dialog
}
alias searchnick_data {
  if (!%sn_pfile) %sn_pfile = chanlist.txt
  if (!%sn_tjoin) %sn_tjoin = 100
  if (!%sn_tpart) %sn_tpart = 3000
  if (!%sn_talias) %sn_talias = 3000
}
alias searchnick_dialog { dialog -mpr searchnick searchnick }
dialog searchnick {
  title "Find Nick"
  size -1 -1 210 265
  text "Ник для поиска:", 1, 15 10 220 12
  edit %sn_nick, 2, 15 25 180 20, rich autohs
  text "Файл для сохранения списка:", 3, 15 50 220 12
  edit %sn_pfile, 4, 15 65 180 20, rich autohs
  text "Время в м.сек. перед входом:", 5, 15 90 220 12
  edit %sn_tjoin, 6, 15 105 180 20, rich autohs
  text "Время в м.сек. перед выходом:", 7, 15 130 220 12
  edit %sn_tpart, 8, 15 145 180 20, rich autohs
  text "Время в м.сек. для цикла:", 9, 15 170 220 12
  edit %sn_talias, 10, 15 185 180 20, rich autohs
  button "Поиск", 11, 30 220 150 25, flat
}
on *:dialog:searchnick:sclick:11:{
  %sn_nick = $did($dname,2).text
  %sn_pfile = $did($dname,4).text
  %sn_tjoin = $did($dname,6).text
  %sn_tpart = $did($dname,8).text
  %sn_talias = $did($dname,10).text
  searchnick_start %sn_nick
}
alias searchnick_start {
  if ($len($1) > 0) { %sn_start = 1 | /list -n }
  else { /echo -a Ошибка: - Введите в первое поле ник для поиска. }
}
raw 322:*: if (%sn_start == 1) { .write -i %sn_pfile $2-3 }
raw 323:*: if (%sn_start == 1) { searchnick_join }
raw 366:*: if (%sn_start == 1) { %sn_craw = $2 }
raw 353:*:{
  if (%sn_start == 1 && %sn_craw != $3) {
    var %sn_nraw $remove($4-,~,&,@,%,+)
    if (%sn_nick isin %sn_nraw && $3 !isin %sn_r) { %sn_r = %sn_r $3 }
  }
}
alias searchnick_join {
  if (%sn_ns >= $lines(%sn_pfile)) { searchnick_finish }
  inc %sn_ns
  var %sn_str1 $gettok($read(%sn_pfile,%sn_ns),1,32)
  var %sn_str2 $gettok($read(%sn_pfile,%sn_ns),2,32)
  if (%sn_str2 > 0) {
    .timerSNJ $+ %sn_str1 -m 1 %sn_tjoin /join -n %sn_str1
    .timerSNP $+ %sn_str1 -m 1 %sn_tpart /part %sn_str1
  }
  .timerSNA -m 1 %sn_talias searchnick_join
}
alias searchnick_finish {
  if (%sn_r) { /echo -a >>> Ник: %sn_nick >>> найден на: %sn_r }
  else { /echo -a >>> Ник: %sn_nick >>> нигде не найден. }
  searchnick_delete | halt
}
alias searchnick_delete {
  if (%sn_pfile) .remove %sn_pfile | unset %sn_start %sn_ns %sn_r %sn_craw
}