############################################################################################
#                                                    iRC0P ScRiPt tHE Send SMS (Mail.ru)                                                                    #
#         Сделано не рукми Mirc-LovE TeaM А Скаченно с какого то сайта! Правдо на3вание непомню!                #
############################################################################################
alias masms dialog -m masms masms

dialog masms { 
  title "SMS Send'ер через Mail.ru"
  size -1 -1 148 180
  option dbu
  button "Закрыть",111,100 167 35 11, cancel
  tab "Отправка",1, 0 -1 148 165
  text "Ваш е-майл:",11,5 20 35 12, tab 1
  edit %mamail,12,40 19 75 10, tab 1
  text "Пароль:",13,5 35 35 12, tab 1
  edit %mapass,14,40 34 75 10, tab 1, pass autohs limit 25
  text "Тел. номер",15,5 50 35 12, tab 1
  edit "+79",16,40 49 75 10, tab 1, limit 12
  text "Текст",115,5 67 20 12, tab 1
  edit "",18,40 64 75 50, tab 1, multi vsbar autovs limit 141
  text "Символов",112,5 118 35 12, tab 1
  edit "",113,40 116 30 10, tab 1, read
  button "Отправить",19, 40 129 35 12, tab 1
  text "Результат",117,5 145 35 12, tab 1
  edit "",17,40 144 75 10, tab 1,read
  tab "Информация",2
  text "Внимание. Длина сообщений лимитирована. Если текст содержит русские символы - лимит составляет 40 символов. Если сообщение написано транслитом - лимит 141 символ. Отправить можно не более 1 сообщения в минуту!",21,5 20 120 70, tab 2
  text "В поле 'Ваш е-майл' введите е-майл, зарегистрированный в системе mail.ru. В поле 'Пароль' - пароль от е-майла (учётной записи). В поле 'Тел. номер' - мобильный номер абонента, которому адресовано смс (в формате +79ххххххххх). В поле 'Текст' - само сообщение.",22,5 60 120 50, tab 2
  text "Авторы:",23,5 110 120 12,tab 2
  text "Dll для отправки смс: yXo, интерфейс: Int",24,5 118 120 12,tab 2
  text "Вопросы/предложения: ",25,5 148 60 12,tab 2
  link "http://forum.bestirc.ru",26,67 148 60 12,tab 2
}
on *:dialog:masms:init:*: {
  did -b masms 19
  if ($exists(mrim.dll) == $false) { 
    if ($input(mrim.dll не обнаружена в корневой папке мирка. Работа скрипта невозможна!,ow,Ошибочка) == $true)  dialog -x masms
    else dialog -x masms
  }
}
on 1:dialog:masms:sclick:*: {
  if ($did == 19) {
    var %i = 1
    while (%i <= $did(18).lines) {
      set %lensT %lensT [ $did(18,%i).text ]  
      inc %i
    }
    did -a masms 17 $dll(mrim.dll, sendsms, $did(12).text $+ : $+ $did(14).text $+ : $+ $did(16).text $+ : $+ %lensT $+ )
    set %lastmasms %lensT
    unset %lensT
  }
}
on *:dialog:masms:edit:*: {
  if ($did == 18) {
    did -r masms 113 
    var %i = 1 
    while (%i <= $did(18).lines) {
      set %lens $calc(%lens + [ $did(18,%i).len ] ) 
      if (%i == $did(18).lines) {
        set %lensP %lens
      unset %lens }
      inc %i
    }
    did -a masms 113 %lensP
    if (($did(16,1).len == 12) && ($did(14,1).len > 1) && (@ isin $did(12).text) && ($did(18,1).len >= 1)) { 
      did -e masms 19 
    }
    else  did -b masms 19
  }
  if ($did == 12) {
    if (($did(16,1).len == 12) && ($did(14,1).len > 1) && (@ isin $did(12).text) && ($did(18,1).len >= 1)) { 
      did -e masms 19 
    }
    else  did -b masms 19
  }
  if ($did == 14) {
    if (($did(16,1).len == 12) && ($did(14,1).len > 1) && (@ isin $did(12).text) && ($did(18,1).len >= 1)) { 
      did -e masms 19 
    }
    else  did -b masms 19
  }
  if ($did == 16) {
    if (($did(16,1).len == 12) && ($did(14,1).len > 1) && (@ isin $did(12).text) && ($did(18,1).len >= 1)) { 
      did -e masms 19 
    }
    else  did -b masms 19
  }
}
