Диспетчер скриптов mIRC — различия между версиями
Siniy (обсуждение | вклад) |
Siniy (обсуждение | вклад) (→Код) |
||
| Строка 27: | Строка 27: | ||
==Код== | ==Код== | ||
| − | <source | + | <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
}
