Re: Скрипты!
var Aux : TPlayer;
вы что гуглом пользоваться не умеете?
Re: Скрипты!
дайте пожалуста полный код!
Re: Скрипты!
heeeeeeeeeeeelp
- tarasian666
- Это мой дом
- Неактивен
Re: Скрипты!
все нужное уже есть, а дальше сам
Re: Скрипты!
куда и как лепить блин вы можете нормально сказать? у меня неполучилось он не выводит файл
Re: Скрипты!
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;- tarasian666
- Это мой дом
- Неактивен
Re: Скрипты!
если давать все сразу готовое то так ничему и не научитесь
Aux := Aux1; пропустил
- KyPIIaToB
- Это мой дом
- Неактивен
Re: Скрипты!
К сожалению у нас люди разбираться не хотят и даже такое чувство не пытаются.. Смотрят тупым взглядом на код и молят о помощи. печально (
В здоровом теле - здоровый дух!
Re: Скрипты!
Смори я код слепил. включаю он робит но невоспроизводит! \\\ вот учусь))) что нужно добавить или убрать?
- tarasian666
- Это мой дом
- Неактивен
Re: Скрипты!
подумай сам, ты ведь учишся ))
у меня все работает, этот же скрипт только со всеми моими замечаниями
Re: Скрипты!
я просто не пойму. строчки заменить или дописать? кинь пожалуста код я буду знать 9((
- Drakkar
- Здесь живёт
- Неактивен
Re: Скрипты!
Пельмень, ну ты вообще лошара, тебе так подробно объяснили, даже я понял с первого раза(смеюсь). Тебе тупо лень самому экспериментировать, менять местами строчки, пытаться компилировать. При компиляции у тебя возникнет ошибка и сэм коричневой строчкой укажет на то место, где косяк. НЕ надо бояться, этим ты Сэм не удалишь, если ты уж так трясёшься что нить нечаянно сделать не так. Если ты на такой простой трудности валишься, то какого хрена ты вообще затеял всё это. Учи сначала мат.часть, а потом уже доставай людей по форумам. Разжевать и в рот положить?
Re: Скрипты!
какой коричневой строчкой? не понимаю я язык етот((( lua знаю
Re: Скрипты!
Еееееееееееееееееееее разобрался)))
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;