
alias charlist if (!$dialog(charlist)) dialog -m charlist charlist | else { dialog -x charlist | dialog -m charlist charlist }
dialog charlist {
  title "Таблица символов"
  size -1 -1 280 363
  icon icons/charlist.ico
  list 3, 5 5 270 360
}
on *:dialog:charlist:init:*: {
  dll libraries/mdx.dll MarkDialog charlist
  dll libraries/mdx.dll SetControlMDX 3 ListView headerdrag report rowselect showsel grid nosortheader single > libraries/views.mdx
  dll libraries/mdx.dll SetFont charlist 3 10 0 fixedsys  
  did -i $dname 3 1 headerdims 90:1 155:3
  did -i $dname 3 1 headertext Код $chr(9) $+ Символ $+ 
  var %charz.a = 32
  while (%charz.a < 256) { did -a charlist 3 $chr(36) $+ chr( $+ %charz.a $+ ) $chr(9) $chr(%charz.a) | inc %charz.a }
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Редактор сообщений ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
alias messagesmgr if (!$dialog(messagesmgr)) dialog -m messagesmgr messagesmgr | else { dialog -x messagesmgr | dialog -m messagesmgr messagesmgr }
dialog messagesmgr {
  title "Редактор сообщений"
  size -1 -1 325 110
  icon icons\autotext.ico
  check "Автоматически выделять введённый текст.", 700, 65 419 264 20, disable
  check "Автоматически подчёркивать введённый текст.", 800, 65 444 320 20, disable
  button "Приветствия", 10, 5 5 155 26
  button "Прощания", 20, 5 35 155 26
  button "СТСР-version ответы", 30, 165 5 155 26
  button "При даче войса", 40, 5 65 155 26
  button "При снятии войса", 50, 165 35 155 26
  button "При даче опа", 60, 165 65 155 26
}
on *:dialog:messagesmgr:sclick:10: {
  /run sys\txt\hello.txt
}
on *:dialog:messagesmgr:sclick:20: {
  /run sys\txt\bye.txt
}
on *:dialog:messagesmgr:sclick:30: {
  /run sys\txt\version.txt
}
on *:dialog:messagesmgr:sclick:40: {
  /run sys\txt\onvoice.txt
}
on *:dialog:messagesmgr:sclick:50: {
  /run sys\txt\ondevoice.txt
}
on *:dialog:messagesmgr:sclick:60: {
  /run sys\txt\onop.txt
}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Панель помощи ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias help_dialog {
  if $dialog(help_dialog) = $null { dialog -m help_dialog help_dialog }
  else halt
}
dialog help_dialog {
  title "Помощь"
  size -1 -1          400 200
  icon 20, 60 1 270 50, $mircdirpictures\help.png, 0
  box "", 1234,  5 49 390 121
  list 1,        10 60 380 120
}

on *:dialog:help_dialog:init:*: {
  dll libraries\mdx.dll MarkDialog help_dialog
  dll libraries\mdx.dll SetControlMDX help_dialog 1 toolbar arrows nodivider flat wrap noresize > libraries\bars.mdx
  dll libraries\mdx.dll SetBorderStyle 1
  did -i $dname 1 1 bmpsize 32 32
  did -i $dname 1 1 setimage +nh icon large icons\help.ico
  did -i $dname 1 1 setimage +nh icon large icons\commands.ico
  did -i $dname 1 1 setimage +nh icon large icons\helpirc.ico
  did -i $dname 1 1 setimage +nh icon large icons\conopla.ico
  did -a $dname 1 +b 1 Центр помощи $+ $chr(9) $+ Помощь по настройке и функциям IRc0p Script.
  did -a $dname 1 +b 3 Комманды IRC $+ $chr(9) $+ Здесь представлены необходимые комманды IRC.
  did -a $dname 1 +b 4 Как стать иркопом? $+ $chr(9) $+ Руководство по устраиванию своего сервака...
}
on *:dialog:help_dialog:sclick:1: {
  if ($did(1).sel == 2) { /helpscript }
  if ($did(1).sel == 3) { /dhelp }
  if ($did(1).sel == 4) { /help_irc }
  if ($did(1).sel == 5) { /Serv }
}
