##########################################
#AUTOTRACKCHANGE
##########################################
Sub AutoTrackChangeOn($KeyFlags,$id)

	$nickName = GetCurrentPlayerVar("NickName");

	IF($AutoTrackChange == "on")
	THEN
	privMsg( "^7>ATC ALREADY TURNED ^2ON!!!");
	ELSE
	$AutoTrackChange = "on";
	cmdLFS("/msg ^7>" . GetCurrentPlayerVar("Nickname") . "^7 Turned ATC ^2ON!!!" );
	RegisterScheduleAction( "0 0 0 * * * *", SA_RotateTrack0 );
	RegisterScheduleAction( "0 0 3 * * * *", SA_RotateTrack3 );
	RegisterScheduleAction( "0 0 6 * * * *", SA_RotateTrack6 );
	RegisterScheduleAction( "0 0 9 * * * *", SA_RotateTrack9 );
	RegisterScheduleAction( "0 0 12 * * * *", SA_RotateTrack12 );
	RegisterScheduleAction( "0 0 15 * * * *", SA_RotateTrack15 );
	RegisterScheduleAction( "0 0 18 * * * *", SA_RotateTrack18 );
	RegisterScheduleAction( "0 0 21 * * * *", SA_RotateTrack21 );
	ENDIF
	ClosePrivButton("ATCONOFF&ATCON&ATCOFF");
EndSub

Sub AutoTrackChangeOff($KeyFlags,$id)

	IF($AutoTrackChange == "off")
	THEN
	privMsg( "^7>ATC ALREADY TURNED ^1OFF!!!");
	ELSE
	$AutoTrackChange = "off";
	cmdLFS("/msg ^7>" . GetCurrentPlayerVar("Nickname") . "^7 Turned ATC ^1OFF!!!" );
	ENDIF
	ClosePrivButton("ATCONOFF&ATCON&ATCOFF");
EndSub

#################
#Command actions#
#################

CASE "!atc":
			openPrivButton( "ATCONOFF",65,66,70,9,9,-1,32,"^7AutoTrackChange On/Off?" );
    			openPrivButton( "ATCON",80,85,18,10,10,-1,32," On ", AutoTrackChangeOn );
    			openPrivButton( "ATCOFF",102,85,18,10,10,-1,32," Off ", AutoTrackChangeOff );
			BREAK;


#######################################
#RegisterScheduleAction  ROTATE TRACK:
########################################
Sub SA_RotateTrack0()
IF($AutoTrackChange == "on")
THEN
cmdLFs( "/end " );
cmdLFS("/msg ^7> AUTOMATIC TRACK CHANGE" );
DelayedCommand( 5, TrackRotate0 );
ENDIF
EndSub

Sub SA_RotateTrack3()
IF($AutoTrackChange == "on")
THEN
cmdLFS( "/end " );
cmdLFS("/msg ^7> AUTOMATIC TRACK CHANGE" );
DelayedCommand( 5, TrackRotate3 );
ENDIF
EndSub

Sub SA_RotateTrack6()
IF($AutoTrackChange == "on")
THEN
cmdLFS( "/end " );
cmdLFS("/msg ^7> AUTOMATIC TRACK CHANGE" );
DelayedCommand( 5, TrackRotate6 );
ENDIF
EndSub

Sub SA_RotateTrack9()
IF($AutoTrackChange == "on")
THEN
cmdLFS( "/end " );
cmdLFS("/msg ^7> AUTOMATIC TRACK CHANGE" );
DelayedCommand( 5, TrackRotate9 );
ENDIF
EndSub

Sub SA_RotateTrack12()
IF($AutoTrackChange == "on")
THEN
cmdLFS( "/end " );
cmdLFS("/msg ^7> AUTOMATIC TRACK CHANGE" );
DelayedCommand( 5, TrackRotate12 );
ENDIF
EndSub

Sub SA_RotateTrack15()
IF($AutoTrackChange == "on")
THEN
cmdLFS( "/end " );
cmdLFS("/msg ^7> AUTOMATIC TRACK CHANGE" );
DelayedCommand( 5, TrackRotate15 );
ENDIF
EndSub

Sub SA_RotateTrack18()
IF($AutoTrackChange == "on")
THEN
cmdLFS( "/end " );
cmdLFS("/msg ^7> AUTOMATIC TRACK CHANGE" );
DelayedCommand( 5, TrackRotate18 );
ENDIF
EndSub

Sub SA_RotateTrack21()
IF($AutoTrackChange == "on")
THEN
cmdLFS( "/end " );
cmdLFS("/msg ^7> AUTOMATIC TRACK CHANGE" );
DelayedCommand( 5, TrackRotate21 );
ENDIF
EndSub


###################################
#DELAYED COMMAND SUB#
###################################

Sub TrackRotate0()
cmdLfs( "/track=FE3R");
EndSub


##################################

Sub TrackRotate3()
cmdLfs( "/track=KY3R");
EndSub

##################################

Sub TrackRotate6()
cmdLfs( "/track=BL1R");
EndSub


##################################

Sub TrackRotate9()
cmdLfs( "/track=FE4R");
EndSub

##################################

Sub TrackRotate12()
cmdLfs( "/track=KY2R");
EndSub

##################################

Sub TrackRotate15()
cmdLfs( "/track=FE3R");
EndSub

##################################

Sub TrackRotate18()
cmdLfs( "/track=AU1");
EndSub

##################################

Sub TrackRotate21()
cmdLfs( "/track=FE3R");
EndSub