aanzwellend meer kerstmuziek voor en minder na kerst

Voor vragen over Playlist Automation Language.
Gebruikersavatar
radio010
*
Berichten: 24
Lid geworden op: 09 dec 2017, 08:27
SAM-versie: 3.4.3.*
Database: MySQL
Windows: 10
Locatie: 010
Contacteer:

aanzwellend meer kerstmuziek voor en minder na kerst

Ongelezen bericht door radio010 »

De kerstinhoud wordt geleidelijk aan steeds intensiever naarmate Kerstmis dichterbij komt, en na Kerstmis steeds minder.

Met een beetje aanpassen kun je dit ook gebruiken voor andere feestdagen of evenement dagen.

veel plezier ermee!

Code: Selecteer alles



PAL.LockExecution;

//PAL.Loop := True;

var theYear : Integer = 0;
var theMonth : Integer = 0;
var theDay : Integer = 0;
DecodeDate(now, theYear, theMonth, theDay);
var mytime : DateTime = now;
var randomInteger : Integer = 0;

WriteLn('theMonth='+IntToStr(theMonth));

if (theMonth = 12) then
begin
  WriteLn('theDay='+IntToStr(theDay));
  case theDay of
  1,2,3,4,5,6,7:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0))) then
      begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules)
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('1 Christmas');
    end;
  8,9,10,11,12,13,14:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0))) then
      begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('2 Christmas');
    end;
  15,16,17,18,19,20,21,22,23,24,25:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0)))
      then begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('3 Christmas');
    end;
  26:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0)))
      then begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('2 after Christmas');
    end;
  27,28,29,30:
    begin
      if (mytime >= (date + EncodeTime(18,00,00,0))) then
      begin
          cat['Quiet'].QueueTop(smLRP, EnforceRules);
      end
      else begin
          cat['Christmas'].QueueTop(smLRP, EnforceRules);
      end;
      WriteLn('1 after Christmas');
    end;
    end;
end;

PAL.UnlockExecution;
Plaats reactie
  • Vergelijkbare Onderwerpen
    Reacties
    Weergaves
    Laatste bericht