#include <a_samp>

/*
Credits to DracoBlue for the dcmd function.
*/
#define dcmd(%1,%2,%3) if ((strcmp((%3)[1], #%1, true, (%2)) == 0) && ((((%3)[(%2) + 1] == 0) && (dcmd_%1(playerid, "")))||(((%3)[(%2) + 1] == 32) && (dcmd_%1(playerid, (%3)[(%2) + 2]))))) return 1

#define yellow 0xFFFF00FF
#define MAX_HIRE_VEHICLES 100

enum hiredata
{
        Hired,
        Hiree,
        HirePrice,
        HireTime,
        Temptime
}
new hData[MAX_HIRE_VEHICLES][hiredata], HireID = -1, Hire[MAX_HIRE_VEHICLES] = {-1,...} , HT[MAX_PLAYERS], pHire[MAX_PLAYERS], pHired[MAX_PLAYERS],str[128];

stock CreateRentVehicle(Modelid, Float:x, Float:y, Float:z, Float:a, Color1, Color2, price, Hiretime)
{
        HireID++;
        hData[HireID][HirePrice] = price;
        hData[HireID][HireTime] = Hiretime;
        hData[HireID][Temptime] = 0;
        hData[HireID][Hiree] = 501;
        hData[HireID][Hired] = 0;
        Hire[HireID] = CreateVehicle(Modelid, x, y, z, a, Color1, Color2, -1);
        return 1;
}

public OnFilterScriptInit()
{
        print("\n--------------------------------------");
        print(" Vehicle Hire System by 'Joe_' Loaded!");
        print("--------------------------------------\n");

        /*CreateVehicle(ModelID, X, Y, Z, Rotation, Color1, Color2, Price, Hiretime (IN MINUTES!!!!!));*/
        CreateRentVehicle(451, 524.259704, -1290.022094, 16.948589, 310.302642, 15, 15, 3000, 30); // Grotti ~ Turismo Hire
        CreateRentVehicle(451, 534.313842, -1290.038574, 16.948661, 314.290283, 15, 15, 3000, 30); // Grotti ~ Turismo Hire
        CreateRentVehicle(506, 552.631225, -1289.209838, 16.835329, 1.806509, 15, 15, 2800, 30); // Grotti ~ SuperGT Hire
        CreateRentVehicle(415, 564.112976, -1277.986083, 17.014154, 102.518310, 15, 15, 2500, 2); // Grotti ~ Cheetah Hire

        for(new a = 0, b = GetMaxPlayers(); a < b; a++)
        {
            pHire[a] = 0;
            pHired[a] = -1;
        }
        return 1;
}

public OnFilterScriptExit()
{
        print("\n--------------------------------------");
        print(" Vehicle Hire System by 'Joe_' Unloaded!");
        print("--------------------------------------\n");

        for(new a = 0, b = GetMaxPlayers(); a < b; a++)
        {
            if(pHire[a] == 1)
            {
                    pHire[a] = 0;
                    pHired[a] = -1;
                    KillTimer(HT[a]);
                }
        }

        for(new v; v < MAX_HIRE_VEHICLES; v++)
        {
            hData[v][HirePrice] = 0;
                hData[v][Hiree] = 501;
                hData[v][Hired] = 0;
                hData[v][HireTime] = 0;
                hData[v][Temptime] = 0;

                if(Hire[v] == -1) continue;
            else { DestroyVehicle(Hire[v]); }
        }
        return 1;
}

public OnPlayerConnect(playerid)
{
        pHire[playerid] = 0;
        pHired[playerid] = -1;
        return 1;
}

public OnPlayerDisconnect(playerid, reason)
{
        for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
        {
            if(hData[a][Hiree] == playerid)
            {
                hData[a][Hired] = 0;
                    hData[a][Hiree] = 501;
                    hData[a][Temptime] = 0;
                    pHire[playerid] = 0;
                    pHired[playerid] = -1;
                    KillTimer(HT[playerid]);
                        SetVehicleToRespawn(a);
                }
                return 1;
        }
        return 1;
}

