root/npc/merchants/hair_style.txt @ 23

Revision 1, 17.2 kB (checked in by jinshiro, 17 years ago)
Line 
1//===== eAthena Script =======================================
2//= Hair Dresser
3//===== By: ==================================================
4//= [Muad_Dib] 1.0 (The Prometheus Project) & Samuray22
5//===== Current Version: =====================================
6//= 1.2
7//===== Compatible With: =====================================
8//= eAthena SVN
9//===== Description: =========================================
10//= [Aegis Conversion]
11//= Allows you to change your hairstyle.
12//===== Additional Comments: =================================
13//= 1.2 Rescripted to the Aegis 10.3 Standards. [Samuray22]
14//============================================================
15
16// Stylist - alberta_in 55 142
17alberta_in,55,142,1     script  Stylist 91,{
18        mes "[Veronica]";
19        mes "Welcome~~ Welcome~~";
20        mes "Welcome to the one of the best Hair shop, Veronika Beauty Saloon!! HoHoHo";
21        mes "Come here for new hair, right? ^^ How may I help you?";
22        next;
23        switch(select("Look through Hair Styles.","Change Hair Styles.","Stop talking.")) {
24                case 1:
25                        mes "[Veronica]";
26                        mes "There are 19 Hair Styles, 1 ~ 19!!!";
27                        mes "Which number do you want to look at first?";
28                        mes "If you want to stop looking, please choose 0.";
29                        next;
30                        input .@style;
31                        if(.@style > 19) {
32                                mes "[Veronica]";
33                                mes "Sorry, there aren't any hair styles with that number.";
34                                mes "Please choose number from 1 to 19.";
35                                next;
36                        } else if(.@style == 0) {
37                                mes "[Veronica]";
38                                mes "How was it?";
39                                mes "Did you find any styles you like?";
40                                mes "If you want to chage your hair style at anytime, I will do my best!!";
41                                close;
42                        }
43                                callsub L_cutin,.@style;
44                                mes "[Veronica]";
45                                switch(.@style) {
46                                        case 1:
47                                                if(Sex == 1) {
48                                                        mes "Oh~ 'Trickdead' style'!";
49                                                        mes "It is very neat feature and comfortable.";
50                                                        mes "How do you think? Do you like it?";
51                                                        close2;
52                                                        cutin "",255;
53                                                        end;
54                                                }
55                                                        mes "Oh~ 'First Aid' style'!";
56                                                        mes "It is the style people wants to stroke your hair^^.";
57                                                        mes "How do you think? Do you like it?";
58                                                        close2;
59                                                        cutin "",255;
60                                                        end;
61                                        case 2:
62                                                if(Sex == 1) {
63                                                        mes "Oh~ 'Two-Handed Sword Mastery' style!";
64                                                        mes "Its style is very similar to one of the famous Swordman.";
65                                                        mes "How do you think? Do you like it?";
66                                                        close2;
67                                                        cutin "",255;
68                                                        end;
69                                                }
70                                                        mes "Oh~ 'Bash' style!";
71                                                        mes "It feels unrevealed strong power is hidden inside of....";
72                                                        mes "How do you think? Do you like it?";
73                                                        close2; cutin "",255; end;
74                                        case 3:
75                                                if(Sex == 1) {
76                                                        mes "Oh~ 'Napalm Beat' style!";
77                                                        mes "It makes feeling there is unknown power...";
78                                                        mes "How do you think? Do you like it?";
79                                                        close2; cutin "",255; end;
80                                                }
81                                                        mes "Oh~ 'Frost Diver' style!";
82                                                        mes "It feels cold but also warm...";
83                                                        mes "How do you think? Do you like it?";
84                                                        close2; cutin "",255; end;
85                                        case 4:
86                                                if(Sex == 1) {
87                                                        mes "Oh~ 'Double Strafe' style!";
88                                                        mes "It will make you feel your mind is very clear.";
89                                                        mes "How do you think? Do you like it?";
90                                                        close2; cutin "",255; end;
91                                                }
92                                                        mes "Oh~ 'Arrow Shower' style!";
93                                                        mes "It feels very refreshed~";
94                                                        mes "How do you think? Do you like it?";
95                                                        close2; cutin "",255; end;
96                                        case 5:
97                                                if(Sex == 1) {
98                                                        mes "Oh~ 'Angelus' style!";
99                                                        mes "It feels calm and reverence.";
100                                                        mes "How do you think? Do you like it?";
101                                                        close2; cutin "",255; end;
102                                                }
103                                                        mes "Oh~ 'Heal' style!";
104                                                        mes "It feels mind is cured.";
105                                                        mes "How do you think? Do you like it?";
106                                                        close2; cutin "",255; end;
107                                        case 6:
108                                                if(Sex == 1) {
109                                                        mes "Oh~ 'Pushcart' style!";
110                                                        mes "This is the style based on motive of string cart..";
111                                                        mes "How do you think? Do you like it?";
112                                                        close2; cutin "",255; end;
113                                                }
114                                                        mes "Oh~ 'Vending' style!";
115                                                        mes "It seems like making lots of money.";
116                                                        mes "How do you think? Do you like it?";
117                                                        close2; cutin "",255; end;
118                                        case 7:
119                                                if(Sex == 1) {
120                                                        mes "Oh~ 'Envenom' style!";
121                                                        mes "It makes feel addicting into something..";
122                                                        mes "How do you think? Do you like it?";
123                                                        close2; cutin "",255; end;
124                                                }
125                                                        mes "Oh~ 'Double Strafe' style!";
126                                                        mes "It makes whomever dash twice.";
127                                                        mes "How do you think? Do you like it?";
128                                                        close2; cutin "",255; end;
129                                        case 8:
130                                                if(Sex == 1) {
131                                                        mes "Oh~ 'Bowling Bash' style!";
132                                                        mes "Once people sees it, they will fall for it!";
133                                                        mes "How do you think? Do you like it?";
134                                                        close2; cutin "",255; end;
135                                                }
136                                                        mes "Oh~ 'Gloria' style!";
137                                                        mes "Its nobleness and holiness moods are great.";
138                                                        mes "How do you think? Do you like it?";
139                                                        close2; cutin "",255; end;
140                                        case 9:
141                                                if(Sex == 1) {
142                                                        mes "Oh~ 'Venom Dust' style!";
143                                                        mes "It is the style gives feeling deadly charm.";
144                                                        mes "How do you think? Do you like it?";
145                                                        close2; cutin "",255; end;
146                                                }
147                                                        mes "Oh~ 'Increase SP Recovery' style!";
148                                                        mes "It makes feel like recovering spirit fully.";
149                                                        mes "How do you think? Do you like it?";
150                                                        close2; cutin "",255; end;
151                                        case 10:
152                                                if(Sex == 1) {
153                                                        mes "Oh~ 'Turn Undead' style!";
154                                                        mes "It gives feeling one attack can make Devils disappear!";
155                                                        mes "How do you think? Do you like it?";
156                                                        close2; cutin "",255; end;
157                                                }
158                                                        mes "Oh~ 'Prepare Potion' style!";
159                                                        mes "It feels a wound is healed already!";
160                                                        mes "How do you think? Do you like it?";
161                                                        close2; cutin "",255; end;
162                                        case 11:
163                                                if(Sex == 1) {
164                                                        mes "Oh~ 'Dragonology' style!";
165                                                        mes "This is the style based on motive of mysterious Dragon...";
166                                                        mes "How do you think? Do you like it?";
167                                                        close2; cutin "",255; end;
168                                                }
169                                                        mes "Oh~ 'Grand Cross' style!";
170                                                        mes "It feels a firm faith...";
171                                                        mes "How do you think? Do you like it?";
172                                                        close2; cutin "",255; end;
173                                        case 12:
174                                                if(Sex == 1) {
175                                                        mes "Oh~ 'Mace Mastery' style!";
176                                                        mes "It looks very hard and attractive!";
177                                                        mes "How do you think? Do you like it?";
178                                                        close2; cutin "",255; end;
179                                                }
180                                                        mes "Oh~ 'Intimidate' style!";
181                                                        mes "It seems you saw this style somewhere...?";
182                                                        mes "How do you think? Do you like it?";
183                                                        close2; cutin "",255; end;
184                                        case 13:
185                                                if(Sex == 1) {
186                                                        mes "Oh~ 'Thunderstorm' style!";
187                                                        mes "It feels hit by thunder storm!!";
188                                                        mes "How do you think? Do you like it?";
189                                                        close2; cutin "",255; end;
190                                                }
191                                                        mes "Oh~ 'Spiritual Sphere Absorption' style!";
192                                                        mes "It catches people's spirits^^";
193                                                        mes "How do you think? Do you like it?";
194                                                        close2; cutin "",255; end;
195                                        case 14:
196                                                if(Sex == 1) {
197                                                        mes "Oh~ 'Encore' style!";
198                                                        mes "It is the style makes people feels like asking you to sing~^^";
199                                                        mes "How do you think? Do you like it??";
200                                                        close2; cutin "",255; end;
201                                                }
202                                                        mes "Oh~ 'Gypsy's Kiss' style!";
203                                                        mes "It makes people think you are very kind to all...";
204                                                        mes "How do you think? Do you like it?";
205                                                        close2; cutin "",255; end;
206                                        case 15:
207                                                if(Sex == 1) {
208                                                        mes "Oh~ 'Grimtooth' style!";
209                                                        mes "It feels like you will be pricked by hair!";
210                                                        mes "How was it? Do you like it?";
211                                                        close2; cutin "",255; end;
212                                                }
213                                                        mes "Oh~ 'Counter Attack' style!";
214                                                        mes "It feels it will kick when someone is near!";
215                                                        mes "How was it? Do you like it?";
216                                                        close2; cutin "",255; end;
217                                        case 16:
218                                                if(Sex == 1) {
219                                                        mes "Oh~ 'Blitz Beat' style!";
220                                                        mes "It feels it will attack 5 times...?";
221                                                        mes "How was it? Do you like it?";
222                                                        close2; cutin "",255; end;
223                                                }
224                                                        mes "Oh~ 'Ankle Snare' style!";
225                                                        mes "This is the style hardly move.";
226                                                        mes "How was it? Do you like it?";
227                                                        close2; cutin "",255; end;
228                                        case 17:
229                                                if(Sex == 1) {
230                                                        mes "Oh~ 'Ore Discovery' style!";
231                                                        mes "It feels like picking up things while walking.";
232                                                        mes "How was it? Do you like it?";
233                                                        close2; cutin "",255; end;
234                                                }
235                                                        mes "Oh~ 'Hammer Fall' style!";
236                                                        mes "It will make feeling dizzy!";
237                                                        mes "How was it? Do you like it?";
238                                                        close2; cutin "",255; end;
239                                        case 18:
240                                                if(Sex == 1) {
241                                                        mes "Oh~ 'Fire Pillar' style!";
242                                                        mes "It has been a great style over the one generation...!";
243                                                        mes "How was it? Do you like it?";
244                                                        close2; cutin "",255; end;
245                                                }
246                                                        mes "Oh~ 'Jupitel Thunder' style!";
247                                                        mes "It feels very neat.";
248                                                        mes "How was it? Do you like it?";
249                                                        close2; cutin "",255; end;
250                                        case 19:
251                                                if(Sex == 1) {
252                                                        mes "Oh~ 'Guillotine Fist' style!";
253                                                        mes "It feels like betting all at once!!";
254                                                        mes "How was it? Do you like it?";
255                                                        close2; cutin "",255; end;
256                                                }
257                                                        mes "Oh~ 'Whirlwind' style!";
258                                                        mes "It feels very refresh like wind.";
259                                                        mes "How was it? Do you like it?";
260                                                        close2; cutin "",255; end;
261                                }
262                case 2:
263                        if(BaseLevel < 60) {
264                                mes "[Veronica]";
265                                mes "Wow~, Dear, this style looks good on you~";
266                                mes "Don't change strangely.";
267                                mes "Why don't you decorate hair with accessories~";
268                                close;
269                        } else if((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) || (Zeny < 99800)) {
270                                mes "[Veronica]";
271                                mes "If you want to change your hair style, you need several items";
272                                mes "Since you need many items....";
273                                mes "I think you should write those down.";
274                                next;
275                                mes "[Veronica]";
276                                mes "3 Counteragent,";
277                                mes "3 Mixture,";
278                                mes "100 Daenggies,";
279                                mes "100 Short Daenggies,";
280                                mes "100 Black Hairs,";
281                                mes "100 Golden Hairs,";
282                                mes "100 Glossy Hair.";
283                                next;
284                                mes "[Veronica]";
285                                mes "And also you need 99,800 zeny.";
286                                mes "If you gather them all...";
287                                mes "I will show you what I can do~!! ^^ HoHoHo.";
288                                close;
289                        }
290                        mes "[Veronica]";
291                        mes "Well, then... Please choose Hair Style you like the most.";
292                        mes "I will do my best ^^";
293                        mes "There are 19 different Hair Styles.";
294                        mes "Numbers from 1 to 19~";
295                        next;
296                        input .@style;
297                        if(.@style > 19) {
298                                mes "[Veronica]";
299                                mes "There are no such numbers like that!";
300                                mes "Please check your number~";
301                                close;
302                        } else if(.@style == 0) {
303                                mes "[Veronica]";
304                                mes "It's been canceled.";
305                                close;
306                        } else if(getlook(1) == .@style) {
307                                mes "[Veronica]";
308                                mes "You already have this style!!";
309                                mes "I think you should look through Hair Styles again";
310                                close;
311                        }
312                                callsub L_cutin,.@style;
313                                mes "[Veronica]";
314                                mes "This is (" + .@style + ") style.";
315                                mes "I will change your hair with this again.";
316                                mes "Is that OK with you??";
317                                next;
318                                if(select("Yeah~ I'd love to.","No..I don't like it...") == 1) {
319                                                if(getlook(6) == 0) {
320                                                        mes "[Veronica]";
321                                                        mes "You haven't dyeing your hair~ Not even once!!";
322                                                        mes "I think dyeing your hair makes you much better...";
323                                                        mes "I can do it for you as a service... for FREE ^^";
324                                                        mes "Which color do you want?";
325                                                        next;
326                                                        switch(select("Red","Yellow","Purple","Orange","Green","Blue","White","Black","Cancel")) {
327                                                                case 1:
328                                                                        set .@pallete,8;
329                                                                        goto L_style;
330                                                                case 2:
331                                                                        set .@pallete,1;
332                                                                        goto L_style;
333                                                                case 3:
334                                                                        set .@pallete,2;
335                                                                        goto L_style;
336                                                                case 4:
337                                                                        set .@pallete,3;
338                                                                        goto L_style;
339                                                                case 5:
340                                                                        set .@pallete,4;
341                                                                        goto L_style;
342                                                                case 6:
343                                                                        set .@pallete,5;
344                                                                        goto L_style;
345                                                                case 7:
346                                                                        set .@pallete,6;
347                                                                        goto L_style;
348                                                                case 8:
349                                                                        set .@pallete,7;
350                                                                        goto L_style;
351                                                                case 9:
352                                                                        mes "[Veronica]";
353                                                                        mes "Well.. then think it over..";
354                                                                        mes "and come visit me again.";
355                                                                        mes "Not only type of hair style but also color of it is very important.";
356                                                                        close;
357                                                        }
358                                                }
359                                L_style:
360                                                mes "[Veronica]";
361                                                mes "Now, It begins~. Hold still~";
362                                                mes "If you move, you will have very bad style^^";
363                                                mes "Just trust me on this!!";
364                                                next;
365                                                mes "[Veronica]";
366                                                mes "- Clip clip Clip clip -";
367                                                mes "- Klit klit Klit klit -";
368                                                mes "- Snip snip Snip snip -";
369                                                next;
370                                                delitem 973,3;
371                                                delitem 974,3;
372                                                delitem 901,100;
373                                                delitem 1094,100;
374                                                delitem 1020,100;
375                                                delitem 1060,100;
376                                                delitem 7152,100;
377                                                setlook 1,.@style;
378                                                setlook 6,.@pallete;
379                                                cutin "",255;
380                                                mes "[Veronica]";
381                                                mes "Wow~ it came out very well~~~ ";
382                                                mes "I hope you like this (" + .@style + ") style. ^^";
383                                                mes "If you'd like to have other hair style,";
384                                                mes "you are welcome to visit me anytime~ HoHoHo";
385                                                setlook 1,.@style;
386                                                setlook 6,.@pallete;
387                                                close;
388                                }
389                                                mes "[Veronica]";
390                                                mes "Well~ choose again please~";
391                                                mes "There shold be a style you like.";
392                                                mes "Just remember the number you like the most abd tell me.";
393                                                close;
394                case 3:
395                        mes "[Veronica]";
396                        mes "Everyone has rights to become beautiful...";
397                        mes "I wish you can find your hair style which fits on you well~";
398                        mes "I really do~ ^^";
399                        close;
400        }
401L_cutin:
402        if(Sex == 1) {
403                if(getarg(0) < 10)
404                        cutin "hair_m_0"+getarg(0),4;
405                else
406                        cutin "hair_m_"+getarg(0),4;
407        } else {
408                if(getarg(0) < 10)
409                        cutin "hair_f_0"+getarg(0),4;
410                else
411                        cutin "hair_f_"+getarg(0),4;
412        }
413        return;
414}
415
416// Gypsy Hairdresser - alberta 33 141
417alberta,33,141,1        script  Gypsy Hairdresser       87,{
418        mes "[Bisharm]";
419        mes "Omg! Kidding me she is a desinger!!";
420        mes "One of the best?? Yeah..whatever...";
421        mes "I'm the only one who knows what's the true dudism and value of hair!";
422        mes "I am a CREATOR of BEAUTY!";
423        next;
424        switch(select("What do you do?","Please bless me also!!",".....")) {
425                case 1:
426                        mes "[Bisharm]";
427                        mes "ME? I am a hairdresser.";
428                        mes "I am drifting from place to place...and";
429                        mes "giving people beauty of hair.";
430                        mes "I heard there is....";
431                        mes "there is a novice who is calling oneself a hair designer in this town...";
432                        next;
433                        mes "[Bisharm]";
434                        mes "That's why I came to this town.";
435                        mes "I was watching and I find out everyone asks what they want from the menu...";
436                        mes "That is not the way!!";
437                        mes "There are some cases..";
438                        mes "hairs don't look good on people when listening to them!";
439                        next;
440                        mes "[Bisharm]";
441                        mes "Also very amateur skill...";
442                        mes "Very very...amateur...";
443                        mes "You can't call it a beauty designer!";
444                        mes "Waisting too mush hairs!";
445                        mes "In short I don't like it very well!!";
446                        next;
447                        mes "[Bisharm]";
448                        mes "If you want me to touch your hair,";
449                        mes "please ask me anytime.";
450                        mes "I'll specially do my best for you.";
451                        mes "Got it?";
452                        mes "Don't ever let novice touch your hair!";
453                        close;
454                case 2:
455                        if(BaseLevel < 60) {
456                                mes "[Bisharm]";
457                                mes "Hmm, From my artistic perspective,";
458                                mes "the hair style you have looks very good on you!";
459                                mes "You should stay with it!";
460                                mes "Trust me!";
461                                close;
462                        } else if(Zeny < 199800) {
463                                mes "[Bisharm]";
464                                mes "Yeah? You don't need anything else. You only need ZENY!";
465                                mes "You just need 199,800 zeny.";
466                                mes "Just let you know.... ";
467                                mes "that you should feel an honor about me touching your hair with only this price...";
468                                close;
469                        }
470                                mes "[Bisharm]";
471                                mes "Good, I will take 199,800 zeny for my fee.";
472                                mes "OK?";
473                                mes "You still have chance to go to that novice and do your hair....";
474                                mes "It's up to you...";
475                                next;
476                                if(select("I will ask you a favor","Well..I will pass..") ==1 ) {
477                                        mes "[Bisharm]";
478                                        mes "Alright!----- Here goes!!!";
479                                        mes "Watch yourself!!";
480                                        next;
481                                        mes "[Bisharm]";
482                                        mes "Wooohhhhhhhhh!!!!";
483                                        next;
484                                        mes "[Bisharm]";
485                                        mes "Yipe!! Yeah!! Yeah~~~~~!!";
486                                        next;
487                                        mes "[Bisharm]";
488                                        mes "Finished...!! great...GREAT!!";
489                                        mes "The style no one can't creat!!!!";
490                                        mes "Phu..Hahahahahaha!!";
491                                        setlook 1,rand(1,19);
492                                        setlook 6,rand(1,6);
493                                        set Zeny,Zeny-199800;
494                                        close;
495                                }
496                                        mes "[Bisharm]";
497                                        mes "Hmm! Whatever...!! You'll regret this!!";
498                                        mes "You'll relize only great artisan can...";
499                                        mes "can creat real beauty.....";
500                                        mes "You will relize it...someday...";
501                                        close;
502                case 3:
503                        mes "[Bisharm]";
504                        mes "I feel so sorry for people";
505                        mes "who let their hairs to be touched by a NOVICE";
506                        mes "who doesn't know anything about beauty!!";
507                        mes "I feel really really sorry for them!!";
508                        close;
509        }
510}
511
512//===== Old Changelog: =================================
513//= 07/06/05 : Added 1st Version. [Muad_Dib]
514//= Converted to eAthena format by Dr.Evil Fixed typos [Nexon]
515//= 1.1 Removed Duplicates [Silent]
516//============================================================
Note: See TracBrowser for help on using the browser.