//===== rAthena Script ======================================= 
//= Dungeon Teleport Service
//===== By: ================================================== 
//= Evera
//===== Current Version: ===================================== 
//= 2.9
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: =========================================
//= [Official Conversion]
//= Cool Event Corp NPCs vs. Kafra Dungeon Teleport Service and voting system.
//= This is a special event on official servers where there's a
//= big competition between Kafra Corp. and Cool Event Corp.
//= To warp to selected levels of certain dungeons.
//
// Global Variables in use:
//	Voting Time check:		$DTS_Time
//	Cool Event Corp. Vote Numbers:	$DTS_JondaVotes
//	Kafra Vote Numbers:		$DTS_KafraVotes
//	Winner:				$DTS_Result
//	Teleport Service Period Check:	$DTS_PeriodCheck
//	Kafra Points:			$DTS_KafraWins
//	Cool Event Corp. Points:	$DTS_JondaWins
//	Setitem Check:			$DTS_VoteCount
// For Detailed information on what each varibale does, see
// the "Vote Globalvar Girl#yuno" NPC at the end of the file.
// Character Variable in use: lhz_vote (how many times player has voted, keeps htem from re-voting.)
//===== Additional Comments: ================================= 
//= 1.0 Initial release [Evera]
//= 1.1 SVN release, removed from major town (found true info after research),
//=     put more arg(2) parameters, fixed a few bugs [Evera]
//= 1.2 Mushed some variables together, optimized a bit [Evera]
//= 1.3 Removed selfconfig [Evera]
//= 1.4 Changed global variables to read from 3 global variables, updated names,
//=      fixed array bug [Evera]
//= 1.5 Mushed voting varialbes into 1 variable. [Evera]
//= 1.6 Removed Duplicates [Silent]
//= 1.7 Fixed bug of DTS_Admin not running by itself [Evera]
//= 1.8 Changed requirement to lvl 60 [Evera]
//= 1.9 Removed global eligibility option [Evera]
//= 2.0 Fixed zeny bug [Evera]
//= 2.1 Fixed headers with and updated with newer information [Evera]
//= 2.2 Changed dtseligible 2 to MISC_QUEST|128, to clean up variable usage. [Evera]
//=     Also added F_ClearGarbage function to the scripts. [Evera]
//= 2.3 Changed dtseligible to be $dtsday when MISC_QUEST|128
//=     Added $dtsday for vote session counter
//=     Fixed bug that involved having both warpers enabled at the same time. [Evera]
//=     New $dtsday system and bug fix[Evera]
//= 2.3a fixed 2 bugs with comparision [Lupus]
//= 2.3b corrected Glast warp coords [Lupus] 2.3c Bailand -> Bayalan
//= 2.4 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
//= 2.5 Converted from Aegis file. (11.3) [L0ne_W0lf]
//= 2.6 Moved Morroc NPCs to Morroc Ruins. [L0ne_W0lf]
//= 2.7 Fixed a typo, a - to a +. Not sure how that happened. [L0ne_w0lf]
//= 2.8 Corrected another typo this time in a variable.
//= 2.9 Added GM management function. [Euphy]
//============================================================ 

einbroch,246,70,0	script	ͶƱʱ#ein	-1,{
OnInit:
	if ($dts) {
		set $dts,0;
		set $dtsvote,0;
		set $dtsday,0;
	}
	initnpctimer;
	end;

OnEnable:
	initnpctimer;
	end;

