Radar Test

/*
                    ********************************
                        rLibrary - Radar Library
                    ********************************
Descrição:
    Permite implantar radares de velocidade pela cidade.
    Quando um jogador passar pelo radar acima da velocidade, será pego pelo radar.
Versão:
    2.2
Developer:
    Luke "Larceny" G.
Thanks to:
    Protioso
    Y_Less
*/

#include "rLibrary"//Inclua a include.

stock sscanf(string[], format[], {Float,_}:...)//by Y_Less
{
    #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;
}

new radartest;
new total_radares_from_files=0;

public OnPlayerConnect(playerid)
{
    LSR_PlayerConnect(playerid);
    return 1;
}

public OnFilterScriptInit()
{
    UseFlashRadar();//Ativa a função de FLASH dos radares.
    CreateRadar(1257.644287, -1332.972900, 12.756792, 20, 50, 0, 1);//Radar com erro. (O primeiro radar nunca funcionará)
    radartest = CreateRadar(1194.994995, -1279.451416, 13.152740, 20, 50, 1318, 1);//Radar próximo ao hospital geral.
    CreateRadar(1057.763549, -1366.322143, 13.189699, 20, 50, 1318, 1);//Radar localizado atrás do hospital geral.
    total_radares_from_files += LoadStaticRadarsFromFile("radares/red_county.txt");//Carregara os radares no arquivo red_county.txt na pasta radares.
    total_radares_from_files += LoadStaticRadarsFromFile("radares/radares_salvos.txt");//Carregara os radares no arquivo radares_salvos.txt na pasta radares.
    print("[rL:] Criador de radar carregado com sucesso.");//Envia uma mensagem no console que o FS foi carregado com sucesso.
    printf("[rL:] Total de radares em arquivos: %d",total_radares_from_files);//Envia uma mensagem no console de quantos radares foram carregados em todos os arquivos.
    return 1;
}
public OnPlayerEnterRadar(playerid, speed, radarid)
{
    new string[128];
    if(radarid == radartest){format(string, sizeof(string), "[rL:] Você passou no meu radar a %d km/h e perdeu $500.", speed);}//Caso for o radartest(Radar próximo ao hospital geral).
    else {format(string, sizeof(string), "[rL:] Você passou em qualquer radar a %d km/h e perdeu $500.", speed);}//Caso for qualquer radar menos o radartest.
    SendClientMessage(playerid, 0xA9C4E4FF, string);//Enviará uma das mensagens acima de acordo do radar.
    GivePlayerMoney(playerid, -500);//Retira $500 do jogador como multa.
    return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
    if(!strcmp(cmdtext, "/salvarradar", true))
    {
        new
            speed,
            str[128],
            radiation;//Variavel.
        if(sscanf(cmdtext, "iis", speed, radiation, str)) SendClientMessage(playerid, 0x33AA33AA, "[Sugestão:] /alistfaction [id]");//Mensagem de erro.
        new Float:X, Float:Y, Float:Z, strf[128], strl[128];//Variaveis, etc..
        GetPlayerPos(playerid, X, Y, Z);//Obtem a posição atual do jogador.
        format(strf, sizeof(strf), "CreateRadar(%f, %f, %f, %d, %d, 1318, 1);//%s\r\n", X, Y, Z, speed, radiation, str);//string
        new File:FileToWrite=fopen("codigos_salvos.txt", io_append);
        fwrite(FileToWrite, strf);
        fclose(FileToWrite);//Salvará o código pronto para adicionar o radar ao seu script.
        format(strl, sizeof(strl), "%f, %f, %f, %d, %d, 1318, 1, -1 ;\r\n", X, Y, Z, speed, radiation);//string
        new File:FileToWriteTwo=fopen("radares_salvos.txt", io_append);
        fwrite(FileToWriteTwo, strl);
        fclose(FileToWriteTwo);//Salvará o radar criado e será sempre carregado quando o filterscript iniciar.
        CreateRadar(X, Y, Z, speed, radiation, 1318, 1);//Cria o radar.
        SendClientMessage(playerid, 0x33AA33AA, "[rL:] Radar Salvo!");//Envia mensagem ao jogador que criou o radar.
        return 1;
    }
    if(!strcmp(cmdtext, "/attachradar", true))
    {
        if(IsPlayerRadarAttached(playerid))return SendClientMessage(playerid, 0x33AA33AA, "[rL:] Você já tem um radar anexado a você.");
        SendClientMessage(playerid, 0x33AA33AA, "[rL:] Um radar foi implantado em você, sempre que você ultrapassar 100km/h será multado.");
        AttachRadarToPlayer(playerid, 100);
        return 1;
    }
    if(!strcmp(cmdtext, "/dettachradar", true))
    {
        if(!IsPlayerRadarAttached(playerid))return SendClientMessage(playerid, 0x33AA33AA, "[rL:] Você não tem um radar anexado a você.");
        SendClientMessage(playerid, 0x33AA33AA, "[rL:] O radar foi retirado.");
        DettachRadarToPlayer(playerid);
        return 1;
    }
    if(!strcmp(cmdtext, "/credits", true))
    {
        SendClientMessage(playerid, 0x33AA33AA, "[rL:] Radar Library.");
        SendClientMessage(playerid, 0x33AA33AA, "[rL:] Developer: Luke ''Larceny'' G.");
        SendClientMessage(playerid, 0x33AA33AA, "[rL:] grandlarceny@live.com");
        return 1;
    }
    return 0;
}