Restored history for dts_warper.txt

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@9897 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 965 insertions, 965 deletions

diff --git a/npc/kafras/dts_warper.txt b/npc/kafras/dts_warper.txt
index 6eae8fe34..446b0de31 100644
--- a/npc/kafras/dts_warper.txt
+++ b/npc/kafras/dts_warper.txt
@@ -1,966 +1,966 @@
-//===== eAthena Script ======================================= 

-//= Dungeon Teleport Service

-//===== By: ================================================== 

-//= Evera

-//===== Current Version: ===================================== 

-//= 2.3c

-//===== Compatible With: ===================================== 

-//= eAthena

-//===== Description: =========================================

-//= 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.

-//= Also includes Cool Event Corp HQ NPCs.

-//===== Variables: ===========================================

-//=Server - 	$dtsvote		= Variable for # of votes

-//=					= Positive = Cool Corp winning

-//=					= Negative = Kafra Corp winning

-//=		$dts			= Variable for DTS status

-//=					= (1<<0) Election

-//=					= (1<<1) Cool Corp Enabled

-//=					= (1<<2) Kafra Enabled

-//=					= (1<<3) No winner last election

-//=					= (1<<4) Cool Corp won last election

-//=					= (1<<5) Kafra won last election

-//=		$dtsday			= Week count for dts vote count, used for resetting players' votes

-//=Character -	dtseligible 		= eligibility status, 0 not eligible yet, 1 eligible.

-//=					= $dtsday used when MISC_QUEST|128, and signifies that person already voted.

-//=		MISC_QUEST		= |128 = eligible and voted.

-//=NPC Func. -	arg(0) 			= 0, Cool Event Corp Voting Staff; 1, Kafra Corp Voting Staff

-//=		arg(1)			= Kafra only, Cool Corp script does not use. Changes illus for different sprites.

-//=					= 0 = 4_f_kafra6 (yellow ponytail, classic outfit, spr 112)

-//=					= 1 = 4_f_kafra5 (pink hair, classic outfit, spr 113)

-//=					= 2 = 4_f_kafra4 (orange short hair, classic outfit, spr 114)

-//=					= 3 = 4_f_kafra3 (brown bangs, classic outfit, spr 115)

-//=					= 4 = 4_f_kafra2 (brown ponytale, classic outfit, spr 116)

-//=					= 5 = 4_f_kafra1 (blue hair, classic outfit, spr 117)

-//=					= 6 = 4_f_agentkafra (purp hair, black outfit, spr 859)

-//=					= 7 = 4_f_kafra8 (blue hair, brown outfit, spr 860)

-//=					= 8 = 4_f_kafra9 (red hair, brown outfit, spr 861)

-//=Temporary - 	@dtstemp		= Temporary buffer, used in GM vote-fixing

-//=		@dtstemps$		= Temporary buffer, like above, but a string.

-//=		$@dtstempg		= Temporary buffer, but global

-//===== Additional Comments: ================================= 

-//= Some unofficial translations, some unofficial dungeon warps

-//= Also includes unofficial GM-enabled tweaking for script

-//= Includes NPCs in Cool Event Corp headquarters

-//= If new locations are found of this NPC, please report on forums

-//= http://www.eathena.ws/board/index.php?showforum=106

-//= Base level 60 required to vote

-//===== Version History: ====================================

-//= 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

-//============================================================ 

-

-//Yuno

-yuno.gat,153,191,4	script	Cool Event Voting Staff::CoolEventVotingStaff01	874,{

-	callfunc "F_DTS_Warp",0,0;

-}

-yuno.gat,162,191,6	script	Kafra Voting Staff#01	861,{

-	callfunc "F_DTS_Warp",1,8;

-}

-//Lighthalzen

-lighthalzen.gat,154,60,6	script	Cool Event Voting Staff::CoolEventVotingStaff02	874,{

-	callfunc "F_DTS_Warp",0,0;

-}

-//Prontera

-prontera.gat,147,125,4	script	Cool Event Voting Staff::CoolEventVotingStaff03	874,{

-	callfunc "F_DTS_Warp",0,0;

-}

-prontera.gat,164,125,6	script	Kafra Voting Staff#02	115,{

-	callfunc "F_DTS_Warp",1,3;

-}

-

-//Cool Event Staff Headquarters NPCs

-//Kudiuu (Maintenance Guy)

-lhz_in02.gat,20,274,6	script	Maintenance Guy	851,{

-	mes "[Kudiuu]";

-	mes "Holy...!";

-	mes "Will this place";

-	mes "ever get cleaned up?!";

-	mes "*Cough cough* There's";

-	mes "so much dust here, it's";

-	mes "almost a health hazard!";

-	close;

-}

-//Cesuna (Zondaman at desk)

-lhz_in02.gat,36,284,1	script	Cool Event Staff#01	874,{

-	mes "[Cesuna]";

-	mes "Ack! I'm totally";

-	mes "swamped with all this";

-	mes "work! But I don't wannna";

-	mes "do any of it. That's it!";

-	mes "I totally need a break";

-	next;

-	mes "[Cesuna]";

-	mes "*Sigh...*";

-	mes "I wonder if Saera";

-	mes "would ever consider";

-	mes "going out with me?";

-	mes "That would be nice~";

-	close;

-}

-//Jellarin (Event planner)

-lhz_in02.gat,40,279,3	script	Event Planner	833,{

-	mes "[Jellarin]";

-	mes "I don't like this.";

-	mes "But I don't like that";

-	mes "idea either. What will";

-	mes "I do for a new event, eh?";

-	next;

-	mes "[Jellarin]";

-	mes "I need something";

-	mes "major, something that'll";

-	mes "really shake up the world,";

-	mes "something epochal, but what?";

-	mes "Hey, do you have any ideas";

-	close;

-}

-//Baoto (Cool Event Manager)

-lhz_in02.gat,110,283,5	script	Cool Event Manager	853,{

-	mes "[Baoto]";

-	mes "Hmmm...";

-	mes "The employees seem";

-	mes "to be having too much";

-	mes "fun amongst themselves";

-	mes "recently. This does not";

-	mes "bode well at all...";

-	next;

-	mes "[Baoto]";

-	mes "It looks like I'm";

-	mes "just going to have to";

-	mes "start cracking that whip";

-	mes "more often and much";

-	mes "harder. Ha ha ha ha!";

-	close;

-}

-//Saera (Secretary), contains GM menu

-lhz_in02.gat,36,274,3	script	Cool Event Staff#02	831,{

-	callfunc "F_ClearGarbage";				//Clear outdated, unused variables

-	if($dts == 0){

-		set $dts,$dts|(1<<0);				//Sets NPCs to election mode if first time running

-		set $dts,$dts|(1<<3);

-	}

-	if($dts&(1<<1) && $dts&(1<<2) || $dts&(1<<0) && $dts&(1<<1) || $dts&(1<<0) && $dts&(1<<2)){

-		if($dts&(1<<0)) set $dts,$dts&~(1<<0);

-		if($dts&(1<<1)) set $dts,$dts&~(1<<1);

-		if($dts&(1<<2)) set $dts,$dts&~(1<<2);

-		set $dts,$dts|(1<<0);

-	}

-	if($dts&(1<<4) && $dts&(1<<5) || $dts&(1<<3) && $dts&(1<<4) || $dts&(1<<3) && $dts&(1<<5)){

-		if($dts&(1<<3)) set $dts,$dts&~(1<<3);

-		if($dts&(1<<4)) set $dts,$dts&~(1<<4);

-		if($dts&(1<<5)) set $dts,$dts&~(1<<5);

-		set $dts,$dts|(1<<3);

-	}

-	mes "[Saera]";

-	mes "Welcome to the";

-	mes "temporary headquarters";

-	mes "of Cool Event Corporation";

-	mes "How may I help you today?";

-	next;

-	if(getgmlevel()>=40){ 						//Unofficial Text, GM-configurable settings for Event (GM level above 40 required)

-		mes "[Saera]";

-		mes "Why, I didn't even";

-		mes "notice you there,";

-		mes strcharinfo(0)+". What would";

-		mes "you like to do today?";

-		next;

-		menu "Fix Vote",Lfixvote,

-		"Set current teleporter",Lsettele,

-		"Set last election winner",Lsetlast,

-		"Manually run vote check",Lmanuvotecheck,

-		"Normal menu please",-;

-		mes "[Saera]";

-		mes "Ok";

-		next;

-	}

-	menu "Temporary headquarters?",Ltemphead,

-	"Voting",Lvoting,"No, thanks.",Lnothx;

-

-	Ltemphead:

-		mes "[Saera]";

-		mes "Our headquarters building";

-		mes "is currently undergoing";

-		mes "reconstruction, so we are";

-		mes "basing our operations in";

-		mes "this place for the meantime";

-		close;

-

-	Lvoting:

-		mes "[Saera]";

-		mes "Currently, Kafra Corporation";

-		mes "and Cool Event Corp are working";

-		mes "on a collaborative program that";

-		mes "will provide direct teleport";

-		mes "services to dungeons.";

-		next;

-		mes "[Saera]";

-		mes "Due to technical issues,";

-		mes "both companies cannot provide";

-		mes "teleport services to the same";

-		mes "dungeon. Therefore, we will be";

-		mes "selecting our valued customers";

-		mes "to choose the company they want.";

-		next;

-		if((dtseligible == 0 || dtseligible == 3) && baselevel >= 60 && MISC_QUEST&128 == 0) set dtseligible,1;

-		//Clear previous var of dtseligible,3 being tried for eligibility already

-		if(dtseligible != $dtsday && baselevel >= 60 && MISC_QUEST&128){

-			set MISC_QUEST,MISC_QUEST&~128;

-			set dtseligible,1;

-		}

