###################################
#Event triggered when lapper start#
###################################

Event OnLapperStart()
   	PlayerVar $colleft = "0" ;
	PlayerVar $colright = "0" ;
	PlayerVar $coloff = "16" ;
	PlayerVar $pitb = "0" ;
	PlayerVar $PB2Left = "0" ;
	GlobalVar $PBorigL ;
	$PBorigL = "1" ;
	GlobalVar $PBorigT ;
	$PBorigT = "70" ;
EndEvent


#############################################$#
#Splitting (general action when passing split)#
###############################################

Event OnSplit1()
IF ($pitb == "1" )
THEN
	IF ($DiffSectorSplit1 > "0.00.50")
	THEN
	  openPrivButton( "1st_split",$PBorigL + $PB2Left + 1,$PBorigT + 41,30,4,4,10,16,"^1you've lost^8: " . $DiffSectorSplit1 );
	ENDIF

	IF ($DiffSectorSplit1 < "-0.00.00")
	THEN
	  openPrivButton( "1st_split",$PBorigL + $PB2Left + 1,$PBorigT + 41,30,4,4,10,16,"^2you've gained^8: " . $DiffSectorSplit1 );
	ENDIF	
ENDIF
EndEvent

Event OnSplit2()
IF ($pitb == "1" )
THEN
	IF ($DiffSectorSplit2 > "0.00.50")
	THEN
	  openPrivButton( "2nd_split",$PBorigL + $PB2Left + 1,$PBorigT + 41,30,4,4,10,16,"^1you've lost^8: " . $DiffSectorSplit2 );
	ENDIF

	IF ($DiffSectorSplit2 < "-0.00.00")
	THEN
	  openPrivButton( "2nd_split",$PBorigL + $PB2Left + 1,$PBorigT + 41,30,4,4,10,16,"^2you've gained^8: " . $DiffSectorSplit2 );
	ENDIF
ENDIF
EndEvent

Event OnSplit3()
IF ($pitb == "1" )
THEN
	IF ($DiffSectorSplit3 > "0.00.50")
	THEN
	  openPrivButton( "3rd_split",$PBorigL + $PB2Left + 1,$PBorigT + 41,30,4,4,10,16,"^1you've lost^8: " . $DiffSectorSplit3 );
	ENDIF

	IF ($DiffSectorSplit3 < "-0.00.00")
	THEN
	  openPrivButton( "3rd_split",$PBorigL + $PB2Left + 1,$PBorigT + 41,30,4,4,10,16,"^2you've gained^8: " . $DiffSectorSplit3 );
	ENDIF
ENDIF
EndEvent

Event OnLap()
IF ($pitb == "1" )
THEN
	IF ($DiffSectorSplitLast > "0.00.50")
	THEN
	  openPrivButton( "last_split",$PBorigL + $PB2Left + 1,$PBorigT + 41,30,4,4,10,16,"^1you've lost^8: " . $DiffSectorSplitLast );
	ENDIF

	IF ($DiffSectorSplitLast < "-0.00.00")
	THEN
	  openPrivButton( "last_split",$PBorigL + $PB2Left + 1,$PBorigT + 41,30,4,4,10,16,"^2you've gained^8: " . $DiffSectorSplitLast );
	ENDIF
ENDIF
EndEvent

#######################################################
#Splitting (compare player split to best player split)#
#######################################################

$ShowSplitPB = true;
Event OnSpbSplit1()

IF( $isBestSectorSplit1 == 1 )
THEN
	$color = "^2";
	ELSE
	$color = "^1";
ENDIF

IF ($pitb == "1" )
THEN
	openPrivButton( "pitboard_total",$PBorigL + $PB2Left,$PBorigT,32,50,5,-1,32,"");
	openPrivButton( "pitboard_txt",$PBorigL + $PB2Left + 1,$PBorigT + 1,30,4,4,-1,32,"Pitboard" . "&" . $Nickname);

	closePrivButton("sec2_txt&sec3_txt&final_txt");
	openPrivButton( "sec1_txt",$PBorigL + $PB2Left + 1,$PBorigT + 9,15,4,4,-1,16,"Time sector 1:" . "&" . $color . $SectorSplit1);

	IF ( $SectorSplit1 < $BestSectorSplit1)
	THEN
	  openPrivButton( "best_s1_txt",$PBorigL + $PB2Left + 16,$PBorigT + 9,15,4,4,-1,16,"Best sector 1:" . "&" . $SectorSplit1);
	  openPrivButton( "best_lap_txt",$PBorigL + $PB2Left + 16,$PBorigT + 33,15,4,4,-1,16,"Best poss. lap:" . "&" . $color . $Tpb);
	ELSE
	  openPrivButton( "best_s1_txt",$PBorigL + $PB2Left + 16,$PBorigT + 9,15,4,4,-1,16,"Best sector 1:" . "&" . $BestSectorSplit1);
	  openPrivButton( "best_lap_txt",$PBorigL + $PB2Left + 16,$PBorigT + 33,15,4,4,-1,16,"Best poss. lap:" . "&" . $Tpb);
	ENDIF
