rLibrary

/*
                    ********************************
                        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.3
Developer:
    Synchr0.
ChangeLOG:
    09/02/2012:
        LSR_OnPlayerConnect() "Removido".
    18/06/2011:
        Correções minimas.
    30/12/2010:
        Novas funções de attach.
    28/12/2010:
        Novas funções.
    23/12/2010:
        Flash alternativo.
        Novo parâmetro na callback OnPlayerEnterRadar.
    20/11/2010:
        Alterações no Timer.
    19/09/2010:
        CallBack OnPlayerEnterRadar agora retorna velocidade em que o jogador passou no radar.
    18/09/2010:
        Primeira versão
Natives:
    native CreateRadar(Float:x, Float:y, Float:z, speedmax, radiacao, pickup, ativado, virtualword = -1);
    native DestroyRadar(lrid);
    native RadarExiste(lrid);
    native SetRadarPos(lrid, Float:x, Float:y, Float:z);
    native SetRadarVirtualWorld(lrid, virtualworld);
    native SetRadarAtivado(lrid, toggle);
    native SetRadarVelocidadeMax(lrid, velocidade);
    native SetRadarRadiacao(lrid, Float:radiacao);
    native SetRadarPickup(lrid, pickupid);
    native ObterRadarPos(lrid, &Float:x, &Float:y, &Float:z);
    native ObterRadarVirtualWorld(lrid);
    native LoadStaticRadarsFromFile(const filename[]);
    native GetPlayerSpeed(playerid, bool:velo);
    native GetVehicleSpeed(vehicleid);
    native AttachRadarToPlayer(playerid, velocidade);
    native DettachRadarToPlayer(playerid);
    native IsPlayerRadarAttached(playerid);
*/
#include "a_samp"

#define MAX_Radar               100
#define LSR_TIME_CHECK          1500
#define ObterVelocidadeJogador  GetPlayerSpeed
#define ObterVelocidadeVeiculo  GetVehicleSpeed

enum lrdef
{
    LSR_VW,
    LSR_OID,
    Float:LSR_X,
    Float:LSR_Y,
    Float:LSR_Z,
    LSR_speedmax,
    LSR_radiacao,
    LSR_pickup,
    LSR_ativado
};
static  LSR_Timer, LSR_Total, LSR_Radar[MAX_Radar][lrdef];

#define LSR_CheckTimerAd() if(!LSR_Timer) LSR_Timer = SetTimer("CheckRadar", LSR_TIME_CHECK, 1)
#define LSR_CheckTimerRe() if(!LSR_Total){KillTimer(LSR_Timer); LSR_Timer = 0;}

forward CheckRadar();
forward HideRadar(playerid);
forward OnPlayerEnterRadar(playerid, speed, radarid);
forward UseFlashRadar();
forward MoverPickup(lrid,Float:x,Float:y,Float:z);

new Text:Flash;
new bool:UseFlash;

stock CreateRadar(Float:x, Float:y, Float:z, speedmax, radiacao, pickup, ativado, virtualword = -1)
{
    new bid = LSR_ProcurarIDLivre();
    if(bid == -1)
    {
        printf("[rLibrary:] Limite de radares exedido! (Max:%d) Adicione um valor no MAX_RADAR ou apague algum...", MAX_Radar);
        return 0;
    }
    LSR_Radar[bid][LSR_OID] = CreatePickup(pickup,1,x,y,z+2,-1);
    LSR_Radar[bid][LSR_X] = x;
    LSR_Radar[bid][LSR_Y] = y;
    LSR_Radar[bid][LSR_Z] = z;
    LSR_Radar[bid][LSR_speedmax] = speedmax;
    LSR_Radar[bid][LSR_VW] = virtualword;
    LSR_Radar[bid][LSR_radiacao] = radiacao;
    LSR_Radar[bid][LSR_pickup] = pickup;
    LSR_Radar[bid][LSR_ativado] = ativado;
    LSR_CheckTimerAd();
    LSR_Total++;
    return bid;
}

stock DestroyRadar(lrid)
{
    if(!LSR_Radar[lrid][LSR_OID]) return 0;
    LSR_Total--;
    DestroyPickup(LSR_Radar[lrid][LSR_pickup]);
    LSR_Radar[lrid][LSR_OID] = 0;
    LSR_CheckTimerRe()
    return 1;
}

stock RadarExiste(lrid) return (!LSR_Radar[lrid][LSR_OID]) ? 0 : 1;

stock SetRadarPos(lrid, Float:x, Float:y, Float:z)
{
    if(!LSR_Radar[lrid][LSR_OID]) return 0;
    LSR_Radar[lrid][LSR_X] = x;
    LSR_Radar[lrid][LSR_Y] = y;
    LSR_Radar[lrid][LSR_Z] = z;
    return MoverPickup(LSR_Radar[lrid][LSR_OID], x, y, z);
}

