Скрипты PAL для Sam Broadcaster (Страница 8 из 21)

киньте сюды плиизз скрин кроссфейдера что юы треки без пауз сводил как на фм)))

А это скрин нормальный который сводит или это стандартный,который был при установке сема

Добавлено спустя     4 минуты   49 секунд:
нее ща поставил это лажовые настройки

Добавлено спустя     6 минут   35 секунд:
лажа...не сводит нифига

с инглишом как то не дружу...понимаю че как но все таки....

спасибо хорошие скрипты!Очень помогли!

Отредактировано isaul (09-07-2011 22:50:56)

Ребят подскажите как через PAL заставить играть песни подряд,  так как они находятся в категории?

Ответы на все вопросы
http://support.spacialaudio.com/wiki/PA … anguage%29

дРУЗЬЯ ПОМОГИ ПОЖАЛУЙСТА С ОДНИМ ВОПРОСОМ МУЧАЕТ МЕНЯ ДОЛГО....НА РАБОЧЕМ СТОЛЕ ЕСТЬ НЕСКОЛЬКО ПАПОК С ДЖИНГЛАМИ,ЕСТЬ СКРИПТ

PAL.Loop := True; // скрипт будет выполнятся постоянно
PAL.WaitForPlayCount(2); // ставим задержку на 2 трека
//выбераем случайный трек из "Sound FXs" и ставим его вверх очереди
CAT['Sound FX (All)'].QueueTop(smRandom, NoRules);

В СОУНД ФХ добавил джинглы из папок...ранбше все пахало сейчас скрипт не работает джинглы появляются queue но при приближении конца трека меняется джингл на другую песню в деке...в чем причина??? помогите

Добавлено спустя     3 минуты   36 секунд:
И ее подскажите плиз в Gap killer какие цифры ставить а то я сбил теперь не могу восстановить...у кого где стоят а где не стоят галочки подскажите

неа все ранво не поперло..мож со скриптом что то не то или как нить по другому

Ну если ты не умеешь, мы то тут причем? Учись, читай wiki, там все функции расписаны.

Всем привет!  Нужен был скриптик для рекламы. Получилось вот так в тесте:
var P    : TPlayer;
var Song : TSongInfo;
var strRekB, strRekE : String;

//скрипт будет выполнятся постоянно(многократно)
PAL.Loop := True;
//ставим задержку на 30 минут
PAL.WaitForTime('+00:00:10');
strRekB := 'L:\Ruskat\Моя музыка\ZED-fm\часы\start_hour.mp3'; //Путь к началу рекламы
//выбираем трек наугад
Song := CAT['Фильмы-мульты'].ChooseSong(smRandom,NoRules);
//добавляем его в начало очереди
strRekE := 'L:\Ruskat\Моя музыка\ZED-fm\часы\start_hour.mp3'; //Путь к концу рекламы
//Задаём последовательность и место вставки в Queue.
Queue.AddFile(strRekB, ipBottom); // Начало. Интро. Реклама на таком-то радио...
Queue.Add(Song, ipBottom); // сама реклама (вывод 1 трека)
Queue.AddFile(strRekE, ipBottom); // Конец рекламы. Это была реклама на таком-то радио...
if P <> nil then
begin
    Queue.AddFile(strRekB, ipTop);
    Queue.AddFile(strRekE, ipTop);
P := ActivePlayer;
if P <> nil then P.FadeToNext;
end;

=======
Как в параметре Queue.Add(Song, ipBottom); // сама реклама мне указать, сколько треков нужно случайным образом брать из категории? Берёт один.

PAL.Loop := False;
var D : TDataSet;
var C : Integer;
D := Query('SELECT songlist.*, count(*) as cnt '+
              'FROM songlist,requestlist '+
              'WHERE songlist.ID = requestlist.songID '+
              '      AND requestlist.code < 700 '+
              'GROUP BY songlist.ID '+
              'ORDER BY cnt DESC LIMIT 10',[],True);
{Add requests to Queue.
We add to the top of the Queue, effectively reversing the
order of the requests - playing #10 first and #1 last}
C := 0;
D.First;
while not D.EOF do
begin
C := C + 1;
WriteLn('#'+IntToStr(C)+'. '+D['artist']+' - '+D['title']);
D.Next;
end;

Помести данный скрипт в шедулер ( http://support.spacialaudio.com/wiki/Event_Scheduler ) в нужный тебе день и время.

Отредактировано KyPIIaToB (21-09-2011 09:26:19)

Ну вообще то я в скрипте это и убрал =\