[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(playeridparams[])
{
    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(playeridNomeEsizeof(NomeE));
        
EnqueteInfo[eCriada] = true;
        
EnqueteInfo[eSim] = 0;
        
EnqueteInfo[eNao] = 0;
        
format(strEsizeof(strE), "O Administrador %s Criou Uma Enquete Perguntando %s"NomeEEnqueteInfo[eTitulo]);
        
SendClientMessageToAll(-1strE);
        
SendClientMessageToAll(-1"Vote: /sim_e ou /nгo_e");
    }
    return 
true;
}
CMD:fechar_e(playeridparams[])
{
    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(playeridNomeEsizeof(NomeE));
        
EnqueteInfo[eCriada] = false;
        
EnqueteInfo[eVotos] = EnqueteInfo[eSim] + EnqueteInfo[eNao];
        
format(strEsizeof(strE), "O Administrador %s, Acaba de Fechar Uma Enquete."NomeE);
        
SendClientMessageToAll(-1strE);
        
format(strNsizeof(strN), "O Titulo da Enquete era: %s"EnqueteInfo[eTitulo]);
        
SendClientMessageToAll(-1strN);
        
format(strQsizeof(strQ), "Votaзгo: Sim [%d], Nгo [%d], Quantidade Total de Votos [%d]"EnqueteInfo[eSim], EnqueteInfo[eNao], EnqueteInfo[eVotos]);
        for(new 
0GetMaxPlayers(); 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)