;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;;;;;;;;;;;;;;; >>>>>>>> Narkoman's Script ver.: 4.5   All Rights Reserved. Copyright Narkoman's™ 2006 - 2009 <<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> создатель - _TRANE_ <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>> Об ошибках пишите на: narkoo-master@mail.ru или narkoo-master@maxalina.net <<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>> Официальный сайт скрипта: http://www.ns-script.net.ru/  <<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; SMS браузер ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias sms_dialog {
  sms_load_script sms_other | sms_load_script sms_http
  if (!$dialog(sms_dialog)) dialog -m sms_dialog sms_dialog
}
alias sms_add_user {
  sms_load_script sms_other | sms_load_script sms_user
  if (!$dialog(sms_add_user)) dialog -ma sms_add_user sms_add_user
}
alias sms_adds {
  sms_load_script sms_other | sms_load_script sms_http | sms_load_script sms_add
  if (!$dialog(sms_adds)) dialog -m sms_adds sms_adds
}
alias sms_log {
  sms_load_script sms_other | sms_load_script sms_logs
  if (!$dialog(sms_log)) dialog -mo sms_log sms_log
}
alias sms_extra {
  sms_load_script sms_other
  if (!$dialog(sms_extra)) dialog -mo sms_extra sms_extra
}
alias sms_upgrade {
  sms_load_script sms_other | sms_load_script sms_http | sms_load_script sms_upgrade
  if (!$dialog(sms_upgrade)) dialog -mo sms_upgrade sms_upgrade
}
alias sms_prefer {
  sms_load_script sms_other | sms_load_script sms_prefer
  if (!$dialog(sms_prefer)) dialog -mo sms_prefer sms_prefer 
}
alias did { 
  if ($dialog($2) == $null) return
did $1- }
alias sockopen { 
  if ($sock($1) != $null) sockclose $1
sockopen $1- }
;***************************************************
dialog sms_dialog {
  title "Отправка SMS"
  size -1 -1 220 229
  option dbu
  button "Редактировать", 1, 133 154 44 10
  button "Удалить", 2, 181 154 28 10
  button "Добавить", 3, 133 143 44 10
  button "Логи", 50, 181 143 28 10
  button "Отправить", 4, 130 173 83 31, default ok
  button "Код", 34, 6 148 40 12
  link "На сайт", 5, 184 218 33 8
  link "", 6, 12 61 100 8
  list 7, 135 11 73 83, size vsbar
  combo 8, 51 40 25 50, sort size vsbar drop
  combo 22, 12 40 34 50, sort size vsbar drop
  combo 39, 12 18 50 50, size vsbar drop
  combo 48, 68 18 48 50, size vsbar drop
  edit "", 9, 79 40 33 10, limit 7
  edit "", 36, 50 149 47 10
  edit "", 10, 5 79 116 25, multi return autovs vsbar
  edit "", 12, 5 108 116 36, read multi return autohs autovs hsbar vsbar
  box "", 13, 1 214 218 14
  box "Адресная книга", 14, 130 0 84 170
  box "Номер телефона", 15, 5 1 116 67
  icon 35, 5 163 111 40
  text "Имя", 18, 134 97 25 8
  text "Телефон", 17, 134 106 25 8
  text "Регион", 16, 134 124 25 8
  text "", 100, 164 97 47 8
  text "", 101, 164 106 47 8
  text "", 102, 164 124 47 8
  text "Осталось символов:", 24, 35 70 51 8
  text "", 11, 87 70 33 8
  text "Код", 19, 52 31 10 8
  text "Номер", 20, 83 31 16 8
  text "Оператор", 21, 12 31 25 8
  text "Сообщение будет отправление с сайта:", 23, 9 53 103 8
  text "Готов", 25, 3 218 177 8
  text "Скачано:", 30, 2 207 25 8
  text "страница", 31, 29 207 25 8
  text "картинка", 32, 120 207 25 8
  text "", 37, 55 207 63 8
  text "", 38, 148 207 70 8
  text "Страна", 46, 12 9 19 8
  text "Регион", 47, 68 10 18 8
  text "Страна", 49, 134 115 25 8
  text "", 51, 164 115 47 8
  text "Оператор", 52, 134 133 25 8
  text "", 53, 164 133 47 8
  menu "Сообщение", 26
  item "Отправить", 27, 26
  item break, 150, 26
  item "Выйти", 28, 26, cancel
  menu "Настройки", 40
  item "$style(2) При выходе", 140, 40
  item "[_] Запоминать номер", 41, 40
  item "[_] Запоминать сообщение", 42, 40
  item break, 151, 40
  item "$style(2) Подпись", 141, 40
  item "Изменить", 45, 40
  item "[_] Включить", 43, 40
  item "[_] Переносить на следующую строку", 44, 40
  item break, 153, 40
  item "[_] Включить логи для всех абонентов", 70, 40

  menu "Оператор", 54
  item "$style(2) Добавил", 55, 54
  item "Ник", 56, 54
  item "На сайт", 61, 54
  item "Отправить письмо", 62, 54
  item "ICQ:", 63, 54
  item "Подключиться к сети", 64, 54
  item break, 57, 54
  item "Добавить оператора", 58, 54
  item "Загрузить новых", 59, 54
  menu "Веб", 29
  item "http://www.ns-script.net.ru/ ", 33, 29
  item "Форум", 60, 29
}
;***************************************************
alias sms_load_script { if (!$script($1 $+ .mrc)) .load -rs " $+ $nofile($script) $+ $1  $+ .mrc $+ " }
;---------------------------------------------------
;1-Блок отправить и едит с кодом.2-едит с кодом и кнопки
alias sms_enable_bl { if ($1 == 1) { did -b sms_dialog 4,36 | did -e sms_dialog 34 } | elseif ($1 == 2) { did -b sms_dialog 34,36 | did -e sms_dialog 4 } |  elseif ($1 == 3) { did -b sms_dialog 34,36,4 } | { else did -e sms_dialog 4,36,34 } }
;===================================================
;***************************************************
alias sms_limit {
  %sms.editline = 1
  %sms.len = 0
  while (%sms.editline < $did(sms_dialog,12,1).lines) {
    %sms.len = %sms.len + $did(sms_dialog,12,%sms.editline).len
    %sms.editline = %sms.editline + 1
  }
did -o sms_dialog 11 1 $calc(%sms.limit + 1 - %sms.len - $did(sms_dialog,10,1).lines) }
;***************************************************
alias sms_trans_edit {
  did -r sms_dialog 12
  %sms.editline = 1
  %sms.len = 0
  while (%sms.editline < $did(sms_dialog,10,1).lines) {
    did -o sms_dialog 12 %sms.editline $sms_translate($did(sms_dialog,10,%sms.editline))
    %sms.editline = %sms.editline + 1
  }
  if ($mid(%config.sms,3,1) == 1 && $len(%pod.sms) != 0) { 
    if (%sms.editline != 1 && %sms.editline == $did(sms_dialog,10,1).lines && $did(sms_dialog,10,%sms.editline) == $null) { %sms.editline = %sms.editline - 1 }
    if ($mid(%config.sms,4,1) == 1) { 
      did -o sms_dialog 12 %sms.editline $sms_translate($did(sms_dialog,10,%sms.editline))
      did -o sms_dialog 12 $calc(%sms.editline + 1) %pod.sms
    }
    else did -o sms_dialog 12 %sms.editline $sms_translate($did(sms_dialog,10,%sms.editline)) %pod.sms
  }
  else did -o sms_dialog 12 %sms.editline $sms_translate($did(sms_dialog,10,%sms.editline))
  sms_limit
}
;===================================================
;***************************************************
alias sms_config {
  ;---
  if ($mid(%config.sms,2,1) == 1)  %sms.menu = $replace($did(42).text,[_],[X]) 
  else  %sms.menu = $replace($did(42).text,[X],[_]) 
  did -d sms_dialog 42 1 | did -i sms_dialog 41 42 %sms.menu 
  if ($left(%config.sms,1) == 1) { %sms.menu = $replace($did(41).text,[_],[X]) }
  else { %sms.menu = $replace($did(41).text,[X],[_]) }
  did -d sms_dialog 41 1 | did -i sms_dialog 42 41 %sms.menu 
  ;---
  if ($mid(%config.sms,4,1) == 1)  %sms.menu = $replace($did(44).text,[_],[X]) 
  else  %sms.menu = $replace($did(44).text,[X],[_]) 
  did -d sms_dialog 44 1 | did -i sms_dialog 43 44 %sms.menu 
  if ($mid(%config.sms,3,1) == 1) { %sms.menu = $replace($did(43).text,[_],[X]) }
  else { %sms.menu = $replace($did(43).text,[X],[_]) }
  did -d sms_dialog 43 1 | did -i sms_dialog 44 43 %sms.menu 
  if ($mid(%config.sms,5,1) == 1)  %sms.menu = $replace($did(70).text,[_],[X]) 
  else %sms.menu = $replace($did(70).text,[X],[_]) 
  did -d sms_dialog 70 1 | did -a sms_dialog 40 70 %sms.menu 
  sms_limit
}
;***************************************************
alias sms_conf_begin {
  if ($mid(%config.sms,1,1) == 1) {
    %sms.string = %sms.last.num
    if ($sms_razb_str(country) != $did(sms_dialog,39)) { sms_ch_line sms_dialog 39 $sms_razb_str(country) | sms_add_region sms_dialog 39 48 22 8 }
    if ($sms_razb_str(region) != $did(sms_dialog,48)) { sms_ch_line sms_dialog 48 $sms_razb_str(region) | sms_add_op sms_dialog  39 48 22 8 }
    if ($sms_razb_str(op) != $did(sms_dialog,22)) { sms_ch_line sms_dialog 22 $sms_razb_str(op) | sms_add_pref sms_dialog 39 48 22 8 }
    if ($sms_razb_str(pref) != $did(sms_dialog,8)) sms_ch_line sms_dialog 8 $sms_razb_str(pref)
    did -o sms_dialog 9 1 $sms_razb_str(num)

  }
  if ($mid(%config.sms,2,1) == 1) did -o sms_dialog 10 1 $replace(%sms.last.mess,$chr(1),$crlf) 
sms_trans_edit 1 }
;===================================================
alias -l sms_book_import {
  %sms.lines.file = $lines($nofile($script) $+ sms_user.txt) |  %sms.lines.cur = 1
  while (%sms.lines.cur < $calc(%sms.lines.file + 1)) {
    %sms.string = $read($nofile($script) $+ sms_user.txt,%sms.lines.cur)
    %sms.string = $instok(%sms.string,Россия,1,39) | %sms.string = $instok(%sms.string,Москва,2,39)
    write -l $+ %sms.lines.cur " $+ $nofile($script) $+ sms_user.txt $+ " %sms.string
  %sms.lines.cur = %sms.lines.cur + 1 }
}
;***************************************************
alias sms_user_list {
  if ($lines($nofile($script) $+ sms_user.txt) > 0) {
    %sms.string = $read($nofile($script) $+ sms_user.txt,1)
    if ($sms_razb_str(name) == $null) sms_book_import
  }
  did -r sms_dialog 7
  %sms.lines.file = $lines($nofile($script) $+ sms_user.txt) |  %sms.lines.cur = 1
  while (%sms.lines.cur < $calc(%sms.lines.file + 1)) {
    %sms.string = $read($nofile($script) $+ sms_user.txt,%sms.lines.cur)
    did -i sms_dialog 7 %sms.lines.cur $sms_razb_str(name)
  %sms.lines.cur = %sms.lines.cur + 1 }
did -c sms_dialog 7 1 }
;***************************************************
alias sms_razb_str {
  if ($1 == country) return $gettok(%sms.string,1,39)
  if ($1 == region) return $gettok(%sms.string,2,39)
  if ($1 == op) return $gettok(%sms.string,3,39)
  if ($1 == pref) return $gettok(%sms.string,4,39)
  if ($1 == num) return $gettok(%sms.string,5,39)
  if ($1 == log) return $gettok(%sms.string,6,39)
  if ($1 == name) return $gettok(%sms.string,7,39)
}
;***************************************************
alias sms_set_info {
  %sms.string = $read($nofile($script) $+ sms_user.txt,$did(sms_dialog,7).sel)
  did -o sms_dialog 100 1 $sms_razb_str(name) | did -o sms_dialog 101 1 7 $+ $sms_razb_str(pref) $+ - $+ $sms_razb_str(num) 
  did -o sms_dialog 53 1 $sms_razb_str(op) | did -o sms_dialog 51 1 $sms_razb_str(country) | did -o sms_dialog 102 1 $sms_razb_str(region)
}
;***************************************************
alias sms_set_info_all {
  sms_set_info
  ;39 - страна, 48 - регион, 22 - оператор, 8 - префикс
  if ($sms_razb_str(country) != $did(sms_dialog,39)) { sms_ch_line sms_dialog 39 $sms_razb_str(country) | sms_add_region sms_dialog 39 48 22 8 }
  if ($sms_razb_str(region) != $did(sms_dialog,48)) { sms_ch_line sms_dialog 48 $sms_razb_str(region) | sms_add_op sms_dialog  39 48 22 8 }
  if ($sms_razb_str(op) != $did(sms_dialog,22)) { sms_ch_line sms_dialog 22 $sms_razb_str(op) | sms_add_pref sms_dialog 39 48 22 8 }
  if ($sms_razb_str(pref) != $did(sms_dialog,8)) sms_ch_line sms_dialog 8 $sms_razb_str(pref)
  did -o sms_dialog 9 1 $sms_razb_str(num)
}
;===================================================
;***************************************************
alias sms_log_add { 
  %sms.string = $read($nofile($script) $+ sms_user.txt, w, * $+ $did(sms_dialog,9) $+ *)
  if (%sms.string == $null) {
    if ($mid(%config.sms,5,1) == 1) writeini -n " $+ $nofile($script) $+ sms_logs.ini $+ " $did(sms_dialog,8) $+ - $+ $did(sms_dialog,9) $date $+ ' $+ $time $sms_odnostr_mess(10) 
  }
  if (($sms_razb_str(country) != $did(sms_dialog,39)) || ($sms_razb_str(region) != $did(sms_dialog,48)) || ($sms_razb_str(op) != $did(sms_dialog,22)) || ($sms_razb_str(pref) != $did(sms_dialog,8))) {
    if ($mid(%config.sms,5,1) == 1) writeini -n " $+ $nofile($script) $+ sms_logs.ini $+ " $did(sms_dialog,8) $+ - $+ $did(sms_dialog,9) $date $+ ' $+ $time $sms_odnostr_mess(10) 
  }
  elseif (($sms_razb_str(country) == $did(sms_dialog,39)) && ($sms_razb_str(region) == $did(sms_dialog,48)) && ($sms_razb_str(op) == $did(sms_dialog,22)) && ($sms_razb_str(pref) == $did(sms_dialog,8)) && ($sms_razb_str(log) == 1)) {
    writeini -n " $+ $nofile($script) $+ sms_logs.ini $+ " $sms_razb_str(name) $date $+ ' $+ $time $sms_odnostr_mess(10)
  }
}

