when i try to close the vote poll this is the message from the server
[Error]: run_script: infinity loop !
[Debug]: Source (NPC): Poll (invisible/not on a map)
here is my code
// -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- \\
// Poll System 1.1 \\
// For eAthena TXT/SQL \\
// (c) 2007, by Myzter (Raff - Pow4Ever.com) \\
// -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- \\
// - CHANGELOG \\
// -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- \\
// Ver. 1.0 [09-15-2007]: First public version \\
// Ver. 1.1 [09-20-2007]: Added tables to save results on eAthena MySQL \\
// Automatic TXT / SQL detection [with table creation] \\
// Show/hide results before voting [Lupus suggestion] \\
// -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- \\
- script PollInternal -1,{
OnInit:
// Text for Add Option menu - don't remove color
set $@NewOption$, "^1010FF<Add Option>^000000";
// MySQL Parameters - Only for eAthena MySQL Servers
set $@PollPageSize, 3; // Paging Size (max: 125)
set $@TimeFormat$, "%M %d, %Y %k:%i"; // September 20, 2007 14:20
// Other formats: [%m/%d/%Y %k:%i = 09/20/2007 14:20] [%d/%m/%Y %k:%i = 20/09/2007 14:20]
// MySQL Auto-Detection
set .MyExist, query_sql("select version()");
if (.MyExist < 0) { set $@UseMySQL,0; debugmes "Poll System working on TXT Mode"; } else { set $@UseMySQL,1; debugmes "Poll System working on SQL Mode"; }
// First Time Initialization
if (!$LastPollID && !$PollID) {
cleararray $PollData$[0],"",128;
set $PollData$[1],$@NewOption$;
}
// Table checking / creation
if ($@UseMySQL == 1) {
if ($@PollPageSize > 125) set $@PollPageSize, 125;
set $@UseMySQL,2; // Don't ask why i'm doing this
query_sql "show tables like 'poll_main'",.PollTable$;
if (.PollTable$[0] == "") {
debugmes "Poll System - Creating table `poll_main`";
query_sql "CREATE TABLE `poll_main` (`poll_id` int(11) unsigned NOT NULL,`poll_creator` int(11) unsigned NOT NULL,`poll_title` varchar(70) NOT NULL,`poll_started` datetime NOT NULL,`poll_finished` datetime default NULL,`poll_status` tinyint(1) unsigned default '0', PRIMARY KEY (`poll_id`)) ENGINE=MyISAM;";
}
deletearray .PollTable$[0],1;
query_sql "show tables like 'poll_options'",.PollTable$;
if (.PollTable$[0] == "") {
debugmes "Poll System - Creating table `poll_options`";
query_sql "CREATE TABLE `poll_options` ( `poll_id` int(11) unsigned NOT NULL default '0',`poll_text` varchar(70) NOT NULL, `poll_votes` int(11) default '0' ) ENGINE=MyISAM;";
}
}
// The script will continue on OnTimerXXXXX to start the timer
OnTimer30000: // Check every 30 seconds
initnpctimer;
if (!$PollID || !$PollDuration) end;
// Static Counter - VERY HELPFUL (Current Time - Started Time >= Wanted Time)
if ($PollDurationType)
if ((gettimetick(2) - $PollStartDate) / 60 >= $PollDuration) callfunc "AutoClosePoll",1;
else
if ((gettimetick(2) - $PollStartDate) / 3600 >= $PollDuration) callfunc "AutoClosePoll,1";
end;
}
- script Poll -1,{
if ($@NewOption$ == "") goto OnInit;
mes "[^930781Tokumitsu^000000]";
if (!$PollID && !$LastPollID) {
mes "Hi " + strcharinfo(0) + ", this is a nice day to play RO.";
close;
}
if ($@UseMySQL) set @ViewHistoryPolls$,"^626200View Old Polls^000000"; else set @ViewHistoryPolls$,"View Previows Poll";
if ($PollID) {
if (#LastPollID != $PollID) {
if (($PollMinLevel && BaseLevel < $PollMinLevel) || ($PollMaxLevel && BaseLevel > $PollMaxLevel)) {
mes "Sorry " + strcharinfo(0) + ", your character don't meet the requirements for voting.";
mes " ";
if ($PollMinLevel) mes "> ^FF0000Minimum level: ^FF0000" + $PollMinLevel + "^000000";
if ($PollMaxLevel) mes "> ^FF0000Maximum level: ^FF0000" + $PollMaxLevel + "^000000";
close;
}
mes "Hi " + strcharinfo(0) + ", please vote.";
switch ($PollPrizeType) {
case 1: mes "> Prize: ^FF0000+" + $PollPrizeAmount + "%^000000 Base Level";
mes "> Chance: ^FF0000" + $PollPrizeProb + "%^000000";
break;
case 2: mes "> Prize: ^FF0000+" + $PollPrizeAmount + "%^000000 Job Level";
mes "> Chance: ^FF0000" + $PollPrizeProb + "%^000000";
break;
case 3: mes "> Prize: ^FF0000" + $PollPrizeAmount + "z^000000";
mes "> Chance: ^FF0000" + $PollPrizeProb + "%^000000";
}
mes " ";
mes " (1 vote x account)";
if ($LastPollID) set @MainMenu$, "^0000F0Vote^000000:" + @ViewHistoryPolls$ + ":^FF0000Exit^000000"; else set @MainMenu$, "^0000F0Vote^000000::^FF0000Exit^000000";
} else {
mes "Hi " + strcharinfo(0) + ", may i help you?";
if ($LastPollID) set @MainMenu$, "^F00000View Current Poll^000000:" + @ViewHistoryPolls$ + ":^FF0000Exit^000000"; else set @MainMenu$, "^F00000View Current Poll^000000::^FF0000Exit^000000";
}
} else {
mes "Hi " + strcharinfo(0) + ", may i help you?";
set @MainMenu$, ":" + @ViewHistoryPolls$ + ":^FF0000Exit^000000";
}
emotion e_no1;
next;
switch (select(@MainMenu$)) {
case 1: goto L_Poll;
case 2: if ($@UseMySQL) goto L_OldPolls; else { callfunc "DrawLastPoll"; close; }
}
L_Exit:
mes "[^930781Tokumitsu^000000]";
mes "I hope to see you again ^^";
close;
L_PollClosed:
mes "[^930781Tokumitsu^000000]";
mes "Oh sorry, the Poll is closed.";
close;
L_Poll:
if (!$PollID) goto L_PollClosed;
set @TotPollOpts, callfunc("CountPollOpts");
set @TotPollVotes, callfunc("CountPollVotes");
mes "^0000FF" + $PollData$[0] + "^000000";
mes " ^25B54C(Total Votes: " + @TotPollVotes + ")^000000";
if ($PollShowBeforeVote || #LastPollID == $PollID) {
mes "^C0C0C0×××××××××××××××××××××××××××××××^000000";
callfunc "DrawPollOption";
}
if (#LastPollID != $PollID) {
next;
set @opc,select($PollData$[1],$PollData$[3],$PollData$[5],$PollData$[7],$PollData$[9],$PollData$[11],$PollData$[13],$PollData$[15],
$PollData$[17],$PollData$[19],$PollData$[21],$PollData$[23],$PollData$[25],$PollData$[27],$PollData$[29],$PollData$[31],
$PollData$[33],$PollData$[35],$PollData$[37],$PollData$[39],"^FF0000Exit^000000");
if (@opc == 21) goto L_Exit;
mes "[^930781Tokumitsu^000000]";
mes "Selected Option:";
mes " >^0000FF" + $PollData$[@opc * 2 - 1] + "^000000 <";
next;
if (select("^0000FFConfirm!^000000","^FF0000Change Option^000000") == 2) goto L_Poll;
if (!$PollID) goto L_PollClosed;
set #LastPollID,$PollID;
set @PollVotes, atoi($PollData$[@opc * 2]) + 1;
set $PollData$[@opc * 2], @PollVotes;
mes "[^930781Tokumitsu^000000]";
if ($PollPrizeType) {
if ($PollPrizeProb < 100) {
mes "Please, press <Next> to check your prize:";
mes " ";
mes "^FF0000I hope you win!^000000";
next;
mes "[^930781Tokumitsu^000000]";
}
if (rand(100) <= $PollPrizeProb) {
soundeffect "tming_success.wav",0;
specialeffect2 610;
emotion e_grat;
mes "Congratulations!!!";
switch ($PollPrizeType) {
case 1:
set BaseExp, BaseExp + ((NextBaseExp / 100) * $PollPrizeAmount / 100) * 100;
mes "You Win: ^FF0000+" + $PollPrizeAmount + "%^000000 Base Level";
break;
case 2:
set JobExp, JobExp + ((NextJobExp / 100) * $PollPrizeAmount / 100) * 100;
mes "You Win: ^FF0000+" + $PollPrizeAmount + "%^000000 Job Level";
break;
default:
set Zeny, Zeny + $PollPrizeAmount;
mes "You Win: ^FF0000+" + $PollPrizeAmount + "z^000000";
}
} else {
soundeffect "goat_die.wav",0;
specialeffect2 611;
emotion e_sry;
mes "Sorry " + strcharinfo(0) + ", i hope you win the next time!";
mes " ";
mes "Thank's for your Vote.";
}
} else {
mes "Thanks for your vote " + strcharinfo(0) + "!";
}
if (!$PollShowBeforeVote) {
next;
mes "^0000FF" + $PollData$[0] + "^000000";
mes " ^25B54C(Total Votes: " + (@TotPollVotes + 1) + ")^000000";
if ($PollShowBeforeVote || #LastPollID == $PollID) {
mes "^C0C0C0×××××××××××××××××××××××××××××××^000000";
callfunc "DrawPollOption";
}
}
}
if ($PollMaxVotes && @PollVotes >= $PollMaxVotes) callfunc "AutoClosePoll",1;
close;
L_OldPolls:
deletearray @pollcount[0],128;
query_sql "select count(*) from poll_main where poll_status = 1",@pollcount;
if (!@pollcount[0]) {
mes "[^930781Poll History^000000]";
mes "Sorry, there are not Old Polls to view.";
close;
}
set @ototpages, (@pollcount[0] - 1) / $@PollPageSize;
set @opage, 1;
while (1) {
cleararray @opollid[0],0,128;
cleararray @opolltit$[0],"",128;
cleararray @opollstart$[0],0,128;
cleararray @opollfinish$[0],0,128;
cleararray @opolltot[0],0,128;
set @pindex, @opage * $@PollPageSize - $@PollPageSize;
set @cnt, query_sql("select a.poll_id, poll_title, date_format(poll_started,'" + $@TimeFormat$ + "'), date_format(poll_finished,'" + $@TimeFormat$ + "'), (select sum(poll_votes) from poll_options b where b.poll_id = a.poll_id) from poll_main a where poll_status = 1 order by poll_title limit " + @pindex + "," + $@PollPageSize,@opollid,@opolltit$,@opollstart$,@opollfinish$,@opolltot);
mes "[^930781Old Polls Page " + @opage + "^000000]";
mes "Select a Poll to view the details.";
next;
if (@ototpages > 0 && @opage < @ototpages + 1) set @EndMenu$, "^0000FF> Next Page^000000:"; else set @EndMenu$, ":";
if (@opage > 1) set @EndMenu$, @EndMenu$ + "^0000FF< Previows Page^000000:^FF0000Exit^000000"; else set @EndMenu$, @EndMenu$ + ":^FF0000Exit^000000";
set @opc, select( @opolltit$[0], @opolltit$[1], @opolltit$[2], @opolltit$[3], @opolltit$[4], @opolltit$[5], @opolltit$[6],
@opolltit$[7], @opolltit$[8], @opolltit$[9], @opolltit$[10], @opolltit$[11], @opolltit$[12], @opolltit$[13],
@opolltit$[14], @opolltit$[15], @opolltit$[16], @opolltit$[17], @opolltit$[18], @opolltit$[19], @opolltit$[20],
@opolltit$[21], @opolltit$[22], @opolltit$[23], @opolltit$[24], @opolltit$[25], @opolltit$[26], @opolltit$[27],
@opolltit$[28], @opolltit$[29], @opolltit$[30], @opolltit$[31], @opolltit$[32], @opolltit$[33], @opolltit$[34],
@opolltit$[35], @opolltit$[36], @opolltit$[37], @opolltit$[38], @opolltit$[39], @opolltit$[40], @opolltit$[41],
@opolltit$[42], @opolltit$[43], @opolltit$[44], @opolltit$[45], @opolltit$[46], @opolltit$[47], @opolltit$[48],
@opolltit$[49], @opolltit$[50], @opolltit$[51], @opolltit$[52], @opolltit$[53], @opolltit$[54], @opolltit$[55],
@opolltit$[56], @opolltit$[57], @opolltit$[58], @opolltit$[59], @opolltit$[60], @opolltit$[61], @opolltit$[62],
@opolltit$[63], @opolltit$[64], @opolltit$[65], @opolltit$[66], @opolltit$[67], @opolltit$[68], @opolltit$[69],
@opolltit$[70], @opolltit$[71], @opolltit$[72], @opolltit$[73], @opolltit$[74], @opolltit$[75], @opolltit$[76],
@opolltit$[77], @opolltit$[78], @opolltit$[79], @opolltit$[80], @opolltit$[81], @opolltit$[82], @opolltit$[83],
@opolltit$[84], @opolltit$[85], @opolltit$[86], @opolltit$[87], @opolltit$[88], @opolltit$[89], @opolltit$[90],
@opolltit$[91], @opolltit$[92], @opolltit$[93], @opolltit$[94], @opolltit$[95], @opolltit$[96], @opolltit$[97],
@opolltit$[98], @opolltit$[99],@opolltit$[100],@opolltit$[101],@opolltit$[102],@opolltit$[103],@opolltit$[104],
@opolltit$[105],@opolltit$[106],@opolltit$[107],@opolltit$[108],@opolltit$[109],@opolltit$[110],@opolltit$[111],
@opolltit$[112],@opolltit$[113],@opolltit$[114],@opolltit$[115],@opolltit$[116],@opolltit$[117],@opolltit$[118],
@opolltit$[119],@opolltit$[120],@opolltit$[121],@opolltit$[122],@opolltit$[123],@opolltit$[124],@EndMenu$);
if (@opc < 126) {
callfunc "ShowOldPoll",@opollid[@opc - 1],@opolltit$[@opc - 1],@opollstart$[@opc - 1],@opollfinish$[@opc - 1],@opolltot[@opc - 1];
if (select("Back","^FF0000Exit^000000") == 2) goto L_Exit;
} else {
switch (@opc) {
case 126: set @opage, @opage + 1; break;
case 127: set @opage, @opage - 1; break;
case 128: goto L_Exit;
}
}
}
OnTouch:
if (($PollID && #LastPollID != $PollID) && (($PollMinLevel && BaseLevel >= $PollMinLevel) || !$PollMinLevel) && (($PollMaxLevel && BaseLevel <= $PollMaxLevel) || !$PollMaxLevel) && !rand(5)) {
emotion e_com;
npctalk "Hi " + strcharinfo(0) + ", can you help me please?, it's free!";
}
end;
OnWhisperGlobal:
if (getgmlevel() < 99) end;
if (@whispervar0$ == "reset") {
set #LastPollID,0;
dispbottom "Now you can vote again in this Poll.";
end;
}
mes "[^930781Tokumitsu^000000]";
mes "Hi Master, what can i do for you?";
next;
if ($PollID) set @MainMenu$,"::Close Poll:^FF0000Exit^000000"; else set @MainMenu$,"Configure Poll:Publish Poll::^FF0000Exit^000000";
switch(select(@MainMenu$)) {
case 1:
L_PollConfig:
mes "[^930781Tokumitsu^000000]";
if ($PollID) {
mes "I'm sorry, you must close the current Poll before try to edit them or create a new one.";
next;
goto OnWhisperGlobal;
}
mes "Configure your Poll:";
next;
L_PollConfig2:
set @TotPollOpts, callfunc("CountPollOpts");
if ($PollMinLevel) set @MinLvL$,"Level " + $PollMinLevel; else set @MinLvL$,"no limit";
if ($PollMaxLevel) set @MaxLvL$,"Level " + $PollMaxLevel; else set @MaxLvL$,"no limit";
switch ($PollPrizeType) {
case 1: set @PollPrize$,"Base Level (" + $PollPrizeAmount + "%/" + $PollPrizeProb + "%)";break;
case 2: set @PollPrize$,"Job Level (" + $PollPrizeAmount + "%/" + $PollPrizeProb + "%)";break;
case 3: set @PollPrize$,"Zeny (" + $PollPrizeAmount + "z/" + $PollPrizeProb + "%)";break;
default: set @PollPrize$,"none";
}
if ($PollDuration) {
if ($PollDurationType)
set @MenuDuration$, $PollDuration + " min(s)";
else
set @MenuDuration$, $PollDuration + " hr(s)";
} else set @MenuDuration$, "no limit";
if ($PollMaxVotes) set @MenuMaxVotes$, $PollMaxVotes + ""; else set @MenuMaxVotes$, "unlimited";
if ($PollShowBeforeVote) set @ViewBeforeVote$, "Show Results Before Vote [^0000FFYes^000000]"; else set @ViewBeforeVote$, "Show Results Before Vote [^FF0000No^000000]";
switch (select("Title [^0000FF" + $PollData$[0] + "^000000]","Options [^FF0000" + @TotPollOpts + "^000000]","Duration [^FF0000" + @MenuDuration$ + "^000000]","Prize [^FF0000" + @PollPrize$ + "^000000]","Min. Lvl [^FF0000" + @MinLvL$ + "^000000]","Max. Lvl [^FF0000" + @MaxLvL$ + "^000000]","Max. Global Votes [^FF0000" + @MenuMaxVotes$ + "^000000]",@ViewBeforeVote$,"^FF0000Reset^000000","Back")) {
case 1:
L_PollQuestion:
mes "[^930781Tokumitsu^000000]";
mes "Please input the Poll Title:";
if ($PollData$[0] != "") mes "> Current Title: ^0000FF" + $PollData$[0] + "^000000";
mes " (1 to 70 characters)";
next;
input @PollQuestion$;
if (getstrlen(@PollQuestion$) > 70) {
mes "[^930781Tokumitsu^000000]";
mes "The max length is 70 characters.";
next;
goto L_PollQuestion;
}
if (compare(@PollQuestion$,":")) {
mes "[^930781Tokumitsu^000000]";
mes "Invalid character detected [ ^FF0000:^000000 ]";
next;
goto L_PollQuestion;
}
if (compare(@PollQuestion$,"^")) {
mes "[^930781Tokumitsu^000000]";
mes "Invalid character detected [ ^FF0000^^000000 ]";
next;
goto L_PollQuestion;
}
mes "[^930781Tokumitsu^000000]";
mes "> ^FF0000" + @PollQuestion$ + "^000000 <";
next;
if (select("Confirm","Back") == 2) goto L_PollConfig;
set $PollData$[0],@PollQuestion$;
goto L_PollConfig;
case 2:
L_PollOptions:
mes "[^930781Tokumitsu^000000]";
mes "Select a option to edit / create:";
next;
L_PollOptions2:
set @TotPollOpts, callfunc("CountPollOpts");
if (@TotPollOpts > 1) set @RAO$,"^B13D05Remove All Options^000000"; else set @RAO$,"";
set @opc,select($PollData$[1],$PollData$[3],$PollData$[5],$PollData$[7],$PollData$[9],$PollData$[11],$PollData$[13],$PollData$[15],
$PollData$[17],$PollData$[19],$PollData$[21],$PollData$[23],$PollData$[25],$PollData$[27],$PollData$[29],$PollData$[31],
$PollData$[33],$PollData$[35],$PollData$[37],$PollData$[39],@RAO$,"^FF0000Back^000000");
switch (@opc) {
case 21:
mes "[^930781Tokumitsu^000000]";
mes "Are you sure that you want to clear all Options?";
next;
if (select("No","Yes") == 1) goto L_PollOptions;
cleararray $PollData$[1],"",48;
setarray $PollData$[1],$@NewOption$;
goto L_PollOptions;
case 22:
goto L_PollConfig;
}
L_PollOptions3:
set @pidx, @opc * 2 - 1;
if ($PollData$[@pidx] != $@NewOption$) {
switch (select("^F00000* Back^000000","^0000FF* Edit^000000 (" + $PollData$[@pidx] + ")","^800000* Move Up^000000","^8000E0* Move Down^000000","^FF0000* Delete^000000")) {
case 1: goto L_PollOptions2;
case 2:
mes "[^930781Tokumitsu^000000]";
mes "Current Option:";
mes "> ^0000FF" + $PollData$[@pidx] + "^000000 <";
break;
case 3:
if (@pidx > 1) {
set @NewOption$, $PollData$[@pidx];
set $PollData$[@pidx],$PollData$[@pidx - 2];
set $PollData$[@pidx - 2],@NewOption$;
}
goto L_PollOptions2;
case 4:
if (@pidx < @TotPollOpts * 2 - 1) {
set @NewOption$, $PollData$[@pidx];
set $PollData$[@pidx],$PollData$[@pidx + 2];
set $PollData$[@pidx + 2],@NewOption$;
}
goto L_PollOptions2;
case 5:
set @px,@pidx;
set @mopt,@TotPollOpts * 2;
while (@px < @mopt) {
set $PollData$[@px],$PollData$[@px + 2];
set @px, @px + 2;
}
if ($PollData$[@px - 2] != $@NewOption$)
set $PollData$[@px], $@NewOption$;
else if ($PollData$[@px] == $@NewOption$)
set $PollData$[@px], "";
goto L_PollOptions2;
}
} else {
mes "[^930781Tokumitsu^000000]";
mes "Please input this Option:";
}
next;
input @NewOption$;
if (compare(@NewOption$,":")) {
mes "[^930781Tokumitsu^000000]";
mes "Invalid character detected [ ^FF0000:^000000 ]";
next;
goto L_PollOptions3;
}
if (compare(@NewOption$,"^")) {
mes "[^930781Tokumitsu^000000]";
mes "Invalid character detected [ ^FF0000^^000000 ]";
next;
goto L_PollOptions3;
}
set @pollidx, callfunc("SearchOption",@NewOption$);
if (@pollidx == @opc) goto L_PollOptions;
if (@pollidx) {
mes "[^930781Tokumitsu^000000]";
mes ">> ^FF0000Duplicate option!^000000 <<";
mes "That option already exist in the position #^FF0000" + @pollidx + "^000000.";
next;
goto L_PollOptions3;
}
mes "[^930781Tokumitsu^000000]";
if ($PollData$[@pidx] != $@NewOption$) mes "Previows Option: ^0000FF" + $PollData$[@pidx] + "^000000";
mes "New Option: ^FF0000" + @NewOption$ + "^000000";
next;
if (select("Confirm","Back") == 2) goto L_PollOptions;
set $PollData$[@pidx],@NewOption$;
if ($PollData$[@pidx + 2] == "") {
set $PollData$[@pidx + 2],$@NewOption$;
set $PollData$[@pidx + 3],"0";
}
goto L_PollOptions;
case 3:
L_PollDuration:
mes "[^930781Tokumitsu^000000]";
mes "Select the time unit:";
next;
switch(select("Minutes","Hours","Back")) {
case 1: set @PollDurationType,1;break;
case 2: set @PollDurationType,0;break;
default: goto L_PollConfig;
}
mes "[^930781Tokumitsu^000000]";
if ($PollDurationType) mes "Input the duration of the Poll (minutes):"; else mes "Input the duration of the Poll (hours):";
mes "(0: unlimited)";
next;
input @PollDuration;
if (@PollDuration < 1) {
mes "[^930781Tokumitsu^000000]";
mes "Do you want to set unlimited time to this Poll?";
next;
menu "Unlimited Time",-,"Change",L_PollDuration,"Back",L_PollConfig;
set $PollDuration,0;
set $PollDurationType,0;
} else {
mes "[^930781Tokumitsu^000000]";
if (@PollDurationType) mes "Poll duration: " + @PollDuration + " minute(s)"; else mes "Poll duration: " + @PollDuration + " hour(s)";
next;
menu "Confirm",-,"Change",L_PollDuration,"Back",L_PollConfig;
set $PollDuration,@PollDuration;
set $PollDurationType,@PollDurationType;
}
goto L_PollConfig;
case 4:
L_PollPrizes:
mes "[^930781Tokumitsu^000000]";
mes "Please, select the prize for this Poll:";
next;
set @pprize, select("Base Exp","Job Exp","Zeny","^FF0000No Prizes^000000","^FF0000Back^000000");
if (@pprize == 4) goto L_PollConfig;
switch(@pprize) {
case 1:
L_BLR:
mes "[^930781Tokumitsu^000000]";
mes "Please, input the Base Level Rate for this prize:";
mes " (1-100%, 0: Cancel)";
next;
input @pbl;
if (!@pbl) goto L_PollPrizes;
if (@pbl > 100) {
mes "[^930781Tokumitsu^000000]";
mes "The max amount of Base Level for a Poll Prize is 100%";
next;
goto L_BLR;
}
break;
case 2:
L_JLR:
mes "[^930781Tokumitsu^000000]";
mes "Please, input the Job Level Rate for this prize:";
mes " (1-100%, 0: Cancel)";
next;
input @pbl;
if (!@pbl) goto L_PollPrizes;
if (@pbl > 100) {
mes "[^930781Tokumitsu^000000]";
mes "The max amount of Job Level for a Poll Prize is 100%";
next;
goto L_JLR;
}
break;
case 3:
L_ZEN:
mes "[^930781Tokumitsu^000000]";
mes "Please, input the amount of Zeny for this prize:";
mes " (100-100000, 0: Cancel)";
next;
input @pbl;
if (!@pbl) goto L_PollPrizes;
if (@pbl > 100000) {
mes "[^930781Tokumitsu^000000]";
mes "The max amount of Zeny for a Poll Prize is 100,000z";
next;
goto L_ZEN;
}
break;
case 4:
set $PollPrizeType,@pprize;
set $PollPrizeAmount,@pbl;
set $PollPrizeProb,@pbp;
mes "[^930781Tokumitsu^000000]";
mes "Poll Prize removed!";
next;
default:
goto L_PollConfig;
}
mes "[^930781Tokumitsu^000000]";
switch(@pprize) {
case 1: mes "Prize: ^FF0000" + @pbl + "% of Base Level";break;
case 2: mes "Prize: ^FF0000" + @pbl + "% of Job Level";break;
case 3: mes "Prize: ^FF0000" + @pbl + " of Zeny";break;
}
mes "^000000Please, input the probabilities to win:";
mes "(1-100%, 0: Cancel)";
next;
input @pbp;
if (!@pbp) goto L_PollPrizes;
if (@pbp > 100) set @pbp, 100;
mes "[^930781Tokumitsu^000000]";
switch(@pprize) {
case 1: mes "Prize: ^FF0000" + @pbl + "%^000000 of Base Level";break;
case 2: mes "Prize: ^FF0000" + @pbl + "%^000000 of Job Level";break;
case 3: mes "Prize: ^FF0000" + @pbl + "^000000 of Zeny";break;
}
mes "Probabilities: ^FF0000" + @pbp + "%^000000";
next;
if (select("Confirm","Back") == 2) goto L_PollConfig;
set $PollPrizeType,@pprize;
set $PollPrizeAmount,@pbl;
set $PollPrizeProb,@pbp;
goto L_PollConfig;
case 5:
mes "[^930781Tokumitsu^000000]";
mes "Please, input the minimum Base Level required for Vote:";
mes "(0: All)";
next;
input @minlvl;
mes "[^930781Tokumitsu^000000]";
mes "Minimum level required for Vote: ^FF0000" + @minlvl + "^000000";
next;
if (select("Confirm","Back") == 2) goto L_PollConfig;
set $PollMinLevel,@minlvl;
if ($PollMinLevel && $PollMaxLevel && $PollMinLevel > $PollMaxLevel) {
set @maxlvl,$PollMinLevel;
set $PollMinLevel, $PollMaxLevel;
set $PollMaxLevel, @maxlvl;
}
goto L_PollConfig;
case 6:
mes "[^930781Tokumitsu^000000]";
mes "Please, input the maximum Base Level required for Vote:";
mes "(0: no limit)";
next;
input @maxlvl;
mes "[^930781Tokumitsu^000000]";
mes "Maximum level required for Vote: ^FF0000" + @maxlvl + "^000000";
next;
if (select("Confirm","Back") == 2) goto L_PollConfig;
set $PollMaxLevel,@maxlvl;
if ($PollMinLevel && $PollMaxLevel && $PollMinLevel > $PollMaxLevel) {
set @maxlvl,$PollMinLevel;
set $PollMinLevel, $PollMaxLevel;
set $PollMaxLevel, @maxlvl;
}
goto L_PollConfig;
case 7:
L_PollMaxVotes:
mes "[^930781Tokumitsu^000000]";
mes "Please, input the total votes to count before close the Poll:";
mes "(0: no limit)";
next;
input @PollMaxV;
if (@PollMaxV < 1) {
set @PollMaxV,0;
goto L_PollConfig;
}
mes "[^930781Tokumitsu^000000]";
mes "The Poll will be closed after count " + @PollMaxV + " vote(s)";
next;
menu "Confirm",-,"Change",L_PollMaxVotes,"Back",L_PollConfig;
set $PollMaxVotes,@PollMaxV;
goto L_PollConfig;
case 8:
if ($PollShowBeforeVote) set $PollShowBeforeVote,0; else set $PollShowBeforeVote, 1;
goto L_PollConfig2;
case 9:
mes "[^930781Tokumitsu^000000]";
mes "Are you sure that you want to delete the current Poll configuration?";
next;
if (select("Yes","No") == 1) callfunc "ClearPollData",0;
goto L_PollConfig;
default: goto OnWhisperGlobal;
}
case 2:
mes "[^930781Tokumitsu^000000]";
if ($PollID) {
mes "The Poll is already published.";
next;
goto OnWhisperGlobal;
}
if ($PollData$[0] == "") {
mes "Sorry, you must define the Poll Title with 2 or more options.";
next;
goto OnWhisperGlobal;
}
set @TotPollOpts, callfunc("CountPollOpts");
if (@TotPollOpts < 2) {
mes "Sorry, before publish this Poll create at least 2 options to vote.";
next;
goto OnWhisperGlobal;
}
for (set @px,1; @px < 42; set @px,@px + 2) {
if ($PollData$[@px] == $@NewOption$) set $PollData$[@px],"";
}
if ($PollDuration) {
if ($PollDurationType)
set @MenuDuration$, $PollDuration + " min(s)";
else
set @MenuDuration$, $PollDuration + " hr(s)";
} else set @MenuDuration$, "sin límite";
mes "Title: ^0000FF" + $PollData$[0] + "^000000";
mes "> Duration: ^0000FF" + @MenuDuration$ + "^000000";
mes "^C0C0C0×××××××××××××××××××××××××××××××^000000";
callfunc "DrawPollOption";
next;
if (select("Publish Poll","Back") == 2) goto OnWhisperGlobal;
set $PollInternalID, $PollInternalID + 1;
set $PollID, $PollInternalID;
if ($@UseMySQL) query_sql "insert into poll_main (poll_id,poll_creator,poll_title,poll_started) values (" + $PollID + "," + getcharid(3) + ",'" + escape_sql($PollData$[0]) + "', now())";
set $PollStartDate, gettimetick(2);
announce "New Poll: [" + $PollData$[0] + "], Please Vote!",bc_all;
mes "[^930781Tokumitsu^000000]";
mes "It's done, waiting players votes!";
close;
case 3:
mes "[^930781Tokumitsu^000000]";
if (!$PollID) {
mes "Sorry, there are not a active Poll right now.";
next;
goto OnWhisperGlobal;
}
mes "Title: " + $PollData$[0] + "^000000";
callfunc "DrawPollOption";
next;
if (select("Close Poll","Back") == 2) goto OnWhisperGlobal;
mes "[^930781Tokumitsu^000000]";
mes "Are you sure that you want to close this Poll?";
next;
if (select("No","Yes") == 1) goto OnWhisperGlobal;
if (!$@UseMySQL) {
mes "[^930781Tokumitsu^000000]";
mes "Save the results in the option '^0000FFView Previows Poll^000000'?";
mes " ";
mes "(^FF0000replace Last Poll information^000000)";
next;
switch (select("Save","Don't Save","Back")) {
case 1:callfunc "AutoClosePoll",1;break;
case 2:callfunc "AutoClosePoll",0;break;
default:goto OnWhisperGlobal;
}
} else {
callfunc "AutoClosePoll",0;
}
mes "[^930781Tokumitsu^000000]";
mes "The Poll was Closed!";
next;
goto OnWhisperGlobal;
}
goto L_Exit;
}
function script CountPollOpts {
set @TotPollOpts,0;
for (set @cpox,1; @cpox < 41; set @cpox,@cpox + 2) {
if ($PollData$[@cpox] != "" && $PollData$[@cpox] != $@NewOption$) set @TotPollOpts,@TotPollOpts + 1;
}
return @TotPollOpts;
}
function script CountPollVotes {
set @TotPollOpts,0;
for (set @cpvx,2; @cpvx < 42; set @cpvx,@cpvx + 2) {
if ($PollData$[@cpvx] != "") set @TotPollOpts,@TotPollOpts + atoi($PollData$[@cpvx]);
}
return @TotPollOpts;
}
function script CountOldPollOpts {
set @TotPollOpts,0;
for (set @copox,51; @copox < 91; set @copox,@copox + 2) {
if ($PollData$[@copox] != "" && $PollData$[@cpox] != $@NewOption$) set @TotPollOpts,@TotPollOpts + 1;
}
return @TotPollOpts;
}
function script CountOldPollVotes {
set @TotPollOpts,0;
for (set @copvx,52; @copvx < 92; set @copvx,@copvx + 2) {
if ($PollData$[@copvx] != "") set @TotPollOpts,@TotPollOpts + atoi($PollData$[@copvx]);
}
return @TotPollOpts;
}
function script SearchOption {
for (set @so,1; @so < 42; set @so,@so + 2) {
if ($PollData$[@so] == getarg(0)) return @so / 2 + 1;
}
return 0;
}
function script ClearPollData {
set $PollID, 0;
if (getarg(0)) announce "The Poll [" + $PollData$[0] + "] was closed, thanks for your feedback!",bc_all;
cleararray $PollData$[0],"",49;
setarray $PollData$[1],$@NewOption$;
set $PollDuration,0;
set $PollMinLevel,0;
set $PollMaxLevel,0;
set $PollPrizeType,0;
set $PollPrizeAmount,0;
set $PollPrizeProb,0;
set $PollMaxVotes,0;
return;
}
function script DrawPollOption {
set @TotPollVotes, callfunc("CountPollVotes");
for (set @dpox,1; @dpox < 42; set @dpox,@dpox + 2) {
if ($PollData$[@dpox] != "") {
set @DPVotes,atoi($PollData$[@dpox + 1]);
mes (@dpox / 2 + 1) + ". ^FF9C01" + $PollData$[@dpox];
if (@DPVotes) set @pct,21 * (@DPVotes * 100 / @TotPollVotes) / 100; else set @pct,0;
set @DPOLine$,"^FF0000";
for (set @DPO,0; @DPO < 21; set @DPO, @DPO + 1) {
if (@DPO < @pct) {
set @DPOLine$,@DPOLine$ + "¤";
} else {
if (@DPO - 1 < @pct) set @DPOLine$,@DPOLine$ + "^DCDCDC";
set @DPOLine$,@DPOLine$ + "¤";
}
}
mes @DPOLine$ + "^000000 ^DC883E[" + @DPVotes + " vote(s)]^000000";
}
}
return;
}
function script DrawLastPoll {
set @TotPollVotes, callfunc("CountOldPollVotes");
mes "^0000FF" + $PollData$[50] + "^000000";
mes " ^25B54C(Total Votes: " + @TotPollVotes + ")^000000";
mes " (^FF0000Closed^000000)";
mes "^C0C0C0×××××××××××××××××××××××××××××××^000000";
for (set @dlpx,51; @dlpx < 90; set @dlpx,@dlpx + 2) {
if ($PollData$[@dlpx] != "") {
set @DPVotes,atoi($PollData$[@dlpx + 1]);
mes ((@dlpx - 50) / 2 + 1) + ". ^FF9C01" + $PollData$[@dlpx];
if (@DPVotes) set @pct,21 * (@DPVotes * 100 / @TotPollVotes) / 100; else set @pct,0;
set @DPOLine$,"^F0AF00";
for (set @DPO,0; @DPO < 21; set @DPO, @DPO + 1) {
if (@DPO < @pct) {
set @DPOLine$,@DPOLine$ + "¤";
} else {
if (@DPO - 1 < @pct) set @DPOLine$,@DPOLine$ + "^DCDCDC";
set @DPOLine$,@DPOLine$ + "¤";
}
}
mes @DPOLine$ + "^000000 ^DC883E[" + @DPVotes + " votes]^000000";
}
}
return;
}
function script AutoClosePoll {
cleararray $PollData$[50],"",77;
if ($@UseMySQL) {
for (set .acpx,1; .acpx < 42; set .acpx,.acpx + 2) {
if ($PollData$[.acpx] != "") query_sql "insert into `poll_options` (`poll_id`,`poll_text`,`poll_votes`) values (" + $PollID + ",'" + escape_sql($PollData$[.acpx]) + "'," + atoi($PollData$[.acpx + 1]) + ")";
}
query_sql "update `poll_main` set `poll_finished` = now(), `poll_status` = 1";
}
if (getarg(0)) {
for (set .acpx,0; .acpx < 42; set .acpx,.acpx + 1) {
set $PollData$[.acpx + 50],$PollData$[.acpx];
}
set $LastPollID,$PollID;
}
callfunc "ClearPollData",1;
return;
}
function script ShowOldPoll {
deletearray .@polltext$[0],128;
deletearray .@pollvotes[0],128;
mes "[^0000FFPoll Details^000000]";
mes "Title: ^0000FF" + getarg(1) + "^000000";
mes "> Total Votes: ^FF0000" + getarg(4) + "^000000";
mes "> ^930781" + getarg(2) + " to " + getarg(3) + "^000000";
mes "(^FF0000sorted by votes^000000)";
mes "^C0C0C0×××××××××××××××××××××××××××××××^000000";
set .@totopts, query_sql("select `poll_text`, `poll_votes` from `poll_options` where `poll_id` = " + getarg(0) + " order by `poll_votes` desc",.@polltext$,.@pollvotes);
for (set .@x,0; .@x < .@totopts; set .@x, .@x + 1) {
mes (.@x + 1) + ". ^0000FF" + .@polltext$[.@x] + "^000000";
if (.@pollvotes[.@x]) set @pct,21 * (.@pollvotes[.@x] * 100 / getarg(4)) / 100; else set @pct,0;
set @SOPLine$,"^F0AF00";
for (set @SOP,0; @SOP < 21; set @SOP, @SOP + 1) {
if (@SOP < @pct) {
set @SOPLine$,@SOPLine$ + "¤";
} else {
if (@SOP - 1 < @pct) set @SOPLine$,@SOPLine$ + "^DCDCDC";
set @SOPLine$,@SOPLine$ + "¤";
}
}
mes @SOPLine$ + "^000000 ^DC883E[" + .@pollvotes[.@x] + " votes]^000000";
}
next;
return;
}
// Duplicates
prontera,155,176,4 duplicate(Poll) Please Vote#1 831,7,7
Question
darking123
when i try to close the vote poll this is the message from the server
here is my code
// -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- \\ // Poll System 1.1 \\ // For eAthena TXT/SQL \\ // (c) 2007, by Myzter (Raff - Pow4Ever.com) \\ // -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- \\ // - CHANGELOG \\ // -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- \\ // Ver. 1.0 [09-15-2007]: First public version \\ // Ver. 1.1 [09-20-2007]: Added tables to save results on eAthena MySQL \\ // Automatic TXT / SQL detection [with table creation] \\ // Show/hide results before voting [Lupus suggestion] \\ // -o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o-o- \\ - script PollInternal -1,{ OnInit: // Text for Add Option menu - don't remove color set $@NewOption$, "^1010FF<Add Option>^000000"; // MySQL Parameters - Only for eAthena MySQL Servers set $@PollPageSize, 3; // Paging Size (max: 125) set $@TimeFormat$, "%M %d, %Y %k:%i"; // September 20, 2007 14:20 // Other formats: [%m/%d/%Y %k:%i = 09/20/2007 14:20] [%d/%m/%Y %k:%i = 20/09/2007 14:20] // MySQL Auto-Detection set .MyExist, query_sql("select version()"); if (.MyExist < 0) { set $@UseMySQL,0; debugmes "Poll System working on TXT Mode"; } else { set $@UseMySQL,1; debugmes "Poll System working on SQL Mode"; } // First Time Initialization if (!$LastPollID && !$PollID) { cleararray $PollData$[0],"",128; set $PollData$[1],$@NewOption$; } // Table checking / creation if ($@UseMySQL == 1) { if ($@PollPageSize > 125) set $@PollPageSize, 125; set $@UseMySQL,2; // Don't ask why i'm doing this query_sql "show tables like 'poll_main'",.PollTable$; if (.PollTable$[0] == "") { debugmes "Poll System - Creating table `poll_main`"; query_sql "CREATE TABLE `poll_main` (`poll_id` int(11) unsigned NOT NULL,`poll_creator` int(11) unsigned NOT NULL,`poll_title` varchar(70) NOT NULL,`poll_started` datetime NOT NULL,`poll_finished` datetime default NULL,`poll_status` tinyint(1) unsigned default '0', PRIMARY KEY (`poll_id`)) ENGINE=MyISAM;"; } deletearray .PollTable$[0],1; query_sql "show tables like 'poll_options'",.PollTable$; if (.PollTable$[0] == "") { debugmes "Poll System - Creating table `poll_options`"; query_sql "CREATE TABLE `poll_options` ( `poll_id` int(11) unsigned NOT NULL default '0',`poll_text` varchar(70) NOT NULL, `poll_votes` int(11) default '0' ) ENGINE=MyISAM;"; } } // The script will continue on OnTimerXXXXX to start the timer OnTimer30000: // Check every 30 seconds initnpctimer; if (!$PollID || !$PollDuration) end; // Static Counter - VERY HELPFUL (Current Time - Started Time >= Wanted Time) if ($PollDurationType) if ((gettimetick(2) - $PollStartDate) / 60 >= $PollDuration) callfunc "AutoClosePoll",1; else if ((gettimetick(2) - $PollStartDate) / 3600 >= $PollDuration) callfunc "AutoClosePoll,1"; end; } - script Poll -1,{ if ($@NewOption$ == "") goto OnInit; mes "[^930781Tokumitsu^000000]"; if (!$PollID && !$LastPollID) { mes "Hi " + strcharinfo(0) + ", this is a nice day to play RO."; close; } if ($@UseMySQL) set @ViewHistoryPolls$,"^626200View Old Polls^000000"; else set @ViewHistoryPolls$,"View Previows Poll"; if ($PollID) { if (#LastPollID != $PollID) { if (($PollMinLevel && BaseLevel < $PollMinLevel) || ($PollMaxLevel && BaseLevel > $PollMaxLevel)) { mes "Sorry " + strcharinfo(0) + ", your character don't meet the requirements for voting."; mes " "; if ($PollMinLevel) mes "> ^FF0000Minimum level: ^FF0000" + $PollMinLevel + "^000000"; if ($PollMaxLevel) mes "> ^FF0000Maximum level: ^FF0000" + $PollMaxLevel + "^000000"; close; } mes "Hi " + strcharinfo(0) + ", please vote."; switch ($PollPrizeType) { case 1: mes "> Prize: ^FF0000+" + $PollPrizeAmount + "%^000000 Base Level"; mes "> Chance: ^FF0000" + $PollPrizeProb + "%^000000"; break; case 2: mes "> Prize: ^FF0000+" + $PollPrizeAmount + "%^000000 Job Level"; mes "> Chance: ^FF0000" + $PollPrizeProb + "%^000000"; break; case 3: mes "> Prize: ^FF0000" + $PollPrizeAmount + "z^000000"; mes "> Chance: ^FF0000" + $PollPrizeProb + "%^000000"; } mes " "; mes " (1 vote x account)"; if ($LastPollID) set @MainMenu$, "^0000F0Vote^000000:" + @ViewHistoryPolls$ + ":^FF0000Exit^000000"; else set @MainMenu$, "^0000F0Vote^000000::^FF0000Exit^000000"; } else { mes "Hi " + strcharinfo(0) + ", may i help you?"; if ($LastPollID) set @MainMenu$, "^F00000View Current Poll^000000:" + @ViewHistoryPolls$ + ":^FF0000Exit^000000"; else set @MainMenu$, "^F00000View Current Poll^000000::^FF0000Exit^000000"; } } else { mes "Hi " + strcharinfo(0) + ", may i help you?"; set @MainMenu$, ":" + @ViewHistoryPolls$ + ":^FF0000Exit^000000"; } emotion e_no1; next; switch (select(@MainMenu$)) { case 1: goto L_Poll; case 2: if ($@UseMySQL) goto L_OldPolls; else { callfunc "DrawLastPoll"; close; } } L_Exit: mes "[^930781Tokumitsu^000000]"; mes "I hope to see you again ^^"; close; L_PollClosed: mes "[^930781Tokumitsu^000000]"; mes "Oh sorry, the Poll is closed."; close; L_Poll: if (!$PollID) goto L_PollClosed; set @TotPollOpts, callfunc("CountPollOpts"); set @TotPollVotes, callfunc("CountPollVotes"); mes "^0000FF" + $PollData$[0] + "^000000"; mes " ^25B54C(Total Votes: " + @TotPollVotes + ")^000000"; if ($PollShowBeforeVote || #LastPollID == $PollID) { mes "^C0C0C0×××××××××××××××××××××××××××××××^000000"; callfunc "DrawPollOption"; } if (#LastPollID != $PollID) { next; set @opc,select($PollData$[1],$PollData$[3],$PollData$[5],$PollData$[7],$PollData$[9],$PollData$[11],$PollData$[13],$PollData$[15], $PollData$[17],$PollData$[19],$PollData$[21],$PollData$[23],$PollData$[25],$PollData$[27],$PollData$[29],$PollData$[31], $PollData$[33],$PollData$[35],$PollData$[37],$PollData$[39],"^FF0000Exit^000000"); if (@opc == 21) goto L_Exit; mes "[^930781Tokumitsu^000000]"; mes "Selected Option:"; mes " >^0000FF" + $PollData$[@opc * 2 - 1] + "^000000 <"; next; if (select("^0000FFConfirm!^000000","^FF0000Change Option^000000") == 2) goto L_Poll; if (!$PollID) goto L_PollClosed; set #LastPollID,$PollID; set @PollVotes, atoi($PollData$[@opc * 2]) + 1; set $PollData$[@opc * 2], @PollVotes; mes "[^930781Tokumitsu^000000]"; if ($PollPrizeType) { if ($PollPrizeProb < 100) { mes "Please, press <Next> to check your prize:"; mes " "; mes "^FF0000I hope you win!^000000"; next; mes "[^930781Tokumitsu^000000]"; } if (rand(100) <= $PollPrizeProb) { soundeffect "tming_success.wav",0; specialeffect2 610; emotion e_grat; mes "Congratulations!!!"; switch ($PollPrizeType) { case 1: set BaseExp, BaseExp + ((NextBaseExp / 100) * $PollPrizeAmount / 100) * 100; mes "You Win: ^FF0000+" + $PollPrizeAmount + "%^000000 Base Level"; break; case 2: set JobExp, JobExp + ((NextJobExp / 100) * $PollPrizeAmount / 100) * 100; mes "You Win: ^FF0000+" + $PollPrizeAmount + "%^000000 Job Level"; break; default: set Zeny, Zeny + $PollPrizeAmount; mes "You Win: ^FF0000+" + $PollPrizeAmount + "z^000000"; } } else { soundeffect "goat_die.wav",0; specialeffect2 611; emotion e_sry; mes "Sorry " + strcharinfo(0) + ", i hope you win the next time!"; mes " "; mes "Thank's for your Vote."; } } else { mes "Thanks for your vote " + strcharinfo(0) + "!"; } if (!$PollShowBeforeVote) { next; mes "^0000FF" + $PollData$[0] + "^000000"; mes " ^25B54C(Total Votes: " + (@TotPollVotes + 1) + ")^000000"; if ($PollShowBeforeVote || #LastPollID == $PollID) { mes "^C0C0C0×××××××××××××××××××××××××××××××^000000"; callfunc "DrawPollOption"; } } } if ($PollMaxVotes && @PollVotes >= $PollMaxVotes) callfunc "AutoClosePoll",1; close; L_OldPolls: deletearray @pollcount[0],128; query_sql "select count(*) from poll_main where poll_status = 1",@pollcount; if (!@pollcount[0]) { mes "[^930781Poll History^000000]"; mes "Sorry, there are not Old Polls to view."; close; } set @ototpages, (@pollcount[0] - 1) / $@PollPageSize; set @opage, 1; while (1) { cleararray @opollid[0],0,128; cleararray @opolltit$[0],"",128; cleararray @opollstart$[0],0,128; cleararray @opollfinish$[0],0,128; cleararray @opolltot[0],0,128; set @pindex, @opage * $@PollPageSize - $@PollPageSize; set @cnt, query_sql("select a.poll_id, poll_title, date_format(poll_started,'" + $@TimeFormat$ + "'), date_format(poll_finished,'" + $@TimeFormat$ + "'), (select sum(poll_votes) from poll_options b where b.poll_id = a.poll_id) from poll_main a where poll_status = 1 order by poll_title limit " + @pindex + "," + $@PollPageSize,@opollid,@opolltit$,@opollstart$,@opollfinish$,@opolltot); mes "[^930781Old Polls Page " + @opage + "^000000]"; mes "Select a Poll to view the details."; next; if (@ototpages > 0 && @opage < @ototpages + 1) set @EndMenu$, "^0000FF> Next Page^000000:"; else set @EndMenu$, ":"; if (@opage > 1) set @EndMenu$, @EndMenu$ + "^0000FF< Previows Page^000000:^FF0000Exit^000000"; else set @EndMenu$, @EndMenu$ + ":^FF0000Exit^000000"; set @opc, select( @opolltit$[0], @opolltit$[1], @opolltit$[2], @opolltit$[3], @opolltit$[4], @opolltit$[5], @opolltit$[6], @opolltit$[7], @opolltit$[8], @opolltit$[9], @opolltit$[10], @opolltit$[11], @opolltit$[12], @opolltit$[13], @opolltit$[14], @opolltit$[15], @opolltit$[16], @opolltit$[17], @opolltit$[18], @opolltit$[19], @opolltit$[20], @opolltit$[21], @opolltit$[22], @opolltit$[23], @opolltit$[24], @opolltit$[25], @opolltit$[26], @opolltit$[27], @opolltit$[28], @opolltit$[29], @opolltit$[30], @opolltit$[31], @opolltit$[32], @opolltit$[33], @opolltit$[34], @opolltit$[35], @opolltit$[36], @opolltit$[37], @opolltit$[38], @opolltit$[39], @opolltit$[40], @opolltit$[41], @opolltit$[42], @opolltit$[43], @opolltit$[44], @opolltit$[45], @opolltit$[46], @opolltit$[47], @opolltit$[48], @opolltit$[49], @opolltit$[50], @opolltit$[51], @opolltit$[52], @opolltit$[53], @opolltit$[54], @opolltit$[55], @opolltit$[56], @opolltit$[57], @opolltit$[58], @opolltit$[59], @opolltit$[60], @opolltit$[61], @opolltit$[62], @opolltit$[63], @opolltit$[64], @opolltit$[65], @opolltit$[66], @opolltit$[67], @opolltit$[68], @opolltit$[69], @opolltit$[70], @opolltit$[71], @opolltit$[72], @opolltit$[73], @opolltit$[74], @opolltit$[75], @opolltit$[76], @opolltit$[77], @opolltit$[78], @opolltit$[79], @opolltit$[80], @opolltit$[81], @opolltit$[82], @opolltit$[83], @opolltit$[84], @opolltit$[85], @opolltit$[86], @opolltit$[87], @opolltit$[88], @opolltit$[89], @opolltit$[90], @opolltit$[91], @opolltit$[92], @opolltit$[93], @opolltit$[94], @opolltit$[95], @opolltit$[96], @opolltit$[97], @opolltit$[98], @opolltit$[99],@opolltit$[100],@opolltit$[101],@opolltit$[102],@opolltit$[103],@opolltit$[104], @opolltit$[105],@opolltit$[106],@opolltit$[107],@opolltit$[108],@opolltit$[109],@opolltit$[110],@opolltit$[111], @opolltit$[112],@opolltit$[113],@opolltit$[114],@opolltit$[115],@opolltit$[116],@opolltit$[117],@opolltit$[118], @opolltit$[119],@opolltit$[120],@opolltit$[121],@opolltit$[122],@opolltit$[123],@opolltit$[124],@EndMenu$); if (@opc < 126) { callfunc "ShowOldPoll",@opollid[@opc - 1],@opolltit$[@opc - 1],@opollstart$[@opc - 1],@opollfinish$[@opc - 1],@opolltot[@opc - 1]; if (select("Back","^FF0000Exit^000000") == 2) goto L_Exit; } else { switch (@opc) { case 126: set @opage, @opage + 1; break; case 127: set @opage, @opage - 1; break; case 128: goto L_Exit; } } } OnTouch: if (($PollID && #LastPollID != $PollID) && (($PollMinLevel && BaseLevel >= $PollMinLevel) || !$PollMinLevel) && (($PollMaxLevel && BaseLevel <= $PollMaxLevel) || !$PollMaxLevel) && !rand(5)) { emotion e_com; npctalk "Hi " + strcharinfo(0) + ", can you help me please?, it's free!"; } end; OnWhisperGlobal: if (getgmlevel() < 99) end; if (@whispervar0$ == "reset") { set #LastPollID,0; dispbottom "Now you can vote again in this Poll."; end; } mes "[^930781Tokumitsu^000000]"; mes "Hi Master, what can i do for you?"; next; if ($PollID) set @MainMenu$,"::Close Poll:^FF0000Exit^000000"; else set @MainMenu$,"Configure Poll:Publish Poll::^FF0000Exit^000000"; switch(select(@MainMenu$)) { case 1: L_PollConfig: mes "[^930781Tokumitsu^000000]"; if ($PollID) { mes "I'm sorry, you must close the current Poll before try to edit them or create a new one."; next; goto OnWhisperGlobal; } mes "Configure your Poll:"; next; L_PollConfig2: set @TotPollOpts, callfunc("CountPollOpts"); if ($PollMinLevel) set @MinLvL$,"Level " + $PollMinLevel; else set @MinLvL$,"no limit"; if ($PollMaxLevel) set @MaxLvL$,"Level " + $PollMaxLevel; else set @MaxLvL$,"no limit"; switch ($PollPrizeType) { case 1: set @PollPrize$,"Base Level (" + $PollPrizeAmount + "%/" + $PollPrizeProb + "%)";break; case 2: set @PollPrize$,"Job Level (" + $PollPrizeAmount + "%/" + $PollPrizeProb + "%)";break; case 3: set @PollPrize$,"Zeny (" + $PollPrizeAmount + "z/" + $PollPrizeProb + "%)";break; default: set @PollPrize$,"none"; } if ($PollDuration) { if ($PollDurationType) set @MenuDuration$, $PollDuration + " min(s)"; else set @MenuDuration$, $PollDuration + " hr(s)"; } else set @MenuDuration$, "no limit"; if ($PollMaxVotes) set @MenuMaxVotes$, $PollMaxVotes + ""; else set @MenuMaxVotes$, "unlimited"; if ($PollShowBeforeVote) set @ViewBeforeVote$, "Show Results Before Vote [^0000FFYes^000000]"; else set @ViewBeforeVote$, "Show Results Before Vote [^FF0000No^000000]"; switch (select("Title [^0000FF" + $PollData$[0] + "^000000]","Options [^FF0000" + @TotPollOpts + "^000000]","Duration [^FF0000" + @MenuDuration$ + "^000000]","Prize [^FF0000" + @PollPrize$ + "^000000]","Min. Lvl [^FF0000" + @MinLvL$ + "^000000]","Max. Lvl [^FF0000" + @MaxLvL$ + "^000000]","Max. Global Votes [^FF0000" + @MenuMaxVotes$ + "^000000]",@ViewBeforeVote$,"^FF0000Reset^000000","Back")) { case 1: L_PollQuestion: mes "[^930781Tokumitsu^000000]"; mes "Please input the Poll Title:"; if ($PollData$[0] != "") mes "> Current Title: ^0000FF" + $PollData$[0] + "^000000"; mes " (1 to 70 characters)"; next; input @PollQuestion$; if (getstrlen(@PollQuestion$) > 70) { mes "[^930781Tokumitsu^000000]"; mes "The max length is 70 characters."; next; goto L_PollQuestion; } if (compare(@PollQuestion$,":")) { mes "[^930781Tokumitsu^000000]"; mes "Invalid character detected [ ^FF0000:^000000 ]"; next; goto L_PollQuestion; } if (compare(@PollQuestion$,"^")) { mes "[^930781Tokumitsu^000000]"; mes "Invalid character detected [ ^FF0000^^000000 ]"; next; goto L_PollQuestion; } mes "[^930781Tokumitsu^000000]"; mes "> ^FF0000" + @PollQuestion$ + "^000000 <"; next; if (select("Confirm","Back") == 2) goto L_PollConfig; set $PollData$[0],@PollQuestion$; goto L_PollConfig; case 2: L_PollOptions: mes "[^930781Tokumitsu^000000]"; mes "Select a option to edit / create:"; next; L_PollOptions2: set @TotPollOpts, callfunc("CountPollOpts"); if (@TotPollOpts > 1) set @RAO$,"^B13D05Remove All Options^000000"; else set @RAO$,""; set @opc,select($PollData$[1],$PollData$[3],$PollData$[5],$PollData$[7],$PollData$[9],$PollData$[11],$PollData$[13],$PollData$[15], $PollData$[17],$PollData$[19],$PollData$[21],$PollData$[23],$PollData$[25],$PollData$[27],$PollData$[29],$PollData$[31], $PollData$[33],$PollData$[35],$PollData$[37],$PollData$[39],@RAO$,"^FF0000Back^000000"); switch (@opc) { case 21: mes "[^930781Tokumitsu^000000]"; mes "Are you sure that you want to clear all Options?"; next; if (select("No","Yes") == 1) goto L_PollOptions; cleararray $PollData$[1],"",48; setarray $PollData$[1],$@NewOption$; goto L_PollOptions; case 22: goto L_PollConfig; } L_PollOptions3: set @pidx, @opc * 2 - 1; if ($PollData$[@pidx] != $@NewOption$) { switch (select("^F00000* Back^000000","^0000FF* Edit^000000 (" + $PollData$[@pidx] + ")","^800000* Move Up^000000","^8000E0* Move Down^000000","^FF0000* Delete^000000")) { case 1: goto L_PollOptions2; case 2: mes "[^930781Tokumitsu^000000]"; mes "Current Option:"; mes "> ^0000FF" + $PollData$[@pidx] + "^000000 <"; break; case 3: if (@pidx > 1) { set @NewOption$, $PollData$[@pidx]; set $PollData$[@pidx],$PollData$[@pidx - 2]; set $PollData$[@pidx - 2],@NewOption$; } goto L_PollOptions2; case 4: if (@pidx < @TotPollOpts * 2 - 1) { set @NewOption$, $PollData$[@pidx]; set $PollData$[@pidx],$PollData$[@pidx + 2]; set $PollData$[@pidx + 2],@NewOption$; } goto L_PollOptions2; case 5: set @px,@pidx; set @mopt,@TotPollOpts * 2; while (@px < @mopt) { set $PollData$[@px],$PollData$[@px + 2]; set @px, @px + 2; } if ($PollData$[@px - 2] != $@NewOption$) set $PollData$[@px], $@NewOption$; else if ($PollData$[@px] == $@NewOption$) set $PollData$[@px], ""; goto L_PollOptions2; } } else { mes "[^930781Tokumitsu^000000]"; mes "Please input this Option:"; } next; input @NewOption$; if (compare(@NewOption$,":")) { mes "[^930781Tokumitsu^000000]"; mes "Invalid character detected [ ^FF0000:^000000 ]"; next; goto L_PollOptions3; } if (compare(@NewOption$,"^")) { mes "[^930781Tokumitsu^000000]"; mes "Invalid character detected [ ^FF0000^^000000 ]"; next; goto L_PollOptions3; } set @pollidx, callfunc("SearchOption",@NewOption$); if (@pollidx == @opc) goto L_PollOptions; if (@pollidx) { mes "[^930781Tokumitsu^000000]"; mes ">> ^FF0000Duplicate option!^000000 <<"; mes "That option already exist in the position #^FF0000" + @pollidx + "^000000."; next; goto L_PollOptions3; } mes "[^930781Tokumitsu^000000]"; if ($PollData$[@pidx] != $@NewOption$) mes "Previows Option: ^0000FF" + $PollData$[@pidx] + "^000000"; mes "New Option: ^FF0000" + @NewOption$ + "^000000"; next; if (select("Confirm","Back") == 2) goto L_PollOptions; set $PollData$[@pidx],@NewOption$; if ($PollData$[@pidx + 2] == "") { set $PollData$[@pidx + 2],$@NewOption$; set $PollData$[@pidx + 3],"0"; } goto L_PollOptions; case 3: L_PollDuration: mes "[^930781Tokumitsu^000000]"; mes "Select the time unit:"; next; switch(select("Minutes","Hours","Back")) { case 1: set @PollDurationType,1;break; case 2: set @PollDurationType,0;break; default: goto L_PollConfig; } mes "[^930781Tokumitsu^000000]"; if ($PollDurationType) mes "Input the duration of the Poll (minutes):"; else mes "Input the duration of the Poll (hours):"; mes "(0: unlimited)"; next; input @PollDuration; if (@PollDuration < 1) { mes "[^930781Tokumitsu^000000]"; mes "Do you want to set unlimited time to this Poll?"; next; menu "Unlimited Time",-,"Change",L_PollDuration,"Back",L_PollConfig; set $PollDuration,0; set $PollDurationType,0; } else { mes "[^930781Tokumitsu^000000]"; if (@PollDurationType) mes "Poll duration: " + @PollDuration + " minute(s)"; else mes "Poll duration: " + @PollDuration + " hour(s)"; next; menu "Confirm",-,"Change",L_PollDuration,"Back",L_PollConfig; set $PollDuration,@PollDuration; set $PollDurationType,@PollDurationType; } goto L_PollConfig; case 4: L_PollPrizes: mes "[^930781Tokumitsu^000000]"; mes "Please, select the prize for this Poll:"; next; set @pprize, select("Base Exp","Job Exp","Zeny","^FF0000No Prizes^000000","^FF0000Back^000000"); if (@pprize == 4) goto L_PollConfig; switch(@pprize) { case 1: L_BLR: mes "[^930781Tokumitsu^000000]"; mes "Please, input the Base Level Rate for this prize:"; mes " (1-100%, 0: Cancel)"; next; input @pbl; if (!@pbl) goto L_PollPrizes; if (@pbl > 100) { mes "[^930781Tokumitsu^000000]"; mes "The max amount of Base Level for a Poll Prize is 100%"; next; goto L_BLR; } break; case 2: L_JLR: mes "[^930781Tokumitsu^000000]"; mes "Please, input the Job Level Rate for this prize:"; mes " (1-100%, 0: Cancel)"; next; input @pbl; if (!@pbl) goto L_PollPrizes; if (@pbl > 100) { mes "[^930781Tokumitsu^000000]"; mes "The max amount of Job Level for a Poll Prize is 100%"; next; goto L_JLR; } break; case 3: L_ZEN: mes "[^930781Tokumitsu^000000]"; mes "Please, input the amount of Zeny for this prize:"; mes " (100-100000, 0: Cancel)"; next; input @pbl; if (!@pbl) goto L_PollPrizes; if (@pbl > 100000) { mes "[^930781Tokumitsu^000000]"; mes "The max amount of Zeny for a Poll Prize is 100,000z"; next; goto L_ZEN; } break; case 4: set $PollPrizeType,@pprize; set $PollPrizeAmount,@pbl; set $PollPrizeProb,@pbp; mes "[^930781Tokumitsu^000000]"; mes "Poll Prize removed!"; next; default: goto L_PollConfig; } mes "[^930781Tokumitsu^000000]"; switch(@pprize) { case 1: mes "Prize: ^FF0000" + @pbl + "% of Base Level";break; case 2: mes "Prize: ^FF0000" + @pbl + "% of Job Level";break; case 3: mes "Prize: ^FF0000" + @pbl + " of Zeny";break; } mes "^000000Please, input the probabilities to win:"; mes "(1-100%, 0: Cancel)"; next; input @pbp; if (!@pbp) goto L_PollPrizes; if (@pbp > 100) set @pbp, 100; mes "[^930781Tokumitsu^000000]"; switch(@pprize) { case 1: mes "Prize: ^FF0000" + @pbl + "%^000000 of Base Level";break; case 2: mes "Prize: ^FF0000" + @pbl + "%^000000 of Job Level";break; case 3: mes "Prize: ^FF0000" + @pbl + "^000000 of Zeny";break; } mes "Probabilities: ^FF0000" + @pbp + "%^000000"; next; if (select("Confirm","Back") == 2) goto L_PollConfig; set $PollPrizeType,@pprize; set $PollPrizeAmount,@pbl; set $PollPrizeProb,@pbp; goto L_PollConfig; case 5: mes "[^930781Tokumitsu^000000]"; mes "Please, input the minimum Base Level required for Vote:"; mes "(0: All)"; next; input @minlvl; mes "[^930781Tokumitsu^000000]"; mes "Minimum level required for Vote: ^FF0000" + @minlvl + "^000000"; next; if (select("Confirm","Back") == 2) goto L_PollConfig; set $PollMinLevel,@minlvl; if ($PollMinLevel && $PollMaxLevel && $PollMinLevel > $PollMaxLevel) { set @maxlvl,$PollMinLevel; set $PollMinLevel, $PollMaxLevel; set $PollMaxLevel, @maxlvl; } goto L_PollConfig; case 6: mes "[^930781Tokumitsu^000000]"; mes "Please, input the maximum Base Level required for Vote:"; mes "(0: no limit)"; next; input @maxlvl; mes "[^930781Tokumitsu^000000]"; mes "Maximum level required for Vote: ^FF0000" + @maxlvl + "^000000"; next; if (select("Confirm","Back") == 2) goto L_PollConfig; set $PollMaxLevel,@maxlvl; if ($PollMinLevel && $PollMaxLevel && $PollMinLevel > $PollMaxLevel) { set @maxlvl,$PollMinLevel; set $PollMinLevel, $PollMaxLevel; set $PollMaxLevel, @maxlvl; } goto L_PollConfig; case 7: L_PollMaxVotes: mes "[^930781Tokumitsu^000000]"; mes "Please, input the total votes to count before close the Poll:"; mes "(0: no limit)"; next; input @PollMaxV; if (@PollMaxV < 1) { set @PollMaxV,0; goto L_PollConfig; } mes "[^930781Tokumitsu^000000]"; mes "The Poll will be closed after count " + @PollMaxV + " vote(s)"; next; menu "Confirm",-,"Change",L_PollMaxVotes,"Back",L_PollConfig; set $PollMaxVotes,@PollMaxV; goto L_PollConfig; case 8: if ($PollShowBeforeVote) set $PollShowBeforeVote,0; else set $PollShowBeforeVote, 1; goto L_PollConfig2; case 9: mes "[^930781Tokumitsu^000000]"; mes "Are you sure that you want to delete the current Poll configuration?"; next; if (select("Yes","No") == 1) callfunc "ClearPollData",0; goto L_PollConfig; default: goto OnWhisperGlobal; } case 2: mes "[^930781Tokumitsu^000000]"; if ($PollID) { mes "The Poll is already published."; next; goto OnWhisperGlobal; } if ($PollData$[0] == "") { mes "Sorry, you must define the Poll Title with 2 or more options."; next; goto OnWhisperGlobal; } set @TotPollOpts, callfunc("CountPollOpts"); if (@TotPollOpts < 2) { mes "Sorry, before publish this Poll create at least 2 options to vote."; next; goto OnWhisperGlobal; } for (set @px,1; @px < 42; set @px,@px + 2) { if ($PollData$[@px] == $@NewOption$) set $PollData$[@px],""; } if ($PollDuration) { if ($PollDurationType) set @MenuDuration$, $PollDuration + " min(s)"; else set @MenuDuration$, $PollDuration + " hr(s)"; } else set @MenuDuration$, "sin límite"; mes "Title: ^0000FF" + $PollData$[0] + "^000000"; mes "> Duration: ^0000FF" + @MenuDuration$ + "^000000"; mes "^C0C0C0×××××××××××××××××××××××××××××××^000000"; callfunc "DrawPollOption"; next; if (select("Publish Poll","Back") == 2) goto OnWhisperGlobal; set $PollInternalID, $PollInternalID + 1; set $PollID, $PollInternalID; if ($@UseMySQL) query_sql "insert into poll_main (poll_id,poll_creator,poll_title,poll_started) values (" + $PollID + "," + getcharid(3) + ",'" + escape_sql($PollData$[0]) + "', now())"; set $PollStartDate, gettimetick(2); announce "New Poll: [" + $PollData$[0] + "], Please Vote!",bc_all; mes "[^930781Tokumitsu^000000]"; mes "It's done, waiting players votes!"; close; case 3: mes "[^930781Tokumitsu^000000]"; if (!$PollID) { mes "Sorry, there are not a active Poll right now."; next; goto OnWhisperGlobal; } mes "Title: " + $PollData$[0] + "^000000"; callfunc "DrawPollOption"; next; if (select("Close Poll","Back") == 2) goto OnWhisperGlobal; mes "[^930781Tokumitsu^000000]"; mes "Are you sure that you want to close this Poll?"; next; if (select("No","Yes") == 1) goto OnWhisperGlobal; if (!$@UseMySQL) { mes "[^930781Tokumitsu^000000]"; mes "Save the results in the option '^0000FFView Previows Poll^000000'?"; mes " "; mes "(^FF0000replace Last Poll information^000000)"; next; switch (select("Save","Don't Save","Back")) { case 1:callfunc "AutoClosePoll",1;break; case 2:callfunc "AutoClosePoll",0;break; default:goto OnWhisperGlobal; } } else { callfunc "AutoClosePoll",0; } mes "[^930781Tokumitsu^000000]"; mes "The Poll was Closed!"; next; goto OnWhisperGlobal; } goto L_Exit; } function script CountPollOpts { set @TotPollOpts,0; for (set @cpox,1; @cpox < 41; set @cpox,@cpox + 2) { if ($PollData$[@cpox] != "" && $PollData$[@cpox] != $@NewOption$) set @TotPollOpts,@TotPollOpts + 1; } return @TotPollOpts; } function script CountPollVotes { set @TotPollOpts,0; for (set @cpvx,2; @cpvx < 42; set @cpvx,@cpvx + 2) { if ($PollData$[@cpvx] != "") set @TotPollOpts,@TotPollOpts + atoi($PollData$[@cpvx]); } return @TotPollOpts; } function script CountOldPollOpts { set @TotPollOpts,0; for (set @copox,51; @copox < 91; set @copox,@copox + 2) { if ($PollData$[@copox] != "" && $PollData$[@cpox] != $@NewOption$) set @TotPollOpts,@TotPollOpts + 1; } return @TotPollOpts; } function script CountOldPollVotes { set @TotPollOpts,0; for (set @copvx,52; @copvx < 92; set @copvx,@copvx + 2) { if ($PollData$[@copvx] != "") set @TotPollOpts,@TotPollOpts + atoi($PollData$[@copvx]); } return @TotPollOpts; } function script SearchOption { for (set @so,1; @so < 42; set @so,@so + 2) { if ($PollData$[@so] == getarg(0)) return @so / 2 + 1; } return 0; } function script ClearPollData { set $PollID, 0; if (getarg(0)) announce "The Poll [" + $PollData$[0] + "] was closed, thanks for your feedback!",bc_all; cleararray $PollData$[0],"",49; setarray $PollData$[1],$@NewOption$; set $PollDuration,0; set $PollMinLevel,0; set $PollMaxLevel,0; set $PollPrizeType,0; set $PollPrizeAmount,0; set $PollPrizeProb,0; set $PollMaxVotes,0; return; } function script DrawPollOption { set @TotPollVotes, callfunc("CountPollVotes"); for (set @dpox,1; @dpox < 42; set @dpox,@dpox + 2) { if ($PollData$[@dpox] != "") { set @DPVotes,atoi($PollData$[@dpox + 1]); mes (@dpox / 2 + 1) + ". ^FF9C01" + $PollData$[@dpox]; if (@DPVotes) set @pct,21 * (@DPVotes * 100 / @TotPollVotes) / 100; else set @pct,0; set @DPOLine$,"^FF0000"; for (set @DPO,0; @DPO < 21; set @DPO, @DPO + 1) { if (@DPO < @pct) { set @DPOLine$,@DPOLine$ + "¤"; } else { if (@DPO - 1 < @pct) set @DPOLine$,@DPOLine$ + "^DCDCDC"; set @DPOLine$,@DPOLine$ + "¤"; } } mes @DPOLine$ + "^000000 ^DC883E[" + @DPVotes + " vote(s)]^000000"; } } return; } function script DrawLastPoll { set @TotPollVotes, callfunc("CountOldPollVotes"); mes "^0000FF" + $PollData$[50] + "^000000"; mes " ^25B54C(Total Votes: " + @TotPollVotes + ")^000000"; mes " (^FF0000Closed^000000)"; mes "^C0C0C0×××××××××××××××××××××××××××××××^000000"; for (set @dlpx,51; @dlpx < 90; set @dlpx,@dlpx + 2) { if ($PollData$[@dlpx] != "") { set @DPVotes,atoi($PollData$[@dlpx + 1]); mes ((@dlpx - 50) / 2 + 1) + ". ^FF9C01" + $PollData$[@dlpx]; if (@DPVotes) set @pct,21 * (@DPVotes * 100 / @TotPollVotes) / 100; else set @pct,0; set @DPOLine$,"^F0AF00"; for (set @DPO,0; @DPO < 21; set @DPO, @DPO + 1) { if (@DPO < @pct) { set @DPOLine$,@DPOLine$ + "¤"; } else { if (@DPO - 1 < @pct) set @DPOLine$,@DPOLine$ + "^DCDCDC"; set @DPOLine$,@DPOLine$ + "¤"; } } mes @DPOLine$ + "^000000 ^DC883E[" + @DPVotes + " votes]^000000"; } } return; } function script AutoClosePoll { cleararray $PollData$[50],"",77; if ($@UseMySQL) { for (set .acpx,1; .acpx < 42; set .acpx,.acpx + 2) { if ($PollData$[.acpx] != "") query_sql "insert into `poll_options` (`poll_id`,`poll_text`,`poll_votes`) values (" + $PollID + ",'" + escape_sql($PollData$[.acpx]) + "'," + atoi($PollData$[.acpx + 1]) + ")"; } query_sql "update `poll_main` set `poll_finished` = now(), `poll_status` = 1"; } if (getarg(0)) { for (set .acpx,0; .acpx < 42; set .acpx,.acpx + 1) { set $PollData$[.acpx + 50],$PollData$[.acpx]; } set $LastPollID,$PollID; } callfunc "ClearPollData",1; return; } function script ShowOldPoll { deletearray .@polltext$[0],128; deletearray .@pollvotes[0],128; mes "[^0000FFPoll Details^000000]"; mes "Title: ^0000FF" + getarg(1) + "^000000"; mes "> Total Votes: ^FF0000" + getarg(4) + "^000000"; mes "> ^930781" + getarg(2) + " to " + getarg(3) + "^000000"; mes "(^FF0000sorted by votes^000000)"; mes "^C0C0C0×××××××××××××××××××××××××××××××^000000"; set .@totopts, query_sql("select `poll_text`, `poll_votes` from `poll_options` where `poll_id` = " + getarg(0) + " order by `poll_votes` desc",.@polltext$,.@pollvotes); for (set .@x,0; .@x < .@totopts; set .@x, .@x + 1) { mes (.@x + 1) + ". ^0000FF" + .@polltext$[.@x] + "^000000"; if (.@pollvotes[.@x]) set @pct,21 * (.@pollvotes[.@x] * 100 / getarg(4)) / 100; else set @pct,0; set @SOPLine$,"^F0AF00"; for (set @SOP,0; @SOP < 21; set @SOP, @SOP + 1) { if (@SOP < @pct) { set @SOPLine$,@SOPLine$ + "¤"; } else { if (@SOP - 1 < @pct) set @SOPLine$,@SOPLine$ + "^DCDCDC"; set @SOPLine$,@SOPLine$ + "¤"; } } mes @SOPLine$ + "^000000 ^DC883E[" + .@pollvotes[.@x] + " votes]^000000"; } next; return; } // Duplicates prontera,155,176,4 duplicate(Poll) Please Vote#1 831,7,72 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.