/*
                    Sistema de Roubo by Pedro Miranda
                    
        Instruзхes:
        
        Vб atй o local onde deseja criar seu ponto de roubo, nгo й possнvel criar
        o roubo in-game, porйm pode ir atй o local e digitar '/criarroubo [id] [virtualworld] [nome]'
        que os dados serгo escritos no arquivo 'roubos.txt', com o roubo criado,
        vб ao arquivo e a linha jб estarб pronta, bastarб colб-la na public
        'OnFilterScriptInit', feito isto, pode-se ir ao local e digitar '/roubar',
        feito isto, aguarde 1:30 min no local para recolher o dinheiro, com o
        roubo concluido, o local levarб 5 minutos para poder ser roubado novamente,
        se voce nao concluir o roubo por nao estar no local, o local podera ser
        roubado em 2 min, lembre-se de criar nas scriptfiles o arquivo 'roubos.txt'
*/

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

#define FILTERSCRIPT

#define MAX_ROUBOS (21) //20

#define RandomEx(%1,%2) random(%2-%1)-%1

forward IniciarRoubo(playerid, rouboid);
forward FinalizarRoubo(playerid, rouboid);
forward RestaurarRoubo(rouboid);

enum rInfo
{
    RouboNome[32],
    Float:RouboX,
    Float:RouboY,
    Float:RouboZ,
    RouboVW,
    bool:Roubado,
    RouboTimer[2],
    RouboPickup,
    Text3D:RouboLabel
};
new RouboInfo[MAX_ROUBOS][rInfo];

public OnFilterScriptInit()
{
    print("=> Sistema de Roubo Carregado");
    return 1;
}

public OnFilterScriptExit()
{
    print("=> Sistema de Roubo Descarregado");
    return 1;
}

stock CriarRoubo(id, Float:x, Float:y, Float:z, Nome[], VirtualWorld)
{
    strmid(RouboInfo[id][RouboNome], Nome, 0, strlen(Nome), 255);
    RouboInfo[id][RouboX] = x;
    RouboInfo[id][RouboY] = y;
    RouboInfo[id][RouboZ] = z;
    RouboInfo[id][RouboVW] = VirtualWorld;
    RouboInfo[id][Roubado] = false;
    RouboInfo[id][RouboPickup] = CreatePickup(1212, 23, x, y, z, VirtualWorld);
    new string[128];
    format(string, sizeof(string), "%s\nEste Local Pode Ser Roubado\nDigite /Roubar", Nome);
    RouboInfo[id][RouboLabel] = Create3DTextLabel(string, 0x00FFFFFF, x, y, z, 20.0, VirtualWorld);
    return 1;
}

stock IsPlayerInRobPlace(playerid)
{
    for(new i = 1; i < sizeof(RouboInfo); ++i)
    {
        if(IsPlayerInRangeOfPoint(playerid, 3.0, RouboInfo[i][RouboX], RouboInfo[i][RouboY], RouboInfo[i][RouboZ]))
        {
            return 1;
        }
    }
    return 0;
}

stock GetPlayerRoubo(playerid)
{
    for(new i = 1; i < sizeof(RouboInfo); ++i)
    {
        if(IsPlayerInRangeOfPoint(playerid, 3.0, RouboInfo[i][RouboX], RouboInfo[i][RouboY], RouboInfo[i][RouboZ]))
        {
            return i;
        }
    }
    return -255;
}

public IniciarRoubo(playerid, rouboid)
{
    new string[128];
    new playername[MAX_PLAYER_NAME];
    GetPlayerName(playerid, playername, sizeof(playername));
    format(string, sizeof(string), "%s estб roubando o %s!", playername, RouboInfo[rouboid][RouboNome]);
    SendClientMessage(playerid, 0x00CD00FF, string);
    RouboInfo[rouboid][Roubado] = true;
    RouboInfo[rouboid][RouboTimer][0] = SetTimerEx("FinalizarRoubo", 90000, 0, "ii", playerid, rouboid);
    return 1;
}

public FinalizarRoubo(playerid, rouboid)
{
    if(!IsPlayerInRangeOfPoint(playerid, 5.0, RouboInfo[rouboid][RouboX], RouboInfo[rouboid][RouboY], RouboInfo[rouboid][RouboZ]) || GetPlayerVirtualWorld(playerid) != RouboInfo[rouboid][RouboVW])
    {
        SendClientMessage(playerid, 0x00CD00AA, "Vocк nгo estava prуximo ao local do roubo na hora de recolher a grana!");
        RouboInfo[rouboid][RouboTimer][1] = SetTimerEx("RestaurarRoubo", 120000, 0, "i", rouboid);
        return 1;
    }
    new string[128];
    new playername[MAX_PLAYER_NAME];
    GetPlayerName(playerid, playername, sizeof(playername));
    new GranaRoubo = RandomEx(50000, 70000);
    format(string, sizeof(string), "%s roubou o %s e faturou $ %d!", playername, RouboInfo[rouboid][RouboNome], GranaRoubo);
    SendClientMessageToAll(0x00CD00FF, string);
    RouboInfo[rouboid][RouboTimer][1] = SetTimerEx("RestaurarRoubo", 300000, 0, "i", rouboid);
    return 1;
}

