CatchEvent OnLapperStart()
	
	GlobalVar $Question;
	GlobalVar $Option1;
	GlobalVar $Option2;
	GlobalVar $Option3;
	GlobalVar $Option4;

	GlobalVar $VotesOption1;
	GlobalVar $VotesOption2;
	GlobalVar $VotesOption3;
	GlobalVar $VotesOption4;
	GlobalVar $VotesYes;
	GlobalVar $VotesNo;
    GlobalVar $VoteMode;
	
	$VoteMode = "";
	$Question = "";
	$Option1 = "";
	$Option2 = "";
	$Option3 = "";
	$Option4 = "";

	$VotesOption1 = 0;
	$VotesOption2 = 0;
	$VotesOption3 = 0;
	$VotesOption4 = 0;
	$VotesYes = 0;
	$VotesNo = 0;
EndCatchEvent

CatchEvent OnMSO( $userName, $text ) # Player event

	$idxOfFirtsSpace = indexOf( $text, " ");
	
	IF( $idxOfFirtsSpace == -1 ) THEN
	  $command = $text;
	  $argv = "";
	ELSE
	  $command = subStr( $text,0,$idxOfFirtsSpace );
	  $argv = trim( subStr( $text,$idxOfFirtsSpace ) );
	ENDIF

	SWITCH( $command )

			CASE "!Votesystem":
			CASE "!VOTESYSTEM":
			CASE "!votesystem":
			CASE "!vt":
			CASE "!VT":
			openPrivButton( "votechbgd",59,79,82,35,5,-1,16, "");
			openPrivButton( "votechbgdblk",60,80,80,33,5,-1,32, "");
			openPrivButton( "votechwlc",60,80,80,7,5,-1,32, "^1Votesystem");
			openPrivButton( "votechds1",61,90,79,4,1,-1,64, "^3Yes,No,Cancel ^7-  Your question with YES NO or CANCEL");
			openPrivButton( "votechds2",61,94,79,4,1,-1,64, "^3Vote Options ^7- Your Question with 4 options");
			openPrivButton( "votechds3",61,98,79,4,1,-1,64, "^1[^7X^1] ^7- Close the votesystem");
			openPrivButton( "votechync",60,103,40,10,5,-1,32, "^7Vote Yes,No,Cancel" ,VOTEYESNOCANCEL);
			openPrivButton( "votechopt",100,103,40,10,5,-1,32, "^7Vote Options" ,VOTEOPTIONS);
			openPrivButton( "votechcnl",60,80,80,7,5,-1,128, "^1[^7X^1]" ,VOTECANCEL2);
			ENDIF	
   			BREAK;
	ENDSWITCH
EndCatchEvent

Sub VOTEOPTIONS ( $KeyFlags,$id  )
VOTECANCEL2 ( $KeyFlags,$id  );

	openPrivButton( "votechbgd",59,65,82,45,10,-1,16,"");
	openPrivButton( "votechbgdblk",60,66,80,43,5,-1,32, "");
	openPrivButton( "votechwlc",60,66,80,7,5,-1,32, "^7Votesystem^2(^7OPTIONS^2)");

	openPrivButton( "vqon",61,76,15,5,5,-1,64,"^7Question:");
	openPrivButton( "vopt1",61,81,15,5,5,-1,64,"^7Option 1:");
	openPrivButton( "vopt2",61,86,15,5,5,-1,64,"^7Option 2:");
	openPrivButton( "vopt3",61,91,15,5,5,-1,64,"^7Option 3:");
	openPrivButton( "vopt4",61,96,15,5,5,-1,64,"^7Option 4:");	

	openPrivTextButton( "vqon1",76,76,64,5,5,32,"^3Write your Question!!","^3Click to write your Question!!",70,Vote2Question);
	openPrivTextButton( "vopt11",76,81,64,5,5,96,"^7Add Option 1","^7Click to add  Option 1",50,Vote2option1);
	openPrivTextButton( "vopt21",76,86,64,5,5,96,"^7Add Option 2","^7Click to add  Option 2",50,Vote2option2);
	openPrivTextButton( "vopt31",76,91,64,5,5,96,"^7Add Option 3","^7Click to add  Option 3",50,Vote2option3);
	openPrivTextButton( "vopt41",76,96,64,5,5,96,"^7Add Option 4","^7Click to add  Option 4",50,Vote2option4);

	openPrivButton( "vote2close",60,103,80,6,10,-1,32,"^3Send Vote",Votenow);
	openPrivButton( "votechcnl1",60,66,80,7,5,-1,128,"^1[^7X^1]" ,VOTECANCEL2);