;===================================================
;***************************************************
on 1:dialog:sms_dialog:init:*:{
  if (%config.sms = $null) %config.sms = 00
  %sms.num_pref = 1
  if (%pod.sms != $null) { did -d sms_dialog 45 1 | did -i sms_dialog 43 45 %pod.sms }
  ;39 - страна, 48 - регион, 22 - оператор, 8 - префикс
  sms_add_country $dname 39 48 22 8 
  sms_config | sms_user_list 
  sms_conf_begin | sms_set_info
}
;***************************************************
on 1:dialog:sms_dialog:sclick:*:{
  %sms_dialog = sms_dialog | %sms_text_read = 37 | %sms_pic_read = 38 | %sms_icon = 35
  if ($did == 1) { sms_load_script sms_user | sms_user_edit }
  if ($did == 2) { write -dl $+ $did(7).sel " $+ $nofile($script) $+ sms_user.txt $+ " | sms_user_list }
  if ($did == 3) sms_add_user
  if ($did == 50) sms_log
  if ($did == 5) run http://www.ns-script.net.ru/ 
  if ($did == 6) { if ($did(6) == $null) return | else { if (%sms.form != $null) run %sms.form | else run %sms.script } }
  if ($did == 7) { if ($did(7).seltext == $null) return | sms_set_info }
  if ($did == 39) { sms_read_bytes clear | sms_add_region $dname 39 48 22 8 }
  if ($did == 48) { sms_read_bytes clear | sms_add_op $dname 39 48 22 8 }
  if ($did == 22) { sms_add_pref $dname 39 48 22 8 }
  if ($did == 34) { 
    sms_enable_bl 1
    sms_http_razd %sms.form
    if ($sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),ppict) == 1) { %sms_http.key0 = $sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),pic) | %sms.pics.type = $sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),type) }
    %sms.pics.locgl = $sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),ppicp) 
    %sms.key.nums = 1
    while (%sms.key.nums != 6) {
      %sms_http.key [ $+ [ %sms.key.nums ] ] = $sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),key $+ %sms.key.nums)
    %sms.key.nums = %sms.key.nums + 1 }
    sms_setpic path
    sockopen sms_page %sms_http.host 80
  }
  if ($did == 4) {
    if ($did(9) == $null) { sms_extra.at Введите номер! | halt | return }
    sms_log_add | %sms.status = 
    %sms.message.pref = $did(8).text
    %sms.message.prefkey = $gettok($wildtok( $sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),pref),%sms.message.pref $+ *,1,44),2,124)
    %sms.message.mess = $replace($did(12,1),$chr(37),$chr(37) $+ 25)
    %sms.editline = 2
    while (%sms.editline < $did(12,1).lines) {
      %sms.message.mess = %sms.message.mess $+ $chr(37) $+ 0D $+ $chr(37) $+ 0A $+ $replace($did(12,%sms.editline),$chr(37),$chr(37) $+ 25)
      %sms.editline = %sms.editline + 1
    }
    %sms.message.mess = $replace(%sms.message.mess,+,$chr(37) $+ 2B,$chr(32),+,!,$chr(37) $+ 21,@,$chr(37) $+ 40,#,%23,$,$chr(37) $+ 24,^,$chr(37) $+ 5E,&,$chr(37) $+ 26,$chr(40),$chr(37) $+ 28,$chr(41),$chr(37) $+ 29,~,$chr(37) $+ 7E,",$chr(37) $+ 22,№,$chr(37) $+ B9,;,$chr(37) $+ 3B,:,$chr(37) $+ 3A,?,$chr(37) $+ 3F,=,$chr(37) $+ 3D,`,$chr(37) $+ 60,',$chr(37) $+ 27,/,$chr(37) $+ 2F,\,$chr(37) $+ 5C,<,$chr(37) $+ 3C,>,$chr(37) $+ 3E,$chr(44),$chr(37) $+ 2C,[,$chr(37) $+ 5B,],$chr(37) $+ 5D,$chr(123),$chr(37) $+ 7B,$chr(125),$chr(37) $+ 7D,$chr(124),$chr(37) $+ 7C)
    %sms.message.num = $did(9).text
    %sms.message.code = $did(36).text
    %sms.key.nums = 1
    sms_http_razd %sms.script
    sms_setpic wait | %sms.yes = $sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),yes) | %sms.status = false
    %sms.data = $replace($replace($sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),sms),ключ1,%sms.key1,ключ2,%sms.key2,ключ3,%sms.key3,ключ4,%sms.key4,ключ5,%sms.key5,код,%sms.message.code,текст,%sms.message.mess,преф,%sms.message.pref,номер,%sms.message.num,ключпр,%sms.message.prefkey,год,$date(yy),месяц,$date(mm),день,$date(dd),час,$date(HH),минута,$date(nn)),$chr(1),&)
    if ($sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),get) == 1) sockopen sms_send_get %sms_http.host 80
    else sockopen sms_send_post %sms_http.host 80
    if ($sms_read_op($did(39) $+ . $+ $did(48) $+ . $+ $did(22),ppict) == 1) sms_enable_bl 1
    else sms_enable_bl 3
    halt
} }
;***************************************************
on 1:dialog:sms_dialog:dclick:*:{
  if ($did == 7) {
    if ($did(7).seltext == $null) return
    sms_set_info_all
  }
  if ($did == 5) run http://www.camc.ru
  if ($did == 6) {
    if ($did(6) == $null) return
    else { if (%sms.form != $null) run %sms.form | else run %sms.script }
  }
}
;***************************************************
on *:dialog:sms_dialog:menu:*:{
  if ($did == 33) run http://www.ns-script.net.ru/ 
  if ($did == 60) run http://forum.camc.ru
  if ($did == 58) sms_adds
  if ($did == 59) sms_upgrade
  if ($did == 61) run $gettok(%sms.whosadd,2,1)
  if ($did == 62) run mailto: $+ $gettok(%sms.whosadd,3,1)
  if ($did == 63) clipboard $gettok(%sms.whosadd,4,1)
  if ($did == 64) server -mpfoc $gettok(%sms.whosadd,5,1) -j # $+ $gettok(%sms.whosadd,6,1)
  if ($did == 41) { %config.sms = $abs($calc($left(%config.sms,1) - 1)) $+ $right(%config.sms,$calc($len(%config.sms)-1)) | sms_config }
  if ($did == 42) { %config.sms = $left(%config.sms,1) $+ $abs($calc($mid(%config.sms,2,1) - 1)) $+ $right(%config.sms,$calc($len(%config.sms)-2)) | sms_config | sms_trans_edit }
  if ($did == 43) { %config.sms = $left(%config.sms,2) $+ $abs($calc($mid(%config.sms,3,1) - 1)) $+ $right(%config.sms,$calc($len(%config.sms)-3)) | sms_config | sms_trans_edit }
  if ($did == 44) { %config.sms = $left(%config.sms,3) $+ $abs($calc($mid(%config.sms,4,1) - 1)) $+ $right(%config.sms,$calc($len(%config.sms)-4)) | sms_config | sms_trans_edit }
  if ($did == 70) { %config.sms = $left(%config.sms,4) $+ $abs($calc($mid(%config.sms,5,1) - 1)) $+ $right(%config.sms,$calc($len(%config.sms)-5)) | sms_config | sms_trans_edit }
  if ($did == 45) { %pod.sms = $$?="Введите новую подпись:" | %pod.sms = $sms_translate(%pod.sms) | did -d sms_dialog 45 1 | did -i sms_dialog 43 45 %pod.sms | sms_trans_edit }
}
;***************************************************
on *:dialog:sms_dialog:edit:*: {
  if ($did == 10) { 
    sms_trans_edit
} }
;***************************************************
on 1:dialog:sms_dialog:mouse:*:{
  if ($did == 1) did -o sms_dialog 25 1 Редактировать выделенную запись в адресной книге
  elseif ($did == 2) did -o sms_dialog 25 1 Удалить выделенную запись в адресной книге
  elseif ($did == 3) did -o sms_dialog 25 1 Добавить запись в адресную книгу
  elseif ($did == 4) did -o sms_dialog 25 1 Отправить сообщение
  elseif ($did == 5) did -o sms_dialog 25 1 Зайти на http://www.ns-script.net.ru/ 
  elseif ($did == 6) { if ($did(6) == $null) return
  did -o sms_dialog 25 1 Зайти на страницу отправления смс }
  elseif ($did == 7) did -o sms_dialog 25 1 Кликните 1 раз для просмотра, 2 раза для вставки
  ;39 - страна, 48 - регион, 22 - оператор, 8 - префикс
  elseif ($did == 39) did -o sms_dialog 25 1 Страна получателя сообщения
  elseif ($did == 48) did -o sms_dialog 25 1 Регион получателя сообщения
  elseif ($did == 22) did -o sms_dialog 25 1 Оператор получателя сообщения
  elseif ($did == 8) did -o sms_dialog 25 1 Префикс номера
  elseif ($did == 15) did -o sms_dialog 25 1 Номер телефона, на который хотите отправить сообщение
  elseif ($did == 10) did -o sms_dialog 25 1 Сообщение, которое хотите отправить
  elseif ($did == 12) did -o sms_dialog 25 1 Транслитированное сообщение (это сообщение будет отправлено)
  elseif ($did == 14) did -o sms_dialog 25 1 Адресная книга
  elseif ($did == 34) did -o sms_dialog 25 1 Получить картинку с кодом
  elseif ($did == 36) did -o sms_dialog 25 1 Код на картинке
  elseif ($did == 50) did -o sms_dialog 25 1 Посмотреть логи
  elseif ($did != 9) did -o sms_dialog 25 1 Готов
}
;***************************************************
on 1:dialog:sms_dialog:close:*:{
  unset %sms*
  if ($mid(%config.sms,1,1) == 1) %sms.last.num = $did(39).text $+ ' $+ $did(48).text $+ ' $+ $did(22).text $+ ' $+ $did(8).text $+ ' $+ $did(9).text
  if ($mid(%config.sms,2,1) == 1) {
    %sms_dialog = sms_dialog
    %sms.last.mess = $sms_odnostr_mess(10)
    unset %sms_dialog | unset %sms.odnostr 
  } 
  if (($dialog(sms_adds) == $null) && ($dialog(sms_upgrade) == $null)) .unload -rs sms_http.mrc
  if (($dialog(sms_adds) == $null) && ($dialog(sms_upgrade) == $null) && ($dialog(sms_add_user) == $null) && ($dialog(sms_log) == $null) && ($dialog(sms_extra) == $null) && ($dialog(sms_prefer) == $null)) .unload -rs sms_other.mrc
}
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;;;;;;;;;;;;;;; >>>>>>>> Narkoman's Script ver.: 4.5   All Rights Reserved. Copyright Narkoman's™ 2006 - 2009 <<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> создатель - _TRANE_ <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>> Об ошибках пишите на: narkoo-master@mail.ru или narkoo-master@maxalina.net <<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>> Официальный сайт скрипта: http://www.ns-script.net.ru/  <<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
