;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;;;;;;;;;;;;;;; >>>>>>>> Narkoman's Script by [StingeR] ver: 3.5   All Rights Reserved. Copyright Narkoman's™ 2008 <<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> создатель - [StingeR] <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;; >>>>>>>>>>>>> Об ошибках пишите на: StingeRuleZ@mail.ru  <<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
;;;;;;;;;;;;;;; >>>>>>>>>>>>>>>>>>>>> Официальный сайт скрипта: http://chan456.ucoz.ru <<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;--------------------------------------------------
;      Userlists
;--------------------------------------------------
;  Shit
on shitlist:join:#: { kick $chan $nick 4(Нахуй с бара)11:9) 4свободен < $+ %kick $+ > | ban $chan $nick 2 }
;  Protect
on protect:KICK:#: if ($opnick = $me) halt {
  kick $chan $opnick не трогай его! < $+ %kick $+ >
}
on protect:join:#: {  
  mode $chan +v $nick | .notice $nick Ты - защищаемый мною юзер ;) вот
  echo $chan *** Protected User! --> $nick 6( $+ $address $+ 6)
}
;  Ahop
on xahop:join:#: {  
  mode $chan +h $nick | .notice $nick you in my Autoh list
  echo $chan *** Автоhop! --> $nick 6( $+ $address $+ 6)
}
;--------------------------------------------------
;     User List Controls
;--------------------------------------------------
on protect:DEOP:* {
  if (%Group.Protect == On) {
    if ($level($address($opnick,3)) >= 85) && ($level($address($nick,3)) < 85) {
      set %Var.Temp $address($opnick,3) | set %Var.Temp $readini $mircdirsystem\Docs\protect.ini %Var.Temp Channels
      if (($chan isin %Var.Temp) || (%Var.Temp == *)) {
        kick $chan $nick < $+ %kick $+ >
        mode $chan +o $opnick 
        echo $chan   *** Защищенный юзер! --> $opnick 6( $+ $address($opnick,3) $+ 6)
      }
    }
  }
  if (%Group.MassDeop == On) {
    if ([ %Mode. [ $+ [ $site ] ] ] == $null) { set %Mode. [ $+ [ $site ] ] 1 | .timer 1 15 /unset %Mode. [ $+ [ $site ] ] | set %Mode.Time [ $+ [ $site ] ] $ctime | .timer 1 15 /unset %Mode.Time [ $+ [ $site ] ] ] }
    if ([ %Mode. [ $+ [ $site ] ] ] > 3) { 
      %Mode.Temp. [ $+ [ $site ] ] = [ [ $ctime ] - [ %Mode.Time [ $+ [ $site ] ] ] ]
      kick $chan $nick Massdeop! (4 Deops in %Mode.Temp. [ $+ [ $site ] ] секунд(s) of 10. | unset %Mode. [ $+ [ $site ] ] | secho kick $nick from $chan for massdeop | halt 
    }
    inc %Mode. [ $+ [ $site ] ] 1
  }
}
on protect:KICK:* {
  mode $chan -o $nick | .invite $knick $chan 
  echo $chan   *** Защищенный юзер! --> $knick 6( $+ $address($knick,3) $+ 6)
}
on protect:BAN:* {
  if ([ $banmask ] iswm [ $address($me,0) ]) && (%Group.Pban == On) { mode $chan -ob $nick $banmask | if ($nick ison $chan) { kick $chan $nick Go away. < $+ %kick $+ > | halt } }
  if ($level($banmask) >= 85) && (%Group.Protect == On) {
    set %Var.Temp $address($opnick,3) | set %Var.Temp $readini $mircdirsystem\Docs\protect.ini %Var.Temp Channels
    if (($chan isin %Var.Temp) || (%Var.Temp == *)) { 
      mode $chan -ob $nick $banmask | echo .echo $chan   *** Защищенный юзер! --> 6( $+ $banmask $+ 6)
    if ($nick ison $chan) { kick $chan $nick No-no... < $+ %kick $+ > | halt } }
  }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Диалог при первом старте скрипта ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
alias newUserwizard {
  if $dialog(newUserwizard) = $null { dialog -m newUserwizard newUserwizard }
}
dialog newUserwizard {
  title "                                  Добро пожаловать в Narkoman's Script by [StingeR] !"
  size -1 -1 270 220
  option dbu
  box "", 11, 168 196 42 19
  list 10, 170 201 39 5, edit 
  box "", 111, 218 196 42 19
  list 110, 220 201 39 5, edit 
  icon 901, 120 -30 144 200, pictures/startmenu.jpg
  box "E-mail адрес:", 675, 1 13 113 22
  edit "NarkooUser@mail.ru", 678, 5 21 104 10
  box "Настоящее имя:", 677, 1 37 113 22
  edit "NarkooUser", 676, 5 45 104 10
  box "Твой ник:", 679, 1 61 113 22
  edit "NarkooUser", 680, 5 69 104 10
  box "Твой пароль на ник (если он есть):", 691, 1 85 113 22
  edit "", 692, 5 93 104 10, pass
  box "Твой альтернативный ник:", 681, 1 109 113 22
  edit "NarkooUser_", 682, 5 117 104 10
  button " ОК ", 100, 22 205 125 12, ok
  button "Регистрация mIRC", 800, 174 180 80 12
  box "Сервер:", 6, 1 133 113 22
  edit "irc.dalnet.ru", 8, 5 141 104 10
  radio "Мужской", 12, 18 164 37 10
  box "Пол в скрипте", 13, 1 157 112 19
  radio "Женский", 14, 64 164 40 10
  text "Для сохранения настроек и подключения к серверу нажмите <ОК>, в противном случае <Закрыть>", 112, 5 185 150 15
}
on *:dialog:newUserwizard:init:*: {
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
  mdx MarkDialog $dname
  mdx SetBorderStyle 10,110
  mdx SetControlMDX $dname 10,110 ToolBar list flat nodivider > sys\Dlls\bars.mdx
  mdx SetControlMDX $dname 10,110 statusbar > sys\Dlls\bars.mdx
  did -i $dname 10,110 1 bmpsize 16 16
  did -i $dname 10 1 setimage +nh icon small 54, $+ pics\phoenity.icl
  did -i $dname 110 1 setimage +nh icon small 6, $+ pics\phoenity.icl
  did -a $dname 10 +a 1 Помощь $chr(9) $+ Помощь
  did -a $dname 110 +a 1 Закрыть $chr(9) $+ Закрыть окно
  if %slap.sex = male { did -c newUserwizard 12 } 
  if %slap.sex = female { did -c newUserwizard 14 } 
}
on *:dialog:newUserwizard:sclick:10: {
  /help
}
on *:dialog:newUserwizard:sclick:800: {
  /regmirc
}
on *:dialog:newUserwizard:sclick:110: {
  if (%nck_1 == $null) { 
    /settingsfx
    %lse Пожалуйста введи свой ник и пароль, чтобы в дальнейшем скрипт использовал его для идентификации тебя у сервисов DALNet(RU) 
  }
  .timer 1 0 dialog -c newUserwizard
}
on *:dialog:newUserwizard:sclick:100: {
  if ($did(676) != $null) { /fullname $did(676) }
  if ($did(678) != $null) { /emailaddr $did(678) }
  if ($did(680) != $null) { /nick $did(680) | set %nck_1 $did(680) }
  if ($did(682) != $null) { /anick $did(682) | set %nck_1a $did(682) }
  if ($did(692) != $null) { set %nick_pass1 $did(692) }
  if ($did(8) != $null) { /server $did(8) }
  if $did(12).state = 1 { /set %slap.sex male | echo -a Теперь ваш пол в скрипте  - мужской ! | .play -ct $me sys\txt\setsmale.txt 150 }
  if $did(14).state = 1 { /set %slap.sex female | echo -a Теперь ваш пол в скрипте  - женский ! | .play -ct $me sys\txt\setsfemale.txt 150 }
  /set %nicksel 1
  if (%nck_1 == $null) { 
    /settingsfx
    %lse Пожалуйста введи свой ник и пароль, чтобы в дальнейшем скрипт использовал его для идентификации тебя у сервисов DALNet(RU) 
  }
}
on *:DIALOG:newUserwizard:dclick:901: { /run http://www.first-net.narod.ru }
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ColoR ScripT ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
alias ncc.set {
  window -hp +f @col 0 0 18 18
  ; 00
  drawfill @col 00 00 0 0
  drawsave @col $_ncc.dirc $+ \0.bmp
  clear @col
  ; 01
  drawfill @col 01 01 0 0
  drawsave @col $_ncc.dirc $+ \1.bmp
  clear @col
  ; 02
  drawfill @col 02 02 0 0
  drawsave @col $_ncc.dirc $+ \2.bmp
  clear @col
  ; 03
  drawfill @col 03 03 0 0
  drawsave @col $_ncc.dirc $+ \3.bmp
  clear @col
  ; 04
  drawfill @col 04 04 0 0
  drawsave @col $_ncc.dirc $+ \4.bmp
  clear @col
  ; 05
  drawfill @col 05 05 0 0
  drawsave @col $_ncc.dirc $+ \5.bmp
  clear @col
  ; 06
  drawfill @col 06 06 0 0
  drawsave @col $_ncc.dirc $+ \6.bmp
  clear @col
  ; 07
  drawfill @col 07 07 0 0
  drawsave @col $_ncc.dirc $+ \7.bmp
  clear @col
  ; 08
  drawfill @col 08 08 0 0
  drawsave @col $_ncc.dirc $+ \8.bmp
  clear @col
  ; 09
  drawfill @col 09 09 0 0
  drawsave @col $_ncc.dirc $+ \9.bmp
  clear @col
  ; 10
  drawfill @col 10 10 0 0
  drawsave @col $_ncc.dirc $+ \10.bmp
  clear @col
  ; 11
  drawfill @col 11 11 0 0
  drawsave @col $_ncc.dirc $+ \11.bmp
  clear @col
  ; 12
  drawfill @col 12 12 0 0
  drawsave @col $_ncc.dirc $+ \12.bmp
  clear @col
  ; 13
  drawfill @col 13 13 0 0
  drawsave @col $_ncc.dirc $+ \13.bmp
  clear @col
  ; 14
  drawfill @col 14 14 0 0
  drawsave @col $_ncc.dirc $+ \14.bmp
  clear @col
  ; 15
  drawfill @col 15 15 0 0
  drawsave @col $_ncc.dirc $+ \15.bmp
  clear @col
}
alias _ncc.dirc { return $shortfn($scriptdirc) }
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Интерфейс ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
dialog color {
  option pixel
  title "                                      Настройка интерфейса"
  size -1 -1 486 520
  icon 1, 10 23 15 13, 
  text "0" 91, 14 38 15 13
  icon 2, 30 23 15 13, 
  text "1" 92, 34 38 15 13
  icon 3, 50 23 15 13, 
  text "2"  93, 54 38 15 13
  icon 4, 70 23 15 13, 
  text "3"  94, 74 38 15 13
  icon 5, 90 23 15 13, 
  text "4" 95, 94 38 15 13
  icon 6, 110 23 15 13, 
  text "5" 96, 114 38 15 13
  icon 7, 130 23 15 13, 
  text "6" 97, 134 38 15 13
  icon 8, 150 23 15 13, 
  text "7" 98, 154 38 15 13
  icon 9, 170 23 15 13, 
  text "8" 99, 174 38 15 13
  icon 10, 190 23 15 13, 
  text "9" 100, 194 38 15 13
  icon 11, 210 23 15 13, 
  text "10" 101, 210 38 15 13
  icon 12, 230 23 15 13, 
  text "11" 102, 231 38 15 13
  icon 13, 250 23 15 13, 
  text "12" 103, 250 38 15 13
  icon 14, 270 23 15 13, 
  text "13" 104, 270 38 15 13
  icon 15, 290 23 15 13, 
  text "14" 105, 291 38 15 13
  icon 16, 310 23 15 13, 
  text "15" 106, 310 38 15 13
  edit %col_meramka,17,  15 128 20 20 ,
  text "«", 18 ,37 130 20 20, 
  edit %col_menick,19,  55 128 20 20 ,
  text "Ник »", 20 ,85 130 40 20, 
  edit %col_metext,21,  125 128 20 20 ,
  text "Ваш текст !!!", 22 ,155 130 100 20, 
  edit %col_ramka,23,  15 160 20 20 ,
  text "«", 24 ,37 162 20 20, 
  edit %col_nick,25,  55 160 20 20 ,
  text "Ник »", 26 ,85 162 40 20, 
  edit %col_text,27, 125 160 20 20 ,
  text "Текст юзера !!!", 28 ,155 162 80 16, 
  button "",45, 0 0 0 0 , Cancel
  box "",49, 10 74 308 47
  box "Текст",50, 3 0 329 193
  text "Символ:",51, 346 10 46 13
  edit %skinpref,52,345 30 130 22, autohs
  button "Применить",53, 349 60 123 22, flat
  icon 55, 349 92 123 22, Pics\skinpreview.bmp
  box "",56, 338 0 145 123
  box "",57, 338 125 145 68
  text "Список скинов:",58, 346 135 96 13
  combo 59, 346 160 130 350, drop
  box "",60, 8 13 319 41
  icon 62, 268 140 34 34, icons\inface.ico
  check "Активизировать цветовое оформление текста",63, 11 55 260 15, flat
  list 40, 403 490 78 20, edit 
  box "",500, 401 480 82 32
  box "Настройка надписей",600, 3 195 263 121
  text "Join Me" 609, 10 214 42 13 
  edit %ti_pripersia , 614, 52 212 202 20, autohs 
  edit %pripersia , 610, 52 237 202 20, autohs 
  text "Join" 613, 10 239 32 13
  text "Part" 616, 10 264 32 13 
  text "Quit" 617, 10 289 32 13 
  edit %vishel , 618, 52 262 202 20, autohs
  edit %svalil ,619, 52 287 202 20, autohs 
  edit "",703,279 215 198 20,autohs
  button "Сбросить",701,380 283 97 20, flat
  button "Применить",704,279 283 97 20, flat
  box "Настройка стиля часов",706,273 195 210 121
  box "Индивидуальный интерфейс", 900, 3 325 480 153
  text "Шрифт для всех окон:", 901, 23 337 126 16
  combo 902, 158 335 133 150, size drop
  combo 903, 296 335 47 200, size drop
  text "Иконки:", 904, 23 429 60 16
  combo 905, 158 424 133 300, size
  button "Пример", 906, 353 335 56 20
  button "Шрифты", 907, 23 358 56 20
  text "Цвет фона:", 908, 23 393 63 16
  combo 909, 158 390 133 109, size drop
  button "Применить индивидуальные настройки", 910, 107 448 270 25, flat 
  box "",707,273 265 210 51
  icon 708, 279 240 198 25, Pics\tspreview.bmp
}
on 1:dialog:color:init:*:{ 
  dll sys\dlls\colorcombo.dll COMBO $dname 909
  did -c $dname 909 %background2
  mdxload
  mdx SetControlMDX $dname 905 ComboBoxEx drop > $views
  did -i $dname 905 1 iconsize small
  loadicl
  mdx MarkDialog $dname $dialog($dname).hwnd
  mdx SetDialog $dname style 0 title
  mdx MarkDialog $dname
  mdx SetBorderStyle 40
  mdx SetControlMDX $dname 40 ToolBar list flat nodivider > sys\Dlls\bars.mdx
  mdx SetControlMDX $dname 40 statusbar > sys\Dlls\bars.mdx
  did -i $dname 40 1 bmpsize 16 16
  did -i $dname 40 1 setimage +nh icon small 6, $+ pics\phoenity.icl
  did -a $dname 40 +a 1 Закрыть $chr(9) $+ 
  ONwindow3 | refreshTEXT3 | ncc.set 
  did -gv $dname 1 $_ncc.dirc $+ \0.bmp
  did -gv $dname 2 $_ncc.dirc $+ \1.bmp
  did -gv $dname 3 $_ncc.dirc $+ \2.bmp
  did -gv $dname 4 $_ncc.dirc $+ \3.bmp
  did -gv $dname 5 $_ncc.dirc $+ \4.bmp
  did -gv $dname 6 $_ncc.dirc $+ \5.bmp
  did -gv $dname 7 $_ncc.dirc $+ \6.bmp
  did -gv $dname 8 $_ncc.dirc $+ \7.bmp
  did -gv $dname 9 $_ncc.dirc $+ \8.bmp
  did -gv $dname 10 $_ncc.dirc $+ \9.bmp
  did -gv $dname 11 $_ncc.dirc $+ \10.bmp
  did -gv $dname 12 $_ncc.dirc $+ \11.bmp
  did -gv $dname 13 $_ncc.dirc $+ \12.bmp
  did -gv $dname 14 $_ncc.dirc $+ \13.bmp
  did -gv $dname 15 $_ncc.dirc $+ \14.bmp
  did -gv $dname 16 $_ncc.dirc $+ \15.bmp
  if (%oformlenie == on) { did -c color 63 }
  skinprefpview 
  loadview
  did -a $dname 703 %stamp.style | tstampview
  did -i color 59,8 1 <Выбери скин>
  did -c color 59,8 1
  set %sk.i 0 | set %sk.n 1 
  :start 
  inc %sk.i 
  if ($findfile($mircdirImg,*.ini,%sk.n) == $null) { halt }
  did -i color 59 %sk.i $remove($nopath($findfile($mircdirImg,*.ini,%sk.n)),.ini)
  inc %sk.n 
  goto start
}
on *:dialog:color:edit:17,19,21,23,25,27: { refreshTEXT3 }
on *:DIALOG:color:sclick:906: { FontChoosPreview }
on *:DIALOG:color:sclick:907: { run sys\txt\fonts.txt }
on 1:dialog:color:sclick:*:{ 
  if ($did == 38) { 
    catalog
  }
  if ($did == 53) {
    set %skinpref $did($dname,52)
    skinprefpview
  }
  if ($did == 59) {
    if ($me) {
      %ActivSkinName = $did(59) | set %skinnumb $did(color,59).sel | %skin_file_name = $findfile($mircdirImg,*.ini,%skinnumb)
      if (%skinnumb == %sk.i) { halt }
      else {
        .play -c $me $shortfn(%skin_file_name) 0
        if $window(@waci) { waci }
      }
    }
  }
  if ($did == 63) {
    if ($did(63).state == 0) { set %oformlenie off }
    else  { set %oformlenie on } 
  }
  if ($did == 45) {
    windowOFF3 
    if ($window(@[catalog]) != $null) { window -cdk[0]  @[catalog] 90 80 290 390 }
    dialog -c color
  } 
  if ($did == 40) {
    set %col_meramka $did(color,17).text
    set %col_menick $did(color,19).text
    set %col_metext $did(color,21).text
    set %col_ramka $did(color,23).text
    set %col_nick $did(color,25).text
    set %col_text $did(color,27).text
    set %pripersia $did(color,610).text 
    set %ti_pripersia $did(color,614).text 
    set %vishel $did(color,618).text 
    set %svalil $did(color,619).text 
    if ($window(@[catalog]) != $null) { window -cdk[0]  @[catalog] 90 80 290 390  }
    windowOFF3 | window -c @col | dialog -c color
  }
  if ($did == 704) { 
    set %stamp.style $did($dname,703)
    tstampview | gstart
  }
  if ($did == 702) { .timestamp -fg %stamp.style }
  if ($did == 701) {
    set %stamp.style [HH:nn:ss]
    did -r $dname 703
    did -a $dname 703 %stamp.style
    tstampview
  }
  if ($did == 910) {
    set %font $did(color,902).seltext
    set %fontsize $did(color,903).seltext
    set %icons $gettok($did($dname,905).seltext,5,32)
    set %background2 ($dname,909).sel
    if ($did($dname,909).sel) { set %background $calc($did($dname,909).sel - 2) }
    colour background %background
    colour listbox %background
    colour editbox %background
    colour inactive %background
    iconsset
    fontset
  }
}
alias FontChoosPreview {
  if ($window(@FontPreview) == $null) window -ak0 @FontPreview $did(color,902).seltext $Font_(0,$did(color,903).seltext) | else { window -c @FontPreview | window -ak0 @FontPreview $did(color,902).seltext $Font_(0,$did(color,903).seltext) }
  inc %FontPrevFile 1 | if (%FontPrevFile == 8) { %FontPrevFile = 1 } | var %FontPrevFile = sys\txt\fontpre.txt | %FontPrevIniItem = 0 | %FontPrevLines = $lines(%FontPrevFile) + 1
  :next | inc %FontPrevIniItem 1 | if (%FontPrevIniItem > %FontPrevLines) { %FontPrevIniItem = 0 | halt } | if ($read -l $+ %FontPrevIniItem %FontPrevFile == $null) goto next | echo @FontPreview $read -l $+ %FontPrevIniItem %FontPrevFile | goto next
}
menu @FontPreview {
  Закрыть:/close -@FontPreview
}
alias loadview {
  did -r $dname 902,903
  var %q = 1 
  while (%q <= $lines(sys\txt\fonts.txt)) {
    did -i $dname 902 %q $read(sys\txt\fonts.txt,%q)
    inc %q
  }
  var %d $dname
  did -a %d 903 6
  did -a %d 903 7
  did -a %d 903 8
  did -a %d 903 9
  did -a %d 903 10
  did -a %d 903 11
  did -a %d 903 12
  did -a %d 903 13
  did -a %d 903 14
  did -a %d 903 15
  did -a %d 903 16
  var %t = 1 
  while (%t <= $lines(sys\txt\fonts.txt)) {
    if ($read(sys\txt\fonts.txt,%t) == %font) { did -c $dname 902 %t | break }
    inc %t
  }
  did -c $dname 903 $calc(%fontsize - 5)
}
alias loadicl {
  var %i = 1
  while ($finddir(Sys\icons\,*,%i,1)) {
    var %founddir = $replace($finddir(sys\icons\,*,%i,1),$mircdir,$null)
    did -i $dname 905 1 seticon 0 0, $+ %founddir $+ \ $+ 1.ico
    did -i $dname 905 $calc(%i + 1) %i %i %i 0 $replace(%founddir,sys\icons\,$null)
    inc %i
  }

  var %i = 2
  while (%i <= $did($dname,905).lines) {
    if ($gettok($did($dname,905,%i),5,32) == %icons) {
      did -c $dname 905 %i
    }
    inc %i
  }
}

alias skinprefpview {
  if ($dialog(color)) {
    window -hp +f @skin.preview 0 0 262 45 | clear @skin.preview
    if ($isfile(skinpreviw.bmp)) { .remove skinpreviw.bmp }
    drawfill @skin.preview $color(background) $color(background) 0 0
    drawtext -pb @skin.preview $color(background) $color(background) Verdana 26 2 1 $chr(160) $time(%skinpref) $chr(160)
    drawsave @skin.preview Pics/skinpreview.bmp | window -c @skin.preview
    did -gv color 55 Pics/skinpreview.bmp
  }
}
alias refreshposition3 {  window $iif($dialog(color).active,-o,-u) @TEXTwindow $calc($dialog(color).x + 16) $calc($dialog(color).y + 105) 311 36 }
alias ONwindow3 {
  window -c @TEXTwindow
  window -hkdo +dL @TEXTwindow $calc($dialog(color).x + 16) $calc($dialog(color).y + 105) 311 36
  window -a @TEXTwindow
  .timerTEXTwindowposition -mo 0 250 refreshposition3 
}
alias refreshTEXT3 {
  clear @TEXTwindow
  if ($dialog(color) == color) { echo @TEXTwindow  $+ $did(color,17) $+ « $+ $did(color,19) $+ ваш ник $+  $+ $did(color,17) $+ » $+ $did(color,21) ваш текст | echo @TEXTwindow  $+ $did(color,23) $+ « $+ $did(color,25) $+ ник юзера $+  $+ $did(color,23) $+ » $+ $did(color,27) текст юзера }
} 
alias windowOFF3 { window -c @TEXTwindow | .timerTEXTwindowposition off }
alias tstampview {
  if ($dialog(color)) {
    window -hp +f @ts.preview 0 0 198 25 | clear @ts.preview
    if ($isfile(tspreviw.bmp)) { .remove tspreviw.bmp }
    drawfill @ts.preview $color(background) $color(background) 0 0
    drawtext -pb @ts.preview $color(background) $color(background) Verdana 11 2 2 $chr(160) $time(%stamp.style) $chr(160)
    drawsave @ts.preview Pics/tspreview.bmp | window -c @ts.preview
    did -gv color 708 Pics/tspreview.bmp
  }
}
alias g_color {
  if ($dialog(color) == color) {
    did -g color 1 1 $shortfn($scriptdirc\0.bmp)
    did -g color 2 1 $shortfn($scriptdirc\1.bmp)
    did -g color 3 1 $shortfn($scriptdirc\2.bmp)
    did -g color 4 1 $shortfn($scriptdirc\3.bmp)
    did -g color 5 1 $shortfn($scriptdirc\4.bmp)
    did -g color 6 1 $shortfn($scriptdirc\5.bmp)
    did -g color 7 1 $shortfn($scriptdirc\6.bmp)
    did -g color 8 1 $shortfn($scriptdirc\7.bmp)
    did -g color 9 1 $shortfn($scriptdirc\8.bmp)
    did -g color 10 1 $shortfn($scriptdirc\9.bmp)
    did -g color 11 1 $shortfn($scriptdirc\10.bmp)
    did -g color 12 1 $shortfn($scriptdirc\11.bmp)
    did -g color 13 1 $shortfn($scriptdirc\12.bmp)
    did -g color 14 1 $shortfn($scriptdirc\13.bmp)
    did -g color 15 1 $shortfn($scriptdirc\14.bmp)
    did -g color 16 1 $shortfn($scriptdirc\15.bmp)
  }
}
alias buat.war {
  set -u0 %i 1
  while (%i <= $chan(0)) {
    set -u0 %j 1
    while (%j <= $nick($chan(%i),0)) {
      if ($nick($chan(%i),%j) isreg $chan(%i)) { cline $`b.i.f(nicklist,reg) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isvo $chan(%i)) { cline $`b.i.f(nicklist,voice) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isop $chan(%i)) { cline $`b.i.f(nicklist,op) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) == $me) { cline $`b.i.f(nicklist,me) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isnotify) { cline $`b.i.f(nicklist,notify) $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan(%i) $nick($chan(%i),%j)) }
      inc %j
    }
    inc %i
  }
}
alias buat.war27 {
  set -u0 %i 1
  while (%i <= $chan(0)) {
    set -u0 %j 1
    while (%j <= $nick($chan(%i),0)) {
      if ($nick($chan(%i),%j) isreg $chan(%i)) { cline %nick.color.regular $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isvo $chan(%i)) { cline %nick.color.voice $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) ishop $chan(%i)) { cline %nick.color.hop $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) isop $chan(%i)) { cline %nick.color.op $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) == $me) { cline %nick.color.my $chan(%i) $nick($chan(%i),%j)) }
      if ($nick($chan(%i),%j) $+ !*@* isignore) { cline $`b.i.f(nicklist,ignore) $chan(%i) $nick($chan(%i),%j)) }
      inc %j
    }
    inc %i
  }
}
alias qolor {
  if ($isid) return $dll(" $+ $path(color.dll) $+ ",$1,$2-)
  else dll " $+ $path(color.dll) $+ " $1-
}
alias cambia.color {
  set -u0 %color $qolor(Color)
  if (%color != $false) {
    did -i fondo 1 1 setbkg none
    did -i fondo 1 1 setbkg color %color
    did -i $dname 1 1 page visual
    tokenize 32 $did(1,1).text
    set %ultimosdatos $3-5 $10-
  }
}
;###################################################################################################################
;########################################  Smiles  ###############################################################
;###################################################################################################################
alias smiles {
  if $dialog(smiles) = $null { dialog -m smiles smiles }
}
dialog smiles {
  title "Смайлики"
  size -1 -1 180 90
  option dbu
  edit "", 1, 5 5 85 10, read
  radio "Обычный", 2, 95 5 33 10
  radio "Разноцветный", 3, 130 5 47 10
  button ":-)", 4, 10 20 20 12
  button ";-)", 5, 30 20 20 12
  button ":-)))", 6, 50 20 20 12
  button ":-):-):-)", 7, 70 20 20 12
  button ":->", 8, 90 20 20 12
  button ":-,", 9, 110 20 20 12
  button ":-|", 10, 130 20 20 12
  button ">:-0", 11, 150 20 20 12
  ;---
  button ":-0", 12, 10 32 20 12
  button ":-/", 13, 30 32 20 12
  button ":-#", 14, 50 32 20 12
  button ":-(", 15, 70 32 20 12
  button ":-(((", 16, 90 32 20 12
  button ":-(:-(:-(", 17, 110 32 20 12
  button ">:-{", 18, 130 32 20 12
  button "=:-)", 19, 150 32 20 12
  ;---
  button ":-<", 20, 10 44 20 12
  button ":-E", 21, 30 44 20 12
  button "<-)", 22, 50 44 20 12
  button "<:-0", 23, 70 44 20 12
  button ":-X", 24, 90 44 20 12
  button ":-P", 25, 110 44 20 12
  button ":-{}", 26, 130 44 20 12
  button ":-@", 27, 150 44 20 12
  ;---
  button "(^_^)", 30, 10 56 20 12
  button "(>_<)", 31, 30 56 20 12
  button "(Т__T)", 32, 50 56 20 12
  button "(-_-)", 33, 70 56 20 12
  button "\(^o^)/", 34, 90 56 20 12
  button "(*^_^*)", 35, 110 56 20 12
  button "(p_-)", 36, 130 56 20 12
  button "(-_-)zzz", 37, 150 56 20 12
  ;---
  button "Закрыть", 28, 70 72 30 14, cancel
}
on *:dialog:smiles:*:*: {
  if ($devent == init) { did -c $dname 2 }
  if ($devent == sclick) {
    if ($did == 4) && ($did($dname,2).state) { did -ra $dname 1 Юмор | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-) | editbox -a %editbox.text }
    if ($did == 4) && ($did($dname,3).state) { did -ra $dname 1 Юмор | set %smile.color :-) | smilecolor }
    if ($did == 5) && ($did($dname,2).state) { did -ra $dname 1 Подмигивание одним глазом | set %editbox $editbox($active) | set %editbox.text %editbox $+ ;-) | editbox -a %editbox.text }
    if ($did == 5) && ($did($dname,3).state) { did -ra $dname 1 Подмигивание одним глазом | set %smile.color ;-) | smilecolor }
    if ($did == 6) && ($did($dname,2).state) { did -ra $dname 1 Смех | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-))) | editbox -a %editbox.text }
    if ($did == 6) && ($did($dname,3).state) { did -ra $dname 1 Смех | set %smile.color :-))) | smilecolor }
    if ($did == 7) && ($did($dname,2).state) { did -ra $dname 1 Громкий смех | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-):-):-) | editbox -a %editbox.text }
    if ($did == 7) && ($did($dname,3).state) { did -ra $dname 1 Громкий смех | set %smile.color :-):-):-) | smilecolor }
    if ($did == 8) && ($did($dname,2).state) { did -ra $dname 1 Сарказм | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-> | editbox -a %editbox.text }
    if ($did == 8) && ($did($dname,3).state) { did -ra $dname 1 Сарказм | set %smile.color :-> | smilecolor }
    if ($did == 9) && ($did($dname,2).state) { did -ra $dname 1 Ухмылка | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-, | editbox -a %editbox.text }
    if ($did == 9) && ($did($dname,3).state) { did -ra $dname 1 Ухмылка | set %smile.color :-, | smilecolor }
    if ($did == 10) && ($did($dname,2).state) { did -ra $dname 1 Серьезность | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-| | editbox -a %editbox.text }
    if ($did == 10) && ($did($dname,3).state) { did -ra $dname 1 Серьезность | set %smile.color :-| | smilecolor }
    if ($did == 11) && ($did($dname,2).state) { did -ra $dname 1 Злоба | set %editbox $editbox($active) | set %editbox.text %editbox $+ >:-0 | editbox -a %editbox.text }
    if ($did == 11) && ($did($dname,3).state) { did -ra $dname 1 Злоба | set %smile.color >:-0 | smilecolor }
    ;---
    if ($did == 12) && ($did($dname,2).state) { did -ra $dname 1 Крик | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-0 | editbox -a %editbox.text }
    if ($did == 12) && ($did($dname,3).state) { did -ra $dname 1 Крик | set %smile.color :-0 | smilecolor }
    if ($did == 13) && ($did($dname,2).state) { did -ra $dname 1 Скептически настроен | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-/ | editbox -a %editbox.text }
    if ($did == 13) && ($did($dname,3).state) { did -ra $dname 1 Скептически настроен | set %smile.color :-/ | smilecolor }
    if ($did == 14) && ($did($dname,2).state) { did -ra $dname 1 Молчание | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-# | editbox -a %editbox.text }
    if ($did == 14) && ($did($dname,3).state) { did -ra $dname 1 Молчание | set %smile.color :-# | smilecolor }
    if ($did == 15) && ($did($dname,2).state) { did -ra $dname 1 Грусть | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-( | editbox -a %editbox.text }
    if ($did == 15) && ($did($dname,3).state) { did -ra $dname 1 Грусть | set %smile.color :-( | smilecolor }
    if ($did == 16) && ($did($dname,2).state) { did -ra $dname 1 Печаль | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-((( | editbox -a %editbox.text }
    if ($did == 16) && ($did($dname,3).state) { did -ra $dname 1 Печаль | set %smile.color :-((( | smilecolor }
    if ($did == 17) && ($did($dname,2).state) { did -ra $dname 1 Огромная печаль | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-(:-(:-( | editbox -a %editbox.text }
    if ($did == 17) && ($did($dname,3).state) { did -ra $dname 1 Огромная печаль | set %smile.color :-(:-(:-( | smilecolor }
    if ($did == 18) && ($did($dname,2).state) { did -ra $dname 1 Граф Дракула, вампир | set %editbox $editbox($active) | set %editbox.text %editbox $+ >:-{ | editbox -a %editbox.text }
    if ($did == 18) && ($did($dname,3).state) { did -ra $dname 1 Граф Дракула, вампир | set %smile.color >:-{ | smilecolor }
    if ($did == 19) && ($did($dname,2).state) { did -ra $dname 1 Панк | set %editbox $editbox($active) | set %editbox.text %editbox $+ =:-) | editbox -a %editbox.text }
    if ($did == 19) && ($did($dname,3).state) { did -ra $dname 1 Панк | set %smile.color =:-) | smilecolor }
    ;---
    if ($did == 20) && ($did($dname,2).state) { did -ra $dname 1 Позабытый | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-< | editbox -a %editbox.text }
    if ($did == 20) && ($did($dname,3).state) { did -ra $dname 1 Позабытый | set %smile.color :-< | smilecolor }
    if ($did == 21) && ($did($dname,2).state) { did -ra $dname 1 Оскал | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-E | editbox -a %editbox.text }
    if ($did == 21) && ($did($dname,3).state) { did -ra $dname 1 Оскал | set %smile.color :-E | smilecolor }
    if ($did == 22) && ($did($dname,2).state) { did -ra $dname 1 Подмигивание двумя глазами | set %editbox $editbox($active) | set %editbox.text %editbox $+ <-) | editbox -a %editbox.text }
    if ($did == 22) && ($did($dname,3).state) { did -ra $dname 1 Подмигивание двумя глазами | set %smile.color <-) | smilecolor }
    if ($did == 23) && ($did($dname,2).state) { did -ra $dname 1 Ииик | set %editbox $editbox($active) | set %editbox.text %editbox $+ <:-0 | editbox -a %editbox.text }
    if ($did == 23) && ($did($dname,3).state) { did -ra $dname 1 Ииик | set %smile.color <:-0 | smilecolor }
    if ($did == 24) && ($did($dname,2).state) { did -ra $dname 1 Поцелуй | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-X | editbox -a %editbox.text }
    if ($did == 24) && ($did($dname,3).state) { did -ra $dname 1 Поцелуй | set %smile.color :-X | smilecolor }
    if ($did == 25) && ($did($dname,2).state) { did -ra $dname 1 Высунул язык | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-P | editbox -a %editbox.text }
    if ($did == 25) && ($did($dname,3).state) { did -ra $dname 1 Высунул язык | set %smile.color :-P | smilecolor }
    if ($did == 26) && ($did($dname,2).state) { did -ra $dname 1 Женские губы | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-{} | editbox -a %editbox.text }
    if ($did == 26) && ($did($dname,3).state) { did -ra $dname 1 Женские губы | set %smile.color :-{} | smilecolor }
    if ($did == 27) && ($did($dname,2).state) { did -ra $dname 1 Крикун | set %editbox $editbox($active) | set %editbox.text %editbox $+ :-@ | editbox -a %editbox.text }
    if ($did == 27) && ($did($dname,3).state) { did -ra $dname 1 Крикун | set %smile.color :-@ | smilecolor }
    ;---
    if ($did == 30) && ($did($dname,2).state) { did -ra $dname 1 Улыбка | set %editbox $editbox($active) | set %editbox.text %editbox $+ (^_^) | editbox -a %editbox.text }
    if ($did == 30) && ($did($dname,3).state) { did -ra $dname 1 Улыбка | set %smile.color (^_^) | smilecolor }
    if ($did == 31) && ($did($dname,2).state) { did -ra $dname 1 Ой! | set %editbox $editbox($active) | set %editbox.text %editbox $+ (>_<) | editbox -a %editbox.text }
    if ($did == 31) && ($did($dname,3).state) { did -ra $dname 1 Ой! | set %smile.color (>_<) | smilecolor }
    if ($did == 32) && ($did($dname,2).state) { did -ra $dname 1 Плачь | set %editbox $editbox($active) | set %editbox.text %editbox $+ (Т__T) | editbox -a %editbox.text }
    if ($did == 32) && ($did($dname,3).state) { did -ra $dname 1 Плачь | set %smile.color (Т__T) | smilecolor }
    if ($did == 33) && ($did($dname,2).state) { did -ra $dname 1 Недоволен | set %editbox $editbox($active) | set %editbox.text %editbox $+ (-_-) | editbox -a %editbox.text }
    if ($did == 33) && ($did($dname,3).state) { did -ra $dname 1 Недоволен | set %smile.color (-_-) | smilecolor }
    if ($did == 34) && ($did($dname,2).state) { did -ra $dname 1 Вау! | set %editbox $editbox($active) | set %editbox.text %editbox $+ \(^o^)/ | editbox -a %editbox.text }
    if ($did == 34) && ($did($dname,3).state) { did -ra $dname 1 Вау! | set %smile.color \(^o^)/ | smilecolor }
    if ($did == 35) && ($did($dname,2).state) { did -ra $dname 1 Улыбается и краснеет | set %editbox $editbox($active) | set %editbox.text %editbox $+ (*^_^*) | editbox -a %editbox.text }
    if ($did == 35) && ($did($dname,3).state) { did -ra $dname 1 Улыбается и краснеет | set %smile.color (*^_^*) | smilecolor }
    if ($did == 36) && ($did($dname,2).state) { did -ra $dname 1 Подозрительно всматривается | set %editbox $editbox($active) | set %editbox.text %editbox $+ (p_-) | editbox -a %editbox.text }
    if ($did == 36) && ($did($dname,3).state) { did -ra $dname 1 Подозрительно всматривается | set %smile.color (p_-) | smilecolor }
    if ($did == 37) && ($did($dname,2).state) { did -ra $dname 1 Спит | set %editbox $editbox($active) | set %editbox.text %editbox $+ (-_-)zzz | editbox -a %editbox.text }
    if ($did == 37) && ($did($dname,3).state) { did -ra $dname 1 Спит | set %smile.color (-_-)zzz | smilecolor }
    ;---
  }
}
alias smilecolor { set %i 1
  set %message.smile $editbox($active)
  while (%i <= $len(%smile.color)) {
    set %message.smile %message.smile $+ $chr(3) $+ $rand(0,14) $+ $chr(44) $+ 15 $+ $mid(%smile.color,%i,1) $+  
    inc %i
  }
  editbox -a %message.smile
  unset %message.smile
  unset %i
  ; unset %smile.color
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Виртуальная клавиатура ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias virtkeyboard {
  if $dialog(virtkeyboard) = $null { dialog -m virtkeyboard virtkeyboard }
}
dialog virtkeyboard {
  title "Виртуальная клавиатура"
  size -1 -1 251 140
  option dbu
  icon $mircdiricons/keyboard.ico, 0
  box "Текст", 1, 5 5 195 35
  edit "", 2, 10 15 185 20, multi, autohs, hsbar
  tab "Русский", 3 , 50 45 150 85
  tab "Английский", 4
  box "Символы", 6, 5 48 38 90
  box "Алфавит", 5, 55 60 140 60
  box "Цифры", 7, 206 61 40 60
  ;------< Алфавит Русский >------
  button "Й", 10, 60 70 10 10, tab 3
  button "Ц", 11, 71 70 10 10, tab 3
  button "У", 12, 82 70 10 10, tab 3
  button "К", 13, 93 70 10 10, tab 3
  button "Е", 14, 104 70 10 10, tab 3
  button "Н", 15, 115 70 10 10, tab 3
  button "Г", 16, 126 70 10 10, tab 3
  button "Ш", 17, 137 70 10 10, tab 3
  button "Щ", 18, 148 70 10 10, tab 3
  button "З", 19, 159 70 10 10, tab 3
  button "Х", 20, 170 70 10 10, tab 3
  button "Ъ", 21, 181 70 10 10, tab 3
  button "Ф", 22, 63 81 10 10, tab 3
  button "Ы", 23, 74 81 10 10, tab 3
  button "В", 24, 85 81 10 10, tab 3
  button "А", 25, 96 81 10 10, tab 3
  button "П", 26, 107 81 10 10, tab 3
  button "Р", 27, 118 81 10 10, tab 3
  button "О", 28, 129 81 10 10, tab 3
  button "Л", 29, 140 81 10 10, tab 3
  button "Д", 30, 151 81 10 10, tab 3
  button "Ж", 31, 162 81 10 10, tab 3
  button "Э", 32, 173 81 10 10, tab 3
  button "Я", 33, 66 92 10 10, tab 3
  button "Ч", 34, 77 92 10 10, tab 3
  button "С", 35, 88 92 10 10, tab 3
  button "М", 36, 99 92 10 10, tab 3
  button "И", 37, 110 92 10 10, tab 3
  button "Т", 38, 121 92 10 10, tab 3
  button "Ь", 39, 132 92 10 10, tab 3
  button "Б", 40, 143 92 10 10, tab 3
  button "Ю", 41, 154 92 10 10, tab 3
  ;------< Алфавит Английский >------
  button "Q", 42, 60 70 10 10, tab 4
  button "W", 43, 71 70 10 10, tab 4
  button "E", 44, 82 70 10 10, tab 4
  button "R", 45, 93 70 10 10, tab 4
  button "T", 46, 104 70 10 10, tab 4
  button "Y", 47, 115 70 10 10, tab 4
  button "U", 48, 126 70 10 10, tab 4
  button "I", 49, 137 70 10 10, tab 4
  button "O", 50, 148 70 10 10, tab 4
  button "P", 51, 159 70 10 10, tab 4
  button "A", 52, 63 81 10 10, tab 4
  button "S", 53, 74 81 10 10, tab 4
  button "D", 54, 85 81 10 10, tab 4
  button "F", 55, 96 81 10 10, tab 4
  button "G", 56, 107 81 10 10, tab 4
  button "H", 57, 118 81 10 10, tab 4
  button "J", 58, 129 81 10 10, tab 4
  button "K", 59, 140 81 10 10, tab 4
  button "L", 60, 151 81 10 10, tab 4
  button "Z", 61, 66 92 10 10, tab 4
  button "X", 62, 77 92 10 10, tab 4
  button "C", 63, 88 92 10 10, tab 4
  button "V", 64, 99 92 10 10, tab 4
  button "B", 65, 110 92 10 10, tab 4
  button "N", 66, 121 92 10 10, tab 4
  button "M", 67, 132 92 10 10, tab 4
  ;------< Функциональные клавиши >------
  button "!", 68, 8 58 10 10, 
  button "?", 69, 19 58 10 10, 
  button " # ", 70, 30 58 10 10, 
  button "$", 71, 8 69 10 10, 
  button "%", 72, 19 69 10 10, 
  button " ^ ", 73, 30 69 10 10, 
  button "*", 74, 8 80 10 10, 
  button "№", 75, 19 80 10 10, 
  button "|", 76, 30 80 10 10, 
  button ":", 77, 8 91 10 10, 
  button ";", 78, 19 91 10 10, 
  button ".", 79, 30 91 10 10, 
  button "(", 80, 8 102 10 10, 
  button ")", 81, 19 102 10 10, 
  button ",", 82, 30 102 10 10, 
  button "[", 83, 8 113 10 10, 
  button "]", 84, 19 113 10 10, 
  button "~", 85, 30 113 10 10, 
  button "/", 86, 8 124 10 10, 
  button "@", 87, 19 124 10 10, 
  button "\", 88, 30 124 10 10, 
  ;------< Калькулятор >------
  button "-", 89, 210 70 10 10, 
  button "+", 90, 221 70 10 10, 
  button "=", 91, 232 70 10 10, 
  button "7", 92, 210 85 10 10, 
  button "8", 93, 221 85 10 10, 
  button "9", 94, 232 85 10 10, 
  button "4", 95, 210 96 10 10, 
  button "5", 96, 221 96 10 10, 
  button "6", 97, 232 96 10 10, 
  button "1", 98, 210 107 10 10, 
  button "2", 99, 221 107 10 10, 
  button "3", 100, 232 107 10 10, 
  ;------< Дополнительно >------
  button "Послать", 101, 210 8 30 13
  button "?", 102, 220 24 10 10
  button "Очистить", 103, 210 36 30 10
  check "Капс", 104, 165 92 20 10, push
  button "Пробел", 105, 85 105 80 10
}
on *:dialog:virtkeyboard:*:*: {
  if ($devent == sclick) { 
    ;------< Алфавит Русский >------
    if ($did == 10) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(233) }
    if ($did == 10) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(201) }
    if ($did == 11) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(246) }
    if ($did == 11) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(214) }
    if ($did == 12) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(243) }
    if ($did == 12) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(211) }
    if ($did == 13) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(234) }
    if ($did == 13) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(202) }
    if ($did == 14) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(229) }
    if ($did == 14) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(197) }
    if ($did == 15) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(237) }
    if ($did == 15) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(205) }
    if ($did == 16) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(227) }
    if ($did == 16) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(195) }
    if ($did == 17) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(248) }
    if ($did == 17) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(216) }
    if ($did == 18) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(249) }
    if ($did == 18) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(217) }
    if ($did == 19) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(231) }
    if ($did == 19) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(199) }
    if ($did == 20) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(245) }
    if ($did == 20) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(213) }
    if ($did == 21) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(250) }
    if ($did == 21) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(218) }
    if ($did == 22) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(244) }
    if ($did == 22) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(212) }
    if ($did == 23) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(251) }
    if ($did == 23) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(219) }
    if ($did == 24) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(226) }
    if ($did == 24) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(194) }
    if ($did == 25) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(224) }
    if ($did == 25) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(192) }
    if ($did == 26) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(239) }
    if ($did == 26) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(207) }
    if ($did == 27) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(240) }
    if ($did == 27) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(208) }
    if ($did == 28) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(238) }
    if ($did == 28) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(206) }
    if ($did == 29) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(235) }
    if ($did == 29) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(203) }
    if ($did == 30) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(228) }
    if ($did == 30) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(196) }
    if ($did == 31) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(230) }
    if ($did == 31) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(198) }
    if ($did == 32) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(253) }
    if ($did == 32) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(221) }
    if ($did == 33) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(255) }
    if ($did == 33) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(223) }
    if ($did == 34) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(247) }
    if ($did == 34) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(215) }
    if ($did == 35) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(241) }
    if ($did == 35) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(209) }
    if ($did == 36) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(236) }
    if ($did == 36) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(204) }
    if ($did == 37) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(232) }
    if ($did == 37) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(200) }
    if ($did == 38) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(242) }
    if ($did == 38) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(210) }
    if ($did == 39) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(252) }
    if ($did == 39) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(220) }
    if ($did == 40) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(225) }
    if ($did == 40) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(193) }
    if ($did == 41) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(254) }
    if ($did == 41) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(222) }
    ;------< Алфавит Английский >------
    if ($did == 42) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(113) }
    if ($did == 42) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(81) }
    if ($did == 43) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(119) }
    if ($did == 43) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(87) }
    if ($did == 44) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(101) }
    if ($did == 44) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(69) }
    if ($did == 45) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(114) }
    if ($did == 45) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(82) }
    if ($did == 46) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(116) }
    if ($did == 46) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(84) }
    if ($did == 47) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(121) }
    if ($did == 47) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(89) }
    if ($did == 48) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(117) }
    if ($did == 48) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(85) }
    if ($did == 49) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(105) }
    if ($did == 49) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(73) }
    if ($did == 50) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(111) }
    if ($did == 50) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(79) }
    if ($did == 51) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(112) }
    if ($did == 51) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(80) }
    if ($did == 52) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(97) }
    if ($did == 52) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(65) }
    if ($did == 53) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(115) }
    if ($did == 53) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(83) }
    if ($did == 54) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(100) }
    if ($did == 54) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(68) }
    if ($did == 55) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(102) }
    if ($did == 55) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(70) }
    if ($did == 56) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(103) }
    if ($did == 56) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(71) }
    if ($did == 57) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(104) }
    if ($did == 57) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(72) }
    if ($did == 58) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(106) }
    if ($did == 58) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(74) }
    if ($did == 59) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(107) }
    if ($did == 59) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(75) }
    if ($did == 60) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(108) }
    if ($did == 60) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(76) }
    if ($did == 61) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(122) }
    if ($did == 61) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(90) }
    if ($did == 62) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(120) }
    if ($did == 62) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(88) }
    if ($did == 63) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(99) }
    if ($did == 63) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(67) }
    if ($did == 64) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(118) }
    if ($did == 64) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(86) }
    if ($did == 65) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(98) }
    if ($did == 65) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(66) }
    if ($did == 66) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(110) }
    if ($did == 66) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(78) }
    if ($did == 67) && ($did($dname,104).state == 0) { did -a $dname 2 $chr(109) }
    if ($did == 67) && ($did($dname,104).state == 1) { did -a $dname 2 $chr(77) }
    ;------< Функциональные клавиши >------
    if ($did == 68) { did -a $dname 2 $chr(33) }
    if ($did == 69) { did -a $dname 2 $chr(63) }
    if ($did == 70) { did -a $dname 2 $chr(35) }
    if ($did == 71) { did -a $dname 2 $chr(36) }
    if ($did == 72) { did -a $dname 2 $chr(37) }
    if ($did == 73) { did -a $dname 2 $chr(94) }
    if ($did == 74) { did -a $dname 2 $chr(42) }
    if ($did == 75) { did -a $dname 2 $chr(185) }
    if ($did == 76) { did -a $dname 2 $chr(124) }
    if ($did == 77) { did -a $dname 2 $chr(58) }
    if ($did == 78) { did -a $dname 2 $chr(59) }
    if ($did == 79) { did -a $dname 2 $chr(46) }
    if ($did == 80) { did -a $dname 2 $chr(40) }
    if ($did == 81) { did -a $dname 2 $chr(41) }
    if ($did == 82) { did -a $dname 2 $chr(44) }
    if ($did == 83) { did -a $dname 2 $chr(91) }
    if ($did == 84) { did -a $dname 2 $chr(93) }
    if ($did == 85) { did -a $dname 2 $chr(126) }
    if ($did == 86) { did -a $dname 2 $chr(47) }
    if ($did == 87) { did -a $dname 2 $chr(64) }
    if ($did == 88) { did -a $dname 2 $chr(92) }
    ;------< Калькулятор >------
    if ($did == 89) { did -a $dname 2 $chr(45) }
    if ($did == 90) { did -a $dname 2 $chr(43) }
    if ($did == 91) { did -a $dname 2 $chr(61) }
    if ($did == 92) { did -a $dname 2 $chr(55) }
    if ($did == 93) { did -a $dname 2 $chr(56) }
    if ($did == 94) { did -a $dname 2 $chr(57) }
    if ($did == 95) { did -a $dname 2 $chr(52) }
    if ($did == 96) { did -a $dname 2 $chr(53) }
    if ($did == 97) { did -a $dname 2 $chr(54) }
    if ($did == 98) { did -a $dname 2 $chr(49) }
    if ($did == 99) { did -a $dname 2 $chr(50) }
    if ($did == 100) { did -a $dname 2 $chr(51) }
  }
  if ($devent == sclick) { 
    if ($did == 103) { did -r $dname 2 }
    if ($did == 101) && ($did($dname,2).edited) && ($server) { 
      /msg $active $did($dname,2).text | did -r $dname 2 
    }
    if ($did == 102) { virtkeyhelp }
    if ($did == 105) { did -a $dname 2 $chr(160) }
  }
}
alias virtkeyhelp {
  if $dialog(virtkeyhelp) = $null { dialog -m virtkeyhelp virtkeyhelp }
}
dialog virtkeyhelp {
  title "Помощь"
  size -1 -1 95 50
  option dbu
  text "Для удаления или копирования текста, выделите его, нажмите правую кнопку мыши и выберите действие", 1, 5 5 90 30
  button "OK", 2, 33 35 30 10, ok
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Управление сервисами ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias service if (!$dialog(service)) dialog -m service service | else { dialog -x service | dialog -m service service }
dialog service {
  title "Сервисы [Narkoman's Script] by _TRANE_"
  size -1 -1 373 261
  option pixels
  icon $mircdiricons/services.ico, 0
  tab NickServ, 10, 1 -2 377 269
  box "NickServ", 2, 3 21 370 220, tab 10
  link "Narkoo-Forever", 8, 9 244 121 16, tab 10
  text "Narkoman's Script v3.5", 11, 226 244 137 16, tab 10
  icon 32, 14 183 342 42,  $mircdirpictures\nickserv.bmp, 0, tab 10
  button "Регистрaция", 34, 9 37 75 25, tab 10 flat
  button "Идентифaй", 35, 9 71 75 25, tab 10 flat
  button "Сбросить", 36, 93 37 75 25, tab 10 flat
  button "Линковaть", 37, 177 37 75 25, tab 10 flat
  button "Отлинковaть", 38, 262 37 75 25, tab 10 flat
  button "Возврaт Никa", 39, 92 71 75 25, tab 10 flat
  button "Мой Ник", 40, 177 71 75 25, tab 10 flat
  button "Инфо", 41, 262 71 75 25, tab 10 flat
  button "Список Моих Линк Ников", 42, 30 155 138 25, tab 10 flat
  button "Список Моих Кaнaлов", 43, 207 155 138 25, tab 10 flat
  box "", 44, 5 94 367 27, tab 10
  text "-=УСТAНОВКИ=-", 45, 137 102 86 16, tab 10
  button "Зaщитa Никa", 46, 10 124 78 25, tab 10 flat
  button "Инфо О Себе", 47, 91 124 75 25, tab 10 flat multi
  button "e-mail", 48, 175 124 75 25, tab 10 flat multi
  button "URL", 49, 262 124 75 25, tab 10 flat multi
  tab "ChanServ", 5
  box "ChanServ", 3, 3 21 370 220, tab 5
  edit "#", 6, 267 31 100 21, tab 5 autohs center
  box "", 7, 262 22 109 35, tab 5
  button "Регистрaция", 12, 7 36 75 25, tab 5 flat multi
  button "Идентификaция", 13, 87 36 88 25, tab 5 flat multi
  button "Сбросить", 14, 179 36 75 25, tab 5 flat multi
  button "Secure", 15, 8 66 75 25, tab 5 flat multi
  button "Топик", 16, 88 66 75 25, tab 5 flat multi
  button "Aкксесс", 17, 167 66 75 25, tab 5 flat multi
  button "Снять акики", 58, 246 66 88 25, tab 5 flat multi
  box "", 18, 5 90 367 28, tab 5
  button "MLock", 19, 6 123 75 25, tab 5 flat multi
  button "TopicLock", 20, 87 123 75 25, tab 5 flat multi
  text "-=УСТAНОВКИ=-", 21, 131 99 86 16, tab 5 center
  button "Фaундер", 22, 166 123 75 25, tab 5 flat multi
  button "Описaние", 23, 246 123 75 25, tab 5 flat multi
  button "Е-Mail", 24, 7 153 75 25, tab 5 flat multi
  button "Пaроль", 25, 86 153 75 25, tab 5 flat multi
  button "Приветствие", 26, 166 153 75 25, tab 5 flat multi
  button "Chan.URL", 27, 246 153 75 25, tab 5 flat multi
  link "Narkoo-Forever", 28, 9 244 121 16, tab 5
  text "Narkoman's Script v3.5", 29, 226 244 137 16, tab 5
  icon 31, 14 183 342 42,  $mircdirpictures\chanserv.bmp, 2, tab 5
  tab "MemoServ", 1
  box "MemoServ", 4, 2 19 371 220, tab 1
  link "Narkoo-Forever", 9, 9 244 121 16, tab 1
  text "Narkoman's Script v3.5", 30, 226 244 137 16, tab 1
  icon 33, 14 183 342 42,  $mircdirpictures\memoserv.bmp, 0, tab 1
  button "Послaть", 50, 7 37 75 25, tab 1 flat multi
  button "читaть", 51, 87 37 75 25, tab 1 flat multi
  button "Стереть", 52, 168 37 75 25, tab 1 flat multi
  button "Лист", 54, 7 69 75 25, tab 1 flat multi
  button "Удaл.Все", 56, 87 69 75 25, tab 1 flat multi
  button "читaть последн.", 57, 168 69 75 25, tab 1 flat multi
  button "Info", 53, 250 37 75 25, tab 1 flat
  button "Удaл.Игнор", 55, 250 69 75 25, tab 1 flat
}
*:dialog:service:init:*: {
  if %schan != $null { did -o service 6 1 %schan }
}
on *:dialog:service:sclick:14: { /set %schan $did(service,6) | /cs identify %schan $$?*"Введите Пaроль Кaнaлa:" | /cs drop %schan }
on *:dialog:service:sclick:15: { /set %schan $did(service,6) | /cs set %schan secure $$?"On / Off" }
on *:dialog:service:sclick:16: { /set %schan $did(service,6) | /topic %schan $$?"Введите Вaшь Топик" }
on *:dialog:service:sclick:17: { /set %schan $did(service,6) | /cs access %schan list }
on *:dialog:service:sclick:19: { /set %schan $did(service,6) | /cs set %schan mlock $$?" e.g +ntp" }
on *:dialog:service:sclick:20: { /set %schan $did(service,6) | /cs set %schan topiclock $$?"On / Off" }
on *:dialog:service:sclick:22: { /set %schan $did(service,6) | /cs set %schan founder $$?"Nick" }
on *:dialog:service:sclick:23: { /set %schan $did(service,6) | /cs set %schan desc $$?"Введите новое Описaние Кaнaлa" }
on *:dialog:service:sclick:24: { /set %schan $did(service,6) | /cs set %schan email $$?"e-mail" }
on *:dialog:service:sclick:25: { /set %schan $did(service,6) | /cs set %schan password $$?"Password" }
on *:dialog:service:sclick:26: { /set %schan $did(service,6) | /cs set %schan entrymsg $$?"Введите Приветствия" }
on *:dialog:service:sclick:27: { /set %schan $did(service,6) | /cs set %schan url $$?"Введите Aддресс Кaнaлa в Интэрнете" }
on *:dialog:service:sclick:34: { /ns register $$?*"Введите Пaроль" $$?"Введите e-mail" }
on *:dialog:service:sclick:35: { /ns identify $$?*"Введите Пaроль" }
on *:dialog:service:sclick:36: { if ( $$?!="Вы Уверены ?" == $true)/msg nickserv drop $$?*"Введите Пaроль" } 
on *:dialog:service:sclick:37: { /ns link $$?"Введите Ник Который хотите слинковaть с вaшим" }
on *:dialog:service:sclick:38: { /ns unlink $$?"Введите Ник Который хотите отлинковaть от вaшего." }
on *:dialog:service:sclick:39: { /ns ghost  $$?"Введите Ник" $$?*"Введите Пaроль" } 
on *:dialog:service:sclick:40: { /ns set mainnick $$?"Введите Ник Который будет использовaтся access в листaх и т.д" }
on *:dialog:service:sclick:41: { /ns info $$?"Введите ник о котором хотите посмотреть Инфу." } 
on *:dialog:service:sclick:42 { /ns listlinks }
on *:dialog:service:sclick:43 { /ns listchans }
on *:dialog:service:sclick:46 { /ns set kill $$?"On или Off" }
on *:dialog:service:sclick:47: { /ns set info $$?"Введи Инфу О Себе" }
on *:dialog:service:sclick:48: { /ns set email $$?"Введи Свой E-Mail" }
on *:dialog:service:sclick:49: { /ns set url $$?"Введи Свой URL" }
on *:dialog:service:sclick:50: { /ms send $$?"Введите Ник Получaтеля." $$?"Введите Текст Вaшего Письмa." }
on *:dialog:service:sclick:51: { /ms read $$?"Номер Письмa Которое Хотите Прочитaть" }
on *:dialog:service:sclick:52: { /ms del $$?"Номер Письмa Которое Хотите Удaлить" }
on *:dialog:service:sclick:53: { /ms info }
on *:dialog:service:sclick:54: { /ms list }
on *:dialog:service:sclick:55: { /msg memoserv ignore del $$?="Введите ник или максу который(ую) вы хотите перестать игнорировать от получения сообшений:" }
on *:dialog:service:sclick:56: { /msg memoserv del all  }
on *:dialog:service:sclick:57: { /ms read last }
on *:dialog:service:sclick:58: { /set %schan $did(service,6) | /msg ChanServ akick %schan clear all }
on *:dialog:service:sclick:13: { /set %schan $did(service,6) | /cs identify %schan $$?*"Введите Пaроль" }
on *:dialog:service:sclick:12: { /set %schan $did(service,6) | /set %chan.desc $?="Описание канала:"
  /set %chan.pass $?*="пароль доступа:"
  /if (%chan.pass == $?*="Повторите пароль доступа:" ) {
    /msg chanserv register %schan %chan.pass %chan.desc
    /unset %serv.chan
    /unset %chan.desc
    /unset %chan.pass
  }
  else {
    /echo 4,5%4,5`%5,4%,7,4`%4,7%'8,7`%7,8%,0,8`%8,0%2 Пароль подтверждён неверно 
    /unset %chan.name
  /unset %chan.desc /unset %chan.pass  }
}
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
;;;;;;;;;;;;;;; >>>>>>>> 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 <<<<<<<<<<<<<<<<<<<<<<<<<<<< ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;ЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇЇ
