176

Re: Скрипты PAL для Sam Broadcaster

Блин тут переводчик необходим,слушай КурПатов Хд))) ты просто тут самый активный а ты можешь через Тимку ко мне в комп войти настроить какие нить норм скрипты,как правильно кросфейдер настроить что бы сводились деки хорошо и прочее а то это так туговато для меня
помоги уж

icq 453558734

177

Re: Скрипты PAL для Sam Broadcaster

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

icq 453558734

178

Re: Скрипты PAL для Sam Broadcaster

пишет maxon:

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

http://support.spacialaudio.com/wiki/Crossfading

В здоровом теле - здоровый дух!

179

Re: Скрипты PAL для Sam Broadcaster

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

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

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

icq 453558734

180

Re: Скрипты PAL для Sam Broadcaster

Самому под себя подогнать не как? там ничего сложного

В здоровом теле - здоровый дух!

181

Re: Скрипты PAL для Sam Broadcaster

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

icq 453558734

182

Re: Скрипты PAL для Sam Broadcaster

Че там понимать то? http://translate.google.ru/
Там написано то по пару слов, не нужно лениться!

В здоровом теле - здоровый дух!

183

Re: Скрипты PAL для Sam Broadcaster

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

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

184

Re: Скрипты PAL для Sam Broadcaster

Скажите что здесь вписать чтобы скрипт брал весь плейлист:
CAT['Tracks'].QueueBottom(smRandom, NoRules);

185

Re: Скрипты PAL для Sam Broadcaster

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

186

Re: Скрипты PAL для Sam Broadcaster

Господа, так кто нибудь напишет как выглядит скрипт по автоматическому удалению дубликатов в queue???

RADIO-SET - это интернет портал посвящённый музыке и всему, что связано с ней. Наш проект это рабочая площадка дающая возможность начинающим талантливым музыкантам, диджеям и творческим людям сделать первые шаги и реализовать себя в мире медиа!
От организации танцевальных вечеринок до выпуска собственной музыки. Авторские программы, новости о клубной жизни городов России.
Мы открыты для всех 24 часа.
support@radio-set.ru
Веб-сайт: www.radio-set.ru

187

Re: Скрипты PAL для Sam Broadcaster

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

В здоровом теле - здоровый дух!

188

Re: Скрипты PAL для Sam Broadcaster

пишет KyPIIaToB:

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

может тогда закроем этот форум, если на все вопросы уже там ответили?

RADIO-SET - это интернет портал посвящённый музыке и всему, что связано с ней. Наш проект это рабочая площадка дающая возможность начинающим талантливым музыкантам, диджеям и творческим людям сделать первые шаги и реализовать себя в мире медиа!
От организации танцевальных вечеринок до выпуска собственной музыки. Авторские программы, новости о клубной жизни городов России.
Мы открыты для всех 24 часа.
support@radio-set.ru
Веб-сайт: www.radio-set.ru

189

Re: Скрипты PAL для Sam Broadcaster

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


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

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

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

icq 453558734

190

Re: Скрипты PAL для Sam Broadcaster

Собственно в самом SAMe обнови Sound FX, он добавляет тупо из списка в базе скажем так, а путь на самом деле не верный, вот и файл не проигрывает, тупо пропускает.
Если не понял, то вот тебе картинка
http://i077.radikal.ru/1108/79/cab78a726828.jpg

Добавлено спустя     5 минут   59 секунд:
Gap killer, тут есть картинка http://support.spacialaudio.com/wiki/Gap_Killer

В здоровом теле - здоровый дух!

191

Re: Скрипты PAL для Sam Broadcaster

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

icq 453558734

192

Re: Скрипты PAL для Sam Broadcaster

Друзья подскажите пожалуйста скрипт для того что бы выводить часовую,что бы необязательно каждый час в :01 минуту а в период как на фм задан период когда часовая сможет сработать там с :57 минуте по :01,а то ставишь на :01 и песня обрывается и идет часовая......плиз ктонить пожскажите

Добавлено спустя     8 минут   22 секунды:
а через шедулер я не наю как..ваще не умею им пользоваться там же тоже задается время о бишь то же самое получится если я вставлю в шедулер часовую и поставлю время допустим 14:00

icq 453558734

193

Re: Скрипты PAL для Sam Broadcaster

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

В здоровом теле - здоровый дух!

194

Re: Скрипты PAL для Sam Broadcaster

Вопрос закрыт)) Все сделал)

icq 453558734

195

Re: Скрипты PAL для Sam Broadcaster

Всем привет!  Нужен был скриптик для рекламы. Получилось вот так в тесте:
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); // сама реклама мне указать, сколько треков нужно случайным образом брать из категории? Берёт один.

Сайт и плейлист радио ZED-FM.

196

Re: Скрипты PAL для Sam Broadcaster

Народ есть скрипт

PAL.Loop := True;
PAL.WaitForTime(T['08:00:00']); {Wait for 8am}
{==================================================}
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']);
Queue.AddFile(D['filename'],ipTop);
D.Next;
end;
              
{==================================================}
PAL.WaitForTime(T['23:59:59']); {Wait for next day}

В какую сторону копать чтобы он запускался только в пятницу и только в 21:00 ?

197

Re: Скрипты PAL для Sam Broadcaster

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)

В здоровом теле - здоровый дух!

198

Re: Скрипты PAL для Sam Broadcaster

Если ставить в шедулер, то надо убрать строчки:
PAL.Loop := True;
PAL.WaitForTime(T['08:00:00']); {Wait for 8am}

Иначе он запустится в пятницу, 21.00, прождет до 8 утра субботы и выполнится опять и т.д
И соответственное убрать вконце
PAL.WaitForTime(T['23:59:59']); {Wait for next day}

Отредактировано Falcon (21-09-2011 10:03:06)

http://radioheart.ru/banners/radioheart_400x40_banner.jpg
RadioHeart.ru: Функциональный радио хостинг с автодиджеем и нонстопом, а так же быстрый виртуальный хостинг. Возможность создать радио за 5 минут, подключить автодиджей и нонстоп.
Отзывы о хостинге

199

Re: Скрипты PAL для Sam Broadcaster

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

В здоровом теле - здоровый дух!

200

Re: Скрипты PAL для Sam Broadcaster

пишет KyPIIaToB:

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 ) в нужный тебе день и время.

Спасибо