Скрипт проигрывающий mp3-файлы по wildcard. Использование: Пишете в любом окне mIRC ". <кусок названия>" Например: ". ВИАгра Не оставл" и он открывает указанный вами mp3-плеер с этой песней. ВНИМАНИЕ! Перед использованием нужно провести индексирование базы скрипта. ПОСЛЕ того как вы укажете в переменной %musicfolder папку с музыкой пишите "/m-reindex". Не индексируйте слишком большие директории, ибо ждать придёться долго :). Команда /m-list открывает список ваших мп3шек. ;*** Variables ; Обязательно поменяйте эти значения на свои! %mp3player D:\Progra~1\MusicM~1\MusicM~1\mmjb.exe %musicfolder D:\Music\ПИЛОТ ;*** Aliases m { set %temp $read(mindex.lst, w, * $+ $1- $+ *) if (%temp != $null) { run " $+ %mp3player $+ " " $+ $right(%temp,$calc($len(%temp)-$pos(%temp,,1))) $+ " ame вiдмiнно танцюэ божевiльнi танцi пiд $sound($right(%temp,$calc($len(%temp)-$pos(%temp,,1)))).artist - $sound($right(%temp,$calc($len(%temp)-$pos(%temp,,1)))).title } unset %temp } m-list { set %p 1 window -k0t0l @mp3s Verdana/4 while (%p <= 27) { set %temp $read(mindex.lst, %p) aline @mp3s $left(%temp,$calc($pos(%temp,,1)-1)) inc %p } unset %temp unset %p } m-reindex { set %rtimer 1 .timerindex 0 1 inc %rtimer write -c mindex.lst set %i 1 while (%i <= $findfile(%musicfolder,*.mp3,0)) { if ($sound($findfile(%musicfolder,*.mp3,%i)).title != $null && $sound($findfile(%musicfolder,*.mp3,%i)).artist != $null) { write mindex.lst $sound($findfile(%musicfolder,*.mp3,%i)).artist $sound($findfile(%musicfolder,*.mp3,%i)).title $+ $chr(127) $+ $findfile(%musicfolder,*.mp3,%i) } inc %i } unset %i .timerindex off echo Indexing comleted in %rtimer seconds! (Folder: %musicfolder $+ ) unset %rtimer } ;*** Remote menu @mp3s { dclick:/m $sline(@mp3s,1) } (с) Anode
|