ОсновноеRadiotalkПользовательское
Общие вопросы по интернет радио вещанию
6   •   Посмотреть все темы

Скрипты!

 

40
DJ_Pelmen @DJ_Pelmen

410
Евгений @Drakkar
MarkDaiven пишет:

var Song : TSongInfo;

//скрипт будет выполнятся постоянно(многократно)
PAL.Loop := True;
//ставим задержку на 3 песни
PAL.WaitForTime('+00:30:00');
//выбираем трек наугад
Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
//добавляем его в начало очереди
Aux.QueueSong(Song);
Aux.play;
Song.Free;


Это PAL-скрипт. Сохраняешь его с расширением *.pal и прописываешь путь через SAM Broadcaster.

В этом скрипте ошибка при компиляции возникает на строчке Aux.QueueSong(Song);

6245
Тарас @tarasian666
Aux := Aux1;
Aux.QueueSong(Song);
Aux.play;
Song.Free;

410
Евгений @Drakkar
var Song : TSongInfo;

PAL.Loop := True;

PAL.WaitForTime('+00:40:00');

Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);

Aux := Aux1;
Aux.QueueSong(Song);
Aux.play;
Song.Free;


Ошибка: Неизвестное имя Aux

40
DJ_Pelmen @DJ_Pelmen
ну так что ставить?

6245
Тарас @tarasian666
var Aux : TPlayer;

вы что гуглом пользоваться не умеете?

40
DJ_Pelmen @DJ_Pelmen
дайте пожалуста полный код!

40
DJ_Pelmen @DJ_Pelmen
heeeeeeeeeeeelp

6245
Тарас @tarasian666
все нужное уже есть, а дальше сам

40
DJ_Pelmen @DJ_Pelmen
куда и как лепить блин вы можете нормально сказать? у меня неполучилось он не выводит файл

40
DJ_Pelmen @DJ_Pelmen
var Song : TSongInfo;
//скрипт будет выполнятся постоянно(многократно)
PAL.Loop := True;
//ставим задержку на 3 песни
PAL.WaitForTime('+00:01:00');
//выбираем трек наугад
Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
//добавляем его в начало очереди
var Aux : TPlayer;
Aux.QueueSong(Song);
Aux.play;
Song.Free;

6245
Тарас @tarasian666
если давать все сразу готовое то так ничему и не научитесь

Aux := Aux1; пропустил

1572
KyPIIaToB @KyPIIaToB
К сожалению у нас люди разбираться не хотят и даже такое чувство не пытаются.. Смотрят тупым взглядом на код и молят о помощи. печально (

40
DJ_Pelmen @DJ_Pelmen
Смори я код слепил. включаю он робит но невоспроизводит! \\\ вот учусь))) что нужно добавить или убрать?

6245
Тарас @tarasian666
подумай сам, ты ведь учишся ))

у меня все работает, этот же скрипт только со всеми моими замечаниями

40
DJ_Pelmen @DJ_Pelmen
я просто не пойму. строчки заменить или дописать? кинь пожалуста код я буду знать 9((

410
Евгений @Drakkar
Пельмень, ну ты вообще лошара, тебе так подробно объяснили, даже я понял с первого раза(смеюсь). Тебе тупо лень самому экспериментировать, менять местами строчки, пытаться компилировать. При компиляции у тебя возникнет ошибка и сэм коричневой строчкой укажет на то место, где косяк. НЕ надо бояться, этим ты Сэм не удалишь, если ты уж так трясёшься что нить нечаянно сделать не так. Если ты на такой простой трудности валишься, то какого хрена ты вообще затеял всё это. Учи сначала мат.часть, а потом уже доставай людей по форумам. Разжевать и в рот положить?

40
DJ_Pelmen @DJ_Pelmen
какой коричневой строчкой? не понимаю я язык етот((( lua знаю

40
DJ_Pelmen @DJ_Pelmen
Еееееееееееееееееееее разобрался)))

var Song : TSongInfo;
//ñêðèïò áóäåò âûïîëíÿòñÿ ïîñòîÿííî(ìíîãîêðàòíî)
PAL.Loop := True;
//ñòàâèì çàäåðæêó íà 3 ïåñíè
PAL.WaitForTime('+00:01:00');
//âûáèðàåì òðåê íàóãàä
Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
//äîáàâëÿåì åãî â íà÷àëî î÷åðåäè
var Aux : TPlayer;
Aux := Aux1;
Aux.QueueSong(Song);
Aux.play;
Song.Free;

410
Евгений @Drakkar
Можешь, когда хочешь