;----- Invite mirc script by elimS ----------------
menu nicklist {  
  открыть инвайт скрипт: dialog -m invite_options invite_options 
  указать файл ник-листа исключений: %invite_nick_list_iskluchenija = $file="Выберите файл со списком ников:" .txt
  добавить в ник-лист исключений: $iif( %invite_nick_list_iskluchenija == $null, echo $me 4укажите ник-лист исключений! , write %invite_nick_list_iskluchenija $1 )
  обнулить исключения: write -c %invite_nick_list_iskluchenija 
  проверить ник на исключение: %temp = $read(%invite_nick_list_iskluchenija, w, $1 ) | $iif( $readn == 0, echo $me 3 $1 ник не в исключениях! , echo $me 4 $1 ник в исключениях!)
}
alias invite_al {  
  if ( $me ison %invite_kanal) {
    inc %invite_nick_list_i 1
    %invite_nick = $read(%invite_nick_list,%invite_nick_list_i)
    %invite_prefix = $mid(%invite_nick,1,1)
    if ( ( ( %invite_prefix != @ ) || (%invite_op == on) ) && ( ( %invite_prefix != % ) || (%invite_hop == on) ) && ( ( %invite_prefix != + ) || (%invite_vop == on) ) ) {
      if ( ( %invite_prefix = @ ) || ( %invite_prefix = % ) || ( %invite_prefix = + ) ) %invite_nick = $mid(%invite_nick,2,$len(%invite_nick))
      if ( %invite_nick !ison %invite_kanal ) {  
        %invite_temp = $read(invite_list.txt, w,  * $+ %invite_nick $+ * ) 
        %invite_temp = $read(%invite_nick_list_iskluchenija, w, * $+ %invite_nick $+ * )
        if ( $readn = 0 ) {
          write $mircdir $+ invite_list.txt %invite_nick
          invite %invite_nick %invite_kanal
        }
        else echo дубликат - %invite_nick    
      }
    }
    if ( %invite_nick_list_i >= $lines( %invite_nick_list ) ) {
      %invite_status = off
      notice $me инвайт закончен, итого было позвано $lines($mircdir $+ invite_list.txt) ) людей. 
      timer_invite off
    }
  }
  else cs invite %invite_kanal
}
menu menubar { 
  invite script by elimS: dialog -m invite_options invite_options 
}
dialog invite_options {
  title "Скрипт для мас-инвайта. Ver. 2.0"   
  size -1 -1 140 195 
  option dbu  
  tab "Основные",1, 1 1 135 190 
  tab "Дополнительные",100
  button "указать канал",2, 10 20 50 10 , tab 1 
  button "частота инвайта",3, 10 35 50 10 , tab 1
  edit "",4, 60 20 70 10, read autohs , tab 1 
  edit "",5, 60 35 70 10, read autohs , tab 1
  button "Старт!",6, 10 65 120 20 , tab 1
  button "Стоп!",7, 10 90 120 20  , tab 1
  box "на кого будет действовать скрипт",8, 10 110 120 30 , tab 1
  check "+o: опы", 9, 18 118 40 10 , tab 1
  check "+h: халфопы", 10, 60 118 50 10 , tab 1
  check "+v: войсопы", 11, 18 128 40 10 , tab 1
  check "обычные юзеры", 12, 60 128 50 10 , tab 1
  check "реконект при Message target too fast", 13, 18 140 110 10 , tab 1
  button "величина канала",14, 10 50 50 10 , tab 1
  edit "",15, 60 50 70 10, read autohs  , tab 1
  check "удерживать на канале", 16, 10 20 90 10 , tab 100
  button "начать инвайт из указаного ник-листа",17, 10 40 110 10 , tab 100 
  edit "", 18, 10 55 110 10 ,read autohs, tab 100
  box "ник-лист",19, 5 30 120 45 , tab 100
  box "исключения",24, 5 80 120 45 , tab 100
  edit "", 25, 10 105 110 10 ,read autohs, tab 100
  button "выбрать ник-лист исключений",26, 10 90 110 10 , tab 100 
  text "скрипт написал elimS",35 20, 5 153 90 10
  link "http://elims2.blogspot.com", 36, 5 168 90 10
}