EndSub

Sub VOTEYESNOCANCEL ( $KeyFlags,$id  )
VOTECANCEL2 ( $KeyFlags,$id  );
      openPrivButton( "votechbgd",59,79,82,35,5,-1,16, "");
			openPrivButton( "votechbgdblk",60,80,80,33,5,-1,32, "");
			openPrivButton( "votechwlc",60,80,80,7,5,-1,32, "^7Votesystem^2(^7YES,NO,CANCEL^2)");
			openPrivTextButton("vote1quest",60,90,80,7,5,32,"^3Write your question!!","^3Click to write your Question!!",70,Vote1Question);
      openPrivButton( "votebtn41",60,100,80,5,10,-1,32,"^3SEND VOTE",VoteNow21);
Endsub

Sub VOTECANCEL2 ( $KeyFlags,$id  )
closePrivButton( "votechwlc&votechync&votechcnl2&votechcnl3&votechopt&votechcnl&votechbgd&votechds1&votechds2&votechds3&votesysbtn1&votequestion&votebtn11&voteopt1&voteopt2&voteopt3&voteopt4&vote2close&voteoptbgd&votechcnl1");
closePrivButton( "votebtnbgd&votebtn0&votechbgdblk&votequeneed&&closevote&votequegbk&votequecls&vote1quest&votebtn2&votebtn3&votebtn4&votebtnbgd1&voteopt10&votebtn41&voteopt11&voteopt12&voteopt13&voteopt14");
closePrivButton( "vqon1&vqon&vopt1&vopt2&vopt3&vopt4&vopt11&vopt21&vopt31&vopt41");
closePrivButton( "voteopt10&voteopt11&voteopt12&voteopt13&votequestion&vote2close&voteopt14&voteopt1&voteopt2&voteopt3&voteopt4&votechcnl1&votechcnl2&votechcnl3");
closePrivButton( "votesysbtn1&votebtn11&votebtn21&votebtn31&votebtn41&votebtn51&voteoptbgd&votechcnl&votechcnl1&closevote");
closePrivButton( "vqon&vopt1&vopt2&vopt3&vopt4&vopt11&vopt21&vopt31&vopt41");
EndSub

###########################################################
##VOTE WITH MULTIPLE OPTIONS
###########################################################

Sub Vote2Question ( $id, $argv )
$Question = $argv;
openPrivButton( "voteopt10",76,76,64,5,5,-1,32,"^3" .$argv);
closePrivButton( "vqon1");
EndSub

Sub Vote2option1 ( $id, $argv )
$Option1 = $argv;
openPrivButton( "voteopt11",76,81,64,5,5,-1,32,"^7" .$argv);
closePrivButton( "vopt11");
EndSub

Sub Vote2option2 ( $id, $argv )
$Option2 = $argv;
openPrivButton( "voteopt12",76,86,64,5,5,-1,32,"^7" .$argv);
closePrivButton( "vopt21");
EndSub

Sub Vote2option3 ( $id, $argv )
$Option3 = $argv;
openPrivButton( "voteopt13",76,91,64,5,5,-1,32,"^7" .$argv);
closePrivButton( "vopt31");
EndSub

