/*
create table poll_title (
poll_id int(11) unsigned not null auto_increment primary key,
poll_title varchar(70),
char_name varchar(23),
poll_time datetime,
poll_level smallint(6),
poll_status enum('0','1') default '1'
) engine = innodb;
create table poll_options (
poll_id int(11) unsigned,
poll_option tinyint(4) unsigned,
poll_option_name varchar(70),
poll_votes int(11) unsigned not null,
key (poll_id)
) engine = innodb;
create table poll_votes (
poll_id int(11) unsigned,
poll_option tinyint(4) unsigned,
account_id int(11) unsigned,
name varchar(23),
key (poll_id),
key (poll_option),
key (account_id),
unique ( poll_id, poll_option, account_id )
) engine = innodb;
*/
prontera,155,183,5 script Poll NPC 1_F_MARIA,{
mes "["+ strnpcinfo(1) +"]";
query_sql "select poll_id, poll_title, char_name, date_format( poll_time, '%W %e/%c/%y %r' ), poll_level from poll_title order by poll_id desc limit 1", .@id, .@title$, .@creator$, .@time$, .@level;
if ( BaseLevel < .@level ) {
mes "You must be level "+ .@level +" to view and vote in this Poll";
close;
}
mes "By : ^0000FF"+ .@creator$ +"^000000";
mes "Since : ^0000FF"+ .@time$ +"^000000";
mes " ";
mes "Question : ^0000FF"+ .@title$ +"^000000";
if ( !query_sql( "select 1 from poll_votes where poll_id = "+ .@id +" and account_id = "+ getcharid(3), .@dummy ) ) {
next;
.@nb = query_sql( "select poll_option_name from poll_options where poll_id = "+ .@id, .@options$ );
for ( .@i = 0; .@i < .@nb; ++.@i )
.@menu$ = .@menu$ +"^0000FF"+ .@options$[.@i] +":";
.@s = select( .@menu$ );
query_sql "insert into poll_votes values ( "+ .@id +", "+ .@s +", "+ getcharid(3) +", '"+ escape_sql( strcharinfo(0) )+"' )";
query_sql "update poll_options set poll_votes = poll_votes +1 where poll_id = "+ .@id +" and poll_option = "+ .@s;
close;
}
query_sql "select sum(poll_votes) from poll_options where poll_id = "+ .@id, .@total_votes;
.@nb = query_sql( "select poll_option_name, poll_votes, poll_votes / "+ .@total_votes +" * 1000, poll_votes / "+ .@total_votes +" * 35 from poll_options where poll_id = "+ .@id +" order by poll_votes desc", .@options$, .@votes, .@percent, .@chart );
mes " ";
.@j = 0;
while ( .@j < .@nb ) {
mes ( .@j +1 )+". ^0000FF"+ .@options$[.@j] +"^000000";
.@i = 0;
while ( .@i < .@chart[.@j] ) {
.@str$[.@j] = .@str$[.@j] +"#";
++.@i;
}
if ( .@i < 35 ) {
.@str$[.@j] = .@str$[.@j] +"^CCCCCC";
while ( .@i < 35 ) {
.@str$[.@j] = .@str$[.@j] +"#";
++.@i;
}
}
mes .@str$[.@j];
mes "^999999"+ .@votes[.@j] +"(votes) / "+ .@total_votes +"(total) = ^CC6600"+( .@percent[.@j] / 10 ) +"."+( .@percent[.@j] % 10 )+"%^000000";
++.@j;
mes " ";
}
close;
OnInit:
waitingroom "New Poll", 0;
end;
}
- script poll FAKE_NPC,{
OnWhisperGlobal:
query_sql "select poll_id, poll_title, char_name, date_format( poll_time, '%W %e/%c/%y %r' ), poll_status from poll_title order by poll_id desc limit 1", .@id, .@title$, .@name$, .@time$, .@status;
if ( .@status == 1 ) {
mes "do you wish to close current poll ?";
mes " ";
mes "By : ^0000FF"+ .@name$ +"^000000";
mes "Since : ^0000FF"+ .@time$ +"^000000";
mes " ";
mes "Question : ^0000FF"+ .@title$ +"^000000";
next;
if ( select ( "No:Yes" ) == 1 ) close;
announce strcharinfo(0) +" has closed the poll ["+ .@title$ +"]", 0;
query_sql "update poll_title set poll_status = '0' where poll_id = "+ .@id;
delwaitingroom "Poll NPC";
disablenpc "Poll NPC";
close;
}
.@title$ = ""; // hmm .... -.-"
while (1) {
mes "Question : "+( ( getstrlen(.@title$) )? "^0000FF"+ .@title$ : "^FF0000Incomplete" )+"^000000";
.@size = getarraysize(.@options$);
if ( !.@size )
mes "Options : ^FF0000Incomplete^000000";
else
for ( .@i = 0; .@i < .@size; ++.@i )
mes "Option "+( .@i+1 )+" : ^0000FF"+ .@options$[.@i] +"^000000";
if ( .@baselevel ) {
mes " ";
mes "Base Level Requirement : "+ .@baselevel;
}
next;
switch ( select( "Question"+( ( getstrlen(.@title$) )? "" : " - ^FF0000Incomplete^000000" ),
"Options "+( ( .@size >= 2 )? "^00CC00["+ .@size +"]" : "^FF0000["+ .@size +"] - Incomplete" )+"^000000",
"Base Level Requirement",
( ( getstrlen(.@title$) && .@size >= 2 )? "^00CC00":"^FF0000" )+"Complete Setup" ) ) {
case 1:
mes "Question : "+( ( getstrlen(.@title$) )? "^0000FF"+ .@title$ : "^FF0000Incomplete" )+"^000000";
mes " ";
mes "Input the poll question";
next;
if ( input( .@tmp$, 2, 70 ) ) {
mes "Poll title must between 2~70 characters";
next;
break;
}
else if ( compare ( .@tmp$, ":" ) || compare ( .@tmp$, "^" ) ) {
mes "Poll Question must not allow to use these symbols";
mes "-> : <- colon";
mes "-> ^ <- caret";
next;
break;
}
mes "Question : "+( ( getstrlen(.@title$) )? "^0000FF"+ .@title$ : "^FF0000Incomplete" )+"^000000";
mes " ";
mes "Confirming this title ?";
mes "^0000FF"+ .@tmp$ +"^000000";
next;
if ( select ( "Yes", "No" ) == 2 ) break;
.@title$ = .@tmp$;
break;
case 2:
while (1) {
mes "Question : "+( ( getstrlen(.@title$) )? "^0000FF"+ .@title$ : "^FF0000Incomplete" )+"^000000";
.@size = getarraysize(.@options$);
if ( !.@size )
mes "Options : ^FF0000Incomplete^000000";
else
for ( .@i = 0; .@i < .@size; ++.@i )
mes "Option "+( .@i+1 )+" : ^0000FF"+ .@options$[.@i] +"^000000";
next;
switch ( select( "Add new Option", "Delete an Option", "- back" ) ) {
case 1:
mes "Question : "+( ( getstrlen(.@title$) )? "^0000FF"+ .@title$ : "^FF0000Incomplete" )+"^000000";
.@size = getarraysize(.@options$);
if ( !.@size )
mes "Options : ^FF0000Incomplete^000000";
else
for ( .@i = 0; .@i < .@size; ++.@i )
mes "Option "+( .@i+1 )+" : ^0000FF"+ .@options$[.@i] +"^000000";
mes " ";
if ( .@size == 30 ) {
mes "The Poll only allow up to 30 different options";
next;
break;
}
mes "Input Option No."+( .@size +1 );
next;
if ( input( .@tmp$, 2, 70 ) ) {
mes "Poll options must between 2~70 characters";
next;
break;
}
else if ( compare ( .@tmp$, ":" ) || compare ( .@tmp$, "^" ) ) {
mes "Poll title must not allow to use these symbols";
mes "-> : <- colon";
mes "-> ^ <- caret";
next;
break;
}
.@options$[ .@size ] = .@tmp$;
break;
case 2:
mes "Question : "+( ( getstrlen(.@title$) )? "^0000FF"+ .@title$ : "^FF0000Incomplete" )+"^000000";
.@size = getarraysize(.@options$);
if ( !.@size )
mes "Options : ^FF0000Incomplete^000000";
else
for ( .@i = 0; .@i < .@size; ++.@i )
mes "Option "+( .@i+1 )+" : ^0000FF"+ .@options$[.@i] +"^000000";
mes " ";
if ( !.@size ) {
mes "There are no Options to remove";
next;
break;
}
.@menu$ = "";
for ( .@i = 0; .@i < .@size; ++.@i )
.@menu$ = .@menu$ +"^0000FF"+ .@options$[.@i] +":";
.@menu$ = .@menu$ +"^000000- back";
next;
.@s = select( .@menu$ ) -1;
if ( .@s == .@size ) break;
deletearray .@options$[ .@s ], 1;
break;
case 3:
break;
}
if ( @menu == 3 ) break;
}
break;
case 3:
mes "Question : "+( ( getstrlen(.@title$) )? "^0000FF"+ .@title$ : "^FF0000Incomplete" )+"^000000";
mes " ";
mes "Base Level Requirement : "+ .@baselevel;
next;
if ( input( .@tmp, 0, MAX_LEVEL ) ) {
mes "Question : "+( ( getstrlen(.@title$) )? "^0000FF"+ .@title$ : "^FF0000Incomplete" )+"^000000";
mes " ";
mes "Invalid range";
next;
}
else
.@baselevel = .@tmp;
break;
case 4:
if ( !getstrlen(.@title$) ) {
mes "Question must not be leaving blank !";
next;
break;
}
else if ( .@size < 2 ) {
mes "Must setup at least 2 Options !";
next;
break;
}
query_sql "insert into poll_title values ( null, '"+ escape_sql(.@title$) +"', '"+ escape_sql( strcharinfo(0) ) +"', now(), "+ .@base_level +", '1' )";
query_sql "select max(poll_id) from poll_title", .@poll_id;
.@poll_options$ = "insert into poll_options values ";
for ( .@i = 0; .@i < .@size; ++.@i )
.@poll_options$ = .@poll_options$ +"( "+ .@poll_id +", "+( .@i +1 )+", '"+ escape_sql(.@options$[.@i]) +"', 0 )"+( ( .@i < .@size -1 )? ",":";" );
query_sql .@poll_options$;
announce strcharinfo(0) +" has open a New Poll !! ["+ .@title$ +"]", 0;
enablenpc "Poll NPC";
donpcevent "Poll NPC::OnInit";
close;
}
}
close; // shouldn't reach
OnInit:
query_sql "select poll_status from poll_title order by poll_id desc limit 1", .@status;
if ( !.@status ) {
sleep 1;
delwaitingroom "Poll NPC";
disablenpc "Poll NPC";
}
bindatcmd "poll", strnpcinfo(3)+"::OnWhisperGlobal";
end;
}