#  A trigger is needed to activate the Sub 'NormalTopDriftList' 
# Using Spec mode to open panel to give a button to click

CatchEvent OnLeaveRace( $userName )  # Player event
	openPrivButton( "quick_smallback",1,89,32,10,2,-1,32,"" );
	openPrivButton( "quick_smallfront",2,90,30,8,5,-1,16,"");
	openPrivButton( "quick_driftname",4,92,26,5,5,-1,32,"Top Drifts",NormalTopDriftList);    
EndCatchEvent

Sub MyPosTopDriftList ( $KeyFlags,$id )
	DoMyDriftTop( $argv,FALSE,TRUE ); #display Player's current position
EndSub

Sub NormalTopDriftList( $KeyFlags,$id )
	DoMyDriftTop( $argv,FALSE,FALSE ); #Normal toplist
EndSub

#------------------------#
#DriftToplist
#------------------------#
Sub DoMyDriftTop( $argv,$flagQual,$flagNear )

#$argv: Listposition or cars 
#$flagQual FALSE = Display normal list ELSE 'TRUE' = Display QualifyList
#$flagNear FALSE = Display topdriftlist  ELSE 'TRUE' = go to your position

    $list = getlisttopdrift( $argv,$flagQual,$flagNear ); #Get List from database
	
	$currUName = getCurrentPlayerVar( "UserName" );
	$TopDriftButClose = "";
	
	$initTop = 40; #Startheight
    $P_H = 5;	#Height of button
    $P_T = $initTop + ($P_H); 
		
###Background/Title/CloseButton###
	
	openPrivButton("DriftTopList_bgd",64,$initTop-7,58,110+11,10,-1,16,"^0");
	openPrivButton("DriftTopList_title",65,$initTop-6,56,6,10,-1,32,"^7Drift Toplist");
	openPrivButton("DriftTopList_close",65,$initTop+95+11,56,6,10,-1,32,"^7Close List",DoCloseDriftTop);
	
###First Row###
	
	openPrivButton("colpos", 65, $P_T-5, 7, $P_H, $P_H, -1, 32, "Pos");  
	openPrivButton("colcar", 72, $P_T-5, 7, $P_H, $P_H, -1, 32, "Car");
	openPrivButton("colnickname", 79, $P_T-5, 30, $P_H, $P_H, -1, 32, "Nickname");
	openPrivButton("coldriftpoints", 109, $P_T-5, 12, $P_H, $P_H, -1, 32, "Drift Points");

	#Playervar for Closing buttons
		$TopDriftButClose = "&colpos&colcar&colnickname&coldriftpoints";
		SetPlayerVar($currUName, TopDriftClose, $TopDriftButClose);
### List ###	
	 FOR ( $i = 0; $i < 20; $i = $i + 1)
	 
		IF ( $list[$i,"NickName"] == "") THEN
            $colpos = "";
            $colnickname = "";
            $colgroup = "";
            $colcar = "";
			$coldriftpoints = "";
		ELSE
        	$colusername = $list[$i,"UserName"];
        	$colnickname = $list[$i,"NickName"];
        	$colgroup = $list[$i,"Group"];
			$colpos = $list[$i,"Pos"];
			$colcar = $list[$i,"CName"];
			$coldriftpoints = $list[$i,"DriftPoints"];      
		ENDIF

		### IF player in list is equal with current player , make button light
        $bStyle = ISB_DARK;
        IF( ToLower( $currUName ) == ToLower( $colusername ) ) THEN
			$bStyle = ISB_LIGHT;
		ENDIF
		
		openPrivButton("colpos_".$i,65, $P_T, 7, $P_H, $P_H, -1, $bStyle | ISB_C2 | ISB_C4 , $colpos);
		openPrivButton("colcar_".$i, 72, $P_T, 7, $P_H, $P_H, -1, $bStyle, $colcar);
		openPrivButton("colnickname_".$i, 79, $P_T, 30, $P_H, $P_H, -1, $bStyle | ISB_LEFT, $colnickname);	
		openPrivButton("coldriftpoints_".$i, 109, $P_T, 12, $P_H, $P_H, -1, $bStyle, $coldriftpoints);
		$P_T = $P_T + 5;
		
		$TopDriftButClose = $TopDriftButClose . "&colpos_".$i."&colcar_".$i."&colnickname_".$i."&coldriftpoints_".$i;
		SetPlayerVar($currUName, TopDriftClose, $TopDriftButClose);

	ENDFOR      	

