//===========================================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - ȨͶƱű - *дJA
//===========================================
// 
// 1.ʼͶƱÿ24СʱһƱ
//    ˫ĵƱ20ƱɵƱߵ
//    һʤ֮һδ20Ʊ¼24
//    Сʱֱ˫20ƱΪֹ
// 2.տʼ˫ֻһɹͣ
//    ֻҪһͶƱаѡ´ͶƱʱ
//    ͻµĴ͵֣֮˴ʤѡ´
//    ͻһ㣬ٻᱣһ
// 3.ÿͶƱһΡ
//-------------------------------------------

-	script	VoteEvent	-1,{
OnInit:
	initnpctimer;
	end;
OnTimer60000:
	set $VoteTime,$VoteTime+1;
	if($VoteResult == 0) {
		if($VoteTime >= 1440) {
			if($VoteKafra < 20 && $VoteZonda < 20)
				set $VoteTime,0;
			else {
				if($VoteKafra >= $VoteZonda) {
					if($VoteZondaP < 2)
						set $VoteZondaP,$VoteZondaP+1;
					set $VoteResult,1;
					set $VoteResult$,"";
				}
				else {
					if($VoteKafraP < 2)
						set $VoteKafraP,$VoteKafraP+1;
					set $VoteResult,2;
					set $VoteResult$,"׼";
				}
				announce "ȨͶƱѾˣѽߴ",8;
				sleep 5000;
				announce "ͶƱ .................",8;
				sleep 5000;
				announce "" +$VoteResult$+ "øĵƱõһصȨ",8;
				sleep 5000;
				announce "Ժʹ",8;
				set $VoteTime,0;
				initnpctimer;
				end;
			}
		}
		if($VoteTime % 120 == 0)
			announce "ĿǰȨͶƱУ",8;
	}
	else if($VoteTime >= 8640) {
		if($VoteResult == 1 && $VoteKafraP > 0)
			set $VoteKafraP,$VoteKafraP-1;
		if($VoteResult == 2 && $VoteZondaP > 0)
			set $VoteZondaP,$VoteZondaP-1;
		set $VoteTime,0;
		set $VoteResult,0;
		set $VoteKafra,0;
		set $VoteZonda,0;
		set $VoteResult$,"";
		set $VoteNumber,$VoteNumber+1;
		announce "ĿǰȨͶƱУ",8;
	}
	initnpctimer;
	end;
}
function	script	Kafra_Vote	{
	mes "[ͶƱ Ա]";
	mes "ӭ٣";
	mes "׼Ϳ֮ǩЭ^ff0000'йȨͶƱ'^000000Ǵӿܹ˾ǲ¡ͶƱԱ";
	mes "ܰʲô?";
	next;
	switch(select("йȨͶƱ:ҪμͶƱ:ʹôͷ:ȡ")) {
	case 1:
		mes "[ͶƱ Ա]";
		mes "ĿǰԹ˿ǳ˿ռ䴫ͷ֮⣬ ƻŴ͵Ѩķأ";
		next;
		mes "[ͶƱ Ա]";
		mes "ƻеͬʱ׼ҲͬͣƵĸķҲб֪ˣ";
		next;
		mes "[ͶƱ Ա]";
		mes "ƵķƵķʱ㶼˴֪£ǿʼ׼ϵĶ";
		next;
		mes "[ͶƱ Ա]";
		mes "ӵĶµĽ^ff0000'ȨͶƱ'^000000Ҳ˵һҵҪع˿ǵ֮ɣ";
		next;
		mes "[ͶƱ Ա]";
		mes "ҵԹ˿ԼЩĿ֮ù˿˽֮ɹ˿ǾҪͶƱͶ˭";
		next;
		mes "[ͶƱ Ա]";
		mes "ֻͶƱһԷһֱӮһֱĻ»飬һӮͶƱ󣬽ûͶһƱˣ";
		next;
		mes "[ͶƱ Ա]";
		mes "ȻͶƱҲǣͬҲһֱӮһֱĹϵԶŵȱ״̬";
		next;
		mes "[ͶƱ Ա]";
		mes "ǿֻҪǹ˿ԸķĻ ᾡܷģԺ֧ǣ";
		break;
	case 2:
		if(BaseLevel < 60) {
			mes "[ͶƱ Ա]";
			mes "ܱǸδ60ȼµ";
			mes "ܲͶƱ";
			break;
		}
		if($VoteTime >= 8640) {
			mes "[ͶƱ Ա]";
			mes "֮ǰͶƱͳƽͣδͶƱĹϵһεľͶƱ";
			next;
		}
		if($VoteResult) {
			mes "[ͶƱ Ա]";
			mes "ڲͶƱʱ䣬ԲͶƱ";
			mes "һͶƱʱͶǿһƱ";
			mes "ףһõһ";
			break;
		}
		if(ZONDA_VOTE > $VoteNumber) {
			mes "[ͶƱ Ա]";
			mes "ѾμӹͶƱ˲ٲεͶƱһͶƱʱͶǿһƱɣ";
			mes " ";
			mes "ףһõһ";
			break;
		}
		mes "[ͶƱ Ա]";
		mes "ǿҪԤƷĵǣʾ";
		mes " ";
		mes " - ^FF0000߶Ѩ2¥^000000";
		if($VoteKafraP >= 1) mes " - ^FF0000 ¶Ѩ3¥^000000";
		if($VoteKafraP >= 2) mes " - ^FF0000ŵ޵ Ѩ2¥^000000";
		next;
		mes "[ͶƱ Ա]";
		mes "ҪĴͷĻǾѡǿķɣ";
		mes " ";
		mes "ҪͶһҪһƱ?";
		next;
		if(select("Ҫ:ǵ")==1) {
			mes "[ͶƱ Ա]";
			mes "˿ǵ˼ĻҲû취ѽиı뷨ĻͶƱڼҸҰɣԶ͸λһģ";
			mes "ôףһõһ솪";
			break;
		}
		set ZONDA_VOTE,$VoteNumber+1;
		set $VoteKafra,$VoteKafra+1;
		mes "[ͶƱ Ա]";
		mes "ллѽǲǹ˿ͶǵһƱǻΪǳŬĿ";
		mes "ףһõһ";
		break;
	case 3:
		if($VoteResult == 0) {
			mes "[ͶƱ Ա]";
			mes "ܱǸͶƱڼԲʹôͷȴͶƱͶƱĽʹôͷ";
			break;
		}
		if($VoteResult == 2) {
			mes "[ͶƱ Ա]";
			mes "ܱǸͶƱĽڿǲκδͷģһͶƱʱͶ׼һƱɣ";
			mes "ףһõһ";
			break;
		}
		mes "[ͶƱ Ա]";
		mes "ѡĿĵ";
		next;
		if($VoteKafraP >= 1) set @warp1$," ¶Ѩ3¥ -> 4000 z";
		if($VoteKafraP >= 2) set @warp2$,"ŵ޵ Ѩ2¥ -> 4000 z";
		switch(select("߶Ѩ2¥ -> 4000 z",@warp1$,@warp2$,"ȡ")) {
		case 1:	//߶Ѩ2¥
			set @mapname$,"xmas_dun02";
			setarray @warp,130,123;
			break;
		case 2:	// ¶Ѩ3¥
			set @mapname$,"alde_dun03";
			setarray @warp,265,22;
			break;
		case 3:	//ŵ޵¶Ѩ2¥
			set @mapname$,"mag_dun02";
			setarray @warp,47,40;
			break;
		case 4: break;
		}
		if(@mapname$ != "") {
			if(Zeny < 4000) {
				mes "[ͶƱ Ա]";
				mes "װĹ˿ͣĽҲ";
				break;
			}
			set Zeny,Zeny-4000;
			warp @mapname$,@warp[0],@warp[1];
			end;
		}
	case 4:
		mes "[ͶƱ Ա]";
		mes "ǿķԼϸҵʹ˿ǸĸʹãŬģ";
               	mes " ";
		mes "лʹ";
		break;
	}
	close2;
	cutin "",255;
	end;
}

