#==================================================================================#
#Scriptname: 	AutoLayoutChanger.LPR
#Author: 	 	Bass-Driver
#Version: 	 	0.1
#VersionDate: 	26-05-2018
#Description:
###0.1
#	-Initial Release (NOT TESTED!!!!)
#==================================================================================#

$LayoutFolder = "";  	#LFSLapper must be on the same machine as the LFS Server.
						#Set Path to the layoutfolder of your LFSServer
						#$LayoutFolder = ""; #Example : C:\LFS_0.6R\data\layout
						#The layouts in your Layoutfolder must also exist in the default Layoutfolder of your LFS directory.

CatchEvent OnLapperStart()

	GlobalVar $Timelimit; $Timelimit = 90;  	#This is the time in minutes
	GlobalVar $ElapsedTime; $ElapsedTime = 0;	#Reset Value to (re)start the timer.
	GlobalVar $NrOfLayout; $NrOfLayout = 1;		#Reset Value to start from the top of the layout list.
	
	#ss mm hh dayOfWeek dd MM YYYY
	RegisterScheduleAction( "0 * * * * * *", RSA_Time ); #Execute this action each minute
	
EndCatchEvent
						
Sub RSA_Time() # Lapper Event
	$ElapsedTime = $ElapsedTime + 1;
	
	#IF $ElapsedTime is bigger or equal than the timelimit
	#Reset $ElapsedTime and goto Load layout sub
	IF ($ElapsedTime >= $Timelimit) THEN
		$ElapsedTime = 0;
		LoadLayout();
	ENDIF
EndSub

Sub LoadLayout()
#The vars below are needed to retreive the layout from the layoutfolder
	$Filter = "";
	$Sort = "LAYOUTNAME";
	$TypeSort = "ASC";

	#Try to retreive the layouts from the layoutfolder you have set above
    $layoutlist = getlistoflayouts($Filter,$Sort,$TypeSort);
	
	#Get numberoflayouts from the current track
	$MaxNumberOfLayouts = $layoutlist["NumberOfLayouts"];

	#Load the layout
	privmsg("Loading Layout:".$layoutlist[$NrOfLayout,"LayoutName"]);
	cmdLFS("/axload ".$layoutlist[$NrOfLayout,"LayoutName"]);
	
	#Set numberoflayout for the next action
	$NrOfLayout = $NrOfLayout + 1;
	#IF $NrOfLayout is bigger or equal than the number of layouts in your layoutfolder
	#Reset $NrOfLayout
	IF ($NrOfLayout >= $MaxNumberOfLayouts) THEN
		$NrOfLayout = 1;
	ENDIF
EndSub