###### Choice window ##########
	
	$drfOrigL = 45;	   # Left edge of main car content window
	$drfOrigT = 33;   # Top edge of main car content window
  	
	openPrivButton( "sinrsdrf_backbutton",$drfOrigL,$drfOrigT,18,121,2,-1,16," ");
	openPrivButton( "sinrsdrf_message",$drfOrigL+1,$drfOrigT+1,16,4,3,-1,0,"^7Click on car type%nl%^7to see top scores%nl%^7for that vehicle");

	openPrivButton( "sinrsdrf_UF1button",$drfOrigL+1,$drfOrigT+12,8,5,2,-1,32,"^2UF1",Clicksinrsdrf_UF1 );
	openPrivButton( "sinrsdrf_XFGbutton",$drfOrigL+9,$drfOrigT+12,8,5,2,-1,32,"^2XFG",Clicksinrsdrf_XFG );
	openPrivButton( "sinrsdrf_XRGbutton",$drfOrigL+1,$drfOrigT+17,8,5,2,-1,32,"^2XRG",Clicksinrsdrf_XRG );
	openPrivButton( "sinrsdrf_XRTbutton",$drfOrigL+9,$drfOrigT+17,8,5,2,-1,32,"^2XRT",Clicksinrsdrf_XRT );
	openPrivButton( "sinrsdrf_RB4button",$drfOrigL+1,$drfOrigT+22,8,5,2,-1,32,"^2RB4",Clicksinrsdrf_RB4 );
	openPrivButton( "sinrsdrf_FXObutton",$drfOrigL+9,$drfOrigT+22,8,5,2,-1,32,"^2FXO",Clicksinrsdrf_FXO );
	openPrivButton( "sinrsdrf_RACbutton",$drfOrigL+1,$drfOrigT+27,8,5,2,-1,32,"^2RAC",Clicksinrsdrf_RAC );
	openPrivButton( "sinrsdrf_FZ5button",$drfOrigL+9,$drfOrigT+27,8,5,2,-1,32,"^2FZ5",Clicksinrsdrf_FZ5 );
	openPrivButton( "sinrsdrf_LX4button",$drfOrigL+1,$drfOrigT+32,8,5,2,-1,32,"^2LX4",Clicksinrsdrf_LX4 );
	openPrivButton( "sinrsdrf_LX6button",$drfOrigL+9,$drfOrigT+32,8,5,2,-1,32,"^2LX6",Clicksinrsdrf_LX6 );
	openPrivButton( "sinrsdrf_MRTbutton",$drfOrigL+1,$drfOrigT+37,8,5,2,-1,32,"^2MRT",Clicksinrsdrf_MRT );
	openPrivButton( "sinrsdrf_UFRbutton",$drfOrigL+9,$drfOrigT+37,8,5,2,-1,32,"^2UFR",Clicksinrsdrf_UFR );
	openPrivButton( "sinrsdrf_XFRbutton",$drfOrigL+1,$drfOrigT+42,8,5,2,-1,32,"^2XFR",Clicksinrsdrf_XFR );
	openPrivButton( "sinrsdrf_FBMbutton",$drfOrigL+9,$drfOrigT+42,8,5,2,-1,32,"^2FBM",Clicksinrsdrf_FBM );
	openPrivButton( "sinrsdrf_FOXbutton",$drfOrigL+1,$drfOrigT+47,8,5,2,-1,32,"^2FOX",Clicksinrsdrf_FOX );
	openPrivButton( "sinrsdrf_FXRbutton",$drfOrigL+9,$drfOrigT+47,8,5,2,-1,32,"^2FXR",Clicksinrsdrf_FXR );
	openPrivButton( "sinrsdrf_XRRbutton",$drfOrigL+1,$drfOrigT+52,8,5,2,-1,32,"^2XRR",Clicksinrsdrf_XRR );
	openPrivButton( "sinrsdrf_FZRbutton",$drfOrigL+9,$drfOrigT+52,8,5,2,-1,32,"^2FZR",Clicksinrsdrf_FZR );
	openPrivButton( "sinrsdrf_FO8button",$drfOrigL+1,$drfOrigT+57,8,5,2,-1,32,"^2FO8",Clicksinrsdrf_FO8 );
	openPrivButton( "sinrsdrf_BF1button",$drfOrigL+9,$drfOrigT+57,8,5,2,-1,32,"^2BF1",Clicksinrsdrf_BF1 );	

	openPrivButton( "sinrsdrf_1button",$drfOrigL+1,$drfOrigT+63,16,5,2,-1,16,"^0Top 20",Clicksinrsdrf_1 );
	openPrivButton( "sinrsdrf_21button",$drfOrigL+1,$drfOrigT+68,8,5,2,-1,16,"^321+",Clicksinrsdrf_21 );	
	openPrivButton( "sinrsdrf_41button",$drfOrigL+9,$drfOrigT+68,8,5,2,-1,16,"^341+",Clicksinrsdrf_41 );
	openPrivButton( "sinrsdrf_61button",$drfOrigL+1,$drfOrigT+73,8,5,2,-1,16,"^361+",Clicksinrsdrf_61 );	
	openPrivButton( "sinrsdrf_81button",$drfOrigL+9,$drfOrigT+73,8,5,2,-1,16,"^381+",Clicksinrsdrf_81 );  
	openPrivButton( "sinrsdrf_101button",$drfOrigL+1,$drfOrigT+78,8,5,2,-1,16,"^3101+",Clicksinrsdrf_101 );	
	openPrivButton( "sinrsdrf_121button",$drfOrigL+9,$drfOrigT+78,8,5,2,-1,16,"^3121+",Clicksinrsdrf_121 );
	
	openPrivButton( "sinrsdrf_yourbutton",$drfOrigL+1,$drfOrigT+85,16,5,5,-1,32,"^7All ^1YOUR%nl%^7Drift Points",TopDRFTable2);
      
	openPrivButton( "sinrsdrf_close",$drfOrigL+1,$drfOrigT+113,16,6,4,-1,32,"^7Close",Clicksinrsdrf_Close );


