Op zoek naar een heel oud (maar werkend PAL script)

[antpeks]

Tijden geleden, iets van een paar jaar had ik een script gevonden op het spacial audio forum dat me in staat stelde het volgende te doen:

- een jingle te draaien om de zoveel platen, of in geval van een djset na elke zoveel minuten automatisch de muziek volume verlaagde, een jingle draaide in de aux speler en dan het volume weer terug zette op het originele stand.

heeft iemand een dergelijke PAL liggen of misschien zelfs het origineel van destijds (praat over een paar jaar geleden)

Peter
http://djbeatz.eu

[Gerrit]

Voor je eerste vraag heb ik alwel een PAL gevonden, een jingle om de zoveel platen m.u.v. rond het nieuws.

Code: Selecteer alles

  PAL.Loop:=True;

    var D : DateTime;
    D := T['XX:56:00'];  //de tijd waarmee hij er mee stopt.
    WriteLn(D); //da`s een test voor de output

    repeat
     PAL.WaitForPlayCount(4); //na 4 nummers 1 jingle blijft doorgaan tot hij de stop-tijd krijgt
    if Now < D then
      Cat['Jingles (All)'].QueueTop(smLRP, NoRules);
    until Now > D;

    PAL.WaitForTime(T['XX:03:00']);  //wacht tot XX:03 en daarna begint ie weer van voor af aan :)

Voor je tweede vraag moet ik ff zoeken, weet niet zeker of ik die heb, dus als iemand anders die inmiddels wel gevonden heeft dan mag die hem wel plaatsen

BTW heb je de zoekfunctie van dit forum al gebruikt ? Want de bovenstaande PAL staat ook gewoon op het Forum !

[antpeks]

Gerrit,

Misschien dat ik de vraag verkeerd geformuleerd heb, het betrefd echt een heel oud PAL script dat in één script beiden doet. Dus het controleerd of hoelang de muziek speelt als het landeger dan zo lang aan een stuk is dan speelt het een jingle over de muziek. Of anders na zoveel tracks.

Het is dus echt één PAL, en nee ik heb het niet gevonden met de zoek functie. wel een kort topic dat ook zoiets vraagt maar niet waar het script in staat.

Peter

[Wout]

Happy Millenium!
viewtopic.php?f=81&t=502&start=0&hilit=jingle+aux

Code: Selecteer alles

// This PAL will check which player is active
// Then put a liner in the aux player1
// Reduce the Volume in the main player - Play the Liner
// Then set the Volume back again
//
// by CountryWesternDJ - 11/25/04 - v1.0

// Modified to wait till top of the hour

PAL.loop := true;
var P1, P2 : TPlayer;
var i : integer;
var Song : TSongInfo;



{## Wait for next hour}
PAL.WaitForTime('XX:00:00');
  P1 := ActivePlayer;

  // Get what the Volume is set to
  i := ActivePlayer.GetVolume;

  // Detect the empty player and queue a station ID in it
  P2 := Aux1;
  IdlePlayer.Volume := i;
  if P2 <> nil then
    Song := CAT['Promos (All)'].ChooseSong(smLRP,NoRules);
  if Song <> nil then
    P2.QueueSong(Song);

  // Reduce the Active Player by 50%
  // Divide by 3 to get 33%, etc.
  ActivePlayer.Volume := i / 2;

  P2.play;

  //Keep checking until the line is finished
  repeat
  // writeln(inttostr(p2.status));
  until P2.status = psReady;

  // Reset Volume Back To Normal
  ActivePlayer.Volume := i;
  Song.Free; 

[antpeks]

Wout je bent nog steeds een held !!!!, maar het is hem niet die ik zoek, het is de combinatie van de twee scripts die ik zoek, een jingle om de zoveel plaaten tenzij de plaat langer is zoveel minuten, maar ik ga eens kijken of ik iets kan maken het komende weekeinde.

Peter