public OnPlayerStateChange(playerid, newstate, oldstate)
{
        if(newstate == PLAYER_STATE_DRIVER)
        {
            new v = GetPlayerVehicleID(playerid);
                for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
        {
                    if(v != Hire[a]) continue;
                    else
                        {
                            switch(hData[a][Hired])
                            {
                                case 0:
                                {
                                                TogglePlayerControllable(playerid, false);
                                                format(str,sizeof(str),"You can rent this vehicle for $%d, You will have it for %d Minutes.", hData[a][HirePrice], hData[a][HireTime]);
                                                SendClientMessage(playerid, yellow, " ");
                                                SendClientMessage(playerid, yellow, str);
                                                SendClientMessage(playerid, yellow, "If you would like to rent this vehicle, type '/rent'.");
                                                SendClientMessage(playerid, yellow, "You will have the vehicle until you type '/unrent' Or your rent time runs out.");
                                                SendClientMessage(playerid, yellow, "If you would not like to rent this vehicle, type '/exitveh'.");
                                                SendClientMessage(playerid, yellow, " ");
                                                //return 1;
                                        }
                                        case 1:
                                        {
                                            if(hData[a][Hiree] == playerid)
                                                {
                                                        SendClientMessage(playerid, yellow, "This is your rented vehicle, to unrent, type '/unrent'.");
                                                        format(str,sizeof(str),"You have %d Minutes left until your rent vehicle is returned.", hData[a][HireTime] - hData[a][Temptime]);
                                                        SendClientMessage(playerid, yellow, str);
                                                        return 1;
                                                }
                                                else
                                                {
                                                        RemovePlayerFromVehicle(playerid);
                                                        SendClientMessage(playerid, yellow, "This rent vehilce does not belong to you, you've been removed from the vehicle.");
                                                        return 1;
                                                }
                                        }
                                }
                                return 1;
                        }
                        return 1;
                }
                return 1;
        }
        return 1;
}

forward HireTimer(playerid);
public HireTimer(playerid)
{
        for(new a = 0; a < MAX_HIRE_VEHICLES; a++)
        {
            if(pHired[playerid] != Hire[a]) continue;
                else
                {
                        hData[a][Temptime]++;
                        new calc = hData[a][HireTime]-hData[a][Temptime];
                        if(hData[a][HireTime] >= 2 && calc == 1)
                        {
                                format(str,sizeof(str),"You have %d Minute left until your rent vehicle will be returned.", calc);
                                SendClientMessage(playerid, yellow, str);
                        }
                        else if(hData[a][Temptime]*60000 == hData[a][HireTime]*60000)
                        {
                            SetVehicleToRespawn(pHired[playerid]);
                                hData[a][Hired] = 0;
                                hData[a][Hiree] = 501;
                                hData[a][Temptime] = 0;
                                pHire[playerid] = 0;
                                pHired[playerid] = -1;
                                KillTimer(HT[playerid]);
                                TogglePlayerControllable(playerid, true);
                                SendClientMessage(playerid, yellow, "Your rent time has expired! You have returned the vehicle.");
                                return 1;
                        }
                        return 1;
                }
        }
        return 1;
}


dcmd_hireveh(playerid, params[])
{
        if(IsPlayerAdmin(playerid))
        {
            if(IsPlayerInAnyVehicle(playerid))
            {
                        new Price, Color1, Color2, Time;
                        if(!sscanf(params, "dddd", Price, Color1, Color2, Time))
                        {
                            new Model, Float:x, Float:y, Float:z, Float:a, v = GetPlayerVehicleID(playerid);
                            GetVehiclePos(v, x, y, z); GetVehicleZAngle(v, a); Model = GetVehicleModel(v);
                        new File:hvf = fopen("HireVehicles.pwn",io_append);
                            format(str,sizeof(str),"CreateRentVehicle(%d, %f, %f, %f, %f, %d, %d, %d, %d);\r\n", Model, x, y, z, a, Color1, Color2, Price, Time);
                            SendClientMessage(playerid, yellow, "Rent vehicle saved to 'Scriptfiles/HireVehicles.pwn");
                                fwrite(hvf, str);
                                fclose(hvf);
                                return 1;
                        }
                        else return SendClientMessage(playerid, yellow, "Usage: /hireveh <Price> <Color1> <Color2> <Time>");
                }
                else return SendClientMessage(playerid, yellow, "You are not in a vehicle!");
        }
        return 0;
}

dcmd_exitveh(playerid, params[])
{
        #pragma unused params
        if(IsPlayerInAnyVehicle(playerid))
        {
                RemovePlayerFromVehicle(playerid);
                TogglePlayerControllable(playerid, true);
        }
        return 1;
}

