/*-------------------------------------------------------------------------------------------------------------	*/
/* © iPLEOMAX's Outrun race system. Similar to NFS UG2 outrun race.												*/
/* Made from scratch. You will need zcmd & sscanf to use this.													*/
/*-------------------------------------------------------------------------------------------------------------	*/

#include <a_samp>
#include <zcmd>
#include <sscanf2>

#define COLOR_RED 0xAA3333AA
#define COLOR_LIGHTBLUE 0x33CCFFAA
#define COLOR_WHITE 0xFFFFFFAA
#define COLOR_BRIGHTRED 0xFF0000AA
#define COLOR_LIGHTGREEN 0x24FF0AB9

new ORTimer;
new Float: VVX[MAX_PLAYERS];
new Float: VVY[MAX_PLAYERS];
new Float: VVZ[MAX_PLAYERS];
new Float: SPD[MAX_PLAYERS];

public OnFilterScriptInit()
{
	ORTimer = SetTimer("ORCheck",300,true);
	return true;
}

public OnFilterScriptExit()
{
   	KillTimer(ORTimer);
	return true;
}

public OnPlayerConnect(playerid)
{
	SetPVarInt(playerid, "LR", -1);
	SetPVarInt(playerid, "LRRequest",-1);
	SetPVarInt(playerid, "bet",0);
	return true;
}

public OnPlayerDeath(playerid, killerid, reason)
{
	if(GetPVarInt(playerid, "LRRequest") != -1)
	{
	    SendClientMessage(playerid, COLOR_BRIGHTRED, "You lost the Outrun race..");
	    SetPVarInt(playerid, "ORLoser", 1);
	}
	return true;
}

public OnPlayerStateChange(playerid, newstate, oldstate)
{
	if(GetPVarInt(playerid, "LRRequest") != -1)
	{
	    SendClientMessage(playerid, COLOR_BRIGHTRED, "You lost the Outrun because you exited the vehicle.");
	    SetPVarInt(playerid, "ORLoser", 1);
	}
	return true;
}

public OnPlayerDisconnect(playerid, reason)
{
	if(GetPVarInt(playerid, "LRRequest") != -1)
	{
	    SetPVarInt(playerid, "ORLoser", 1);
	}
	return true;
}

forward ORCheck();
public ORCheck()
{
	for(new i=0; i<MAX_PLAYERS; i++)
	{
	    if(IsPlayerConnected(i) && !IsPlayerNPC(i) && GetPVarInt(i, "LR") != -1)
	    {
	        new r;
			r = GetPVarInt(i,"LR");
	        if(GetPVarInt(r, "ORLoser") == 1) ORLoser®;
			if(GetPVarInt(i, "ORLoser") == 1) ORLoser(i);
	        if(IsPlayerInAnyVehicle(i))
	        {
				new Float:FX, Float:FY;
				GetXYInFrontOfPlayer(i, FX, FY, 13);
				new Float:X, Float:Y, Float:Z;
				GetPlayerPos(i,X,Y,Z);
				new Float:X2, Float:Y2, Float:Z2;
				GetPlayerPos(r,X2,Y2,Z2);
				new Float:VZA, Float:VZAB;
				GetVehicleZAngle(GetPlayerVehicleID(i),VZA);
				GetVehicleZAngle(GetPlayerVehicleID®,VZAB);
				if(!IsPlayerInRangeOfPoint(r,120,X,Y,Z))
				{
					GameTextForPlayer(i,"~g~~n~~n~~n~~n~~n~~n~~n~You are far ahead...",2000,3);
					GameTextForPlayer(r,"~r~~n~~n~~n~~n~~n~~n~~n~Your Rival is far ahead!",2000,3);
				}
				if(!IsPlayerInRangeOfPoint(r,300,X,Y,Z))
				{
					ORLoser®;
				}
				GetVehicleVelocity(GetPlayerVehicleID(i), VVX[i],VVY[i], VVZ[i]);
				GetVehicleVelocity(GetPlayerVehicleID®, VVX[r],VVY[r], VVZ[r]);
				SPD[i] = floatsqroot(((VVX[i]*VVX[i])+(VVY[i]*VVY[i]))+(VVZ[i]*VVZ[i]))*100;
				SPD[r] = floatsqroot(((VVX[r]*VVX[r])+(VVY[r]*VVY[r]))+(VVZ[r]*VVZ[r]))*100;
				if(IsPlayerInRangeOfPoint(r,15,FX,FY,Z))
				{
					if(VZA >= VZAB-60 && VZA <= VZAB+60)
					{
						GameTextForPlayer(i,"~r~~n~~n~~n~~n~~n~~n~~n~Your Rival has the Lead!",1000,3);
						GameTextForPlayer(r,"~g~~n~~n~~n~~n~~n~~n~~n~You are leading now.",1000,3);
						SetPVarInt(r,"LR",i);
						SetPVarInt(i,"LR",-1);
					}
				}
				if(IsPlayerInRangeOfPoint(r,25,X,Y,Z))
				{
					if(SPD[i]+25 < SPD[r])
					{
						GameTextForPlayer(i,"~r~~n~~n~~n~~n~~n~~n~~n~Your Rival has the Lead!",1000,3);
						GameTextForPlayer(r,"~g~~n~~n~~n~~n~~n~~n~~n~You are leading now.",1000,3);
						SetPVarInt(r,"LR",i);
						SetPVarInt(i,"LR",-1);
					}
				}
	        }
	        return true;
	    }
	}
	return true;
}

