[INC] Horcas Antiguas en SA-MP 'Objeto' By OTACON

/*
             Prohibido TOTALMENTE el Robo de Créditos o la
              Publicación de este INCLUDE sin Mi Permiso.

    SIMPLE INCLUDE --> Horcas Antiguas en SA-MP 'Objeto'
    CREDITOS: OTACON ;)
    NOTA: Menos Creditos para los que me los critican.. JO'PUTAS! :D xD ;)

    native CreateObjectHorca(&slots, &Float:x, &Float:y, &Float:z, &Float:a); //para crear el objeto de la horca.
    native DestroyObjectHorca(&slots); //para destruir el objeto de la horca.
    native IsPlayerInRangeOfHorca(playerid, &Float:distance); //para verificar si  el player correspondiente esta cerca del objeto de la horca.
*/

// ========== [ -|- FUNCION -|- ] ==========
#define MAX_SLOTS (50)
enum horca { ObjetosHorca[5], };
new HorcamientoFun[MAX_SLOTS][horca];
stock DestroyObjectHorca(slots) {
    DestroyObject(HorcamientoFun[slots][ObjetosHorca][0]);
    DestroyObject(HorcamientoFun[slots][ObjetosHorca][1]);
    DestroyObject(HorcamientoFun[slots][ObjetosHorca][2]);
    DestroyObject(HorcamientoFun[slots][ObjetosHorca][3]);
    DestroyObject(HorcamientoFun[slots][ObjetosHorca][4]);
}
stock CreateObjectHorca(slots, Float:x, Float:y, Float:z, Float:a) {
    HorcamientoFun[slots][ObjetosHorca][0]=CreateObject(18764, x, y, z-2.5, 0.000, 0.000, a);
    HorcamientoFun[slots][ObjetosHorca][1]=CreateObject(18762, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000);
    HorcamientoFun[slots][ObjetosHorca][2]=CreateObject(18762, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000);
    HorcamientoFun[slots][ObjetosHorca][3]=CreateObject(18762, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000);
    HorcamientoFun[slots][ObjetosHorca][4]=CreateObject(19088, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000);
    AttachObjectToObject(HorcamientoFun[slots][ObjetosHorca][1], HorcamientoFun[slots][ObjetosHorca][0], 0, -2, 10, 90, 0, 0, 1);
    AttachObjectToObject(HorcamientoFun[slots][ObjetosHorca][2], HorcamientoFun[slots][ObjetosHorca][0], 0, -2.7, 8, 0, 0, 0, 1);
    AttachObjectToObject(HorcamientoFun[slots][ObjetosHorca][3], HorcamientoFun[slots][ObjetosHorca][0], 0, -2.7, 4, 0, 0, 0, 1);
    AttachObjectToObject(HorcamientoFun[slots][ObjetosHorca][4], HorcamientoFun[slots][ObjetosHorca][0], 0, 0, 9, 0, 0, 0, 1);
    SetObjectMaterial(HorcamientoFun[slots][ObjetosHorca][0], 0, 19356, "all_walls", "CJ_LIGHTWOOD", 0);
    SetObjectMaterial(HorcamientoFun[slots][ObjetosHorca][1], 0, 19356, "all_walls", "CJ_LIGHTWOOD", 0);
    SetObjectMaterial(HorcamientoFun[slots][ObjetosHorca][2], 0, 19356, "all_walls", "CJ_LIGHTWOOD", 0);
    SetObjectMaterial(HorcamientoFun[slots][ObjetosHorca][3], 0, 19356, "all_walls", "CJ_LIGHTWOOD", 0);
}
stock IsPlayerInRangeOfHorca(playerid, Float:distance) {
    new Float:poshorca[4], Float:playerhorca[3];
    for(new slots=0; slots<MAX_SLOTS; slots++) {
        if(!IsValidObject(HorcamientoFun[slots][ObjetosHorca][0])) continue;
        GetPlayerPos(playerid, playerhorca[0], playerhorca[1], playerhorca[2]);
        GetObjectPos(HorcamientoFun[slots][ObjetosHorca][0],poshorca[0],poshorca[1],poshorca[2]);
        poshorca[3] = floatsqroot(floatpower(floatabs(floatsub(playerhorca[0],poshorca[0])),2)+ floatpower(floatabs(floatsub(playerhorca[1],poshorca[1])),2)+ floatpower(floatabs(floatsub(playerhorca[2],poshorca[2])),2));
        if(poshorca[3] < distance) return true;
    } return false;
}
// ========== [ -|- FUNCION -|- ] ==========

/*
    #include <a_samp>
    #include <zcmd>
    #include <a_Horca>

    public OnFilterScriptInit() {
        print("\n**************************************");
        print("     Horcas Antiguas en SA-MP 'Objeto'  ");
        print("           Fecha: 14/07/2013            ");
        print("             Autor: OTACON              ");
        print("      --* Cargado con Exito!!. *--      ");
        print("***************************************\n");

        CreateObjectHorca(0, -1248.1201,-357.7491,14.1484,314.3095); //SLOT 1
        CreateObjectHorca(1, -1243.1990,-362.6151,14.1484,310.8629); //SLOT 2
        CreateObjectHorca(2, -1237.1652,-368.5380,14.1484,318.5919); //SLOT 3
        return true;
    }
    public OnFilterScriptExit() {
        print("\n**************************************");
        print("     Horcas Antiguas en SA-MP 'Objeto'  ");
        print("           Fecha: 14/07/2013            ");
        print("             Autor: OTACON              ");
        print("     --* Descargado con Exito!!. *--    ");
        print("***************************************\n");

        DestroyObjectHorca(0); //SLOT 1
        DestroyObjectHorca(1); //SLOT 2
        DestroyObjectHorca(2); //SLOT 3
        return true;
    }
    COMMAND:test(playerid, params[]) {
        if(!IsPlayerConnected(playerid)) return true;
        if(IsPlayerInRangeOfHorca(playerid, 3.0)) SendClientMessage(playerid, -1, "    [ ! ] Usted se Encuentra cerca de una horca!.");
        else SendClientMessage(playerid, -1, "    [ ! ] Usted No se Encuentra cerca de una horca!.");
        return true;
    }
*/
/*
             Prohibido TOTALMENTE el Robo de Créditos o la
              Publicación de este INCLUDE sin Mi Permiso.

    SIMPLE INCLUDE --> Horcas Antiguas en SA-MP 'Objeto'
    CREDITOS: OTACON ;)
    NOTA: Menos Creditos para los que me los critican.. JO'PUTAS! :D xD ;)
*/