summaryrefslogtreecommitdiff
path: root/npc/kafras
diff options
context:
space:
mode:
authorAndrei Karas <akaras@inbox.ru>2014-10-05 11:34:32 +0300
committerAndrei Karas <akaras@inbox.ru>2015-10-20 16:51:48 +0300
commit70db001d776c9b015a91e240d722bd0bee008cba (patch)
treea2862971f8fec09f17a03fc1be02444ae28956ee /npc/kafras
parent970950205cfa46541904819f4e5bd0449a3f0c5c (diff)
downloadhercules-70db001d776c9b015a91e240d722bd0bee008cba.tar.gz
hercules-70db001d776c9b015a91e240d722bd0bee008cba.tar.bz2
hercules-70db001d776c9b015a91e240d722bd0bee008cba.tar.xz
hercules-70db001d776c9b015a91e240d722bd0bee008cba.zip
Remove conf dir.
Diffstat (limited to 'npc/kafras')
-rw-r--r--npc/kafras/cool_event_corp.txt112
-rw-r--r--npc/kafras/dts_warper.txt1330
-rw-r--r--npc/kafras/functions_kafras.txt694
-rw-r--r--npc/kafras/kafras.txt687
4 files changed, 0 insertions, 2823 deletions
diff --git a/npc/kafras/cool_event_corp.txt b/npc/kafras/cool_event_corp.txt
deleted file mode 100644
index 911f54af2..000000000
--- a/npc/kafras/cool_event_corp.txt
+++ /dev/null
@@ -1,112 +0,0 @@
-//===== Hercules Script ======================================
-//= Cool Event Corp. Staff
-//===== By: ==================================================
-//= Gepard
-//===== Current Version: =====================================
-//= 2.0
-//===== Description: =========================================
-//= Cool Event Corp. Staff (Save, Storage & Pushcart Service)
-//= in Arunafeltz Region.
-//===== Additional Comments: =================================
-//= 1.0 First version, iRO Sakray X.4 [Gepard]
-//= 1.1 Optimized, fixed a conditional bug [Lupus]
-//= 1.1a Redo back. It wasn't a bug [Lupus]
-//= 1.2 Added Rachel Cool Event Corp. Staff [Playtester]
-//= 1.3 Added cutins, closed Kafra Password exploit
-//= until we got a client/packet based password support [Lupus]
-//= 1.4 Added Veins Cool Event Corp. Staff. [L0ne_W0lf]
-//= 1.5 Cool Event Corp staff is now more iRO like. [L0ne_W0lf]
-//= 2.0 Moved duplicate code to a function. Better integrated
-// the rest with functions_kafra.txt. [Haru]
-//============================================================
-
-//=== Main Function ========================================================
-//= arg(0): Used to determine which menu to display.
-//= arg(1): Used to determine the location displayed in the save message.
-//==========================================================================
-function script F_ZondaStaff {
- cutin "zonda_01",2;
- mes "[Cool Event Corp. Staff]";
- mes "Welcome to Cool Event Corp.";
- mes "Our staff is always working";
- mes "to surpass your expactations";
- mes "for quality service. So how";
- mes "may I assist you today?";
- next;
- switch (getarg(0)) {
- // Save, Storage, Pushcart, Storage Password (Hugel)
- case 0: setarray @Z_Menu0$, "Save", "Use Storage", "Rent a Pushcart", "Storage Password Service", "Cancel"; break;
- // Save, Storage, Pushcart, Storage Password (Veins, Rachel)
- default:
- case 1: setarray @Z_Menu0$, "Save", "Use Storage", "Teleport Service", "Rent a Pushcart", "Storage Password Service", "Cancel"; break;
- }
- .@menu$ = "";
- for (.@i = 0; .@i < getarraysize(@Z_Menu0$); ++.@i)
- .@menu$ += @Z_Menu0$[.@i] + ":";
- .@j = select (.@menu$) - 1;
- if (@Z_Menu0$[.@j] == "Save") {
- mes "[Cool Event Corp. Staff]";
- mes "Your Respawn Point";
- mes "has been saved here";
- mes getarg(1);
- mes "Thank you for using the";
- mes "Cool Event Corp. service~";
- return;
- } else if (@Z_Menu0$[.@j] == "Use Storage") {
- callfunc "F_KafStor",0,40,6,"[Cool Event Corp. Staff]";
- close2;
- cutin "", 255;
- end;
- } else if (@Z_Menu0$[.@j] == "Teleport Service") {
- callfunc "F_KafTele", 6, "[Cool Event Corp. Staff]";
- close2;
- cutin "", 255;
- end;
- } else if (@Z_Menu0$[.@j] == "Rent a Pushcart") {
- callfunc "F_KafCart", 6, 800, "[Cool Event Corp. Staff]";
- close2;
- cutin "", 255;
- end;
- } else if (@Z_Menu0$[.@j] == "Storage Password Service") {
- callfunc("F_SetKafCode","[Cool Event Corp. Staff]","Cool Event Corp.");
- //the function closes msg and removes cutins
- } else {
- mes "[Cool Event Corp. Staff]";
- mes "Cool Event Corp. is always";
- mes "striving to provide the best";
- mes "services for our customers.";
- mes "Help us become the best by";
- mes "providing us with your opinions";
- mes "and honest feedback. Thank you.";
- close2;
- }
- cutin "", 255;
- end;
-}
-
-hugel,88,168,4 script Cool Event Corp. Staff::CoolEventCorpStaffHugel 4_M_ZONDAMAN,{
- callfunc "F_KafSet";
- callfunc "F_ZondaStaff", 0, "in the village of Hugel.";
- savepoint "hugel",96,155;
- close2;
- cutin "", 255;
- end;
-}
-
-rachel,109,138,5 script Cool Event Corp. Staff::CoolEventCorpStaffRachel 4_M_ZONDAMAN,{
- callfunc "F_KafSet";
- callfunc "F_ZondaStaff", 1, "in the town of Rachel.";
- savepoint "rachel",113,137;
- close2;
- cutin "", 255;
- end;
-}
-
-veins,208,128,5 script Cool Event Corp. Staff::CoolEventCorpStaffVeins 4_M_ZONDAMAN,{
- callfunc "F_KafSet";
- callfunc "F_ZondaStaff", 1, "in the town of Veins.";
- savepoint "veins",204,103;
- close2;
- cutin "", 255;
- end;
-}
diff --git a/npc/kafras/dts_warper.txt b/npc/kafras/dts_warper.txt
deleted file mode 100644
index e9ea4ee0d..000000000
--- a/npc/kafras/dts_warper.txt
+++ /dev/null
@@ -1,1330 +0,0 @@
-//===== Hercules Script ======================================
-//= Dungeon Teleport Service
-//===== By: ==================================================
-//= Evera
-//===== Current Version: =====================================
-//= 2.9
-//===== Description: =========================================
-//= [Official Conversion]
-//= Cool Event Corp NPCs vs. Kafra Dungeon Teleport Service and voting system.
-//= This is a special event on official servers where there's a
-//= big competition between Kafra Corp. and Cool Event Corp.
-//= To warp to selected levels of certain dungeons.
-//
-// Global Variables in use:
-// Voting Time check: $DTS_Time
-// Cool Event Corp. Vote Numbers: $DTS_JondaVotes
-// Kafra Vote Numbers: $DTS_KafraVotes
-// Winner: $DTS_Result
-// Teleport Service Period Check: $DTS_PeriodCheck
-// Kafra Points: $DTS_KafraWins
-// Cool Event Corp. Points: $DTS_JondaWins
-// Setitem Check: $DTS_VoteCount
-// For Detailed information on what each varibale does, see
-// the "Vote Globalvar Girl#yuno" NPC at the end of the file.
-// Character Variable in use: lhz_vote (how many times player has voted, keeps htem from re-voting.)
-//===== Additional Comments: =================================
-//= 1.0 Initial release [Evera]
-//= 1.1 SVN release, removed from major town (found true info after research),
-//= put more arg(2) parameters, fixed a few bugs [Evera]
-//= 1.2 Mushed some variables together, optimized a bit [Evera]
-//= 1.3 Removed selfconfig [Evera]
-//= 1.4 Changed global variables to read from 3 global variables, updated names,
-//= fixed array bug [Evera]
-//= 1.5 Mushed voting varialbes into 1 variable. [Evera]
-//= 1.6 Removed Duplicates [Silent]
-//= 1.7 Fixed bug of DTS_Admin not running by itself [Evera]
-//= 1.8 Changed requirement to lvl 60 [Evera]
-//= 1.9 Removed global eligibility option [Evera]
-//= 2.0 Fixed zeny bug [Evera]
-//= 2.1 Fixed headers with and updated with newer information [Evera]
-//= 2.2 Changed dtseligible 2 to MISC_QUEST|128, to clean up variable usage. [Evera]
-//= Also added F_ClearGarbage function to the scripts. [Evera]
-//= 2.3 Changed dtseligible to be $dtsday when MISC_QUEST|128
-//= Added $dtsday for vote session counter
-//= Fixed bug that involved having both warpers enabled at the same time. [Evera]
-//= New $dtsday system and bug fix[Evera]
-//= 2.3a fixed 2 bugs with comparision [Lupus]
-//= 2.3b corrected Glast warp coords [Lupus] 2.3c Bailand -> Bayalan
-//= 2.4 Corrected NPC names to fall within proper restrictions. [L0ne_W0lf]
-//= 2.5 Converted from Aegis file. (11.3) [L0ne_W0lf]
-//= 2.6 Moved Morroc NPCs to Morroc Ruins. [L0ne_W0lf]
-//= 2.7 Fixed a typo, a - to a +. Not sure how that happened. [L0ne_w0lf]
-//= 2.8 Corrected another typo this time in a variable.
-//= 2.9 Added GM management function. [Euphy]
-//============================================================
-
-einbroch,246,70,0 script Vote Timer#ein -1,{
-OnInit:
- if ($dts) {
- $dts = 0;
- $dtsvote = 0;
- $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) {
- ++$DTS_KafraWins;
- $DTS_Result = 1;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#6::OnEnable";
- donpcevent "Vote Timer2#ein::OnEnable";
- }
- else if ($DTS_KafraWins == 2) {
- $DTS_Result = 1;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#6::OnEnable";
- donpcevent "Vote Timer2#ein::OnEnable";
- }
- }
- else if ($DTS_JondaWins == 1) {
- if ($DTS_KafraWins < 2) {
- ++$DTS_KafraWins;
- $DTS_Result = 1;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#6::OnEnable";
- donpcevent "Vote Timer2#ein::OnEnable";
- }
- else {
- $DTS_Time = 0;
- $DTS_Result = 1;
- donpcevent "Scrutiny Association#6::OnEnable";
- donpcevent "Vote Timer3#ein::OnEnable";
- }
- }
- else {
- if ($DTS_KafraWins < 2) {
- ++$DTS_KafraWins;
- $DTS_Result = 1;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#6::OnEnable";
- donpcevent "Vote Timer2#ein::OnEnable";
- }
- else {
- $DTS_Result = 1;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#6::OnEnable";
- donpcevent "Vote Timer3#ein::OnEnable";
- }
- }
- }
- else {
- if ($DTS_KafraWins == 0) {
- if ($DTS_JondaWins < 2) {
- ++$DTS_JondaWins;
- $DTS_Result = 2;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#7::OnEnable";
- donpcevent "Vote Timer2#ein::OnEnable";
- }
- else {
- $DTS_Result = 2;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#7::OnEnable";
- donpcevent "Vote Timer2#ein::OnEnable";
- }
- }
- else if ($DTS_KafraWins == 1) {
- if ($DTS_JondaWins < 2) {
- ++$DTS_JondaWins;
- $DTS_Result = 2;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#7::OnEnable";
- donpcevent "Vote Timer2#ein::OnEnable";
- }
- else {
- $DTS_Result = 2;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#7::OnEnable";
- donpcevent "Vote Timer4#ein::OnEnable";
- }
- }
- else {
- if ($DTS_JondaWins < 2) {
- ++$DTS_JondaWins;
- $DTS_Result = 2;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#7::OnEnable";
- donpcevent "Vote Timer2#ein::OnEnable";
- }
- else {
- $DTS_Result = 2;
- $DTS_Time = 0;
- donpcevent "Scrutiny Association#7::OnEnable";
- donpcevent "Vote Timer4#ein::OnEnable";
- }
- }
- }
- }
- else {
- $DTS_Result = 3;
- $DTS_Time = 0;
- donpcevent "Vote Timer#ein::OnEnable";
- }
- }
- else {
- ++$DTS_Time;
- donpcevent "Vote Timer#ein::OnEnable";
- }
- }
- end;
-}
-
-einbroch,245,71,0 script Vote Timer2#ein -1,{
-OnEnable:
- initnpctimer;
- end;
-
-OnTimer60000:
- stopnpctimer;
- if ($DTS_PeriodCheck == 8640) {
- $DTS_PeriodCheck = 0;
- $DTS_Result = 0;
- $DTS_KafraVotes = 0;
- $DTS_JondaVotes = 0;
- ++$DTS_VoteCount;
- donpcevent "Vote Timer#ein::OnEnable";
- } else {
- ++$DTS_PeriodCheck;
- donpcevent "Vote Timer2#ein::OnEnable";
- }
- end;
-}
-
-einbroch,246,71,0 script Vote Timer3#ein -1,{
-OnEnable:
- initnpctimer;
- end;
-
-OnTimer60000:
- stopnpctimer;
- if ($DTS_PeriodCheck == 8640) {
- $DTS_PeriodCheck = 0; //Global Variable
- $DTS_Result = 0; //Global Variable
- $DTS_KafraVotes = 0; //Global Variable
- $DTS_JondaVotes = 0; //Global Variable
- --$DTS_JondaWins;
- ++$DTS_VoteCount;
- donpcevent "Vote Timer#ein::OnEnable";
- } else {
- ++$DTS_PeriodCheck; //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) {
- $DTS_PeriodCheck = 0; //Global Variable
- $DTS_Result = 0; //Global Variable
- $DTS_KafraVotes = 0; //Global Variable
- $DTS_JondaVotes = 0; //Global Variable
- --$DTS_KafraWins;
- ++$DTS_VoteCount;
- donpcevent "Vote Timer#ein::OnEnable";
- } else {
- ++$DTS_PeriodCheck; //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:
- lhz_vote = $DTS_VoteCount+1;
- ++$DTS_KafraVotes;
- 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:
- lhz_vote = $DTS_VoteCount+1;
- ++$DTS_KafraVotes;
- 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;
- 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) {
- 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) {
- 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) {
- 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) {
- 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) {
- 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 4_F_KAFRA9,{
- callfunc "F_VoteKafra",9;
-}
-prontera,164,125,4 script Kafra Voting Staff#prt 4_F_KAFRA2,{
- callfunc "F_VoteKafra",2;
-}
-moc_ruins,97,133,4 script Kafra Voting Staff#moc 4_F_KAFRA2,{
- callfunc "F_VoteKafra",2;
-}
-geffen,122,37,4 script Kafra Voting Staff#gef 4_F_KAFRA2,{
- callfunc "F_VoteKafra",2;
-}
-payon,158,182,4 script Kafra Voting Staff#pay 4_F_KAFRA2,{
- callfunc "F_VoteKafra",2;
-}
-alberta,119,70,4 script Kafra Voting Staff#alb 4_F_KAFRA2,{
- callfunc "F_VoteKafra",2;
-}
-aldebaran,145,102,4 script Kafra Voting Staff#alde 4_F_KAFRA2,{
- callfunc "F_VoteKafra",2;
-}
-lighthalzen,163,60,4 script Kafra Voting Staff#lght 4_F_KAFRA9,{
- callfunc "F_VoteKafra",9;
-}
-
-- script Cool Event Staff::VotingStaffCCE 4_M_ZONDAMAN,{
- 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:
- lhz_vote = $DTS_VoteCount+1;
- ++$DTS_JondaVotes;
- 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:
- lhz_vote = $DTS_VoteCount+1;
- ++$DTS_JondaVotes;
- 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) {
- 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) {
- 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) {
- 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) {
- 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) {
- 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) {
- 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 4_M_ZONDAMAN
-prontera,147,125,6 duplicate(VotingStaffCCE) Cool Event Staff#prt 4_M_ZONDAMAN
-moc_ruins,104,133,6 duplicate(VotingStaffCCE) Cool Event Staff#moc 4_M_ZONDAMAN
-geffen,117,37,6 duplicate(VotingStaffCCE) Cool Event Staff#gef 4_M_ZONDAMAN
-payon,153,182,6 duplicate(VotingStaffCCE) Cool Event Staff#pay 4_M_ZONDAMAN
-alberta,114,70,6 duplicate(VotingStaffCCE) Cool Event Staff#alb 4_M_ZONDAMAN
-aldebaran,138,102,6 duplicate(VotingStaffCCE) Cool Event Staff#alde 4_M_ZONDAMAN
-lighthalzen,154,60,6 duplicate(VotingStaffCCE) Cool Event Staff#lhz 4_M_ZONDAMAN
-
-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.
-// Disabled in official script.
-sec_in02,17,160,4 script Vote Globalvar Girl#yuno 4_F_OPERATION,{
- callfunc "F_GM_NPC";
- mes "[Christy's Maid]";
- mes "Lady Christy!";
- next;
- if (callfunc("F_GM_NPC",1854,0) == 1) {
- 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:
- 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;
- }
- $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;
- }
- $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;
- }
- $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;
- }
- $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;
- }
- $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;
- }
- $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;
- }
- $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;
- }
- $DTS_VoteCount = .@input;
- mes "[Christy's Maid]";
- mes "The value has been modified.";
- close;
- }
- }
- }
- else {
- mes "[Christy's Maid]";
- mes "Lady Christy...";
- close;
- }
-}
-*/
diff --git a/npc/kafras/functions_kafras.txt b/npc/kafras/functions_kafras.txt
deleted file mode 100644
index eabd3f1d8..000000000
--- a/npc/kafras/functions_kafras.txt
+++ /dev/null
@@ -1,694 +0,0 @@
-//===== Hercules Script ======================================
-//= Kafra Functions
-//===== By: ==================================================
-//= rAthena Dev Team
-//= Darlskies, Darkchild, Syrus22, Lupus, kobra_k88 (2.0)
-//= L0ne_W0lf
-//===== Current Version: =====================================
-//= 6.8
-//===== Description: =========================================
-//= These functions handle save, storage, cart rental, teleport,
-//= and Free Teleport/Warp/Rent Cart options for all Kafra NPCs.
-//=
-//= Kafra's will need a lot of work. The Welcome Message argument
-//= may become obsolete, as most kafras have a slightly differing
-//= Welcome message.
-//===== Additional Comments: =================================
-//= 1.1 Now using functions v2.1 Added Cart Rent for Classes: Whitesmith, Professor.
-//= Replaced checkoption(x) into checkcart(0) [Lupus] v2.1b Added Fix Kafra Pass Func [Kobra_k88]
-//= 2.2 Final fix of the Kafra Pass Exploit! [Lupus] a -Izlude[4] fix
-//= 2.2a Minor changes to function calls. Using agruments. Added Guild options. [kobra_k88]
-//= 2.2b This version uses arrays for the teleport option. Rearranged next statements to make menu transitions smoother. [kobra_k88]
-//= 2.3 Removed SAVE from Niflheim. [Lupus]
-//= 2.3 removed "fix" by HawkMoon RTFM and check supernovice.txt . There's a SPECIAL Kafra which gives CARTS to SN for a special proce. [Lupus]
-//= 2.4 Added Baby Class Support (Baby Novice check) Removed annoying storage feature where u had to close dialog window to be able to use your storage [Lupus]
-//= 2.5 Added Louyang official Kafra, fixes some Kafras, not letting you to Save your position [Lupus]
-//= 2.6 Reverted Dungeons Kafras (they should offer only Storage). Added temp Ayothaya Kafra
-//= 2.7 Added correct Ayothaya, Louyang & Amatsu Kafras. [Lupus]
-//= 2.8 Fixed Amatsu Storage problems [Lupus] 2.9 Fixed spelling mistakes. [Nexon]
-//= 3.0 Added special "not working teleport menu" for Einbroch Kafras [Lupus]
-//= 3.1 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
-//= 3.2 Fixed an exploit [Lupus]
-//= 4.0 Added Kafra storage password protection. [Lupus]
-//= to block Kafra Password, read comments at 350 line
-//= 5.0 Fixed the close2;....close; end; lines. Who let them slip away? =/ [erKURITA]
-//= Also, the kafra upon warp was giving back the zeny. Removed. [erKURITA]
-//= 5.1 Optimized a little, added no tele/save arg's [Evera]
-//= 5.1a Temporary? Added F_ClearGarbage to clear unused/outdated variables [Lupus]
-//= 5.2 By default commented out custom Guilds Kafra's "Guild Storage". [Lupus]
-//= 5.3 uncommented Guild Storage. Confirmed kRO feature. [Lupus]
-//= 5.4 added -Guide option (Kafra shows you nearest Guide) Work in progress.
-//= Need all coords for all guides.. and somehow pass their coords to kafra.
-//= Removed universal Kafra Pass, added 3 new Kafra Tickets [Lupus]
-//= 5.4b temporary moved "-Guide" from the 1st menu punct [Lupus]
-//= 5.5 Added proper Niflheim welcome message. [L0ne_W0lf]
-//= Cleaned up the menus a bit. Got rid of the proceeding "-" prefix.
-//= 5.5b Missed a preceeding hyphen, which was screwing up teleporting. [L0ne_W0lf]
-//= 5.6 Further dialog updates, added dynamic costs for cart and storage use. [L0ne_W0lf]
-//= Updated some functions to handle Guild Kafras the way they should.
-//= 5.6a Corrected a few wrong names in the teleport function. [L0ne_W0lf]
-//= 5.7 Correced end message no longer displaying, and the duplicate names [L0ne_W0lf]
-//= Thanks to Barron-Monster for pointing out the issues.
-//= 5.8 Fixed another double name being shown when "saving" [L0ne_W0lf]
-//= 5.9 Fixed the Kafra Welcome message for guilds. Thanks Barron-Monster. [L0ne_W0lf]
-//= 6.0 Closed Kafra Password exploit in Cool Event Corp. Storages until we got a client/packet based password support.
-//= Added 2 args into F_SetKafCode to fit it in Cool Evnt Co. NPC [Lupus]
-//= 6.1 Added menu for Turbo Track Kafra Staff. [L0ne_W0lf]
-//= 6.2 Updated/Fixed warp cords. [Kisuka]
-//= 6.3 #kafra_code is now stored as is. [brianluau]
-//= 6.4 Removed unofficial Guide function. [Daegaladh]
-//= 6.5 Optimized. [Joseph]
-//= 6.6 Added Warp Points / View Points Function. [Joseph]
-//= 6.7 Added Rune Knight Kafra. [Euphy]
-//= 6.8 Improved compatibility with Zonda Staff NPCs. Modernized syntax. [Haru]
-//============================================================
-
-//=== Main Function ========================================================
-//= arg(0): Used to determine which welcome message to show.
-//= arg(1): Used to determine which menu to display.
-//= arg(2): Used to determine if the info menu is shown in F_KafInfo.
-//= arg(3): Cost to use Storage
-//= arg(4): Cost to Rent a Pushcart
-//==========================================================================
-function script F_Kafra {
- callfunc "F_ClearGarbage"; // Clear outdated, unused variables
- // Display Kafra Welcome Message
- switch (getarg(0)) {
- default:
- case 0:
- // Default message (obsolete)
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "The Kafra services";
- mes "are always on your side.";
- mes "How may I assist you?";
- break;
- case 1:
- // Niflheim specific message
- mes "[Kafra Employee]";
- mes "^666666W-weeeelc-c-come";
- mes "to th-the K-kaaafrrrra";
- mes "C-coorpoor-r-ratioooonn...^000000";
- break;
- case 2:
- // Guild Castle Kafra message
- @GID = getcharid(2);
- mes "[Kafra Employee]";
- mes "Welcome. ^ff0000" + getguildname(@GID) + "^000000 Member.";
- mes "The Kafra Coporation will stay with you wherever you go.";
- break;
- case 3:
- // Amatsu specific message (obsolete)
- mes "[Kafra Employee]";
- mes "So, have you come from a faraway land to study our culture, or are you just sightseeing?";
- mes "In either case, why not stay awhile?";
- mes "The air is eternally heavy with the";
- mes "scent of pleasant wildflowers.";
- break;
- case 4:
- // Louyang and Ayothaya specific message (obsolete)
- mes "[Kafra Employee]";
- mes "With our many Kafra";
- mes "service locations, you're never";
- mes "far from home.";
- break;
- case 5:
- // NPC has it's own welcome message. (Display nothing)
- break;
- }
- next;
- while (true) {
- deletearray @K_Menu0$;
- if (getarg(0) == 2) {
- // Guild Kafra Menu override (free Teleport, free Storage, Free Cart)
- setarray @K_Menu0$[0],"Use Storage","Use Guild Storage","Rent a Pushcart","Use Teleport Service","Cancel";
- } else {
- switch (getarg(1)) {
- // Save and Storage only
- case 1: setarray @K_Menu0$[0],"Save","Use Storage","Cancel"; break;
- // Storage only
- case 2: setarray @K_Menu0$[0],"Use Storage","Cancel"; break;
- // No Teleport (Common)
- case 3: setarray @K_Menu0$[0],"Save","Use Storage","Rent a Pushcart","Check Other Information","Cancel"; break;
- // Case 4 is Einbroch no tele message.
- // No save, or teleport. (Common)
- case 5: setarray @K_Menu0$[0],"Use Storage","Rent a Pushcart","Check Other Information","Cancel"; break;
- // Storage and Check Other Information only.
- case 6: setarray @K_Menu0$[0],"Use Storage","Check Other Information","Cancel"; break;
- // Save, Storage, and Pushcart only (Kafra Warehouse)
- case 7: setarray @K_Menu0$[0],"Save","Use Storage","Rent a Pushcart","Cancel"; break;
- // Save, Storage, Other Check information. (Turbo track)
- case 8: setarray @K_Menu0$[0],"Save","Use Storage","Check Other Information","Cancel"; break;
- // No Save (Rune Knight)
- case 9: setarray @K_Menu0$[0],"Use Storage","Rent a Pushcart","Use Teleport Service","Check Other Information","Cancel"; break;
- // Storage, Save, and Pushcart (Dewata, reorder of case 7)
- case 10: setarray @K_Menu0$[0],"Use Storage","Save","Rent a Pushcart","Cancel"; break;
- // Default message (obsolete)
- default: setarray @K_Menu0$[0],"Save","Use Storage","Use Teleport Service","Rent a Pushcart","Check Other Information","Cancel"; break;
- }
- }
- .@menu$ = "";
- for (.@i = 0; .@i < getarraysize(@K_Menu0$); ++.@i)
- .@menu$ += @K_Menu0$[.@i] + ":";
- .@j = select(.@menu$) - 1;
- if (@K_Menu0$[.@j] == "Save") {
- return;
- } else if (@K_Menu0$[.@j] == "Use Storage") {
- // Do not charge for Guild Storage
- if(getarg(0) == 2)
- callfunc "F_KafStor",2,0,0,"[Kafra Employee]";
- else
- callfunc "F_KafStor",0,getarg(3),getarg(0),"[Kafra Employee]";
- next;
- } else if (@K_Menu0$[.@j] == "Use Teleport Service") {
- // Display Einbroch "No Teleport Service" notice.
- if (getarg(1) != 4) {
- callfunc "F_KafTele",getarg(0),"[Kafra Employee]";
- } else {
- mes "[Kafra Employee]";
- mes "Because of the ^FF0000Limited";
- mes "Transport Agreement^000000, the";
- mes "Kafra Corporation cannot";
- mes "provide Teleport Services";
- mes "in the Schwaltzvalt Republic.";
- next;
- mes "[Kafra Employee]";
- mes "We ask that you please";
- mes "use the Airship Service";
- mes "instead. Thank you for your";
- mes "understanding and cooperation.";
- }
- next;
- } else if (@K_Menu0$[.@j] == "Rent a Pushcart") {
- if(callfunc("F_KafCart",getarg(0),getarg(4),"[Kafra Employee]") == 1)
- next;
- } else if (@K_Menu0$[.@j] == "Check Other Information") {
- callfunc "F_KafInfo",getarg(2);
- next;
- } else if (@K_Menu0$[.@j] == "Cancel"){
- callfunc "F_KafEnd",getarg(0),0;
- end;
- } else if (@K_Menu0$[.@j] == "Use Guild Storage") {
- callfunc "F_KafStor",1,0,0,"[Kafra Employee]";
- next;
- }
- }
-}
-
-//===================================================
-// Storage Function
-//= arg(0): Specifies the type of storage that has been requested:
-// 0 = Regular storage
-// 1 = Guild storage
-// 2 = Regular storage, in a castle (free of charge)
-//= arg(1): Cost to use storage.
-//= arg(2): The type of NPC this is being called from. Notable values:
-// 0,2-5 = Regular Kafra
-// 1 = Niflheim Kafra (special messages)
-// 6 = Zonda/Cool Event Staff (no RESRVPTS)
-//= arg(3): NPC title to display.
-//===================================================
-function script F_KafStor {
- // Unable to access Guild Storage (Busy)
- if (getarg(0) == 1) {
- if (guildopenstorage()) {
- mes getarg(3);
- mes "I'm sorry but another guild member is using the guild storage";
- mes "right now. Please wait until that person is finished.";
- close2;
- cutin "", 255;
- end;
- }
- cutin "", 255;
- close;
- }
- // Unable to access Normal Storage (Insufficient Basic Skills)
- if (basicskillcheck() && getskilllv(NV_BASIC) < 6) {
- mes getarg(3);
- // Niflheim Specific Message
- if (getarg(2) == 1) {
- mes "^666666S-s-ssoooorry,";
- mes "y-you're a-a-aaaa";
- mes "Nooviiice... N-neeeds";
- mes "B-basic sssskill l-level 6...^000000";
- return;
- }
- mes "I'm sorry, but you";
- mes "need the Novice's";
- mes "Basic Skill Level 6 to";
- mes "use the Storage Service.";
- return;
- }
- // Accessing Normal Storage (Skipped if accessing Storage from Guild castle)
- if (getarg(0) != 2) {
- // Consume "Free Ticket for Kafra Storage" if available.
- if (countitem(Cargo_Free_Ticket)) {
- delitem Cargo_Free_Ticket, 1;
- } else {
- if (Zeny < getarg(1)) {
- mes getarg(3);
- // Niflheim Specific Message
- if (getarg(2) == 1) {
- percentheal -50,-50;
- mes "^666666Zeeeeeny...";
- mes "M-more z-zeny...!";
- mes "N-neeed 150... zeny...";
- mes "Ergh! T-taking bl-blood~!^000000";
- return;
- }
- // Standard Message
- mes "I'm sorry, but you don't";
- mes "have enough zeny to use";
- mes "the Storage Service. Our";
- mes "Storage access fee is "+getarg(1)+" zeny.";
- return;
- }
- Zeny -= getarg(1);
- if (getarg(2) != 6)
- RESRVPTS += getarg(1) / 5;
- }
- }
-
- // Surpress the "End" message if in guild castle.
- if (getarg(0) != 2) {
- if (getarg(2) == 1) {
- // Niflheim specific Message
- percentheal 0,-10;
- mes getarg(3);
- for (.@i = 0; .@i < 5; ++.@i)
- mes "^666666Thank you.. for... using...^000000";
- } else if (getarg(2) == 6) {
- // Zonda
- mes getarg(3);
- mes "Let me open your personal";
- mes "storage for you right away.";
- mes "Thanks for supporting Cool";
- mes "Event Corp. by using our";
- mes "services. Have a good day~";
- } else {
- // Normal message
- mes getarg(3);
- mes "Here, let me open";
- mes "your Storage for you.";
- mes "Thank you for using";
- mes "the Kafra Service.";
- }
- }
- callfunc("F_CheckKafCode"); //check your storage password, if set
- close2;
- openstorage;
- cutin "", 255;
- end;
-}
-
-//===================================================
-// Teleport Function
-//= arg(2): The type of NPC this is being called from. Notable values:
-// 2 = Guild Castle Kafra (don't consume tickets)
-// 6 = Zonda/Cool Event Staff (no RESRVPTS)
-//= arg(1): NPC title to display.
-//===================================================
-function script F_KafTele {
- mes getarg(1);
- mes "Please choose";
- mes "your destination.";
- next;
- .@menu$ = "";
- for (.@i = 0; .@i <= getarraysize(@wrpD$); ++.@i)
- .@menu$ += @wrpC$[.@i] + ":";
- .@j = select(.@menu$) - 1;
- if (@wrpC$[.@j] == "Cancel")
- return;
- // Consume "Free Ticket for Kafra Transportation" if available.
- // Do not consume if in Guild castle
- if (countitem(Warp_Free_Ticket) > 0 && getarg(0) != 2) {
- delitem Warp_Free_Ticket, 1;
- } else {
- if (Zeny < @wrpP[.@j]) {
- mes getarg(1);
- mes "I'm sorry, but you don't have";
- mes "enough zeny for the Teleport";
- mes "Service. The fee to teleport";
- mes "to "+@wrpD$[.@j]+" is "+@wrpP[.@j]+" zeny.";
- close2;
- cutin "", 255;
- end;
- }
- Zeny -= @wrpP[.@j];
- if (getarg(0) != 6)
- RESRVPTS += @wrpP[.@j] / 16;
- }
- cutin "", 255;
- if (@wrpD$[.@j] == "Al De Baran") warp "aldebaran",168,112;
- else if (@wrpD$[.@j] == "Alberta") warp "alberta", 117, 56;
- else if (@wrpD$[.@j] == "Comodo") warp "comodo", 209, 143;
- else if (@wrpD$[.@j] == "Comodo Pharos Beacon") warp "cmd_fild07", 127, 134;
- else if (@wrpD$[.@j] == "Geffen") warp "geffen", 120, 39;
- else if (@wrpD$[.@j] == "Izlude") { if (RENEWAL) warp "izlude", 128, 98; else warp "izlude", 91, 105; }
- else if (@wrpD$[.@j] == "Juno") warp "yuno", 158, 125;
- else if (@wrpD$[.@j] == "Mjolnir Dead Pit") warp "mjolnir_02", 99, 351;
- else if (@wrpD$[.@j] == "Morroc") warp "morocc", 156, 46;
- else if (@wrpD$[.@j] == "Orc Dungeon") warp "gef_fild10", 52, 326;
- else if (@wrpD$[.@j] == "Payon") warp "payon", 161, 58;
- else if (@wrpD$[.@j] == "Prontera") warp "prontera", 116, 72;
- else if (@wrpD$[.@j] == "Umbala") warp "umbala", 100, 154;
- else if (@wrpD$[.@j] == "Veins") warp "veins",205,101;
- else if (@wrpD$[.@j] == "Rachel") warp "rachel",115,125;
- end;
-}
-
-
-//===================================================
-// Cart Function
-//= arg(0): The type of NPC this is being called from. Notable values:
-// 0,1,3-5 = Regular Kafra
-// 2 = Guild Castle Kafra (don't consume tickets)
-// 6 = Zonda/Cool Event Staff (no RESRVPTS)
-//= arg(1): Cost to rent a cart.
-//= arg(2): NPC title to display.
-//===================================================
-function script F_KafCart {
- // Ensure that the class wanting to rent a pushcart is a merchant
- if (BaseClass != Job_Merchant) {
- mes getarg(2);
- mes "I'm sorry, but the";
- mes "Pushcart rental service";
- mes "is only available to Merchants,";
- mes "Blacksmiths, Master Smiths,";
- mes "Alchemists and Biochemists.";
- return 1;
- }
- if (getskilllv(MC_PUSHCART) == 0) {
- mes getarg(2);
- mes "You can only rent a cart after";
- mes "learning the Pushcart Skill.";
- return 1;
- }
- // Make sure the invoking character does not have a cart already
- if (checkcart() == 1) {
- mes getarg(2);
- mes "You already have";
- mes "a Pushcart equipped.";
- mes "Unfortunately, we can't";
- mes "rent more than one to";
- mes "each customer at a time.";
- return 1;
- }
- // Consume "Free Ticket for the Cart Service" if available.
- // Do not consume if in Guild castle.
- if (countitem(Cart_Free_Ticket) > 0 && getarg(0) != 2) {
- delitem Cart_Free_Ticket, 1;
- } else {
- mes getarg(2);
- mes "The Pushcart rental";
- mes "fee is "+getarg(1)+" zeny. Would";
- mes "you like to rent a Pushcart?";
- next;
- if (select("Rent a Pushcart.:Cancel") == 2)
- return 0;
- if (Zeny < getarg(1)) {
- mes getarg(2);
- mes "I'm sorry, but you";
- mes "don't have enough";
- mes "zeny to pay the Pushcart";
- mes "rental fee of "+getarg(1)+" zeny.";
- return 1;
- }
- Zeny -= getarg(1);
- if (getarg(0) != 6)
- RESRVPTS += 48;
- }
- setcart;
- return 1;
-}
-
-//===================================================
-// Special Reserve Points Function
-//===================================================
-function script F_KafInfo {
- // Uncomment next line to block Kafra Storage Protection
- //.@block = 1;
- setarray .@m$, "Check Special Reserve Points.","Storage Password Service","Kafra Employee Locations","Cancel";
- if (getarg(0) == 2) deletearray .@m$[1],2; // Port Malaya, Rune Knight: remove Storage Password and Kafra Employee Locations
- else if (.@block) deletearray .@m$[1],1; // Remove Storage Password
- while (true) {
- .@j = select(implode(.@m$,":")) - 1;
- if (.@m$[.@j] == "Check Special Reserve Points.") {
- mes "[Kafra Employee]";
- mes "Let's see...";
- mes strcharinfo(0) + "...";
- mes "Ah, you have a total of";
- mes RESRVPTS+ " Special Reserve Points.";
- next;
- mes "[Kafra Employee]";
- mes "You can exchange your";
- mes "Special Reserve Points for";
- mes "rewards at the Kafra Main Office in Al De Baran. Please use our";
- mes "convenient services to see the benefits of our rewards program.";
- next;
- if(getarg(0) == 1)
- return;
- } else if (.@m$[.@j] == "Kafra Employee Locations") {
- for (.@i = 0; .@i <= 3; ++.@i)
- viewpoint 1,@viewpX[.@i],@viewpY[.@i],(.@i+1),0xFF00FF;
- next;
- for (.@i = 0; .@i <= 3; ++.@i)
- viewpoint 2,@viewpX[.@i],@viewpY[.@i],(.@i+1),0xFF00FF;
- } else if (.@m$[.@j] == "Storage Password Service") {
- callfunc("F_SetKafCode","[Kafra Employee]","Kafra Services");
- } else {
- return;
- }
- }
-}
-
-// === End Function ==================================================
-// arg(0): used to determine what message to display.
-// arg(1): used to determine if save message is displayed.
-// arg(2): used to display the name of the area you're saving in.
-//===================================================================
-function script F_KafEnd {
- mes "[Kafra Employee]";
- if (getarg(1) == 1) {
- // Save
- mes "Your Respawn Point";
- mes "has been saved here";
- mes getarg(2)+".";
- mes "Thank you for using";
- mes "the Kafra Services.";
- } else if (getarg(0) == 0 || getarg(0) == 5) {
- // Generic End
- 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.";
- } else if (getarg(0) == 1) {
- // Niflheim End
- percentheal 0,-25;
- mes "^666666Kaffffra n-never";
- mes "diiiiiiiiiiiiiies. On...";
- mes "On y-yooour siiiiide~^000000";
- }
- close2;
- cutin "", 255;
- end;
-}
-
-//===================================================
-// Check Storage Password Function
-//===================================================
-function script F_CheckKafCode {
- if (!#kafra_code)
- return;
- mes "Enter your storage password:";
- @code_ = 0;
- input @code_;
- if (@code_ != #kafra_code) {
- dispbottom "Wrong storage password.";
- close2;
- cutin "",255;
- end;
- }
- @kafcode_try = 0;
- @code_ = 0;
- return;
-}
-
-// === Set / Change / Clear Storage Password Function ===
-// getarg(0): NPC Name
-// getarg(1): Company Name
-//=======================================================
-function script F_SetKafCode {
- mes getarg(0);
- if (#kafra_code) {
- mes "Your storage is protected with a password. What would you do now?";
- next;
- switch (select("Change old password -> 5000z:Remove storage password -> 1000z:Cancel")) {
- case 1:
- mes getarg(0);
- mes "At first, please enter your ^0000FFold password^000000.";
- @code = callfunc("F_EntKafCode");
- if (!@code || @code != #kafra_code) {
- mes "Wrong password. You can't set a new password.";
- emotion e_hmm;
- break;
- }
- next;
- callsub S_SET,getarg(0),getarg(1);
- break;
- case 2:
- mes getarg(0);
- mes "Please, enter your password before its removal.";
- @code = callfunc("F_EntKafCode");
- if (!@code) {
- mes "The password hasn't been removed.";
- emotion e_hmm;
- break;
- }
- next;
- mes getarg(0);
- if (Zeny < 1000) {
- mes "You don't have enough zeny.";
- emotion e_cash;
- break;
- }
- Zeny -= 1000;
- if (@code == #kafra_code) {
- #kafra_code = 0;
- mes "You've successfully cleared your storage password.";
- mes "Thank you for using "+getarg(1)+".";
- emotion e_thx;
- } else {
- mes "Wrong password. We won't return your 1000z.";
- mes "Please, next time enter correct password.";
- emotion e_sry;
- }
- break;
- case 3:
- break;
- }
- } else {
- mes getarg(1)+" proudly presents you a new service:";
- mes "Additional storage protection with a password.";
- next;
- switch (select("Set new password -> 5000z:Cancel")) {
- case 1: callsub S_SET,getarg(0),getarg(1); break;
- case 2: break;
- }
- }
- close2;
- cutin "",255;
- end;
-
-S_SET:
- mes getarg(0);
- mes "Now enter your ^FF0000new password^000000 to protect your storage from thieves.";
- @code = callfunc("F_EntKafCode");
- if (!@code) {
- mes "The password hasn't been changed.";
- emotion e_hmm;
- return;
- }
- next;
- mes getarg(0);
- if (Zeny < 5000) {
- mes "You don't have enough zeny.";
- emotion e_cash;
- return;
- }
- Zeny -= 5000;
- #kafra_code = @code;
- mes "You've protected your storage with a secret password.";
- mes "Thank you for using "+getarg(1)+".";
- emotion e_thx;
- return;
-}
-
-//===================================================
-// Basic Password Validation Function
-//===================================================
-function script F_EntKafCode {
- mes "Enter a number 1000~10000000:";
- @code_ = 0;
- ++@kafcode_try;
- if (@kafcode_try > 10) {
- @kafcode_try = 0;
- logmes "Hack: Tried to fit storage password.";
- }
- if (input(@code_) == 1) {
- mes "You can't use such big password.";
- return 0;
- }
- if (@code_ < 1000) {
- mes "You shouldn't use such short password.";
- return 0;
- }
- return @code_;
-}
-
-//===================================================
-// Warp Points / View Points Function
-//===================================================
-function script F_KafSet {
- deletearray @wrpC$;
- deletearray @wrpD$;
- deletearray @wrpP$;
- deletearray @viewpX;
- deletearray @viewpY;
- if (strnpcinfo(4) == "prontera") {
- setarray @wrpD$, "Izlude", "Geffen", "Payon", "Morroc", "Orc Dungeon", "Alberta";
- setarray @wrpP, 600, 1200, 1200, 1200, 1200, 1800;
- setarray @viewpX, 151, 29, 282, 152;
- setarray @viewpY, 29, 207, 200, 326;
- } else if (strnpcinfo(4) == "alberta") {
- setarray @wrpP, 1200, 1800, 1800;
- setarray @wrpD$, "Payon", "Morroc", "Prontera";
- setarray @viewpX, 28, 113, 0, 0;
- setarray @viewpY, 229, 60, 0, 0;
- } else if (strnpcinfo(4) == "aldebaran") {
- setarray @wrpP, 1200, 1200, 1800, 1700;
- setarray @wrpD$, "Geffen", "Juno" , "Izlude", "Mjolnir Dead Pit";
- } else if (strnpcinfo(4) == "comodo" ) {
- setarray @wrpD$, "Morroc", "Comodo Pharos Beacon", "Umbala";
- setarray @wrpP, 1800, 1200, 1800;
- } else if (strnpcinfo(4) == "cmd_fild07") {
- setarray @wrpD$, "Comodo", "Morroc";
- setarray @wrpP, 1200, 1200;
- } else if (strnpcinfo(4) == "geffen") {
- setarray @wrpD$, "Prontera", "Al De Baran", "Orc Dungeon", "Mjolnir Dead Pit";
- setarray @wrpP, 1200, 1200, 1200, 1700;
- setarray @viewpX, 120, 203;
- setarray @viewpY, 62, 123;
- } else if (strnpcinfo(4) == "izlude") {
- setarray @wrpD$, "Geffen", "Payon", "Morroc", "Al De Baran";
- setarray @wrpP, 1200, 1200, 1200, 1800;
- } else if (strnpcinfo(4) == "morocc") {
- setarray @wrpD$, "Prontera", "Payon", "Alberta", "Comodo", "Comodo Pharos Beacon";
- setarray @wrpP, 1200, 1200, 1800, 1800, 1200;
- setarray @viewpX, 156, 163, 28, 292;
- setarray @viewpY, 97, 260, 167, 211;
- } else if (strnpcinfo(4) == "umbala") {
- setarray @wrpD$, "Comodo";
- setarray @wrpP, 1800;
- } else if (strnpcinfo(4) == "payon") {
- setarray @wrpD$, "Prontera", "Alberta", "Morroc";
- setarray @wrpP, 1200, 1200, 1200;
- } else if (strnpcinfo(4) == "yuno") {
- setarray @wrpD$, "Al De Baran";
- setarray @wrpP, 1200;
- setarray @viewpX, 328, 278, 153, 0;
- setarray @viewpY, 108, 221, 187, 0;
- } else if (strnpcinfo(4) == "job3_rune01") {
- setarray @wrpD$, "Izlude", "Geffen", "Payon", "Morroc", "Alberta";
- setarray @wrpP, 600, 1200, 1200, 1200, 1800;
- } else if (strnpcinfo(4) == "rachel") {
- setarray @wrpD$, "Veins";
- setarray @wrpP, 2200;
- } else if (strnpcinfo(4) == "veins") {
- setarray @wrpD$, "Rachel";
- setarray @wrpP, 2200;
- }
- for (.@i = 0; .@i < getarraysize(@wrpD$); ++.@i)
- @wrpC$[.@i] = @wrpD$[.@i]+" -> "+@wrpP[.@i];
- @wrpC$[getarraysize(@wrpC$)] = "Cancel";
- return;
-}
diff --git a/npc/kafras/kafras.txt b/npc/kafras/kafras.txt
deleted file mode 100644
index cfdaf183b..000000000
--- a/npc/kafras/kafras.txt
+++ /dev/null
@@ -1,687 +0,0 @@
-//===== Hercules Script ======================================
-//= Kafras (Cities/Dungeons/Fields)
-//===== By: ==================================================
-//= Joseph
-//===== Current Version: =====================================
-//= 1.1b
-//===== Description: =========================================
-//= Argument settings for callfunc "F_Kafra":
-//= arg(0): 0 - Default Kafra message
-//= 1 - Niflhiem Kafra message
-//= 2 - Guild Kafra message
-//= arg(1): 1 - Disable teleport menu
-//= arg(2): 1 - Disable info menu
-//= arg(3): Cost of Storage service
-//= arg(4): Cost of Rent a Pushcart service
-//===== Additional Comments: =================================
-//= 0.x Previous Authors:
-//= - L0ne_W0lf, kobra_k88, Samuray22, Evera, Lupus
-//= 1.0 Merged and cleaned up Kafras. [Joseph]
-//= 1.1 Added Izlude RE coordinates. [Euphy]
-//= 1.1a Fixed Pre-RE Call and some leftovers. [Lemongrass]
-//= 1.1b Enabled saving in Izlude duplicates (RE). [Euphy]
-//============================================================
-
-// Aldebaran
-//============================================================
-aldeba_in,96,181,4 script Kafra Service 4_F_KAFRA5,{
- cutin "kafra_05",2;
- mes "[Kafra Leilah]";
- mes "Hm...?";
- mes "Oh, welcome to";
- mes "the Kafra Corporation";
- mes "Headquarters. Did you";
- mes "need something?";
- next;
- switch(select("Save:Use Storage:Rent a Pushcart:Cancel")) {
- case 1:
- mes "[Kafra Leilah]";
- mes "Your Respawn Point has";
- mes "been saved here, inside";
- mes "of the Kafra Corporation";
- mes "Headquarters. Thank you.";
- next;
- savepoint "aldeba_in",96,179;
- mes "[Kafra Leilah]";
- mes "Please make use of";
- mes "the Kafra Services that are";
- mes "available throughout all of";
- mes "Rune Midgard. Thank you for";
- mes "visiting the Kafra Headquarters.";
- close2;
- break;
- case 2:
- if (Zeny < 20) {
- mes "[Kafra Leilah]";
- mes "Excuse me, but it";
- mes "seems that you don't";
- mes "have the 20 zeny to pay";
- mes "the Storage access fee...";
- close;
- }
- mes "[Kafra Leilah]";
- mes "Although this facility is";
- mes "exclusively intended for";
- mes "the training of Kafra Employee";
- mes "and administrative functions,";
- mes "I'll access your Storage for you.";
- next;
- Zeny -= 20;
- RESRVPTS += (20/5);
- mes "[Kafra Leilah]";
- mes "In the future, please";
- mes "ask the Kafra Employee on";
- mes "duty if you wish to use";
- mes "any of the Kafra Services.";
- mes "Thank you for your patronage.";
- callfunc("F_CheckKafCode"); //check your storage password, if set
- close2;
- openstorage;
- break;
- case 3:
- mes "[Kafra Leilah]";
- mes "My apologies, but I'm";
- mes "not on duty. I'd assist you";
- mes "if I could, but actually don't";
- mes "have any available Pushcarts.";
- mes "Why don't you ask another Kafra";
- mes "Employee for assistance?";
- next;
- mes "[Kafra Leilah]";
- mes "Kafra Employees are";
- mes "stationed all over the";
- mes "Rune Midgard continent,";
- mes "and you should be able to find";
- mes "plenty outside in Al De Baran.";
- close2;
- break;
- case 4:
- mes "[Kafra Leilah]";
- mes "^666666*Whew...*^000000";
- mes "Great, because I'm";
- mes "actually on my break";
- mes "right now. Choosing";
- mes "''Cancel'' was a good";
- mes "move on your part.";
- close2;
- break;
- }
- cutin "",255;
- end;
-}
-
-aldebaran,143,119,4 script Kafra Employee::kaf_aldebaran 4_F_KAFRA5,{
- cutin "kafra_05",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "The Kafra Corporation";
- mes "is always working to provide";
- mes "you with convenient services.";
- mes "How may I be of assistance?";
- callfunc "F_Kafra",5,0,1,20,600;
- savepoint "aldebaran",143,109;
- callfunc "F_KafEnd",0,1,"in the city of Al De Baran";
-}
-
-// Geffen
-//============================================================
-geffen,120,62,0 script Kafra Employee::kaf_geffen 4_F_KAFRA3,{
- cutin "kafra_03",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome~!";
- mes "The Kafra Services";
- mes "are always on your side.";
- mes "So how can I help you?";
- callfunc "F_Kafra",5,0,0,30,750;
- savepoint "geffen",119,40;
- callfunc "F_KafEnd",0,1,"in the city of Geffen";
-}
-
-geffen,203,123,2 script Kafra Employee::geffen2 4_F_KAFRA4,{
- cutin "kafra_04",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome!";
- mes "The Kafra Corporation";
- mes "will always support the";
- mes "adventurers of Rune-Midgard";
- mes "with its excellent service. So";
- mes "what can I do for you today?";
- callfunc "F_Kafra",5,0,0,30,750;
- savepoint "geffen",200,124;
- callfunc "F_KafEnd",0,1,"in the city of Geffen";
-}
-
-// Morocc
-//============================================================
-morocc,156,97,4 script Kafra Employee::kaf_morocc 4_F_KAFRA5,{
- cutin "kafra_05",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "The Kafra Corporation";
- mes "is always working to provide";
- mes "you with convenient services.";
- mes "How may I be of assistance?";
- callfunc "F_Kafra",5,0,0,60,930;
- savepoint "morocc",156,46;
- callfunc "F_KafEnd",0,1,"in the city of Morroc";
-}
-
-morocc,160,258,4 script Kafra::kaf_morocc2 4_F_KAFRA4,{
- cutin "kafra_04",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome!";
- mes "The Kafra Corporation";
- mes "will always support the";
- mes "adventurers of Rune-Midgard";
- mes "with its excellent service. So";
- mes "what can I do for you today?";
- callfunc "F_Kafra",5,0,0,60,930;
- savepoint "morocc",157,272;
- callfunc "F_KafEnd",0,1,"in the city of Morroc";
-}
-
-// Payon
-//============================================================
-payon,181,104,4 script Kafra Employee::kaf_payon 4_F_KAFRA5,{
- cutin "kafra_05",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "The Kafra Corporation";
- mes "is always working to provide";
- mes "you with convenient services.";
- mes "How may I be of assistance?";
- callfunc "F_Kafra",5,0,1,60,930;
- savepoint "payon",160,58;
- callfunc "F_KafEnd",0,1,"in the city of Payon";
-}
-
-payon,175,226,4 script Kafra Employee::kaf_payon2 4_F_KAFRA2,{
- cutin "kafra_02",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "The Kafra services are";
- mes "always on your side.";
- mes "How may I assist you?";
- callfunc "F_Kafra",5,0,1,60,930;
- savepoint "payon",257,242;
- callfunc "F_KafEnd",0,1,"in the city of Payon";
-}
-
-pay_arche,55,123,0 script Kafra Employee::kaf_payon3 4_F_KAFRA3,{
- cutin "kafra_03",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "The Kafra services";
- mes "are always on your side.";
- mes "How may I assist you?";
- callfunc "F_Kafra",5,5,1,90,1200;
- savepoint "pay_arche",49,144;
- callfunc "F_KafEnd",0,1,"at the Payon Dungeon";
-}
-
-// Prontera
-//============================================================
-prontera,152,326,3 script Kafra Employee::kaf_prontera 4_F_KAFRA6,{
- cutin "kafra_06",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation~";
- mes "The Kafra Services are";
- mes "always here to support";
- mes "you. So how can I be";
- mes "of service today?";
- callfunc "F_Kafra",5,0,0,40,800;
- savepoint "prontera",157,327;
- callfunc "F_KafEnd",0,1,"in the city of Prontera";
-}
-
-prontera,151,29,0 script Kafra Employee::kaf_prontera2 4_F_KAFRA3,{
- cutin "kafra_03",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome~!";
- mes "The Kafra Services";
- mes "are always on your side.";
- mes "So how can I help you?";
- callfunc "F_Kafra",5,0,0,40,800;
- savepoint "prontera",150,33;
- callfunc "F_KafEnd",0,1,"in the city of Prontera";
-}
-
-prontera,29,207,6 script Kafra Employee::kaf_prontera3 4_F_KAFRA5,{
- cutin "kafra_05",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "The Kafra Corporation";
- mes "is always working to provide";
- mes "you with convenient services.";
- mes "How may I be of assistance?";
- callfunc "F_Kafra",5,0,0,40,800;
- savepoint "prontera",33,208;
- callfunc "F_KafEnd",0,1,"in the city of Prontera";
-}
-
-prontera,282,200,2 script Kafra Employee::kaf_prontera4 4_F_KAFRA4,{
- cutin "kafra_04",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome!";
- mes "The Kafra Corporation";
- mes "will always support the";
- mes "adventurers of Rune-Midgard";
- mes "with its excellent service. So";
- mes "what can I do for you today?";
- callfunc "F_Kafra",5,0,0,40,800;
- savepoint "prontera",281,203;
- callfunc "F_KafEnd",0,1,"in the city of Prontera";
-}
-
-prontera,146,89,6 script Kafra Employee::kaf_prontera5 4_F_KAFRA1,{
- cutin "kafra_01",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "The Kafra services";
- mes "are always on your side.";
- mes "How may I assist you?";
- callfunc "F_Kafra",5,0,0,40,800;
- savepoint "prontera",116,73;
- callfunc "F_KafEnd",0,1,"in the city of Prontera";
-}
-
-// Yuno
-//============================================================
-yuno,152,187,4 script Kafra Employee::kaf_yuno 4_F_KAFRA8,{
- cutin "kafra_08",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "The Kafra Corporation";
- mes "is always working to provide";
- mes "you with convenient services.";
- mes "How may I be of assistance?";
- callfunc "F_Kafra",5,0,0,40,800;
- savepoint "yuno",158,125;
- callfunc "F_KafEnd",0,1,"in the city of Juno";
-}
-
-yuno,327,108,4 script Kafra Employee::kaf_yuno2 4_F_KAFRA8,{
- cutin "kafra_08",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "The Kafra Corporation";
- mes "is always working to provide";
- mes "you with convenient services.";
- mes "How may I be of assistance?";
- callfunc "F_Kafra",5,0,0,40,800;
- savepoint "yuno",328,101;
- callfunc "F_KafEnd",0,1,"in the city of Juno";
-}
-
-yuno,277,221,4 script Kafra Employee::kaf_yuno3 4_F_KAFRA9,{
- cutin "kafra_09",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "The Kafra Corporation";
- mes "is always working to provide";
- mes "you with convenient services.";
- mes "How may I be of assistance?";
- callfunc "F_Kafra",5,0,0,40,800;
- savepoint "yuno",274,229;
- callfunc "F_KafEnd",0,1,"in the city of Juno";
-}
-
-// Alberta
-//============================================================
-alberta,28,229,0 script Kafra Employee::kaf_alberta 4_F_KAFRA2,{
- cutin "kafra_02",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "Kafra's Employees are";
- mes "always ready to serve you.";
- mes "How can I help you today?";
- callfunc "F_Kafra",5,0,0,50,850;
- savepoint "alberta",31,231;
- callfunc "F_KafEnd",0,1,"in the city of Alberta";
-}
-
-alberta,113,60,6 script Kafra Employee::kaf_alberta2 4_F_KAFRA6,{
- cutin "kafra_06",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation~";
- mes "The Kafra Services are";
- mes "always here to support";
- mes "you. So how can I be";
- mes "of service today?";
- callfunc "F_Kafra",5,0,0,50,850;
- savepoint "alberta",117,57;
- callfunc "F_KafEnd",0,1,"in the city of Alberta";
-}
-
-// Comodo
-//============================================================
-comodo,195,150,4 script Kafra Employee::kaf_comodo 4_F_KAFRA7,{
- cutin "kafra_07",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "You know that our";
- mes "service is always";
- mes "on your side~";
- callfunc "F_Kafra",5,0,1,80,1000;
- savepoint "comodo",204,143;
- callfunc "F_KafEnd",0,1,"in the town of Comodo";
-}
-
-cmd_fild07,136,134,4 script Kafra Employee::kaf_cmd_fild07 4_F_KAFRA7,{
- cutin "kafra_07",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "You know that our";
- mes "service is always";
- mes "on your side~";
- callfunc "F_Kafra",5,0,1,80,1000;
- savepoint "cmd_fild07",127,134;
- callfunc "F_KafEnd",0,1,"in Pyros Lighthouse";
-}
-
-// Izlude
-//============================================================
-- script ::kaf_izlude -1,{
- cutin "kafra_01",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "The Kafra services";
- mes "are always on your side.";
- mes "How may I assist you?";
- callfunc "F_Kafra",5,0,1,40,820;
- if (RENEWAL)
- savepoint strnpcinfo(4),129,97;
- else
- savepoint "izlude",94,103;
- callfunc "F_KafEnd",0,1,"in the city of Izlude";
-}
-
-// Moscovia
-//============================================================
-moscovia,223,191,3 script Kafra Employee::kaf_mosk 4_F_KAFRA4,{
- cutin "kafra_04",2;
- callfunc "F_Kafra",0,3,0,80,700;
- savepoint "moscovia",221,194;;
- callfunc "F_KafEnd",0,3,"in the city of Moscovia";
-}
-
-// Amatsu
-//============================================================
-amatsu,102,149,4 script Kafra Employee::kaf_amatsu 4_F_KAFRA2,{
- cutin "kafra_02",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "Kafra's Employees are";
- mes "always ready to serve you.";
- mes "How can I help you today?";
- callfunc "F_Kafra",5,3,1,50,700;
- savepoint "amatsu",116,94;
- callfunc "F_KafEnd",0,1,"in the city of Amatsu";
-}
-
-// Ayothaya
-//============================================================
-ayothaya,212,169,5 script Kafra Employee::kaf_ayothaya 4_F_KAFRA2,{
- cutin "kafra_02",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "Kafra's Employees are";
- mes "always ready to serve you.";
- mes "How can I help you today?";
- callfunc "F_Kafra",5,3,1,50,700;
- savepoint "ayothaya",149,69;
- callfunc "F_KafEnd",0,1,"in the city of Ayotaya";
-}
-
-// Einbech
-//============================================================
-einbech,181,132,5 script Kafra Employee#ein3::kaf_einbech 4_F_KAFRA8,{
- cutin "kafra_08",2;
- mes "[Kafra Employee]";
- mes "Welcome~!";
- mes "The Kafra Services";
- mes "are always on your side.";
- mes "So how can I help you?";
- callfunc "F_Kafra",5,4,1,40,850;
- savepoint "einbech",182,124;
- callfunc "F_KafEnd",0,1,"in the town of Einbech";
-}
-
-// Einbroch
-//============================================================
-einbroch,242,205,5 script Kafra Employee#ein2::kaf_einbroch 4_F_KAFRA8,{
- cutin "kafra_08",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "Kafra's Employees are";
- mes "always ready to serve you.";
- mes "How can I help you today?";
- callfunc "F_Kafra",5,4,1,50,800;
- savepoint "einbroch",238,198;
- callfunc "F_KafEnd",0,1,"in the city of Einbroch";
-}
-
-einbroch,59,203,6 script Kafra Employee#ein1::kaf_einbroch2 4_F_KAFRA9,{
- cutin "kafra_09",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "The Kafra services";
- mes "are always on your side.";
- mes "How may I assist you?";
- callfunc "F_Kafra",5,4,1,50,800;
- savepoint "einbroch",240,197;
- callfunc "F_KafEnd",0,1,"in the city of Einbroch";
-}
-
-// Gonryun
-//============================================================
-gonryun,159,122,4 script Kafra Employee::kaf_gonryun 4_F_KAFRA2,{
- cutin "kafra_02",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "Kafra's Employees are";
- mes "always ready to serve you.";
- mes "How can I help you today?";
- callfunc "F_Kafra",5,3,1,50,700;
- savepoint "gonryun",160,62;
- callfunc "F_KafEnd",0,1,"in the city of Kunlun";
-}
-
-// Lighthalzen
-//============================================================
-lighthalzen,164,100,4 script Kafra Employee::kaf_lighthalzen 4_F_KAFRA8,{
- cutin "kafra_08",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "The Kafra services";
- mes "are always on your side.";
- mes "How may I assist you?";
- callfunc "F_Kafra",5,4,1,40,800;
- savepoint "lighthalzen",158,94;
- callfunc "F_KafEnd",0,1,"in the city of Lighthalzen";
-}
-
-lighthalzen,191,320,4 script Kafra Employee::kaf_lighthalzen2 4_F_KAFRA9,{
- cutin "kafra_09",2;
- mes "[Kafra Employee]";
- mes "Welcome~!";
- mes "The Kafra Services";
- mes "are always on your side.";
- mes "So how can I help you?";
- callfunc "F_Kafra",5,4,1,40,800;
- savepoint "lighthalzen",194,313;
- callfunc "F_KafEnd",0,1,"in the city of Lighthalzen";
-}
-
-lhz_in02,237,284,4 script Kafra Employee::kaf_lhz_in02 4_F_KAFRA9,{
- cutin "kafra_09",2;
- mes "[Kafra Employee]";
- mes "Welcome~!";
- mes "The Kafra Services";
- mes "are always on your side.";
- mes "So how can I help you?";
- callfunc "F_Kafra",5,4,1,40,800;
- savepoint "lhz_in02",278,215;
- callfunc "F_KafEnd",0,1,"in the city of Lighthalzen";
-}
-
-// Louyang
-//============================================================
-louyang,210,104,5 script Kafra Employee::kaf_louyang 4_F_KAFRA1,{
- cutin "kafra_01",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "Kafra's Employees are";
- mes "always ready to serve you.";
- mes "How can I help you today?";
- callfunc "F_Kafra",5,3,1,50,700;
- savepoint "louyang",217,92;
- callfunc "F_KafEnd",0,1,"in the city of Louyang";
-}
-
-// Umbala
-//============================================================
-umbala,87,160,4 script Kafra Employee::kaf_umbala 4_F_KAFRA7,{
- cutin "kafra_07",2;
- callfunc "F_KafSet";
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "You know that our";
- mes "service is always";
- mes "on your side~";
- callfunc "F_Kafra",5,0,1,80,0;
- savepoint "umbala",126,131;
- callfunc "F_KafEnd",0,1,"in the city of Umbala";
-}
-
-// Niflheim
-//============================================================
-niflheim,202,180,3 script Kafra Employee::kaf_niflheim 4_F_NFDEADKAFRA,{
- callfunc "F_Kafra",1,2,1,150,0;
- savepoint "niflheim",192,182;
- callfunc "F_KafEnd",1,1,"in the city of Niflheim";
-}
-
-// Dungeons and Fields
-//============================================================
-// - Byalan Island
-izlu2dun,106,58,0 script Kafra Employee::kaf_izlu2dun 4_F_KAFRA3,{
- cutin "kafra_03",2;
- if (!RENEWAL && BaseJob == Job_Novice && job_merchant_q2 > 0) {
- // Merchant Job Change Quest
- // function F_MercKafra is found in /pre-re/jobs/1-1/merchant.txt
- callfunc "F_MercKafra";
- }
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "Kafra's Employees are";
- mes "always ready to serve you.";
- mes "How can I help you today?";
- callfunc "F_Kafra",5,2,1,120,1200;
- savepoint "izlu2dun",87,170;
- callfunc "F_KafEnd",0,1,"at Byalan Island";
-}
-
-// - Culvert Sewers
-prt_fild05,290,224,3 script Kafra Employee::prt_fild05 4_F_KAFRA4,{
- cutin "kafra_04",2;
- mes "[Kafra Employee]";
- mes "Welcome!";
- mes "The Kafra Corporation";
- mes "will always support the";
- mes "adventurers of Rune-Midgard";
- mes "with its excellent service. So";
- mes "what can I do for you today?";
- callfunc "F_Kafra",5,1,1,40,0;
- savepoint "prt_fild05",274,243;
- callfunc "F_KafEnd",0,1, "at the Prontera Culverts";
-}
-
-// - Coal Mine (Dead Pitt)
-mjolnir_02,83,362,4 script Kafra Employee::kaf_mjolnir_02 4_F_KAFRA2,{
- cutin "kafra_02",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "Kafra's Employees are";
- mes "always ready to serve you.";
- mes "How can I help you today?";
- callfunc "F_Kafra",5,6,1,100,0;
- savepoint "mjolnir_02",98,352;
- callfunc "F_KafEnd",0,1,"at Mjolnir Dead Pit";
-}
-
-// - Morroc Ruins
-moc_ruins,59,157,5 script Kafra Employee::moc_ruins 4_F_KAFRA4,{
- cutin "kafra_04",2;
- mes "[Kafra Employee]";
- mes "Welcome!";
- mes "The Kafra Corporation";
- mes "will always support the";
- mes "adventurers of Rune-Midgard";
- mes "with its excellent service. So";
- mes "what can I do for you today?";
- callfunc "F_Kafra",5,2,1,90,1200;
- savepoint "moc_ruins",41,141;
- callfunc "F_KafEnd",0,1," at the Pyramids";
-}
-
-// - Orc Dungeon
-gef_fild10,73,340,5 script Kafra Employee::kaf_gef_fild10 4_F_KAFRA2,{
- cutin "kafra_02",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "Kafra's Employees are";
- mes "always ready to serve you.";
- mes "How can I help you today?";
- callfunc "F_Kafra",5,6,1,130,0;
- savepoint "gef_fild10",54,326;
- callfunc "F_KafEnd",0,1,"at the Orc Dungeon";
-}
-
-// - Treasure Island
-alb2trea,59,69,5 script Kafra Employee::kaf_alb2trea 4_F_KAFRA1,{
- cutin "kafra_01",2;
- mes "[Kafra Employee]";
- mes "Welcome to the";
- mes "Kafra Corporation.";
- mes "The Kafra services";
- mes "are always on your side.";
- mes "How may I assist you?";
- callfunc "F_Kafra",5,2,1,50,0;
- savepoint "alb2trea",92,64;
- callfunc "F_KafEnd",0,1,0,"at Sunken Ship";
-}