OnTimer60000:
	// A part that keeps the same status even after a server shut down
	if ($DTS_Result == 1) {
		if ($DTS_JondaWins == 0) {
			donpcevent "ͶƱʱ2#ein::OnEnable";
		}
		else if ($DTS_JondaWins == 1) {
			if ($DTS_KafraWins < 2) {
				donpcevent "ͶƱʱ2#ein::OnEnable";
			}
			else {
				donpcevent "ͶƱʱ3#ein::OnEnable";
			}
		}
		else {
			if ($DTS_KafraWins < 2) {
				donpcevent "ͶƱʱ2#ein::OnEnable";
			}
			else {
				donpcevent "ͶƱʱ3#ein::OnEnable";
			}
		}
		stopnpctimer;
	}
	else if ($DTS_Result == 2) {
		if ($DTS_JondaWins == 0) {
			donpcevent "ͶƱʱ2#ein::OnEnable";
		}
		else if ($DTS_JondaWins == 1) {
			if ($DTS_KafraWins < 2) {
				donpcevent "ͶƱʱ2#ein::OnEnable";
			}
			else {
				donpcevent "ͶƱʱ4#ein::OnEnable";
			}
		}
		else {
			if ($DTS_KafraWins < 2) {
				donpcevent "ͶƱʱ2#ein::OnEnable";
			}
			else {
				donpcevent "ͶƱʱ4#ein::OnEnable";
			}
		}
		stopnpctimer;
	}
	else {
		if ($DTS_Time == 1440) {
			if (($DTS_JondaVotes >= 20) || ($DTS_KafraVotes >= 20)) {
				if ($DTS_JondaVotes > $DTS_KafraVotes) {
					if ($DTS_JondaWins == 0) {
						if ($DTS_KafraWins < 2) {
							set $DTS_KafraWins,$DTS_KafraWins+1;
							set $DTS_Result,1;
							set $DTS_Time,0;
							donpcevent "Э#6::OnEnable";
							donpcevent "ͶƱʱ2#ein::OnEnable";
						}
						else if ($DTS_KafraWins == 2) {
							set $DTS_Result,1;
							set $DTS_Time,0;
							donpcevent "Э#6::OnEnable";
							donpcevent "ͶƱʱ2#ein::OnEnable";
						}
					}
					else if ($DTS_JondaWins == 1) {
						if ($DTS_KafraWins < 2) {
							set $DTS_KafraWins,$DTS_KafraWins+1;
							set $DTS_Result,1;
							set $DTS_Time,0;
							donpcevent "Э#6::OnEnable";
							donpcevent "ͶƱʱ2#ein::OnEnable";
						}
						else {
							set $DTS_Time,0;
							set $DTS_Result,1;
							donpcevent "Э#6::OnEnable";
							donpcevent "ͶƱʱ3#ein::OnEnable";
						}
					}
					else {
						if ($DTS_KafraWins < 2) {
							set $DTS_KafraWins,$DTS_KafraWins+1;
							set $DTS_Result,1;
							set $DTS_Time,0;
							donpcevent "Э#6::OnEnable";
							donpcevent "ͶƱʱ2#ein::OnEnable";
						}
						else {
							set $DTS_Result,1;
							set $DTS_Time,0;
							donpcevent "Э#6::OnEnable";
							donpcevent "ͶƱʱ3#ein::OnEnable";
						}
					}
				}
				else {
					if ($DTS_KafraWins == 0) {
						if ($DTS_JondaWins < 2) {
							set $DTS_JondaWins,$DTS_JondaWins+1;
							set $DTS_Result,2;
							set $DTS_Time,0;
							donpcevent "Э#7::OnEnable";
							donpcevent "ͶƱʱ2#ein::OnEnable";
						}
						else {
							set $DTS_Result,2;
							set $DTS_Time,0;
							donpcevent "Э#7::OnEnable";
							donpcevent "ͶƱʱ2#ein::OnEnable";
						}
					}
					else if ($DTS_KafraWins == 1) {
						if ($DTS_JondaWins < 2) {
							set $DTS_JondaWins,$DTS_JondaWins+1;
							set $DTS_Result,2;
							set $DTS_Time,0;
							donpcevent "Э#7::OnEnable";
							donpcevent "ͶƱʱ2#ein::OnEnable";
						}
						else {
							set $DTS_Result,2;
							set $DTS_Time,0;
							donpcevent "Э#7::OnEnable";
							donpcevent "ͶƱʱ4#ein::OnEnable";
						}
					}
					else {
						if ($DTS_JondaWins < 2) {
							set $DTS_JondaWins,$DTS_JondaWins+1;
							set $DTS_Result,2;
							set $DTS_Time,0;
							donpcevent "Э#7::OnEnable";
							donpcevent "ͶƱʱ2#ein::OnEnable";
						}
						else {
							set $DTS_Result,2;
							set $DTS_Time,0;
							donpcevent "Э#7::OnEnable";
							donpcevent "ͶƱʱ4#ein::OnEnable";
						}
					}
				}
			}
			else {
				set $DTS_Result,3;
				set $DTS_Time,0;
				donpcevent "ͶƱʱ#ein::OnEnable";
			}
		}
		else {
			set $DTS_Time,$DTS_Time+1;
			donpcevent "ͶƱʱ#ein::OnEnable";
		}
	}
	end;
}

einbroch,245,71,0	script	ͶƱʱ2#ein	-1,{
OnEnable:
	initnpctimer;
	end;

OnTimer60000:
	stopnpctimer;
	if ($DTS_PeriodCheck == 8640) {
		set $DTS_PeriodCheck,0;
		set $DTS_Result,0;
		set $DTS_KafraVotes,0;
		set $DTS_JondaVotes,0;
		set $DTS_VoteCount,$DTS_VoteCount+1;
		donpcevent "ͶƱʱ#ein::OnEnable";
	}
	else {
		set $DTS_PeriodCheck,$DTS_PeriodCheck+1;
		donpcevent "ͶƱʱ2#ein::OnEnable";
	}
	end;
}

einbroch,246,71,0	script	ͶƱʱ3#ein	-1,{
OnEnable:
	initnpctimer;
	end;

OnTimer60000:
	stopnpctimer;
	if ($DTS_PeriodCheck == 8640) {
		set $DTS_PeriodCheck,0; //Global Variable
		set $DTS_Result,0; //Global Variable
		set $DTS_KafraVotes,0; //Global Variable
		set $DTS_JondaVotes,0; //Global Variable
		set $DTS_JondaWins,$DTS_JondaWins-1;
		set $DTS_VoteCount,$DTS_VoteCount+1;
		donpcevent "ͶƱʱ#ein::OnEnable";
	}
	else {
		set $DTS_PeriodCheck,$DTS_PeriodCheck+1; //Global Variable
		donpcevent "ͶƱʱ3#ein::OnEnable";
	}
	end;
}

einbroch,247,71,0	script	ͶƱʱ4#ein	-1,{
OnEnable:
	initnpctimer;
	end;