###### Own points window ##########
	
	$userName = GetCurrentPlayerVar( "UserName" );
	$NickName = GetCurrentPlayerVar("NickName");
	$track = getLapperVar("ShortTrackName"); 
  	
$pbUF1 = GetUserDriftPb( $userName, "UF1", $track);
$pbXFG = GetUserDriftPb( $userName, "XFG", $track);
$pbXRG = GetUserDriftPb( $userName, "XRG", $track);
$pbXRT = GetUserDriftPb( $userName, "XRT", $track);
$pbRB4 = GetUserDriftPb( $userName, "RB4", $track);
$pbFXO = GetUserDriftPb( $userName, "FXO", $track);
$pbLX4 = GetUserDriftPb( $userName, "LX4", $track);
$pbLX6 = GetUserDriftPb( $userName, "LX6", $track);
$pbRAC = GetUserDriftPb( $userName, "RAC", $track);
$pbFZ5 = GetUserDriftPb( $userName, "FZ5", $track);
$pbMRT = GetUserDriftPb( $userName, "MRT", $track);
$pbXFR = GetUserDriftPb( $userName, "XFR", $track);
$pbUFR = GetUserDriftPb( $userName, "UFR", $track);
$pbFOX = GetUserDriftPb( $userName, "FOX", $track);
$pbFO8 = GetUserDriftPb( $userName, "FO8", $track);
$pbFXR = GetUserDriftPb( $userName, "FXR", $track);
$pbXRR = GetUserDriftPb( $userName, "XRR", $track);
$pbFZR = GetUserDriftPb( $userName, "FZR", $track);
$pbBF1 = GetUserDriftPb( $userName, "BF1", $track);
$pbFBM = GetUserDriftPb( $userName, "FBM", $track);


	$WindowL = 123;	 # Left edge of main car content window
	$WindowT = 33;   # Top edge of main car content window

	openPrivButton( "pbdrift2_back1",$WindowL,$WindowT,15,121,5,-1,16,"");
	openPrivButton( "pbdrift2_title",$WindowL+1,$WindowT+1,13,5,5,-1,32,"^1Your own%nl%^1Drift Scores");

  
  IF ($pbUF1>0)
	THEN
    openPrivButton( "pbdrift2_UF1",$WindowL+1,$WindowT+12,13,5,5,-1,16,"^7UF1 ^3".$pbUF1);  
  ELSE
    openPrivButton( "pbdrift2_UF1",$WindowL+1,$WindowT+12,13,5,5,-1,16,"^7UF1 ^0----");
  ENDIF

  IF ($pbXFG>0)
	THEN
    openPrivButton( "pbdrift2_XFG",$WindowL+1,$WindowT+17,13,5,5,-1,16,"^7XFG ^3".$pbXFG);  
  ELSE
    openPrivButton( "pbdrift2_XFG",$WindowL+1,$WindowT+17,13,5,5,-1,16,"^7XFG ^0----");
  ENDIF 	
 	
  IF ($pbXRG>0)
	THEN
    openPrivButton( "pbdrift2_XRG",$WindowL+1,$WindowT+22,13,5,5,-1,16,"^7XRG ^3".$pbXRG);  
  ELSE
    openPrivButton( "pbdrift2_XRG",$WindowL+1,$WindowT+22,13,5,5,-1,16,"^7XRG ^0----");
  ENDIF  	
 	
  IF ($pbXRT>0)
	THEN
 	  openPrivButton( "pbdrift2_XRT",$WindowL+1,$WindowT+27,13,5,5,-1,16,"^7XRT ^3".$pbXRT); 
  ELSE
    openPrivButton( "pbdrift2_XRT",$WindowL+1,$WindowT+27,13,5,5,-1,16,"^7XRT ^0----");
  ENDIF 	

  IF ($pbRB4>0)
	THEN
    openPrivButton( "pbdrift2_RB4",$WindowL+1,$WindowT+32,13,5,5,-1,16,"^7RB4 ^3".$pbRB4); 
  ELSE
    openPrivButton( "pbdrift2_RB4",$WindowL+1,$WindowT+32,13,5,5,-1,16,"^7RB4 ^0----");
  ENDIF

  IF ($pbFXO>0)
	THEN
    openPrivButton( "pbdrift2_FXO",$WindowL+1,$WindowT+37,13,5,5,-1,16,"^7FXO ^3".$pbFXO); 
  ELSE
    openPrivButton( "pbdrift2_FXO",$WindowL+1,$WindowT+37,13,5,5,-1,16,"^7FXO ^0----");
  ENDIF 

  IF ($pbLX4>0)
	THEN
    openPrivButton( "pbdrift2_LX4",$WindowL+1,$WindowT+42,13,5,5,-1,16,"^7LX4 ^3".$pbLX4);
  ELSE
    openPrivButton( "pbdrift2_LX4",$WindowL+1,$WindowT+42,13,5,5,-1,16,"^7LX4 ^0----");
  ENDIF 

  IF ($pbLX6>0)
	THEN
    openPrivButton( "pbdrift2_LX6",$WindowL+1,$WindowT+47,13,5,5,-1,16,"^7LX6 ^3".$pbLX6);
  ELSE
    openPrivButton( "pbdrift2_LX6",$WindowL+1,$WindowT+47,13,5,5,-1,16,"^7LX6 ^0----");
  ENDIF 

  IF ($pbRAC>0)
	THEN
    openPrivButton( "pbdrift2_RAC",$WindowL+1,$WindowT+52,13,5,5,-1,16,"^7RAC ^3".$pbRAC);
  ELSE
    openPrivButton( "pbdrift2_RAC",$WindowL+1,$WindowT+52,13,5,5,-1,16,"^7RAC ^0----");
  ENDIF 
  
   IF ($pbFZ5>0)
	THEN
    openPrivButton( "pbdrift2_FZ5",$WindowL+1,$WindowT+57,13,5,5,-1,16,"^7FZ5 ^3".$pbFZ5);
  ELSE
    openPrivButton( "pbdrift2_FZ5",$WindowL+1,$WindowT+57,13,5,5,-1,16,"^7FZ5 ^0----");
  ENDIF 
  
  IF ($pbMRT>0)
	THEN
    openPrivButton( "pbdrift2_MRT",$WindowL+1,$WindowT+62,13,5,5,-1,16,"^7MRT ^3".$pbMRT);  
  ELSE
    openPrivButton( "pbdrift2_MRT",$WindowL+1,$WindowT+62,13,5,5,-1,16,"^7MRT ^0----");
  ENDIF
  
  IF ($pbUFR>0)
	THEN
    openPrivButton( "pbdrift2_UFR",$WindowL+1,$WindowT+67,13,5,5,-1,16,"^7UFR ^3".$pbUFR);  
  ELSE
    openPrivButton( "pbdrift2_UFR",$WindowL+1,$WindowT+67,13,5,5,-1,16,"^7UFR ^0----");
  ENDIF  
     	
  IF ($pbXFR>0)
	THEN
    openPrivButton( "pbdrift2_XFR",$WindowL+1,$WindowT+72,13,5,5,-1,16,"^7XFR ^3".$pbXFR);  
  ELSE
    openPrivButton( "pbdrift2_XFR",$WindowL+1,$WindowT+72,13,5,5,-1,16,"^7XFR ^0----");
  ENDIF 

  IF ($pbFOX>0)
	THEN
    openPrivButton( "pbdrift2_FOX",$WindowL+1,$WindowT+77,13,5,5,-1,16,"^7FOX ^3".$pbFOX);  
  ELSE
    openPrivButton( "pbdrift2_FOX",$WindowL+1,$WindowT+77,13,5,5,-1,16,"^7FOX ^0----");
  ENDIF 

  IF ($pbFBM>0)
	THEN
    openPrivButton( "pbdrift2_FBM",$WindowL+1,$WindowT+82,13,5,5,-1,16,"^7FBM ^3".$pbFBM);  
  ELSE
    openPrivButton( "pbdrift2_FBM",$WindowL+1,$WindowT+82,13,5,5,-1,16,"^7FBM ^0----");
  ENDIF 

  IF ($pbFXR>0)
	THEN
    openPrivButton( "pbdrift2_FXR",$WindowL+1,$WindowT+87,13,5,5,-1,16,"^7FXR ^3".$pbFXR);  
  ELSE
    openPrivButton( "pbdrift2_FXR",$WindowL+1,$WindowT+87,13,5,5,-1,16,"^7FXR ^0----");
  ENDIF 

  IF ($pbXRR>0)
	THEN
    openPrivButton( "pbdrift2_XRR",$WindowL+1,$WindowT+92,13,5,5,-1,16,"^7XRR ^3".$pbXRR);  
  ELSE
    openPrivButton( "pbdrift2_XRR",$WindowL+1,$WindowT+92,13,5,5,-1,16,"^7XRR ^0----");
  ENDIF 
  
  IF ($pbFZR>0)
	THEN
    openPrivButton( "pbdrift2_FZR",$WindowL+1,$WindowT+97,13,5,5,-1,16,"^7FZR ^3".$pbFZR);  
  ELSE
    openPrivButton( "pbdrift2_FZR",$WindowL+1,$WindowT+97,13,5,5,-1,16,"^7FZR ^0----");
  ENDIF   
  
  IF ($pbFO8>0)
	THEN
    openPrivButton( "pbdrift2_FO8",$WindowL+1,$WindowT+102,13,5,5,-1,16,"^FO8 ^3".$pbFO8);  
  ELSE
    openPrivButton( "pbdrift2_FO8",$WindowL+1,$WindowT+102,13,5,5,-1,16,"^7FO8 ^0----");
  ENDIF 
  
  IF ($pbBF1>0)
	THEN
    openPrivButton( "pbdrift2_BF1",$WindowL+1,$WindowT+107,13,5,5,-1,16,"^7BF1 ^3".$pbBF1);  
  ELSE
    openPrivButton( "pbdrift2_BF1",$WindowL+1,$WindowT+107,13,5,5,-1,16,"^7BF1 ^0----");
  ENDIF  
  
	openPrivButton( "pbdrift2_close",$WindowL+1,$WindowT+113,13,6,5,-1,32,"^7Close",PBDrift_Close2);	
	
