#####################################################################
#   Название: Me Message v1.2
#   Автор: Epic (epicnet@mail.ru, http://epicnet.ru)
#   Описание: Создаёт управляемое диалоговое окно для редактирования "/ME" сообщений.
#   Управление: Чтобы открыть панель управления нажмите клавишу "F9".
#####################################################################

alias F9 {
  if (!$dialog(me)) {
    unset %me_chars | me_set | .dialog -mp me me | .dialog -r me
    if (%me_color) .did -a me 4 %me_tcolors $+($chr(40),%me_color,$chr(41))
    me_select me 6 | if (%me_select) .did -c me 6 %me_select | else .did -c me 6 1
    if (%meo_check2) { .did -a me 1 %me_mess | me_calclines me 1 }
  } | else .dialog -x me
}
dialog -l me {
  title %me_title
  size -1 -1 300 235
  option pixels
  icon $mircexe,24
  edit "", 1, 10 10 280 130, multi autovs, limit 900
  text %me_tchars, 2, 30 155 39 20, nowrap
  edit "0", 3, 74 152 27 21, read rich right, limit 3
  button %me_tcolors, 4, 115 151 120 22
  button %me_tbutton_set, 5, 248 151 22 22
  combo 6, 30 191 70 20, drop
  button %me_tbutton_ok, 10, 115 190 155 23, default
}
on *:DIALOG:me:close:0: me_winclose
on *:DIALOG:me:edit:1: me_calclines $dname $did | me_winclose
on *:DIALOG:me:sclick:4: me_colors $dname | if (!$window(@MeColors)) .did -f me 1
on *:DIALOG:me:sclick:5: me_options $dname
on *:DIALOG:me:sclick:6: %me_select = $did($dname,$did).sel
on *:DIALOG:me:sclick:10:{
  me_winclose | unset %me_mess | var %q 1 | while (%q <= $did($dname,1).lines) { %me_mess = %me_mess $did($dname,1,%q).text | inc %q }
  if (%me_color) { var %me_col $+($chr(3),%me_color) }
  var %me_message $did($dname,6,0).text $+(%me_col,%me_mess)
  if (%me_chars > 0) {
    if (!%meo_check3) { if (%meo_check4) .editbox -afn %me_message | else { .editbox -an %me_message | if ($dialog(me)) .did -f me 1 } }
    if (%meo_check3) .editbox -af %me_message
    if (!%meo_check2) { .did -r $dname 1 | unset %me_chars | .did -i $dname 3 1 0 }
    if (%meo_check1) .dialog -x $dname
  }
  else { .echo -a %me_terror_notext | .did -f me 1 }
}
---------------------------------------------------------------------
alias -l me_set {
  %me_title = Me Message
  %me_tchars = Символ:
  %me_tcolors = Цвет:
  %me_tbutton_set = ⧉
  %me_tbutton_ok = Отправить ➤
  %me_tselect = /me /ame /qme
  %me_terror_notext = :: Пожалуйста, напишите текст ➤
}
alias -l me_winclose { if ($window(@MeColors)) .window -c @MeColors | if ($dialog(me_options)) .dialog -x me_options }
alias -l me_calclines { unset %me_chars | var %q 1 | while (%q <= $did($1,$2).lines) { %me_chars = $calc(%me_chars + $did($1,$2,%q).len) | inc %q } | .did -o $1 3 1 %me_chars }
alias -l me_select { var %me_q 1 | while (%me_q <= $numtok(%me_tselect,32)) { .did -a $1 $2 $gettok(%me_tselect,%me_q,32) | inc %me_q } }
alias -l me_colors {
  if (!$window(@MeColors)) {
    .window -padhik0 +beL @MeColors $calc($dialog($1).x +50) $calc($dialog($1).y +90) 207 62 | .window -a @MeColors
    .drawrect -f @MeColors 94 1 0 0 207 62
    var %me_x 7 | var %me_y 7 | var %me_q 0 | while (%me_q <= 15) {
      .drawrect -f @MeColors %me_q 1 %me_x %me_y 22 22 | .drawrect @MeColors 97 2 %me_x %me_y 22 22 | .drawrect @MeColors 93 1 %me_x %me_y 22 22
      .hadd -m mecoordcol-x %me_q $+(%me_x,-,$calc(%me_x +22)) | .hadd -m mecoordcol-y %me_q $+(%me_y,-,$calc(%me_y +22))
      inc %me_q | inc %me_x 24 | if (%me_q == 8) { var %me_x 7 | inc %me_y 24 }
    }
  }
  else .window -c @MeColors
}
menu @MeColors {
  mouse {
    var %me_mx $mouse.x | var %me_my $mouse.y
    var %me_x 7 | var %me_y 7 | var %me_q 0 | while (%me_q <= 15) {
      var %me_hx $hget(mecoordcol-x,%me_q) | var %me_hy $hget(mecoordcol-y,%me_q)
      if (!$hget(me,bl-stop) && %me_mx isnum %me_hx && %me_my isnum %me_hy) {
        .drawrect @MeColors 98 2 %me_x %me_y 22 22 | .drawrect @MeColors 66 1 %me_x %me_y 22 22 | .hadd -m me bl-stop %me_hx %me_hy | halt
      }
      if (%me_mx !isnum $gettok($hget(me,bl-stop),1,32)) || (%me_my !isnum $gettok($hget(me,bl-stop),2,32)) {
        .drawrect @MeColors 97 2 %me_x %me_y 22 22 | .drawrect @MeColors 93 1 %me_x %me_y 22 22 | if ($hget(me,bl-stop)) .hdel -sw me bl-stop
      }
      inc %me_q | inc %me_x 24 | if (%me_q == 8) { var %me_x 7 | inc %me_y 24 }
    }
  }
  sclick {
    var %me_mx $mouse.x | var %me_my $mouse.y
    var %me_q 0 | while (%me_q <= 15) {
      var %me_hx $hget(mecoordcol-x,%me_q) | var %me_hy $hget(mecoordcol-y,%me_q)
      if (%me_mx isnum %me_hx && %me_my isnum %me_hy) { if (%me_q < 10) var %me_q $+(0,%me_q) | .did -a me 4 %me_tcolors $+($chr(40),%me_q,$chr(41)) | %me_color = %me_q | .break }
      inc %me_q
    }
    .window -c @MeColors | if ($dialog(me)) .did -f me 1
  }
}
---------------------------------------------------------------------
alias -l me_options {
  if (!$dialog(me_options)) {
    me_options_set | .dialog -mp me_options me_options
    if (%meo_check1) .did -c me_options 1
    if (%meo_check2) .did -c me_options 2
    if (%meo_check3) .did -c me_options 3
    if (%meo_check4) .did -c me_options 4
  }
  else .dialog -x me_options
}
dialog -l me_options {
  title "Me Options"
  size -1 -1 340 110
  option pixels
  icon $mircexe,24
  check %meo_t1, 1, 15 15 320 20
  check %meo_t2, 2, 15 35 320 20
  check %meo_t3, 3, 15 55 320 20
  check %meo_t4, 4, 15 75 320 20
}
alias -l me_options_set {
  %meo_t1 = Закрыть окно после клика "Отправить"
  %meo_t2 = Сохранить сообщение после клика "Отправить"
  %meo_t3 = Перенести сообщение в EditBox после клика "Отправить"
  %meo_t4 = Установить фокус на EditBox после клика "Отправить"
}
on *:DIALOG:me_options:close:0: if ($dialog(me)) .did -f me 1
on *:DIALOG:me_options:sclick:1: if ($did($dname,$did).state == 1) %meo_check1 = 1 | else unset %meo_check1
on *:DIALOG:me_options:sclick:2: if ($did($dname,$did).state == 1) %meo_check2 = 1 | else unset %meo_check2
on *:DIALOG:me_options:sclick:3: if ($did($dname,$did).state == 1) %meo_check3 = 1 | else unset %meo_check3
on *:DIALOG:me_options:sclick:4: if ($did($dname,$did).state == 1) %meo_check4 = 1 | else unset %meo_check4