OnTimer60000:
	stopnpctimer;
	if ($DTS_PeriodCheck == 8640) {
		set $DTS_PeriodCheck,0; //Global Variable
		set $DTS_Result,0; //Global Variable
		set $DTS_KafraVotes,0; //Global Variable
		set $DTS_JondaVotes,0; //Global Variable
		set $DTS_KafraWins,$DTS_KafraWins-1;
		set $DTS_VoteCount,$DTS_VoteCount+1;
		donpcevent "ͶƱʱ#ein::OnEnable";
	}
	else {
		set $DTS_PeriodCheck,$DTS_PeriodCheck+1; //Global Variable
		donpcevent "ͶƱʱ4#ein::OnEnable";
	}
	end;
}

// Voting Poll NPCs Kafras and Cool Corp.
// ¼˾Ա should actually be Cool Event ͶƱԱ
// names had to be shortened to keep them unique.
function	script	F_VoteKafra	{
	callfunc "F_ClearGarbage";				//Clear outdated, unused variables
	switch(getarg(0)){
	case 1: cutin "kafra_01",2; break;
	case 2: cutin "kafra_02",2; break;
	case 3: cutin "kafra_03",2; break;
	case 4: cutin "kafra_04",2; break;
	case 5: cutin "kafra_05",2; break;
	case 6: cutin "kafra_06",2; break;
	case 7: cutin "kafra_07",2; break;
	case 8: cutin "kafra_08",2; break;
	case 9: cutin "kafra_09",2; break;
	}
	mes "[ͶƱԱ]";
	mes "ãðߡ";
	mes "ģ";
	mes "ھͶƱ";
	mes "ѡٲṩ";
	mes "³Ǵ͵Ĺ˾";
	mes "ʲôҿ԰";
	next;
	switch(select("- ѡٵԭ:- ͶһƱ:- ʹôͷ:- ȡ")) {
	case 1:
		mes "[ͶƱԱ]";
		mes "׼󻮹˾";
		mes "˾";
		mes "ƻṩ";
		mes "³ǵķ";
		next;
		mes "[ͶƱԱ]";
		mes "ڼԭ";
		mes "ֻһҹ˾ܹ";
		mes "ͬһʱṩ";
		mes "͵³ǵķ";
		mes "ˣҹ˾ٰͬͶƱ";
		next;
		mes "[ͶƱԱ]";
		mes "ҹ˾Լ";
		mes "Ե³Ǵͷ";
		mes "뷽";
		mes "εͶƱУ˿ͽѡһʺǵķ";
		next;
		mes "[ͶƱԱ]";
		mes "ڿʼͷ";
		mes "ṩһϵ";
		mes "ɴˣ˿л";
		mes "Ҳͬ˾ķѡһҡ";
		next;
		mes "[ͶƱԱ]";
		mes "ͶƱȨ";
		mes "ڸָͶƱ";
		mes "ͶƱѡ";
		mes "´ṩ³";
		mes "еĹ˾ллĲ롣";
		break;
	case 2:
		//if (lhz_boss < 17) {
		//	mes "[ͶƱԱ]";
		//	mes "ޣԲ𣬵";
		//	mes "ƺûʸμ";
		//	mes "ͶƱѯͶƱʸ";
		//	mes "Ϣǰ";
		//	mes "λڰĿܲ";
		//	mes "ллף졣";
		//	close2;
		//	cutin "",255;
		//	end;
		//}
		//else {
			if ($DTS_Result == 0) {
				if (lhz_vote <= $DTS_VoteCount) {
					mes "[ͶƱԱ]";
					mes "ǿ˾";
					mes "ƻƳ";
					mes "³Ǵͷ";
					mes "а";
					next;
					mes " ";
					mes " ";
					if ($DTS_KafraWins == 0) {
						mes "^FF0000߹, ^000000";
					}
					else if ($DTS_KafraWins == 1) {
						mes "^FF0000߹, ^000000";
						mes "^FF0000, Level 3 ^000000";
					}
					else {
						mes "^FF0000߹, ^000000";
						mes "^FF0000,  ҶѨ, ^000000";
					}
					next;
					mes "[ͶƱԱ]";
					mes "Щ";
					mes "ͷȤĻ";
					mes "ͶƱ֧ǡ";
					mes "ǷԸͶƱ";
					mes "˾?";
					next;
					switch(select("- :- ")) {
					case 1:
						mes "[ͶƱԱ]";
						mes "ܹľ";
						mes "ıĻ";
						mes "ʱصѡ";
						mes "лл";
						mes "ף죬ðռҡ";
						break;
					case 2:
						set lhz_vote,$DTS_VoteCount+1;
						set $DTS_KafraVotes,$DTS_KafraVotes+1;
						mes "[ͶƱԱ]";
						mes "ллͶƱ";
						mes "ǻ߳Ϊ";
						mes "˿ṩǹ˾";
						mes "ʵķ";
						mes "ף죬ǿ˾Զվߡ";
						break;
					}
				}
				else {
					mes "[ͶƱԱ]";
					mes "Բ𣬵Ѿ ";
					mes "ͶƱѡ١";
					mes "´ͶƱʱ٣";
					mes "ʱٴͶƱ";
					mes "ף죡";
					mes "лл֧֣";
				}
			}
			else if ($DTS_Result == 3) {
				if (lhz_vote <= $DTS_VoteCount) {
					mes "[ͶƱԱ]";
					mes "һͶƱ";
					mes "Ʊͳƣ";
					mes "ǵóۣ";
					mes "ͶƱ";
					mes "ûдﵽҪ";
					next;
					mes "[ͶƱԱ]";
					mes "ˣǽһ";
					mes "ͶƱļҹ˾";
					mes "ṩ³Ǵ͵ķ";
					mes "˾ṩµ";
					mes "Ĵͷ";
					mes "а";
					next;
					mes " ";
					mes " ";
					if ($DTS_KafraWins == 0) {
						mes "FF0000߹, ^000000";
					}
					else if ($DTS_KafraWins == 1) {
						mes "^FF0000߹, ^000000";
						mes "^FF0000,  ^000000";
					}
					else {
						mes "^FF0000߹, ^000000";
						mes "^FF0000,  ҶѨ, ^000000";
					}
					next;
					mes "[ͶƱԱ]";
					mes "Щ";
					mes "ͷȤĻ";
					mes "ͶƱ֧ǡ";
					mes "ǷԸͶƱ";
					mes "˾?";
					next;
					switch(select("- :- ")) {
					case 1:
						mes "[ͶƱԱ]";
						mes "ܹľ";
						mes "ıĻ";
						mes "ʱصѡ";
						mes "лл";
						mes "ף죬ðռҡ";
						break;
					case 2:
						set lhz_vote,$DTS_VoteCount+1;
						set $DTS_KafraVotes,$DTS_KafraVotes+1;
						mes "[ͶƱԱ]";
						mes "ллͶƱ";
						mes "ǻ߳Ϊ";
						mes "˿ṩǹ˾";
						mes "ʵķ";
						mes "ף죬ǿ˾Զվߡ";
						break;
					}
				}
				else {
					mes "[ͶƱԱ]";
					mes "һͶƱ";
					mes "յƱͳƣ";
					mes "ǵóۣ";
					mes "ͶƱ";
					mes "ûдﵽҪ";
					next;
					mes "[ͶƱԱ]";
					mes "ˣǽһ";
					mes "ͶƱļҹ˾";
					mes "ṩ³Ǵ͵ķ";
					mes "ȻѾͶƱ";
					mes "ˣ޷ٴͶƱ";
					next;
					mes "[ͶƱԱ]";
					mes "ʮָл";
					mes "ͶƱеĻ";
					mes "ϣܹ";
					mes "´ͶƱ";
					mes "ллף죡";
				}
			}
			else {
				mes "[ͶƱԱ]";
				mes "Բȥǵǰ";
				mes "ûнͶƱ";
				mes "ͶƱʼʱ";
				mes "ϣܲ";
				mes "Ŀ";
				mes "лл֧֣";
			}
		//}
		break;
	case 3:
		if ($DTS_Result == 2) {
			mes "[ͶƱԱ]";
			mes "ллʹǵ";
			mes "³Ǵͷ";
			mes "ע⡣";
			mes "͵ȯ";
			mes "Լص㱣";
			mes "ڸ޷ʹá";
			next;
			if ($DTS_KafraWins == 0) {
				switch(select("- ߹,  -> 4,000 z:- ȡ")) {
				case 1:
					if (Zeny >= 4000) {
						cutin "",255;
						set Zeny, Zeny-4000;
						warp "xmas_dun02",130,123;
						end;
					}
					else {
						mes "[ͶƱԱ]";
						mes "Բ𣬵";
						mes "û㹻Ǯ";
						mes "֧4000ZenyĴͷ";
						mes "ǰ߹";
						mes "ȷϵĽǮ";
					}
					break;
				case 2:
					mes "[ͶƱԱ]";
					mes "ǣڿ˾";
					mes "һֱ߳ṩʷϣǵķ⡣";
					break;
				}
			}
			else if ($DTS_KafraWins == 1) {
				switch(select("- ߹,  -> 4,000 z:- , Level 3 -> 4,000 z:- ȡ")) {
				case 1:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "kafra_09",255;
						warp "xmas_dun02",130,123;
						end;
					}
					else {
						mes "[ͶƱԱ]";
						mes "Բ𣬵";
						mes "û㹻Ǯ";
						mes "֧4000Zenyͷ";
						mes "ǰ߹";
						mes "ȷϵĽǮ";
					}
					break;
				case 2:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "kafra_09",255;
						warp "alde_dun03",265,22;
						end;
					}
					else {
						mes "[ͶƱԱ]";
						mes "Բ𣬵";
						mes "û㹻Ǯ";
						mes "֧4000ZenyĴͷ";
						mes "ǰ";
						mes "ȷϵĽǮ";
					}
					break;
				case 3:
					mes "[ͶƱԱ]";
					mes "ǣڿ˾";
					mes "һֱ߳ṩʷϣǵķ⡣";
					break;
				}
			}
			else {
				switch(select("- ߹,  -> 4,000 z:- ,  -> 4,000 z:- ҶѨ,  -> 4,000 z:- ȡ")) {
				case 1:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "kafra_09",255;
						warp "xmas_dun02",130,123;
						end;
					}
					else {
						mes "[ͶƱԱ]";
						mes "Բ𣬵";
						mes "û㹻Ǯ";
						mes "֧4000Zenyͷ";
						mes "ǰ߹";
						mes "ȷϵĽǮ";
					}
					break;
				case 2:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "kafra_09",255;
						warp "alde_dun03",265,22;
						end;
					}
					else {
						mes "[ͶƱԱ]";
						mes "Բ𣬵";
						mes "û㹻Ǯ";
						mes "֧4000ZenyĴͷ";
						mes "ǰ";
						mes "ȷϵĽǮ";
					}
					break;
				case 3:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "kafra_09",255;
						warp "mag_dun02",47,40;
						end;
					}
					else {
						mes "[ͶƱԱ]";
						mes "[ͶƱԱ]";
						mes "Բ𣬵";
						mes "û㹻Ǯ";
						mes "֧4000ZenyĴͷ";
						mes "ǰҶѨ";
						mes "ȷϵĽǮ";
					}
					break;
				case 4:
					mes "[ͶƱԱ]";
					mes "ǣڿ˾";
					mes "һֱ߳ṩʷϣǵķ⡣";
					break;
				}
			}
		}
		else if ($DTS_Result == 1) {
			mes "[ͶƱԱ]";
			mes "Բ𣬻һε";
			mes "ͶƱ";
			mes "׼ڸ";
			mes "³ǵĴͷ";
			mes "Ϊ˶ĲʾǸ";
		}
		else {
			mes "[ͶƱԱ]";
			mes "Բ";
			mes "³Ǵͷ";
			mes "ͶƱڼ޷ʹá";
			mes "һͶƱ";
			mes "³Ǵͷ񽫻";
			mes "ڵһʱá";
		}
		break;
	case 4:
		mes "[ͶƱԱ]";
		mes "ǣڿ˾";
		mes "һֱ߳ṩʷϣǵķ⡣";
		break;
	}
	close2;
	cutin "",255;
	end;
}

