CatchEvent OnMSO( $userName, $text ) # Player event

	$idxOfFirtsSpace = indexOf( $text, " ");
	IF( $idxOfFirtsSpace == -1 )
	THEN
	  $command = $text;
	  $argv = "";
	ELSE
	  $command = subStr( $text,0,$idxOfFirtsSpace );
	  $argv = trim( subStr( $text,$idxOfFirtsSpace ) );
	ENDIF

	SWITCH( $command )

		CASE "!btntst":
			IF ( UserIsAdmin( $userName ) == 1 )
			THEN
			  ButtonTest();
			ELSE
			  privMsg("^1Admin requires");
			ENDIF
			BREAK;
            
	ENDSWITCH
EndCatchEvent

Sub ButtonTest()
	openPrivButton( "button_lapper_version",40,40,20,6,5,-1,32,"^8Lapper Version",Button_lapper_version);
	openPrivButton( "button_lfs_version",40,46,20,6,5,-1,32,"^8LFS version",Button_lfs_version );
	openPrivButton( "button_version",40,52,20,6,5,-1,32,"^8Version",Button_version );
	openPrivButton( "button_plate",40,58,20,6,5,-1,32,"^8Number Plate",Button_plate );
	openPrivButton( "button_track",40,64,20,6,5,-1,32,"^8Track Name",Button_track );
	openPrivButton( "button_name",40,70,20,6,5,-1,32,"^8Nickname",Button_name );
	openPrivButton( "button_lyteinfo",40,76,20,6,5,-1,32,"^8Lyte Info",Button_lyteinfo );
	openPrivButton( "button_laps",40,82,20,6,5,-1,32,"^8Lap Info",Button_laps );

	IF ( GetCurrentPlayerVar ( "button_plate_text" ) == "" )
	THEN
	  openPrivTextButton( "button_plate2",40,88,20,6,5,96,"^0Number Plate","^3Enter number plate" , 70 , Button_plate2 );
	ELSE
	  openPrivTextButton( "button_plate2",40,88,20,6,5,96,"^0Number Plate","^3" . . GetCurrentPlayerVar ( "button_plate_text" ) , 70 , Button_plate2 );
	ENDIF
EndSub

Sub Button_lapper_version ( $KeyFlags,$id )
	lapperVersion(); # Works because Lapper Var?
EndSub

Sub Button_lfs_version ( $KeyFlags,$id )
	PrivMsg ( "^7LFS version is: " . GetLapperVar( "lfsversion" ) );
EndSub

Sub Button_version ( $KeyFlags,$id )
	PrivMsg ( "^7Lapper version is: " . GetLapperVar( "lapperversion" ) );
EndSub

Sub Button_plate ( $KeyFlags,$id )
	IF ( GetCurrentPlayerVar( "OnTrack") == 1 )
	THEN
	  PrivMsg( "^7Your Numberplate is: " . GetCurrentPlayerVar( "NumberPlate" ) );
	ELSE
	  PrivMsg( "^1WARNING: ^7You have to be on the track to be able to display your numberplate value" );
	ENDIF
EndSub

Sub Button_track ( $KeyFlags,$id )
	PrivMsg( "^7Track in use: " . GetLapperVar( "ShortTrackName" ) . " = " . GetLapperVar( "LongTrackName" ) );
EndSub

Sub Button_name ( $KeyFlags,$id )
	PrivMsg ( "^7Your nickname is: " . GetCurrentPlayerVar( "NickName" ) );
EndSub

Sub Button_lyteinfo ( $KeyFlags,$id )
	getlayoutinfo(); # Works but output only goes to the console of the LFS server (when using DCon)
EndSub

Sub Button_laps ( $KeyFlags,$id )
	PrivMsg ( "^7Laps done on " . GetCurrentPlayerVar( "Car" ) . "/" . GetLapperVar( "ShortTrackName" ) . " = " . GetCurrentPlayerVar( "Laps" ) . ", session = " . GetCurrentPlayerVar( "SessLaps" ) );
EndSub

Sub Button_plate2 ( $id,$text )
	SetCurrentPlayerVar ( "button_plate_text" , $text );
	ButtonTest();
EndSub