Sub Vote2option4 ( $id, $argv )
$Option4 = $argv;
openPrivButton( "voteopt14",76,96,64,5,5,-1,32,"^7" .$argv);
closePrivButton( "vopt41");
EndSub

Sub Votenow ( $KeyFlags,$id  )
IF(($Question == "")||(($Option1 == "")&&($Option2 == "")&&($Option3 == "")&&($Option4 == "")))THEN
VOTEOPTIONS( $KeyFlags,$id  );
ELSE
closePrivButton( "votechwlc&votechync&votechcnl2&votechcnl3&votechopt&votechcnl&votechbgd&votechds1&votechds2&votechds3&votesysbtn1&votequestion&votebtn11&voteopt1&voteopt2&voteopt3&voteopt4&vote2close&voteoptbgd&votechcnl1");
closePrivButton( "votebtnbgd&votebtn0&votechbgdblk&votequeneed&&closevote&votequegbk&votequecls&vote1quest&votebtn2&votebtn3&votebtn4&votebtnbgd1&voteopt10&votebtn41&voteopt11&voteopt12&voteopt13&voteopt14");
closePrivButton( "vqon1&vqon&vopt1&vopt2&vopt3&vopt4&vopt11&vopt21&vopt31&vopt41");
closePrivButton( "voteopt10&voteopt11&voteopt12&voteopt13&votequestion&vote2close&voteopt14&voteopt1&voteopt2&voteopt3&voteopt4&votechcnl1&votechcnl2&votechcnl3");
closePrivButton( "votesysbtn1&votebtn11&votebtn21&votebtn31&votebtn41&votebtn51&voteoptbgd&votechcnl&votechcnl1&closevote");
closePrivButton( "vqon&vopt1&vopt2&vopt3&vopt4&vopt11&vopt21&vopt31&vopt41");
$Racers5 = getListOfPlayers("N");
FOREACH( $maVar IN $Racers5 )
  setPlayerVar( $maVar["value"], "MayVote",1);
ENDFOREACH	
$VoteMode = "Option";
votebox();
cmdLFS("/msg ^6› ^7VOTE SYSTEM ACTIVATE!" );
cmdLFS("/msg ^6› ^3QUESTION :^7 " . $Question);
cmdLFS("/msg ^6› ^7==========================");
cmdLFS("/msg ^6› ^3Option 1 :^7 " . $Option1);
cmdLFS("/msg ^6› ^3Option 2 :^7 " . $Option2);
cmdLFS("/msg ^6› ^3Option 3 :^7 " . $Option3);
cmdLFS("/msg ^6› ^3Option 4 :^7 " . $Option4);
cmdLFS("/msg ^6› ^7==========================");
openGlobalButton( "vbtn0",3,81,18,7,10,60,0,"^7VOTE BOX^2(^7%cpt%^2)",VoteEnded);
ENDIF
EndSub


Sub Option1 ( $KeyFlags,$id  )
$VoteMode = "Option";
SetCurrentPlayerVar( "MayVote",0);
$VotesOption1=$VotesOption1+1;
votebox();
VOTECANCEL2 ( $KeyFlags,$id  );
EndSub

Sub Option2 ( $KeyFlags,$id  )
$VoteMode = "Option";
SetCurrentPlayerVar( "MayVote",0);
$VotesOption2=$VotesOption2+1;
votebox();
EndSub

Sub Option3 ( $KeyFlags,$id  )
$VoteMode = "Option";
SetCurrentPlayerVar( "MayVote",0);
$VotesOption3=$VotesOption3+1;
votebox();
VOTECANCEL2 ( $KeyFlags,$id  );
EndSub

Sub Option4 ( $KeyFlags,$id  )
$VoteMode = "Option";
SetCurrentPlayerVar( "MayVote",0);
$VotesOption4=$VotesOption4+1;
votebox();
VOTECANCEL2 ( $KeyFlags,$id  );
EndSub

