#===========================================#
#	Extract from
#	Sin'rs LFSLapper Script
# 	As at 11/01/09 - TRIAL - Help Buttons
#	(LFSLapper V 5.714 beta)
#===========================================#


Register MsgAction("!track",MA_track);
Sub MA_track()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	privMsg( "^3Track in use: ^2" . $ShortTrackName . " = " . $LongTrackName );
EndSub

Register MsgAction("track",MA_track1);
Sub MA_track1()
	privMsg( "^3This track is: ^2" . $LongTrackName . " (" . $ShortTrackName . ")" );
EndSub


Register MsgAction("!pos",MA_pos);
Sub MA_pos()
	privMsg( "Your friendly position is " . $Posabs );
EndSub

Register MsgAction("!posqual",MA_posqual);
Sub MA_posqual()
	privMsg( "Your qualification position is " . $Posqual );
EndSub

Register MsgAction("!groupqual",MA_groupqual);
Sub MA_groupqual()
	privMsg( "Your groupqual is " . $Groupqual );
EndSub

Register MsgAction("!ver",MA_ver);
Register MsgAction("!powered",MA_ver);
Sub MA_ver()
	http("http://www.frh-team.net/reglapper/getserver2.php");
	lapperVersion();
EndSub

Register MsgAction("!auth",MA_auth);
Sub MA_auth()
	authLevel();
EndSub

Register MsgAction("!cleanspb",MA_cleanspb);
Register MsgAction("!razspb",MA_cleanspb);
Sub MA_cleanspb()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	cleanSpb();
EndSub

Register MsgAction("!spb",MA_spb);
Sub MA_spb()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	showSpb();
EndSub

Register MsgAction("!hand",MA_hand);
Sub MA_hand()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	showHand( $argv );
EndSub

Register MsgAction("!statsqual",MA_statsqual);
Sub MA_statsqual()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	statsQual( $argv );
EndSub

Register MsgAction("!dstats",MA_dstats);
Sub MA_dstats()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	dStats( $Username );
EndSub


Register MsgAction("!stats",MA_stats);
Sub MA_stats()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	stats( $Username );
EndSub

Register MsgAction("!nearqual",MA_nearqual);
Sub MA_nearqual()
	nearQual( $argv );
EndSub

Register MsgAction("!near",MA_near);
Sub MA_near()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	near( $argv );
EndSub

Register MsgAction("!topqual",MA_topqual);
Sub MA_topqual()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	topQual( $argv );
EndSub

Register MsgAction("!top",MA_top);
Sub MA_top()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	IF ($argv == "")
	THEN
	  top( $DTC );
	ELSE
	  IF ($argv != $DTC)
	  THEN
	    top ( $argv );
	  ENDIF
	ENDIF
EndSub

Register MsgAction("!dtc",MA_dtc);
Sub MA_dtc()
	$DTC = $argv;
	cmdLFS ("/cars " . $argv);
EndSub

Register MsgAction("!drf",MA_drf);
Sub MA_drf()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	drf( $argv );
EndSub

Register MsgAction("!distance",MA_distance);
Sub MA_distance()
	privMsg("Distance done on " . $Car . "/" . $ShortTrackName . " = " . $Dist . ", session = " . $SessDist );
EndSub

Register MsgAction("!laps",MA_laps);
Sub MA_laps()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	privMsg( "Laps done on " . $Car . "/" . $ShortTrackName ." = " . $Laps . ", session = " . $SessLaps );
EndSub

Register MsgAction("!pit",MA_pit);
Sub MA_pit()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	privMsg( "Time in pits was: " . $TotalPitTime );
EndSub

Register MsgAction("!time",MA_time);
Sub MA_time()
	privMsg( "Server time clock reference : " . $LongTime );
EndSub

