Пишим скрипты для СэМ Броадкастер
Скрипты для SAM
Сообщений 1 страница 8 из 8
Поделиться22010-01-03 15:58:29
Скрипт Статистики
<? require("config.php"); $db->open("SELECT songlist.*, historylist.listeners as listeners, historylist.requestID as requestID, historylist.date_played as starttime FROM historylist,songlist WHERE (historylist.songID = songlist.ID) AND (songlist.songtype='S') ORDER BY historylist.date_played DESC",6); $history = $db->rows(); reset($history); list($key, $song) = each($history); $listeners = $song["listeners"]; // посылаем браузеру заголовок о том, что будет выводиться рисунок header("Content-Type:image/png"); // загружаем фотновой изображение $image = "back.png"; $img = imagecreatefrompng ($image); // создаем цвет, в данном случае черный $black = imageColorAllocate($img, 0, 0, 0); //загружаем шрифты $mb = imageloadfont ('bfont.phpfont'); $m = imageloadfont ('mfont.phpfont'); //выводим текст ImageString($img, $mb, 0, 0, "Исполнитель:", $black); ImageString($img, $m, 0, 8, $song[artist], $black); ImageString($img, $mb, 0, 16, "Название:", $black); ImageString($img, $m, 0, 24, $song[title], $black); ImageString($img, $mb, 0, 32, "Альбом:", $black); ImageString($img, $m, 0, 40, $song[album], $black); ImageString($img, $mb, 0, 48, "год:", $black); ImageString($img, $m, 30, 48, $song[albumyear], $black); ImageString($img, $mb, 0, 56, "Слушателей:", $black); ImageString($img, $m, 77, 56, $listeners, $black); imagePNG($img); ?>
Поделиться32010-01-03 15:58:57
Скрипт каждые 30 минут добавляет джингл в очередь.
var Song : TSongInfo; //скрипт будет выполнятся постоянно(многократно) PAL.Loop := True; //ставим задержку на 3 песни PAL.WaitForTime('+00:30:00'); //выбираем трек наугад Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); //добавляем его в начало очереди Queue.Add(song,ipTop);
Добавь свои джинглы в папку(Категорию) Station IDs (в принцепе можно и в любую другу но придётся в строке "Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);" заменить "Station IDs (All)" на другую ).
Поделиться42010-01-03 17:14:30
denis_eskobar, все довольно-таки подробно объяснено...)) Но если вдруг возникнут какие-то проблемы, поможем в настройке...
Поделиться52010-10-07 03:00:59
Привет, подскажите что за ерунда...взял скрипт следующего вида
var P : TPlayer;
var Song : TSongInfo;
var strFile, strPath, strJingle : String;
strPath := 'H:\музыка\Radio\Отбивки\Часовые';
PAL.Loop := True;
PAL.WaitForTime('XX:59:15');
strFile := strPath + FormatDateTime('hh', now+1/24) + '23-00.mp3';
P := Aux1;
if P <> nil then
begin
Queue.AddFile(strJingle, ipTop);
Queue.AddFile(strFile, ipTop);
P := ActivePlayer;
if P <> nil then P.FadeToNext;
end;
....но в эфир они почему то не идут, что интересно последи трека, допустим, кодга подходить время звучания отбивки трек резко проматывается вперед и начинает звучать следующий за ним а отбивки часа так и не последовало.....
в чем дело ?? помогите ...спс!!
Поделиться62010-10-10 14:05:24
Мммм....мне кажется скрипт не правильно сформулирован сейчас сделаю и скину если получится в правильной форме СКРИПТ =)
Поделиться72010-10-10 14:15:22
пробуй модифицировать даный скрипт, он отбивает на 15й минутке каждого часа промо трек
var mySong : TSongInfo;
PAL.Loop := True;
PAL.WaitForTime('XX:15:00');
mySong := Cat['promo'].ChooseSong(smRandom, noRules);
Aux1.QueueSong(mySong);
Aux1.Play;
mySong.Free;
Поделиться82013-03-11 01:46:34
Привет нужен скрипт для Play Джэгал из SOUND FX