[FilterScript] Sistema de Enquete
#1

#@# Sistema de Enquetes #@#

- Comandos do Sistema -
PHP код:
- /Criar_e - Cria a Enquete.
- /
Fechar_e - Fecha a Enquete.
- /
Sim_e - Vota Sim na Enquete.
- /
Nao_e - Vota Nгo na Enquete. 
#@# Creditos #@#
- Dan

#@# Agradecimento #@#
- [FusioN]JoaoPedro_. - Algumas Ajudas.

PHP код:
#include <a_samp>
#include <zcmd>
#include <sscanf>
enum E_Info
{
    
bool:eCriada,
    
eTitulo,
    
eSim,
    
eNao,
    
eVotos
};
new 
EnqueteInfo[E_Info];
new 
bool:Votou[MAX_PLAYERS];
public 
OnFilterScriptInit() return 1;
public 
OnFilterScriptExit() return 1;
public 
OnPlayerConnect(playerid) { Votou[playerid] = false; return 1; }
CMD:criar_e(playerid, params[])
{
    if(
EnqueteInfo[eCriada] == true) return SendClientMessage(playerid, -1, "ERRO: Jб Existe Uma Enquete Aberta no Momento!");
    if(
sscanf(params, "s[60]", EnqueteInfo[eTitulo])) return SendClientMessage(playerid, -1, "Uso: /criar_e [Pergunta]");
    {
        new 
strE[118], NomeE[MAX_PLAYER_NAME];
        
GetPlayerName(playerid, NomeE, sizeof(NomeE));
        
EnqueteInfo[eCriada] = true;
        
EnqueteInfo[eSim] = 0;
        
EnqueteInfo[eNao] = 0;
        
format(strE, sizeof(strE), "O Administrador %s Criou Uma Enquete Perguntando %s", NomeE, EnqueteInfo[eTitulo]);
        
SendClientMessageToAll(-1, strE);
        
SendClientMessageToAll(-1, "Vote: /sim_e ou /nгo_e");
    }
    return 
true;
}
CMD:fechar_e(playerid, params[])
{
    if(
EnqueteInfo[eCriada] == false) return SendClientMessage(playerid, -1, "ERRO: Nгo Existe Uma Enquete Aberta no Momento!");
    {
        new 
strE[70], strN[80], strQ[65], NomeE[MAX_PLAYER_NAME];
        
GetPlayerName(playerid, NomeE, sizeof(NomeE));
        
EnqueteInfo[eCriada] = false;
        
EnqueteInfo[eVotos] = EnqueteInfo[eSim] + EnqueteInfo[eNao];
        
format(strE, sizeof(strE), "O Administrador %s, Acaba de Fechar Uma Enquete.", NomeE);
        
SendClientMessageToAll(-1, strE);
        
format(strN, sizeof(strN), "O Titulo da Enquete era: %s", EnqueteInfo[eTitulo]);
        
SendClientMessageToAll(-1, strN);
        
format(strQ, sizeof(strQ), "Votaзгo: Sim [%d], Nгo [%d], Quantidade Total de Votos [%d]", EnqueteInfo[eSim], EnqueteInfo[eNao], EnqueteInfo[eVotos]);
        for(new 
E = 0; E < GetMaxPlayers(); E++)
        {
            
Votou[E] = false;
            break;
        }
    }
    return 
true;
}
CMD:sim_e(playerid)
{
    if(
Votou[playerid] == true) return SendClientMessage(playerid, -1, "ERRO: Vocк ja votou!");
    if(
EnqueteInfo[eCriada] == false) return SendClientMessage(playerid, -1, "ERRO: Nгo Existe Nenhuma Enquete  Aberta no Momento!");    
    {
        
EnqueteInfo[eSim] += 1;
        
Votou[playerid] = true;
        
SendClientMessage(playerid, -1, "Voto Computado Com Sucesso");
    }
    return 
true;
}
CMD:nao_e(playerid)
{
    if(
Votou[playerid] == true) return SendClientMessage(playerid, -1, "ERRO: Vocк ja votou!");
    if(
EnqueteInfo[eCriada] == false) return SendClientMessage(playerid, -1, "ERRO: Nгo Existe Nenhuma Enquete Aberta no Momento!");
    {
        
EnqueteInfo[eNao] += 1;
        
Votou[playerid] = true;
        
SendClientMessage(playerid, -1, "Voto Computado Com Sucesso");
    }
    return 
true;
} 
Reply


Messages In This Thread
Sistema de Enquete - by DanDRT - 07.02.2013, 18:00
Re: Sistema de Enquete - by Sky™ - 07.02.2013, 18:22
Re: Sistema de Enquete - by DanDRT - 07.02.2013, 18:29
Re: Sistema de Enquete - by Kuddy - 07.02.2013, 21:04
Re: Sistema de Enquete - by DanDRT - 07.02.2013, 21:07
Re: Sistema de Enquete - by Sky™ - 07.02.2013, 23:57
Re: Sistema de Enquete - by LuxuN - 08.02.2013, 00:00
Re: Sistema de Enquete - by MegalodoN - 08.02.2013, 00:01
Re: Sistema de Enquete - by @Riichard - 08.02.2013, 00:53
Re: Sistema de Enquete - by zSuYaNw - 08.02.2013, 02:22

Forum Jump:


Users browsing this thread: 1 Guest(s)