public RestaurarRoubo(rouboid)
{
    new string[128];
    format(string, sizeof(string), "O(a) %s acaba de receber uma alta quantia de dinheiro!", RouboInfo[rouboid][RouboNome]);
    SendClientMessageToAll(0x00CD00FF, string);
    RouboInfo[rouboid][Roubado] = false;
    return 1;
}

CMD:criarroubo(playerid, params[])
{
    if(IsPlayerAdmin(playerid))
    {
        new id, virtualworld, nome[32];
        if(sscanf(params, "iis[32]", id, virtualworld, nome))
            return SendClientMessage(playerid, 0x00CD00FF, "Use /criarroubo [ID] [VirtualWorld] [Nome]");
        new File: rFile = fopen("roubos.txt", io_append);
        new string[128];
        new Float:x, Float:y, Float:z;
        GetPlayerPos(playerid, x, y, z);
        format(string, sizeof(string), "CriarRoubo(%d, %f, %f, %f, %s, %d); \r \n", id, x, y, z, nome, virtualworld);
        fwrite(rFile, string);
        fclose(rFile);
    }
    else
    {
        SendClientMessage(playerid, 0x00CD00FF, "Somente estando logado na Rcon.");
    }
    return 1;
}

CMD:roubar(playerid, params[])
{
    if(IsPlayerInRobPlace(playerid))
    {
        new rouboid = GetPlayerRoubo(playerid);
        if(rouboid != -255)
        {
            if(!RouboInfo[rouboid][Roubado])
            {
                IniciarRoubo(playerid, rouboid);
            }
            else
            {
                SendClientMessage(playerid, 0x00CD00FF, "Este local jб estб sendo roubado ou foi roubado a pouco!");
            }
        }
    }
    else
    {
        SendClientMessage(playerid, 0x00CD00FF, "Vocк nгo estб em um local assaltбvel.");
    }
    return 1;
}

stock sscanf(string[], format[], {Float,_}:...)
{
    #if defined isnull
        if (isnull(string))
    #else
        if (string[0] == 0 || (string[0] == 1 && string[1] == 0))
    #endif
        {
            return format[0];
        }
    #pragma tabsize 4
    new
        formatPos = 0,
        stringPos = 0,
        paramPos = 2,
        paramCount = numargs(),
        delim = ' ';
    while (string[stringPos] && string[stringPos] <= ' ')
    {
        stringPos++;
    }
    while (paramPos < paramCount && string[stringPos])
    {
        switch (format[formatPos++])
        {
            case '\0':
            {
                return 0;
            }
            case 'i', 'd':
            {
                new
                    neg = 1,
                    num = 0,
                    ch = string[stringPos];
                if (ch == '-')
                {
                    neg = -1;
                    ch = string[++stringPos];
                }
                do
                {
                    stringPos++;
                    if ('0' <= ch <= '9')
                    {
                        num = (num * 10) + (ch - '0');
                    }
                    else
                    {
                        return -1;
                    }
                }
                while ((ch = string[stringPos]) > ' ' && ch != delim);
                setarg(paramPos, 0, num * neg);
            }
            case 'h', 'x':
            {
                new
                    num = 0,
                    ch = string[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 = string[stringPos]) > ' ' && ch != delim);
                setarg(paramPos, 0, num);
            }
            case 'c':
            {
                setarg(paramPos, 0, string[stringPos++]);
            }
            case 'f':
            {
 
                new changestr[16], changepos = 0, strpos = stringPos;     
                while(changepos < 16 && string[strpos] && string[strpos] != delim)
                {
                    changestr[changepos++] = string[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(string, 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 = string[++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
                    string[end] = '\0';
                    num = false;
                    new
                        name[MAX_PLAYER_NAME];
                    id = end - stringPos;
                    foreach (Player, playerid)
                    {
                        GetPlayerName(playerid, name, sizeof (name));
                        if (!strcmp(name, string[stringPos], true, id))
                        {
                            setarg(paramPos, 0, playerid);
                            num = true;
                            break;
                        }
                    }
                    if (!num)
                    {
                        setarg(paramPos, 0, INVALID_PLAYER_ID);
                    }
                    string[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 = string[stringPos++]) && ch != delim)
                    {
                        setarg(paramPos, i++, ch);
                    }
                    if (!i)
                    {
                        return -1;
                    }
                }
                else
                {
                    while ((ch = string[stringPos++]))
                    {
                        setarg(paramPos, i++, ch);
                    }
                }
                stringPos--;
                setarg(paramPos, i, '\0');
            }
            default:
            {
                continue;
            }
        }
        while (string[stringPos] && string[stringPos] != delim && string[stringPos] > ' ')
        {
            stringPos++;
        }
        while (string[stringPos] && (string[stringPos] == delim || string[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;
}