[FS] Camera with Flash in SA-MP 'Object & Textdraw' ByOTACON

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

    SIMPLE FILTERSCRIPT --> Camera with Flash in SA-MP 'Object & Textdraw'
    CREDITOS: OTACON ;)
    NOTA: Menos Creditos para los que me los critican.. JO'PUTAS! :D xD ;)
*/
#include <a_samp>
#include <zcmd>

#define pressed(%0) (((newkeys & (%0)) == (%0)) && ((oldkeys & (%0)) != (%0)))
#define released(%0) (((newkeys & (%0)) != (%0)) && ((oldkeys & (%0)) == (%0)))
#define FUNCTION:%0(%1) forward%0(%1); public%0(%1)

#define DISTANCIA_EFECTO 8.0
#define COLOR_EFECTO 0xFFFFFF55
#define OBJETO_CAMARA (18670)
new EfectoCamera[MAX_PLAYERS];
new Text:CamaraTD[MAX_PLAYERS];
new MatarCameraTD[MAX_PLAYERS];

FUNCTION: OnFilterScriptInit() {
    print("\n**************************************");
    print("       Camera with Flash in SA-MP       ");
    print("          'Object & Textdraw'           ");
    print("           Date: 31/07/2013             ");
    print("            Author: OTACON              ");
    print("     --* Loaded with Success!!. *--     ");
    print("***************************************\n");
    SendRconCommand("hostname Camera with Flash in SA-MP 'Object & Textdraw'");
    SendRconCommand("gamemodetext By OTACON");
    return true;
}
FUNCTION: OnFilterScriptExit() {
    print("\n**************************************");
    print("       Camera with Flash in SA-MP       ");
    print("          'Object & Textdraw'           ");
    print("           Date: 31/07/2013             ");
    print("            Author: OTACON              ");
    print("   --* Downloaded with Success!!. *--   ");
    print("***************************************\n");
    SendRconCommand("hostname Camera with Flash in SA-MP 'Object & Textdraw'");
    SendRconCommand("gamemodetext By OTACON");
    return true;
}
FUNCTION: OnPlayerConnect(playerid) {
    CamaraTD[playerid] = TextDrawCreate(-200.000000, -8.000000, "_");
    TextDrawBackgroundColor(CamaraTD[playerid], 255);
    TextDrawFont(CamaraTD[playerid], 1);
    TextDrawLetterSize(CamaraTD[playerid], 0.500000, 64.000000);
    TextDrawColor(CamaraTD[playerid], -1);
    TextDrawSetOutline(CamaraTD[playerid], 0);
    TextDrawSetProportional(CamaraTD[playerid], 1);
    TextDrawSetShadow(CamaraTD[playerid], 1);
    TextDrawUseBox(CamaraTD[playerid], 1);
    TextDrawBoxColor(CamaraTD[playerid], COLOR_EFECTO);
    TextDrawTextSize(CamaraTD[playerid], 800.000000, 212.000000);
    return true;
}
FUNCTION: OnPlayerDisconnect(playerid, reason) {
    TextDrawHideForPlayer(playerid, CamaraTD[playerid]);
    TextDrawDestroy(CamaraTD[playerid]);
    KillTimer(MatarCameraTD[playerid]);
    return true;
}
FUNCTION: OnPlayerDeath(playerid, killerid, reason) {
    TextDrawHideForPlayer(playerid, CamaraTD[playerid]);
    KillTimer(MatarCameraTD[playerid]);
    return true;
}
FUNCTION: OnPlayerKeyStateChange(playerid, newkeys, oldkeys) {
    if(pressed(KEY_FIRE) && GetPlayerWeapon(playerid)==WEAPON_CAMERA && GetPlayerCameraMode(playerid)== 46) { //Camera
        if(!IsPlayerConnected(playerid) || GetPlayerState(playerid)!=PLAYER_STATE_ONFOOT) return true;
        new Float:pos[6], Float:postemp[2];
        GetPlayerPos(playerid, pos[0], pos[1], pos[2]);
        GetPlayerFacingAngle(playerid, pos[3]);
        postemp[0]=pos[0]+(1.0*floatsin(-pos[3], degrees));
        postemp[1]=pos[1]+(1.0*floatcos(-pos[3], degrees));
        DestroyObject(EfectoCamera[playerid]);
        EfectoCamera[playerid]=CreateObject(OBJETO_CAMARA, postemp[0], postemp[1], pos[2]-1, 0.00, 0.00, 0.00);
        TextDrawShowForPlayer(playerid, CamaraTD[playerid]);
        AttachCameraToObject(playerid, EfectoCamera[playerid]);
        KillTimer(MatarCameraTD[playerid]);
        MatarCameraTD[playerid]=SetTimerEx("DataEfectoCamara", 300, false, "d", playerid);
    } return true;
}
FUNCTION: DataEfectoCamara(playerid) {
    new Float:Pos[3];
    GetPlayerPos(playerid, Pos[0], Pos[1], Pos[2]);
    if(IsPlayerConnected(playerid)) {
        TextDrawHideForPlayer(playerid, CamaraTD[playerid]);
        DestroyObject(EfectoCamera[playerid]);
        SetCameraBehindPlayer(playerid);
        KillTimer(MatarCameraTD[playerid]);
        for(new player=0; player<GetMaxPlayers(); player++) {
            if(!IsPlayerConnected(player)) continue;
            if(GetPlayerInterior(playerid) == GetPlayerInterior(player) && GetPlayerVirtualWorld(playerid) == GetPlayerVirtualWorld(player)) {
                if(IsPlayerConnected(player) && (player != playerid) && IsPlayerStreamedIn(playerid,player)) {
                    if(IsPlayerInRangeOfPoint(player, DISTANCIA_EFECTO, Pos[0], Pos[1], Pos[2])) {
                        TextDrawHideForPlayer(player, CamaraTD[player]);
                    }
                }
            }
        }
    }
}
COMMAND:camera(playerid, params[]) {
    GivePlayerWeapon(playerid, WEAPON_CAMERA, 1000);
    return true;
}
/*
         Prohibido TOTALMENTE el Robo de Créditos o la
        Publicación de este FILTERSCRIPT sin Mi Permiso.

    SIMPLE FILTERSCRIPT --> Camera with Flash in SA-MP 'Object & Textdraw'
    CREDITOS: OTACON ;)
    NOTA: Menos Creditos para los que me los critican.. JO'PUTAS! :D xD ;)
*/