Sub ShowQuestion ( $KeyFlags,$id  )
IF($VoteMode == "Option")THEN
privMsg("^6› ^3QUESTION :^7 " . $Question);
privMsg("^6› ^7==========================");
privMsg("^6› ^3Option 1 :^7 " . $Option1);
privMsg("^6› ^3Option 2 :^7 " . $Option2);
privMsg("^6› ^3Option 3 :^7 " . $Option3);
privMsg("^6› ^3Option 4 :^7 " . $Option4);
privMsg("^6› ^7==========================");
ELSE IF($VoteMode == "NonOption")THEN
privMsg("^6› ^3QUESTION :^7 " . $Question);
ENDIF
ENDIF
EndSub

Sub ResetOptions()
$VoteMode = "";
$Question = "";
$Option1 = "";
$Option2 = "";
$Option3 = "";
$Option4 = "";
	$VotesOption1 = 0;
	$VotesOption2 = 0;
	$VotesOption3 = 0;
	$VotesOption4 = 0;
	$VotesYes = 0;
	$VotesNo = 0;
EndSub

###########################################################
##VOTE WITH YES , NO , CANCEL
###########################################################
Sub Vote1Question ( $id, $argv )
$Question = $argv;
openPrivButton( "vote1quest",60,90,80,7,5,-1,32,"^3".$argv);  
EndSub

Sub VoteNow21 ( $KeyFlags,$id  )
$i=0;
	$Racer = getListOfPlayers("N");
	WHILE($Racer[$i] != "" )
		$RacerOnTrack = $Racer[$i];
			setPlayerVar( $RacerOnTrack, "MayVote",1);
	$i=$i+1;
	ENDWHILE	
$VoteMode = "NonOption";
openGlobalButton( "vbtn0",3,81,18,7,10,60,3,"^7VOTE BOX^2(^7%cpt%^2)");
openGlobalButton( "vbtn99",1,1,1,1,1,60,0,"",VoteEnded);
votebox();
VOTECANCEL2 ( $KeyFlags,$id  );
cmdLFS("/msg ^6› ^7VOTE SYSTEM ACTIVATED!" );
cmdLFS("/msg ^6› ^3QUESTION :^7 " . $Question);
EndSub

Sub OptionYes ( $KeyFlags,$id  )
SetCurrentPlayerVar( "MayVote",0);
$VotesYes=$VotesYes+1;
votebox();
VOTECANCEL2 ( $KeyFlags,$id  );
EndSub

Sub OptionNo ( $KeyFlags,$id  )
SetCurrentPlayerVar( "MayVote",0);
$VotesNo=$VotesNo+1;
votebox();
VOTECANCEL2 ( $KeyFlags,$id  );
EndSub


Sub OptionCancel ( $KeyFlags,$id  )
SetCurrentPlayerVar( "MayVote",0);
votebox();
VOTECANCEL2 ( $KeyFlags,$id  );
EndSub

Sub VoteEnded( $KeyFlags,$id  )
closeGlobalButton("vbtn99&vbtn0");
openGlobalButton( "vbtnbgd",1,80,22,52,8,8,16,"");
openGlobalButton( "vbtnblc",2,81,20,50,8,8,32,"");
openGlobalButton( "vbtn1",3,90,18,5,8,8,80,"Option 1: ^2(^7".$VotesOption1."^2)");
openGlobalButton( "vbtn2",3,95,18,5,8,8,80,"Option 2: ^2(^7".$VotesOption2."^2)");
openGlobalButton( "vbtn3",3,100,18,5,8,8,80,"Option 3: ^2(^7".$VotesOption3."^2)");
openGlobalButton( "vbtn4",3,105,18,5,8,8,80,"Option 4: ^2(^7".$VotesOption4."^2)");
openGlobalButton( "vbtnNo",3,110,18,5,10,8,80,"Option ^1YES: ^2(^7".$VotesYes."^2)");
openGlobalButton( "vbtnYes",3,115,18,5,10,8,80,"Option ^2NO: ^2(^7".$VotesNo."^2)");
openGlobalButton( "vbtnSQ",3,120,18,5,10,8,80,"^7Show Question: ");
openGlobalButton( "vbtnccl",3,125,18,5,8,8,80,"^3Cancel Vote!:");