-		switch(dtseligible){

-			default:

-				mes "[Saera]";

-				mes "Only a limited number of";

-				mes "voters will be chosen, so";

-				mes "you can check your voting";

-				mes "eligibility at the headquarters";

-				mes "of both participating companies.";

-				mes "Thank you for your patronage~";

-				close;

-				break;

-			case 1:

-				mes "[Saera]";

-				mes "It appears that you are";

-				mes "eligible to vote";

-				mes "so please cast your";

-				mes "vote at any Voting Staff";

-				mes "representative. Thank you~";

-				close;

-				break;

-			case 2:

-				mes "[Saera]";

-				mes "You are eligible to vote, but";

-				mes "you have already voted. Thank";

-				mes "you for your participation";

-				close;

-				break;

-		}

-

-	Lnothx:

-		mes "[Saera]";

-		mes "Thank you.";

-		mes "Have a good day.";

-		close;

-									//GM options start

-	Lfixvote:							//Fix Vote

-		mes "[Saera]";

-		mes "Umm, sure..";

-		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";

-		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";

-		if($dtsv == 0) mes "The vote is currently tied.";

-		mes "To who would you like to give votes to?";

-		next;

-		menu "Kafra",-,"Cool Event Corp",Lfixcool;

-

-	Lfixkafra:							//Fixing vote for Kafra

-		mes "[Saera]";

-		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";

-		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";	//multiplied by -1 because var is negative

-		if($dtsv == 0) mes "The vote is currently tied.";

-		mes "Please input the amount you wish to give to Kafra Corp";

-		input @dtstemp;					//Set buffer for Kafra vote

-		next;

-		mes "[Saera]";

-		mes "You inputted "+@dtstemp+" for Kafra";

-		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";

-		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";

-		if($dtsv == 0) mes "The vote is currently tied.";

-		mes "Are you sure you would like to";

-		mes "make these changes?";

-		next;

-		menu "Yes",-,"No",Lnothx;

-		set $dtsv,$dtsv-@dtstemp;				//Set buffer to Kafra vote

-		mes "[Saera]";

-		mes "Okay, you fixed the vote";

-		mes "of Kafra Corp.";

-		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";

-		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";

-		if($dtsv == 0) mes "The vote is currently tied.";

-		close;

-

-	Lfixcool:						//Fixing vote for cool corp

-		mes "[Saera]";

-		mes "Let me find the papers...";

-		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";

-		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";

-		if($dtsv == 0) mes "The vote is currently tied.";

-		mes "Please input new vote for Cool Event Corp";

-		input @dtstemp;					//Set buffer for Cool vote

-		next;

-		mes "[Saera]";

-		mes "You inputted "+@dtstemp+" for Cool Event Corp";

-		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";

-		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";

-		if($dtsv == 0) mes "The vote is currently tied.";

-		mes "Are you sure you would like to";

-		mes "make these changes?";

-		next;

-		menu "Yes",-,"No",Lnothx;			//Confirmaiton

-		set $dtsv,@dtsv+@dtstemp;			//Set buffer to Cool vote

-		mes "[Saera]";

-		mes "Okay, you fixed the vote";

-		mes "of Cool Event Corp.";

-		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";

-		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";

-		if($dtsv == 0) mes "The vote is currently tied.";

-		close;

-

-	Lsettele:							//Set current DTS tele

-		mes "[Saera]";

-		mes "Type Kafra for Kafra-enabled warp,";

-		mes "Cool for Cool Event Corp-enabled";

-		mes "warp ,Election for election mode,";

-		mes "or Cancel to cancel.";

-		if($dts&(1<<0)) mes "The election is currently in election mode.";

-		if($dts&(1<<1)) mes "Cool Event Corp is currently the DTS warper.";

-		if($dts&(1<<2)) mes "Kafra Corp is currently the DTS warper.";

-		next;

-		input @dtstemps$;					//Typed in choices to prevent mistakes

-		mes "Let me find the papers...";

-		next;

-		if(@dtstemps$ == "Election" || @dtstemps$ == "election"){

-			if($dts&(1<<1)){

-				set $dts,$dts&~(1<<1);			//Removes previous winner

-				set $dts,$dts|(1<<0);			//Changes status to election

-			}

-			if($dts&(1<<2)){

-				set $dts,$dts&~(1<<2);

-				set $dts,$dts|(1<<0);

-			}

-			mes "[Saera]";

-			mes "Set to election mode.";

-			close;

-		}

-		if(@dtstemps$ == "Cool" || @dtstemps$ == "cool"){

-			if($dts&(1<<0)){

-				set $dts,$dts&~(1<<0);

-				set $dts,$dts|(1<<1);

-			}

-			if($dts&(1<<2)){

-				set $dts,$dts&~(1<<2);

-				set $dts,$dts|(1<<1);

-			}

-			mes "[Saera]";

-			mes "Cool Event Corp. is now the DTS warper.";

-			close;

-		}

-		if(@dtstemps$ == "Kafra" || @dtstemps$ == "kafra"){

-			if($dts&(1<<1)){

-				set $dts,$dts&~(1<<1);

-				set $dts,$dts|(1<<2);

-			}

-			if($dts&(1<<0)){

-				set $dts,$dts&~(1<<0);

-				set $dts,$dts|(1<<2);

-			}

-			mes "[Saera]";

-			mes "Kafra Corp. is now the DTS warper.";

-			close;

-		}

-		if(@dtstemps$ == "Cancel" || @dtstemps$ == "cancel") goto Lnothx;

-		mes "[Saera]";

-		mes "Please input a correct name for the election";

-		next;

-		goto Lsettele;

-

-	Lsetlast:							//Set last winner

-		mes "[Saera]";

-		mes "Type Kafra for election records to show Kafra,";

-		mes "Cool for Cool for election records to show Cool Event Corp,";

-		mes "None for no winner in election records,";

-		mes "or Cancel to cancel.";

-		if($dts&(1<<3)) mes "There was no previous winner";

-		if($dts&(1<<4)) mes "Cool Event Corp was the last winner";

-		if($dts&(1<<5)) mes "Kafra Corp was the last winner";

-		next;

-		input @dtstemps$;

-		mes "[Saera]";

-		mes "Let me find the papers...";

-		next;

-		if(@dtstemps$ == "None" || @dtstemps$ == "none"){

-			if($dts&(1<<4)){

-				set $dts,$dts&~(1<<4);			//removes last winner

-				set $dts,$dts|(1<<3);			//sets current last winner

-			}

-			if($dts&(1<<5)){

-				set $dts,$dts&~(1<<5);

-				set $dts,$dts|(1<<3);

-			}

-			mes "[Saera]";

-			mes "Set records to show no previous winner.";

-			close;

-		}

-		if(@dtstemps$ == "Cool" || @dtstemps$ == "cool"){

-			if($dts&(1<<3)){

-				set $dts,$dts&~(1<<3);

-				set $dts,$dts|(1<<4);

-			}

-			if($dts&(1<<5)){

-				set $dts,$dts&~(1<<5);

-				set $dts,$dts|(1<<4);

-			}

-			mes "[Saera]";

-			mes "Cool Event Corp. is now the previous winner.";

-			close;

-		}

-		if(@dtstemps$ == "Kafra" || @dtstemps$ == "kafra"){

-			if($dts&(1<<3)){

-				set $dts,$dts&~(1<<3);

-				set $dts,$dts|(1<<5);

-			}

-			if($dts&(1<<4)){

-				set $dts,$dts&~(1<<4);

-				set $dts,$dts|(1<<5);

-			}

-			mes "[Saera]";

-			mes "Kafra Corp. is now the previous winner.";

-			close;

-		}

-		if(@dtstemps$ == "Cancel" || @dtstemps$ == "cancel") goto Lnothx;

-		mes "[Saera]";

-		mes "Please input a correct name";

-		mes "for previous winner";

-		next;

-		goto Lsetlast;

-

-	Lmanuvotecheck:

-		mes "[Saera]";

-		mes "Are you sure you would like to run";

-		mes "the vote check again?";

-		next;

-		menu "Yes",Lmanuvoteyes,"No",Lnothx;

-

-	Lmanuvoteyes:

-		if($dtsday<4 || $dtsday>=100) set $dtsday,4;

-		else set $dtsday,$dtsday+1;

-		if($dts&(1<<1) && $dts&(1<<2) || $dts&(1<<0) && $dts&(1<<1) || $dts&(1<<0) && $dts&(1<<2)){

-			if($dts&(1<<0)) set $dts,$dts&~(1<<0);

-			if($dts&(1<<1)) set $dts,$dts&~(1<<1);

-			if($dts&(1<<2)) set $dts,$dts&~(1<<2);

-			set $dts,$dts|(1<<0);

-		}

-		if($dts&(1<<4) && $dts&(1<<5) || $dts&(1<<3) && $dts&(1<<4) || $dts&(1<<3) && $dts&(1<<5)){

-			if($dts&(1<<3)) set $dts,$dts&~(1<<3);

-			if($dts&(1<<4)) set $dts,$dts&~(1<<4);

-			if($dts&(1<<5)) set $dts,$dts&~(1<<5);

-			set $dts,$dts|(1<<3);

-		}

-		if($dtsv == 0){

-			set $@dtstemp,rand(1,2);

-			if($@dtstemp == 1) set $dtsv,$dtsv+100;

-			else set $dtsv,$dtsv-100;

-		}

-		if($dtsv > 0){

-			if($dts&(1<<3)) set $dts,$dts&~(1<<3);			//removes last winner varialbes

-			if($dts&(1<<4)) set $dts,$dts&~(1<<4);

-			if($dts&(1<<5)) set $dts,$dts&~(1<<5);

-			if($dts&(1<<0)){

-				set $dts,$dts&~(1<<0);				//removes winner variable

-				set $dts,$dts|(1<<3);				//sets last winner varialbe

-				set $dts,$dts|(1<<1);				//sets current winner variable

-			}

-			if($dts&(1<<1)) set $dts,$dts|(1<<4);

-			if($dts&(1<<2)){

-				set $dts,$dts&~(1<<2);

-				set $dts,$dts|(1<<1);

-				set $dts,$dts|(1<<5);

-			}

-			set $dtsv,0;

-		}