stock SetRadarAtivado(lrid, toggle)
{
    if(!LSR_Radar[lrid][LSR_OID]) return 0;
    if(toggle == 1 || toggle == true){LSR_Radar[lrid][LSR_ativado] = 1;}
    if(toggle == 0 || toggle == false){LSR_Radar[lrid][LSR_ativado] = 0;}
    return MoverPickup(LSR_Radar[lrid][LSR_OID], x, y, z);
}

stock SetRadarVelocidadeMax(lrid, velocidade)
{
    if(!LSR_Radar[lrid][LSR_OID]) return 0;
    return LSR_Radar[lrid][LSR_speedmax] = velocidade;
}

stock SetRadarRadiacao(lrid, Float:radiacao)
{
    if(!LSR_Radar[lrid][LSR_OID]) return 0;
    return LSR_Radar[lrid][LSR_radiacao] = radiacao;
}


stock SetRadarPickup(lrid, pickupid)
{
    if(!LSR_Radar[lrid][LSR_OID]) return 0;
    LSR_Radar[lrid][LSR_pickup] = pickupid;
    return MoverPickup(lrid, LSR_Radar[lrid][LSR_X], LSR_Radar[lrid][LSR_Y], LSR_Radar[lrid][LSR_Z]+2);
}

public MoverPickup(lrid,Float:x,Float:y,Float:z)
{
    if(LSR_Radar[lrid][LSR_OID])
    {
        DestroyPickup(LSR_Radar[lrid][LSR_OID]);
        LSR_Radar[lrid][LSR_X] = x;
        LSR_Radar[lrid][LSR_Y] = y;
        LSR_Radar[lrid][LSR_Z] = z;
        CreatePickup(LSR_Radar[lrid][LSR_pickup], 1, x, y, z, -1);
        return 1;
    }
    return 0;
}

stock SetRadarVirtualWorld(lrid, virtualworld)
{
    if(!LSR_Radar[lrid][LSR_OID]) return 0;
    LSR_Radar[lrid][LSR_VW] = virtualworld;
    DestroyPickup(LSR_Radar[lrid][LSR_OID]);
    new x = LSR_Radar[lrid][LSR_X];
    new y = LSR_Radar[lrid][LSR_Y];
    new z = LSR_Radar[lrid][LSR_Z];
    CreatePickup(LSR_Radar[lrid][LSR_pickup], 1, x, y, z, virtualworld);
    return 1;
}

stock ObterRadarPos(lrid, &Float:x, &Float:y, &Float:z)
{
    if(!LSR_Radar[lrid][LSR_OID])
    {
        x = 0.0;
        y = 0.0;
        z = 0.0;
    }
    x = LSR_Radar[lrid][LSR_X];
    y = LSR_Radar[lrid][LSR_Y];
    z = LSR_Radar[lrid][LSR_Z];
}

stock ObterRadarVirtualWorld(lrid)
{
    if(!LSR_Radar[lrid][LSR_OID]) return 0;
    return LSR_Radar[lrid][LSR_VW];
}

public CheckRadar()
{
    for(new i = 0; i < MAX_PLAYERS; i++)
    {
        if(GetPVarInt(i, "RadarAttached") == 1){RadarForPlayer(i, GetPVarInt(i, "RadarAttachedSpeed"), 999);}
        for(new b = 1; b <= LSR_Total; b++)
        {
            if(LSR_Radar[b][LSR_OID])
            {
                if(LSR_Radar[b][LSR_ativado] == 1)
                {
                    if(LSR_Radar[b][LSR_VW] == -1 || GetPlayerVirtualWorld(i) == LSR_Radar[b][LSR_VW])
                    {
                        if(IsPlayerInRangeOfPoint(i, LSR_Radar[b][LSR_radiacao], LSR_Radar[b][LSR_X], LSR_Radar[b][LSR_Y], LSR_Radar[b][LSR_Z]))
                        {
                            if(GetPlayerState(i) == PLAYER_STATE_DRIVER)
                            {
                                RadarForPlayer(i, LSR_Radar[b][LSR_speedmax], LSR_Radar[b][LSR_OID]);
                            }
                        }
                    }
                }
            }
        }
    }
}

stock LSR_ProcurarIDLivre()
{
    for(new b = 1; b < MAX_Radar; b++) if(!LSR_Radar[b][LSR_OID]) return b;
    return -1;
}

stock GetPlayerSpeed(playerid, bool:velo)
{
    new Float:Vx,Float:Vy,Float:Vz,Float:rtn;
    if(IsPlayerInAnyVehicle(playerid)) GetVehicleVelocity(GetPlayerVehicleID(playerid),Vx,Vy,Vz); else GetPlayerVelocity(playerid,Vx,Vy,Vz);
    rtn = floatsqroot(floatabs(floatpower(Vx + Vy + Vz,2)));
    return velo?floatround(rtn * 100 * 1.61):floatround(rtn * 100);
}