IF(($VotesOption1 > $VotesOption2)&&($VotesOption1 > $VotesOption3)&&($VotesOption1 > $VotesOption4))THEN
	openGlobalButton("vbtn1",3,90,18,5,5,8,32,"^7Option 1: ^2(^7".$VotesOption1."^2)");
	cmdLFS("/msg ^6› ^3Option 1 :^7 " . $Option1 . " Got the most votes!");
ENDIF
IF(($VotesOption2 > $VotesOption1)&&($VotesOption2 > $VotesOption3)&&($VotesOption2 > $VotesOption4))THEN
	openGlobalButton("vbtn2",3,95,18,5,10,8,32,"^7Option 2: ^2(^7".$VotesOption2."^2)");
	cmdLFS("/msg ^6› ^3Option 2 :^7 " . $Option2 . " Got the most votes!");
ENDIF
IF(($VotesOption3 > $VotesOption1)&&($VotesOption3 > $VotesOption2)&&($VotesOption3 > $VotesOption4))THEN
	openGlobalButton("vbtn3",3,100,18,5,10,8,32,"^7Option 3: ^2(^7".$VotesOption3."^2)");
	cmdLFS("/msg ^6› ^3Option 3 :^7 " . $Option3 . " Got the most votes!");
ENDIF
IF(($VotesOption4 > $VotesOption1)&&($VotesOption4 > $VotesOption2)&&($VotesOption4 > $VotesOption3))THEN
	openGlobalButton("vbtn4",3,105,18,5,10,8,32,"^7Option 4: ^2(^7".$VotesOption4."^2)");
	cmdLFS("/msg ^6› ^3Option 4 :^7 " . $Option4 . " Got the most votes!");
ENDIF
IF($VoteMode == "NonOption")THEN
IF($VotesYes > $VotesNo)THEN
	openGlobalButton("vbtnNo",3,110,18,5,10,8,32,"^7Option ^1YES: ^2(^7".$VotesYes."^2)");
	cmdLFS("/msg ^6› ^3Option ^1YES ^7Got the most votes!");
ELSE
	openGlobalButton("vbtnYes",3,115,18,5,10,8,32,"^7Option ^2NO: ^2(^7".$VotesNo."^2)");
	cmdLFS("/msg ^6› ^3Option ^2NO ^7Got the most votes!");
ENDIF
ENDIF

$Racers = getListOfPlayers("N");
FOREACH( $maVar IN $Racers )
  setPlayerVar( $maVar["value"], "MayVote",1);
ENDFOREACH
DelayedCommand( 5, ResetOptions );	
EndSub