dcmd_hire(playerid, params[])
{
        #pragma unused params
        if(IsPlayerInAnyVehicle(playerid))
        {
        new v = GetPlayerVehicleID(playerid);
            for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
        {
                    if(v != Hire[a]) continue;
                    else
                    {
                        if(pHire[playerid] == 0)
                        {
                                if(GetPlayerMoney(playerid) >= hData[a][HirePrice])
                                {
                                        GivePlayerMoney(playerid, -hData[a][HirePrice]);
                                                hData[a][Hired] = 1;
                                                hData[a][Hiree] = playerid;
                                                pHire[playerid] = 1;
                                                pHired[playerid] = v;
                                                format(str,sizeof(str),"You have now rented this vehicle for %d Minutes for $%d.",hData[a][HireTime], hData[a][HirePrice]);
                                                SendClientMessage(playerid, yellow, " ");
                                                SendClientMessage(playerid, yellow, str);
                                                SendClientMessage(playerid, yellow, "To unrent your vehicle type '/unrent'.");
                                                SendClientMessage(playerid, yellow, "When you disconnect, you will no longer be renting this vehicle.");
                                                SendClientMessage(playerid, yellow, "When your Rent Time runs out, you will automaticly return this vehicle.");
                                                SendClientMessage(playerid, yellow, "Have fun with your new vehicle.");
                                                SendClientMessage(playerid, yellow, " ");
                                                HT[playerid] = SetTimerEx("HireTimer", 60000, 1, "i", playerid);
                                                TogglePlayerControllable(playerid, true);
                                                return 1;
                                        }
                                        else return SendClientMessage(playerid, yellow, "You don't have enough cash!");
                                }
                                else return SendClientMessage(playerid, yellow, "You already have a rent vehicle, type '/unrent' to unhire it.");
                        }
                }
                return 1;
        }
        else return SendClientMessage(playerid, yellow, "You are not in a Rent vehicle!");
}

dcmd_unhire(playerid, params[])
{
    #pragma unused params

        if(IsPlayerInAnyVehicle(playerid))
        {
            if(pHire[playerid] == 0)
            {
                SendClientMessage(playerid, yellow, "You are not renting a vehicle!");
                return 1;
                }
                new v = GetPlayerVehicleID(playerid);
                for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
        {
                        if(v != Hire[a]) continue;
                        else
                        {
                            if(v == pHired[playerid])
                            {
                                        hData[a][Hired] = 0;
                                    hData[a][Hiree] = 501;
                                    hData[a][Temptime] = 0;
                                    pHire[playerid] = 0;
                                    SetVehicleToRespawn(pHired[playerid]);
                                    pHired[playerid] = -1;
                                        TogglePlayerControllable(playerid, true);
                                        KillTimer(HT[playerid]);
                                        SendClientMessage(playerid, yellow,"You have returned your rent vehicle.");
                                }
                                return 1;
                        }
                }
                return 1;
        }
        else return SendClientMessage(playerid, yellow, "You are not in a rent vehicle!");
}

public OnVehicleDeath(vehicleid, killerid)
{
        if(hData[vehicleid][Hired] == 1)
        {
                hData[vehicleid][Hired] = 0;
                hData[vehicleid][Hiree] = 501;
                hData[vehicleid][Temptime] = 0;
                pHire[hData[vehicleid][Hiree]] = 0;
        pHired[hData[vehicleid][Hiree]] = -1;
                SetVehicleToRespawn(vehicleid);
                KillTimer(HT[hData[vehicleid][Hiree]]);
                SendClientMessage(hData[vehicleid][Hiree], yellow, "You have destroyed your Rent vehicle! It has been returned.");
                return 1;
        }
        return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
        dcmd(hireveh, 7, cmdtext);
        dcmd(hire, 4, cmdtext);
        dcmd(unhire, 6, cmdtext);
        dcmd(exitveh, 7, cmdtext);
        return 0;
}

public OnVehicleRespray(playerid, vehicleid, color1, color2)
{
    for(new a = 0; a <= MAX_HIRE_VEHICLES; a++)
        {
        if(vehicleid != Hire[a]) continue;
                else { return 0;}
        }
        return 1;
}

/*
Credits to ****** for the sscanf function.
*/

