Диспетчер скриптов mIRC — различия между версиями

;----------------------------------------------

;   Диспетчер скриптов mIRC, 0.1

; 

;----------------------------------------------

;   (с) Alexandr Sinitsyn aka Siniy

;   irc: Siniy @ irc.ircnet.su, 2008 

;   http://www.siniy.ws/

;   mailto: alsinit@gmail.com 

;----------------------------------------------

;   Использование:

;    Положить в папку с mIRC.exe или в папку scripts

;   /load -rs scripts.mrc (или /load -rs scripts/scripts.mrc смотря куда положили)

;----------------------------------------------

 menu status {

  Управление скриптами { /dialog -m scripts scripts }

 }

 alias /sd /dialog -m scripts scripts

 dialog scripts {

  size -1 -1 200 152

  option dbu

  Title "Управление скриптами"

  button "Перезагрузить", 1, 2 2 40 10

  button "Просмотр", 2, 54 2 40 10

  button "Загрузить", 9, 106 2 40 10

  button "Выгрузить", 4, 158 2 40 10

  button "Выбрать", 12, 158 18 40 10

  list 5, 0 40 100 130, autovs

  list 10, 100 40 100 130, autovs

  text "Всего загружено: ", 6, 3 30 60 10

  text "Содержимое папки:", 11, 103 30 60 10

  text $script(0) , 7, 55 30 20 10

  edit %currdir, 8, 2 18 150 10, read

  edit %currmask, 13, 170 30 30 10

}

;Функции

;Рефреш левого листа

alias left_refresh {

  did -r scripts 5

  set %total.scripts $script(0)

  set %c 1

  while (%c <= %total.scripts) {

    did -a scripts 5 $script(%c)

    inc %c 1

  }

}

;Рефреш правого листа

alias right_refresh {

  did -r scripts 10

  set %i 1

  while ($findfile(%currdir,%currmask,%i) != $null) {

  did -a scripts 10 $findfile(%currdir,%currmask,%i)

  inc %i 1

  }

}

;Инициализация

on *:DIALOG:scripts:init:*: { 

  left_refresh

  set %currdir [ [ $mircdir ] $+ ] scripts\

  set %currmask *.mrc

  right_refresh

  did -b scripts 2,4,1

}

;Нажатие на контролы

on *:DIALOG:scripts:sclick:*: {

  if ($did == 1) {

    load -rs " $+ $did(5).seltext $+ "

  }

;Кнопка Загрузить

  if ($did == 9) {

    load -rs " $+ $did(10).seltext $+ "

    did -b scripts 2,4

    did -a scripts 7 $script(0)

    left_refresh

  }

;Выбор из левого листа

  if ($did == 5) {

    did -e scripts 2,4,1

  }

;Выбор из правого листа

  if ($did == 10) {

    did -e scripts 2,4,1

  }

;Кнопка Открыть

  if ($did == 2) {

    run $did(5).seltext

  }

;Кнопка Выгрузить

  if ($did == 4) {

    unload -rs " $+ $did(5).seltext $+ "

    did -r scripts 5

    did -b scripts 2,4,1

    did -a scripts 7 $script(0)

    left_refresh

  }

;Кнопка Выбрать

  if ($did == 12) {

  set %currdir $sdir(%currdir,"Выберите папку со скриптами")

  did -r scripts 8

  did -a scripts 8 %currdir

  right_refresh

  }

}

;Изменение маски

on *:DIALOG:scripts:EDIT:13: { 

set %currmask $did(13).text

right_refresh

}