yuno,162,191,4	script	ͶƱԱ#yuno	861,{
	callfunc "F_VoteKafra",9;
}
prontera,164,125,4	script	ͶƱԱ#prt	116,{
	callfunc "F_VoteKafra",2;
}
moc_ruins,97,133,4	script	ͶƱԱ#moc	116,{
	callfunc "F_VoteKafra",2;
}
geffen,122,37,4	script	ͶƱԱ#gef	116,{
	callfunc "F_VoteKafra",2;
}
payon,158,182,4	script	ͶƱԱ#pay	116,{
	callfunc "F_VoteKafra",2;
}
alberta,119,70,4	script	ͶƱԱ#alb	116,{
	callfunc "F_VoteKafra",2;
}
aldebaran,145,102,4	script	ͶƱԱ#alde	116,{
	callfunc "F_VoteKafra",2;
}
lighthalzen,163,60,4	script	ͶƱԱ#lght	861,{
	callfunc "F_VoteKafra",9;
}

-	script	׼Ա::VotingStaffCCE	874,{
	callfunc "F_ClearGarbage";				//Clear outdated, unused variables
	cutin "zonda_01",2;
	mes "[׼. ͶƱԱ]";
	mes "ã";
	mes "ǵѡͶƱ";
	mes "Ը";
	mes "׼뿨˾";
	mes "֮ѡ³Ǵͷ˾";
	next;
	switch(select("- ѡٵԭ:- ͶһƱ:- ʹôͷ:- ȡ")) {
	case 1:
		mes "[׼. ͶƱԱ]";
		mes "׼ⶨ";
		mes "Ϊ˿Ϳһµ";
		mes "³Ǵͷ";
		mes "һ˾";
		mes "δŵķ";
		mes "Ȼ";
		next;
		mes "[׼. ͶƱԱ]";
		mes "˾Ѿ";
		mes "¢˹г";
		mes "Ҳͬʱ";
		mes "һڹ";
		mes "ͷĵ³Ƿ";
		next;
		mes "[׼. ͶƱԱ]";
		mes "ڼ⣬";
		mes "ֻһ˾ԳΪ";
		mes "³ǴͷĹӦ̡";
		mes "ˣǽѡȨɹ˿ͣ";
		mes "ͨѡٲ̡";
		next;
		mes "[׼. ͶƱԱ]";
		mes "ǽжѡ٣";
		mes "ǵĹ˿;";
		mes "˾ҵ";
		mes "ǣȷԲͶƱ";
		next;
		mes "[׼. ͶƱԱ]";
		mes "ͶƱȨϸڣ";
		mes "ǰλϣ";
		mes "׼ܲ";
		mes "ϣλ";
		mes "㷢ȷ¹͹";
		mes "ллĹע";
		break;
	case 2:
		//if (lhz_boss < 17) {
		//	mes "[׼. ͶƱԱ]";
		//	mes "Բ𣬵";
		//	mes "ܲͶƱ";
		//	mes "λ";
		//	mes "ϣܲ";
		//	mes "ѯͶƱˡлл";
		//	close2;
		//	cutin "zonda_01",255;
		//	end;
		//}
		//else {
			if ($DTS_Result == 0) {
				if (lhz_vote <= $DTS_VoteCount) {
					mes "[׼. ͶƱԱ]";
					mes "׼,";
					mes "ǳΪ³";
					mes "͵ķṩ̣";
					mes "ǽṩ·";
					mes "";
					next;
					mes " ";
					mes " ";
					if ($DTS_JondaWins == 0) {
						mes "^FF0000׶, ^000000";
					}
					else if ($DTS_JondaWins == 1) {
						mes "^FF0000׶, ^000000";
						mes "^FF0000, ^000000";
					}
					else {
						mes "^FF0000׶, ^000000";
						mes "^FF0000, ^000000";
						mes "^FF0000˹غķųǴ^000000";
					}
					next;
					mes "[׼. ͶƱԱ]";
					mes "Щ͵";
					mes "ȤĻô";
					mes "ͷΪͶ";
					mes "һƱ";
					mes "Ը⽫ѡƱͶ";
					mes "׼?";
					next;
					switch(select("- :- ")) {
					case 1:
						mes "[׼. ͶƱԱ]";
						mes "ޣðɡ";
						mes "ı⣬";
						mes "ʱͶƱ";
						mes "׼硣";
						mes "ף졣";
						break;
					case 2:
						set lhz_vote,$DTS_VoteCount+1;
						set $DTS_JondaVotes,$DTS_JondaVotes+1;
						mes "[׼. ͶƱԱ]";
						mes "ллͶƱ";
						mes "Ĺ˿";
						mes "׼";
						mes "ϿؽȡΪ";
						mes "ûṩʷ";
						mes "ллף죡";
						break;
					}
				}
				else {
					mes "[׼. ͶƱԱ]";
					mes "ԲѾ";
					mes "ͶƱˡ";
					mes "ӭ";
					mes "´εͶƱ";
					mes "нѡƱͶ";
					mes "׼硣";
				}
			}
			else if ($DTS_Result == 3) {
				if (lhz_vote <= $DTS_VoteCount) {
					mes "[׼. ͶƱԱ]";
					mes "ܲңεѡ";
					mes "δռ㹻";
					mes "ѡƱҪ";
					mes "һֵѡѡ";
					mes "һṩ³Ǵ";
					mes "Ĺ˾";
					next;
					mes "[׼. ͶƱԱ]";
					mes "׼,";
					mes "ǳΪ³";
					mes "͵ķṩ̣";
					mes "ǽṩ·";
					mes "";
					next;
					mes " ";
					mes " ";
					if ($DTS_JondaWins == 0) {
						mes "^FF0000׶, ^000000";
					}
					else if ($DTS_JondaWins == 1) {
						mes "^FF0000׶, ^000000";
						mes "^FF0000, ^000000";
					}
					else {
						mes "^FF0000׶, ^000000";
						mes "^FF0000, ^000000";
						mes "^FF0000˹غķųǴ^000000";
					}
					next;
					mes "[׼. ͶƱԱ]";
					mes "Щ͵";
					mes "ȤĻô";
					mes "ͷΪͶ";
					mes "һƱ";
					mes "Ը⽫ѡƱͶ";
					mes "׼?";
					next;
					switch(select("- :- ")) {
					case 1:
						mes "[׼. ͶƱԱ]";
						mes "ޣðɡ";
						mes "ı⣬";
						mes "ʱͶƱ";
						mes "׼硣";
						mes "ף졣";
						break;
					case 2:
						set lhz_vote,$DTS_VoteCount+1;
						set $DTS_JondaVotes,$DTS_JondaVotes+1;
						mes "[׼. ͶƱԱ]";
						mes "ллͶƱ";
						mes "Ĺ˿";
						mes "׼";
						mes "ϿؽȡΪ";
						mes "ûṩʷ";
						mes "ллף죡";
						break;
					}
				}
				else {
					mes "[׼. ͶƱԱ]";
					mes "ܲңεѡ";
					mes "δռ㹻";
					mes "ѡƱҪ";
					mes "һֵѡѡ";
					mes "һṩ³Ǵ";
					mes "Ĺ˾";
					next;
					mes "[׼. ͶƱԱ]";
					mes "ǸлĲ룬";
					mes "ͬʱϣ";
					mes "´εͶƱѡ";
					mes "׼硣";
					mes "лл֧֣";
				}
			}
			else {
				mes "[׼. ͶƱԱ]";
				mes "Բ𣬵";
				mes "ڲûκͶƱ";
				mes "´ͶƱͶƱ";
				mes "ѡṩ³ǴͷĹ˾";
			}
		//}
		break;
	case 3:
		if ($DTS_Result == 1) {
			mes "[׼. ͶƱԱ]";
			mes "סǵķ񲻽";
			mes "͵ûȯͬʱ";
			mes "Ҳⴢ㡣";
			mes "ڣ";
			mes "ѡĿĵء";
			next;
			if ($DTS_JondaWins == 0) {
				switch(select("׶,  -> 4,000 z:- ȡ")) {
				case 1:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "zonda_01",255;
						warp "iz_dun02",234,206;
						end;
					}
					else {
						mes "[׼. ͶƱԱ]";
						mes "Բ𣬵Ǯ";
						mes "֧˴η";
						mes "Ĵͷѡ";
						mes "ͷΪ4000Zeny";
					}
					break;
				case 2:
					mes "[׼. ͶƱԱ]";
					mes "ס׼";
					mes "߾Ϊ˿";
					mes "ṩ";
					mes "ķ";
					mes "ǵķ󲻷";
					mes "䣬ݣлл";
					break;
				}
			}
			else if ($DTS_JondaWins == 1) {
				switch(select("- ׶,  -> 4,000 z:- ,  -> 4,000 z:- ȡ")) {
				case 1:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "zonda_01",255;
						warp "iz_dun02",234,206;
						end;
					}
					else {
						mes "[׼. ͶƱԱ]";
						mes "Բ𣬵Ǯ";
						mes "֧˴η";
						mes "Ĵͷѡ";
						mes "ͷΪ4000Zeny";
					}
					break;
				case 2:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "zonda_01",255;
						warp "c_tower3",64,143;
						end;
					}
					else {
						mes "[׼. ͶƱԱ]";
						mes "Բ𣬵Ǯ";
						mes "֧˴η";
						mes "Ĵͷѡ";
						mes "ͷΪ4000Zeny";
					}
					break;
				case 3:
					mes "[׼. ͶƱԱ]";
					mes "ס׼";
					mes "߾Ϊ˿";
					mes "ṩ";
					mes "ķ";
					mes "ǵķ󲻷";
					mes "䣬ݣлл";
					break;
				}
			}
			else {
				mes "[׼. ͶƱԱ]";
				mes "סǵķ񲻽";
				mes "͵ûȯͬʱ";
				mes "Ҳⴢ㡣";
				mes "ڣ";
				mes "ѡĿĵء";
				next;
				switch(select("- ׶,  -> 4,000 z:- ,  -> 4,000 z:- ˹غķ -> 4,000 z:- ȡ")) {
				case 1:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "zonda_01",255;
						warp "iz_dun02",234,206;
						end;
					}
					else {
						mes "[׼. ͶƱԱ]";
						mes "Բ𣬵Ǯ";
						mes "֧˴η";
						mes "Ĵͷѡ";
						mes "ͷΪ4000Zeny";
					}
					break;
				case 2:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "zonda_01",255;
						warp "c_tower3",64,143;
						end;
					}
					else {
						mes "[׼. ͶƱԱ]";
						mes "Բ𣬵Ǯ";
						mes "֧˴η";
						mes "Ĵͷѡ";
						mes "ͷΪ4000Zeny";
					}
					break;
				case 3:
					if (Zeny >= 4000) {
						set Zeny, Zeny-4000;
						cutin "zonda_01",255;
						warp "glast_01",368,303;
						end;
					}
					else {
						mes "[׼. ͶƱԱ]";
						mes "Բ𣬵Ǯ";
						mes "֧˴η";
						mes "Ĵͷѡ";
						mes "ͷΪ4000Zeny";
					}
					break;
				case 4:
					mes "[׼. ͶƱԱ]";
					mes "ס׼";
					mes "߾Ϊ˿";
					mes "ṩ";
					mes "ķ";
					mes "ǵķ󲻷";
					mes "䣬ݣлл";
					break;
				}
			}
		}
		else if ($DTS_Result == 2) {
			mes "[׼. ͶƱԱ]";
			mes "Բ׼";
			mes "ϴεͶƱ";
			mes "ѡ˵ǰ޷ṩ";
			mes "³Ǵͷ";
			mes "´ͶƱʱͶƱ";
			mes "ǣллף졣";
		}
		else {
			mes "[׼. ͶƱԱ]";
			mes "Բ";
			mes "³ǴͷͶƱڼ";
			mes "⿪š";
			mes "ǽͶƱԺ";
			mes "ллף졣";
		}
		break;
	case 4:
		mes "[׼. ͶƱԱ]";
		mes "׼һֱ";
		mes "ȷǵĹ˿";
		mes "ǵķе";
		mes "⣬ͬʱ鵽";
		mes "Ԥڸʵķ";
		mes "ллף죡";
		break;
	}
	close2;
	cutin "zonda_01",255;
	end;
}

