summaryrefslogtreecommitdiff
path: root/npc/pre-re/kafras/dts_warper.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/pre-re/kafras/dts_warper.txt')
-rw-r--r--npc/pre-re/kafras/dts_warper.txt1333
1 files changed, 1333 insertions, 0 deletions
diff --git a/npc/pre-re/kafras/dts_warper.txt b/npc/pre-re/kafras/dts_warper.txt
new file mode 100644
index 000000000..ad5a82ab5
--- /dev/null
+++ b/npc/pre-re/kafras/dts_warper.txt
@@ -0,0 +1,1333 @@
+//===== rAthena Script =======================================
+//= Dungeon Teleport Service
+//===== By: ==================================================
+//= Evera
+//===== Current Version: =====================================
+//= 2.8
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= [Aegis 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.
+//============================================================
+
+einbroch,246,70,0 script Vote Timer#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 "Vote Timer2#ein::OnEnable";
+ }
+ else if ($DTS_JondaWins == 1) {
+ if ($DTS_KafraWins < 2) {
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else {
+ donpcevent "Vote Timer3#ein::OnEnable";
+ }
+ }
+ else {
+ if ($DTS_KafraWins < 2) {
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else {
+ donpcevent "Vote Timer3#ein::OnEnable";
+ }
+ }
+ stopnpctimer;
+ }
+ else if ($DTS_Result == 2) {
+ if ($DTS_JondaWins == 0) {
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else if ($DTS_JondaWins == 1) {
+ if ($DTS_KafraWins < 2) {
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else {
+ donpcevent "Vote Timer4#ein::OnEnable";
+ }
+ }
+ else {
+ if ($DTS_KafraWins < 2) {
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else {
+ donpcevent "Vote Timer4#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 "Scrutiny Association#6::OnEnable";
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else if ($DTS_KafraWins == 2) {
+ set $DTS_Result,1;
+ set $DTS_Time,0;
+ donpcevent "Scrutiny Association#6::OnEnable";
+ donpcevent "Vote Timer2#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 "Scrutiny Association#6::OnEnable";
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else {
+ set $DTS_Time,0;
+ set $DTS_Result,1;
+ donpcevent "Scrutiny Association#6::OnEnable";
+ donpcevent "Vote Timer3#ein::OnEnable";
+ }
+ }
+ else {
+ if ($DTS_KafraWins < 2) {
+ set $DTS_KafraWins,$DTS_KafraWins+1;
+ set $DTS_Result,1;
+ set $DTS_Time,0;
+ donpcevent "Scrutiny Association#6::OnEnable";
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else {
+ set $DTS_Result,1;
+ set $DTS_Time,0;
+ donpcevent "Scrutiny Association#6::OnEnable";
+ donpcevent "Vote Timer3#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 "Scrutiny Association#7::OnEnable";
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else {
+ set $DTS_Result,2;
+ set $DTS_Time,0;
+ donpcevent "Scrutiny Association#7::OnEnable";
+ donpcevent "Vote Timer2#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 "Scrutiny Association#7::OnEnable";
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else {
+ set $DTS_Result,2;
+ set $DTS_Time,0;
+ donpcevent "Scrutiny Association#7::OnEnable";
+ donpcevent "Vote Timer4#ein::OnEnable";
+ }
+ }
+ else {
+ if ($DTS_JondaWins < 2) {
+ set $DTS_JondaWins,$DTS_JondaWins+1;
+ set $DTS_Result,2;
+ set $DTS_Time,0;
+ donpcevent "Scrutiny Association#7::OnEnable";
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ else {
+ set $DTS_Result,2;
+ set $DTS_Time,0;
+ donpcevent "Scrutiny Association#7::OnEnable";
+ donpcevent "Vote Timer4#ein::OnEnable";
+ }
+ }
+ }
+ }
+ else {
+ set $DTS_Result,3;
+ set $DTS_Time,0;
+ donpcevent "Vote Timer#ein::OnEnable";
+ }
+ }
+ else {
+ set $DTS_Time,$DTS_Time+1;
+ donpcevent "Vote Timer#ein::OnEnable";
+ }
+ }
+ end;
+}
+
+einbroch,245,71,0 script Vote Timer2#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 "Vote Timer#ein::OnEnable";
+ }
+ else {
+ set $DTS_PeriodCheck,$DTS_PeriodCheck+1;
+ donpcevent "Vote Timer2#ein::OnEnable";
+ }
+ end;
+}
+
+einbroch,246,71,0 script Vote Timer3#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 "Vote Timer#ein::OnEnable";
+ }
+ else {
+ set $DTS_PeriodCheck,$DTS_PeriodCheck+1; //Global Variable
+ donpcevent "Vote Timer3#ein::OnEnable";
+ }
+ end;
+}
+
+einbroch,247,71,0 script Vote Timer4#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 "Vote Timer#ein::OnEnable";
+ }
+ else {
+ set $DTS_PeriodCheck,$DTS_PeriodCheck+1; //Global Variable
+ donpcevent "Vote Timer4#ein::OnEnable";
+ }
+ end;
+}
+
+// Voting Poll NPCs Kafras and Cool Corp.
+// Cool Event Staff should actually be Cool Event Voting Staff
+// 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 "[Kafra Voting Staff]";
+ mes "Greetings, adventurer.";
+ mes "As you may be aware, we";
+ mes "are holding an election to";
+ mes "determine which company will";
+ mes "provide the Dungeon Teleport";
+ mes "Service. How may I help you?";
+ next;
+ switch(select("Reason for Election:Cast a Vote:Use Teleport Service:Cancel")) {
+ 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 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 Service, and in this election, the";
+ mes "customers will ultimately decide 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 periods. This way, customers can";
+ mes "see the benefits of both companies 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. Thank you for your support~";
+ break;
+ case 2:
+ //if (lhz_boss < 17) {
+ // 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.";
+ // close2;
+ // cutin "",255;
+ // end;
+ //}
+ //else {
+ if ($DTS_Result == 0) {
+ if (lhz_vote <= $DTS_VoteCount) {
+ mes "[Kafra Voting Staff]";
+ mes "We, the Kafra Corporation,";
+ mes "are planning to provide the";
+ mes "Dungeon Teleport Service";
+ mes "to the following dungeons...";
+ next;
+ mes " ";
+ mes " ";
+ if ($DTS_KafraWins == 0) {
+ mes "^FF0000Toy Factory, Level 2^000000";
+ }
+ else if ($DTS_KafraWins == 1) {
+ mes "^FF0000Toy Factory, Level 2^000000";
+ mes "^FF0000Al De Baran Clock Tower, Level 3 ^000000";
+ }
+ else {
+ mes "^FF0000Toy Factory, Level 2^000000";
+ mes "^FF0000Al De Baran Clock Tower, Level 3 Lava Dungeon, Level 2^000000";
+ }
+ next;
+ mes "[Kafra Voting Staff]";
+ mes "If you are interested in";
+ mes "a Teleport Service to this";
+ mes "area, then please vote for";
+ mes "us. Would you like to vote";
+ mes "for the Kafra Corporation?";
+ next;
+ switch(select("No:Yes")) {
+ case 1:
+ mes "[Kafra Voting Staff]";
+ mes "I understand. But if you";
+ mes "happen to change your mind,";
+ mes "you are welcome to come back";
+ mes "at any time. Thank you and";
+ mes "have a good day, adventurer.";
+ break;
+ case 2:
+ set lhz_vote,$DTS_VoteCount+1;
+ set $DTS_KafraVotes,$DTS_KafraVotes+1;
+ mes "[Kafra Voting Staff]";
+ mes "Thanks for your vote!";
+ mes "We'll continue to do our best";
+ mes "to provide the highest quality";
+ mes "service to our customers. Have";
+ mes "a good day and remember that the Kafra service is on your side~";
+ break;
+ }
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but you've ";
+ mes "already participated in";
+ mes "this election. When the next";
+ mes "election comes, you will be";
+ mes "able to vote once again.";
+ mes "Thank you for your support~";
+ }
+ }
+ else if ($DTS_Result == 3) {
+ if (lhz_vote <= $DTS_VoteCount) {
+ mes "[Kafra Voting Staff]";
+ mes "After totalling the number of";
+ mes "votes from the last election,";
+ mes "we have concluded that the";
+ mes "minimum voter participation";
+ mes "condition was not satisfied.";
+ next;
+ mes "[Kafra Voting Staff]";
+ mes "Therefore, another election to";
+ mes "determine which company will";
+ mes "provide the Dungeon Teleport";
+ mes "Service will be held. The Kafra";
+ mes "Corporation will teleport to";
+ mes "the following dungeons...";
+ next;
+ mes " ";
+ mes " ";
+ if ($DTS_KafraWins == 0) {
+ mes "FF0000Toy Factory, Level 2^000000";
+ }
+ else if ($DTS_KafraWins == 1) {
+ mes "^FF0000Toy Factory, Level 2^000000";
+ mes "^FF0000Al De Baran Clock Tower, Level 3 ^000000";
+ }
+ else {
+ mes "^FF0000Toy Factory, Level 2^000000";
+ mes "^FF0000Al De Baran Clock Tower, Level 3 Lava Dungeon, Level 2^000000";
+ }
+ next;
+ mes "[Kafra Voting Staff]";
+ mes "If you are interested in";
+ mes "a Teleport Service to these";
+ mes "areas, then please vote for";
+ mes "us. Would you like to vote";
+ mes "for the Kafra Corporation?";
+ next;
+ switch(select("No:Yes")) {
+ case 1:
+ mes "[Kafra Voting Staff]";
+ mes "I understand. But if you";
+ mes "happen to change your mind,";
+ mes "you are welcome to come back";
+ mes "at any time. Thank you and";
+ mes "have a good day, adventurer.";
+ break;
+ case 2:
+ set lhz_vote,$DTS_VoteCount+1;
+ set $DTS_KafraVotes,$DTS_KafraVotes+1;
+ mes "[Kafra Voting Staff]";
+ mes "Thanks for your vote!";
+ mes "We'll continue to do our best";
+ mes "to provide the highest quality";
+ mes "service to our customers. Have";
+ mes "a good day and remember that the Kafra service is on your side~";
+ break;
+ }
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "After totalling the number of";
+ mes "votes from the last election,";
+ mes "we have concluded that the";
+ mes "minimum voter participation";
+ mes "condition was not satisfied.";
+ next;
+ mes "[Kafra Voting Staff]";
+ mes "Therefore, another election to";
+ mes "determine which company will";
+ mes "provide the Dungeon Teleport";
+ mes "Service will be held. However,";
+ mes "since you've already voted, you cannot vote again in this election.";
+ next;
+ mes "[Kafra Voting Staff]";
+ mes "Your participation in these";
+ mes "elections is much appreciated,";
+ mes "and we encourage you to vote";
+ mes "again during the next election.";
+ mes "Thank you and have a nice day~";
+ }
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but there are";
+ mes "no elections taking place at";
+ mes "this time. When the polls are";
+ mes "open, we encourage you to take";
+ mes "part and voice your opinions.";
+ mes "Thank you for your support~";
+ }
+ //}
+ break;
+ case 3:
+ if ($DTS_Result == 2) {
+ 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.";
+ next;
+ if ($DTS_KafraWins == 0) {
+ switch(select("Toy Factory, Level 2 -> 4,000 z:Cancel")) {
+ case 1:
+ if (Zeny >= 4000) {
+ cutin "",255;
+ set zeny,zeny-4000;
+ warp "xmas_dun02",130,123;
+ end;
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but you don't";
+ mes "have enough money to pay";
+ mes "the 4,000 zeny fee to teleport";
+ mes "to the Toy Factory. Please";
+ mes "check your funds again.";
+ }
+ break;
+ case 2:
+ mes "[Kafra Voting Staff]";
+ mes "We, here at Kafra Corporation,";
+ mes "are always endeavoring to provide you with the best services. We hope that we meet your adventuring needs and standards of excellence.";
+ break;
+ }
+ }
+ else if ($DTS_KafraWins == 1) {
+ switch(select("Toy Factory, Level 2 -> 4,000 z:Clock Tower, Level 3 -> 4,000 z:Cancel")) {
+ case 1:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "kafra_09",255;
+ warp "xmas_dun02",130,123;
+ end;
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but you don't";
+ mes "have enough money to pay";
+ mes "the 4,000 zeny fee to teleport";
+ mes "to the Toy Factory. Please";
+ mes "check your funds again.";
+ }
+ break;
+ case 2:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "kafra_09",255;
+ warp "alde_dun03",265,22;
+ end;
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but you don't";
+ mes "have enough money to pay";
+ mes "the 4,000 zeny fee to teleport";
+ mes "to the Clock Tower. Please";
+ mes "check your funds again.";
+ }
+ break;
+ case 3:
+ mes "[Kafra Voting Staff]";
+ mes "We, here at Kafra Corporation,";
+ mes "are always endeavoring to provide you with the best services. We hope that we meet your adventuring needs and standards of excellence.";
+ break;
+ }
+ }
+ else {
+ switch(select("Toy Factory, Level 2 -> 4,000 z:Clock Tower, Level 3 -> 4,000 z:Lava Dungeon, Level 2 -> 4,000 z:Cancel")) {
+ case 1:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "kafra_09",255;
+ warp "xmas_dun02",130,123;
+ end;
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but you don't";
+ mes "have enough money to pay";
+ mes "the 4,000 zeny fee to teleport";
+ mes "to the Toy Factory. Please";
+ mes "check your funds again.";
+ }
+ break;
+ case 2:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "kafra_09",255;
+ warp "alde_dun03",265,22;
+ end;
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but you don't";
+ mes "have enough money to pay";
+ mes "the 4,000 zeny fee to teleport";
+ mes "to the Clock Tower. Please";
+ mes "check your funds again.";
+ }
+ break;
+ case 3:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "kafra_09",255;
+ warp "mag_dun02",47,40;
+ end;
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but you don't";
+ mes "have enough money to pay";
+ mes "the 4,000 zeny fee to teleport";
+ mes "to the Lava Dungeon. Please";
+ mes "check your funds again.";
+ }
+ break;
+ case 4:
+ mes "[Kafra Voting Staff]";
+ mes "We, here at Kafra Corporation,";
+ mes "are always endeavoring to provide you with the best services. We hope that we meet your adventuring needs and standards of excellence.";
+ break;
+ }
+ }
+ }
+ else if ($DTS_Result == 1) {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but because of";
+ mes "the results from the most";
+ mes "recent election, Cool Event";
+ mes "Corp. is currently handling";
+ mes "the Dungeon Teleport Service. We apologize for the inconvenience.";
+ }
+ else {
+ mes "[Kafra Voting Staff]";
+ mes "I'm sorry, but the";
+ mes "Dungeon Teleport Service";
+ mes "is not active during the voting";
+ mes "period. Once the election is";
+ mes "over, the Dungeon Teleport";
+ mes "Service will become available.";
+ }
+ break;
+ case 4:
+ mes "[Kafra Voting Staff]";
+ mes "We, here at Kafra Corporation,";
+ mes "are always endeavoring to provide you with the best services. We hope that we meet your adventuring needs and standards of excellence.";
+ break;
+ }
+ close2;
+ cutin "",255;
+ end;
+}
+
+yuno,162,191,4 script Kafra Voting Staff#yuno 861,{
+ callfunc "F_VoteKafra",9;
+}
+prontera,164,125,4 script Kafra Voting Staff#prt 116,{
+ callfunc "F_VoteKafra",2;
+}
+moc_ruins,97,133,4 script Kafra Voting Staff#moc 116,{
+ callfunc "F_VoteKafra",2;
+}
+geffen,122,37,4 script Kafra Voting Staff#gef 116,{
+ callfunc "F_VoteKafra",2;
+}
+payon,158,182,4 script Kafra Voting Staff#pay 116,{
+ callfunc "F_VoteKafra",2;
+}
+alberta,119,70,4 script Kafra Voting Staff#alb 116,{
+ callfunc "F_VoteKafra",2;
+}
+aldebaran,145,102,4 script Kafra Voting Staff#alde 116,{
+ callfunc "F_VoteKafra",2;
+}
+lighthalzen,163,60,4 script Kafra Voting Staff#lght 861,{
+ callfunc "F_VoteKafra",9;
+}
+
+- script Cool Event Staff::VotingStaffCCE 874,{
+ callfunc "F_ClearGarbage"; //Clear outdated, unused variables
+ 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 the Dungeon Teleport Service!";
+ next;
+ switch(select("Reason for Election:Cast a Vote:Use Teleport Service:Cancel")) {
+ case 1:
+ 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. 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 of each company for themselves.";
+ mes "However, keep in mind that you 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 "Schwaltzvalt Republic.";
+ mes "Thank you for your time.";
+ break;
+ case 2:
+ //if (lhz_boss < 17) {
+ // 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 rights. Thank you for your time.";
+ // close2;
+ // cutin "zonda_01",255;
+ // end;
+ //}
+ //else {
+ if ($DTS_Result == 0) {
+ if (lhz_vote <= $DTS_VoteCount) {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Cool Event Corp.,";
+ mes "if chosen to provide the";
+ mes "Dungeon Teleport Service,";
+ mes "will teleport adventurers to";
+ mes "the following dungeons...";
+ next;
+ mes " ";
+ mes " ";
+ if ($DTS_JondaWins == 0) {
+ mes "^FF0000Byalan Dungeon, Level 3^000000";
+ }
+ else if ($DTS_JondaWins == 1) {
+ mes "^FF0000Byalan Dungeon, Level 3^000000";
+ mes "^FF0000Clock Tower, 3rd Floor^000000";
+ }
+ else {
+ mes "^FF0000Byalan Dungeon, Level 3^000000";
+ mes "^FF0000Clock Tower, 3rd Floor^000000";
+ mes "^FF0000Glast Heim Entrance^000000";
+ }
+ next;
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "If you are interested in";
+ mes "these destinations, then";
+ mes "it would be in your best";
+ mes "interest to vote for us.";
+ mes "Would you like to vote";
+ mes "for Cool Event Corp.?";
+ next;
+ switch(select("No:Yes")) {
+ case 1:
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Ah, I see... Well, if you";
+ mes "happen to change your mind,";
+ mes "feel free to come back and";
+ mes "cast your vote for Cool Event";
+ mes "Corp, alright? Have a nice day~";
+ break;
+ case 2:
+ set lhz_vote,$DTS_VoteCount+1;
+ set $DTS_JondaVotes,$DTS_JondaVotes+1;
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Thank you for your vote!";
+ mes "It's customers like you who";
+ mes "ensure the success and great";
+ mes "service that you have come to";
+ mes "expect from Cool Event Corp.";
+ mes "Thank you and have a nice day~";
+ break;
+ }
+ }
+ else {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "I'm sorry, but you've";
+ mes "already cast your vote";
+ mes "in this election. However,";
+ mes "please don't let that stop you";
+ mes "from voting for Cool Event";
+ mes "Corp. in the next election~";
+ }
+ }
+ else if ($DTS_Result == 3) {
+ if (lhz_vote <= $DTS_VoteCount) {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Unfortunately, there wasn't";
+ mes "enough voter turnout in the";
+ mes "last election, so we're holding";
+ mes "another election to determine";
+ mes "which company will provide the";
+ mes "Dungeon Teleport Service.";
+ next;
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Cool Event Corp.,";
+ mes "if chosen to provide the";
+ mes "Dungeon Teleport Service,";
+ mes "will teleport adventurers to";
+ mes "the following dungeons...";
+ next;
+ mes " ";
+ mes " ";
+ if ($DTS_JondaWins == 0) {
+ mes "^FF0000Byalan Dungeon, Level 3^000000";
+ }
+ else if ($DTS_JondaWins == 1) {
+ mes "^FF0000Byalan Dungeon, Level 3^000000";
+ mes "^FF0000Clock Tower, 3rd Floor^000000";
+ }
+ else {
+ mes "^FF0000Byalan Dungeon, Level 3^000000";
+ mes "^FF0000Clock Tower, 3rd Floor^000000";
+ mes "^FF0000Glast Heim Entrance^000000";
+ }
+ next;
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "If you are interested in";
+ mes "these destinations, then";
+ mes "it would be in your best";
+ mes "interest to vote for us.";
+ mes "Would you like to vote";
+ mes "for Cool Event Corp.?";
+ next;
+ switch(select("No:Yes")) {
+ case 1:
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Ah, I see... Well, if you";
+ mes "happen to change your mind,";
+ mes "feel free to come back and";
+ mes "cast your vote for Cool Event";
+ mes "Corp, alright? Have a nice day~";
+ break;
+ case 2:
+ set lhz_vote,$DTS_VoteCount+1;
+ set $DTS_JondaVotes,$DTS_JondaVotes+1;
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Thank you for your vote!";
+ mes "It's customers like you who";
+ mes "ensure the success and great";
+ mes "service that you have come to";
+ mes "expect from Cool Event Corp.";
+ mes "Thank you and have a nice day~";
+ break;
+ }
+ }
+ else {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Unfortunately, there wasn't";
+ mes "enough voter turnout in the";
+ mes "last election, so we're holding";
+ mes "another election to determine";
+ mes "which company will provide the";
+ mes "Dungeon Teleport Service.";
+ next;
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "We appreciate that";
+ mes "you've already participated";
+ mes "in this second election by";
+ mes "casting your vote. Thank";
+ mes "you for your support~";
+ }
+ }
+ else {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "I'm sorry, but an election is";
+ mes "not currently being held at this time. Please come and cast your";
+ mes "vote at the next election to decide which company will provide the";
+ mes "Dungeon Teleport Service.";
+ }
+ //}
+ break;
+ case 3:
+ if ($DTS_Result == 1) {
+ 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.";
+ next;
+ if ($DTS_JondaWins == 0) {
+ switch(select("Byalan Dungeon, Level 3 -> 4,000 z:Cancel")) {
+ case 1:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "zonda_01",255;
+ warp "iz_dun02",234,206;
+ end;
+ }
+ else {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "I'm sorry, but you do";
+ mes "not have enough zeny to";
+ mes "teleport to this destination.";
+ mes "The teleport fee is 4,000 zeny.";
+ }
+ break;
+ case 2:
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Always be assured that";
+ mes "Cool Event Corp. will do";
+ mes "everything in its power to";
+ mes "ensure the satisfaction of";
+ mes "its customers, young and old";
+ mes "and big and small. Thank you~";
+ break;
+ }
+ }
+ else if ($DTS_JondaWins == 1) {
+ switch(select("Byalan Dungeon, Level 3 -> 4,000 z:Clock Tower, 3rd Floor -> 4,000 z:Cancel")) {
+ case 1:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "zonda_01",255;
+ warp "iz_dun02",234,206;
+ end;
+ }
+ else {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "I'm sorry, but you do";
+ mes "not have enough zeny to";
+ mes "teleport to this destination.";
+ mes "The teleport fee is 4,000 zeny.";
+ }
+ break;
+ case 2:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "zonda_01",255;
+ warp "c_tower3",64,143;
+ end;
+ }
+ else {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "I'm sorry, but you do";
+ mes "not have enough zeny to";
+ mes "teleport to this destination.";
+ mes "The teleport fee is 4,000 zeny.";
+ }
+ break;
+ case 3:
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Always be assured that";
+ mes "Cool Event Corp. will do";
+ mes "everything in its power to";
+ mes "ensure the satisfaction of";
+ mes "its customers, young and old";
+ mes "and big and small. Thank you~";
+ break;
+ }
+ }
+ else {
+ 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.";
+ next;
+ switch(select("Byalan Dungeon, Level 3 -> 4,000 z:Clock Tower, 3rd Floor -> 4,000 z:Glast Heim Entrance -> 4,000 z:Cancel")) {
+ case 1:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "zonda_01",255;
+ warp "iz_dun02",234,206;
+ end;
+ }
+ else {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "I'm sorry, but you do";
+ mes "not have enough zeny to";
+ mes "teleport to this destination.";
+ mes "The teleport fee is 4,000 zeny.";
+ }
+ break;
+ case 2:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "zonda_01",255;
+ warp "c_tower3",64,143;
+ end;
+ }
+ else {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "I'm sorry, but you do";
+ mes "not have enough zeny to";
+ mes "teleport to this destination.";
+ mes "The teleport fee is 4,000 zeny.";
+ }
+ break;
+ case 3:
+ if (Zeny >= 4000) {
+ set zeny,zeny-4000;
+ cutin "zonda_01",255;
+ warp "glast_01",368,303;
+ end;
+ }
+ else {
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "I'm sorry, but you do";
+ mes "not have enough zeny to";
+ mes "teleport to this destination.";
+ mes "The teleport fee is 4,000 zeny.";
+ }
+ break;
+ case 4:
+ mes "[Cool Event Corp. Voting Staff]";
+ mes "Always be assured that";
+ mes "Cool Event Corp. will do";
+ mes "everything in its power to";
+ mes "ensure the satisfaction of";
+ mes "its customers, young and old";
+ mes "and big and small. Thank you~";
+ break;
+ }
+ }
+ }
+ else if ($DTS_Result == 2) {
+ mes "[Cool Event Corp. Voting Staff]";
+ 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~";
+ }
+ else {
+ 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 election results are announced.";
+ mes "Thank you and have a nice day.";
+ }
+ break;
+ case 4:
+ 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;
+ }
+ close2;
+ cutin "zonda_01",255;
+ end;
+}
+
+yuno,153,191,6 duplicate(VotingStaffCCE) Cool Event Staff#yuno 874
+prontera,147,125,6 duplicate(VotingStaffCCE) Cool Event Staff#prt 874
+moc_ruins,104,133,6 duplicate(VotingStaffCCE) Cool Event Staff#moc 874
+geffen,117,37,6 duplicate(VotingStaffCCE) Cool Event Staff#gef 874
+payon,153,182,6 duplicate(VotingStaffCCE) Cool Event Staff#pay 874
+alberta,114,70,6 duplicate(VotingStaffCCE) Cool Event Staff#alb 874
+aldebaran,138,102,6 duplicate(VotingStaffCCE) Cool Event Staff#alde 874
+lighthalzen,154,60,6 duplicate(VotingStaffCCE) Cool Event Staff#lhz 874
+
+yuno,103,225,0 script Scrutiny Association#5 -1,{
+OnInit:
+ initnpctimer;
+ end;
+
+OnEnable:
+ initnpctimer;
+ end;
+
+OnTimer7200000:
+ stopnpctimer;
+ if (($DTS_Result == 0) || ($DTS_Result == 3)) {
+ announce "Currently, the Dungeon Teleport Service Provider Election is being held in all major cities. Your participation is appreciated.",bc_all,"0x70dbdb";
+ }
+ donpcevent "Scrutiny Association#5::OnEnable";
+ end;
+}
+
+einbroch,248,71,0 script Scrutiny Association#6 -1,{
+OnEnable:
+ initnpctimer;
+ end;
+
+OnTimer1000:
+ announce "All the votes for the Dungeon Teleport Service Provider Election have been received and counted.",bc_all,"0x70dbdb";
+ end;
+
+OnTimer5000:
+ announce "The results are now in...",bc_all,"0x70dbdb";
+ end;
+
+OnTimer10000:
+ announce "This time, Cool Event Corp. will be the Dungeon Teleport Service Provider.",bc_all,"0x70dbdb";
+ end;
+
+OnTimer15000:
+ announce "Many thanks to all of you who have voted and shown your support.",bc_all,"0x70dbdb";
+ stopnpctimer;
+ end;
+}
+
+einbroch,249,71,0 script Scrutiny Association#7 -1,{
+OnEnable:
+ initnpctimer;
+ end;
+
+OnTimer1000:
+ announce "All the votes for the Dungeon Teleport Service Provider Election have been received and counted.",bc_all,"0x70dbdb";
+ end;
+
+OnTimer5000:
+ announce "The results are now in...",bc_all,"0x70dbdb";
+ end;
+
+OnTimer10000:
+ announce "This time, Kafra Corporation will be the Dungeon Teleport Service Provider.",bc_all,"0x70dbdb";
+ end;
+
+OnTimer15000:
+ announce "Many thanks to all of you who have voted and shown your support.",bc_all,"0x70dbdb";
+ stopnpctimer;
+ end;
+}
+
+/*
+// GM only NPC used for modifying values related to the DTS system.
+sec_in02,17,160,4 script Vote Globalvar Girl#yuno 864,{
+ mes "[Christy's Maid]";
+ mes "Lady Christy!";
+ next;
+ input .@input,0,9000;
+ if (input == 1854) {
+ mes "[Christy's Maid]";
+ mes "I am Lady Christy's Maid.";
+ next;
+ switch(select("Globalvar Check:Setitem Zero:Change Glbalvar")) {
+ case 1:
+ mes "Current GlobalVar are";
+ next;
+ mes "[Christy's Maid]";
+ mes "Global 1 - Voting Time check : "+$DTS_Time+"";
+ mes "Global 2 - Cool Event Corp. Vote Numbers : "+$DTS_JondaVotes+"";
+ mes "Global 3 - Kafra Vote Numbers : "+$DTS_KafraVotes+"";
+ mes "Global 4 - Winner : "+$DTS_Result+"";
+ mes "Global 5 - Teleport Service Period Check: "+$DTS_PeriodCheck+"";
+ mes "Global 6 - Kafra Points : "+$DTS_KafraWins+"";
+ mes "Global 7 - Cool Event Corp. Points : "+$DTS_JondaWins+"";
+ mes "Global 8 - Setitem Check : "+$DTS_VoteCount+"";
+ next;
+ mes "[Christy's Maid]";
+ mes "Current Setitem value is "+lhz_vote+".";
+ close;
+ case 2:
+ set lhz_vote,0;
+ close;
+ case 3:
+ mes "[Christy's Maid]";
+ mes "Which Globalvar value would you like to change?";
+ next;
+ switch(select("1 - Voting Time:2 - Cool Event Corp. Vote Numbers:3 - Kafra Vote Numbers:4 - Winner:5 - Teleport Service Period:6 - Kafra Warp Number:7 - Cool Event Corp. Warp Number:8 - Setitem Value")) {
+ case 1:
+ mes "[Christy's Maid]";
+ mes "Please enter a number among 0 and 1000.";
+ next;
+ input .@input;
+ if ((.@input < 0) || (.@input > 1000)) {
+ mes "[Christy's Maid]";
+ mes "The value is incorrect.";
+ close;
+ }
+ set $DTS_Time,.@input;
+ mes "[Christy's Maid]";
+ mes "The value has been modified.";
+ close;
+ case 2:
+ mes "[Christy's Maid]";
+ mes "Please enter a number among 0 and 1000.";
+ next;
+ input .@input;
+ if ((.@input < 0) || (.@input > 1000)) {
+ mes "[Christy's Maid]";
+ mes "The value is incorrect.";
+ close;
+ }
+ set $DTS_JondaVotes,.@input;
+ mes "[Christy's Maid]";
+ mes "The value has been modified.";
+ close;
+ case 3:
+ mes "[Christy's Maid]";
+ mes "Please enter a number among 0 and 1000.";
+ next;
+ input .@input;
+ if ((.@input < 0) || (.@input > 1000)) {
+ mes "[Christy's Maid]";
+ mes "The value is incorrect.";
+ close;
+ }
+ set $DTS_KafraVotes,.@input;
+ mes "[Christy's Maid]";
+ mes "The value has been modified.";
+ close;
+ case 4:
+ mes "[Christy's Maid]";
+ mes "Please enter a number among 0 and 3.";
+ next;
+ input .@input;
+ if ((.@input < 0) || (.@input > 3)) {
+ mes "[Christy's Maid]";
+ mes "The value is incorrect.";
+ close;
+ }
+ set $DTS_Result,.@input;
+ mes "[Christy's Maid]";
+ mes "The value has been modified.";
+ close;
+ case 5:
+ mes "[Christy's Maid]";
+ mes "Please enter a number among 0 and 1000.";
+ next;
+ input .@input;
+ if ((.@input < 0) || (.@input > 1000)) {
+ mes "[Christy's Maid]";
+ mes "The value is incorrect.";
+ close;
+ }
+ set $DTS_PeriodCheck,.@input;
+ mes "[Christy's Maid]";
+ mes "The value has been modified.";
+ close;
+ case 6:
+ mes "[Christy's Maid]";
+ mes "Please enter a number among 0 and 2.";
+ next;
+ input .@input;
+ if ((.@input < 0) || (.@input > 2)) {
+ mes "[Christy's Maid]";
+ mes "The value is incorrect.";
+ close;
+ }
+ set $DTS_KafraWins,.@input;
+ mes "[Christy's Maid]";
+ mes "The value has been modified.";
+ close;
+ case 7:
+ mes "[Christy's Maid]";
+ mes "Please enter a number among 0 and 2.";
+ next;
+ input .@input;
+ if ((.@input < 0) || (.@input > 2)) {
+ mes "[Christy's Maid]";
+ mes "The value is incorrect.";
+ close;
+ }
+ set $DTS_JondaWins,.@input;
+ mes "[Christy's Maid]";
+ mes "The value has been modified.";
+ close;
+ case 8:
+ mes "[Christy's Maid]";
+ mes "Please enter a number among 0 and 10000.";
+ next;
+ input .@input;
+ if ((.@input < 0) || (.@input > 10000)) {
+ mes "[Christy's Maid]";
+ mes "The value is incorrect.";
+ close;
+ }
+ set $DTS_VoteCount,.@input;
+ mes "[Christy's Maid]";
+ mes "The value has been modified.";
+ close;
+ }
+ }
+ }
+ else {
+ mes "[Christy's Maid]";
+ mes "Lady Christy...";
+ close;
+ }
+}
+*/