ELSE

	openPrivButton( "id_spb",50,55,100,10,10,5,0,$typ
		. " ^7SP1"
		. ": " . $SectorSplit1 . " "
		. $color
		. "(" . $DiffSectorSplit1 . ")"
		. "&^7TPB:" . $Tpb);

ENDIF
EndEvent

Event OnSpbSplit2()

	
IF( $isBestSectorSplit2  == 1 )
THEN
	$color = "^2";
	ELSE
	$color = "^1";
ENDIF

IF ($pitb == "1" )
THEN
	openPrivButton( "sec2_txt",$PBorigL + $PB2Left + 1,$PBorigT + 17,15,4,4,-1,16,"Time sector 2:" . "&" . $color . $SectorSplit2);

	IF ( $SectorSplit2 < $BestSectorSplit2)
	THEN
	  openPrivButton( "best_s2_txt",$PBorigL + $PB2Left + 16,$PBorigT + 17,15,4,4,-1,16,"Best sector 2:" . "&" . $SectorSplit2);
	  openPrivButton( "best_lap_txt",$PBorigL + $PB2Left + 16,$PBorigT + 33,15,4,4,-1,16,"Best poss. lap:" . "&" . $color . $Tpb);
	ELSE
	  openPrivButton( "best_s2_txt",$PBorigL + $PB2Left + 16,$PBorigT + 17,15,4,4,-1,16,"Best sector 2:" . "&" . $BestSectorSplit2);
	  openPrivButton( "best_lap_txt",$PBorigL + $PB2Left + 16,$PBorigT + 33,15,4,4,-1,16,"Best poss. lap:" . "&" . $Tpb);
	ENDIF
ELSE
	openPrivButton( "id_spb",50,55,100,10,10,5,0,$typ
		. " ^7SP2"
		. ": " . $SectorSplit2 . " "
		. $color
		. "(" . $DiffSectorSplit2 . ")"
		. "&^7TPB:" . $Tpb);

ENDIF
EndEvent

Event OnSpbSplit3()

IF( $isBestSectorSplit3  == 1 )
THEN
	$color = "^2";
	ELSE
	$color = "^1";
ENDIF

IF ($pitb == "1" )
THEN
	openPrivButton( "sec3_txt",$PBorigL + $PB2Left + 1,$PBorigT + 25,15,4,4,-1,16,"Time sector 3:" . "&" . $color . $SectorSplit3);

	IF ( $SectorSplit3 < $BestSectorSplit3)
	THEN
	  openPrivButton( "best_s3_txt",$PBorigL + $PB2Left + 16,$PBorigT + 25,15,4,4,-1,16,"Best sector 3:" . "&" . $SectorSplit3);
	  openPrivButton( "best_lap_txt",$PBorigL + $PB2Left + 16,$PBorigT + 33,15,4,4,-1,16,"Best poss. lap:" . "&" . $color . $Tpb);
	ELSE
	  openPrivButton( "best_s3_txt",$PBorigL + $PB2Left + 16,$PBorigT + 25,15,4,4,-1,16,"Best sector 3:" . "&" . $BestSectorSplit3);
	  openPrivButton( "best_lap_txt",$PBorigL + $PB2Left + 16,$PBorigT + 33,15,4,4,-1,16,"Best poss. lap:" . "&" . $Tpb);
	ENDIF
ELSE
	openPrivButton( "id_spb",50,55,100,10,10,5,0,$typ
						. " ^7SP3"
						. ": " . $SectorSplit3 . " "
						. $color
						. "(" . $DiffSectorSplit3 . ")"
						. "&^7TPB:" . $Tpb);

ENDIF
EndEvent

Event OnSpbLast()

IF( $isBestSectorSplitLast  == 1 )
THEN
	$color = "^2";
	ELSE
	$color = "^1";
ENDIF

