;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;;;;;;;;;;;;;;; >>>>>>>> Narkoman's Script by [StingeR] ver: 3.5   All Rights Reserved. Copyright Narkoman's™ 2008 <<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> создатель - [StingeR] <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>> Об ошибках пишите на: StingeRuleZ@mail.ru  <<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>> Официальный сайт скрипта: http://chan456.ucoz.ru <<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
on *:connect: { join %pizda | /play -mfds titlebar.txt 60 }
on *:join:#: {
  if ($nick == $me) {
    if (%joinsoundx == on) /dll sys\Dlls\game_tools.dll splay Sounds\join.wav 
    if (%autotext.hello == on) .timer 1 3 /msg $chan $read(sys\txt\hello.txt) 
  }
}
on *:part:#: { if ($nick = $me) && (%autotext.onpart == on) { /msg $chan $read(sys\txt\bye.txt) } }
on *:voice:#:if ($vnick = $me) && (%autotext.onvoice == on) && ($nick != chanserv) && ($nick != $me) { .timer 1 1 /msg $chan $read(sys\txt\onvoice.txt) }
on *:op:#:if ($opnick = $me) && (%autotext.onop == on)  && ($nick != chanserv) && ($nick != $me) { .timer 1 1 /msg $chan $read(sys\txt\onop.txt) }
on *:devoice:#:if ($vnick = $me) && (%autotext.ondevoice == on) && ($nick != chanserv) && ($nick != $me) { .timer 1 1 /msg $chan $read(sys\txt\ondevoice.txt) }
on *:input:#:{
  if $1 == +v { /cs voice # }
  if $1 == -v { /cs devoice # }
  if $1 == +o { /cs op # }
  if $1 == -o { /mode # -o $me }
  if $1 == +h { /cs halfop # }
  if $1 == -h { /mode # -h $me }
  if $1 == +в { /cs voice # }
  if $1 == -в { /cs devoice # }
  if $1 == +о { /cs op # }
  if $1 == -о { /mode # -o $me }
  if $1 == +х { /cs halfop # }
  if $1 == -х { /mode # -h $me }
  if $1 == !яйца { /cs halfop # }
  if $1 == !деяйца { /mode # -h $me }
  if $1 == !собаку { /cs op # }
  if $1 == !собачатину { /cs op # }
  if $1 == !op { /cs op # }
  if $1 == !оп { /cs op # }
  if $1 == !хоп { /cs halfop # }
  if $1 == !дехоп { /mode # -h $me }
  if $1 == !десобаку { /mode # -o $me }
  if $1 == !деоп { /mode # -o $me }
  if $1 == !deop { /mode # -o $me } 
  if $1 == !плюсик { /cs voice # }
  if $1 == !войс { /cs voice # }
  if $1 == !деплюсик { /cs devoice # }
  if $1 == !девойс { /cs devoice # }
  if $1 == !зачистка { 
    /cs clear $chan excepts
    /cs clear $chan invites
  }
}
;###################################################################################################################
;#########################################  SEARCHFIND  ############################################################
;###################################################################################################################
alias searchfind if (!$dialog(searchfind)) dialog -m searchfind searchfind | else { dialog -x searchfind | dialog -m searchfind searchfind }
dialog searchfind {
  title "Поисковая машина"
  size -1 -1 302 275
  icon icons\refresh.ico
  box "Что вы хотите найти:", 123, 5 5 290 46
  edit %searchfind.string, 1, 15 22 270 20 
  box "На каком узле искать информацию:", 124, 5 55 290 185
  radio "www.yahoo.com", 10, 20 73 270 20 
  radio "www.rambler.ru", 20, 20 93 270 20 
  radio "www.search.com", 30, 20 113 270 20 
  radio "www.download.com", 40, 20 133 270 20 
  radio "www.softsearch.com", 50, 20 153 270 20 
  radio "www.google.com", 60, 20 173 270 20 
  radio "www.google.ru", 70, 20 193 270 20 
  radio "www.yandex.ru", 80, 20 213 270 20 
  button "Искать", 100, 5 245 290 26
}
on *:dialog:searchfind:init:*: {
  if %searchfind.web == yahoo { did -c searchfind 10 }
  if %searchfind.web == rambler { did -c searchfind 20 }
  if %searchfind.web == searchcom { did -c searchfind 30 }
  if %searchfind.web == downloadcom { did -c searchfind 40 }
  if %searchfind.web == softsearch { did -c searchfind 50 }
  if %searchfind.web == googlecom { did -c searchfind 60 }
  if %searchfind.web == googleru { did -c searchfind 70 }
  if %searchfind.web == yandex { did -c searchfind 80 }
}
on *:dialog:searchfind:sclick:100: {
  if $did(10).state == 1 { /set %searchfind.web yahoo }
  if $did(20).state == 1 { /set %searchfind.web rambler }
  if $did(30).state == 1 { /set %searchfind.web searchcom }
  if $did(40).state == 1 { /set %searchfind.web downloadcom }
  if $did(50).state == 1 { /set %searchfind.web softsearch }
  if $did(60).state == 1 { /set %searchfind.web googlecom }
  if $did(70).state == 1 { /set %searchfind.web googleru }
  if $did(80).state == 1 { /set %searchfind.web yandex }
  /set %searchfind.string $did(1).text
  var %searchfind.temp $replace(%searchfind.string,$chr(32),+)
  if %searchfind.web == yahoo { /url -an http://search.yahoo.com/search?p= $+ %searchfind.temp $+ &ei=UTF-8&fr=FP-tab-web-t&cop=mss&tab= }
  if %searchfind.web == rambler { /url -an http://search.rambler.ru/srch?words= $+ %searchfind.temp $+ &where=1 }
  if %searchfind.web == searchcom { /url -an http://www.search.com/search?q= $+ %searchfind.temp }
  if %searchfind.web == downloadcom { /url -an http://www.download.com/3120-20-0.html?qt= $+ %searchfind.temp $+ &tg=dl-2001 }
  if %searchfind.web == softsearch { /url -an http://www.softsearch.ru/pcgi/search.cgi?text= $+ %searchfind.temp $+ &w=2 }
  if %searchfind.web == googlecom { /url -an http://www.google.com/search?hl=en&ie=UTF-8&q= $+ %searchfind.temp $+ &meta=  }
  if %searchfind.web == googleru { /url -an http://www.google.ru/search?hl=ru&ie=UTF-8&q= $+ %searchfind.temp $+ &btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr= }
  if %searchfind.web == yandex { /url -an http://www.yandex.ru//yandsearch?stype=www&nl=0&text= $+ %searchfind.temp }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Системная информация ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias sysinfo {
  say My System Configyration: [+] Операционная Система: $dll(sys\Dlls\Sysinfo.dll,osinfo,_) [+] Время работы: $dll(sys\Dlls\Sysinfo.dll,uptime,_) [+] Процессор: $dll(sys\Dlls\Sysinfo.dll,cpuinfo,_) [+] Память: $dll(sys\Dlls\Sysinfo.dll,meminfo,_) $+ $result [+] Разрешение: $dll(sys\Dlls\Sysinfo.dll,screeninfo,_)
}
alias nvremia { .load -as sys\Dlls\nightman_time.sys | vremia | .timer 1 1 .unload -as sys\Dlls\nightman_time.sys  }
alias day {
  if ($day == Monday) set %day Понедельник
  if ($day == Tuesday) set %day Вторник
  if ($day == Wednesday) set %day Среда
  if ($day == Thursday) set %day Четверг
  if ($day == Friday) set %day Пятница
  if ($day == Saturday) set %day Суббота
  if ($day == Sunday) set %day Воскресенье
}
alias ballon {
  var %title $gettok($1-,1,9)
  var %text $gettok($1-,2-,9)
  dll sys\Dlls\arise.dll ShowPopup Comic Sans MS·8·2·0,0,0·Comic Sans MS·8·1·0,0,0·174,219,255·4000 $+ · $+ $replace(%title,·,.) $+ · $+ $strip($replace(%text,·,.),burc)
}
alias startupactions {
  echo -s %skinpref  $+ $color(normal) 0((
  echo -s %skinpref  $+ $color(normal) 0Вы используете 3.8.4.3Nar8kom4an's 12Modern 3.5 11Script 3By 8[Stin4geR] на базе mIRC $version 
  echo -s %skinpref  $+ $color(normal) 0Авторы скрипта - [StingeR]
  echo -s %skinpref  $+ $color(normal) 0Kанал скрипта - #456
  echo -s %skinpref  $+ $color(normal) 0Сайт скрипта - http://www.first-net.narod.ru/narkoo.mht
  echo -s %skinpref  $+ $color(normal) 0E-mail скрипта - stingerulez@mail.ru
  echo -s %skinpref  $+ $color(normal) 0Адаптирован для 8[7DalNet0(3RU0)8]
  echo -s %skinpref  $+ $color(normal) 0Сегодня $date $+ , $time 
  echo -s %skinpref  $+ $color(normal) 0Дата последнего обновления - 29.06.2008
  echo -s %skinpref  $+ $color(normal) 0F1 - вызов помощи 
  echo -s %skinpref  $+ $color(normal) 0Ctrl+F1 - вызов списка настроеных F - клавиш 
  echo -s %skinpref  $+ $color(normal) 0Количество запусков - %ScripTRunNum 
  if ($me) echo -s %skinpref  $+ $color(normal) 0Ваш ник - $me 
  echo -s %skinpref  $+ $color(normal) 0((
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; F-клавиши ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias fkeysfx {
  if $dialog(fkeysfx) = $null { dialog -m fkeysfx fkeysfx }
  else halt
}
dialog fkeysfx {
  icon $mircdiricons/f-keys.ico, 0
  title "F-клавиши"
  size -1 -1 663 340

  text "F1", 921, 5 8 25 20, right
  text "F2", 922, 5 28 25 20, right
  text "F3", 923, 5 48 25 20, right
  text "F4", 924, 5 68 25 20, right
  text "F5", 925, 5 88 25 20, right
  text "F6", 926, 5 108 25 20, right
  text "F7", 927, 5 128 25 20, right
  text "F8", 928, 5 148 25 20, right
  text "F9", 929, 5 168 25 20, right
  text "F10", 931, 5 188 25 20, right
  text "F11", 932, 5 208 25 20, right
  text "F12", 933, 5 228 25 20, right

  edit %button.f1, 1, 35 5 160 20, autohs
  edit %button.f2, 2, 35 25 160 20, autohs
  edit %button.f3, 3, 35 45 160 20, autohs
  edit %button.f4, 4, 35 65 160 20, autohs
  edit %button.f5, 5, 35 85 160 20, autohs
  edit %button.f6, 6, 35 105 160 20, autohs
  edit %button.f7, 7, 35 125 160 20, autohs
  edit %button.f8, 8, 35 145 160 20, autohs
  edit %button.f9, 9, 35 165 160 20, autohs
  edit %button.f10, 10, 35 185 160 20, autohs
  edit %button.f11, 11, 35 205 160 20, autohs
  edit %button.f12, 12, 35 225 160 20, autohs

  text "Shift + F1", 421, 205 8 55 20, right
  text "Shift + F2", 422, 205 28 55 20, right
  text "Shift + F3", 423, 205 48 55 20, right
  text "Shift + F4", 424, 205 68 55 20, right
  text "Shift + F5", 425, 205 88 55 20, right
  text "Shift + F6", 426, 205 108 55 20, right
  text "Shift + F7", 427, 205 128 55 20, right
  text "Shift + F8", 428, 205 148 55 20, right
  text "Shift + F9", 429, 205 168 55 20, right
  text "Shift + F10",431, 205 188 55 20, right
  text "Shift + F11",432, 205 208 55 20, right
  text "Shift + F12", 433, 205 228 55 20, right

  edit %button.sf1, 21, 267 5 160 20, autohs
  edit %button.sf2, 22, 267 25 160 20, autohs
  edit %button.sf3, 23, 267 45 160 20, autohs
  edit %button.sf4, 24, 267 65 160 20, autohs
  edit %button.sf5, 25, 267 85 160 20, autohs
  edit %button.sf6, 26, 267 105 160 20, autohs
  edit %button.sf7, 27, 267 125 160 20, autohs
  edit %button.sf8, 28, 267 145 160 20, autohs
  edit %button.sf9, 29, 267 165 160 20, autohs
  edit %button.sf10, 210, 267 185 160 20, autohs
  edit %button.sf11, 211, 267 205 160 20, autohs
  edit %button.sf12, 212, 267 225 160 20, autohs

  text "  Ctrl + F1", 521, 430 8 55 20, right
  text "  Ctrl + F2", 522, 430 28 55 20, right
  text "  Ctrl + F3", 523, 430 48 55 20, right
  text "  Ctrl + F4", 524, 430 68 55 20, right
  text "  Ctrl + F5", 525, 430 88 55 20, right
  text "  Ctrl + F6", 526, 430 108 55 20, right
  text "  Ctrl + F7", 527, 430 128 55 20, right
  text "  Ctrl + F8", 528, 430 148 55 20, right
  text "  Ctrl + F9", 529, 430 168 55 20, right
  text "  Ctrl + F10",531, 430 188 55 20, right
  text "  Ctrl + F11",532, 430 208 55 20, right
  text "  Ctrl + F12", 533, 430 228 55 20, right

  edit %button.cf1, 31, 497 5 160 20, autohs
  edit %button.cf2, 32, 497 25 160 20, autohs
  edit %button.cf3, 33, 497 45 160 20, autohs
  edit %button.cf4, 34, 497 65 160 20, autohs
  edit %button.cf5, 35, 497 85 160 20, autohs
  edit %button.cf6, 36, 497 105 160 20, autohs
  edit %button.cf7, 37, 497 125 160 20, autohs
  edit %button.cf8, 38, 497 145 160 20, autohs
  edit %button.cf9, 39, 497 165 160 20, autohs
  edit %button.cf10, 310, 497 185 160 20, autohs
  edit %button.cf11, 311, 497 205 160 20, autohs
  edit %button.cf12, 312, 497 225 160 20, autohs
  button "Установить по умолчанию", 500, 190 260 250 26
  button "ОК", 100, 90 300 220 26
  button "Комманды", 200, 320 300 220 26
}
on *:dialog:fkeysfx:init:*: {
  /tip 100 Сохранение настроек и выход.
}
on *:dialog:fkeysfx:sclick:200: {
  /dhelp
}
on *:dialog:fkeysfx:sclick:100: {
  /set %button.f1 $did(1).text
  /set %button.f2 $did(2).text
  /set %button.f3 $did(3).text
  /set %button.f4 $did(4).text
  /set %button.f5 $did(5).text
  /set %button.f6 $did(6).text
  /set %button.f7 $did(7).text
  /set %button.f8 $did(8).text
  /set %button.f9 $did(9).text
  /set %button.f10 $did(10).text
  /set %button.f11 $did(11).text
  /set %button.f12 $did(12).text
  /set %button.sf1 $did(21).text
  /set %button.sf2 $did(22).text
  /set %button.sf3 $did(23).text
  /set %button.sf4 $did(24).text
  /set %button.sf5 $did(25).text
  /set %button.sf6 $did(26).text
  /set %button.sf7 $did(27).text
  /set %button.sf8 $did(28).text
  /set %button.sf9 $did(29).text
  /set %button.sf10 $did(210).text
  /set %button.sf11 $did(211).text
  /set %button.sf12 $did(212).text
  /set %button.cf1 $did(31).text
  /set %button.cf2 $did(32).text
  /set %button.cf3 $did(33).text
  /set %button.cf4 $did(34).text
  /set %button.cf5 $did(35).text
  /set %button.cf6 $did(36).text
  /set %button.cf7 $did(37).text
  /set %button.cf8 $did(38).text
  /set %button.cf9 $did(39).text
  /set %button.cf10 $did(310).text
  /set %button.cf11 $did(311).text
  /set %button.cf12 $did(312).text
  /dialog -x fkeysfx
}
on *:dialog:fkeysfx:sclick:500: {
  /set %button.f1 /help
  /set %button.f2 /smile
  /set %button.f3 /ampprev
  /set %button.f4 /ampnext
  /set %button.f5 /say 12:D
  /set %button.f6 /say 1,8=:)
  /set %button.f7 /perevodfx
  /set %button.f8 /hop
  /set %button.f9 /tocyr
  /set %button.f10 /newnick
  /set %button.f11 /Iefx
  /set %button.f12 /menu
  /set %button.sf1 /dhelp
  /set %button.sf2 /jl
  /set %button.sf3 /listpg
  /set %button.sf4 /surl
  /set %button.sf5 /winampplay
  /set %button.sf6 /winampstop
  /set %button.sf7 
  /set %button.sf8 /recept
  /set %button.sf9 /joininvite
  /set %button.sf10 /ignoreinvite   
  /set %button.sf11 
  /set %button.sf12 /id
  /set %button.cf1 /ampseekb
  /set %button.cf2 /ampseekf
  /set %button.cf3 /help_irc
  /set %button.cf4 /partfx
  /set %button.cf5 /dsopt
  /set %button.cf6 /ajoin
  /set %button.cf7 /protectoptions
  /set %button.cf8 /settingsfx
  /set %button.cf9 /winampcontrol
  /set %button.cf10 /viewoptions 
  /set %button.cf11 /awayer
  /set %button.cf12 /mircreg
  /dialog -x fkeysfx
  .timer 1 0 /fkeysfx
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; AWAY Система ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
dialog awaywarn {
  icon $mircdiricons\away.ico, 0
  title "             AWAY"
  option dbu
  size 80 95 80 38
  box "",9, 1 0 78 22
  button "Вернуться",10, 1 24 78 12, cancel
  button "Hide",12, 100 100 5 5, ok
  text "В данный момент Вы находитесь в режиме AWAY",11, 3 5 74 16, center
}
on 1:dialog:awaywarn:sclick:10:{ /goneaway }
on 1:dialog:awaywarn:init:0:{ 
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
  mdx MarkDialog $dname
}
alias awayer {
  if (!%awayprefix) { set %awayprefix ^away }
  if (!%awaymsgrepittime) { set %awaymsgrepittime 30 }
  if (!%awayautotime) { set %awayautotime 30 }
  if (!%awaynickchangemode) { set %awaynickchangemode pref }
  if (!%awaygonemsgmode) { set %awaygonemsgmode ones }
  if (!%awayautoreson) { set %awayautoreson Долгое отсутствие }
  if (!%awaydisign1) { set %awaydisign1 14[7Не могу ответить по причине: }
  if (!%awaydisign2) { set %awaydisign2 14] }
  if (!%awaydisignr1) { set %awaydisignr1 14[7Вернулся14] 4- 14[7Отсутствовал: }
  if (!%awaydisignr2) { set %awaydisignr2 14] }
  if $dialog(awayer) = $null { dialog -m awayer awayer }
}
dialog awayer {
  icon $mircdiricons\away.ico, 0
  title "Away система"
  size -1 -1 253 220
  option dbu
  text "Причины отсутствия:", 2, 5 6 55 8
  combo 3, 5 15 140 50, size
  button "Добавить", 4, 5 65 69 10, flat
  button "Удалить", 5, 76 65 69 10, flat
  check "В режиме Away менять ник", 6, 153 14 80 10
  box "Смена ника", 1, 148 6 100 69
  text "или ставить приставку к нику", 8, 163 23 83 8
  radio "Приставка к нику", 9, 163 33 69 10, disable group
  radio "Менять ник", 10, 163 53 50 10, disable
  button "Установить по умолчанию" 998, 140 184 80 10
  button "Ок", 11, 2 206 249 10, flat ok
  text "YourNick", 12, 173 45 22 8, disable
  edit %awayprefix, 13, 196 43 50 10, disable autohs
  edit %awaynick, 14, 173 63 73 10, disable autohs
  box "Опции", 7, 5 76 140 49
  check "Сообщать о режиме Away", 15, 10 83 78 10
  check "Сообщать когда вернулся", 16, 10 112 80 10
  radio "Один раз в момент включения", 17, 18 92 89 10, disable group
  radio "Каждые", 18, 18 102 32 10, disable
  box "Авто Away", 19, 148 76 100 49
  check "Включать режим Away", 20, 153 83 71 10
  text "после", 21, 153 95 17 8
  edit %awayautotime, 22, 170 93 14 10, disable autohs limit 2 center
  text "минут простоя", 23, 186 95 40 8
  text "Причина", 24, 153 105 25 8, disable
  edit %awayautoreson, 25, 153 113 93 10, disable autohs
  box "Away система", 26, 2 0 249 202
  edit %awaymsgrepittime, 27, 51 102 14 10, disable center
  text "минут", 28, 67 104 25 8, disable
  box "Оформление away", 29, 5 126 243 72
  edit %awaydisign1, 30, 7 134 189 10, limit 150 autohs
  edit %awaydisign2, 31, 197 134 49 10, limit 150 autohs
  button "", 40, 0 0 0 0, cancel
  edit %awaydisignr1, 32, 7 170 189 10, limit 150 autohs
  edit %awaydisignr2, 33, 197 170 49 10, limit 150 autohs
  text "! ! ! П Р Е Д П Р О С М О Т Р ! ! !", 34, 7 153 238 8, disable center
  box "", 44, 105 76 40 49
  check "", 36, 123 88 6 10, disable
  text "Сообщать на все сервера", 37, 109 100 34 14, center
}
;=============================
on 1:dialog:awayer:init:0:{
  awayONwindow2 
  refreshawayTEXT2
  did -b awayer 4,5
  readawayreasons
  if (%awaynickchange) { 
    did -c awayer 6
    if (%awaynickchangemode == pref) { did -e awayer 9,10,11,12,13 }
    else { did -e awayer 9,10,11,12,14 } 
  }
  if (%awaynickchangemode == pref) { did -c awayer 9 | did -b awayer 14 } 
  if (%awaynickchangemode == nick) { did -c awayer 10 | did -b awayer 13 }
  if (%awaygonemsg) { did -c awayer 15 | did -e awayer 17,18,27,28,36,37 } 
  if (%awaygonemsgmode == ones) { did -c awayer 17 | did -b awayer 27 } 
  if (%awaygonemsgmode == mult) { did -c awayer 18 }
  if (%awaybackmsg) { did -c awayer 16 } 
  if (%awayautomod) { did -c awayer 20 } 
  if (%awayautomod) { did -e awayer 22,24,25 }
  if (%awaymultiserv) { did -c $dname 36 } 
}
;=============================
on 1:dialog:awayer:sclick:*:{
  if ($did == 11) {
    if ($did($dname,13)) { set %awayprefix $did(13) }
    if ($did($dname,14)) { set %awaynick $did(14) }
    if ($did($dname,27)) { set %awaymsgrepittime $did(27) }
    if ($did($dname,22)) { set %awayautotime $did(22) }
    if ($did($dname,25)) { set %awayautoreson $did(25) }
    set %awaydisign1 $did(30)
    set %awaydisign2 $did(31)
    set %awaydisignr1 $did(32)
    set %awaydisignr2 $did(33)
    awaywindowOFF
  }
  if ($did == 3) { did -e awayer 5 | did -b awayer 4 }
  if (($did == 199) || ($did == 40)) { awaywindowOFF }
  if ($did == 4) {
    write $shortfn($mircdir) $+ sys\txt\AwayReasons.txt $did(3) 
    did -r awayer 3 
    readawayreasons 
    did -b awayer 4,5 
  }
  if ($did == 5) {
    write -dw" $+ $did(3) $+ " $shortfn($mircdir) $+ sys\txt\AwayReasons.txt | did -r awayer 3 | readawayreasons | did -b awayer 4,5
  }
  if ($did(6).state == 1) { 
    set %awaynickchange on
    if (%awaynickchangemode == pref) { did -e awayer 13,12 | did -b awayer 14 } 
    if (%awaynickchangemode == nick) { did -e awayer 14 | did -b awayer 13,12 } 
    did -e awayer 9,10
  }
  else { 
    unset %awaynickchange
    did -b awayer 9,10,12,13,14
  } 
  if ($did == 9) {
    set %awaynickchangemode pref
    did -e awayer 13,12 | did -b awayer 14
  }
  if ($did == 10) {
    set %awaynickchangemode nick
    did -e awayer 14 | did -b awayer 13,12
  }
  if ($did(15).state == 1) { 
    set %awaygonemsg on
    did -e awayer 17,18,28,36,37
    if (%awaygonemsgmode == mult) { did -e awayer 27 } 
  }
  else { 
    unset %awaygonemsg
    did -b awayer 17,18,27,28,36,37 
  }
  if ($did(36).state == 1) { 
    set %awaymultiserv on
  }
  else { 
    unset %awaymultiserv on
  }
  if ($did == 17) { 
    set %awaygonemsgmode ones
    did -b awayer 27 
  }
  if ($did == 998) {
    /sexaway
    /dialog -c awayer
  }
  if ($did == 18) {
    set %awaygonemsgmode mult
    did -e awayer 27 
  }
  if ($did(16).state == 1) { set %awaybackmsg on } 
  else { unset %awaybackmsg } 
  if ($did(20).state == 1) { 
    set %awayautomod on
    did -e awayer 22,24,25
    if ($server != $null) { .timerautoaway 0 5 autoawaycheck } 
  }
  else { unset %awayautomod | did -b awayer 22,24,25 | .timerautoaway* off }
}
;=============================
on 1:dialog:awayer:edit:3:{
  did -e awayer 4
  did -b awayer 5
  refreshawayTEXT2
}
on 1:dialog:awayer:dclick:3:{
  refreshawayTEXT2
}
on 1:dialog:awayer:edit:*:{
  refreshawayTEXT2
}
;*/Away система/*
alias awayReasons { return $read -l $+ $1 $mircdirsys\txt\AwayReasons.txt }
alias readawayreasons { 
  var %awayresonind = $lines($mircdirsys\txt\AwayReasons.txt) + 1 
  :next 
  dec %awayresonind 1 
  if (%awayresonind <= 0) { return } 
  if ($read -l $+ %awayresonind $mircdirsys\txt\AwayReasons.txt == $null) { goto next } 
  else { did -i awayer 3 1 $read -l $+ %awayresonind $mircdirsys\txt\AwayReasons.txt 
  goto next } 
}
alias goneaway {
  if ($away == $false) && ($server) {
    if (!%awaymultiserv) {
      if (%awaynickchange == on) { set %currentnick $me | if (%awaynickchangemode == pref) { nick $me $+ %awayprefix | set %nocurrentnick $me $+ %awayprefix } | if (%awaynickchangemode == nick) { nick %awaynick | set %nocurrentnick %awaynick } }
      if (%awaygonemsg == on) { 
        if (%itsautoaway == yes) { 
          unset %itsautoaway 
          if (%awaygonemsgmode == ones) { 
            ame %awaydisign1 $+ $1- $+ $+ %awaydisign2
          }
          if (%awaygonemsgmode == mult) { 
            ame %awaydisign1 $+ $1- $+ $+ %awaydisign2
            .timerawaymsg 0 $calc(%awaymsgrepittime * 60) awaymsgrep $1- | timerautoaway off
          }
        }
        else {
          if (%awaygonemsgmode == ones) {
            ame %awaydisign1 $+ $1- $+ $+ %awaydisign2
          }
          if (%awaygonemsgmode == mult) {
            ame %awaydisign1 $+ $1- $+ $+ %awaydisign2
            .timerawaymsg 0 $calc(%awaymsgrepittime * 60) awaymsgrep $1- 
          }
        }
      }
      set %since $ctime | .away $1- | if (!$dialog(awaywarn)) { dialog -mn awaywarn awaywarn }
    }
    if (%awaymultiserv) {
      if (%awaynickchange == on) { 
        set %currentnick $me 
        if (%awaynickchangemode == pref) { 
          /scid -a nick $me $+ %awayprefix 
          set %nocurrentnick $me $+ %awayprefix 
        } 
        if (%awaynickchangemode == nick) { 
          /scid -a nick %awaynick 
          set %nocurrentnick %awaynick 
        } 
      }
      if (%awaygonemsg == on) { 
        if (%itsautoaway == yes) { 
          unset %itsautoaway 
          if (%awaygonemsgmode == ones) { 
            /scid -a ame %awaydisign1 $+ $1- $+  $+ %awaydisign2
          }
          if (%awaygonemsgmode == mult) { 
            /scid -a ame %awaydisign1 $+ $1- $+  $+ %awaydisign2
            .timerawaymsg 0 $calc(%awaymsgrepittime * 60) /scid -a awaymsgrep $1- | timerautoaway off
          }
        }
        else {
          if (%awaygonemsgmode == ones) {
            /scid -a ame %awaydisign1 $+ $1- $+  $+ %awaydisign2
          }
          if (%awaygonemsgmode == mult) {
            /scid -a ame %awaydisign1 $+ $1- $+  $+ %awaydisign2
            .timerawaymsg 0 $calc(%awaymsgrepittime * 60) /scid -a awaymsgrep $1- 
          }
        }
      }
      set %since $ctime | /scid -a .away $1- | if (!$dialog(awaywarn)) { dialog -mn awaywarn awaywarn }
    }
  }
  else {
    if (!%awaymultiserv) {
      .timerawaymsg off | .timerautoaway off
      if (%awaybackmsg == on) { 
        ame %awaydisignr1 $duration($calc($ctime - %since)) $+ %awaydisignr2
        unset %since
      }
      if (%awaynickchange == on) { nick %currentnick | unset %currentnick | unset %nocurrentnick } | unset %since | .away | if (%awayautomod == on) { .timerautoawayRE 1 $calc(%awayautotime * 60) .timerautoaway 0 5 autoawaycheck }
    }
    if (%awaymultiserv) {
      .timerawaymsg off | .timerautoaway off
      if (%awaybackmsg == on) { 
        /scid -a ame %awaydisignr1 $duration($calc($ctime - %since)) $+ %awaydisignr2
        unset %since
      }
      if (%awaynickchange == on) { /scid -a nick %currentnick | unset %currentnick | unset %nocurrentnick } | unset %since | /scid -a .away | if (%awayautomod == on) { .timerautoawayRE 1 $calc(%awayautotime * 60) .timerautoaway 0 5 autoawaycheck }
    }
    dialog -x awaywarn awaywarn
  }
}
alias awaymsgrep {
  ame %awaydisign1 $+ $1- $+  $+ %awaydisign2
}
alias autoawaycheck { if ($away == $false) { if ($idle >= $calc(%awayautotime * 60)) { set %itsautoaway yes | goneaway %awayautoreson } } }
alias awayONwindow2 {
  window -c @awayTEXTwindow
  window -hkdo +dL @awayTEXTwindow $calc($dialog(awayer).x + 18) $calc($dialog(awayer).y + 323) 476 40
  window -a @awayTEXTwindow
  .timerawayTEXTwindowposition -mo 0 250 awayrefreshposition2 
}
alias refreshawayTEXT2 {
  clear @awayTEXTwindow
  if (!$did($dname,3)) { echo @awayTEXTwindow $timestamp $me $did(awayer,30).text Причина эвэй $+ $did(awayer,31).text }
  else { echo @awayTEXTwindow $timestamp $me $did(awayer,30).text  $+ $did($dname,3) $+  $+ $did(awayer,31).text }
  echo @awayTEXTwindow $timestamp $me $did(awayer,32).text 1secs $did(awayer,33).text
}
alias awayrefreshposition2 {  window $iif($dialog(awayer).active,-o,-u) @awayTEXTwindow $calc($dialog(awayer).x + 18) $calc($dialog(awayer).y + 323) 476 40 }
alias awaywindowOFF { window -c @awayTEXTwindow | .timerawayTEXTwindowposition off }
alias menuwindowOFF { window -c @menuwindow | .timermenuwindowposition off }
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;MEMOSERV;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias  memoservcenter { 
  if $dialog(memoservcenter) = $null { dialog -m memoservcenter memoservcenter }
}
dialog memoservcenter {
  title "                     Сервис MemoServ "
  option dbu
  size -1 -1 230 215
  icon 55, 180 149 29 26 , pics\mail.bmp
  box "Читать сообщения",21, 5 2 220 124
  edit "" 22, 10 50 155 72, multi, vsbar, read, sort
  button "Список Memo",23, 170 62 49 11, flat
  button "Читать Memo",24, 170 86 49 11, flat
  button "Очистить окно",25, 170 74 49 11, flat
  button "Удалить письмо",26, 170 98 49 11, flat
  button "Удалить все",28, 170 110 49 11, flat
  box "Отправить сообщение",30, 5 128 220 82
  radio "Для ника", 32, 30 136 36 8, tab1 , group flat
  edit "",31, 67 135 53 10, autohs
  radio "Для канала", 199, 125 136 40 8, flat
  edit "#",200, 167 135 53 10, autohs
  radio "Для ника", 201, 50 36 36 8, tab1 , group flat
  radio "Для канала", 203, 90 36 40 8, flat
  combo 204, 135 35 53 60, drop, edit, autohs
  icon 205, 20 33 25 24 , pics\memox.ico
  text "Текст:",37, 10 136 20 8
  edit "",38, 10 148 155 45, multi, autovs, vsbar
  button "Отправить Memo",39, 170 179 49 12, flat
  edit "",47, 10 195 155 11, read, autovs, center
  text "Лимит записок:", 46, 10 10 60 10
  edit "", 48, 10 20  11 11
  list 49, 54 20 13 13, edit
  button "OK", 50, 24 20 27 11, flat
  text "Опция:", 40, 69 10 30 10
  combo 41, 69 20 28 45, drop
  text "Номер:", 42, 174 49 30 10
  edit "", 43, 198 48  15 11, autohs
  list 44, 131 20 12 12, edit
  button "Читать",45, 100 20 28 11, flat
  text "Уведомления о записках:", 51, 146 10 69 10
  combo 52, 146 20 28 45, drop
  list 53, 206 20 14 16, edit
  button "Ok",54, 177 20 26 11, flat
  button "Закрыть",10, 170 194 49 12, cancel, flat
}
on 1:dialog:memoservcenter:init:0:{ 
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
  mdx MarkDialog $dname
  mdx SetBorderStyle 44,49,53
  mdx SetControlMDX $dname 44,49,53 toolbar flat nodivider > sys\dlls\bars.mdx
  mdx SetControlMDX $dname 44,49,53 statusbar > sys\dlls\bars.mdx
  did -i $dname 44,49,53 1 bmpsize 16 16
  did -i $dname 44,49,53 1 setimage +nh icon small 22, $+ pics\phoenity.icl
  did -a $dname 44,49,53 +a 1 $chr(9) $+ Подсказка
  didtok $dname 41 32 NEW LAST
  did -c $dname 41 1
  didtok $dname 52 32 ON LOGON NEW OFF
  did -c $dname 52 1
  set %memosend.nick.chan 1
  set %memoread.nick.chan 1
  if (%memosend.nick.chan == 1) { did -c memoservcenter 32 | did -b memoservcenter 200 }
  if (%memosend.nick.chan == 2) { did -c memoservcenter 199 | did -b memoservcenter 31 }
  if (%memoread.nick.chan == 1) { did -c memoservcenter 201 | did -b memoservcenter 204 }
  if (%memoread.nick.chan == 2) { did -c memoservcenter 203 | did -b memoservcenter 202 }
  chanlistins 204 mychan.txt memoservcenter
}
on 1:dialog:memoservcenter:sclick:*:{
  if ($did == 32) { set %memosend.nick.chan 1 | did -b memoservcenter 200 | did -e memoservcenter 31 } 
  if ($did == 199) { set %memosend.nick.chan 2 | did -b memoservcenter 31 | did -e memoservcenter 200 | did -r memoservcenter 31 }
  if ($did == 201) { set %memoread.nick.chan 1 | did -b memoservcenter 204 } 
  if ($did == 203) { set %memoread.nick.chan 2 | did -e memoservcenter 204 }
  if ($did == 44) { memoserv.read.me.help }
  if ($did == 22) { did -e memoservcenter 24,26 } 
  if ($did == 23) { 
    if (%memoread.nick.chan == 1) {
    if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoList | %memo.identify list }
    if (%memoread.nick.chan == 2) {
      if ($left($did(204),1) == $chr(35)) {
      if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoList | %memo.identify list $did(204) }
    }
  }
  if ($did == 24) { 
    if (%memoread.nick.chan == 1) {
      if ($did(43)) {
        if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoRead | %memo.identify READ $did(43) 
      }
    }
    if (%memoread.nick.chan == 2) {
      if ($did(43) && $left($did(204),1) == $chr(35)) {
        if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoRead | %memo.identify READ $did(204) $did(43) 
      }
    }
  }
  if ($did == 25) { did -r memoservcenter 22 } 
  if ($did == 26) { 
    if (%memoread.nick.chan == 1) {
      if ($did(43)) {
        if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoRead | %memo.identify del $did(43) 
      }
    } 
    if (%memoread.nick.chan == 2) {
      if ($did(43) && $left($did(204),1) == $chr(35)) {
        if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoRead | %memo.identify del $did(204) $did(43) 
      } 
    }
  }
  if ($did == 28) { 
    if (%memoread.nick.chan == 1) {
      if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoRead | %memo.identify del all 
    }
    if (%memoread.nick.chan == 2) {
      if ($left($did(204),1) == $chr(35)) {
        if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoRead | %memo.identify del $did(204) all 
      }
    }
  }
  if ($did == 45) { if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoRead | %memo.identify READ $did(41) }
  if ($did == 39) {
    set %memomsglines $did(38).lines 
    set %memomsgind 1 
    %memomsg = $did(38,1)
    :next 
    inc %memomsgind 1 
    if (%memomsgind > %memomsglines) { goto sendmsg } 
    else { set %memomsg %memomsg $did(38,%memomsgind) | goto next }
    :sendmsg 
    if (%memosend.nick.chan == 1) { 
      if ($did(31) && $did(38)) {
        if ($server == $null) { scheck } | .enable #MemoSend | %memo.identify SEND $did(31) %memomsg | if (%gtzfails == on) { /dll sys\Dlls\game_tools.dll splay %failed } 
      }
    }
    if (%memosend.nick.chan == 2) {
      if ($did(38) && $left($did(200),1) == $chr(35)) { 
        if ($server == $null) { scheck } | .enable #MemoSend | %memo.identify SEND $did(200) %memomsg | if (%gtzfails == on) { /dll sys\Dlls\game_tools.dll splay %failed }
      } 
      unset %memomsglines 
      unset %memomsgind 
      halt 
    }
  }
  if ($did == 50) {
    if ($did(48)) {
      if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoRead | %memo.identify SET LIMIT $did(48)
    }
  }
  if ($did == 49) { memoserv.set.limit.my.help }
  if ($did == 53) && ($did(52).sel == 1) { set %memoserv.set.notify.mode 1 | memoserv.set.notify.help }
  if ($did == 53) && ($did(52).sel == 2) { set %memoserv.set.notify.mode 2 | memoserv.set.notify.help }
  if ($did == 53) && ($did(52).sel == 3) { set %memoserv.set.notify.mode 3 | memoserv.set.notify.help }
  if ($did == 53) && ($did(52).sel == 4) { set %memoserv.set.notify.mode 4 | memoserv.set.notify.help }
  if ($did == 54) { if ($server == $null) { scheck } | did -r $dname 22 | .enable #MemoRead | %memo.identify SET NOTIFY $did(52) }
  if ($did == 10) { .disable #Memo* } 
}
#MemoList off
on ^*:notice:*:*:{ if ($nick == memoserv) { did -i memoservcenter 22 1 $strip($1-) } .timer 1 1 .disable #MemoList }
#MemoList end
#MemoRead off
on ^*:notice:*:*:{ if ($nick == memoserv) { did -i memoservcenter 22 1 $strip($1-) } .timer 1 1 .disable #MemoRead }
#MemoRead end
#MemoSend off
on ^*:notice:*:*:{ if ($nick == memoserv) { did -i memoservcenter 47 1 $strip($1-) } .timer 1 1 .disable #MemoSend }
#MemoSend end
dialog newmemo {
  title " -=( Новое письмо )=- "
  option dbu
  size -1 -1 81 60
  text "",10, 5 6 70 8, center
  text "",11, 5 18 70 8, center
  button "Читать сейчас",12, 5 30 71 12, ok, flat
  button "Читать позже",13, 5 42 71 12, cancel, flat
  box "",14, 3 2 75 55
}
on *:dialog:newmemo:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}
on 1:dialog:newmemo:sclick:12:{
  if ($dialog(memoservcenter) != memoservcenter) { dialog -m memoservcenter memoservcenter }
  if ($dialog(memoservcenter) == memoservcenter) { did -r memoservcenter 22 1 }
  else { did -c memoservcenter 1 }
  .did -t memoservcenter 23
  .enable #MemoList | %memo.identify list
  .enable #MemoRead | %memo.identify read 1
}
alias memoserv.set.notify.help dialog -m memoserv.set.notify.help memoserv.set.notify.help
dialog memoserv.set.notify.help {
  title " -=( Уведомление )=- "
  size -1 -1 145 53
  option dbu
  text "Вы будете уведомлены о записках когда подключитесь к серверу, при выходе из режима AWAY, и сразу же когда придет новая записка.", 1, 27 7 110 40, center
  text "Вы будете уведомлены о записках только когда подключитесь к серверу или при выходе из режима AWAY.", 2, 27 7 110 40, center
  text "Вы будете уведомлены о записке только в тот момент когда кто-то ее пошлет вам.", 3, 27 9 110 40, center
  text "Вы не будете уведомлены о новых записках.", 4, 27 10 110 40, center
  button "OK", 5, 55 36 43 10, ok, flat
  box "",6,2 0 141 51
  icon 7, 6 6 22 22, pics\memox.ico
}
on *:dialog:memoserv.set.notify.help:*:*: {
  if ($devent == init) {
    mdx MarkDialog $dname $dialog($dname).hwnd
    mdx SetDialog $dname style 0 title
    if (%memoserv.set.notify.mode == 1) { did -v $dname 1 | did -h $dname 2 | did -h $dname 3 | did -h $dname 4 }
    if (%memoserv.set.notify.mode == 2) { did -h $dname 1 | did -v $dname 2 | did -h $dname 3 | did -h $dname 4 }
    if (%memoserv.set.notify.mode == 3) { did -h $dname 1 | did -h $dname 2 | did -v $dname 3 | did -h $dname 4 }
    if (%memoserv.set.notify.mode == 4) { did -h $dname 1 | did -h $dname 2 | did -h $dname 3 | did -v $dname 4 }
  }
  if ($devent == sclick) {
    if ($did == 5) { s.cl }
  }
}
alias post.new.n {
  if (!$dialog(post.new.n)) dialog -ma post.new.n post.new.n
  else dialog -v post.new.n
}
dialog post.new.n {
  title " -=( Письмо )=- "
  size -1 -1 128 48
  option dbu
  text %post.new.n, 1, 33 7 57 8
  button "Прочитать", 2, 41 31 43 10, default, ok, flat
  icon 3, 6 6 22 22, pics\memox.ico
  box "",4,2 0 124 45
}
on *:dialog:post.new.n:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}
on *:dialog:post.new.n:sclick:2: {
  unset %post.new.n
  set %new.post 1
  if ($dialog(memoservcenter) != memoservcenter) { dialog -m memoservcenter memoservcenter }
  else { did -c memoservcenter 1 }
  .did -t memoservcenter 23
  .enable #MemoList | %memo.identify list
  .enable #MemoRead | %memo.identify read 1
}
on *:dialog:post.new.n:close:*: unset %post.new.n
dialog memsenderr {
  title " -=( Письмо )=- "
  size -1 -1 150 41
  option dbu
  text "Пожалуйста, подождите 3 секунды перед тем как снова использовать команду SEND.", 1, 27 7 117 43, center
  button "OK", 2, 55 24 43 10, default, ok, flat
  icon 3, 6 6 22 22, pics\err.ico
  box "",13,2 0 146 39
}
on *:dialog:memsenderr:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}
alias error { 
  if ($dialog(error) == error) { DialogError } | else { dialog -ma error error } 
}
alias memoserv.set.limit.my.help dialog -m memoserv.set.limit.my.help memoserv.set.limit.my.help
dialog memoserv.set.limit.my.help {
  title " -=( Помощь )=- "
  size -1 -1 162 54
  option dbu
  text "Устанавливает максимальное количество записок которые вы сможете принимать. Если вы установите ''0'', то никто не сможет послать вам записку. МАКСИМУМ записок - 20.",2,25 5 126 40,center 
  icon 4,7 7 16 16,pics\memox.ico,noborder
  button "Ok",1,62 36 43 10,ok, flat
  box "",6,2 0 158 52
}
on *:dialog:memoserv.set.limit.my.help:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}
alias memoserv.read.me.help dialog -m memoserv.read.me.help memoserv.read.me.help
dialog memoserv.read.me.help {
  title " -=( Помощь )=- "
  size -1 -1 163 58
  option dbu
  text "Показывает сообщение с указанным номером из Вашего списка сообщений. Если указано NEW, будут показаны только новые сообщения. Если же указано LAST, будут показаны недавно полученные сообщения.",2,27 5 126 40,center 
  icon 4,7 7 16 16,pics\memox.ico,noborder
  button "Ok",1,62 41 43 10,ok, flat
  box "",6,2 0 159 56
}
on *:dialog:memoserv.read.me.help:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Небольшие диалоги ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias reboot { 
  if $dialog(reboot) = $null { dialog -m reboot reboot }
}
dialog reboot {  
  title "Перезагузка скрипта"
  size -1 -1 300 100
  text "Идёт перезагрузка скрипта.......                                                                                                                                                                                        Please wait........" 32, 3 4 300 100, read, multi,center
}
on 1:dialog:reboot:init:0:{ 
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
  mdx MarkDialog $dname
}
alias repairmsg { 
  if $dialog(repairmsg) = $null { dialog -m repairmsg repairmsg }
}
dialog repairmsg {  
  title "Идёт перезагрузка всех скриптов"
  size -1 -1 300 50
}
on 1:dialog:repairmsg:init:0:{ 
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
  mdx MarkDialog $dname
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias regmirc if (!$dialog(regmirc)) dialog -m regmirc regmirc | else { dialog -x regmirc | dialog -m regmirc regmirc }
dialog regmirc {
  size -1 -1 110 85
  option dbu
  title "Регистрация mIRC"
  text "Здесь вы можете бесплатно зарегистрировать mIRC, чтобы при вкл. скрипта у вас больше не вылазило противное окно регистрации.",3, 5 7 100 40, multi, center
  text "В следующем диалоге нажмите <Да>",2, 5 50 100 10, multi, center
  button "Зарегистрировать",1, 27 65 55 15
}
on *:dialog:regmirc:sclick:1: { 
  /mircreg
  dialog -c regmirc
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Диалог применения фона;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias primen { 
  if $dialog(primen) = $null { dialog -m primen primen }
}
dialog primen {  
  title "Применение офромления"
  size -1 -1 300 90
  text "                                                                                     Пожалуйста подождите, идёт применение цветовых и графических параметров.....   Скорость применения зависит от мощности вашего компьютера."32, 3 4 300 100, read, multi,center
}
on 1:dialog:primen:init:0:{ 
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
  mdx MarkDialog $dname
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Ошибка ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
dialog error {
  size -1 -1 110 42
  option dbu
  title " -=( Ошибка )=- "
  text "Активное окно не канал!",565, 34 7 70 10
  button "OK",1, 35 25 43 10, ok, flat
  icon 3, 7 8 32 32,pics\err.ico,noborder
  box "",4,2 0 106 40
}
on *:dialog:error:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Диалог подтверждений ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias powerfx1 if (!$dialog(powerfx1)) dialog -m powerfx1 powerfx1 | else { dialog -x powerfx1 | dialog -m powerfx1 powerfx1 }
dialog powerfx1 {
  size -1 -1 140 45
  option dbu
  title "Подтверждение выключения компьютера"
  text "Вы действительно хотите выключить компьютер?",565, 34 7 70 30
  button "Да",1, 20 30 43 10, flat
  button "Нет",2, 77 30 43 10, cancel
  icon 3, 7 8 32 32,icons\attention.ico,noborder
}
on *:dialog:powerfx1:sclick:1: { 
  /run $mircdirfiles\shutdown -s -t 10 -c "Выключение ПК"  
  dialog -c powerfx1
  .timer 1 9 /exit -n
}
on *:dialog:powerfx1:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}
alias powerfx2 if (!$dialog(powerfx2)) dialog -m powerfx2 powerfx2 | else { dialog -x powerfx2 | dialog -m powerfx2 powerfx2 }
dialog powerfx2 {
  size -1 -1 140 45
  option dbu
  title "Подтверждение выключения компьютера"
  text "Вы действительно хотите выключить компьютер в форсированном режиме?",565, 34 7 70 30
  button "Да",1, 20 30 43 10, flat
  button "Нет",2, 77 30 43 10, cancel
  icon 3, 7 8 32 32,icons\attention.ico,noborder
}
on *:dialog:powerfx2:sclick:1: { 
  /run $mircdirfiles\shutdown -s -f -t 0 -c "Выключение ПК"
  /exit -n
}
on *:dialog:powerfx2:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}
alias powerfx3 if (!$dialog(powerfx3)) dialog -m powerfx3 powerfx3 | else { dialog -x powerfx3 | dialog -m powerfx3 powerfx3 }
dialog powerfx3 {
  size -1 -1 150 45
  option dbu
  title "Подтверждение перезагрузки компьютера"
  text "Вы действительно хотите перезагрузить компьютер?",565, 34 7 70 30
  button "Да",1, 20 30 43 10, flat
  button "Нет",2, 87 30 43 10, cancel
  icon 3, 7 8 32 32,icons\attention.ico,noborder
}
on *:dialog:powerfx3:sclick:1: { 
  /run $mircdirfiles\shutdown -r -t 3 -c "Перезагрузка ПК"
  /exit -n
}
on *:dialog:powerfx3:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}
alias powerfx4 if (!$dialog(powerfx4)) dialog -m powerfx4 powerfx4 | else { dialog -x powerfx4 | dialog -m powerfx4 powerfx4 }
dialog powerfx4 {
  size -1 -1 150 45
  option dbu
  title "Подтверждение выхода из системы"
  text "Вы действительно хотите выйти из Windows?",565, 34 7 70 30
  button "Да",1, 20 30 43 10, flat
  button "Нет",2, 87 30 43 10, cancel
  icon 3, 7 8 32 32,icons\attention.ico,noborder
}
on *:dialog:powerfx4:sclick:1: { 
  /run $mircdirfiles\shutdown -l
  /exit -n
}
on *:dialog:powerfx4:init:*:{
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  Управление системой ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias power if (!$dialog(power)) dialog -m power power | else { dialog -x power | dialog -m power power }
dialog power {
  icon $mircdiricons/power.ico, 0
  title "Управление системой"
  size -1 -1 340 200
  option pixels
  box "Выключение", 1, 3 3 315 60
  box "Перезагрузка", 8, 3 63 315 60
  box "Выход", 9, 3 123 315 60
  button "Выключить", 2, 10 30 75 25, flat
  button "Перезагрузить", 3, 10 90 90 25, flat
  button "В форсированном режиме", 4, 90 30 140 25, flat
  button "Отменить", 5, 105 90 75 25, flat
  button "Отменить", 6, 235 30 75 25, flat
  button "Выход из системы", 7, 10 150 100 25, flat
}
on *:dialog:power:sclick:2: { powerfx1 }
on *:dialog:power:sclick:3: { powerfx3 }
on *:dialog:power:sclick:4: { powerfx2 }
on *:dialog:power:sclick:5: { /run $mircdirfiles\shutdown -a | .timer1 off }
on *:dialog:power:sclick:6: { /run $mircdirfiles\shutdown -a | .timer1 off }
on *:dialog:power:sclick:7: { powerfx4 }
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Anticrash ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias anticrash {
  if ($regex($1, /^<- :(([^!]*)![^@]*@[^ ]*)\s*PRIVMSG\s*(\S*)\s*:\001\s*DCC.*"(?:[^" ]*\s){32}.*$/i)) {
    who $regml(2)
    echo 4 -a $timestamp *** $regml(2) только что попытался вас крашнуть
    inc %crash.i
    msg $regml(2) Вы только что нарушили статью 273... до трёх лет... Вы уже %crash.i который попытался это сделать...
    msg $regml(2) Статья 273. Создание, использование и распространение вредоносных программ для ЭВМ
    msg $regml(2) 1. Создание программ для ЭВМ или внесение изменений в существующие программы, заведомо приводящих к несанкционированному уничтожению, блокированию, модификации либо копированию информации, нарушению работы ЭВМ, системы ЭВМ или их сети,
    msg $regml(2) а равно использование либо распространение таких программ или машинных носителей с такими программами - наказываются лишением свободы на срок до трех лет со штрафом в размере от двухсот до пятисот минимальных размеров оплаты труда или в размере заработной платы или иного дохода осужденного за период от двух до пяти месяцев.
    msg $regml(2) 2. Те же деяния, повлекшие по неосторожности тяжкие последствия, - наказываются лишением свободы на срок от трех до семи лет..... Погоди немного, щас проверяется ваш Домашний Адресс...
    write crashman.txt $fulldate $regml(2) $address($regml(2),5)
  }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Системная информация ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias sysi { if ($dialog(sysi)) dialog -v sysi | else dialog -m sysi sysi }
dialog sysi {
  title " Системная информация "
  icon icons/sys.ico
  size -1 -1 234 92
  option dbu
  list 1, 3 4 228 68, size
  box "", 2, 2 0 230 73
  box "",6,188 73 44 17
  button "Закрыть", 3, 190 78 40 10, ok, flat
  box "",4,2 73 44 17
  button "Сказать",5,4 78 40 10, flat
}
on *:DIAlOG:sysi:init:0:{
  mdx MarkDialog $dname
  mdx SetMircVersion $version
  mdx SetControlMDX $dname 1 listview single grid rowselect report > sys/dlls/views.mdx
  did -i $dname 1 1 headerdims 120:1 330:2
  did -i $dname 1 1 headertext + 0 System $+ $chr(9) $+ + 0 Info
  did -a $dname 1 +0 ОС $+ $chr(9) $+ +0 $dll(sys/dlls/moo.dll,osinfo,_)
  did -a $dname 1 +0 Процессор $+ $chr(9) $+ +0 $dll(sys/dlls/moo.dll,cpuinfo,_)
  did -a $dname 1 +0 Память $+ $chr(9) $+ +0 $dll(sys/dlls/moo.dll,meminfo,_)
  did -a $dname 1 +0 Жёсткий диск $+ $chr(9) $+ +0 $dll(sys/dlls/moo.dll,diskcapacity,_)
  did -a $dname 1 +0 Экран $+ $chr(9) $+ +0 $dll(sys/dlls/moo.dll,screeninfo,_) $dll(sys/dlls/moo.dll,gfxinfo,_)
  did -a $dname 1 +0 Сетевая карта $+ $chr(9) $+ +0 $dll(sys/dlls/moo.dll,interfaceinfo,_)
  did -a $dname 1 +0 Версия mIRC $+ $chr(9) $+ +0 mIRC $+ $bits $version
}
on *:dialog:sysi:sclick:5:{
  if ($server == $null) { scheck } | .zmsg $chan 12(4System Info12) 3OS:2 $dll(sys/dlls/moo.dll,osinfo,_) 7CPU:2 $dll(sys/dlls/moo.dll,cpuinfo,_) 3Memory:2 $dll(sys/dlls/moo.dll,meminfo,_) 7Disk Capacity:2 $dll(sys/dlls/moo.dll,diskcapacity,_) 3Screen Resolution:2 $dll(sys/dlls/moo.dll,screeninfo,_) $dll(sys/dlls/moo.dll,gfxinfo,_) 7Network Interface:2 $dll(sys/dlls/moo.dll,interfaceinfo,_) 3mIRC Version:2 mIRC $+ $bits $version     
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Описание скрипта ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias aboutfx if (!$dialog(aboutfx)) dialog -m aboutfx aboutfx | else { dialog -x aboutfx | dialog -m aboutfx aboutfx }
dialog aboutfx {
  title "О Narkoman's Script 3.5"
  size -1 -1 137 213
  option dbu
  icon $mircdiricons/main.ico, 0
  icon 1, 1 4 61 66,  $mircdirpictures\icon.bmp, 0
  box "", 2, 1 -1 132 192
  text "===================== -=Narkoman's Modern =- v3.5 b y _ T R A N E _=- ===================== All Rights Reserved. Copyright Narkoman's™ 2006 - 2007. =====================", 3, 64 10 65 58
  text "Ну вот наконецто на свет появился долгожданный Narkoman's Script 3.5 . Скрипт долго делался и тестился чтобы все ошибки были сведенены к нулю. В скрипт добавлено очень много новых функций, меню, убраны ошибки, так что пользуйтесь на здоровье! Скрипт в диaлогaх и менюшках, поэтому очень удобен. Если нaйдёте бaги или если у вас возникнут какието проблемы со скриптом, то пишите мне в IRC DALnet (irc.dalnet.ru:6667), канале #Narkoman's , _TRANE_ или пишите нa: >>  narkoo-master@mail.ru                                         >>  narkoo-master@maxalina.net", 4, 3 74 128 100
  text "Наш официальный сайт - ", 6, 3 168 70 7, flat
  link "http://narkomans.ucoz.ru",50, 40 175 90 10
  icon 8, 1 211 133 15,  $mircdirpictures\psyscpicon.bmp, 0
  button "&OK", 9, 104 195 30 12, flat ok
}
on *:dialog:aboutfx:*:*:{ 
  if ($devent == sclick) {
    if ($did == 50) { run http://www.narkomans.ucoz.ru }
  }
}
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;;;;;;;;;;;;;;; >>>>>>>> Narkoman's Script ver: 3.5   All Rights Reserved. Copyright Narkoman's™ 2006 - 2007 <<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> создатель - _TRANE_ <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>> Об ошибках пишите на: narkoo-master@mail.ru или narkoo-master@maxalina.net <<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>> Официальный сайт скрипта: http://www.narkomans.ucoz.ru <<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
