#############################################################################
# Pace Car by Krayy
#############################################################################
# The Pace Car system is designed to track players under Pace car conditions
# to ensure that they do not pass each other. a Drive Through penalty will
# be applied if any racer is out of position when the race restarts.
#
# In order to use this addon, you MUST have defined an AI called "PACECAR".
#############################################################################
# Ver 1.0.1 19/01/10 Initial release
#############################################################################

CatchEvent OnLapperStart()
    GlobalVar $CountLoop;
	$CountLoop = 0;
EndCatchEvent

CatchEvent OnNewPlayerJoin( $userName )  # Player event

#globalMsg ("New player: " . $userName);

EndCatchEvent

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 "!red":
            IF( $argv != "" )
            THEN
            $temp = GetListOfPlayers( );
                FOREACH( $maVar IN $temp )
                $NickName = GetPlayerVar($maVar["value"], "NickName");
                $NickStrip = StripLFSColor( ToLower($NickName) );
				privMsg("red for: " . $NickStrip);
                $IdxOfTag = indexOf( $NickStrip , "[r]");
                    IF( $IdxOfTag != -1 )
                    THEN
                        privMsg ($maVar["value"],"^1Red: ^7".$argv);
                    ENDIF
                ENDFOREACH
            ENDIF
        BREAK;

		CASE "!cmds":
				dumpVar($LapperCommands);
				dumpVar($AdminCommands);
				dumpVar( $OnIdleTimeout1 );
	globalmsg ("TimeIdleWarning = " . $TimeIdleWarning);
			BREAK;
		CASE "!t5":
#		  openPrivButton( "drewpitleave02",50,12,100,10,10,10,ISB_DARK,"1%at%2%at%3%at%4%at%5%at%6%at%7%at%8%at%9%at%10" );
#		  openGlobalButton ("test5",60,95,80,10,5,4,16,"^7t5 will run in (%cpt%) second(s)", DoTest5);
			$CountLoop = 0;
			HostDelayedCommand ( "GoCL", 10, DoCL );
			BREAK;
		CASE "!t1":
			privMsg  ("ShortTrackName = " . GetLapperVar("ShortTrackName"));
#				DoTest1( );
			BREAK;
		CASE "!t2":
				DoTest2( );
			BREAK;
		CASE "!t3":
				$myCarList = SplitToArray($LFSCarList,",");
				DumpVar($myCarList);
				$i = 0;
				$num = arrayCount( $myCarList );
				WHILE ($i < $num)
					privMsg ( $i . " is " . $myCarList[$i]);
					$i = $i + 1;
				ENDWHILE
				DoTest3( );
			BREAK;
		CASE "!t7":
				DoTest7( );
			BREAK;
		CASE "!t8":
				$currPly = GetPlayerInfo();
				dumpvar ($currPly);
#				DoTest8( );
			BREAK;
		CASE "!t9":
#				privMsg ("Ontrack = " . GetCurrentPlayerVar( "OnTrack" ) );
#				privMsg ("FinishedPos = " . GetCurrentPlayerVar( "FinishedPos" ) );
				$currPly = GetPlayerInfo2();
				dumpvar ($currPly);

#RequestREO( );
#				privMsg ("Race order requested");
			BREAK;
		CASE "!t4":
#				$CurrPly = GetPlayerInfo( $userName );
#				dumpVar ($CurrPly);
				privMsg("RacePercentComplete: " . getLapperVar( "racepercentcomplete"));
				privMsg("RaceLapsLeft: " . getLapperVar( "racelapsleft"));
				privMsg("Mustpit: " . getLapperVar( "MustPit"));
#				$MustPitMsg = "^1ALERT: ^8Race ^175%^8 complete and you have yet to  pit";
#				openPrivButton( "mustpitalert",40,28,120,12,12,7,0,$MustPitMsg);
					#DoTest4( );
			BREAK;
		CASE "!t6":
				DoTest6( );
			BREAK;
		CASE "!cd":
				$rip = 1;
				start_countdown( );
			BREAK;
		CASE "!raceid":
				globalMsg ("RaceID: " . getLapperVar( "RaceId" ));
			BREAK;
	ENDSWITCH
EndCatchEvent