Sub votebox()
$Drivers = GetListOfPlayers("N");
$NbUsers = arrayCount($Drivers);
openGlobalButton( "vbtnbgd",1,80,22,52,10,-1,16,"");
openGlobalButton( "vbtnblc",2,81,20,50,10,-1,32,"");
IF($VoteMode == "Option")THEN
  $Racers2 = getListOfPlayers("N");
  FOREACH( $maVar1 IN $Racers2 )
  IF(GetPlayerVar($maVar1["value"], "MayVote") == 1)THEN
  openButton($maVar1["value"], "vbtn1",3,90,18,5,5,-1,96,"^7Option 1: ^2(^7".$VotesOption1."^2)" ,Option1);
    openButton($maVar1["value"], "vbtn2",3,95,18,5,10,-1,96,"^7Option 2: ^2(^7".$VotesOption2."^2)" ,Option2);
    openButton($maVar1["value"], "vbtn3",3,100,18,5,10,-1,96,"^7Option 3: ^2(^7".$VotesOption3."^2)" ,Option3);
    openButton($maVar1["value"], "vbtn4",3,105,18,5,10,-1,96,"^7Option 4: ^2(^7".$VotesOption4."^2)" ,Option4);
    openButton($maVar1["value"], "vbtnNo",3,110,18,5,10,-1,80,"Option YES");
    openButton($maVar1["value"], "vbtnYes",3,115,18,5,10,-1,80,"Option NO");
	openButton($maVar1["value"], "vbtnSQ",3,120,18,5,10,-1,96,"^7Show Question: " ,ShowQuestion);
    openButton($maVar1["value"], "vbtnccl",3,125,18,5,10,-1,96,"^3Cancel Vote!:",OptionCancel);
  ELSE
  openButton($maVar1["value"], "vbtn1",3,90,18,5,5,-1,80,"Option 1: ^2(^7".$VotesOption1."^2)");
    openButton($maVar1["value"], "vbtn2",3,95,18,5,10,-1,80,"Option 2: ^2(^7".$VotesOption2."^2)");
    openButton($maVar1["value"], "vbtn3",3,100,18,5,10,-1,80,"Option 3: ^2(^7".$VotesOption3."^2)");
    openButton($maVar1["value"], "vbtn4",3,105,18,5,10,-1,80,"Option 4: ^2(^7".$VotesOption4."^2)");
	openButton($maVar1["value"], "vbtnSQ",3,120,18,5,10,-1,80,"Show Question: ");
    openButton($maVar1["value"], "vbtnccl",3,125,18,5,10,-1,80,"Cancel Vote!:");
  ENDIF
  ENDFOREACH
ENDIF


IF($VoteMode == "NonOption")THEN
  $Racers3 = getListOfPlayers("N");
  FOREACH( $maVar IN $Racers3 )
  IF(GetPlayerVar($maVar["value"], "MayVote") == 1)THEN
    openButton($maVar["value"], "vbtn1",3,90,18,5,5,-1,80,"Option 1:");
    openButton($maVar["value"], "vbtn2",3,95,18,5,10,-1,80,"Option 2:");
    openButton($maVar["value"], "vbtn3",3,100,18,5,10,-1,80,"Option 3:");
    openButton($maVar["value"], "vbtn4",3,105,18,5,10,-1,80,"Option 4:");
    openButton($maVar["value"], "vbtnNo",3,110,18,5,10,-1,96,"^7Option ^1YES: ^2(^7".$VotesYes."^2)" ,OptionYes);
    openButton($maVar["value"], "vbtnYes",3,115,18,5,10,-1,96,"^7Option ^2NO: ^2(^7".$VotesNo."^2)" ,OptionNo);
	openButton($maVar["value"], "vbtnSQ",3,120,18,5,10,-1,96,"^7Show Question: " ,ShowQuestion);
    openButton($maVar["value"], "vbtnccl",3,125,18,5,10,-1,96,"^3Cancel Vote!:", OptionCancel);
  ELSE
    openButton($maVar["value"], "vbtnNo",3,110,18,5,10,-1,80,"^7Option ^1YES: ^2(^7".$VotesYes."^2)");
    openButton($maVar["value"], "vbtnYes",3,115,18,5,10,-1,80,"^7Option ^2NO: ^2(^7".$VotesNo."^2)");
	openButton($maVar["value"], "vbtnSQ",3,120,18,5,10,-1,80,"^7Show Question: ");
    openButton($maVar["value"], "vbtnccl",3,125,18,5,10,-1,80,"Cancel Vote!:");
  ENDIF
  ENDFOREACH
ENDIF
$TotalVotes = ($VotesOption1+$VotesOption2+$VotesOption3+$VotesOption4+$VotesYes+$VotesNo);
IF($TotalVotes == $NbUsers)THEN
	VoteEnded( $KeyFlags,$id  );
ENDIF
EndSub