IF ($pitb == "1" )
THEN
	openPrivButton( "final_txt",$PBorigL + $PB2Left + 1,$PBorigT + 25,15,4,4,-1,16,"Time sector 3:" . "&" . $color . $SectorSplitLast);

	IF ( $SectorSplitLast < $BestSectorSplitLast)
	THEN
	  openPrivButton( "best_final_txt",$PBorigL + $PB2Left + 16,$PBorigT + 25,15,4,4,-1,16,"Best sector 3:" . "&" . $SectorSplitLast);
	  openPrivButton( "best_lap_txt",$PBorigL + $PB2Left + 16,$PBorigT + 33,15,4,4,-1,16,"Best poss. lap:" . "&" . $color . $Tpb);
	ELSE
	  openPrivButton( "best_final_txt",$PBorigL + $PB2Left + 16,$PBorigT + 25,15,4,4,-1,16,"Best sector 3:" . "&" . $BestSectorSplitLast);
	  openPrivButton( "best_lap_txt",$PBorigL + $PB2Left + 16,$PBorigT + 33,15,4,4,-1,16,"Best poss. lap:" . "&" . $Tpb);
	ENDIF
	openPrivButton( "last_lap_txt",$PBorigL + $PB2Left + 1,$PBorigT + 33,15,4,4,-1,16,"Last lap:" . "&" . $LapTime);
ELSE
	openPrivButton( "id_spb",50,55,100,10,10,5,0,$typ
						. " ^7SPL: "
						. $SectorSplitLast . " "
						. $color
						. "(" . $DiffSectorSplitLast
						. ")&^7TPB:" . $Tpb . " Avg:" . $AvgSpeed . " " . $UnitSpeed );

ENDIF
EndEvent

####################################################
#Actions to do on splits relative to trackinfo.cfg#
####################################################
#Local variable: {SplitTime} - Split time
#-------------------------------------------------------------------

