Форум Интернет Радио

Объявление

Закажи рекламу в этом блоке 1 месяц бесплатно - ICQ 567-37-97

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Форум Интернет Радио » SAM Broadcaster » Скрипты для SAM


Скрипты для SAM

Сообщений 1 страница 8 из 8

1

Пишим скрипты для СэМ Броадкастер

0

2

Скрипт Статистики

Код:
<?
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);
?>

0

3

Скрипт каждые 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)" на другую ).

0

4

denis_eskobar, все довольно-таки подробно объяснено...)) Но если вдруг возникнут какие-то проблемы, поможем в настройке...

0

5

Привет, подскажите что за ерунда...взял скрипт следующего вида
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;

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

в чем дело ?? помогите ...спс!!

0

6

Мммм....мне кажется скрипт не правильно сформулирован сейчас сделаю и скину если получится в правильной форме СКРИПТ =)

0

7

пробуй модифицировать даный скрипт, он отбивает на 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;

0

8

Привет нужен скрипт  для Play  Джэгал из SOUND FX

0


Вы здесь » Форум Интернет Радио » SAM Broadcaster » Скрипты для SAM


Рейтинг форумов | Создать форум бесплатно