API tools faq
paste
Guest User

Survey system created by Or_Yagoda HighDefiniton אור יגודה

a guest
Jan 2nd, 2011
298
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 10.17 KB | None | 0 0
raw download clone embed print report
  1. /*
  2. This script was created by HighDefinition (Or_Yagoda)
  3. MSN: [email protected]
  4. Skype: oryagoda
  5.  
  6. Also programing PHP, SQL, HTML and more.
  7. If you need a pawn script or a website, contact me.
  8. */
  9. //==============================================================================
  10. #include a_samp
  11. //==============================================================================
  12. #define MAX_ANSWERS_PER_SURVEY 5 // How mach answers can you set in-game
  13. //==============================================================================
  14. enum gSurveyE
  15. {
  16.     Started,
  17.     Creation,
  18.     Question[128],
  19.     NumberOfAnswers,
  20.     CreationProgress,
  21.     SurveyTime
  22. };
  23. enum pSurveyE
  24. {
  25.     Voted
  26. };
  27. //==============================================================================
  28. new pSurveyVB[MAX_PLAYERS][pSurveyE],gSurveyVB[gSurveyE],gSurveyAnswers[MAX_ANSWERS_PER_SURVEY + 1][80],MessageString[1024];
  29. //==============================================================================
  30. #define Voted_Yes 1
  31. #define Voted_No 2
  32. //==============================================================================
  33. #define Dialog_SurveyOptions 11542
  34. #define Dialog_SurveyMessage 11543
  35. #define Dialog_SurveyCreate 11544
  36. #define Dialog_SurveyConfirm 11545
  37. #define Dialog_SurveyVote 11546
  38. #define Dialog_SurveyTime 11547
  39. //==============================================================================
  40. #define COLOR_RED 4278190160
  41. #define COLOR_GREEN 0x33AA33AA
  42. #define COLOR_YELLOW 0xFFFF00AA
  43. //==============================================================================
  44. forward SurveyResult();
  45. forward EndSurvey();
  46. //==============================================================================
  47. public OnFilterScriptInit()
  48. {
  49.     gSurveyVB[Creation] = 0;
  50.     print("Survey system by HighDefinition (Or_Yagoda) loaded !");
  51.     return 1;
  52. }
  53. //==============================================================================
  54. public OnFilterScriptExit()
  55. {
  56.     print("Survey system by HighDefinition (Or_Yagoda) unloaded !");
  57.     return 1;
  58. }
  59. //==============================================================================
  60. public OnPlayerConnect(playerid)
  61. {
  62.     pSurveyVB[playerid][Voted] = -1;
  63.     return 1;
  64. }
  65. //==============================================================================
  66. public OnPlayerCommandText(playerid,cmdtext[])
  67. {
  68.     if(!strcmp(cmdtext,"/Survey",true) && IsPlayerAdmin(playerid))
  69.     {
  70.         if(gSurveyVB[Started] == 1) return ShowPlayerDialog(playerid,Dialog_SurveyMessage,DIALOG_STYLE_MSGBOX,"Survey system","Please wait for the survey to end","Ok"," ");
  71.         gSurveyVB[CreationProgress] = 1;
  72.         gSurveyVB[Creation] = 1;
  73.         ShowPlayerDialog(playerid,Dialog_SurveyCreate,DIALOG_STYLE_INPUT,"Survey system - Create","Enter survey question","Create","Cancel");
  74.         return 1;
  75.     }
  76.     if(!strcmp(cmdtext,"/Vote",true))
  77.     {
  78.         if(gSurveyVB[Started] == 0) return ShowPlayerDialog(playerid,Dialog_SurveyMessage,DIALOG_STYLE_MSGBOX,"Survey system","There is no active surevy at this moment","Ok"," ");
  79.         if(pSurveyVB[playerid][Voted] != -1) return ShowPlayerDialog(playerid,Dialog_SurveyMessage,DIALOG_STYLE_MSGBOX,"Survey syste,","You already votes, please wait for the survey to end","Ok"," ");
  80.         if(strlen(gSurveyAnswers[0]) != 0){ format(MessageString,sizeof(MessageString),"1. %s",gSurveyAnswers[0]); }
  81.         for(new m = 1; m < MAX_ANSWERS_PER_SURVEY + 1; m ++)
  82.         {
  83.             if(strlen(gSurveyAnswers[m]) != 0)
  84.             {
  85.                 format(MessageString,sizeof(MessageString),"%s\r\n%d. %s",MessageString,m + 1,gSurveyAnswers[m]);
  86.             }
  87.         }
  88.         ShowPlayerDialog(playerid,Dialog_SurveyVote,DIALOG_STYLE_LIST,gSurveyVB[Question],MessageString,"Choose","Cancel");
  89.         return 1;
  90.     }
  91.     return 0;
  92. }
  93. //==============================================================================
  94. public OnDialogResponse(playerid,dialogid,response,listitem,inputtext[])
  95. {
  96.     if(response == 1)
  97.     {
  98.         switch(dialogid)
  99.         {
  100.             case Dialog_SurveyMessage: return 1;
  101.             case Dialog_SurveyCreate:
  102.             {
  103.                 if(gSurveyVB[CreationProgress] == 1)
  104.                 {
  105.                     if(!strlen(inputtext)) return ShowPlayerDialog(playerid,Dialog_SurveyCreate,DIALOG_STYLE_INPUT,"Survey system - Create","No question entered.\r\n\r\nEnter survey question","Create","Cancel");
  106.                     MessageString = "2";
  107.                     for(new q = 3; q < MAX_ANSWERS_PER_SURVEY + 1; q ++)
  108.                     {
  109.                         format(MessageString,sizeof(MessageString),"%s\r\n%d",MessageString,q);
  110.                     }
  111.                     gSurveyVB[CreationProgress] = 2;
  112.                     format(gSurveyVB[Question],sizeof(gSurveyVB[Question]),"%s",inputtext);
  113.                     return ShowPlayerDialog(playerid,Dialog_SurveyCreate,DIALOG_STYLE_LIST,"How mach answers will be for this survey?",MessageString,"Choose","Cancel");
  114.                 }
  115.                 if(gSurveyVB[CreationProgress] == 2)
  116.                 {
  117.                     gSurveyVB[CreationProgress] = 3;
  118.                     gSurveyVB[NumberOfAnswers] = listitem + 2;
  119.                     return ShowPlayerDialog(playerid,Dialog_SurveyCreate,DIALOG_STYLE_INPUT,"Enter answers","Enter answer number 1","Continue","Cancel");
  120.                 }
  121.                 if((gSurveyVB[NumberOfAnswers] - 1) == (gSurveyVB[CreationProgress] - 3))
  122.                 {
  123.                     if(!strlen(inputtext))
  124.                     {
  125.                         format(MessageString,sizeof(MessageString),"Enter answer number %d",gSurveyVB[CreationProgress] - 2);
  126.                         SendClientMessage(playerid,COLOR_RED,MessageString);
  127.                         format(MessageString,sizeof(MessageString),"Enter answer number %d",gSurveyVB[CreationProgress] - 2);
  128.                         return ShowPlayerDialog(playerid,Dialog_SurveyCreate,DIALOG_STYLE_INPUT,"Enter answers",MessageString,"Continue","Cancel");
  129.                     }
  130.                     format(gSurveyAnswers[gSurveyVB[CreationProgress] - 3],sizeof(gSurveyAnswers[]),"%s",inputtext);
  131.                     ShowPlayerDialog(playerid,Dialog_SurveyTime,DIALOG_STYLE_INPUT,"Choose time","How mach time you want to let the people vote (in seconds)?","Continue","Cancel");
  132.                 }
  133.                 else
  134.                 {
  135.                     if(gSurveyVB[CreationProgress] > 2)
  136.                     {
  137.                         if(!strlen(inputtext))
  138.                         {
  139.                             format(MessageString,sizeof(MessageString),"You didnt enter answer number %d",gSurveyVB[CreationProgress] - 2);
  140.                             SendClientMessage(playerid,COLOR_RED,MessageString);
  141.                             format(MessageString,sizeof(MessageString),"Enter answer number %d",gSurveyVB[CreationProgress] - 2);
  142.                             return ShowPlayerDialog(playerid,Dialog_SurveyCreate,DIALOG_STYLE_INPUT,"Enter answers",MessageString,"Continue","Cancel");
  143.                         }
  144.                         format(gSurveyAnswers[gSurveyVB[CreationProgress] - 3],sizeof(gSurveyAnswers[]),"%s",inputtext);
  145.                         format(MessageString,sizeof(MessageString),"Enter answer number %d",gSurveyVB[CreationProgress] - 1);
  146.                         ShowPlayerDialog(playerid,Dialog_SurveyCreate,DIALOG_STYLE_INPUT,"Enter answers",MessageString,"Continue","Cancel");
  147.                         gSurveyVB[CreationProgress] ++;
  148.                     }
  149.                 }
  150.                 return 1;
  151.             }
  152.             case Dialog_SurveyTime:
  153.             {
  154.                 gSurveyVB[SurveyTime] = strval(inputtext);
  155.                 format(MessageString,sizeof(MessageString),"Survey question: %s\r\nVoting time: %d seconds\r\nNumber of answers: %d\r\n",gSurveyVB[Question],gSurveyVB[SurveyTime],gSurveyVB[NumberOfAnswers]);
  156.                 for(new m; m < gSurveyVB[NumberOfAnswers]; m ++)
  157.                 {
  158.                     format(MessageString,sizeof(MessageString),"%s\r\nAnswer number %d: %s",MessageString,m + 1,gSurveyAnswers[m]);
  159.                 }
  160.                 ShowPlayerDialog(playerid,Dialog_SurveyConfirm,DIALOG_STYLE_MSGBOX,"Accept survey and start",MessageString,"Start","Cancel");
  161.                 return 1;
  162.             }
  163.             case Dialog_SurveyVote:
  164.             {
  165.                 if(gSurveyVB[Started] == 0) return ShowPlayerDialog(playerid,Dialog_SurveyMessage,DIALOG_STYLE_MSGBOX,"Survey system","There is no active surevy at this moment","Ok"," ");
  166.                 if(pSurveyVB[playerid][Voted] != -1) return ShowPlayerDialog(playerid,Dialog_SurveyMessage,DIALOG_STYLE_MSGBOX,"Survey syste,","You already votes, please wait for the survey to end","Ok"," ");
  167.                 pSurveyVB[playerid][Voted] = listitem + 1;
  168.                 return 1;
  169.             }
  170.             case Dialog_SurveyConfirm:
  171.             {
  172.                 gSurveyVB[Started] = 1;
  173.                 gSurveyVB[Creation] = 0;
  174.                 SetTimer("EndSurvey",gSurveyVB[SurveyTime] * 1000,0);
  175.                 for(new i; i < MAX_PLAYERS; i ++)
  176.                 {
  177.                     pSurveyVB[i][Voted] = -1;
  178.                 }
  179.                 GameTextForAll("/Vote",3000,3);
  180.                 format(MessageString,sizeof(MessageString),"A new survey started: %s",gSurveyVB[Question]);
  181.                 SendClientMessageToAll(COLOR_GREEN,MessageString);
  182.                 SendClientMessageToAll(COLOR_YELLOW,"Choose option:");
  183.                 for(new s; s < gSurveyVB[NumberOfAnswers]; s ++)
  184.                 {
  185.                     if(strlen(gSurveyAnswers[s]) > 0)
  186.                     {
  187.                         format(MessageString,sizeof(MessageString),"%d. %s",s + 1,gSurveyAnswers[s]);
  188.                         SendClientMessageToAll(COLOR_GREEN,MessageString);
  189.                     }
  190.                 }
  191.                 SendClientMessageToAll(COLOR_YELLOW,"To vote type: /Vote.");
  192.                 return 1;
  193.             }
  194.         }
  195.     } else gSurveyVB[Creation] = 0;
  196.     return 1;
  197. }
  198. //==============================================================================
  199. public EndSurvey()
  200. {
  201.     gSurveyVB[Started] = 0;
  202.     new Votes[MAX_ANSWERS_PER_SURVEY + 1],Winer,AllVotes;
  203.     for(new i; i < MAX_PLAYERS; i ++)
  204.     {
  205.         if(IsPlayerConnected(i))
  206.         {
  207.             if(pSurveyVB[i][Voted] != -1)
  208.             {
  209.                 Votes[pSurveyVB[i][Voted] - 1] ++;
  210.                 AllVotes ++;
  211.             }
  212.         }
  213.     }
  214.     format(MessageString,sizeof(MessageString),"Survey results - %s",gSurveyVB[Question]);
  215.     SendClientMessageToAll(COLOR_YELLOW,MessageString);
  216.     if(AllVotes != 0)
  217.     {
  218.         for(new s; s < gSurveyVB[NumberOfAnswers]; s ++)
  219.         {
  220.             if(strlen(gSurveyAnswers[s]) > 0)
  221.             {
  222.                 if(Votes[s] > Winer){ Winer = s; }
  223.                 format(MessageString,sizeof(MessageString),"%s - %d Votes - (%d Present)",gSurveyAnswers[s],Votes[s],((Votes[s] * 100) / AllVotes),"%");
  224.                 SendClientMessageToAll(COLOR_GREEN,MessageString);
  225.             }
  226.         }
  227.         format(MessageString,sizeof(MessageString),"The answer with most of the votes is: %s",gSurveyAnswers[Winer]);
  228.         SendClientMessageToAll(COLOR_YELLOW,MessageString);
  229.     }
  230.     else SendClientMessageToAll(COLOR_RED,"Nobody voted.");
  231.     return 1;
  232. }
  233. //==============================================================================
  234. /*
  235. This script was created by HighDefinition (Or_Yagoda)
  236. MSN: [email protected]
  237. Skype: oryagoda
  238.  
  239. Also programing PHP, SQL, HTML and more.
  240. If you need a pawn script or a website, contact me.
  241. */
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!