-		else{

-			if($dts&(1<<3)) set $dts,$dts&~(1<<3);

-			if($dts&(1<<4)) set $dts,$dts&~(1<<4);

-			if($dts&(1<<5)) set $dts,$dts&~(1<<5);

-			if($dts&(1<<0)){

-				set $dts,$dts&~(1<<0);

-				set $dts,$dts|(1<<2);

-				set $dts,$dts|(1<<3);

-			}

-			if($dts&(1<<1)){

-				set $dts,$dts&~(1<<1);

-				set $dts,$dts|(1<<2);

-				set $dts,$dts|(1<<4);

-			}

-			if($dts&(1<<2)) set $dts,$dts|(1<<5);

-			set $dtsv,0;

-		}

-		mes "[Saera]";

-		mes "Vote check run again.";

-		if($dts&(1<<0)) mes "The election is currently in election mode.";

-		if($dts&(1<<1)) mes "Cool Event Corp is currently the DTS warper.";

-		if($dts&(1<<2)) mes "Kafra Corp is currently the DTS warper.";

-		close;

-}

-

-//Function for Voting Staff NPC

-function	script	F_DTS_Warp	{

-	callfunc "F_ClearGarbage"; //Clear outdated, unused variables

-	if($dts == 0){ 						//Sets NPCs to election mode if first time running

-		set $dts,$dts|(1<<0);

-		set $dts,$dts|(1<<3);

-	}

-	if((dtseligible == 0 || dtseligible == 3) && baselevel >= 60 && MISC_QUEST&128 == 0) set dtseligible,1;	//Clear previous var of dtseligible,3 being tried for eligibility already

-	if(dtseligible != $dtsday && baselevel >= 60 && MISC_QUEST&128){

-		set MISC_QUEST,MISC_QUEST&~128;

-		set dtseligible,1;

-	}

-	switch(getarg(0)){

-	case 0:

-		cutin "zonda_01",2;

-		mes "[Cool Event Corp. Voting Staff]";

-		mes "Hello! Don't forget to make";

-		mes "your voice be heard and make";

-		mes "sure you vote in the elections";

-		mes "between Cool Event Corp. and";

-		mes "Kafra Corporation for control of";

-		mes "the Dungeon Teleport Service!";

-		break;

-	case 1:

-		switch(getarg(1)){

-		case 0: cutin "kafra_06",2; break;			//Finding arguments to find which illust to use

-		case 1: cutin "kafra_05",2; break;			//Used Red hair "kafra_09" for black outfit kafra

-		case 2: cutin "kafra_04",2; break;			//because I couldn't find a suitable illust

-		case 3: cutin "kafra_03",2; break;

-		case 4: cutin "kafra_02",2; break;

-		case 5: cutin "kafra_01",2; break;

-		case 6: cutin "kafra_09",2; break;

-		case 7: cutin "kafra_08",2; break;

-		case 8: cutin "kafra_09",2; break;

-		default: cutin "kafra_09",2; break;

-		}

-		mes "[Kafra Voting Staff]";

-		mes "Greetings, adventurer.";

-		mes "As you may be aware, we";

-		mes "are holding an election to";

-		mes "provide the Dungeon Teleport";

-		mes "Service. How may I help you?";

-		break;

-	}

-	next;

-	menu "Reason for Election",Lelection,"Cast a Vote",Lvote,

-	"Use Teleport Service",Lteleport,"Cancel",Lcancel;

-

-	Lelection: 							//Reason for election explanation

-		switch(getarg(0)){

-		case 0:

-			mes "[Cool Event Corp. Voting Staff]";

-			mes "Cool Event Corp. has been";

-			mes "planning to provide a new";

-			mes "Dungeon Teleport Service to";	

-			mes "its customers, a service not";

-			mes "already provided by the Kafra";

-			mes "Corporation. However...";

-			next;

-			mes "[Cool Event Corp. Voting Staff]";

-			mes "Kafra Corporation, which";

-			mes "already monopolizes the";

-			mes "public teleportation market,";

-			mes "actually also had plans to";

-			mes "provide a similar service.";

-			next;

-			mes "[Cool Event Corp. Voting Staff]";

-			mes "Because of technological";

-			mes "limitations, only one company";

-			mes "can be chosen as the provider";

-			mes "of this Dungeon Teleport Service.";

-			mes "Hence, we will let the customers";

-			mes "decide through these elections.";

-			next;

-			mes "[Cool Event Corp. Voting Staff]";

-			mes "Multiple elections will be";

-			mes "held so that our customers";

-			mes "can test out the special services";

-			mes "of each company for themselves.";

-			mes "However, keep in mind that you";

-			mes "must be eligible in order to vote.";

-			next;

-			mes "[Cool Event Corp. Voting Staff]";

-			mes "For voter eligibility";

-			mes "details, please visit our";

-			mes "headquarters in the city of";

-			mes "Lighthalzen located in the";

-			mes "Schwarzwald Republic.";

-			mes "Thank you for your time.";

-			break;

-		case 1:

-			mes "[Kafra Voting Staff]";

-			mes "Cool Event Corp and the";

-			mes "Kafra Corporation have both";

-			mes "been planning to provide a";

-			mes "Teleport Service to dungeons.";

-			next;

-			mes "[Kafra Voting Staff]";

-			mes "But due to technological";

-			mes "limitations, only one company";

-			mes "can serve as provider for this";

-			mes "Dungeon Teleport Service at a";

-			mes "time. There, both companies have";

-			mes "agreed to hold special elections";

-			next;

-			mes "[Kafra Voting Staff]";

-			mes "Each company has its own";

-			mes "policies and guarantees in";

-			mes "regards to the Dungeon Teleport";

-			mes "Service, and in this election, the";

-			mes "customers will ultimately decide";

-			mes "and choose what's best for them.";

-			next;

-			mes "[Kafra Voting Staff]";

-			mes "For now, the Dungeon";

-			mes "Teleport Service will be";

-			mes "provided in a series of trial";

-			mes "periods. This way, customers can";

-			mes "see the benefits of both companies";

-			mes "before making the final decision";

-			next;

-			mes "[Kafra Voting Staff]";

-			mes "If you are qualified,";

-			mes "please vote in each election";

-			mes "to decide which company will";

-			mes "provide the Dungeon Teleport";

-			mes "Service for the next trial period.";

-			mes "Thank you for your support~";

-			break;

-		}

-		goto Lend;

-

-	Lvote: //If you clicked you wanted to vote

-		if(dtseligible == 1) goto Leligible; 			//Var check if eligible

-

-	Lnoteligible: 							//Text displayed if wanted to vote, but not eligible/voted

-		switch(getarg(0)){

-		case 0:

-			mes "[Cool Event Corp. Voting Staff]";

-			mes "I'm sorry, but you are not";

-			mes "eligible to vote at this time.";

-			mes "Please visit our headquarters";

-			mes "in Lighthalzen for information";

-			mes "related to acquiring voting";

-			mes "rights. Thank you for your time.";

-			break;

-		case 1:

-			mes "[Kafra Voting Staff]";

-			mes "Oh, I'm so sorry, but you";

-			mes "are currently not qualified to";

-			mes "vote. For voting qualification";

-			mes "information, please visit the";

-			mes "Al De Baran Kafra Headquarters.";

-			mes "Thank you and have a nice day.";

-			break;

-		}

-		goto Lend;

-

-	Leligible: 							//Text displayed if eligible to vote

-		if(MISC_QUEST&128 && $dtsday == dtseligible) goto Lnoteligible; //Var check if voted

-		switch(getarg(0)){

-		case 0:

-			mes "[Cool Event Corp. Voting Staff]"; 		//Unofficial text

-			mes "Checking your credentials, you";

-			mes "are able to vote for the";

-			mes "Dungeon Teleport Service";

-			mes "elections. Who would you like";

-			mes "to vote for?";

-			break;

-		case 1:

-			mes "[Kafra Voting Staff]";

-			mes "It appears that you qualify";

-			mes "to vote for the Dungeon";

-			mes "Teleport Service elections.";

-			mes "Who would you like to vote for";		//End Unofficial text

-			break;

-		}

-		next;

-		menu "Cool Event Corp.",Lvotecool,"Kafra Corp.",Lvotekafra;

-	

-	Lvotecool:

-		set $dtsv,$dtsv+1;				//Adds 1 to cool count

-		set MISC_QUEST,MISC_QUEST|128;				//Sets var so that you can't vote over and over

-		set dtseligible,$dtsday;

-		switch(getarg(0)){

-		case 0:

-			mes "[Cool Event Corp. Voting Staff]";

-			mes "Thank you for voting for us.";

-			mes "Your vote has been counted,";

-			mes "and we appreciate your input";

-			mes "Thank you and have a good day.";

-			break;

-		case 1:

-			mes "[Kafra Voting Staff]";

-			mes "We thank you for your vote.";

-			mes "Your opinion matters very much";

-			mes "and has been counted for Cool";

-			mes "Event Corp.";

-			break;

-		}

-		goto Lend;

-

-	Lvotekafra:

-		setd $dtsv,$dtsv-1; 				//Adds 1 to kafra count

-		set MISC_QUEST,MISC_QUEST|128; 			//Sets var to prevent cheating

-		set dtseligible,$dtsday;

-		switch(getarg(0)){

-		case 0:

-			mes "[Cool Event Corp. Voting Staff]";		//Unofficial Text

-			mes "Thank you for your opinion.";

-			mes "Your vote for Kafra corp.";

-			mes "has been counted. Thank";

-			mes "you and have a good day.";

-			break;

-		case 1:

-			mes "[Kafra Voting Staff]";

-			mes "Your vote for us has been";

-			mes "counted. We thank you very";

-			mes "much for your input, and";

-			mes "we hope that we meet your";

-			mes "adventuring needs and";

-			mes "standards of excellence.";

-			break;

-		}

-		goto Lend;						//End Unofficial text

-

-	Lteleport: 							//Selected Teleport

-		switch(getarg(0)){

-		case 0:

-			if($dts&(1<<0)){

-				mes "[Cool Event Corp. Voting Staff]";

-				mes "I'm sorry, but the";

-				mes "Dungeon Teleport Service is";

-				mes "unavailable during elections";

-				mes "and will be reactivated after the";

-				mes "election results are announced.";

-				mes "Thank you and have a nice day.";

-				goto Lend;

-			}

-			if($dts&(1<<1)) goto Lteleenabled;

-			mes "[Cool Event Corp. Voting Staff]";		//Text if Kafra won DTS elect.

-			mes "I'm sorry, but Cool Event";

-			mes "Corp. does not currently offer";

-			mes "the Dungeon Teleport Service";

-			mes "due to the results of the last";

-			mes "election. Please vote for us";

-			mes "next time, alright? Good day~";

-			break;

-		case 1:

-			if($dts&(1<<0)){

-				mes "[Kafra Voting Staff]";

-				mes "Sorry, but the elections for";

-				mes "which Dungeon Teleport System";

-				mes "to use is currently going on";

-				mes "right now. We are unable to";

-				mes "vote until results are announced";

-				goto Lend;

-			}

-			if($dts&(1<<2)) goto Lteleenabled;

-			mes "[Kafra Voting Staff]";

-			mes "We're sorry, but Kafra Corp";

-			mes "doesn't currently offer the";

-			mes "Dungeon Teleport System due";

-			mes "to last election's results,";

-			mes "Please vote for Kafra Corp";

-			mes "next time~";

-			break;

-		}

-		goto Lend;

-

-	Lteleenabled: 							//Shows DTS tele selections

-	cleararray @dtswarpmap$[0],"",getarraysize(@dtswarpmap$);

-	cleararray @dtswarp$[0],"",getarraysize(@dtswarp$);

-	switch(getarg(0)){

-	case 0:

-		mes "[Cool Event Corp. Voting Staff]";

-		mes "Please remember that we";

-		mes "cannot accept Free Warp Tickets";

-		mes "or award Special Reserve Points";

-		mes "for this service. Now, please";

-		mes "choose your destination.";

-		setarray @dtswarpmap$[0],"Byalan, Level 4","Clock Tower, Basement 3";

-		setarray @dtswarp$[0],@dtswarpmap$[0]+" -> 4,000z",

-		@dtswarpmap$[1]+" -> 4,000z","Cancel";

-		if($dts&(1<<4)){ 

-			set @dtswarpmap$[2],"Glastheim Entrance";

-			setarray @dtswarp$[2],@dtswarpmap$[2]+" -> 4,000z","Cancel";

-		}

-		break;

-	case 1:

-		mes "[Kafra Voting Staff]";

-		mes "Thank you for choosing the";

-		mes "Dungeon Teleport Service";

-		mes "Please keep in mind that the";

-		mes "Free Warp Tickets and Kafra";

-		mes "Special Reserve Points do not";

-		mes "apply in this special service.";

-		setarray @dtswarpmap$[0],"Toy Factory, Level 2","Clock Tower, Level 3";

-		setarray @dtswarp$[0],@dtswarpmap$[0]+" -> 4,000z",

-		@dtswarpmap$[1]+" -> 4,000z","Cancel";

-		if($dts&(1<<5)){ 

-			set @dtswarpmap$[2],"Lava Dungeon, Level 2";

-			setarray @dtswarp$[2],@dtswarpmap$[2]+" -> 4,000z","Cancel";

-		}

-		break;

-	}

-	next;

-	switch(select(@dtswarp$[0],@dtswarp$[1],@dtswarp$[2],@dtswarp$[3])){

-		case 1:

-			set @num, 0;

-			break;

-		case 2:

-			set @num, 1;

-			break;

-		case 3:

-			set @num, 2;

-			break;

-		case 4:

-			set @num, 3;

-			break;

-	}

-	Lwarp:

-		if (@dtswarp$[@num] == "Cancel") goto Lcancel;

-		if (Zeny<4000) goto Lnomoney;

-		set Zeny, Zeny-4000;

-		if (@dtswarpmap$[@num] == "Toy Factory, Level 2") warp "xmas_dun02.gat",130,123;

- //Maps to warp to

-		if (@dtswarpmap$[@num] == "Clock Tower, Level 3") warp "alde_dun03.gat",265,22;

-

-		if (@dtswarpmap$[@num] == "Lava Dungeon, Level 2") warp "mag_dun02.gat",47,40;

-

-		if (@dtswarpmap$[@num] == "Byalan, Level 4") warp "iz_dun03.gat",32,63;

-

-		if (@dtswarpmap$[@num] == "Clock Tower, Basement 3") warp "alde_dun03.gat",277,178;

-

-		if (@dtswarpmap$[@num] == "Glastheim Entrance") warp "glast_01.gat",370,304;

-

-		cutin "", 255;

-		end;

-	Lnomoney:

-		switch(getarg(0)){

-		case 0:

-			mes "[Cool Event Corp. Voting Staff]"; 		//Unofficial Text

-			mes "Umm, apparently you don't have";

-			mes "adequate funds for your";

-			mes "selected warp. Please check";

-			mes "that you have the correct amount";

-			mes "of money, and try again later";

-			break;

-		case 1:

-			mes "[Kafra Voting Staff]";

-			mes "It appears as if you don't";

-			mes "have enough zeny for the warp";

-			mes "Please check your funds and";

-			mes "try again.";

-			break;

-		}

-		goto Lend;						//End unofficial text

-

-	Lcancel: 							//Selected Cancel on first menu

-		switch(getarg(0)){

-		case 0:

-			mes "[Cool Event Corp. Voting Staff]";	

-			mes "Cool Event Corp. is always";

-			mes "working to make sure that";

-			mes "not only are our customers";

-			mes "satisfied, but that we also";

-			mes "exceed your utmost standards.";

-			mes "Thank you and have a good day.";

-			break;

-		case 1:

-			mes "[Kafra Voting Staff]";

-			mes "We, here at Kafra Corporation,";

-			mes "are alwyas endeavoring to provide";

-			mes "you with the best services. We hope";

-			mes "that we meet your adventuring needs";

-			mes "and the standards of excellence.";

-			break;

-		}

-		goto Lend;

-	Lend:

-		close2;

-		cutin "", 255;

-		end;

-

-}