forward ORLoser(playerid);
public ORLoser(playerid)
{
	new r;
	r = GetPVarInt(playerid, "LRRequest");
	GameTextForPlayer(playerid,"~r~~n~~n~~n~~n~~n~~n~You Lost the challenge...",5000,3);
	GameTextForPlayer(r,"~g~~n~~n~~n~~n~~n~~n~] You Won the challenge!",5000,3);
	SetPVarInt(r, "LRRequest",-1);
	SetPVarInt(playerid, "LRRequest",-1);
	SetPVarInt(playerid,"LR", -1);
	SetPVarInt(r,"LR", -1);
	SetPVarInt(playerid, "ORLoser", 0);
	SetPVarInt(r, "ORLoser", 0);
	new bet, msg1[10], msg2[10];
	bet = GetPVarInt(playerid,"bet");
	GivePlayerMoney(r, bet);
	GivePlayerMoney(playerid, -bet);
	format(msg2,10,"Bet Lost. %i$",-bet);
	format(msg1,10,"Bet Won. +%i$",bet);
	SendClientMessage(playerid,COLOR_BRIGHTRED,msg2);
	SendClientMessage(r,COLOR_LIGHTGREEN,msg1);
	new ORmessage[512];
	format(ORmessage,sizeof(ORmessage),"* %s won an Outrun race against %s with bet %i $",GetName®,GetName(playerid),bet);
	SendClientMessageToAll(COLOR_LIGHTBLUE, ORmessage);
	return true;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    switch(dialogid)
    {
        case 1337:
        {
            if(!response)
            {
                new PID;
                PID = GetPVarInt(playerid, "LRRequest");
                TogglePlayerControllable(PID, true);
                SendClientMessage(PID,COLOR_BRIGHTRED,"Sorry, the player is not interested to race.");
                SetPVarInt(playerid, "LRRequest",-1);
                return true;
            }
            else
            {
                new PID;
                PID = GetPVarInt(playerid, "LRRequest");
                SetPVarInt(PID,"LR",playerid);
                TogglePlayerControllable(PID, true);
                new Float:X, Float:Y, Float:Z, Float:VZ;
                GetVehiclePos(GetPlayerVehicleID(PID),X,Y,Z);
                GetXYInFrontOfPlayer(PID, X,Y,-8);
                SetVehiclePos(GetPlayerVehicleID(playerid),X,Y,Z+0.2);
                GetVehicleZAngle(GetPlayerVehicleID(PID),VZ);
                SetVehicleZAngle(GetPlayerVehicleID(playerid),VZ);
                GameTextForPlayer(PID,"~g~Race Accepted.. Run!",3000,3);
                GameTextForPlayer(playerid,"~g~Now follow him!",3000,3);
			}
        }
	}
	return true;
}

