[FS] Excitation in SA-MP 'TROLL' By OTACON

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

                     FULLY spaces Theft Credit or
          Publication of this FILTERSCRIPT without my permission.

    SIMPLE FILTERSCRIPT --> Excitation in SA-MP 'TROLL'
    INFORMATION: is a command that active and deactivate a timer that checks players with skins of women and anger grow in size the object attached to the player that simulates the excitement of playing, when the opposite is true will decrease.
    CREDITOS: OTACON ;)
    NOTA: Menos Creditos para los que me los critican.. JO'PUTAS! :D xD ;)
*/
#include <a_samp>
#include <zcmd>
#include <a_StatePlayer>

#define FUNCTION:%0(%1) forward%0(%1); public%0(%1)
#define SLOT_ATTAC (1)
enum sex {
    PlayerExcited,
    bool:ExcitationEnabled,
    KillingExcitation,
};
new ExcitationPlayer[MAX_PLAYERS][sex];

FUNCTION: OnFilterScriptInit() {
    print("\n**************************************");
    print("       Excitation in SA-MP 'TROLL'      ");
    print("           Date: 27/07/2013             ");
    print("            Author: OTACON              ");
    print("     --* Loaded with Success!!. *--     ");
    print("***************************************\n");
    return true;
}
FUNCTION: OnFilterScriptExit() {
    print("\n**************************************");
    print("       Excitation in SA-MP 'TROLL'      ");
    print("           Date: 27/07/2013             ");
    print("            Author: OTACON              ");
    print("   --* Downloaded with Success!!. *--   ");
    print("***************************************\n");
    return true;
}
COMMAND:excitation(playerid, params[]) {
    if(!GetPlayerSex(playerid)) return SendClientMessage(playerid, -1, "  [ ! ] You are woman, You not excited in this way..!.");
    switch(ExcitationPlayer[playerid][ExcitationEnabled]) {
        case false: {
            ExcitationPlayer[playerid][ExcitationEnabled]=true;
            SendClientMessage(playerid, -1, "  [ ! ] You have activated the excitement of the player.!.");
            KillTimer(ExcitationPlayer[playerid][KillingExcitation]);
            ExcitationPlayer[playerid][KillingExcitation]=SetTimerEx("FunctionExcitation", 1000, true, "d", playerid);
        }
        case true: {
            ExcitationPlayer[playerid][ExcitationEnabled]=false;
            SendClientMessage(playerid, -1, "  [ ! ] You have disabled the excitement of the player.!.");
            KillTimer(ExcitationPlayer[playerid][KillingExcitation]);
            RemovePlayerAttachedObject(playerid,SLOT_ATTAC);
            ExcitationPlayer[playerid][PlayerExcited]=0;
        }
    } return true;
}
FUNCTION: FunctionExcitation(playerid) {
    RemovePlayerAttachedObject(playerid,SLOT_ATTAC);
    if(IsPlayerInRangeOfWoman(playerid, 5.0)) ExcitationPlayer[playerid][PlayerExcited]++;  if(ExcitationPlayer[playerid][PlayerExcited]>=5) ExcitationPlayer[playerid][PlayerExcited]=5;
    else ExcitationPlayer[playerid][PlayerExcited]--; if(ExcitationPlayer[playerid][PlayerExcited]<=0) ExcitationPlayer[playerid][PlayerExcited]=0;
    switch(ExcitationPlayer[playerid][PlayerExcited]) {
        case 0:SetPlayerAttachedObject(playerid,SLOT_ATTAC,322,1,-0.371000,0.139000,-0.014999,-92.800003,-2.600008,3.000001,1.000000,1.000000,1.000000);
        case 1:SetPlayerAttachedObject(playerid,SLOT_ATTAC,322,1,-0.371000,0.139000,-0.014999,-92.800003,-2.600008,3.000001,1.000000,1.000000,1.182000);
        case 2:SetPlayerAttachedObject(playerid,SLOT_ATTAC,322,1,-0.371000,0.139000,-0.014999,-92.800003,-2.600008,3.000001,1.000000,1.000000,1.331001);
        case 3:SetPlayerAttachedObject(playerid,SLOT_ATTAC,322,1,-0.371000,0.139000,-0.014999,-92.800003,-2.600008,3.000001,1.000000,1.000000,1.590001);
        case 4:SetPlayerAttachedObject(playerid,SLOT_ATTAC,322,1,-0.371000,0.139000,-0.014999,-92.800003,-2.600008,3.000001,1.000000,1.000000,1.806000);
        case 5:SetPlayerAttachedObject(playerid,SLOT_ATTAC,322,1,-0.371000,0.139000,-0.014999,-92.800003,-2.600008,3.000001,1.000000,1.000000,2.192001);
    }
}
stock IsPlayerInRangeOfWoman(playerid, Float:distance) {
    new Float:posuser[4], Float:playeruser[3];
    for(new user=0; user<GetMaxPlayers(); user++) {
        if(!IsPlayerConnected(user)) continue;
        if(GetPlayerSex(user)) continue;
        GetPlayerPos(playerid, playeruser[0], playeruser[1], playeruser[2]);
        GetObjectPos(user, posuser[0],posuser[1],posuser[2]);
        posuser[3] = floatsqroot(floatpower(floatabs(floatsub(playeruser[0],posuser[0])),2)+ floatpower(floatabs(floatsub(playeruser[1],posuser[1])),2)+ floatpower(floatabs(floatsub(playeruser[2],posuser[2])),2));
        if(posuser[3] < distance) return true;
    } return false;
}
/*
             Prohibido TOTALMENTE el Robo de Créditos o la
             Publicación de este FILTERSCRIPT sin Mi Permiso.

                     FULLY spaces Theft Credit or
          Publication of this FILTERSCRIPT without my permission.

    SIMPLE FILTERSCRIPT --> Excitation in SA-MP 'TROLL'
    INFORMATION: is a command that active and deactivate a timer that checks players with skins of women and anger grow in size the object attached to the player that simulates the excitement of playing, when the opposite is true will decrease.
    CREDITOS: OTACON ;)
    NOTA: Menos Creditos para los que me los critican.. JO'PUTAS! :D xD ;)
*/