Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /*
- | kEnquetes Powered bY Koman 001 *Kuddy* - KomanZ Team
- | Coded by Kuddy M4kc0
- | Acesse www.KuddyProject.blogspot.com
- | Acesse: www.Youtube.com/KuddyTV
- | Visite nosso servidor Brasil Life Simulation RPG
- | www.BrasilLifeSimulation.com.br
- |
- |
- */
- #define FILTERSCRIPT
- #include <a_samp>
- #include <zcmd>
- #include <sscanf>
- #define DIALOG_RESULTADOS 1812
- #define DIALOG_CRIAR 1813
- #define DIALOG_ADD_PERGUNTA 1814
- #define DIALOG_EDIT_PERGUNTA 1815
- #define DIALOG_EDIT_TITULO 1816
- #define DIALOG_VOTE 1817
- #define VERMELEO 0xFF0000AA // Cor para analfabetos hexadecimais ._.'
- #define INVALID_N -1
- #define isnull(%1) ((!(%1[0])) || (((%1[0]) == '\1') && (!(%1[1]))))
- new bg@pvot[MAX_PLAYERS], ig@sel[MAX_PLAYERS],gs@s1A[546],gs@titulo[48],
- gs@dat[10][48],gi@_1,gi@_2 = 2,gi@p_vO[MAX_PLAYERS],bool:gb@p_vO[MAX_PLAYERS],bool:gb@op;
- public OnFilterScriptInit()
- {
- print("\n\n Sistema de enquetes feito por Kuddy M4kc0 - Koman 001\n\n www.KuddyProject.blogspot.com\n\n");
- format(gs@dat[0], 48, "Pergunta");
- format(gs@dat[1], 48, "Resposta 1");
- format(gs@dat[2], 48, "Resposta 2");
- for(new i; i != sizeof(gi@p_vO); i++)gi@p_vO[i] = INVALID_N;
- return 1;
- }
- public OnFilterScriptExit()
- {
- return 1;
- }
- public OnPlayerConnect(playerid)
- {
- bg@pvot[playerid] = false;
- ig@sel[playerid] = INVALID_N;
- return 1;
- }
- public OnPlayerDisconnect(playerid, reason)
- {
- bg@pvot[playerid] = false;
- ig@sel[playerid] = INVALID_N;
- return 1;
- }
- public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
- {
- switch(dialogid)
- {
- case DIALOG_CRIAR:
- {
- if(!response) return 1;
- //bg@is_cr=true;
- if(listitem == 0)
- {
- ShowPlayerDialog(playerid, DIALOG_EDIT_PERGUNTA, DIALOG_STYLE_INPUT, "Enquete - Editar Pergunta", "Digite a nova pergunta: ", "Ok!", "Voltar");
- return 1;
- }
- else if(listitem == 1)
- {
- if(gi@_2==9) return SendClientMessage(playerid, VERMELEO, "Erro:{FFFFFF} Já foram criadas 9 respostas."), formatenq1(playerid), 0x1;
- ShowPlayerDialog(playerid, DIALOG_ADD_PERGUNTA, DIALOG_STYLE_INPUT, "Enquete - Selecionar Pergunta", "Digite a nova opção de resposta:", "Ok!", "Voltar");
- }
- else if(listitem > 1)
- {
- new lb_=listitem-2;
- if(lb_>10 || lb_<0) return formatenq1(playerid);
- new ls@1[100];//52a48
- format(ls@1, 81, "Digite a nova opção de resposta para a pergunta:\n%s", gs@dat[lb_]);
- gi@_1=lb_;
- ShowPlayerDialog(playerid, DIALOG_EDIT_PERGUNTA, DIALOG_STYLE_INPUT, "Enquete - EDITAR Pergunta", ls@1, "Ok!", "Voltar");
- return 1;
- }
- }
- case DIALOG_EDIT_TITULO:
- {
- if(!response) return 1;
- format(gs@titulo,48, inputtext);
- formatenq1(playerid);
- return 1;
- }
- case DIALOG_EDIT_PERGUNTA:
- {
- if(!response) return formatenq1(playerid);
- format(gs@dat[gi@_1], 48, inputtext);
- formatenq1(playerid);
- return 1;
- }
- case DIALOG_ADD_PERGUNTA:
- {
- if(!response) return 1;
- gi@_2+=1;
- format(gs@dat[gi@_2], 48, "%s",inputtext);
- formatenq1(playerid);
- return 1;
- }
- case DIALOG_VOTE:
- {
- if(!response) return 1;
- if(gb@p_vO[playerid]) return 1;
- gi@p_vO[playerid] = listitem + 1;
- gb@p_vO[playerid] = true;
- new l@_1[128];
- format(l@_1, 128, "Aviso:{FFFFFF} Você votou em: %s.", gs@dat[gi@p_vO[playerid]]);
- SendClientMessage(playerid, VERMELEO, l@_1);
- return 1;
- }
- }
- return 1;
- }
- CMD:criarenquete(playerid)
- {
- if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, 0xFF0000AA, "Erro:{FFFFFF} Você não é um administrador RCON."), 0x1;
- //if(!bg@is_cr)return ShowPlayerDialog(playerid, DIALOG_CRIAR, DIALOG_STYLE_LIST, "Enquetes - Criar", "Criar enquete\nVer resultados da última enquete", "Selecionar", "Cancelar");
- formatenq1(playerid);
- //bg@is_cr=true;
- return 1;
- }
- CMD:abrirenquete(playerid)
- {
- SetTimer("lkout",120,0);
- gb@op=true;
- SendClientMessageToAll(VERMELEO, "Aviso: {FFFFFF}Foi aberta uma nova enquete, /votar para votar!");
- }
- CMD:votar(playerid)
- {
- if(!gb@op) return SendClientMessage(playerid, VERMELEO, "Erro:{FFFFFF} A enquete não está aberta."), 0x1;
- formatenq2(playerid);
- return 1;
- }
- CMD:encerrarenquete(playerid)
- {
- if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, VERMELEO, "Erro:{FFFFFF} Você não é um administrador RCON."), 0x1;
- endenq(playerid);
- gb@op=false;
- for(new i; i != MAX_PLAYERS; i++)
- {
- gi@p_vO[i] = INVALID_N;
- gb@p_vO[i] = false;
- }
- return 1;
- }
- formatenq1(ii)
- {
- new l@s1A[546],l@s2A[510];//1..65a10m48\/¬48a10m2
- for(new x; x != 10;x++)
- {
- if(isnull(gs@dat[x])) break;
- format(l@s2A, 500, "%s\n> %s", l@s2A, gs@dat[x]);
- //printf(l@s2A);
- }
- format(l@s1A, 546, "Setar título da enquete\nAdcionar nova opção\n%s",l@s2A);
- format(gs@s1A, 546, l@s2A);
- ShowPlayerDialog(ii, DIALOG_CRIAR, DIALOG_STYLE_LIST, "Enquetes - Criando", l@s1A, "Selecionar", "Cancelar");
- return 1;
- }
- // kekka
- formatenq2(ii)
- {
- new l@s2A[510];//¬48a10m2
- for(new x=1; x != 10;x++)
- {
- if(isnull(gs@dat[x])) break;
- format(l@s2A, 500, "%s\n> %s", l@s2A, gs@dat[x]);
- //printf(l@s2A);
- }
- ShowPlayerDialog(ii, DIALOG_VOTE, DIALOG_STYLE_LIST, gs@dat[0], l@s2A, "Votar", "Cancelar");
- return 1;
- }
- endenq(ii)
- {
- new l@s2A[600], li@win, l@s1A[58], li@_o[10];
- for(new i; i != MAX_PLAYERS; i ++)
- if(gb@p_vO[i])
- li@_o[gi@p_vO[i]] ++;
- for(new x=1; x != 10;x++)
- {
- if(isnull(gs@dat[x])) break;
- format(l@s2A, 500, "%s\n> %s | Votos: %d", l@s2A, gs@dat[x],li@_o[x]);
- if(li@_o[x-1] < li@_o[x]) li@win = x;
- }
- format(l@s2A, 600, "{FFFFFF}A opnião pública é:\n{FF0000}%s | %d votos{FFFFFF}\n\n%s", gs@dat[li@win], li@_o[li@win], l@s2A);
- format(l@s1A, 100, "Enquete: %s", gs@dat[0]);
- for(new i;i!=MAX_PLAYERS;i++)ShowPlayerDialog(ii, DIALOG_RESULTADOS, DIALOG_STYLE_MSGBOX, gs@dat[0], l@s2A, "Fechar", "");
- return 1;
- }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement