Помогите с написанием одного скрипта

06.11.2011

Уважаемые форумчане, у меня есть ежечасовые отбивки и джингл, играющий сразу после них. Вот скрипт:

1. var P : TPlayer;
2. var Song : TSongInfo;
3. var strFile, strPath, strJingle : String;
5. strPath := 'E:\CLOCK\'; //папка с отбивкой
6. strJingle := 'C:\CLOCK\start_hour.mp3'; //Путь и название джингла после отбивки часов
7. PAL.Loop := True;
8. PAL.WaitForTime('XX:59:45'); //запускаемся в конце каждого часа
9. P := SoundFX;
10. strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
11. Queue.AddFile(strFile, ipTop);
12. Song := Queue.NextInQueue;
13. P.QueueSong(Song);
14. P.Play;

Но так же у меня есть ночной джингл no_slip.mp3, который надо сделать, чтобы запускался только ночю, к примеру с 00-00 до 07-00 сразу после отбивки часов. Как сиё реализовать?


И вопрос №2.
Есть три разных джингла по 7 секунд каждый: 1.p3, 2.mp3 и 3.mp3. Какой скрипт будет их в течении суток раз 20 к примеру в рандомном порядке, приглушая основной эфир, поверх песен пускать? Желательно, конечно, чтоб в самых тихих местах песен, где уровень ДБ ниже -10, но врятли это осуществимо :)... хотябы просто приглушая эфир.
Спасибо.

06.11.2011

Нужно добавлять правило по типу

1. if ((now >= T['0:00:00']) and (now <= T['06:00:00']) then
2. begin
3. играть джингл
4. end;

В теории как то так)

06.11.2011

Скажи пожалуйста, а куда этот код надо вставлять? Не могу понять

06.11.2011

Это я пример привел, допишешь сам.

06.11.2011

Знал бы я, как этот код писать - не стал бы тут спрашивать. Я полный ноль в этом. Хотелось бы тут увидеть готовый код для ночного джингла.

06.11.2011

Напишу тебе такой скрипт за пару $ ))

06.11.2011

Вот это другой разговор :)

06.11.2011

1. <?php
2. function antara($string, $start, $end){
3. $string = " ".$string;
4. $ini = strpos($string,$start);
5. if ($ini == 0) return "";
6. $ini += strlen($start);
7. $len = strpos($string,$end,$ini) - $ini;
8. return substr($string,$ini,$len);
9. }
10. $live = file_get_contents("http://85.28.203.242:8000/status.xsl?mount=/kamchatka_live");
11. $nonstop = file_get_contents("http://91.195.211.165:8000/status.xsl?mount=/nonstop");
13. $lives = antara($live, "<td>Current Listeners:</td><td class=\"streamdata\">","</td></tr>")+ antara($nonstop, "<td>Current Listeners:</td><td class=\"streamdata\">","</td></tr>");
14. ?>
15. <?php
18. echo "Сейчас слушают : ".$lives."<br>";
21. ?>

У меня этот скрипт почемуто не обновляется. т.е. кол-во слушателей показывает актуальное на момент загрузки страницы. Чтоб узнать, сколько слушателей слушает через минут 10 к примеру , надо перезагружать страницу.

06.11.2011

Этот скрипт так и должен работать. Чтобы заставить его обновляться надо использоваться ajax/jquery.
Так же могу сделать на пару $ ))

06.11.2011

Ну а что тебя в аське не видно? тут не удобно общаться

06.11.2011

пиши ему в вконтакт..

06.11.2011

у меня аська - germes.07@bk.ru . В качестве логина е-маил, пиши туда, даже если оффлайн, бывает в инвизе сижу.

08.11.2011

Кстати мне KyPIIaToB дал новый скрипт отбивки часов. Там, где просто новый час произносится поверх играющей песни. В одном случае без приглушения эфира, во втором случае с затуханием до - 160.
Но мне нужен скрипт, который во время Ч сводит текущую песню, проигрывает отбивку часовую, потом start_hour (джингл) и затем запускает новый трек.

08.11.2011

За $ тебе falcon вон сделает) обращайся к нему )

08.11.2011

KyPIIaToB Ты сам как то в одном из своих постов тут обмолвился, что этот форум для взаимной помощи друг другу. И совсем не обязательно, что за деньги )) Я устал уже $ сорить. Я их не печатаю :)
Где старое доброе НЕ меркантильное общество?

08.11.2011

Предложите вы, предложат вам.
В наше время просто так выполнять за кого-то какую-либо работу мало кто станет. Как ни крути,на это затрачивается всё таки личное время.

08.11.2011

Да я с радостью могу предложить всё, что знаю. Всё о работе Сэма, русификацию стандартного стола заказов Сэма php ... Вобщем всё о семе... вы только спрашивайте ) А вот всё, что связанно с сайтом - увольте :)

08.11.2011

Мы как бы и помогаем, или в твоем понятии "помогать", значит делать исключительно все? Лично я не видел что бы ты чем либо тут помог. Так что теперь задумайся об фразе "взаимной помощи друг другу".

Добавлено спустя 2 минуты 14 секунд:

Все нужное для SAM есть в соответствующей теме.
Русская версия SAM php так же валяется в рунете открыто уже очень и очень давно, ты новенькое что нить выкладывай, удиви нас.

09.11.2011

Кстати твой скрипт

1. var P : TPlayer;
2. var Song : TSongInfo;
3. var strFile, strPath, strJingle : String;
4. var i : integer;
6. PAL.Loop := True;
8. i := ActivePlayer.GetVolume;
10. P := SoundFX;
12. strPath := 'E:\CLOCK\'; //путь к папке с отбивкой
14. PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа
16. strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
17. Queue.AddFile(strFile, ipTop);
18. Song := Queue.NextInQueue;
19. P.QueueSong(Song);
21. ActivePlayer.Volume := i - 40;
22. ActivePlayer.Volume := i - 80;
23. ActivePlayer.Volume := i - 120;
24. ActivePlayer.Volume := i - 160;
26. P.Play;
27. PAL.WaitForTime('+00:00:03');
29. ActivePlayer.Volume := i - 160;
30. ActivePlayer.Volume := i - 120;
31. ActivePlayer.Volume := i - 80;
32. ActivePlayer.Volume := i - 40;
33. ActivePlayer.Volume := i;

Почемуто обратно ползунок громкости в деке обратно не возвращает, если к примеру добавить - 200. Например

1. ActivePlayer.Volume := i - 40;
2. ActivePlayer.Volume := i - 80;
3. ActivePlayer.Volume := i - 120;
4. ActivePlayer.Volume := i - 160;
5. ActivePlayer.Volume := i - 200;
7. P.Play;
8. PAL.WaitForTime('+00:00:03');
10. ActivePlayer.Volume := i - 200;
11. ActivePlayer.Volume := i - 160;
12. ActivePlayer.Volume := i - 120;
13. ActivePlayer.Volume := i - 80;
14. ActivePlayer.Volume := i - 40;
15. ActivePlayer.Volume := i;

09.11.2011

Я вообще не тестировал этот скрипт, просто накидал по быстрому, вроде как я это написал. Я привел пример как можно сделать.