on 1:dialog:invite_options:init:0: {
  did -a invite_options 4 %invite_kanal
  did -a invite_options 5 %invite_time 
  did -a invite_options 15 %invite_users 
  did -a invite_options 18 %invite_nick_list 
  did -a invite_options 25 %invite_nick_list_iskluchenija 
  if (%invite_op == on) did -c invite_options 9
  if (%invite_hop == on) did -c invite_options 10
  if (%invite_vop == on) did -c invite_options 11
  if (%invite_user == on) did -c invite_options 12
  if (%invite_reconnect == on) did -c invite_options 13
  if (%invite_yderzhivat == on) did -c invite_options 16


}
on 1:dialog:invite_options:sclick,edit:*: {
  if ($did == 2) {
    set %invite_kanal $$input(введите канал (вместе с префиксом #) на который хотите инвайтить: , e )  
    did -r invite_options 4
    did -a invite_options 4 %invite_kanal
  }
  if ($did == 3) {
    set %invite_time $$input(введите частоту посылки invite сообщения в милисекундах (1 секунда = 1000 милисекунд), e)
    did -r invite_options 5
    did -a invite_options 5 %invite_time
  }
  if ($did == 14) {
    set %invite_users $$input(введите на каналах с каким количеством людей производить сбор ников (введите количество людей):, e)
    did -r invite_options 15
    did -a invite_options 15 %invite_users
  }
  if ($did == 6) {
    %invite_status = on
    %invite_nick_list = $mircdir $+ chanel_nick_list.txt
    %invite_flag = sbor_kanalov
    remove $mircdir $+ chanel_list.txt
    notice $me сбор каналов...
    list
  }
  if ($did == 7) {
    timer_invite off  
    %invite_status = off
  }
  if ($did == 17) {    
    %invite_nick_list = $file="Выберите файл со списком ников:" .txt
    did -r invite_options 18
    did -a invite_options 18 %invite_nick_list
    timer_invite_chan_list off
    %invite_flag = off
    %invite_lines_nick_list = $lines( %invite_nick_list )
    %invite_nick_list_i = 0
    %invite_status = on
    write -c $mircdir $+ invite_list.txt начало
    notice $me инвайт людей...
    timer_invite -m 0 %invite_time invite_al
  }
  if ($did == 26) {    
    %invite_nick_list_iskluchenija = $file="Выберите файл со списком ников:" .txt
    did -r invite_options 25
    did -a invite_options 25 %invite_nick_list_iskluchenija
  }
  if ($did == 9) $iif(%invite_op == on,%invite_op = off,%invite_op = on)
  if ($did == 10) $iif(%invite_hop == on,%invite_hop = off,%invite_hop = on)
  if ($did == 11) $iif(%invite_vop == on,%invite_vop = off,%invite_vop = on)
  if ($did == 12) $iif(%invite_user == on,%invite_user = off,%invite_user = on)
  if ($did == 13) $iif(%invite_reconnect == on,%invite_reconnect = off,%invite_reconnect = on)
  if ($did == 16) $iif(%invite_yderzhivat == on,%invite_yderzhivat = off,%invite_yderzhivat = on)
  if ($did == 36) run run http://elims2.blogspot.com/2009/02/invite-mirc-script-by-elims.html

}
;start--- сбор сбор каналов -----------
raw 322:*: {  
  if ( %invite_status == on ) && ( %invite_flag == sbor_kanalov ) {
    if ( $len($2) > 1 ) && ( $3 >= %invite_users ) { 
      write chanel_list.txt $2 $3
    }     
  } 
}
;end--- сбор каналов -----------
;start--- реконект при ошыбке -----------
raw 439:*: { 
  if ( %invite_status == on ) {
    if ( %invite_reconnect == on ) && ( Message target change too fast. isin $1- ) server
  }
}
;end---- реконект при ошибке -----------
;start--- join каналов -----------
alias al_chan_list {
  if ( %invite_status == on ) && ( %invite_flag == join_kanalov )  {
    if ( %invite_list_i_chan > $lines($mircdir $+ chanel_list.txt) ) {
      timer_invite_chan_list off
      %invite_flag = off
      %invite_lines_nick_list = $lines( %invite_nick_list )
      %invite_nick_list_i = 0
      write -c $mircdir $+ invite_list.txt начало
      notice $me инвайт людей...
      timer_invite -m 0 %invite_time invite_al
    }
    inc %invite_list_i_chan 1
    %invite_chan_list = $read($mircdir $+ chanel_list.txt,%invite_list_i_chan)
    if ( %invite_chan_list != $null) && ($gettok(%invite_chan_list,1,32) != %invite_kanal) {
      join $gettok(%invite_chan_list,1,32) 
      part $gettok(%invite_chan_list,1,32)
    }
  }
}
;end--- join каналов -----------
start--- конец листа -----------
raw 323:*: {    
  if ( %invite_status == on ) && ( %invite_flag == sbor_kanalov )  {    
    remove $mircdir $+ chanel_nick_list.txt   
    %invite_list_i_chan = 0
    %invite_flag = join_kanalov
    notice $me сбор ников по каналам...
    timer_chan_list 0 2 al_chan_list       
  }  
}
;end--- конец листа -----------
start--- сбор ников -----------
raw 353:*: {  
  if ( %invite_status == on ) && ( %invite_flag == join_kanalov ) {
    %invite_count_nicks_i = 3
    while ( %invite_count_nicks_i < $0 ) {
      inc %invite_count_nicks_i 1
      if ( $ [ $+ [ %invite_count_nicks_i ] ] != $me ) {
        write chanel_nick_list.txt $ [ $+ [ %invite_count_nicks_i ] ]
      }
    } 
  }  
}
;end--- сбор ников -----------
on *:join:%invite_kanal: {
  if ( $nick == $me ) && ( %invite_reconnect == on ) && ( %invite_status == on ) timer_invite -m 0 %invite_time invite_al 
}
on *:part:%invite_kanal: if ( %invite_yderzhivat == on ) invite $nick $chan