Пишим скрипты для СэМ Броадкастер
Скрипты для 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
