summaryrefslogtreecommitdiff
path: root/npc/events/custom/p_track/p_track_warpers.txt
blob: 4209f2caced26236c79a925ae96b94789224fa43 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
//===== eAthena Script =======================================
//= Poring Track Warpers
//===== By: ==================================================
//= erKURITA
//===== Current Version: =====================================
//= 0.0000000000000001
//===== Compatible With: =====================================
//= eAthena 1.0
//===== Description: =========================================
//= NPC's for the City of Hugel.
//===== Additional Comments: =================================
//=
//============================================================
//| Warp-in npcs
hugel.gat,58,72,5	script	Yan	86,{
//callfunc "P_TrackEnt",npcname,map name;
callfunc "P_TrackEnt","[Yan]","p_track01.gat";
end;
}
hugel.gat,62,68,1	script	Yalmire	86,{
//callfunc "P_TrackEnt",npcname,map name;
callfunc "P_TrackEnt","[Yalmire]","p_track02.gat";
end;
}

//| Warp-out npcs

p_track01.gat,76,36,2	script	Yan	86,{
end;
}

p_track02.gat,76,36,2	script	Yalmire	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;
}