root/npc/custom/quests/bandit_beard.txt @ 6

Revision 1, 6.8 kB (checked in by jinshiro, 17 years ago)
Line 
1//===== eAthena Script =======================================
2//= Bandit Beard Quest
3//===== By: ==================================================
4//= Mega Man Expert & Lupus
5//===== Current Version: =====================================
6//= 1.3
7//===== Compatible With: =====================================
8//= eAthena 0.5.2 +
9//===== Description: =========================================
10//= A harmless quest for a simply item w/o any bonuses "Bandit Beard"
11//===== Additional Comments: =================================
12//= Fully working.
13//= 1.0 First release
14//= 1.1 Fixed some exploits, bugs and typos. Optimized 8) [Lupus]
15//= 1.1b fixed some typos
16//= 1.2 fixed donpcevent label [Lupus]
17//= 1.3 Removed duplicates [L0ne_W0lf]
18//============================================================
19
20umbala,126,129,4        script  Bearded Man#bandit      120,{
21        if(BEARD_QUEST == 4 ) goto L_MAKE;
22        if(BEARD_QUEST >= 5 ) goto L_DONE;
23        if(BEARD_QUEST >= 1 ) goto L_THREAD;
24
25        mes "[Bearded Man]";
26        mes "Beards! Get your wonderful beards!";
27        mes "Would you like a beard?";
28        next;
29        menu "Yes, I'd like some facial hair!",-,"No thanks, thats gross!",M_NO;
30
31        mes "[Bearded Man]";
32        mes "HoHo~ So you want some whiskers.";
33        emotion 18;
34        mes "Well I would give you my beards but there not cheap.";
35        mes "Matter of fact I have only one left...";
36        mes "but I'm not selling it.";
37        mes "But don't get mad! I can make you one.";
38        next;
39        set BEARD_QUEST,1;
40L_THREAD:
41        mes "[Bearded Man]";
42        mes "I would need some ^8080FFThread^000000 for the Beard.";
43        mes "Talk to my friend in Izlude for some ^8080FFThread^000000.";
44        next;
45
46        mes "[Bearded Man]";
47        mes "Also I would need you to get me some things for the beard.";
48        mes "They are:";
49L_LIST:
50        mes "^8080FFElastic Band^000000";
51        mes "^8080FF5 Animal Skins^000000";
52        mes "^8080FFBlack Dye Stuff^000000";
53        mes "^8080FFGranpa Beard^000000";
54        mes "^8080FF100 sticky Mucus^000000";
55        mes "^8080FFCounteragent^000000";
56        mes " and one ^8080FF2 Carat Diamond^000000";
57        close;
58
59M_NO:
60        mes "[Bearded Man]";
61        mes "Fine, be that way!";
62        emotion 7;
63        close;
64
65L_DONE:
66        mes "[Bearded Man]";
67        mes "Sorry, I can only make one per person.";
68        mes "We don't want too many beards now. Right?";
69        emotion 29;
70        close;
71
72L_MAKE:
73        mes "[Bearded Man]";
74        mes "Let's make you your beard!";
75        next;
76        if(countitem(7200) < 1 || countitem(919) < 1 || countitem(983) < 1 || countitem(2241) < 1 ||
77        countitem(938) < 100 || countitem(973) < 1 || countitem(731) < 1) goto L_NOITEMS;
78        delitem 7200, 1;
79        delitem 919, 1;
80        delitem 983, 1;
81        delitem 2241, 1;
82        delitem 938, 100;
83        delitem 973, 1;
84        delitem 731, 1;
85        mes "^8080FF~You see him cutting and sewing the beard together~^000000";
86        next;
87        mes "^8080FF~He hands you the finished beard~^000000";
88        next;
89        getitem 2237, 1;
90        set BEARD_QUEST, 5;
91        mes "[Bearded Man]";
92        mes "Have a nice day!";
93        emotion 29;
94        close;
95
96L_NOITEMS:
97        mes "[Bearded Man]";
98        mes "What the hell! I can't make a beard without the items!";
99        mes "Here is the list again:";
100        emotion 23;
101        goto L_LIST;
102} 
103
104//Master Tailor----------
105izlude_in,123,175,4     script  Master Tailor#bandit    50,{
106        mes "[Master Tailor]";
107        mes "Good evening! I am the Master Tailor!";
108        if(BEARD_QUEST != 1 ) close;
109
110        next;
111        mes "[Master Tailor]";
112        mes "What? A Bearded Man sent you...";
113        mes "Well I'm sorry to say that I am out of ^8080FFThread^000000.";
114        mes "But I have the address to where I get the shipments.";
115        mes "It is in Al de Baran Karfa Inc. warehouse area.";
116        mes "The address is: Al de Baran 59, 221";
117        mes "See you later.";
118        set BEARD_QUEST, 2;
119        close;
120}
121// Karfa Thread Clerk---
122aldeba_in,70,179,5      script  Karfa Clerk#bandit      113,{
123        mes "[Karfa Clerk]";
124        if(BEARD_QUEST == 3 ) goto L_REPEAT;
125        if(BEARD_QUEST > 3 ) goto L_DONE;
126
127        mes "What can I do for you?";
128        next;
129        if(BEARD_QUEST == 2 ) goto L_DELIVERY;
130
131        menu "What's in the boxes?",-,"Nothing.",M_NOPE;
132
133        mes "[Karfa Clerk]";
134        mes "They're empty.";
135M_NOPE:
136        close;
137
138L_DELIVERY:
139
140        mes "[Karfa Clerk]";
141        mes "Sorry but we have not received any ^8080FFThread^000000.";
142        mes "Our shipments have been put off until its safe.";
143        mes "You see we get our ^8080FFThread^000000 from Alberta and a monsters keeps attacking our merchants.";
144        next;
145        mes "[Karfa Clerk]";
146        mes "Now this monsters has not been doing this before.";
147        mes "It may have to do with the warmer months.";
148        mes "Please help us out!";
149        set BEARD_QUEST,3;
150        next;
151        mes "[Karfa Clerk]";
152L_REPEAT:
153        mes "Oh by the way, that Thread Merchant is somewhere around Alberta 60 and 100...";
154L_DONE:
155        mes "Thank You!";
156        close;
157}
158
159//Thread Merchant ------
160alberta,65,123,6        script  Man#bandit      85,{
161        if(BEARD_QUEST == 3 && $@beardMobD) goto L_KILLED;
162        if(BEARD_QUEST > 3) goto L_DONE;
163
164        mes "[Thread Merchant]";
165        mes "ARGGG!! I can never get my stuff to Al de Baran!";
166        mes "I keep getting mobbed by some bugs.";
167        mes "They steal all my supplies and ^8080FFThread^000000.";
168        next;
169        mes "[Thread Merchant]";
170
171        if(BEARD_QUEST != 3) mes "What am I to do?";
172        if(BEARD_QUEST != 3) close;
173
174        if($@beardmob > 0) mes "Kill! Kill them already!!!";
175        if($@beardmob > 0) close;
176        mes "Are you here to help me?";
177        emotion 1;
178        next;
179        menu "Yes",-,"No",M_NO;
180
181        mes "[Thread Merchant]";
182        mes "Oh thank the Gods!";
183        mes "If you can only just kill the bugs I would be able to make my delivery.";
184        next;
185        mes "[Thread Merchant]";
186        mes "Oh NO! Here they come!!";
187        emotion 19;
188        donpcevent "BRDQ_MOBS::OnStart";
189        close;
190
191L_KILLED:
192        set $@beardMobD,0;
193        mes "[Thread Merchant]";
194        mes "Thank you for killing the Thief Bugs.";
195        mes "As a token of my gratitude here is a box full of ^8080FFThread^000000.";
196        set BEARD_QUEST,4;
197        close;
198
199L_DONE:
200        mes "[Thread Merchant]";
201        mes "Thank you again!";
202        emotion 15;
203        close;
204
205M_NO:
206        mes "[Thread Merchant]";
207        mes "What to do...";
208        close;
209}
210
211//mobsummons -------
212alberta,1,1,1   script  BRDQ_MOBS       -1,{
213OnStart:
214        set $@beardMob,10;
215        set $@beardMobD,0;
216        monster "alberta",65,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
217        monster "alberta",66,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
218        monster "alberta",67,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
219        monster "alberta",68,120,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
220        monster "alberta",66,121,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
221        monster "alberta",67,121,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
222        monster "alberta",68,121,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
223        monster "alberta",66,122,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
224        monster "alberta",67,122,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
225        monster "alberta",68,122,"Thef Bug Male",1054,1,"BRDQ_MOBS::OnDie";
226        end;
227OnDie:
228        set $@beardmob, $@beardmob - 1;
229        if($@beardmob > 0) end;
230        set $@beardMobD,1;
231        end;
232On1201:
233On0001:
234        set $@beardMob,0;
235        set $@beardMobD,0;
236        end;
237}
Note: See TracBrowser for help on using the browser.