stock sscanf(stringx[], format[], {Float,_}:...)
{
        #if defined isnull
                if (isnull(stringx))
        #else
                if (stringx[0] == 0 || (stringx[0] == 1 && stringx[1] == 0))
        #endif
                {
                        return format[0];
                }
        #pragma tabsize 4
        new
                formatPos = 0,
                stringPos = 0,
                paramPos = 2,
                paramCount = numargs(),
                delim = ' ';
        while (stringx[stringPos] && stringx[stringPos] <= ' ')
        {
                stringPos++;
        }
        while (paramPos < paramCount && stringx[stringPos])
        {
                switch (format[formatPos++])
                {
                        case '\0':
                        {
                                return 0;
                        }
                        case 'i', 'd':
                        {
                                new
                                        neg = 1,
                                        num = 0,
                                        ch = stringx[stringPos];
                                if (ch == '-')
                                {
                                        neg = -1;
                                        ch = stringx[++stringPos];
                                }
                                do
                                {
                                        stringPos++;
                                        if ('0' <= ch <= '9')
                                        {
                                                num = (num * 10) + (ch - '0');
                                        }
                                        else
                                        {
                                                return -1;
                                        }
                                }
                                while ((ch = stringx[stringPos]) > ' ' && ch != delim);
                                setarg(paramPos, 0, num * neg);
                        }
                        case 'h', 'x':
                        {
                                new
                                        num = 0,
                                        ch = stringx[stringPos];
                                do
                                {
                                        stringPos++;
                                        switch (ch)
                                        {
                                                case 'x', 'X':
                                                {
                                                        num = 0;
                                                        continue;
                                                }
                                                case '0' .. '9':
                                                {
                                                        num = (num << 4) | (ch - '0');
                                                }
                                                case 'a' .. 'f':
                                                {
                                                        num = (num << 4) | (ch - ('a' - 10));
                                                }
                                                case 'A' .. 'F':
                                                {
                                                        num = (num << 4) | (ch - ('A' - 10));
                                                }
                                                default:
                                                {
                                                        return -1;
                                                }
                                        }
                                }
                                while ((ch = stringx[stringPos]) > ' ' && ch != delim);
                                setarg(paramPos, 0, num);
                        }
                        case 'c':
                        {
                                setarg(paramPos, 0, stringx[stringPos++]);
                        }
                        case 'f':
                        {

                                new changestr[16], changepos = 0, strpos = stringPos;
                                while(changepos < 16 && stringx[strpos] && stringx[strpos] != delim)
                                {
                                        changestr[changepos++] = stringx[strpos++];
                                }
                                changestr[changepos] = '\0';
                                setarg(paramPos,0,_:floatstr(changestr));
                        }
                        case 'p':
                        {
                                delim = format[formatPos++];
                                continue;
                        }
                        case '\'':
                        {
                                new
                                        end = formatPos - 1,
                                        ch;
                                while ((ch = format[++end]) && ch != '\'') {}
                                if (!ch)
                                {
                                        return -1;
                                }
                                format[end] = '\0';
                                if ((ch = strfind(stringx, format[formatPos], false, stringPos)) == -1)
                                {
                                        if (format[end + 1])
                                        {
                                                return -1;
                                        }
                                        return 0;
                                }
                                format[end] = '\'';
                                stringPos = ch + (end - formatPos);
                                formatPos = end + 1;
                        }
                        case 'u':
                        {
                                new
                                        end = stringPos - 1,
                                        id = 0,
                                        bool:num = true,
                                        ch;
                                while ((ch = stringx[++end]) && ch != delim)
                                {
                                        if (num)
                                        {
                                                if ('0' <= ch <= '9')
                                                {
                                                        id = (id * 10) + (ch - '0');
                                                }
                                                else
                                                {
                                                        num = false;
                                                }
                                        }
                                }
                                if (num && IsPlayerConnected(id))
                                {
                                        setarg(paramPos, 0, id);
                                }
                                else
                                {
                                        #if !defined foreach
                                                #define foreach(%1,%2) for (new %2 = 0; %2 < MAX_PLAYERS; %2++) if (IsPlayerConnected(%2))
                                                #define __SSCANF_FOREACH__
                                        #endif
                                        stringx[end] = '\0';
                                        num = false;
                                        new
                                                n[MAX_PLAYER_NAME];
                                        id = end - stringPos;
                                        foreach (Player, playerid)
                                        {
                                                GetPlayerName(playerid, n, sizeof (n));
                                                if (!strcmp(n, stringx[stringPos], true, id))
                                                {
                                                        setarg(paramPos, 0, playerid);
                                                        num = true;
                                                        break;
                                                }
                                        }
                                        if (!num)
                                        {
                                                setarg(paramPos, 0, INVALID_PLAYER_ID);
                                        }
                                        stringx[end] = ch;
                                        #if defined __SSCANF_FOREACH__
                                                #undef foreach
                                                #undef __SSCANF_FOREACH__
                                        #endif
                                }
                                stringPos = end;
                        }
                        case 's', 'z':
                        {
                                new
                                        i = 0,
                                        ch;
                                if (format[formatPos])
                                {
                                        while ((ch = stringx[stringPos++]) && ch != delim)
                                        {
                                                setarg(paramPos, i++, ch);
                                        }
                                        if (!i)
                                        {
                                                return -1;
                                        }
                                }
                                else
                                {
                                        while ((ch = stringx[stringPos++]))
                                        {
                                                setarg(paramPos, i++, ch);
                                        }
                                }
                                stringPos--;
                                setarg(paramPos, i, '\0');
                        }
                        default:
                        {
                                continue;
                        }
                }
                while (stringx[stringPos] && stringx[stringPos] != delim && stringx[stringPos] > ' ')
                {
                        stringPos++;
                }
                while (stringx[stringPos] && (stringx[stringPos] == delim || stringx[stringPos] <= ' '))
                {
                        stringPos++;
                }
                paramPos++;
        }
        do
        {
                if ((delim = format[formatPos++]) > ' ')
                {
                        if (delim == '\'')
                        {
                                while ((delim = format[formatPos++]) && delim != '\'') {}
                        }
                        else if (delim != 'z')
                        {
                                return delim;
                        }
                }
        }
        while (delim > ' ');
        return 0;
}