Sub DoTest1( )

	$Racers[0] = "4aged,5500";
	$Racers[1] = "krayy,5350";
	$Racers[2] = "lifesteala,5259";
	$Racers[3] = "slyguy,5100";

	dumpVar( $Racers );
	privMsg( "Racers count is " . arrayCount( $Racers ) );

	$i=0;
	$num = arrayCount( $Racers );
	WHILE ($i < $num)
		$iNum = ToNum(Split($Racers[$i],",",1));
		$iStr = ToString($Racers[$i]);
		IF ($i == 0)
		THEN
			$i = $i + 1;
		ELSE
			$jNum = ToNum(Split($Racers[$i-1],",",1));
			$jStr = ToString($Racers[$i-1]);
			IF ( $iNum < $jNum )
			THEN
				$Racers[$i] = ToString($jStr);
				$Racers[$i-1] = ToString($iStr);
				privMsg( "Racers[" . $i . "] = " . $Racers[$i]  );
				$i = $i - 1;
			ELSE
				$i = $i + 1;
			ENDIF
		ENDIF
	ENDWHILE

	dumpVar( $Racers );

EndSub

Sub DoTest2( )
#	$toto[2] = "Deux,Deux";
#	$toto[3] = "Trois,Un";
#	$toto[6] = "Quatre,zero";
#	dumpVar( $toto );

	$Racers[0,0,1] = "4aged,5500";
	$Racers[1,0,1] = "krayy,5350";
	$Racers[2,0,1] = "lifesteala,5259";
	$Racers[2,1,1] = "lifesteala,6259";
	$Racers[3,0,1] = "slyguy,5100";

#	dumpVar( $Racers );

	privMsg( "Racers count is " . arrayCount( $Racers ) );
#	WriteLine( "Racers[3,0] = " . $Racers[3,0]  );
#	WriteLine( "Racers[3,1] = " . $Racers[3,1]  );
	$v1 = $Racers[2];
#	dumpvar($v1);
	$v2 = $Racers[2,1];
#	dumpvar($v2);

	$LOF = getListOfPlayers();
#	dumpVar( $LOF );
	$LOFS = getListOfPlayers();
#	dumpVar( $LOFS );
/*
	dumpVar( $Times );
	unset $Sorted;
	$Sorted[0] = 0;
	$i=0;
	$num = arrayCount( $Times );
	WHILE ($i < $num)
		$iTmp = ToNum($Times[$i]);
		IF ($i == 0)
		THEN
			$Times[$i] = ToString($iTmp);
			$i = $i + 1;
		ELSE
#			$iTmp = Split($Racers[$i],",",1);
#			$jTmp = Split($Racers[$i - 1],",",1);
#			WriteLine( "iTmp: " . $iTmp . ", jTmp: " . $jTmp );
		
#			IF ( ToNum($iTmp) < ToNum($jTmp ))
			$jTmp = ToNum($Times[$i-1]);
			IF ( $iTmp < $jTmp )
			THEN
				$Times[$i] = ToString($jTmp);
				$Times[$i-1] = ToString($iTmp);
				WriteLine( "Times[" . $i . "] = " . $Times[$i]  );
				$i = $i - 1;
			ELSE
				$i = $i + 1;
			ENDIF
		ENDIF
	ENDWHILE

	dumpVar( $Times );

#	FOR ($i=0;$i<arrayCount( $Sorted );$i=$i+1)
#		WriteLine( "Dump: Sorted[" . $i . "] = " . $Sorted[$i]  );
#	ENDFOR

#	$LOF = getListOfPlayers();
#	dumpVar( $Sorted );
	
#	WriteLine( "toto is " . arrayCount( $toto ) );
#	WriteLine( "toto[1] is " . $toto[1] );
#	WriteLine( "toto[6,10] is " . $toto[6,10] );
*/
    $list = GetListTop( "",0,0 );
	DumpVar( $list );
	$currWR = getWR();
	Dumpvar( $currWR);
EndSub

Sub DoTest3( )
	$GUIprefix = "DoTest3";
	DialogCreate ( GetCurrentPlayerVar("UserName"), $GUIprefix, 135, 25, 25, 10, "Pit Status", false, -1);
	openPrivButton ( $GUIprefix . "Go1",135,25,25,5,5,-1,ISB_NONE,"^2GO! GO! GO!");
	openPrivButton ( $GUIprefix . "Go2",135,30,25,5,5,-1,ISB_NONE,"^2GO! GO! GO!");
	$finishPos = GetCurrentPlayerVar("FinishedPos");
	privMsg("Finish pos was: " . $finishPos);
#	LeaderBoardOnLap();
EndSub

Sub DoTest7( )
	$testStr = "Here_it_is-mate is this enough";
	privMsg ("testStr: " . $testStr);
	$newStr = StrReplace($testStr,"is","yahoo");
	privMsg ("newStr: " . $newStr);

	$CifGroupTest[0] = "User_Info";
	privMsg ("Count of CifGroupTest is " . arrayCount( $CifGroupTest ));

	$CifGroupTest[1] = "User_Infos";
	$CifGroupItems[$CIF_USER] = ":User_Info,";
	privMsg ("Count of CifGroupTest is " . arrayCount( $CifGroupTest ));

	
