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

Материал из IrcNet.ru Wiki
Версия от 14:16, 15 декабря 2009; Siniy (обсуждение | вклад)

(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

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

Версия 0.1

Автор Siniy

Основные функции

  • Отображение загруженных скриптов
  • Отображение файлов в папке по определенной маске (по умолчанию папка scripts и маска *.mrc)
  • Загрузка скриптов
  • Выгрузка скриптов
  • Просмотр загруженного скрипта

История изменений

v 0.1 Первая публичная версия скрипта

Внешний вид

Sd.jpg

Установка

Положить в папку с mIRC.exe или в папку scripts. В первом случае выполнить

/load -rs scripts.mrc 

Во втором

/load -rs scripts/scripts.mrc

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

Нажимать на меню "Управление скриптами" в окне статуса (правой кнопкой в окне статуса), либо набираем команду /sd

Скачать

Форум


Код

  1. ;----------------------------------------------
  2. ;   Диспетчер скриптов mIRC, 0.1
  3. ; 
  4. ;----------------------------------------------
  5. ;   (с) Alexandr Sinitsyn aka Siniy
  6. ;   irc: Siniy @ irc.ircnet.su, 2008 
  7. ;   http://www.siniy.ws/
  8. ;   mailto: alsinit@gmail.com 
  9. ;----------------------------------------------
  10. ;   Использование:
  11. ;    Положить в папку с mIRC.exe или в папку scripts
  12. ;   /load -rs scripts.mrc (или /load -rs scripts/scripts.mrc смотря куда положили)
  13. ;----------------------------------------------
  14.  
  15.  menu status {
  16.   Управление скриптами { /dialog -m scripts scripts }
  17.  }
  18.  alias /sd /dialog -m scripts scripts
  19.  dialog scripts {
  20.   size -1 -1 200 152
  21.   option dbu
  22.   Title "Управление скриптами"
  23.   button "Перезагрузить", 1, 2 2 40 10
  24.   button "Просмотр", 2, 54 2 40 10
  25.   button "Загрузить", 9, 106 2 40 10
  26.   button "Выгрузить", 4, 158 2 40 10
  27.   button "Выбрать", 12, 158 18 40 10
  28.   list 5, 0 40 100 130, autovs
  29.   list 10, 100 40 100 130, autovs
  30.   text "Всего загружено: ", 6, 3 30 60 10
  31.   text "Содержимое папки:", 11, 103 30 60 10
  32.   text $script(0) , 7, 55 30 20 10
  33.   edit %currdir, 8, 2 18 150 10, read
  34.   edit %currmask, 13, 170 30 30 10
  35. }
  36. ;Функции
  37. ;Рефреш левого листа
  38. alias left_refresh {
  39.   did -r scripts 5
  40.   set %total.scripts $script(0)
  41.   set %c 1
  42.   while (%c <= %total.scripts) {
  43.     did -a scripts 5 $script(%c)
  44.     inc %c 1
  45.   }
  46. }
  47. ;Рефреш правого листа
  48. alias right_refresh {
  49.   did -r scripts 10
  50.   set %i 1
  51.   while ($findfile(%currdir,%currmask,%i) != $null) {
  52.   did -a scripts 10 $findfile(%currdir,%currmask,%i)
  53.   inc %i 1
  54.   }
  55. }
  56. ;Инициализация
  57. on *:DIALOG:scripts:init:*: { 
  58.   left_refresh
  59.   set %currdir [ [ $mircdir ] $+ ] scripts\
  60.   set %currmask *.mrc
  61.   right_refresh
  62.   did -b scripts 2,4,1
  63. }
  64. ;Нажатие на контролы
  65. on *:DIALOG:scripts:sclick:*: {
  66.   if ($did == 1) {
  67.     load -rs " $+ $did(5).seltext $+ "
  68.   }
  69. ;Кнопка Загрузить
  70.   if ($did == 9) {
  71.     load -rs " $+ $did(10).seltext $+ "
  72.     did -b scripts 2,4
  73.     did -a scripts 7 $script(0)
  74.     left_refresh
  75.   }
  76. ;Выбор из левого листа
  77.   if ($did == 5) {
  78.     did -e scripts 2,4,1
  79.   }
  80. ;Выбор из правого листа
  81.   if ($did == 10) {
  82.     did -e scripts 2,4,1
  83.   }
  84. ;Кнопка Открыть
  85.   if ($did == 2) {
  86.     run $did(5).seltext
  87.   }
  88. ;Кнопка Выгрузить
  89.   if ($did == 4) {
  90.     unload -rs " $+ $did(5).seltext $+ "
  91.     did -r scripts 5
  92.     did -b scripts 2,4,1
  93.     did -a scripts 7 $script(0)
  94.     left_refresh
  95.   }
  96. ;Кнопка Выбрать
  97.   if ($did == 12) {
  98.   set %currdir $sdir(%currdir,"Выберите папку со скриптами")
  99.   did -r scripts 8
  100.   did -a scripts 8 %currdir
  101.   right_refresh
  102.   }
  103.  
  104. }
  105. ;Изменение маски
  106. on *:DIALOG:scripts:EDIT:13: { 
  107. set %currmask $did(13).text
  108. right_refresh
  109. }