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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
|
//===== eAthena Script =======================================
//= Quests NPCs located in Yuno City
//===== By: ==================================================
//= DiaDz (v1.0)
//===== Current Version: =====================================
//= 1.3
//===== Compatible With: =====================================
//= eAthena 7.15 +
//===== Description: =========================================
//=
//===== Additional Comments: =================================
//= v1.1 Re-did the text and re-organized the script. Corrected some items. [kobra_k88]
//= v1.2 Added part to Bro's for alchemist quest [Darkchild]
//= 1.3 fixed that part of Alch Job Quest. [Lupus]
//============================================================
//===========================================================================
yuno_in01.gat,103,158,4 script Bain 98,
{
set @name$, "[Bain]";
OnStart:
mes @name$;
if (sleiphnir_q == 1) goto L_Check;
mes "We are going to invent a doll that can talk and communicate! Well, at least that's what I'm trying to do....";
mes "The idea came from an old tale about a doll that acted like a real person.";
next;
mes @name$;
mes "I figure if someone had the ability to make such a doll back then, then it should definitely be possible today.";
next;
mes @name$;
mes "Unfortunately I lack the proper supplies and parts to actually try and build the doll.";
mes "Although I can buy some of the things I need, many of these items can only be taken from monsters......";
next;
mes @name$;
mes "I am much to weak to defeat these monsters....... How will I be able to continue this project??.....";
next;
menu "I'll get the items for you.",-, "Good luck.",M_End;
mes @name$;
mes "Really? Such benevolence is rare in this day and age. We would be grateful for you assisstance.";
mes "Here are the items that we will be needing.......";
callsub sF_List;
set sleiphnir_q, 1;
close;
M_End:
mes @name$;
mes "We'll need a lot of luck if this is going to happen. If you know of anyone who can help us, please let us know.";
close;
L_Check:
if((countitem(974) < 1) || (countitem(612) < 5) || (countitem(7068) < 5) || (countitem(1003) < 5) || (countitem(7043) < 5) ||
(countitem(757) < 3) || (countitem(756) < 3) || (Zeny < 2000)) goto L_NotEnuf;
mes "Thank you very much! You found all of the items I needed. We could not have completed this project without your help";
next;
delitem 974,1;
delitem 612,5;
delitem 7068,5;
delitem 1003,5;
delitem 7043,5;
delitem 757,3;
delitem 756,3;
set Zeny, Zeny-2000;
mes @name$;
L_Alchemist:
mes "Okay, let's try this out!";
mes "Hold on for just a second!";
next;
mes "-Vrrrmrmrmrmrmrmrrmrmrmmrmrmrmrmmm";
next;
mes "-Pakakakakakakakakakakakakakak";
next;
mes "-Shakakakakakakakakakakaakakak";
next;
mes @name$;
mes "AHHH it is a success!";
mes "I don't know if we can do anything else, but this time we have created";
set @wowitem,rand(2);
if(@wowitem == 0) mes "5 Ruby!";
if(@wowitem == 0) getitem 723,5;
if(@wowitem == 1) mes "3 Gold!";
if(@wowitem == 1) getitem 969,3;
next;
//if u take Alchemist Job Quest then
if(ALCH_Q == 6) set ALCH_Q2, 2;
mes @name$;
mes "Now that we know that it works,";
mes "I don't have any need for this.";
mes "Why don't you take it? Oh,";
mes "and if you find anymore parts,";
mes "bring them to me again. Heheheheh.";
next;
mes @name$;
mes "Thank for helping me out.";
mes "You have my eternal gratitude.";
mes "I wish you luck in your journeys!";
next;
mes "And here is something for you, to show you how much we appreciate your help.";
getitem 2410, 1;
set sleiphnir_q, 0;
close;
L_NotEnuf:
mes "In case you forgot, these are the items that we will need. I suggest you write them down......";
callsub sF_List;
close;
sF_List:
next;
mes @name$;
mes "^5533FF1 Mixture";
mes "5 Mini-Furnaces";
mes "5 Burnt Trees";
mes "5 Coal";
mes "5 Fine Sand";
mes "3 Rough Elunium";
mes "3 Rough Oridecon^000000";
next;
mes @name$;
mes "We will also need ^5533FF2,000 zeny^000000.";
mes "The money will help pay for the minor expenses invovled in the undertaking of this project. Good luck and please be safe.";
return;
}
//=====================================================================
yuno_in01.gat,99,153,4 script Bajin 47,{
set @name$, "[Bajin]";
doevent "Bain::OnStart";
close;
}
|