Sub TRI_split1_0()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "amazing_1st_split",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^2Amazing ^71st split " . $Nickname );
ELSE
	cmdLFS( "/msg Amazing 1st split (" . $SplitTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_split1_1()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "great_1st_split",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^2Great ^71st split " . $Nickname );
ELSE
	cmdLFS( "/msg Great 1st split (" . $SplitTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_split1_2()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "good_1st_split",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^3Good ^71st split " . $Nickname );
ELSE
	cmdLFS( "/msg Good 1st split (" . $SplitTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_split2_0()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "amazing_2nd_split",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^2Amazing ^72nd split " . $Nickname );
ELSE
	cmdLFS( "/msg Amazing 2nd split (" . $SplitTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_split2_1()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "great_2nd_split",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^2Great ^72nd split " . $Nickname );
ELSE
	cmdLFS( "/msg Great 2nd split (" . $SplitTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_split2_2()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "good_2nd_split",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^3Good ^72nd split " . $Nickname );
ELSE
	cmdLFS( "/msg Good 2nd split (" . $SplitTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_split3_0()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "amazing_3rd_split",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^2Amazing ^73rd split " . $Nickname );
ELSE
	cmdLFS( "/msg Amazing 3rd split (" . $SplitTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_split3_1()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "great_3rd_split",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^2Great ^73rd split " . $Nickname );
ELSE
	cmdLFS( "/msg Great 3rd split (" . $SplitTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_split3_2()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "good_3rd_split",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^3Good ^73rd split " . $Nickname );
ELSE
	cmdLFS( "/msg Good 3rd split (" . $SplitTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_lap_0()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "amazing_lap",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^2Amazing ^7lap " . $Nickname );
ELSE
	cmdLFS( "/msg Amazing lap (" . $LapTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_lap_1()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "great_lap",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^2Great ^7lap " . $Nickname );
ELSE
	cmdLFS( "/msg Great lap (" . $LapTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub

Sub TRI_lap_2()
IF ($pitb == "1" )
THEN
	closeGlobalButton("amazing_1st_split&great_1st_split&good_1st_split&amazing_2nd_split&great_2nd_split&good_2nd_split&amazing_3rd_split&great_3rd_split&good_3rd_split&amazing_lap&great_lap&good_lap");
	openGlobalButton( "good_lap",$PBorigL + $PB2Left + 1,$PBorigT + 45,30,4,4,10,16,"^3Good ^7lap " . $Nickname );
ELSE
	cmdLFS( "/msg Good lap (" . $LapTime . ") by " . $Nickname . "^8!" );
ENDIF
EndSub




#################
#Command actions#
#################
#$allow is optional if you wish to specify users, that are allowed to execute action
#You can specify more users if you separated them by ','
#You can use a file to specify users, one user per line (example : $allow = "&./your_file.flt";)
#If ! before a name, force nickName authentification if UseUsernameForAuthentication=true
#If ! before a name, force userName authentification if UseUsernameForAuthentication=false
#You can use regexp expression in userName pattern, type regex=your regular expression
#
#Example:	if UseUsernameForAuthentication=true
#		!regex=^\[COP\].*
#		Find all user with a nickname that begins with [COP]
#		regex=^Gai.*
#		Find all user with a username that begins with Gai
# 		See regular expression on web for more info how it work
#
#Use & sign at end of patterns
#-------------------------------------------------------------------

$UseUsernameForAuthentication = true;

Register MsgAction("!pitboard",MA_pitboard);
Sub MA_pitboard()
IF( $pitb != "1" )
THEN
   	$colleft = "0" ;
	$colright = "0" ;
	$coloff = "16" ;
ELSE
	IF( $PB2Left == "0" )
	THEN
   		$colleft = "16" ;
		$colright = "0" ;
		$coloff = "0" ;
	ELSE
   		$colleft = "0" ;
		$colright = "16" ;
		$coloff = "0" ;
	ENDIF
ENDIF
		openPrivButton( "pitboard",40,0,27,3,3,-1,96," Pitboard :");
		openPrivButton( "pitboardleft",48,0,5,3,3,-1,$colleft,"Left",MA_pitboardleft);
		openPrivButton( "pitboardright",53,0,5,3,3,-1,$colright,"Rigth",MA_pitboardrigth);
		openPrivButton( "pitboardoff",58,0,5,3,3,-1,$coloff,"OFF",MA_pitboardoff);
		openPrivButton( "pitboardclose",63,0,3,3,3,-1,16,"[X]",MA_pitboardclose);
EndSub
Sub MA_pitboardleft()
	$PB2Left = "0" ;
	closePrivButton("pitboardleft&pitboardright&pitboardoff");
	openPrivButton( "pitboardleft",48,0,5,3,3,-1,16,"Left",MA_pitboardleft);
	openPrivButton( "pitboardright",53,0,5,3,3,-1,0,"Rigth",MA_pitboardrigth);
	openPrivButton( "pitboardoff",58,0,5,3,3,-1,0,"OFF",MA_pitboardoff);
	closePrivButton("pitboard_total&pitboard_txt&sec2_txt&sec3_txt&final_txt&sec1_txt&best_s1_txt&best_lap_txt&best_s2_txt&best_s3_txt&best_final_txt&best_lap_txt&last_lap_txt");
	openPrivButton( "pitboard_total",$PBorigL + $PB2Left,$PBorigT,32,50,5,-1,32,"");
	openPrivButton( "pitboard_txt",$PBorigL + $PB2Left + 1,$PBorigT + 1,30,4,4,-1,32,"Pitboard" . "&" . $Nickname);
	$pitb = "1" ;
EndSub
Sub MA_pitboardrigth()
	$PB2Left = "166" ;
	closePrivButton("pitboardleft&pitboardright&pitboardoff");
	openPrivButton( "pitboardleft",48,0,5,3,3,-1,0,"Left",MA_pitboardleft);
	openPrivButton( "pitboardright",53,0,5,3,3,-1,16,"Rigth",MA_pitboardrigth);
	openPrivButton( "pitboardoff",58,0,5,3,3,-1,0,"OFF",MA_pitboardoff);
	closePrivButton("pitboard_total&pitboard_txt&sec2_txt&sec3_txt&final_txt&sec1_txt&best_s1_txt&best_lap_txt&best_s2_txt&best_s3_txt&best_final_txt&best_lap_txt&last_lap_txt");
	openPrivButton( "pitboard_total",$PBorigL + $PB2Left,$PBorigT,32,50,5,-1,32,"");
	openPrivButton( "pitboard_txt",$PBorigL + $PB2Left + 1,$PBorigT + 1,30,4,4,-1,32,"Pitboard" . "&" . $Nickname);
	$pitb = "1" ;
EndSub
Sub MA_pitboardoff()
	closePrivButton("pitboardleft&pitboardright&pitboardoff");
	openPrivButton( "pitboardleft",48,0,5,3,3,-1,0,"Left",MA_pitboardleft);
	openPrivButton( "pitboardright",53,0,5,3,3,-1,0,"Rigth",MA_pitboardrigth);
	openPrivButton( "pitboardoff",58,0,5,3,3,-1,16,"OFF",MA_pitboardoff);
	closePrivButton("pitboard_total&pitboard_txt&sec2_txt&sec3_txt&final_txt&sec1_txt&best_s1_txt&best_lap_txt&best_s2_txt&best_s3_txt&best_final_txt&best_lap_txt&last_lap_txt");
	$pitb = "2" ;
EndSub
Sub MA_pitboardclose()
	closePrivButton("pitboard&pitboardleft&pitboardright&pitboardoff&pitboardclose");
EndSub