summaryrefslogtreecommitdiff
path: root/world/map/npc/functions/travelers.txt
diff options
context:
space:
mode:
Diffstat (limited to 'world/map/npc/functions/travelers.txt')
-rw-r--r--world/map/npc/functions/travelers.txt243
1 files changed, 0 insertions, 243 deletions
diff --git a/world/map/npc/functions/travelers.txt b/world/map/npc/functions/travelers.txt
deleted file mode 100644
index 30116ecb..00000000
--- a/world/map/npc/functions/travelers.txt
+++ /dev/null
@@ -1,243 +0,0 @@
-// Travelers
-// Authors: Wombat, Wushin
-
-// Multiple Travelers
-// Cannot access until found (Player Bitmask)
-// Costs Zeny
-
-// Contains all warp points to find
-017-9,27,28,0|script|#TravelConfig|32767
-{
- end;
-
-OnInit:
- // TravelFound
- set $@tut_bit, (1 << 2);
- //set $@druid_tree_bit, (1 << 3);
- set $@graveyard_bit, (1 << 4);
- set $@magic_house_bit, (1 << 5);
- set $@terranite_cave_bit, (1 << 6);
- set $@tulimshar_bit, (1 << 7);
- set $@blue_sage_bit, (1 << 8);
- set $@hurnscald_bit, (1 << 9);
- set $@nivalis_bit, (1 << 10);
- //set $@tul_mine_bit, (1 << 11);
- set $@pachua_bit, (1 << 12);
- set $@barbarians_bit, (1 << 14);
- set $@hurns_farms_bit, (1 << 15);
- set $@candor_bit, (1 << 16);
- // Travel Base Cost
- set $@tulimshar_cost, 100;
- set $@hurnscald_cost, 100;
- set $@nivalis_cost, 100;
- //set $@druid_tree_cost, 150;
- //set $@tul_mine_cost, 150;
- set $@pachua_cost, 200;
- set $@graveyard_cost, 200;
- set $@magic_house_cost, 150;
- set $@terranite_cave_cost, 200;
- set $@blue_sage_cost, 200;
- set $@barbarians_cost, 150;
- set $@hurns_farms_cost, 150;
- set $@candor_cost, 200;
- end;
-}
-
-function|script|Traveler
-{
- if(@npcname$ == "") set @npcname$, strnpcinfo(1);
- mes "["+@npcname$+"]";
- mes "\"Greetings. I am "+@npcname$+" the Traveler.\"";
- next;
-
- if (TravelFound & $@tut_bit)
- goto L_Main;
- goto L_TravelTut;
-
-L_Main:
- if (TravelFound & @NpcTravelBit)
- goto L_BitTravelSet;
- goto L_SetTravelBit;
-
-L_BitTravelSet:
- set @Cost, 10;
- if (BaseLevel < 45)
- set @Cost, 5;
- goto L_Start;
-
-L_TravelTut:
- mes "["+@npcname$+"]";
- mes "\"We travelers are found all over the world. Once you have found a traveler at a certain location, you can be sent back there instantly by another traveler.\"";
- next;
- if (TravelFound & $@tut_bit)
- goto L_Main;
- goto L_SetBit;
-
-L_SetBit:
- set TravelFound, TravelFound | $@tut_bit;
- goto L_Main;
-
-L_SetTravelBit:
- mes "["+@npcname$+"]";
- mes "\"Uplink set. You can now return to this spot for a fee.\"";
- next;
- set TravelFound, TravelFound | @NpcTravelBit;
- goto L_BitTravelSet;
-
-L_Start:
- mes "\"Where would you like to go?\"";
- menu
- "Tonori - Tulimshar (" + (@Cost * $@tulimshar_cost) + " GP)", L_TravelTulimshar,
- "Argeas - Hurnscald (" + (@Cost * $@hurnscald_cost) + " GP)", L_TravelHurnscald,
- "Kaizei - Nivalis (" + (@Cost * $@nivalis_cost) + " GP)", L_TravelNivalis,
- "Tonori - Pachua's Village (" + (@Cost * $@pachua_cost) + " GP)", L_TravelPachua,
- "Argeas - Candor (" + (@Cost * $@candor_cost) + " GP)", L_TravelCandor,
- "Argeas - Magic House (" + (@Cost * $@magic_house_cost) + " GP)", L_TravelMagicHouse,
- "Argeas - Farmsteads (" + (@Cost * $@hurns_farms_cost) + " GP)", L_TravelHurnsFarms,
- "Argeas - Graveyard (" + (@Cost * $@graveyard_cost) + " GP)", L_TravelGraveyard,
- "Argeas - Terranite Cave (" + (@Cost * $@terranite_cave_cost) + " GP)", L_TravelTerranite,
- "Kaizei - Barbarian Village (" + (@Cost * $@barbarians_cost) + " GP)", L_TravelBarbarians,
- "Kaizei - Sage Nikolai's Mansion (" + (@Cost * $@blue_sage_cost) + " GP)", L_TravelBlueSage,
- "Who are the Travelers?", L_TravelTut,
- "I'm not interested.", L_TravelNo;
-
-L_TravelChecks:
- if (@NpcTravelBit == @NextLocationBit)
- goto L_AlreadyThere;
- if (!(TravelFound & @NextLocationBit))
- goto L_NoFound;
- if (Zeny < @NextLocationCost)
- goto L_NoMoney;
- goto L_TravelPlayer;
-
-L_TravelPlayer:
- mes "["+@npcname$+"]";
- mes "\"Be fearless!\"";
- close2;
- set Zeny, Zeny - @NextLocationCost;
- warp @NextLocationMap$,@NextLocationX,@NextLocationY;
- goto L_Clearvars;
-
-L_TravelGraveyard:
- set @NextLocationBit, $@graveyard_bit;
- set @NextLocationCost, (@Cost * $@graveyard_cost);
- set @NextLocationMap$, "026-1";
- set @NextLocationX, 49;
- set @NextLocationY, 45;
- goto L_TravelChecks;
-
-L_TravelMagicHouse:
- set @NextLocationBit, $@magic_house_bit;
- set @NextLocationCost, (@Cost * $@magic_house_cost);
- set @NextLocationMap$, "013-1";
- set @NextLocationX, 120;
- set @NextLocationY, 93;
- goto L_TravelChecks;
-
-L_TravelTerranite:
- set @NextLocationBit, $@terranite_cave_bit;
- set @NextLocationCost, (@Cost * $@terranite_cave_cost);
- set @NextLocationMap$, "012-3";
- set @NextLocationX, 445;
- set @NextLocationY, 65;
- goto L_TravelChecks;
-
-L_TravelTulimshar:
- set @NextLocationBit, $@tulimshar_bit;
- set @NextLocationCost, (@Cost * $@tulimshar_cost);
- set @NextLocationMap$, "002-1";
- set @NextLocationX, 60;
- set @NextLocationY, 42;
- goto L_TravelChecks;
-
-L_TravelBlueSage:
- set @NextLocationBit, $@blue_sage_bit;
- set @NextLocationCost, (@Cost * $@blue_sage_cost);
- set @NextLocationMap$, "048-2";
- set @NextLocationX, 26;
- set @NextLocationY, 47;
- goto L_TravelChecks;
-
-L_TravelHurnscald:
- set @NextLocationBit, $@hurnscald_bit;
- set @NextLocationCost, (@Cost * $@hurnscald_cost);
- set @NextLocationMap$, "008-1";
- set @NextLocationX, 79;
- set @NextLocationY, 84;
- goto L_TravelChecks;
-
-L_TravelNivalis:
- set @NextLocationBit, $@nivalis_bit;
- set @NextLocationCost, (@Cost * $@nivalis_cost);
- set @NextLocationMap$, "020-1";
- set @NextLocationX, 53;
- set @NextLocationY, 122;
- goto L_TravelChecks;
-
-L_TravelPachua:
- set @NextLocationBit, $@pachua_bit;
- set @NextLocationCost, (@Cost * $@pachua_cost);
- set @NextLocationMap$, "006-1";
- set @NextLocationX, 28;
- set @NextLocationY, 97;
- callfunc "MiriamCheat";
- goto L_TravelChecks;
-
-L_TravelBarbarians:
- set @NextLocationBit, $@barbarians_bit;
- set @NextLocationCost, (@Cost * $@barbarians_cost);
- set @NextLocationMap$, "033-1";
- set @NextLocationX, 66;
- set @NextLocationY, 33;
- goto L_TravelChecks;
-
-L_TravelHurnsFarms:
- set @NextLocationBit, $@hurns_farms_bit;
- set @NextLocationCost, (@Cost * $@hurns_farms_cost);
- set @NextLocationMap$, "055-1";
- set @NextLocationX, 135;
- set @NextLocationY, 60;
- goto L_TravelChecks;
-
-L_TravelCandor:
- set @NextLocationBit, $@candor_bit;
- set @NextLocationCost, (@Cost * $@candor_cost);
- set @NextLocationMap$, "029-1";
- set @NextLocationX, 69;
- set @NextLocationY, 69;
- goto L_TravelChecks;
-
-L_TravelNo:
- mes "["+@npcname$+"]";
- mes "\"Perhaps you will have the courage to help us some day.\"";
- close2;
- goto L_Clearvars;
-
-L_NoMoney:
- mes "["+@npcname$+"]";
- mes "\"I'm sorry, but you don't have enough money. Maybe next time.\"";
- close2;
- goto L_Clearvars;
-
-L_NoFound:
- mes "["+@npcname$+"]";
- mes "\"Sorry, but you haven't visited a traveler yet at that location. You should find and talk to a traveler there so you can quickly return to that location in the future.\"";
- close2;
- goto L_Clearvars;
-
-L_AlreadyThere:
- mes "["+@npcname$+"]";
- mes "\"Uh... You're already here. Are you sure you know where you are going?\"";
- close2;
- goto L_Clearvars;
-
-L_Clearvars:
- set @npcname$, "";
- set @Cost, 0;
- set @NextLocationBit, 0;
- set @NextLocationCost, 0;
- set @NextLocationMap$, "";
- set @NextLocationX, 0;
- set @NextLocationY, 0;
- return;
-}