Register MsgAction("!help",MA_help);
Sub MA_help()
	openPrivButton( "help",60,25,80,10,5,-1,32,"^2Commands list" );

	openPrivButton( "help2",60,35,80,5,5,-1,96,"^2 General commands"
		. "&^3 !top ^8[table offset] [3-letter car name] ['filter' pattern]"
		. "&^3 !drf ^8[table offset] [3-letter car name] ['filter' pattern]"
		. "&^3 !stats ^8YOUR splits and times for each car at circuit"
		. "&^3 !dstats ^8YOUR drift scores and position for each car"
		. "&^3 !near ^8Gap with 14 drivers near you on the ranking"
		. "&^3 !spb ^8Split times and TPB (Theoretical PB)"
		. "&^3 !cleanspb ^8Start new spb session (eg when changing car)"
		. "&^3 !track ^8Name of actual track"
		. "&^3 !laps ^8Total laps number + session laps number"
		. "&^3 !hand ^8Handicap by driver ordered by league-host admin"
		. "&^3 !pit ^8Total pit stop time"
		. "&^3 Shft+i ^8Configure your display messages"
		. "&^3 !mystats ^8Show your stats for this server"
		. "&^3 !pitboard ^8Pitboard facility"
		. "&^3 !drift ^8Drift Master Scoreboard facility"
		. "&"
		. "&^2 Special league commands"
		. "&^3 !topqual ^8Rank to drivers specified on *.flt file"
		. "&^3 !statsqual ^8Actual Position on prequalify session"
		. "& " );
	openPrivButton( "buttontop",125,40,12,5,5,-1,80,"^6!top",MA_top );
	openPrivButton( "buttondrf",125,45,12,5,5,-1,80,"^6!drf",MA_drf );
	openPrivButton( "buttonstats",125,50,12,5,5,-1,80,"^6!stats",MA_stats );
	openPrivButton( "buttondstats",125,55,12,5,5,-1,80,"^6!dstats",MA_dstats );
	openPrivButton( "buttonnear",125,60,12,5,5,-1,80,"^6!near",MA_near );
	openPrivButton( "buttonspb",125,65,12,5,5,-1,80,"^6!spb",MA_spb );
	openPrivButton( "buttoncleanspb",125,70,12,5,5,-1,80,"^6!cleanspb",MA_cleanspb );
	openPrivButton( "buttontrack",125,75,12,5,5,-1,80,"^6!track",MA_track );
	openPrivButton( "buttonlaps",125,80,12,5,5,-1,80,"^6!laps",MA_laps );
	openPrivButton( "buttonhand",125,85,12,5,5,-1,80,"^6!hand",MA_hand );
	openPrivButton( "buttonpit",125,90,12,5,5,-1,80,"^6!pit",MA_pit );
	openPrivButton( "buttonmystats",125,100,12,5,5,-1,80,"^6!mystats",MA_mystats );
	openPrivButton( "buttonpitboard",125,105,12,5,5,-1,80,"^6!pitboard",Config );
	openPrivButton( "buttondrift",125,110,12,5,5,-1,80,"^6!drift",MA_driftmaster );
	openPrivButton( "buttontopqual",125,125,12,5,5,-1,80,"^6!topqual",MA_topqual );
	openPrivButton( "buttonstatsqual",125,130,12,5,5,-1,80,"^6!statsqual",MA_statsqual );
	openPrivButton( "close",90,142,20,10,8,-1,32,"CLOSE",MA_closeHelp );
EndSub

Sub MA_closeHelp()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
EndSub

Register MsgAction("!mystats",MA_mystats);
Sub MA_mystats()
	closePrivButton("help&help2&close");
	closePrivButton("buttontop&buttondrf&buttonstats&buttondstats&buttonnear&buttonspb&buttoncleanspb&buttontrack");
	closePrivButton("buttonlaps&buttonhand&buttonpit&buttondrift&buttonpitboard&buttonmystats&buttontopqual&buttonstatsqual");
	openPrivButton( "backing",55,32,90,10,5,-1,32,"^2m y s t a t s" );
	openPrivButton( "statstitle",55,42,90,8,5,-1,32,"Brought to you by ^1Sin'rs ^3(^1Sin^3anju^1'^3s ^1r^3acing ^1s^3erver)" );
	openPrivButton( "statsdetails",55,51,90,6,5,-1,16," "
		. "&^7Username: ^3" . $Username
		. "&^7Nickname: " . $Nickname
		. "&&^7Your actual friendly Position (all visitors + vehicles): ^3" . $Posabs
		. "&^7Current Car: ^3" . $Car
		. "&^7Current Track: ^3 " .$LongTrackName . "^2 [ " . $ShortTrackName . " ]"
		. "&^7Your current PB Laptime with this combo: ^3" . $PBLapTime
		. "&^7Theoretical PB ^3" . $Tpb
		. "&^7You've done ^3" . $Laps . " ^7laps, which is approx ^3". $Dist
		. "&" );
	openPrivButton( "qualdetails",55,107,90,6,5,-1,32," "
		. "&^4Q u a l i f i c a t i o n   D e t a i l s: "
		. "&^6Current qualification position: ^3" . $Posqual
		. "&^6Current GROUP qualification position: ^3" . $Groupqual
		. "&&^7 ^3" . $ShortDate . "^7 - ^3" . $ShortTime
		. "& " );
	openPrivButton( "closestats",90,145,20,10,8,-1,32,"CLOSE",MA_closemystats );
EndSub

Sub MA_closemystats()
	closePrivButton("backing&statstitle&statsdetails&qualdetails&closestats");
EndSub