-

-//Elections administration NPC (hidden)

--	script	DTS_Admin	-1,{

-	OnSun0100:					//Works only at 1am on sunday

-		if($dtsday<4 || $dtsday>=100) set $dtsday,4;

-		else set $dtsday,$dtsday+1;

-		if($dts == 0){

-			set $dts,$dts|(1<<0);

-			set $dts,$dts|(1<<3);

-		}

-		if($dts&(1<<1) && $dts&(1<<2) || $dts&(1<<0) && $dts&(1<<1) || $dts&(1<<0) && $dts&(1<<2)){

-			if($dts&(1<<0)) set $dts,$dts&~(1<<0);

-			if($dts&(1<<1)) set $dts,$dts&~(1<<1);

-			if($dts&(1<<2)) set $dts,$dts&~(1<<2);

-			set $dts,$dts|(1<<0);

-		}

-		if($dts&(1<<4) && $dts&(1<<5) || $dts&(1<<3) && $dts&(1<<4) || $dts&(1<<3) && $dts&(1<<5)){

-			if($dts&(1<<3)) set $dts,$dts&~(1<<3);

-			if($dts&(1<<4)) set $dts,$dts&~(1<<4);

-			if($dts&(1<<5)) set $dts,$dts&~(1<<5);

-			set $dts,$dts|(1<<3);

-		}

-		if($dtsv == 0){				//If tied, gives random side 100 votes

-			set $@dtstemp,rand(1,2);

-			if($@dtstemp == 1) set $dtsv,$dtsv+100;

-			else set $dtsv,$dtsv-100;

-		}

-		if($dtsv > 0){

-			if($dts&(1<<3)) set $dts,$dts&~(1<<3);

-			if($dts&(1<<4)) set $dts,$dts&~(1<<4);

-			if($dts&(1<<5)) set $dts,$dts&~(1<<5);

-			if($dts&(1<<0)){

-				set $dts,$dts&~(1<<0);

-				set $dts,$dts|(1<<1);

-				set $dts,$dts|(1<<3);

-			}

-			if($dts&(1<<1)) set $dts,$dts|(1<<4);

-			if($dts&(1<<2)){

-				set $dts,$dts&~(1<<2);

-				set $dts,$dts|(1<<1);

-				set $dts,$dts|(1<<5);

-			}

-			set $dtsv,0;

-		}

-		else{

-			if($dts&(1<<3)) set $dts,$dts&~(1<<3);

-			if($dts&(1<<4)) set $dts,$dts&~(1<<4);

-			if($dts&(1<<5)) set $dts,$dts&~(1<<5);

-			if($dts&(1<<0)){

-				set $dts,$dts&~(1<<0);

-				set $dts,$dts|(1<<2);

-				set $dts,$dts|(1<<3);

-			}

-			if($dts&(1<<1)){

-				set $dts,$dts&~(1<<1);

-				set $dts,$dts|(1<<2);

-				set $dts,$dts|(1<<4);

-			}

-			if($dts&(1<<2)) set $dts,$dts|(1<<5);

-			set $dtsv,0;

-		}

-		end;

+//===== eAthena Script ======================================= 
+//= Dungeon Teleport Service
+//===== By: ================================================== 
+//= Evera
+//===== Current Version: ===================================== 
+//= 2.3c
+//===== Compatible With: ===================================== 
+//= eAthena
+//===== Description: =========================================
+//= 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.
+//= Also includes Cool Event Corp HQ NPCs.
+//===== Variables: ===========================================
+//=Server - 	$dtsvote		= Variable for # of votes
+//=					= Positive = Cool Corp winning
+//=					= Negative = Kafra Corp winning
+//=		$dts			= Variable for DTS status
+//=					= (1<<0) Election
+//=					= (1<<1) Cool Corp Enabled
+//=					= (1<<2) Kafra Enabled
+//=					= (1<<3) No winner last election
+//=					= (1<<4) Cool Corp won last election
+//=					= (1<<5) Kafra won last election
+//=		$dtsday			= Week count for dts vote count, used for resetting players' votes
+//=Character -	dtseligible 		= eligibility status, 0 not eligible yet, 1 eligible.
+//=					= $dtsday used when MISC_QUEST|128, and signifies that person already voted.
+//=		MISC_QUEST		= |128 = eligible and voted.
+//=NPC Func. -	arg(0) 			= 0, Cool Event Corp Voting Staff; 1, Kafra Corp Voting Staff
+//=		arg(1)			= Kafra only, Cool Corp script does not use. Changes illus for different sprites.
+//=					= 0 = 4_f_kafra6 (yellow ponytail, classic outfit, spr 112)
+//=					= 1 = 4_f_kafra5 (pink hair, classic outfit, spr 113)
+//=					= 2 = 4_f_kafra4 (orange short hair, classic outfit, spr 114)
+//=					= 3 = 4_f_kafra3 (brown bangs, classic outfit, spr 115)
+//=					= 4 = 4_f_kafra2 (brown ponytale, classic outfit, spr 116)
+//=					= 5 = 4_f_kafra1 (blue hair, classic outfit, spr 117)
+//=					= 6 = 4_f_agentkafra (purp hair, black outfit, spr 859)
+//=					= 7 = 4_f_kafra8 (blue hair, brown outfit, spr 860)
+//=					= 8 = 4_f_kafra9 (red hair, brown outfit, spr 861)
+//=Temporary - 	@dtstemp		= Temporary buffer, used in GM vote-fixing
+//=		@dtstemps$		= Temporary buffer, like above, but a string.
+//=		$@dtstempg		= Temporary buffer, but global
+//===== Additional Comments: ================================= 
+//= Some unofficial translations, some unofficial dungeon warps
+//= Also includes unofficial GM-enabled tweaking for script
+//= Includes NPCs in Cool Event Corp headquarters
+//= If new locations are found of this NPC, please report on forums
+//= http://www.eathena.ws/board/index.php?showforum=106
+//= Base level 60 required to vote
+//===== Version History: ====================================
+//= 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
+//============================================================ 
+
+//Yuno
+yuno.gat,153,191,4	script	Cool Event Voting Staff::CoolEventVotingStaff01	874,{
+	callfunc "F_DTS_Warp",0,0;
+}
+yuno.gat,162,191,6	script	Kafra Voting Staff#01	861,{
+	callfunc "F_DTS_Warp",1,8;
+}
+//Lighthalzen
+lighthalzen.gat,154,60,6	script	Cool Event Voting Staff::CoolEventVotingStaff02	874,{
+	callfunc "F_DTS_Warp",0,0;
+}
+//Prontera
+prontera.gat,147,125,4	script	Cool Event Voting Staff::CoolEventVotingStaff03	874,{
+	callfunc "F_DTS_Warp",0,0;
+}
+prontera.gat,164,125,6	script	Kafra Voting Staff#02	115,{
+	callfunc "F_DTS_Warp",1,3;
+}
+
+//Cool Event Staff Headquarters NPCs
+//Kudiuu (Maintenance Guy)
+lhz_in02.gat,20,274,6	script	Maintenance Guy	851,{
+	mes "[Kudiuu]";
+	mes "Holy...!";
+	mes "Will this place";
+	mes "ever get cleaned up?!";
+	mes "*Cough cough* There's";
+	mes "so much dust here, it's";
+	mes "almost a health hazard!";
+	close;
+}
+//Cesuna (Zondaman at desk)
+lhz_in02.gat,36,284,1	script	Cool Event Staff#01	874,{
+	mes "[Cesuna]";
+	mes "Ack! I'm totally";
+	mes "swamped with all this";
+	mes "work! But I don't wannna";
+	mes "do any of it. That's it!";
+	mes "I totally need a break";
+	next;
+	mes "[Cesuna]";
+	mes "*Sigh...*";
+	mes "I wonder if Saera";
+	mes "would ever consider";
+	mes "going out with me?";
+	mes "That would be nice~";
+	close;
+}
+//Jellarin (Event planner)
+lhz_in02.gat,40,279,3	script	Event Planner	833,{
+	mes "[Jellarin]";
+	mes "I don't like this.";
+	mes "But I don't like that";
+	mes "idea either. What will";
+	mes "I do for a new event, eh?";
+	next;
+	mes "[Jellarin]";
+	mes "I need something";
+	mes "major, something that'll";
+	mes "really shake up the world,";
+	mes "something epochal, but what?";
+	mes "Hey, do you have any ideas";
+	close;
+}
+//Baoto (Cool Event Manager)
+lhz_in02.gat,110,283,5	script	Cool Event Manager	853,{
+	mes "[Baoto]";
+	mes "Hmmm...";
+	mes "The employees seem";
+	mes "to be having too much";
+	mes "fun amongst themselves";
+	mes "recently. This does not";
+	mes "bode well at all...";
+	next;
+	mes "[Baoto]";
+	mes "It looks like I'm";
+	mes "just going to have to";
+	mes "start cracking that whip";
+	mes "more often and much";
+	mes "harder. Ha ha ha ha!";
+	close;
+}
+//Saera (Secretary), contains GM menu
+lhz_in02.gat,36,274,3	script	Cool Event Staff#02	831,{
+	callfunc "F_ClearGarbage";				//Clear outdated, unused variables
+	if($dts == 0){
+		set $dts,$dts|(1<<0);				//Sets NPCs to election mode if first time running
+		set $dts,$dts|(1<<3);
+	}
+	if($dts&(1<<1) && $dts&(1<<2) || $dts&(1<<0) && $dts&(1<<1) || $dts&(1<<0) && $dts&(1<<2)){
+		if($dts&(1<<0)) set $dts,$dts&~(1<<0);
+		if($dts&(1<<1)) set $dts,$dts&~(1<<1);
+		if($dts&(1<<2)) set $dts,$dts&~(1<<2);
+		set $dts,$dts|(1<<0);
+	}
+	if($dts&(1<<4) && $dts&(1<<5) || $dts&(1<<3) && $dts&(1<<4) || $dts&(1<<3) && $dts&(1<<5)){
+		if($dts&(1<<3)) set $dts,$dts&~(1<<3);
+		if($dts&(1<<4)) set $dts,$dts&~(1<<4);
+		if($dts&(1<<5)) set $dts,$dts&~(1<<5);
+		set $dts,$dts|(1<<3);
+	}
+	mes "[Saera]";
+	mes "Welcome to the";
+	mes "temporary headquarters";
+	mes "of Cool Event Corporation";
+	mes "How may I help you today?";
+	next;
+	if(getgmlevel()>=40){ 						//Unofficial Text, GM-configurable settings for Event (GM level above 40 required)
+		mes "[Saera]";
+		mes "Why, I didn't even";
+		mes "notice you there,";
+		mes strcharinfo(0)+". What would";
+		mes "you like to do today?";
+		next;
+		menu "Fix Vote",Lfixvote,
+		"Set current teleporter",Lsettele,
+		"Set last election winner",Lsetlast,
+		"Manually run vote check",Lmanuvotecheck,
+		"Normal menu please",-;
+		mes "[Saera]";
+		mes "Ok";
+		next;
+	}
+	menu "Temporary headquarters?",Ltemphead,
+	"Voting",Lvoting,"No, thanks.",Lnothx;
+
+	Ltemphead:
+		mes "[Saera]";
+		mes "Our headquarters building";
+		mes "is currently undergoing";
+		mes "reconstruction, so we are";
+		mes "basing our operations in";
+		mes "this place for the meantime";
+		close;
+
+	Lvoting:
+		mes "[Saera]";
+		mes "Currently, Kafra Corporation";
+		mes "and Cool Event Corp are working";
+		mes "on a collaborative program that";
+		mes "will provide direct teleport";
+		mes "services to dungeons.";
+		next;
+		mes "[Saera]";
+		mes "Due to technical issues,";
+		mes "both companies cannot provide";
+		mes "teleport services to the same";
+		mes "dungeon. Therefore, we will be";
+		mes "selecting our valued customers";
+		mes "to choose the company they want.";
+		next;
+		if((dtseligible == 0 || dtseligible == 3) && baselevel >= 60 && MISC_QUEST&128 == 0) set dtseligible,1;
+		//Clear previous var of dtseligible,3 being tried for eligibility already
+		if(dtseligible != $dtsday && baselevel >= 60 && MISC_QUEST&128){
+			set MISC_QUEST,MISC_QUEST&~128;
+			set dtseligible,1;
+		}
+		switch(dtseligible){
+			default:
+				mes "[Saera]";
+				mes "Only a limited number of";
+				mes "voters will be chosen, so";
+				mes "you can check your voting";
+				mes "eligibility at the headquarters";
+				mes "of both participating companies.";
+				mes "Thank you for your patronage~";
+				close;
+				break;
+			case 1:
+				mes "[Saera]";
+				mes "It appears that you are";
+				mes "eligible to vote";
+				mes "so please cast your";
+				mes "vote at any Voting Staff";
+				mes "representative. Thank you~";
+				close;
+				break;
+			case 2:
+				mes "[Saera]";
+				mes "You are eligible to vote, but";
+				mes "you have already voted. Thank";
+				mes "you for your participation";
+				close;
+				break;
+		}
+
+	Lnothx:
+		mes "[Saera]";
+		mes "Thank you.";
+		mes "Have a good day.";
+		close;
+									//GM options start
+	Lfixvote:							//Fix Vote
+		mes "[Saera]";
+		mes "Umm, sure..";
+		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";
+		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";
+		if($dtsv == 0) mes "The vote is currently tied.";
+		mes "To who would you like to give votes to?";
+		next;
+		menu "Kafra",-,"Cool Event Corp",Lfixcool;
+
+	Lfixkafra:							//Fixing vote for Kafra
+		mes "[Saera]";
+		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";
+		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";	//multiplied by -1 because var is negative
+		if($dtsv == 0) mes "The vote is currently tied.";
+		mes "Please input the amount you wish to give to Kafra Corp";
+		input @dtstemp;					//Set buffer for Kafra vote
+		next;
+		mes "[Saera]";
+		mes "You inputted "+@dtstemp+" for Kafra";
+		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";
+		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";
+		if($dtsv == 0) mes "The vote is currently tied.";
+		mes "Are you sure you would like to";
+		mes "make these changes?";
+		next;
+		menu "Yes",-,"No",Lnothx;
+		set $dtsv,$dtsv-@dtstemp;				//Set buffer to Kafra vote
+		mes "[Saera]";
+		mes "Okay, you fixed the vote";
+		mes "of Kafra Corp.";
+		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";
+		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";
+		if($dtsv == 0) mes "The vote is currently tied.";
+		close;
+
+	Lfixcool:						//Fixing vote for cool corp
+		mes "[Saera]";
+		mes "Let me find the papers...";
+		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";
+		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";
+		if($dtsv == 0) mes "The vote is currently tied.";
+		mes "Please input new vote for Cool Event Corp";
+		input @dtstemp;					//Set buffer for Cool vote
+		next;
+		mes "[Saera]";
+		mes "You inputted "+@dtstemp+" for Cool Event Corp";
+		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";
+		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";
+		if($dtsv == 0) mes "The vote is currently tied.";
+		mes "Are you sure you would like to";
+		mes "make these changes?";
+		next;
+		menu "Yes",-,"No",Lnothx;			//Confirmaiton
+		set $dtsv,@dtsv+@dtstemp;			//Set buffer to Cool vote
+		mes "[Saera]";
+		mes "Okay, you fixed the vote";
+		mes "of Cool Event Corp.";
+		if($dtsv > 0) mes "Cool Event Corp is currently winning by "+$dtsv+" votes.";
+		if($dtsv < 0) mes "Kafra Corp is currently winning by "+$dtsv*-1+" votes.";
+		if($dtsv == 0) mes "The vote is currently tied.";
+		close;
+
+	Lsettele:							//Set current DTS tele
+		mes "[Saera]";
+		mes "Type Kafra for Kafra-enabled warp,";
+		mes "Cool for Cool Event Corp-enabled";
+		mes "warp ,Election for election mode,";
+		mes "or Cancel to cancel.";
+		if($dts&(1<<0)) mes "The election is currently in election mode.";
+		if($dts&(1<<1)) mes "Cool Event Corp is currently the DTS warper.";
+		if($dts&(1<<2)) mes "Kafra Corp is currently the DTS warper.";
+		next;
+		input @dtstemps$;					//Typed in choices to prevent mistakes
+		mes "Let me find the papers...";
+		next;
+		if(@dtstemps$ == "Election" || @dtstemps$ == "election"){
+			if($dts&(1<<1)){
+				set $dts,$dts&~(1<<1);			//Removes previous winner
+				set $dts,$dts|(1<<0);			//Changes status to election
+			}
+			if($dts&(1<<2)){
+				set $dts,$dts&~(1<<2);
+				set $dts,$dts|(1<<0);
+			}
+			mes "[Saera]";
+			mes "Set to election mode.";
+			close;
+		}
+		if(@dtstemps$ == "Cool" || @dtstemps$ == "cool"){
+			if($dts&(1<<0)){
+				set $dts,$dts&~(1<<0);
+				set $dts,$dts|(1<<1);
+			}
+			if($dts&(1<<2)){
+				set $dts,$dts&~(1<<2);
+				set $dts,$dts|(1<<1);
+			}
+			mes "[Saera]";
+			mes "Cool Event Corp. is now the DTS warper.";
+			close;
+		}
+		if(@dtstemps$ == "Kafra" || @dtstemps$ == "kafra"){
+			if($dts&(1<<1)){
+				set $dts,$dts&~(1<<1);
+				set $dts,$dts|(1<<2);
+			}
+			if($dts&(1<<0)){
+				set $dts,$dts&~(1<<0);
+				set $dts,$dts|(1<<2);
+			}
+			mes "[Saera]";
+			mes "Kafra Corp. is now the DTS warper.";
+			close;
+		}
+		if(@dtstemps$ == "Cancel" || @dtstemps$ == "cancel") goto Lnothx;
+		mes "[Saera]";
+		mes "Please input a correct name for the election";
+		next;
+		goto Lsettele;
+
+	Lsetlast:							//Set last winner
+		mes "[Saera]";
+		mes "Type Kafra for election records to show Kafra,";
+		mes "Cool for Cool for election records to show Cool Event Corp,";
+		mes "None for no winner in election records,";
+		mes "or Cancel to cancel.";
+		if($dts&(1<<3)) mes "There was no previous winner";
+		if($dts&(1<<4)) mes "Cool Event Corp was the last winner";
+		if($dts&(1<<5)) mes "Kafra Corp was the last winner";
+		next;
+		input @dtstemps$;
+		mes "[Saera]";
+		mes "Let me find the papers...";
+		next;
+		if(@dtstemps$ == "None" || @dtstemps$ == "none"){
+			if($dts&(1<<4)){
+				set $dts,$dts&~(1<<4);			//removes last winner
+				set $dts,$dts|(1<<3);			//sets current last winner
+			}
+			if($dts&(1<<5)){
+				set $dts,$dts&~(1<<5);
+				set $dts,$dts|(1<<3);
+			}
+			mes "[Saera]";
+			mes "Set records to show no previous winner.";
+			close;
+		}
+		if(@dtstemps$ == "Cool" || @dtstemps$ == "cool"){
+			if($dts&(1<<3)){
+				set $dts,$dts&~(1<<3);
+				set $dts,$dts|(1<<4);
+			}
+			if($dts&(1<<5)){
+				set $dts,$dts&~(1<<5);
+				set $dts,$dts|(1<<4);
+			}
+			mes "[Saera]";
+			mes "Cool Event Corp. is now the previous winner.";
+			close;
+		}
+		if(@dtstemps$ == "Kafra" || @dtstemps$ == "kafra"){
+			if($dts&(1<<3)){
+				set $dts,$dts&~(1<<3);
+				set $dts,$dts|(1<<5);
+			}
+			if($dts&(1<<4)){
+				set $dts,$dts&~(1<<4);
+				set $dts,$dts|(1<<5);
+			}
+			mes "[Saera]";
+			mes "Kafra Corp. is now the previous winner.";
+			close;
+		}
+		if(@dtstemps$ == "Cancel" || @dtstemps$ == "cancel") goto Lnothx;
+		mes "[Saera]";
+		mes "Please input a correct name";
+		mes "for previous winner";
+		next;
+		goto Lsetlast;
+
+	Lmanuvotecheck:
+		mes "[Saera]";
+		mes "Are you sure you would like to run";
+		mes "the vote check again?";
+		next;
+		menu "Yes",Lmanuvoteyes,"No",Lnothx;
+
+	Lmanuvoteyes:
+		if($dtsday<4 || $dtsday>=100) set $dtsday,4;
+		else set $dtsday,$dtsday+1;
+		if($dts&(1<<1) && $dts&(1<<2) || $dts&(1<<0) && $dts&(1<<1) || $dts&(1<<0) && $dts&(1<<2)){
+			if($dts&(1<<0)) set $dts,$dts&~(1<<0);
+			if($dts&(1<<1)) set $dts,$dts&~(1<<1);
+			if($dts&(1<<2)) set $dts,$dts&~(1<<2);
+			set $dts,$dts|(1<<0);
+		}
+		if($dts&(1<<4) && $dts&(1<<5) || $dts&(1<<3) && $dts&(1<<4) || $dts&(1<<3) && $dts&(1<<5)){
+			if($dts&(1<<3)) set $dts,$dts&~(1<<3);
+			if($dts&(1<<4)) set $dts,$dts&~(1<<4);
+			if($dts&(1<<5)) set $dts,$dts&~(1<<5);
+			set $dts,$dts|(1<<3);
+		}
+		if($dtsv == 0){
+			set $@dtstemp,rand(1,2);
+			if($@dtstemp == 1) set $dtsv,$dtsv+100;
+			else set $dtsv,$dtsv-100;
+		}
+		if($dtsv > 0){
+			if($dts&(1<<3)) set $dts,$dts&~(1<<3);			//removes last winner varialbes
+			if($dts&(1<<4)) set $dts,$dts&~(1<<4);
+			if($dts&(1<<5)) set $dts,$dts&~(1<<5);
+			if($dts&(1<<0)){
+				set $dts,$dts&~(1<<0);				//removes winner variable
+				set $dts,$dts|(1<<3);				//sets last winner varialbe
+				set $dts,$dts|(1<<1);				//sets current winner variable
+			}
+			if($dts&(1<<1)) set $dts,$dts|(1<<4);
+			if($dts&(1<<2)){
+				set $dts,$dts&~(1<<2);
+				set $dts,$dts|(1<<1);
+				set $dts,$dts|(1<<5);
+			}
+			set $dtsv,0;
+		}
+		else{
+			if($dts&(1<<3)) set $dts,$dts&~(1<<3);
+			if($dts&(1<<4)) set $dts,$dts&~(1<<4);
+			if($dts&(1<<5)) set $dts,$dts&~(1<<5);
+			if($dts&(1<<0)){
+				set $dts,$dts&~(1<<0);
+				set $dts,$dts|(1<<2);
+				set $dts,$dts|(1<<3);
+			}
+			if($dts&(1<<1)){
+				set $dts,$dts&~(1<<1);
+				set $dts,$dts|(1<<2);
+				set $dts,$dts|(1<<4);
+			}
+			if($dts&(1<<2)) set $dts,$dts|(1<<5);
+			set $dtsv,0;
+		}
+		mes "[Saera]";
+		mes "Vote check run again.";
+		if($dts&(1<<0)) mes "The election is currently in election mode.";
+		if($dts&(1<<1)) mes "Cool Event Corp is currently the DTS warper.";
+		if($dts&(1<<2)) mes "Kafra Corp is currently the DTS warper.";
+		close;
+}
+
+//Function for Voting Staff NPC
+function	script	F_DTS_Warp	{
+	callfunc "F_ClearGarbage"; //Clear outdated, unused variables
+	if($dts == 0){ 						//Sets NPCs to election mode if first time running
+		set $dts,$dts|(1<<0);
+		set $dts,$dts|(1<<3);
+	}
+	if((dtseligible == 0 || dtseligible == 3) && baselevel >= 60 && MISC_QUEST&128 == 0) set dtseligible,1;	//Clear previous var of dtseligible,3 being tried for eligibility already
+	if(dtseligible != $dtsday && baselevel >= 60 && MISC_QUEST&128){
+		set MISC_QUEST,MISC_QUEST&~128;
+		set dtseligible,1;
+	}
+	switch(getarg(0)){
+	case 0:
+		cutin "zonda_01",2;
+		mes "[Cool Event Corp. Voting Staff]";
+		mes "Hello! Don't forget to make";
+		mes "your voice be heard and make";
+		mes "sure you vote in the elections";
+		mes "between Cool Event Corp. and";
+		mes "Kafra Corporation for control of";
+		mes "the Dungeon Teleport Service!";
+		break;
+	case 1:
+		switch(getarg(1)){
+		case 0: cutin "kafra_06",2; break;			//Finding arguments to find which illust to use
+		case 1: cutin "kafra_05",2; break;			//Used Red hair "kafra_09" for black outfit kafra
+		case 2: cutin "kafra_04",2; break;			//because I couldn't find a suitable illust
+		case 3: cutin "kafra_03",2; break;
+		case 4: cutin "kafra_02",2; break;
+		case 5: cutin "kafra_01",2; break;
+		case 6: cutin "kafra_09",2; break;
+		case 7: cutin "kafra_08",2; break;
+		case 8: cutin "kafra_09",2; break;
+		default: cutin "kafra_09",2; break;
+		}
+		mes "[Kafra Voting Staff]";
+		mes "Greetings, adventurer.";
+		mes "As you may be aware, we";
+		mes "are holding an election to";
+		mes "provide the Dungeon Teleport";
+		mes "Service. How may I help you?";
+		break;
+	}
+	next;
+	menu "Reason for Election",Lelection,"Cast a Vote",Lvote,
+	"Use Teleport Service",Lteleport,"Cancel",Lcancel;
+
+	Lelection: 							//Reason for election explanation
+		switch(getarg(0)){
+		case 0:
+			mes "[Cool Event Corp. Voting Staff]";
+			mes "Cool Event Corp. has been";
+			mes "planning to provide a new";
+			mes "Dungeon Teleport Service to";	
+			mes "its customers, a service not";
+			mes "already provided by the Kafra";
+			mes "Corporation. However...";
+			next;
+			mes "[Cool Event Corp. Voting Staff]";
+			mes "Kafra Corporation, which";
+			mes "already monopolizes the";
+			mes "public teleportation market,";
+			mes "actually also had plans to";
+			mes "provide a similar service.";
+			next;
+			mes "[Cool Event Corp. Voting Staff]";
+			mes "Because of technological";
+			mes "limitations, only one company";
+			mes "can be chosen as the provider";
+			mes "of this Dungeon Teleport Service.";
+			mes "Hence, we will let the customers";
+			mes "decide through these elections.";
+			next;
+			mes "[Cool Event Corp. Voting Staff]";
+			mes "Multiple elections will be";
+			mes "held so that our customers";
+			mes "can test out the special services";
+			mes "of each company for themselves.";
+			mes "However, keep in mind that you";
+			mes "must be eligible in order to vote.";
+			next;
+			mes "[Cool Event Corp. Voting Staff]";
+			mes "For voter eligibility";
+			mes "details, please visit our";
+			mes "headquarters in the city of";
+			mes "Lighthalzen located in the";
+			mes "Schwarzwald Republic.";
+			mes "Thank you for your time.";
+			break;
+		case 1:
+			mes "[Kafra Voting Staff]";
+			mes "Cool Event Corp and the";
+			mes "Kafra Corporation have both";
+			mes "been planning to provide a";
+			mes "Teleport Service to dungeons.";
+			next;
+			mes "[Kafra Voting Staff]";
+			mes "But due to technological";
+			mes "limitations, only one company";
+			mes "can serve as provider for this";
+			mes "Dungeon Teleport Service at a";
+			mes "time. There, both companies have";
+			mes "agreed to hold special elections";
+			next;
+			mes "[Kafra Voting Staff]";
+			mes "Each company has its own";
+			mes "policies and guarantees in";
+			mes "regards to the Dungeon Teleport";
+			mes "Service, and in this election, the";
+			mes "customers will ultimately decide";
+			mes "and choose what's best for them.";
+			next;
+			mes "[Kafra Voting Staff]";
+			mes "For now, the Dungeon";
+			mes "Teleport Service will be";
+			mes "provided in a series of trial";
+			mes "periods. This way, customers can";
+			mes "see the benefits of both companies";
+			mes "before making the final decision";
+			next;
+			mes "[Kafra Voting Staff]";
+			mes "If you are qualified,";
+			mes "please vote in each election";
+			mes "to decide which company will";
+			mes "provide the Dungeon Teleport";
+			mes "Service for the next trial period.";
+			mes "Thank you for your support~";
+			break;
+		}
+		goto Lend;
+
+	Lvote: //If you clicked you wanted to vote
+		if(dtseligible == 1) goto Leligible; 			//Var check if eligible
+
+	Lnoteligible: 							//Text displayed if wanted to vote, but not eligible/voted
+		switch(getarg(0)){
+		case 0:
+			mes "[Cool Event Corp. Voting Staff]";
+			mes "I'm sorry, but you are not";
+			mes "eligible to vote at this time.";
+			mes "Please visit our headquarters";
+			mes "in Lighthalzen for information";
+			mes "related to acquiring voting";
+			mes "rights. Thank you for your time.";
+			break;
+		case 1:
+			mes "[Kafra Voting Staff]";
+			mes "Oh, I'm so sorry, but you";
+			mes "are currently not qualified to";
+			mes "vote. For voting qualification";
+			mes "information, please visit the";
+			mes "Al De Baran Kafra Headquarters.";
+			mes "Thank you and have a nice day.";
+			break;
+		}
+		goto Lend;
+
+	Leligible: 							//Text displayed if eligible to vote
+		if(MISC_QUEST&128 && $dtsday == dtseligible) goto Lnoteligible; //Var check if voted
+		switch(getarg(0)){
+		case 0:
+			mes "[Cool Event Corp. Voting Staff]"; 		//Unofficial text
+			mes "Checking your credentials, you";
+			mes "are able to vote for the";
+			mes "Dungeon Teleport Service";
+			mes "elections. Who would you like";
+			mes "to vote for?";
+			break;
+		case 1:
+			mes "[Kafra Voting Staff]";
+			mes "It appears that you qualify";
+			mes "to vote for the Dungeon";
+			mes "Teleport Service elections.";
+			mes "Who would you like to vote for";		//End Unofficial text
+			break;
+		}
+		next;
+		menu "Cool Event Corp.",Lvotecool,"Kafra Corp.",Lvotekafra;
+	
+	Lvotecool:
+		set $dtsv,$dtsv+1;				//Adds 1 to cool count
+		set MISC_QUEST,MISC_QUEST|128;				//Sets var so that you can't vote over and over
+		set dtseligible,$dtsday;
+		switch(getarg(0)){
+		case 0:
+			mes "[Cool Event Corp. Voting Staff]";
+			mes "Thank you for voting for us.";
+			mes "Your vote has been counted,";
+			mes "and we appreciate your input";
+			mes "Thank you and have a good day.";
+			break;
+		case 1:
+			mes "[Kafra Voting Staff]";
+			mes "We thank you for your vote.";
+			mes "Your opinion matters very much";
+			mes "and has been counted for Cool";
+			mes "Event Corp.";
+			break;
+		}
+		goto Lend;
+
+	Lvotekafra:
+		setd $dtsv,$dtsv-1; 				//Adds 1 to kafra count
+		set MISC_QUEST,MISC_QUEST|128; 			//Sets var to prevent cheating
+		set dtseligible,$dtsday;
+		switch(getarg(0)){
+		case 0:
+			mes "[Cool Event Corp. Voting Staff]";		//Unofficial Text
+			mes "Thank you for your opinion.";
+			mes "Your vote for Kafra corp.";
+			mes "has been counted. Thank";
+			mes "you and have a good day.";
+			break;
+		case 1:
+			mes "[Kafra Voting Staff]";
+			mes "Your vote for us has been";
+			mes "counted. We thank you very";
+			mes "much for your input, and";
+			mes "we hope that we meet your";
+			mes "adventuring needs and";
+			mes "standards of excellence.";
+			break;
+		}
+		goto Lend;						//End Unofficial text
+
+	Lteleport: 							//Selected Teleport
+		switch(getarg(0)){
+		case 0:
+			if($dts&(1<<0)){
+				mes "[Cool Event Corp. Voting Staff]";
+				mes "I'm sorry, but the";
+				mes "Dungeon Teleport Service is";
+				mes "unavailable during elections";
+				mes "and will be reactivated after the";
+				mes "election results are announced.";
+				mes "Thank you and have a nice day.";
+				goto Lend;
+			}
+			if($dts&(1<<1)) goto Lteleenabled;
+			mes "[Cool Event Corp. Voting Staff]";		//Text if Kafra won DTS elect.
+			mes "I'm sorry, but Cool Event";
+			mes "Corp. does not currently offer";
+			mes "the Dungeon Teleport Service";
+			mes "due to the results of the last";
+			mes "election. Please vote for us";
+			mes "next time, alright? Good day~";
+			break;
+		case 1:
+			if($dts&(1<<0)){
+				mes "[Kafra Voting Staff]";
+				mes "Sorry, but the elections for";
+				mes "which Dungeon Teleport System";
+				mes "to use is currently going on";
+				mes "right now. We are unable to";
+				mes "vote until results are announced";
+				goto Lend;
+			}
+			if($dts&(1<<2)) goto Lteleenabled;
+			mes "[Kafra Voting Staff]";
+			mes "We're sorry, but Kafra Corp";
+			mes "doesn't currently offer the";
+			mes "Dungeon Teleport System due";
+			mes "to last election's results,";
+			mes "Please vote for Kafra Corp";
+			mes "next time~";
+			break;
+		}
+		goto Lend;
+
+	Lteleenabled: 							//Shows DTS tele selections
+	cleararray @dtswarpmap$[0],"",getarraysize(@dtswarpmap$);
+	cleararray @dtswarp$[0],"",getarraysize(@dtswarp$);
+	switch(getarg(0)){
+	case 0:
+		mes "[Cool Event Corp. Voting Staff]";
+		mes "Please remember that we";
+		mes "cannot accept Free Warp Tickets";
+		mes "or award Special Reserve Points";
+		mes "for this service. Now, please";
+		mes "choose your destination.";
+		setarray @dtswarpmap$[0],"Byalan, Level 4","Clock Tower, Basement 3";
+		setarray @dtswarp$[0],@dtswarpmap$[0]+" -> 4,000z",
+		@dtswarpmap$[1]+" -> 4,000z","Cancel";
+		if($dts&(1<<4)){ 
+			set @dtswarpmap$[2],"Glastheim Entrance";
+			setarray @dtswarp$[2],@dtswarpmap$[2]+" -> 4,000z","Cancel";
+		}
+		break;
+	case 1:
+		mes "[Kafra Voting Staff]";
+		mes "Thank you for choosing the";
+		mes "Dungeon Teleport Service";
+		mes "Please keep in mind that the";
+		mes "Free Warp Tickets and Kafra";
+		mes "Special Reserve Points do not";
+		mes "apply in this special service.";
+		setarray @dtswarpmap$[0],"Toy Factory, Level 2","Clock Tower, Level 3";
+		setarray @dtswarp$[0],@dtswarpmap$[0]+" -> 4,000z",
+		@dtswarpmap$[1]+" -> 4,000z","Cancel";
+		if($dts&(1<<5)){ 
+			set @dtswarpmap$[2],"Lava Dungeon, Level 2";
+			setarray @dtswarp$[2],@dtswarpmap$[2]+" -> 4,000z","Cancel";
+		}
+		break;
+	}
+	next;
+	switch(select(@dtswarp$[0],@dtswarp$[1],@dtswarp$[2],@dtswarp$[3])){
+		case 1:
+			set @num, 0;
+			break;
+		case 2:
+			set @num, 1;
+			break;
+		case 3:
+			set @num, 2;
+			break;
+		case 4:
+			set @num, 3;
+			break;
+	}
+	Lwarp:
+		if (@dtswarp$[@num] == "Cancel") goto Lcancel;
+		if (Zeny<4000) goto Lnomoney;
+		set Zeny, Zeny-4000;
+		if (@dtswarpmap$[@num] == "Toy Factory, Level 2") warp "xmas_dun02.gat",130,123;
+ //Maps to warp to
+		if (@dtswarpmap$[@num] == "Clock Tower, Level 3") warp "alde_dun03.gat",265,22;
+
+		if (@dtswarpmap$[@num] == "Lava Dungeon, Level 2") warp "mag_dun02.gat",47,40;
+
+		if (@dtswarpmap$[@num] == "Byalan, Level 4") warp "iz_dun03.gat",32,63;
+
+		if (@dtswarpmap$[@num] == "Clock Tower, Basement 3") warp "alde_dun03.gat",277,178;
+
+		if (@dtswarpmap$[@num] == "Glastheim Entrance") warp "glast_01.gat",370,304;
+
+		cutin "", 255;
+		end;
+	Lnomoney:
+		switch(getarg(0)){
+		case 0:
+			mes "[Cool Event Corp. Voting Staff]"; 		//Unofficial Text
+			mes "Umm, apparently you don't have";
+			mes "adequate funds for your";
+			mes "selected warp. Please check";
+			mes "that you have the correct amount";
+			mes "of money, and try again later";
+			break;
+		case 1:
+			mes "[Kafra Voting Staff]";
+			mes "It appears as if you don't";
+			mes "have enough zeny for the warp";
+			mes "Please check your funds and";
+			mes "try again.";
+			break;
+		}
+		goto Lend;						//End unofficial text
+
+	Lcancel: 							//Selected Cancel on first menu
+		switch(getarg(0)){
+		case 0:
+			mes "[Cool Event Corp. Voting Staff]";	
+			mes "Cool Event Corp. is always";
+			mes "working to make sure that";
+			mes "not only are our customers";
+			mes "satisfied, but that we also";
+			mes "exceed your utmost standards.";
+			mes "Thank you and have a good day.";
+			break;
+		case 1:
+			mes "[Kafra Voting Staff]";
+			mes "We, here at Kafra Corporation,";
+			mes "are alwyas endeavoring to provide";
+			mes "you with the best services. We hope";
+			mes "that we meet your adventuring needs";
+			mes "and the standards of excellence.";
+			break;
+		}
+		goto Lend;
+	Lend:
+		close2;
+		cutin "", 255;
+		end;
+
+}
+
+//Elections administration NPC (hidden)
+-	script	DTS_Admin	-1,{
+	OnSun0100:					//Works only at 1am on sunday
+		if($dtsday<4 || $dtsday>=100) set $dtsday,4;
+		else set $dtsday,$dtsday+1;
+		if($dts == 0){
+			set $dts,$dts|(1<<0);
+			set $dts,$dts|(1<<3);
+		}
+		if($dts&(1<<1) && $dts&(1<<2) || $dts&(1<<0) && $dts&(1<<1) || $dts&(1<<0) && $dts&(1<<2)){
+			if($dts&(1<<0)) set $dts,$dts&~(1<<0);
+			if($dts&(1<<1)) set $dts,$dts&~(1<<1);
+			if($dts&(1<<2)) set $dts,$dts&~(1<<2);
+			set $dts,$dts|(1<<0);
+		}
+		if($dts&(1<<4) && $dts&(1<<5) || $dts&(1<<3) && $dts&(1<<4) || $dts&(1<<3) && $dts&(1<<5)){
+			if($dts&(1<<3)) set $dts,$dts&~(1<<3);
+			if($dts&(1<<4)) set $dts,$dts&~(1<<4);
+			if($dts&(1<<5)) set $dts,$dts&~(1<<5);
+			set $dts,$dts|(1<<3);
+		}
+		if($dtsv == 0){				//If tied, gives random side 100 votes
+			set $@dtstemp,rand(1,2);
+			if($@dtstemp == 1) set $dtsv,$dtsv+100;
+			else set $dtsv,$dtsv-100;
+		}
+		if($dtsv > 0){
+			if($dts&(1<<3)) set $dts,$dts&~(1<<3);
+			if($dts&(1<<4)) set $dts,$dts&~(1<<4);
+			if($dts&(1<<5)) set $dts,$dts&~(1<<5);
+			if($dts&(1<<0)){
+				set $dts,$dts&~(1<<0);
+				set $dts,$dts|(1<<1);
+				set $dts,$dts|(1<<3);
+			}
+			if($dts&(1<<1)) set $dts,$dts|(1<<4);
+			if($dts&(1<<2)){
+				set $dts,$dts&~(1<<2);
+				set $dts,$dts|(1<<1);
+				set $dts,$dts|(1<<5);
+			}
+			set $dtsv,0;
+		}
+		else{
+			if($dts&(1<<3)) set $dts,$dts&~(1<<3);
+			if($dts&(1<<4)) set $dts,$dts&~(1<<4);
+			if($dts&(1<<5)) set $dts,$dts&~(1<<5);
+			if($dts&(1<<0)){
+				set $dts,$dts&~(1<<0);
+				set $dts,$dts|(1<<2);
+				set $dts,$dts|(1<<3);
+			}
+			if($dts&(1<<1)){
+				set $dts,$dts&~(1<<1);
+				set $dts,$dts|(1<<2);
+				set $dts,$dts|(1<<4);
+			}
+			if($dts&(1<<2)) set $dts,$dts|(1<<5);
+			set $dtsv,0;
+		}
+		end;
 }
\ No newline at end of file