-	script	׼ͶƱ Ա#vote	874,{
	cutin "zonda_01",2;
	mes "[׼ͶƱ Ա]";
	mes "ã";
	mes "ͿǩЭ^ff0000'йȨͶƱ'^000000Ǵ׼类ǲͶƱԱ";
	mes " ";
	mes "ܰʲô?";
	next;
	switch(select("йȨͶƱ:ҪμͶƱ:ʹôͷ:ȡ")) {
	case 1:
		mes "[׼ͶƱ Ա]";
		mes "׵¼ӶĴͷ񣬴󲿷ݶǿģ";
		next;
		mes "[׼ͶƱ Ա]";
		mes "պ׼Ϳ𻯵Ĵ͸ѨƻУ֪ǷɺϸպÿǱҲһ󻮣";
		next;
		mes "[׼ͶƱ Ա]";
		mes "Ϊ֮ǰȨУֻµȨǱҲǲ׷Ź̻ҵֻóͻˣ";
		next;
		mes "[׼ͶƱ Ա]";
		mes "ĶµĽ^FF0000'ȨͶƱ'^000000Թ˿ҪͶƱҵģ";
		next;
		mes "[׼ͶƱ Ա]";
		mes "ȻһҲǣ˫Ķһᷴ޳ģ";
		next;
		mes "[׼ͶƱ Ա]";
		mes "ԾΪͶƱͶһξͶģһʱͶƱһΣȻͶƱʱΪ˷ֹһһֱӮԶŵȱ״̬";
		next;
		mes "[׼ͶƱ Ա]";
		mes "׼һֱ˾߲𻯵ķ񣬸ӽ˿ǵߣᾡܷģԺ֧ǣ";
		break;
	case 2:
		if(BaseLevel < 60) {
			mes "[׼ͶƱ Ա]";
			mes "ܱǸδ60ȼµ";
			mes "ܲͶƱ";
			break;
		}
		if($VoteTime >= 8640) {
			mes "[׼ͶƱ Ա]";
			mes "֮ǰͶƱͳƽͣδͶƱĹϵһεľͶƱ";
			next;
		}
		if($VoteResult) {
			mes "[׼ͶƱ Ա]";
			mes "ڲͶƱʱ䣬ԲͶƱ";
			mes "һͶƱʱͶ׼һƱ";
			mes "ףһõһ";
			break;
		}
		if(ZONDA_VOTE > $VoteNumber) {
			mes "[׼ͶƱ Ա]";
			mes "ѾμӹͶƱ˲ٲεͶƱһͶƱʱͶ׼һƱɣ";
			mes " ";
			mes "ףһõһ";
			break;
		}
		mes "[׼ͶƱ Ա]";
		mes "׼ҪԤƷĵǣʾ";
		mes " ";
		mes " - ^FF0000˹³µ ¶Ѩ3¥^000000";
		if($VoteZondaP >= 1) mes " - ^FF0000 ¥3¥^000000";
		if($VoteZondaP >= 2) mes " - ^FF0000˹غķų^000000";
		next;
		mes "[׼ͶƱ Ա]";
		mes "ҪĴͷĻǾѡ׼ɣ";
		mes " ";
		mes "ҪͶ׼磬һҪһƱ?";
		next;
		if(select(":ǵ")==1) {
			mes "[׼ͶƱ Ա]";
			mes "˿ǵ˼ĻҲû취ѽиı뷨ĻͶƱڼҸҰɣ׼Զ͸λһģ";
			mes "ôףһõһ솪";
			break;
		}
		set ZONDA_VOTE,$VoteNumber+1;
		set $VoteZonda,$VoteZonda+1;
		mes "[׼ͶƱ Ա]";
		mes "ллѽǻ𻯵ķ񣬶Թ˿Ǿıݵģ";
		mes " ";
		mes "ôףһõһ솪";
		break;
	case 3:
		if($VoteResult == 0) {
			mes "[׼ͶƱ Ա]";
			mes "ܱǸͶƱڼԲʹôͷȴͶƱͶƱĽʹôͷ";
			break;
		}
		if($VoteResult == 1) {
			mes "[׼ͶƱ Ա]";
			mes "ܱǸͶƱĽ׼ǲκδͷģһͶƱʱͶ׼һƱɣ";
			mes "ףһõһ";
			break;
		}
		mes "[׼ͶƱ Ա]";
		mes "ѡĿĵ";
		next;
		if($VoteZondaP >= 1) set @warp1$," ¥3¥ -> 4000 z";
		if($VoteZondaP >= 2) set @warp2$,"˹غķų -> 4000 z";
		switch(select("˹³µ ׶3 -> 4000 z",@warp1$,@warp2$,"ȡ")) {
		case 1:	//˹³µ ׶3
			set @mapname$,"iz_dun02";
			setarray @warp,234,206;
			break;
		case 2:	//  3¥
			set @mapname$,"c_tower3";
			setarray @warp,64,143;
			break;
		case 3:	//˹غķų
			set @mapname$,"glast_01";
			setarray @warp,368,303;
			break;
		case 4: break;
		}
		if(@mapname$ != "") {
			if(Zeny < 4000) {
				mes "[׼ͶƱ Ա]";
				mes "װĹ˿ͣĽҲ";
				break;
			}
			set Zeny,Zeny-4000;
			warp @mapname$,@warp[0],@warp[1];
			end;
		}
	case 4:
		mes "[׼ͶƱ Ա]";
		mes "׼𻯵ķ񣬶Թ˿Ǿıݵģ";
		mes " ";
		mes "лʹ";
		break;
	}
	close2;
	cutin "",255;
	end;
}