$list = GetListOfPlayers("N");
$count = arrayCount( $list );

dumpVar ($list);
dumpVar ($count);
EndSub

Sub DoTest5($KeyFlags, $id)
	$Race[0,"Laps"] = 10;
	$Race[1,"Laps"] = 1;
	$Race[2,"Laps"] = 2;
	$Race[3,"Laps"] = 3;
	$Race[0,"Name"] = "Qual";
	
#	$i=0;
#	WHILE ($i < 4)
#		globalMsg ( $i . " is " . $Race[$i,"Laps"]);
#		$i = $i + 1;
#	ENDWHILE
#	$currPly = GetPlayerInfo();
#	dumpVar ( $currPly );
	$thisUCID = GetCurrentPlayerVar("UCID");
	privMsg ("UCID = " . $thisUCID);
#	$IsHost = GetPlayerVarByUcid($thisUCID, "IsHost");
#	privMsg ("IsHost = " . $IsHost);
#	IF ( $IsHost == 1 )
#	THEN
#		privMsg ( "t5 has now run: " . $id . ", " . $KeyFlags);
#		privMsg ( "UCID = " . GetCurrentPlayerVar("UCID") . ", PLID = " . GetCurrentPlayerVar("PLID"));
#	ENDIF
EndSub

Sub DoTest6( )
	$Res = 5 & 1;
	privMsg ("5 and 1 is: " . $Res);
	$Res = Round(5 / 2,0);
	privMsg ("5 div 2 is: " . $Res);
	$Res = Round(3 / 3,0);
	privMsg ("3 div 3 is: " . $Res);
	$Res = Round(3 / 2,0);
	privMsg ("3 div 2 is: " . $Res);

	$Res = strFormat( "{0:n1}", 3 / 4);
	$Res = ToNum(split( 3 / 4, ".", 0 ));
	privMsg ("3 div 4 is: " . $Res);

    $date = getLapperVar("ShortDate");    # Get date in dd/mm/yyyy format
    $year = substr($date, 6, 4);        # Find the year
#    $month = $MONTHS[ToNum((substr($date, 3, 2)))];        # Strip the month from the short date
	    $month = GetMonth();
	privMsg ("date is: " . $date);
	privMsg ("month is: " . $month);
		  openGlobalButton ("test5",60,95,80,10,5,13,16,"^7t5 will run in (%cpt%) second(s)", DoTest5);

EndSub

Sub DoTest8( )
#	$toto[2] = "Deux,Deux";
#	$toto[3] = "Trois,Un";
#	$toto[6] = "Quatre,zero";
#	dumpVar( $toto );

	$CifGroupTest[1,1] = "User,Who,1.04";
	$CifGroupTest[1,2] = "User,Hand,1.01";
	$CifGroupTest[2,1] = "Admin,Handicap,1,01";
	
	dumpVar ($CifGroupTest);
	$part = $CifGroupTest[1];
	dumpVar ($part);

	$CifGroupTest2["User","Who"] = "w1.04";
	$CifGroupTest2["User","Hand"] = "h1.01";
	$CifGroupTest2["Admin","Hand"] = "Handicap,1,01";
	
	dumpVar ($CifGroupTest2);
	$part = $CifGroupTest2["User"];
	dumpVar ($part);
	IF ( $CifGroupTest2["User","Who"] == "" )
	THEN
		privMsg ("Undefined");
	ELSE
		privMsg ("Defined as " . $CifGroupTest2["User","Who"]);
	ENDIF

	FOREACH ( $myVar1 in $part )
#		dumpVar($myVar1);
		privMsg ("Key = " . $myVar1["key"] . " Value = " . $myVar1["value"] );
	ENDFOREACH
EndSub

Sub UserIsAdminTest($userName)
	return("Test");
EndSub

Sub DoCL( $userName)
	IF ( $CountLoop == 2 )
	THEN
		globalMsg ("Countloop finished: " . $CountLoop);
	ELSE
		$CountLoop = $CountLoop + 1;
		globalMsg ("Countloop = " . $CountLoop);
		privMsg ("PrivMsg Countloop = " . $CountLoop);
		HostDelayedCommand ( "GoCL", 10, DoCL );
	ENDIF
EndSub

Lang "EN"
leaderboard_test = "^0____________"
. "%nl%^0|___________|"
. "%nl%^0|___________|"
. "%nl%^0|___________|"
. "%nl%^0|___________|"
. "%nl%^0|___________|";
EndLang