yuno,153,191,6	duplicate(VotingStaffCCE)	׼Ա#yuno	874
prontera,147,125,6	duplicate(VotingStaffCCE)	׼Ա#prt	874
moc_ruins,104,133,6	duplicate(VotingStaffCCE)	׼Ա#moc	874
geffen,117,37,6	duplicate(VotingStaffCCE)	׼Ա#gef	874
payon,153,182,6	duplicate(VotingStaffCCE)	׼Ա#pay	874
alberta,114,70,6	duplicate(VotingStaffCCE)	׼Ա#alb	874
aldebaran,138,102,6	duplicate(VotingStaffCCE)	׼Ա#alde	874
lighthalzen,154,60,6	duplicate(VotingStaffCCE)	׼Ա#lhz	874

yuno,103,225,0	script	Э#5	-1,{
OnInit:
	initnpctimer;
	end;

OnEnable:
	initnpctimer;
	end;

OnTimer7200000:
	stopnpctimer;
	if (($DTS_Result == 0) || ($DTS_Result == 3)) {
		announce "Ŀǰ, ڽиͷṩѡ. ڴĲ.",bc_all,"0x70dbdb";
	}
	donpcevent "Э#5::OnEnable";
	end;
}

einbroch,248,71,0	script	Э#6	-1,{
OnEnable:
	initnpctimer;
	end;

