###############################################
#Plugin created by Bass-Driver
#Version 0.1
#Edited by:
###############################################

CatchEvent OnLapperStart()
	GlobalVar $PluginTitle; $PluginTitle = "SPEC D-SCORE";
	GlobalVar $PluginVersion; $PluginVersion = "V0.1";
EndCatchEvent


CatchEvent OnConnect( $userName ) # Player event
	IF (GetPlayerVar($userName, "OnTrack") == 0) THEN
		DisplayScores($userName); #Call sub to update Panel
	ENDIF
EndCatchEvent

CatchEvent OnNewPlayerJoin( $userName )  # Player event
	DisplayScores($userName); #Call sub to update Panel
EndCatchEvent

CatchEvent OnLeaveRace( $userName )  #Player goes to pit or spectates
	DisplayScores($userName); #Call sub to update Panel
EndCatchEvent

CatchEvent OnDriftScore($userName) # Player event
	$hgt = 80;
	$Spectators = getListOfPlayers("N");
	FOREACH( $Var IN $Spectators ) #For each player in the $spectator list
		IF (GetPlayerVar($Var["value"], "OnTrack") == 0) THEN #IF player is a spectator
			FOREACH( $maVar IN $Spectators )
				IF (GetPlayerVar($maVar["value"], "OnTrack") == 1) THEN #IF player is on track , display his name and totaldriftscore
					$hgt=$hgt+4; #Buttonheight + 4
					openButton($Var["value"],"Spec_DScorePly_".$maVar["value"],170,$hgt+2,18,4,1,-1,96,"".Getplayervar($maVar["value"],"NickName"));
					openButton($Var["value"],"Spec_DScore_DScore_".$maVar["value"],188,$hgt+2,12,4,1,-1,32,"^3".Getplayervar($maVar["value"],"DriftScore"));
				ENDIF
			ENDFOREACH
		ENDIF
	ENDFOREACH
EndCatchEvent

CatchEvent OnDriftResetScore( $userName ) # Player event
	$hgt = 80;
	$Spectators = getListOfPlayers("N"); #Get list of players (Sort by NickName)
	FOREACH( $Var IN $Spectators ) #For each player in the $spectator list
		IF (GetPlayerVar($Var["value"], "OnTrack") == 0) THEN #IF player is a spectator
			FOREACH( $maVar IN $Spectators )
				IF (GetPlayerVar($maVar["value"], "OnTrack") == 1) THEN #IF player is on track , display his name and totaldriftscore
					$hgt=$hgt+4; #Pos of button + 4
					openButton($Var["value"],"Spec_DScore_DScore_".$maVar["value"],188,$hgt+2,12,4,1,-1,32,"^1 TOO SLOW!!");
				ENDIF
			ENDFOREACH
		ENDIF
	ENDFOREACH
EndCatchEvent

Sub DisplayScores($userName)
			CloseSpecDriftScore($userName);	
			$Spectators = getListOfPlayers("N"); #Get list of players (Sort by NickName)
			FOREACH( $Var IN $Spectators ) #For each player in the $spectator list
			$hgt = 75;
			$hgt_btn = 11;
				IF (GetPlayerVar($Var["value"], "OnTrack") == 0) THEN #IF player is a spectator	
					#Design
					openButton($Var["value"], "Spec_DScorebgd",168,75,41,$hgt_btn+1,1,-1,32,"");
					openButton($Var["value"], "Spec_DScorebgdlgh",169,76,41,$hgt_btn-1,1,-1,16,"");
					
					openButton($Var["value"], "Spec_DScore_Title",170,$hgt+1,30,5,1,-1,0,"".$PluginTitle);
					openButton($Var["value"], "Spec_DScore_NameTitle",170,$hgt+6,18,4,1,-1,32,"^7PlayerName");
					openButton($Var["value"], "Spec_DScore_ScoreTitle",188,$hgt+6,12,4,1,-1,32,"^7DriftScore");
					#List of players on track
					$hgt=$hgt+9;
					FOREACH( $maVar IN $Spectators )
						IF (GetPlayerVar($maVar["value"], "OnTrack") == 1) THEN #IF player is on track , display his name and scorebutton
							openButton($Var["value"],"Spec_DScorebgd",168,75,41,$hgt_btn+6,1,-1,32,"");
							openButton($Var["value"],"Spec_DScorebgdlgh",169,76,41,$hgt_btn+4,1,-1,16,"");
							openButton($Var["value"],"Spec_DScorePly_".$maVar["value"],170,$hgt+2,18,4,1,-1,96,"".Getplayervar($maVar["value"],"NickName"));
							openButton($Var["value"],"Spec_DScore_DScore_".$maVar["value"],188,$hgt+2,12,4,1,-1,96,"^30");
							$hgt_btn=$hgt_btn+4; #Buttonheight + 4
							$hgt=$hgt+4;
						ENDIF
					ENDFOREACH
				ENDIF
			ENDFOREACH
EndSub

Sub CloseSpecDriftScore($userName)
	$Racers = getListOfPlayers("N");
	FOREACH( $maVar IN $Racers )
		IF (GetPlayerVar($maVar["value"], "OnTrack") == 0) THEN #Spectating player	
			closebutton($maVar["value"],"Spec_DScorePly_".$userName);
			closebutton($maVar["value"],"Spec_DScore_DScore_".$userName);
			closebutton($maVar["value"],"Spec_DScore_DScore_ ");
			closebutton($maVar["value"],"Spec_DScore_DScore_");
		ELSE													#Player on track
			closebutton($maVar["value"],"Spec_DScore_Title&Spec_DScorebgd&Spec_DScorebgdlgh&Spec_DScore_NameTitle&Spec_DScore_ScoreTitle");
			closebutton($maVar["value"],"Spec_DScorePly_".$userName);
			closebutton($maVar["value"],"Spec_DScore_DScore_".$userName);
			closebutton($maVar["value"],"Spec_DScore_DScore_ ");
			closebutton($maVar["value"],"Spec_DScore_DScore_");
		ENDIF
	ENDFOREACH
EndSub