[FS] Sistema de Reputacion BASE By OTACON

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

        SIMPLE FILTERSCRIPT --> Sistema de Reputacion BASE
        CREDITOS: OTACON ;)
        NOTA: Menos Creditos para los que me los critican.. JO'PUTAS! :D xD ;)
*/
// ========== [ -|- FUNCION -|- ] ==========
#include <a_samp>
#include <zcmd>
#include <sscanf2>
#include <SetTimerCMD>

#define ID_REPUTACION (3)
#define B "{FFFFFF}"
#define A "{FFFF00}"
#define R "{FF0000}"
#define V "{4D944D}"

COMMAND:reputacion(playerid, params[]) {
    switch(GetPVarInt(playerid,"ReputacionACTIVAR")) {
        case 1: SetPVarInt(playerid,"ReputacionACTIVAR",0),SendClientMessage(playerid,-1, "  "B"[ ! ] Haz Activado el Sistema de Reputacion!.");
        case 0: SetPVarInt(playerid,"ReputacionACTIVAR",1),SendClientMessage(playerid,-1, "  "B"[ ! ] Haz Desactivado el Sistema de Reputacion!.");
    } return true;
}
public OnPlayerClickPlayer(playerid, clickedplayerid, source) {
    new str[400], nombre[MAX_PLAYER_NAME+1], coment[200], barra[200];
    GetPlayerName(clickedplayerid,nombre,sizeof(nombre));
    GetPVarString(clickedplayerid,"ReputacionComentario",coment,200);
    switch(GetPVarInt(playerid,"ReputacionACTIVAR")) {
        case 1: {
            if(GetPVarInt(clickedplayerid,"Reputacion")<=0) barra = ""R"||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")<1) barra = ""A"||||||||||"R"||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")<2) barra = ""A"||||||||||||||||||||"R"||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")<3) barra = ""A"||||||||||||||||||||||||||||||"R"||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")<4) barra = ""A"|||||||||||||||||||||||||||||||||||||||||"R"|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")<5) barra = ""A"|||||||||||||||||||||||||||||||||||||||||||||||||||"R"|||||||||||||||||||||||||||||||||||||||||||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")<6) barra = ""A"|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||"R"|||||||||||||||||||||||||||||||||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")<7) barra = ""A"|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||"R"|||||||||||||||||||||||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")<8) barra = ""A"|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||"R"|||||||||||||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")<9) barra = ""A"|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||"R"|||||||||";
            else if(GetPVarInt(clickedplayerid,"Reputacion")>=10) barra = ""A"||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||";
            format(str,sizeof(str),""B" Visualizar La Reputacion de: "A"%s \n\t\t\t\t\t"B"Puntos: "A"%02d \n\n "R"- Ultima Reputacion: \n\n "B"TIPO\t\tHORA\t\tFECHA\t\tCOMENTARIO \n "A"%s \n\n "R"- Nivel de Reputacion: \n\n %s",nombre, GetPVarInt(clickedplayerid,"Reputacion"), coment, barra);
            ShowPlayerDialog(playerid,ID_REPUTACION+2, DIALOG_STYLE_MSGBOX, ""A">> Sistema de Reputacion", str, "Cerrar", "");
        }
        case 0: {
            if(clickedplayerid==playerid) return SendClientMessage(playerid,-1, "  "B"[ ! ] No puedes Darte Reputacion a ti mismo!.");
            if(GetTimerCMD(playerid,0)) {
              format(str, sizeof(str), "  "B"[ ! ] Debes Esperar "A"%d "B"Segundos Para Volver a Dar Reputacion!.", GetSegTimetCMD(playerid,0));
              return SendClientMessage(playerid, -1, str);
            }
            SetPVarInt(playerid,"ReputacionID",clickedplayerid);
            format(str,sizeof(str),""B"Elige el Tipo de Reputacion que Deseas Darle a "A"%s",nombre);
            ShowPlayerDialog(playerid,ID_REPUTACION+1, DIALOG_STYLE_MSGBOX, ""A">> Sistema de Reputacion", str, "Positiva", "Negativa");
        }
    }
    return true;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[]) {
    new str[500], nombre[MAX_PLAYER_NAME+1], text[20];
    switch(dialogid) {
        case ID_REPUTACION+0: {
            if(response) {
                if(sscanf(inputtext, "s[20]", inputtext[0])) return ShowPlayerDialog(playerid,ID_REPUTACION+0, DIALOG_STYLE_INPUT, ""A">> Sistema de Reputacion", ""B"Introduzca entre 1 y 20 caracteres: \n"R"No haz Escrito Nada aun", "Reputacion", "Cancelar");
                if(strlen(inputtext[0])<1 || strlen(inputtext[0])>20) return ShowPlayerDialog(playerid,ID_REPUTACION+0, DIALOG_STYLE_INPUT, ""A">> Sistema de Reputacion", ""B"Introduzca entre 1 y 20 caracteres: \n"R"no ir por debajo de 1 o por encima de 20", "Reputacion", "Cancelar");
                if(GetPVarInt(playerid,"ReputacionTIPO")==1) SetPVarString(GetPVarInt(playerid,"ReputacionID"),"ReputacionCLASE","Positiva"), SetPVarInt(GetPVarInt(playerid,"ReputacionID"),"Reputacion",GetPVarInt(GetPVarInt(playerid,"ReputacionID"),"Reputacion")+1);
                else if(GetPVarInt(playerid,"ReputacionTIPO")==2) SetPVarString(GetPVarInt(playerid,"ReputacionID"),"ReputacionCLASE","Negativa"), SetPVarInt(GetPVarInt(playerid,"ReputacionID"),"Reputacion",GetPVarInt(GetPVarInt(playerid,"ReputacionID"),"Reputacion")-1);
                if(GetPVarInt(GetPVarInt(playerid,"ReputacionID"),"Reputacion")>10) SetPlayerScore(GetPVarInt(playerid,"ReputacionID"),GetPlayerScore(GetPVarInt(playerid,"ReputacionID"))+1);
                else if(GetPVarInt(GetPVarInt(playerid,"ReputacionID"),"Reputacion")<0) SetPlayerScore(GetPVarInt(playerid,"ReputacionID"),GetPlayerScore(GetPVarInt(playerid,"ReputacionID"))-1);
                GetPlayerName(GetPVarInt(playerid,"ReputacionID"),nombre,sizeof(nombre));
                GetPVarString(GetPVarInt(playerid,"ReputacionID"),"ReputacionCLASE",text,20);
                format(str,sizeof(str),"  "B"[ ! ] Le Haz Dado Reputacion "A"%s "B"a "A"%s "B"|| Comentario: "A"%s.",text,nombre,inputtext[0]);
                SendClientMessage(playerid,-1, str);
                new Hour,Minute,Second;
                new Year,Month,Day;
                gettime(Hour,Minute,Second);
                getdate(Year,Month,Day);
                DeletePVar(GetPVarInt(playerid,"ReputacionID"),"ReputacionComentario");
                format(str,sizeof(str),"%s \t%02d:%02d:%02d \t%02d/%02d/%02d \t%s",text,Hour,Minute,Second,Year,Month,Day,inputtext[0]);
                SetPVarString(GetPVarInt(playerid,"ReputacionID"),"ReputacionComentario",str);
                DeletePVar(GetPVarInt(playerid,"ReputacionID"),"ReputacionTIPO");
                DeletePVar(GetPVarInt(playerid,"ReputacionID"),"ReputacionID");
                DeletePVar(GetPVarInt(playerid,"ReputacionID"),"ReputacionCLASE");
                SetTimerCMD(playerid,0,60);
            }
        }
        case ID_REPUTACION+1: {
            if(response) {
                SetPVarInt(playerid,"ReputacionTIPO",1);
                ShowPlayerDialog(playerid,ID_REPUTACION+0, DIALOG_STYLE_INPUT, ""A">> Sistema de Reputacion", ""B"Introduzca entre 1 y 20 caracteres:", "Reputacion", "Cancelar");
            }
            else if(!response) {
                SetPVarInt(playerid,"ReputacionTIPO",2);
                ShowPlayerDialog(playerid,ID_REPUTACION+0, DIALOG_STYLE_INPUT, ""A">> Sistema de Reputacion", ""B"Introduzca entre 1 y 20 caracteres:", "Reputacion", "Cancelar");
            }
        }
    }
    return false;
}
// ========== [ -|- FUNCION -|- ] ==========
/*
             Prohibido TOTALMENTE el Robo de Créditos o la
            Publicación de este FILTERSCRIPT sin Mi Permiso.

        SIMPLE FILTERSCRIPT --> Sistema de Reputacion BASE
        CREDITOS: OTACON ;)
        NOTA: Menos Creditos para los que me los critican.. JO'PUTAS! :D xD ;)
*/