OnTimer1000:
	announce "йڸͷṩѡٵͶƱյ, ᱻϸͳ.",bc_all,"0x70dbdb";
	end;

OnTimer5000:
	announce "ڵĽ...",bc_all,"0x70dbdb";
	end;

OnTimer10000:
	announce "һ, ¼˾. Ϊͷṩ.",bc_all,"0x70dbdb";
	end;

OnTimer15000:
	announce "ڲͶƱֵ֧ð, ǱʾԵĸл.",bc_all,"0x70dbdb";
	stopnpctimer;
	end;
}

einbroch,249,71,0	script	Э#7	-1,{
OnEnable:
	initnpctimer;
	end;

OnTimer1000:
	announce "йڸͷṩѡٵͶƱյ, ᱻϸͳ.",bc_all,"0x70dbdb";
	end;

OnTimer5000:
	announce "ڵĽ...",bc_all,"0x70dbdb";
	end;

OnTimer10000:
	announce "һ, ˾Ϊͷṩ.",bc_all,"0x70dbdb";
	end;

OnTimer15000:
	announce "ڲͶƱֵ֧ð, ǱʾԵĸл.",bc_all,"0x70dbdb";
	stopnpctimer;
	end;
}

/*
// GM only NPC used for modifying values related to the DTS system.
// Disabled in official script.
sec_in02,17,160,4	script	ͶƱŮ#yuno	864,{
	callfunc "F_GM_NPC";
	mes "[˹ٵŮ]";
	mes "˹Ůʿ!";
	next;
	if (callfunc("F_GM_NPC",1854,0) == 1) {
		mes "[˹ٵŮ]";
		mes "ǿ˹ŮʿŮ";
		next;
		switch(select("ȫֱ:setitem:޸ȫֱ")) {
		case 1:
			mes "ǰȫֱΪ";
			next;
			mes "[˹ٵŮ]";
			mes "Global 1 - ͶƱʱ : "+$DTS_Time+"";
			mes "Global 2 - ¼˾ ѡƱ : "+$DTS_JondaVotes+"";
			mes "Global 3 - ˾ ѡƱ : "+$DTS_KafraVotes+"";
			mes "Global 4 - ʤ : "+$DTS_Result+"";
			mes "Global 5 - ͷڼ : "+$DTS_PeriodCheck+"";
			mes "Global 6 - ˾ Ʊ : "+$DTS_KafraWins+"";
			mes "Global 7 - ¼˾ Ʊ : "+$DTS_JondaWins+"";
			mes "Global 8 - Ŀ : "+$DTS_VoteCount+"";
			next;
			mes "[˹ٵŮ]";
			mes "ǰsetitemΪ "+lhz_vote+".";
			close;
		case 2:
			set lhz_vote,0;
			close;
		case 3:
			mes "[˹ٵŮ]";
			mes "޸ĸȫֱ?";
			next;
			switch(select("1 - ͶƱʱ:2 - ׼Ʊ:3 - ˾Ʊ:4 - ʤ:5 - ͷʱ:6 - Ŀ:7 - ׼紫Ŀ:8 - Setitemֵ")) {
			case 1:
				mes "[˹ٵŮ]";
				mes "һ01000ֵ";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 1000)) {
					mes "[˹ٵŮ]";
					mes "";
					close;
				}
				set $DTS_Time,.@input;
				mes "[˹ٵŮ]";
				mes "޸";
				close;
			case 2:
				mes "[˹ٵŮ]";
				mes "һ01000ֵ";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 1000)) {
					mes "[˹ٵŮ]";
					mes "";
					close;
				}
				set $DTS_JondaVotes,.@input;
				mes "[˹ٵŮ]";
				mes "޸";
				close;
			case 3:
				mes "[˹ٵŮ]";
				mes "һ01000ֵ";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 1000)) {
					mes "[˹ٵŮ]";
					mes "";
					close;
				}
				set $DTS_KafraVotes,.@input;
				mes "[˹ٵŮ]";
				mes "޸";
				close;
			case 4:
				mes "[˹ٵŮ]";
				mes "һ03ֵ";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 3)) {
					mes "[˹ٵŮ]";
					mes "";
					close;
				}
				set $DTS_Result,.@input;
				mes "[˹ٵŮ]";
				mes "޸";
				close;
			case 5:
				mes "[˹ٵŮ]";
				mes "һ01000ֵ";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 1000)) {
					mes "[˹ٵŮ]";
					mes "";
					close;
				}
				set $DTS_PeriodCheck,.@input;
				mes "[˹ٵŮ]";
				mes "޸";
				close;
			case 6:
				mes "[˹ٵŮ]";
				mes "һ02ֵ";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 2)) {
					mes "[˹ٵŮ]";
					mes "";
					close;
				}
				set $DTS_KafraWins,.@input;
				mes "[˹ٵŮ]";
				mes "޸";
				close;
			case 7:
				mes "[˹ٵŮ]";
				mes "һ02ֵ";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 2)) {
					mes "[˹ٵŮ]";
					mes "";
					close;
				}
				set $DTS_JondaWins,.@input;
				mes "[˹ٵŮ]";
				mes "޸";
				close;
			case 8:
				mes "[˹ٵŮ]";
				mes "һ010000ֵ";
				next;
				input .@input;
				if ((.@input < 0) || (.@input > 10000)) {
					mes "[˹ٵŮ]";
					mes "";
					close;
				}
				set $DTS_VoteCount,.@input;
				mes "[˹ٵŮ]";
				mes "޸";
				close;
			}
		}
	}
	else {
		mes "[˹ٵŮ]";
		mes "˹Ůʿ";
		close;
	}
}
*/