EndSub


Sub DoCloseDriftTop($KeyFlags,$id )#Sub to close the Drift toplist
	closePrivButton("DriftTopList_bgd&DriftTopList_title&DriftTopList_close");
	closePrivButton(Getcurrentplayervar("TopDriftClose"));
EndSub

Sub Clicksinrsdrf_Close($KeyFlags,$id )#Sub to close the Drift side list
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
EndSub 

Sub Clicksinrsdrf_UF1( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( UF1,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_XFG( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( XFG,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_XRG( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( XRG,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_XRT( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( XRT,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_RB4( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( RB4,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_FXO( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( FXO,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_RAC( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( RAC,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_FZ5( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( FZ5,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_LX4( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( LX4,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_LX6( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( LX6,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_MRT( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( MRT,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_UFR( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( UFR,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_XFR( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( XFR,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_FBM( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( FBM,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_FOX( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( FOX,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_FXR( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( FXR,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_XRR( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( XRR,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_FZR( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( FZR,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_FO8( $KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( FO8,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_BF1 ($KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( BF1,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_1 ($KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( 1,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_21 ($KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( 21,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_41 ($KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( 41,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_61 ($KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( 61,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_81 ($KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( 81,FALSE,FALSE );
EndSub
 
Sub Clicksinrsdrf_101 ($KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( 101,FALSE,FALSE );
EndSub

Sub Clicksinrsdrf_121 ($KeyFlags,$id )
  closeButtonRegex (GetCurrentPlayerVar("UserName"), "sinrsdrf_*"); # close drift list choice buttons
	DoMyDriftTop( 121,FALSE,FALSE );
EndSub

Sub TopDRFtable2 ($KeyFlags,$id)
	$userName = GetCurrentPlayerVar( "UserName" );
	$NickName = GetCurrentPlayerVar("NickName");
	$track = getLapperVar("ShortTrackName"); 
  	
$pbUF1 = GetUserDriftPb( $userName, "UF1", $track);
$pbXFG = GetUserDriftPb( $userName, "XFG", $track);
$pbXRG = GetUserDriftPb( $userName, "XRG", $track);
$pbXRT = GetUserDriftPb( $userName, "XRT", $track);
$pbRB4 = GetUserDriftPb( $userName, "RB4", $track);
$pbFXO = GetUserDriftPb( $userName, "FXO", $track);
$pbLX4 = GetUserDriftPb( $userName, "LX4", $track);
$pbLX6 = GetUserDriftPb( $userName, "LX6", $track);
$pbRAC = GetUserDriftPb( $userName, "RAC", $track);
$pbFZ5 = GetUserDriftPb( $userName, "FZ5", $track);
$pbMRT = GetUserDriftPb( $userName, "MRT", $track);
$pbXFR = GetUserDriftPb( $userName, "XFR", $track);
$pbUFR = GetUserDriftPb( $userName, "UFR", $track);
$pbFOX = GetUserDriftPb( $userName, "FOX", $track);
$pbFO8 = GetUserDriftPb( $userName, "FO8", $track);
$pbFXR = GetUserDriftPb( $userName, "FXR", $track);
$pbXRR = GetUserDriftPb( $userName, "XRR", $track);
$pbFZR = GetUserDriftPb( $userName, "FZR", $track);
$pbBF1 = GetUserDriftPb( $userName, "BF1", $track);
$pbFBM = GetUserDriftPb( $userName, "FBM", $track);

$track = getLapperVar("ShortTrackName");

	$WindowL = 123;	 # Left edge of main car content window
	$WindowT = 33;   # Top edge of main car content window

	openPrivButton( "pbdrift2_back1",$WindowL,$WindowT,15,121,5,-1,16,"");
	openPrivButton( "pbdrift2_title",$WindowL+1,$WindowT+1,13,5,5,-1,32,"^1Your own%nl%^1Drift Scores");

  
  IF ($pbUF1>0)
	THEN
    openPrivButton( "pbdrift2_UF1",$WindowL+1,$WindowT+12,13,5,5,-1,16,"^7UF1 ^3".$pbUF1);  
  ELSE
    openPrivButton( "pbdrift2_UF1",$WindowL+1,$WindowT+12,13,5,5,-1,16,"^7UF1 ^0----");
  ENDIF

  IF ($pbXFG>0)
	THEN
    openPrivButton( "pbdrift2_XFG",$WindowL+1,$WindowT+17,13,5,5,-1,16,"^7XFG ^3".$pbXFG);  
  ELSE
    openPrivButton( "pbdrift2_XFG",$WindowL+1,$WindowT+17,13,5,5,-1,16,"^7XFG ^0----");
  ENDIF 	
 	
  IF ($pbXRG>0)
	THEN
    openPrivButton( "pbdrift2_XRG",$WindowL+1,$WindowT+22,13,5,5,-1,16,"^7XRG ^3".$pbXRG);  
  ELSE
    openPrivButton( "pbdrift2_XRG",$WindowL+1,$WindowT+22,13,5,5,-1,16,"^7XRG ^0----");
  ENDIF  	
 	
  IF ($pbXRT>0)
	THEN
 	  openPrivButton( "pbdrift2_XRT",$WindowL+1,$WindowT+27,13,5,5,-1,16,"^7XRT ^3".$pbXRT); 
  ELSE
    openPrivButton( "pbdrift2_XRT",$WindowL+1,$WindowT+27,13,5,5,-1,16,"^7XRT ^0----");
  ENDIF 	

  IF ($pbRB4>0)
	THEN
    openPrivButton( "pbdrift2_RB4",$WindowL+1,$WindowT+32,13,5,5,-1,16,"^7RB4 ^3".$pbRB4); 
  ELSE
    openPrivButton( "pbdrift2_RB4",$WindowL+1,$WindowT+32,13,5,5,-1,16,"^7RB4 ^0----");
  ENDIF

  IF ($pbFXO>0)
	THEN
    openPrivButton( "pbdrift2_FXO",$WindowL+1,$WindowT+37,13,5,5,-1,16,"^7FXO ^3".$pbFXO); 
  ELSE
    openPrivButton( "pbdrift2_FXO",$WindowL+1,$WindowT+37,13,5,5,-1,16,"^7FXO ^0----");
  ENDIF 

  IF ($pbLX4>0)
	THEN
    openPrivButton( "pbdrift2_LX4",$WindowL+1,$WindowT+42,13,5,5,-1,16,"^7LX4 ^3".$pbLX4);
  ELSE
    openPrivButton( "pbdrift2_LX4",$WindowL+1,$WindowT+42,13,5,5,-1,16,"^7LX4 ^0----");
  ENDIF 

  IF ($pbLX6>0)
	THEN
    openPrivButton( "pbdrift2_LX6",$WindowL+1,$WindowT+47,13,5,5,-1,16,"^7LX6 ^3".$pbLX6);
  ELSE
    openPrivButton( "pbdrift2_LX6",$WindowL+1,$WindowT+47,13,5,5,-1,16,"^7LX6 ^0----");
  ENDIF 

  IF ($pbRAC>0)
	THEN
    openPrivButton( "pbdrift2_RAC",$WindowL+1,$WindowT+52,13,5,5,-1,16,"^7RAC ^3".$pbRAC);
  ELSE
    openPrivButton( "pbdrift2_RAC",$WindowL+1,$WindowT+52,13,5,5,-1,16,"^7RAC ^0----");
  ENDIF 
  
   IF ($pbFZ5>0)
	THEN
    openPrivButton( "pbdrift2_FZ5",$WindowL+1,$WindowT+57,13,5,5,-1,16,"^7FZ5 ^3".$pbFZ5);
  ELSE
    openPrivButton( "pbdrift2_FZ5",$WindowL+1,$WindowT+57,13,5,5,-1,16,"^7FZ5 ^0----");
  ENDIF 
  
  IF ($pbMRT>0)
	THEN
    openPrivButton( "pbdrift2_MRT",$WindowL+1,$WindowT+62,13,5,5,-1,16,"^7MRT ^3".$pbMRT);  
  ELSE
    openPrivButton( "pbdrift2_MRT",$WindowL+1,$WindowT+62,13,5,5,-1,16,"^7MRT ^0----");
  ENDIF
  
  IF ($pbUFR>0)
	THEN
    openPrivButton( "pbdrift2_UFR",$WindowL+1,$WindowT+67,13,5,5,-1,16,"^7UFR ^3".$pbUFR);  
  ELSE
    openPrivButton( "pbdrift2_UFR",$WindowL+1,$WindowT+67,13,5,5,-1,16,"^7UFR ^0----");
  ENDIF  
     	
  IF ($pbXFR>0)
	THEN
    openPrivButton( "pbdrift2_XFR",$WindowL+1,$WindowT+72,13,5,5,-1,16,"^7XFR ^3".$pbXFR);  
  ELSE
    openPrivButton( "pbdrift2_XFR",$WindowL+1,$WindowT+72,13,5,5,-1,16,"^7XFR ^0----");
  ENDIF 

  IF ($pbFOX>0)
	THEN
    openPrivButton( "pbdrift2_FOX",$WindowL+1,$WindowT+77,13,5,5,-1,16,"^7FOX ^3".$pbFOX);  
  ELSE
    openPrivButton( "pbdrift2_FOX",$WindowL+1,$WindowT+77,13,5,5,-1,16,"^7FOX ^0----");
  ENDIF 

  IF ($pbFBM>0)
	THEN
    openPrivButton( "pbdrift2_FBM",$WindowL+1,$WindowT+82,13,5,5,-1,16,"^7FBM ^3".$pbFBM);  
  ELSE
    openPrivButton( "pbdrift2_FBM",$WindowL+1,$WindowT+82,13,5,5,-1,16,"^7FBM ^0----");
  ENDIF 

  IF ($pbFXR>0)
	THEN
    openPrivButton( "pbdrift2_FXR",$WindowL+1,$WindowT+87,13,5,5,-1,16,"^7FXR ^3".$pbFXR);  
  ELSE
    openPrivButton( "pbdrift2_FXR",$WindowL+1,$WindowT+87,13,5,5,-1,16,"^7FXR ^0----");
  ENDIF 

  IF ($pbXRR>0)
	THEN
    openPrivButton( "pbdrift2_XRR",$WindowL+1,$WindowT+92,13,5,5,-1,16,"^7XRR ^3".$pbXRR);  
  ELSE
    openPrivButton( "pbdrift2_XRR",$WindowL+1,$WindowT+92,13,5,5,-1,16,"^7XRR ^0----");
  ENDIF 
  
  IF ($pbFZR>0)
	THEN
    openPrivButton( "pbdrift2_FZR",$WindowL+1,$WindowT+97,13,5,5,-1,16,"^7FZR ^3".$pbFZR);  
  ELSE
    openPrivButton( "pbdrift2_FZR",$WindowL+1,$WindowT+97,13,5,5,-1,16,"^7FZR ^0----");
  ENDIF   
  
  IF ($pbFO8>0)
	THEN
    openPrivButton( "pbdrift2_FO8",$WindowL+1,$WindowT+102,13,5,5,-1,16,"^FO8 ^3".$pbFO8);  
  ELSE
    openPrivButton( "pbdrift2_FO8",$WindowL+1,$WindowT+102,13,5,5,-1,16,"^7FO8 ^0----");
  ENDIF 
  
  IF ($pbBF1>0)
	THEN
    openPrivButton( "pbdrift2_BF1",$WindowL+1,$WindowT+107,13,5,5,-1,16,"^7BF1 ^3".$pbBF1);  
  ELSE
    openPrivButton( "pbdrift2_BF1",$WindowL+1,$WindowT+107,13,5,5,-1,16,"^7BF1 ^0----");
  ENDIF  
  
	openPrivButton( "pbdrift2_close",$WindowL+1,$WindowT+113,13,6,5,-1,32,"^7Close",PBDrift_Close2);
EndSub

Sub PBDrift_Close2 ($KeyFlags,$id)
	closeButtonRegex (GetCurrentPlayerVar("UserName"), "pbdrift2_*"); # close PB Drift message board
EndSub

# ENGLISH LANGUAGE SECTION				
##########################

Lang "EN"
quick_description = "^3Where are you in the rankings?";
quick_topname = "^7Top Times";
quick_driftname = "^7Top Drifts";
quick_toptimestable = "^7Top ^1Times ^7per Car type";
EndLang