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

Материал из IrcNet.ru Wiki
Перейти к: навигация, поиск
(Код)
Строка 27: Строка 27:
  
 
==Код==
 
==Код==
<source lang="mirc">
+
<source>
  
 
;----------------------------------------------
 
;----------------------------------------------

Версия 13:21, 15 декабря 2009

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

Распространяется под лицензией GPL v2 (Текст лицензии)

Автор Siniy

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

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

Установка

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

/load -rs scripts.mrc 

Во втором

/load -rs scripts/scripts.mrc

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

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

Скачать

Форум


Код

Указан неподдерживаемый язык.

Вы должны указать язык следующим образом: <source lang="html4strict">...</source>

Поддерживаемые языки:

4cs, 6502acme, 6502kickass, 6502tasm, 68000devpac, abap, actionscript, actionscript3, ada, algol68, apache, applescript, apt_sources, arm, asm, asp, asymptote, autoconf, autohotkey, autoit, avisynth, awk, bascomavr, bash, basic4gl, bf, bibtex, blitzbasic, bnf, boo, c, c_loadrunner, c_mac, caddcl, cadlisp, cfdg, cfm, chaiscript, cil, clojure, cmake, cobol, coffeescript, cpp, cpp-qt, csharp, css, cuesheet, d, dcl, dcpu16, dcs, delphi, diff, div, dos, dot, e, ecmascript, eiffel, email, epc, erlang, euphoria, f1, falcon, fo, fortran, freebasic, freeswitch, fsharp, gambas, gdb, genero, genie, gettext, glsl, gml, gnuplot, go, groovy, gwbasic, haskell, haxe, hicest, hq9plus, html4strict, html5, icon, idl, ini, inno, intercal, io, j, java, java5, javascript, jquery, kixtart, klonec, klonecpp, latex, lb, ldif, lisp, llvm, locobasic, logtalk, lolcode, lotusformulas, lotusscript, lscript, lsl2, lua, m68k, magiksf, make, mapbasic, matlab, mirc, mmix, modula2, modula3, mpasm, mxml, mysql, nagios, netrexx, newlisp, nsis, oberon2, objc, objeck, ocaml, ocaml-brief, octave, oobas, oorexx, oracle11, oracle8, oxygene, oz, parasail, parigp, pascal, pcre, per, perl, perl6, pf, php, php-brief, pic16, pike, pixelbender, pli, plsql, postgresql, povray, powerbuilder, powershell, proftpd, progress, prolog, properties, providex, purebasic, pycon, pys60, python, q, qbasic, rails, rebol, reg, rexx, robots, rpmspec, rsplus, ruby, sas, scala, scheme, scilab, sdlbasic, smalltalk, smarty, spark, sparql, sql, stonescript, systemverilog, tcl, teraterm, text, thinbasic, tsql, typoscript, unicon, upc, urbi, uscript, vala, vb, vbnet, vedit, verilog, vhdl, vim, visualfoxpro, visualprolog, whitespace, whois, winbatch, xbasic, xml, xorg_conf, xpp, yaml, z80, zxbasic


;----------------------------------------------
;   Диспетчер скриптов 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
}