stock GetVehicleSpeed(vehicleid)
{
    new Float:X, Float:Y, Float:Z;
    GetVehicleVelocity(vehicleid, X, Y, Z);
    return floatround(floatsqroot(X * X + Y * Y + Z * Z) * 180);
}

stock token_by_delim(const string[], return_str[], delim, start_index)
{
    new x=0;
    while(string[start_index] != EOS && string[start_index] != delim) {
        return_str[x] = string[start_index];
        x++;
        start_index++;
    }
    return_str[x] = EOS;
    if(string[start_index] == EOS) start_index = (-1);
    return start_index;
}

stock LoadStaticRadarsFromFile(const filename[])
{
    new File:file_ptr;
    new line[256];
    new var_from_line[64];
    new Float:SpawnX;
    new Float:SpawnY;
    new Float:SpawnZ;
    new SpeedMax;
    new Radiation, Pickup;
    new Ativado, VirtualWorld;
    new index;
    new radars_loaded;

    file_ptr = fopen(filename,filemode:io_read);
    if(!file_ptr) return 0;

    radars_loaded = 0;

    while(fread(file_ptr,line,256) > 0)
    {
        index = 0;

        // Read X, Y, Z, Rotation
        index = token_by_delim(line,var_from_line,',',index);
        if(index == (-1)) continue;
        SpawnX = floatstr(var_from_line);

        index = token_by_delim(line,var_from_line,',',index+1);
        if(index == (-1)) continue;
        SpawnY = floatstr(var_from_line);

        index = token_by_delim(line,var_from_line,',',index+1);
        if(index == (-1)) continue;
        SpawnZ = floatstr(var_from_line);

        // Read Speed Max
        index = token_by_delim(line,var_from_line,',',index+1);
        if(index == (-1)) continue;
        SpeedMax = strval(var_from_line);

        // Read Radiation, Pickup
        index = token_by_delim(line,var_from_line,',',index+1);
        if(index == (-1)) continue;
        Radiation = strval(var_from_line);

        index = token_by_delim(line,var_from_line,',',index+1);
        if(index == (-1)) continue;
        Pickup = strval(var_from_line);

        //Read Ativado, VirtualWorld
        index = token_by_delim(line,var_from_line,',',index+1);
        if(index == (-1)) continue;
        Ativado = strval(var_from_line);

        index = token_by_delim(line,var_from_line,';',index+1);
        VirtualWorld = strval(var_from_line);

        CreateRadar(SpawnX, SpawnY, SpawnZ, SpeedMax, Radiation, Pickup, Ativado, VirtualWorld);
        radars_loaded++;
    }

    fclose(file_ptr);
    printf("[rLibrary:] %d Radares carregados do arquivo: %s",radars_loaded,filename);
    return radars_loaded;
}

stock AttachRadarToPlayer(playerid, velocidade)
{
    SetPVarInt(playerid, "RadarAttached", true);
    SetPVarInt(playerid, "RadarAttachedSpeed", velocidade);
    return 1;
}

stock DettachRadarToPlayer(playerid)
{
    DeletePVar(playerid, "RadarAttached");
    DeletePVar(playerid, "RadarAttachedSpeed");
    return 1;
}

stock IsPlayerRadarAttached(playerid)
{
    if(SetPVarInt(playerid, "RadarAttached") == true) return true;
    return false;
}

stock RadarForPlayer(playerid, speedlimit, radarid)
{
    new currentspeed = GetPlayerSpeed(playerid, true);
    if(currentspeed >= speedlimit)
    {
        if(UseFlash == true){TextDrawShowForPlayer(playerid, Flash); SetTimerEx("HideRadar", 1000, 0, "d", playerid);}
        PlayerPlaySound(playerid,1132,0.0,0.0,0.0);
        OnPlayerEnterRadar(playerid, currentspeed, radarid);
    }
    return 1;
}

public HideRadar(playerid)
{
    TextDrawHideForPlayer(playerid, Flash);
    return 1;
}

public UseFlashRadar()
{
    UseFlash = true;
    Flash = TextDrawCreate(635.000000, 432.000000, "__");
    TextDrawBackgroundColor(Flash, 255);
    TextDrawFont(Flash, 1);
    TextDrawLetterSize(Flash, 0.500000, -45.900001);
    TextDrawColor(Flash, -256);
    TextDrawSetOutline(Flash, 0);
    TextDrawSetProportional(Flash, 1);
    TextDrawSetShadow(Flash, 1);
    TextDrawUseBox(Flash, 1);
    TextDrawBoxColor(Flash, -86);
    TextDrawTextSize(Flash, 6.000000, 35.000000);
    return 1;
}