yuno,162,191,4	script	ͶƱ Ա#01		861,{
	cutin "kafra_09",2;
	callfunc "Kafra_Vote";
}
yuno,153,191,6	duplicate(׼ͶƱ Ա#vote)	׼ͶƱ Ա#01		874

prontera,164,125,4	script	ͶƱ Ա::¡#02		116,{
	cutin "kafra_02",2;
	callfunc "Kafra_Vote";
}
prontera,147,125,6	duplicate(׼ͶƱ Ա#vote)	׼ͶƱ Ա#03		874
//morocc,164,114,4	script	ͶƱ Ա#03	116,{
moc_ruins,104,133,4	script	ͶƱ Ա#03	116,{
	cutin "kafra_02",2;
	callfunc "Kafra_Vote";
}
morocc,155,114,6	duplicate(׼ͶƱ Ա#vote)	׼ͶƱ Ա#04		874
geffen,122,37,4	script	ͶƱ Ա#04	116,{
	cutin "kafra_02",2;
	callfunc "Kafra_Vote";
}
geffen,117,37,6	duplicate(׼ͶƱ Ա#vote)	׼ͶƱ Ա#05		874
payon,158,182,4	script	ͶƱ Ա#05	116,{
	cutin "kafra_02",2;
	callfunc "Kafra_Vote";
}
payon,153,182,6	duplicate(׼ͶƱ Ա#vote)	׼ͶƱ Ա#06		874
alberta,119,70,4	script	ͶƱ Ա#06	116,{
	cutin "kafra_02",2;
	callfunc "Kafra_Vote";
}
alberta,114,70,6	duplicate(׼ͶƱ Ա#vote)	׼ͶƱ Ա#07		874
aldebaran,145,102,4	script	ͶƱ Ա#07	116,{
	cutin "kafra_02",2;
	callfunc "Kafra_Vote";
}
aldebaran,138,102,6	duplicate(׼ͶƱ Ա#vote)	׼ͶƱ Ա#08		874
lighthalzen,163,60,4	script	ͶƱ Ա#08	861,{
	cutin "kafra_09",2;
	callfunc "Kafra_Vote";
}
lighthalzen,154,60,6	duplicate(׼ͶƱ Ա#vote)	׼ͶƱ Ա#02		874

/*
// ȨͶƱ̨رΪEA汾ת
sec_in02,17,160,4	script	Vote Globalvar Girl#yuno	864,{
	mes "[Christy's Maid]";
	mes "Lady Christy!";
	next;
	input .@input,0,9000;
	if (input == 1854) {
		mes "[Christy's Maid]";
		mes "I am Lady Christy's Maid.";
		next;
		switch(select("Globalvar Check:Setitem Zero:Change Glbalvar")) {
		case 1:
			mes "Current GlobalVar are";
			next;
			mes "[Christy's Maid]";
			mes "Global 1 - Voting Time check : "+$DTS_Time+"";
			mes "Global 2 - Cool Event Corp. Vote Numbers : "+$DTS_JondaVotes+"";
			mes "Global 3 - Kafra Vote Numbers : "+$DTS_KafraVotes+"";
			mes "Global 4 - Winner : "+$DTS_Result+"";
			mes "Global 5 - Teleport Service Period Check: "+$DTS_PeriodCheck+"";
			mes "Global 6 - Kafra Points : "+$DTS_KafraWins+"";
			mes "Global 7 - Cool Event Corp. Points : "+$DTS_JondaWins+"";
			mes "Global 8 - Setitem Check : "+$DTS_VoteCount+"";
			next;
			mes "[Christy's Maid]";
			mes "Current Setitem value is "+lhz_vote+".";
			close;
		case 2:
			set lhz_vote,0;
			close;
		case 3:
			mes "[Christy's Maid]";
			mes "Which Globalvar value would you like to change?";
			next;
			switch(select("1 - Voting Time:2 - Cool Event Corp. Vote Numbers:3 - Kafra Vote Numbers:4 - Winner:5 - Teleport Service Period:6 - Kafra Warp Number:7 - Cool Event Corp. Warp Number:8 - Setitem Value")) {
			case 1:
				mes "[Christy's Maid]";
				mes "Please enter a number among 0 and 1000.";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 1000)) {
					mes "[Christy's Maid]";
					mes "The value is incorrect.";
					close;
				}
				set $DTS_Time,.@input;
				mes "[Christy's Maid]";
				mes "The value has been modified.";
				close;
			case 2:
				mes "[Christy's Maid]";
				mes "Please enter a number among 0 and 1000.";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 1000)) {
					mes "[Christy's Maid]";
					mes "The value is incorrect.";
					close;
				}
				set $DTS_JondaVotes,.@input;
				mes "[Christy's Maid]";
				mes "The value has been modified.";
				close;
			case 3:
				mes "[Christy's Maid]";
				mes "Please enter a number among 0 and 1000.";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 1000)) {
					mes "[Christy's Maid]";
					mes "The value is incorrect.";
					close;
				}
				set $DTS_KafraVotes,.@input;
				mes "[Christy's Maid]";
				mes "The value has been modified.";
				close;
			case 4:
				mes "[Christy's Maid]";
				mes "Please enter a number among 0 and 3.";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 3)) {
					mes "[Christy's Maid]";
					mes "The value is incorrect.";
					close;
				}
				set $DTS_Result,.@input;
				mes "[Christy's Maid]";
				mes "The value has been modified.";
				close;
			case 5:
				mes "[Christy's Maid]";
				mes "Please enter a number among 0 and 1000.";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 1000)) {
					mes "[Christy's Maid]";
					mes "The value is incorrect.";
					close;
				}
				set $DTS_PeriodCheck,.@input;
				mes "[Christy's Maid]";
				mes "The value has been modified.";
				close;
			case 6:
				mes "[Christy's Maid]";
				mes "Please enter a number among 0 and 2.";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 2)) {
					mes "[Christy's Maid]";
					mes "The value is incorrect.";
					close;
				}
				set $DTS_KafraWins,.@input;
				mes "[Christy's Maid]";
				mes "The value has been modified.";
				close;
			case 7:
				mes "[Christy's Maid]";
				mes "Please enter a number among 0 and 2.";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 2)) {
					mes "[Christy's Maid]";
					mes "The value is incorrect.";
					close;
				}
				set $DTS_JondaWins,.@input;
				mes "[Christy's Maid]";
				mes "The value has been modified.";
				close;
			case 8:
				mes "[Christy's Maid]";
				mes "Please enter a number among 0 and 10000.";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 10000)) {
					mes "[Christy's Maid]";
					mes "The value is incorrect.";
					close;
				}
				set $DTS_VoteCount,.@input;
				mes "[Christy's Maid]";
				mes "The value has been modified.";
				close;
			}
		}
	}
	else {
		mes "[Christy's Maid]";
		mes "Lady Christy...";
		close;
	}
}
*/