CMD:outrunhelp(playerid, params[])
{
	SendClientMessage(playerid, COLOR_LIGHTBLUE, "[_ Outrun Race Help _]");
	SendClientMessage(playerid, COLOR_WHITE, "> Use /challenge [Player ID] [Bet Amount $] to begin an outrun race.");
	SendClientMessage(playerid, COLOR_WHITE, "> The race is simple, go as far as possible ahead from your rival to win the race.");
	SendClientMessage(playerid, COLOR_WHITE, "> Just overtake your rival to take the lead.");
	SendClientMessage(playerid, COLOR_WHITE, "© iPLEOMAX.");
	return true;
}

CMD:challenge(playerid, params[])
{
	new rplayer, bet;
	if(!sscanf(params,"ui",rplayer,bet))
	{
	    if(IsPlayerConnected(rplayer) && !IsPlayerNPC(playerid))
	    {
	    if(IsPlayerInAnyVehicle(rplayer))
	    {
	    if(IsPlayerInAnyVehicle(playerid))
	    {
		if(bet <= 50000 && bet >= 5000)
		{
		if(GetPlayerMoney(playerid) >= bet)
		{
		if(GetPVarInt(rplayer,"LRRequest") == -1)
		{
		if(GetPVarInt(rplayer,"LR") == -1)
		{
		new Float:X,Float:Y,Float:Z;
		GetPlayerPos(playerid,X,Y,Z);
		if(IsPlayerInRangeOfPoint(rplayer,16,X,Y,Z))
		{
		new msg[24];
		format(msg,24,"Bet: %i $",bet);
		SendClientMessage(playerid,COLOR_LIGHTBLUE,msg);
		SetPVarInt(playerid,"bet",bet);
		SetPVarInt(rplayer,"bet",bet);
		SetPVarInt(rplayer, "LRRequest", playerid);
		SetPVarInt(playerid, "LRRequest", rplayer);
		new info[160], pname[MAX_PLAYER_NAME];
		GetPlayerName(playerid,pname,sizeof(pname));
		format(info,160,"%s is asking you to start a challenege race\n with a bet of $%i, do you want to do this?",pname,bet);
		ShowPlayerDialog(rplayer, 1337, DIALOG_STYLE_MSGBOX,"Challenge Race:",info,"Ofcouse","Nope");
		TogglePlayerControllable(playerid,false);
		} else SendClientMessage(playerid, COLOR_BRIGHTRED, "You should be near to that player.");
		} else SendClientMessage(playerid, COLOR_BRIGHTRED, "Player is currently racing.");
		} else SendClientMessage(playerid, COLOR_BRIGHTRED, "Player is already invited by someone.");
		} else SendClientMessage(playerid, COLOR_BRIGHTRED, "You don't have that much money..");
		} else SendClientMessage(playerid, COLOR_RED, "Min Amount: $5,000 Max Amount: $50,000");
		} else SendClientMessage(playerid, COLOR_BRIGHTRED, "You need a vehicle to challenge someone.");
		} else SendClientMessage(playerid, COLOR_BRIGHTRED, "The player you want to challenge doesn't have a vehicle.");
		} else SendClientMessage(playerid, COLOR_RED, "Player is not connected.");
	} else SendClientMessage(playerid, COLOR_RED, "Usage: /challenge [Player ID] [Bet Amount]");
	return true;
}

// Thanks a bunch to ****** for this function. =)
GetXYInFrontOfPlayer(playerid, &Float:x, &Float:y, Float:distance)
{                                                 // Created by ******

    new Float:a;

    GetPlayerPos(playerid, x, y, a);
    GetPlayerFacingAngle(playerid, a);

    if (GetPlayerVehicleID(playerid)) {
        GetVehicleZAngle(GetPlayerVehicleID(playerid), a);
    }

    x += (distance * floatsin(-a, degrees));
    y += (distance * floatcos(-a, degrees));
}

stock GetName(playerid)
{
	new playername[MAX_PLAYER_NAME];
	GetPlayerName(playerid, playername,sizeof(playername));
	return playername;
}