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

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

Версия 0.1

Автор Siniy

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

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

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

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

Внешний вид

Установка

Положить в папку с 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. ;----------------------------------------------

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.   }

104. }

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

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

107. set %currmask $did(13).text

108. right_refresh

109. }