Dj Live Palscript

Voor vragen over Playlist Automation Language.
Plaats reactie
Gebruikersavatar
dj-ben
*
Berichten: 19
Lid geworden op: 24 jan 2011, 11:43
SAM-versie: 3.4.3.*
Database: MS SQL
Windows: 7 64-bits
Locatie: Doesburg

Dj Live Palscript

Ongelezen bericht door dj-ben »

Goedemorgen.

Ik ben op zoek naar een script wat er voor zorgt dat een dj niet hoeft te kicken op shoucast maar via zijn eigen Sam inlogt.
Zoiets is er al wat langer maar kan het nergens vinden.
Kan iemand me er mee helpen?

Bedankt alvast!

Ben
[smilie=music.gif]
Gebruikersavatar
drOhimself
Moderator
Berichten: 2941
Lid geworden op: 27 mar 2010, 11:44
SAM-versie: SAM 2014.7
Database: MySQL 5.0
Windows: 2000

Re: Dj Live Palscript

Ongelezen bericht door drOhimself »

Heb nog niet gezocht op het forum, maar plak meteen een PAL hierin.
Misschien is het wat voor je.
Maar volgens mij staat het standaard in je SAM map bij installatie.

Code: Selecteer alles

{ About:
   This script will disconnect any source connected
   to a SHOUTcast server and then connects this
   SAM Broadcaster as the new source.

   Usage:
    a) Create a single MP3 encoder to connect to the shoutcast server.
    b) Supply your shoutcast server details in the configuration section below
    c) Use the Event Scheduler to start this PAL script at the correct time.
}
{ CONFIGURATION }
{==================================================}
const shoutcast_password = '12345';
const shoutcast_host     = '97.257.120.53';
const shoutcast_port     = '8000';
{==================================================}


{ IMPLEMENTATION }
{--------------------------------------------------}

{ Build URL used to send command to SHOUTcast server }
var URL : String;
URL := 'http://admin:'+shoutcast_password+'@'+shoutcast_host+':'+shoutcast_port+'/admin.cgi?mode=kicksrc';
WriteLn('Kick source from SHOUTcast server');

{ Kick source from SHOUTcast server }
WebToFile('c:\dummy.txt',URL);

// Check to see if Encoder is Running
// Check to see if Active Deck is Playing
//
PAL.Loop := False;
//PAL.LockExecution;

var P    : TPlayer; 
var Q    : TPlayer; 
var encIndex : Integer; 
var encStatus : String; 
var allEnc : TEncoders; 
var ourEnc : TEncoder; 
{ ## Set this to the encoder you want to monitor
     This is the only thing you need to edit. Set this to 1 below 
     your encoder index. For example, if, in your encoder list, your 
     encoder is 2, set this to 1. } 
ourEnc := allEnc[1];
encStatus := ourEnc.Status;
P := ActivePlayer; 
Q := QueuedPlayer; 
//
// This will check to see if encoder(s) are running
//
if not(encStatus = 'Encoding') then
{ ## The encoder isn't running, so a live DJ is on, or the 
     broadcast server is down, either way, we'll stop the queue 
     so that requests aren't lost. } 
begin
WriteLn('Start Encoder 1');
Encoders[1].Start;
end;
//PAL.WaitForTime(T['+00:00:10']); //Wait 10 secs
//WriteLn('Zet jingle in Queue');
//Queue.AddFile('c:\mp3\Jingles\Tune.mp3',ipTop);
DeckA.Next;
DeckA.FadeToPlay;
//WriteLn('Zet songs in Queue');
//WriteLn('Wait 5 secs');
//PAL.WaitForTime(T['+00:00:05']); //Wait 5 secs
//Queue.AddList('c:\mp3\M3U-list\START.m3u',ipTop);
//Queue.Shuffle;
//Queue.Shuffle;

ourEnc.Free; 
allEnc.Free; 
P.Free; 
Q.Free;

// Script to Make Sure Either Deck A or Deck B are playing
// If Not, pop the next song in Queue and Play
// Repeat Every 5 seconds
// by CountryWesternDJ - version 1.0 - 10/26/2007

P := ActivePlayer;
Q := QueuedPlayer; 

// If Both Decks are stopped - Get Next Song In Queue & Play in Deck A
if ( (DeckA.Status <> psPlaying) and (DeckB.Status <> psPlaying) ) then
begin
  DeckA.Next;
  DeckA.FadeToPlay;
end;
WriteLn('Klaar !');
Groedjez,
drO
Gebruikersavatar
dj-ben
*
Berichten: 19
Lid geworden op: 24 jan 2011, 11:43
SAM-versie: 3.4.3.*
Database: MS SQL
Windows: 7 64-bits
Locatie: Doesburg

Re: Dj Live Palscript

Ongelezen bericht door dj-ben »

Bedankt.
Zo goed ken ik sam nog niet ..
Ik ga hiermee aan de slag.
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht