2 files changed, 116 insertions, 0 deletions
diff --git a/npc/custom/events/p_track/p_track_core.txt b/npc/custom/events/p_track/p_track_core.txt
new file mode 100644
index 000000000..77b679b26
--- /dev/null
+++ b/npc/custom/events/p_track/p_track_core.txt
@@ -0,0 +1,43 @@
+//===== eAthena Script =======================================
+//= Poring Track Main NPCs
+//===== By: ==================================================
+//= erKURITA
+//===== Current Version: =====================================
+//= 0.0000000000000002
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= NPCs that has nothing to do with the race itself, but
+//= has important functions on the race itself.
+//===== Additional Comments: =================================
+//= 0.0000000000000002 Removed Duplicates [Silent]
+//============================================================
+p_track01,41,57,5	script	Lady#track1::P_track	845,{
+end;
+}
+
+p_track01,67,34,6	script	Erudite::P_Spectator1		107,{
+end;
+}
+
+p_track01,44,49,3	script	Edward	881,{
+end;
+}
+
+p_track01,27,47,3	script	Yuri#P_track	853,{
+end;
+}
+
+p_track02,30,45,3	script	Nagya	755,{
+end;
+}
+
+p_track02,42,49,3	script	Asgahrd	733,{
+end;
+}
+
+p_track02,67,33,1	script	Blacksmith#track1	726,{
+end;
+}
+
+p_track02,41,57,5	duplicate(P_track)	Lady#track2	845
diff --git a/npc/custom/events/p_track/p_track_warpers.txt b/npc/custom/events/p_track/p_track_warpers.txt
new file mode 100644
index 000000000..730dd2b0f
--- /dev/null
+++ b/npc/custom/events/p_track/p_track_warpers.txt
@@ -0,0 +1,73 @@
+//===== eAthena Script =======================================
+//= Poring Track Warpers
+//===== By: ==================================================
+//= erKURITA
+//===== Current Version: =====================================
+//= 0.0000000000000002
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= NPC's for the City of Hugel.
+//===== Additional Comments: =================================
+//= 0.0000000000000002 Removed Duplicates [Silent]
+//============================================================
+//| Warp-in npcs
+hugel,58,72,5	script	Yan#track1	86,{
+//callfunc "P_TrackEnt",npcname,map name;
+callfunc "P_TrackEnt","[Yan]","p_track01";
+end;
+}
+hugel,62,68,1	script	Yalmire#track1	86,{
+//callfunc "P_TrackEnt",npcname,map name;
+callfunc "P_TrackEnt","[Yalmire]","p_track02";
+end;
+}
+
+//| Warp-out npcs
+
+p_track01,76,36,2	script	Yan#track2	86,{
+end;
+}
+
+p_track02,76,36,2	script	Yalmire#track2	86,{
+end;
+}
+
+function	script	P_TrackEnt	{
+
+mes getarg(0);
+mes "Hi "+strcharinfo(0)+", Welcome to the Poring Track!";
+menu "Information",-,"I want to try it",L_Try,"Not today thanks",L_End;
+		next;
+		mes getarg(0);
+		mes "Bla blah, so fun";
+		close;
+	L_Try:
+		next;
+		mes getarg(0);
+		mes "Ok, the entrance fee is 500z, would you like to go in?";
+		menu "Yes Please",-,"No Thanks",L_End2;
+				if (Zeny < 500) {
+					next;
+					mes getarg(0);
+					mes "Sorry but you ain't got 500z, you can't enter";
+					close;
+				} else
+				next;
+				mes getarg(0);
+				mes "Here we go!";
+				close2;
+				set Zeny,Zeny-500;
+				warp getarg(1),75,41;
+				end;
+			L_End2:
+				next;
+				mes getarg(0);
+				mes "Oh well, you miss it";
+				close;
+	L_End:
+		next;
+		mes getarg(0);
+		mes "Ok, see you later!";
+		close;
+}