Context Navigation

Lvl4_weapon_quest.txt @ 7

Revision 1, 101.7 kB (checked in by jinshiro, 17 years ago)

Line
1	//===== eAthena Script =======================================
2	//= Grade A and Grade S weapon quests
3	//===== By: ==================================================
4	//= Vicious_Pucca, Reddozen & MasterOfMuppets
5	//===== Current Version: =====================================
6	//= 1.4
7	//===== Compatible With: =====================================
8	//= eAthena SVN 3422+(Requires jA Script System)
9	//===== Description: =========================================
10	//= Grade A and Grade S weapon quests
11	//===== Additional Comments: =================================
12	//= 1.0 First Version, Credits goes to Vicious_Pucca for converting [MasterOfMuppets]
13	//= the quest from aegis format to eA format. Also thanks to
14	//= reddozen for fixing bugs.
15	//= 1.1 Many fixes to spelling, grammar, and sentence order. [Silent]
16	//= 1.2 A small fix, thanks to vicious_pucca [MasterOfMuppets]
17	//= 1.21 Fixing MoM's typos (Citrin -> Citrine) [erKURITA]
18	//= 1.3 Redirected error message for "LV_16" to "LV_16_NOGEM" (Gepard) [L0ne_W0lf]
19	//= 1.4 Fixed bad NPC header data to comply with rev. 11603. [L0ne_W0lf]
20	//============================================================
21
22	//---------------------------------------------------------------
23	// Initialize the basic materials for easier reading/conversion
24	//---------------------------------------------------------------
25
26	- script lv4_weapon_init -1,{
27	OnInit:
28	set $@LV4_Citrine, 7295; // 7295,Citrine
29	set $@LV4_Turquoise, 7294; // 7294,Turquoise
30	set $@LV4_Agate, 7291; // 7291,Agate
31
32	set $@LV4_Muscovite, 7292; // 7292,Muscovite
33	set $@LV4_Biotite, 7297; // 7297,Biotite
34	set $@LV4_Pyroxene, 7296; // 7296,Pyroxene
35
36	set $@LV4_Phlogopite, 7290; // 7290,Phlogopite
37	set $@LV4_Olivine, 7289; // 7289,Peridot
38	set $@LV4_Rose_Quartz, 7293; // 7293,Rose_Quartz
39
40	set $@LV4_Gold, 969; // 969,Gold
41	set $@LV4_Steel, 999; // 999,Steel
42	set $@LV4_Emperium, 714; // 714,Emperium
43	set $@LV4_Hammer_Of_Blacksmith, 1005; // 1005,Hammer_of_Blacksmith
44	set $@LV4_Emperium_Anvil, 989; // 989,Emperium_Anvil
45	set $@LV4_Illusion_Flower, 710; // 710,Illusion_Flower
46	end;
47	}
48
49	//---------------------------------------------------------------
50	// Bazo, creates Immaterial Sword, Quadrille and Slash
51	//---------------------------------------------------------------
52
53	umbala,117,285,3 script Bazo 85,{
54	set @NowWeight, MaxWeight - Weight;
55	if (@NowWeight >= 3000) goto LV4_NOT_OW;
56	mes "- Wait a minute! -";
57	mes "- Currently you are overweight. -";
58	mes "- Please lighten your weight -";
59	mes "- and try again. -";
60	close;
61
62
63	LV4_NOT_OW:
64	if(lv4_weapon == 0) goto LV4_0;
65	if(lv4_weapon == 1) goto LV4_1;
66	if(lv4_weapon == 2) goto LV4_2;
67	if(lv4_weapon == 3) goto LV4_2;
68	if(lv4_weapon == 4) goto LV4_2;
69	if(lv4_weapon == 5) goto LV4_5;
70	if(lv4_weapon == 6) goto LV4_5;
71	if(lv4_weapon == 7) goto LV4_5;
72	if(lv4_weapon > 7) goto LV4_7;
73	end; // shouldn't be here
74
75
76	LV4_0:
77	mes "[Bazo]";
78	mes "Hello, you are from outside, huh?";
79	mes "I can tell by your appearance.";
80	mes "Pleased to meet you. My name is Bazo Heburiech.";
81	mes "I am also from outside.";
82	next;
83	mes "[Bazo]";
84	mes "We must have been meant to meet each other.";
85	mes "If you don't mind, let me explain about this place for a while.";
86	mes "Umbala is adjacent to Nifflheim, the city of the dead.";
87	mes "Even at a first sight, I knew that";
88	mes "there is something about this village.";
89	next;
90	mes "[Bazo]";
91	mes "Due to that geographical trait,";
92	mes "this village was filled with evil power";
93	mes "that was influenced by the city of the dead.";
94	next;
95	mes "[Bazo]";
96	mes "The local people have learned";
97	mes "to manipulate the evil power for";
98	mes "producing specialties.";
99	next;
100	mes "[Bazo]";
101	mes "While staying here, I also have learned";
102	mes "some recipes. If you bring me materials,";
103	mes "I am willing to show you my skills.";
104	mes "How does that sound?";
105	next;
106
107	switch( select( "Sounds good.", "No, thanks." ) ) {
108	case 1:
109	if(BaseLevel >= 70) goto L4_0_1;
110
111	mes "[Bazo]";
112	mes "Err...I don't think that you are powerful";
113	mes "enough to handle my products.";
114	mes "They are charged with evil power.";
115	next;
116	mes "That means if their owners are not powerful";
117	mes "and not experienced enough,";
118	mes "they will drive the owners insane.";
119	mes "And I cannot do that to my friend.";
120	next;
121	mes "[Bazo]";
122	mes "Therefore, I want you to go back and level up first.";
123	mes "I will gladly expect you to come back when you are ready.";
124	break;
125	L4_0_1:
126	mes "[Bazo]";
127	mes "Excellent! Let me tell you";
128	mes "the materials I need. I hope you will write them down.";
129	mes "There is not that many though.";
130	next;
131	mes "[Bazo]";
132	mes "I need 10 Gold, 50 Steel and 10 Emperium";
133	mes "as basic materials...";
134	mes "and you can enchant the product with a certain trait.";
135	mes "For that, I need some rare ores...";
136	next;
137	mes "[Bazo]";
138	mes "Please bring me 30 of either Citrine, Turquoise or Agate.";
139	mes "Each one of them possess their own attribute";
140	mes "and following by the ore you have brought,";
141	mes "my product will possess a special trait.";
142	next;
143	mes "[Bazo]";
144	mes "I wish you good luck...";
145	mes "I will wait for you!";
146
147	set lv4_weapon, 1;
148	break;
149	case 2:
150	mes "[Bazo]";
151	mes "Oh, okay. That is fine with me.";
152	mes "By the way, don't you want to know how evil the city of the dead will be?";
153	mes "I do since that city influences so much of this village";
154	mes "with it's mysterious power, you know.";
155	break;
156	}
157	close;
158
159
160
161	//--------------------------------------------------
162	//Gold, Steel, Emp Check + Choosing the gem
163	//--------------------------------------------------
164	LV4_1:
165	if(countitem($@LV4_Gold) < 10) goto LV4_1_FAIL;
166	if(countitem($@LV4_Steel) < 50) goto LV4_1_FAIL;
167	if(countitem($@LV4_Emperium) < 10) goto LV4_1_FAIL;
168
169	mes "[Bazo]";
170	mes "Oh...you have brought all the basic materials.";
171	mes "Now let me check what kind of rare ores";
172	mes "you have brought...";
173	next;
174
175	if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Turquoise) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_CTA;
176	if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Turquoise) >= 30) goto LV4_1_CT;
177	if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_CA;
178	if (countitem($@LV4_Turquoise) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_TA;
179	if (countitem($@LV4_Citrine) >= 30) goto LV4_1_C;
180	if (countitem($@LV4_Turquoise) >= 30) goto LV4_1_T;
181	if (countitem($@LV4_Agate) >= 30) goto LV4_1_A;
182	goto LV4_1_NOGEM;
183	end;
184
185
186	LV4_1_CTA:
187	mes "[Bazo]";
188	mes "Hahaha, I asked you to bring one kind not all of them.";
189	mes "You can only use one kind of ore.";
190	mes "Which one would you like to use?";
191	next;
192
193	switch( select( "Citrine", "Turquoise", "Agate" ) ) {
194	case 1:
195	mes "[Bazo]";
196	mes "Citrine...okay. Before we start,";
197	set @gem, $@LV4_Citrine;
198	set @gemstring$,"Citrine";
199	break;
200	case 2:
201	mes "[Bazo]";
202	mes "Turquoise...okay. Before we start,";
203	set @gem, $@LV4_Turquoise;
204	set @gemstring$,"Turquoise";
205	break;
206	case 3:
207	mes "[Bazo]";
208	mes "Agate....okay. Before we start,";
209	set @gem, $@LV4_Agate;
210	set @gemstring$,"Agate";
211	break;
212	}
213
214	goto LV4_1_PICK;
215	end; // shouldn't be here
216
217
218	LV4_1_CT:
219	mes "[Bazo]";
220	mes "Hahaha, I asked you to bring one kind not two.";
221	mes "You can only use one kind of ore.";
222	mes "Which one would you like to use?";
223	next;
224
225	switch( select( "Citrine", "Turquoise" ) ) {
226	case 1:
227	mes "[Bazo]";
228	mes "Citrine...okay. Before we start,";
229	set @gem, $@LV4_Citrine;
230	set @gemstring$,"Citrine";
231	break;
232	case 2:
233	mes "[Bazo]";
234	mes "Turquoise...okay. Before we start,";
235	set @gem, $@LV4_Turquoise;
236	set @gemstring$,"Turquoise";
237	break;
238	}
239
240	goto LV4_1_PICK;
241	end; // shouldn't be here
242
243
244	LV4_1_CA:
245	mes "[Bazo]";
246	mes "Hahaha, I asked you to bring one kind not two.";
247	mes "You can only use one kind of ore.";
248	mes "Which one would you like to use?";
249	next;
250
251	switch( select( "Citrine", "Agate" ) ) {
252	case 1:
253	mes "[Bazo]";
254	mes "Citrine...okay. Before we start,";
255	set @gem, $@LV4_Citrine;
256	set @gemstring$,"Citrine";
257	break;
258	case 2:
259	mes "[Bazo]";
260	mes "Agate....okay. Before we start,";
261	set @gem, $@LV4_Agate;
262	set @gemstring$,"Agate";
263	break;
264	}
265
266	goto LV4_1_PICK;
267	end; // shouldn't be here
268
269
270	LV4_1_TA:
271	mes "[Bazo]";
272	mes "Hahaha, I asked you to bring one kind not two.";
273	mes "You can only use one kind of ore.";
274	mes "Which one would you like to use?";
275	next;
276
277	switch( select( "Turquoise", "Agate" ) ) {
278	case 1:
279	mes "[Bazo]";
280	mes "Turquoise...okay. Before we start,";
281	set @gem, $@LV4_Turquoise;
282	set @gemstring$,"Turquoise";
283	break;
284	case 2:
285	mes "[Bazo]";
286	mes "Agate....okay. Before we start,";
287	set @gem, $@LV4_Agate;
288	set @gemstring$,"Agate";
289	break;
290	}
291
292	goto LV4_1_PICK;
293	end; // shouldn't be here
294
295
296	LV4_1_C:
297	mes "[Bazo]";
298	mes "Citrine...okay. Before we start,";
299	set @gem, $@LV4_Citrine;
300	set @gemstring$,"Citrine";
301	goto LV4_1_PICK;
302	end; // shouldn't be here
303
304
305	LV4_1_T:
306	mes "[Bazo]";
307	mes "Turquoise...okay. Before we start,";
308	set @gem, $@LV4_Turquoise;
309	set @gemstring$,"Turquoise";
310	goto LV4_1_PICK;
311	end; // shouldn't be here
312
313
314	LV4_1_A:
315	mes "[Bazo]";
316	mes "Agate....okay. Before we start,";
317	set @gem, $@LV4_Agate;
318	set @gemstring$,"Agate";
319	goto LV4_1_PICK;
320	end; // shouldn't be here
321
322
323	LV4_1_PICK:
324	mes "we must do one thing first.";
325	mes "That is, testing your luck.";
326	mes "As you already know,";
327	mes "I cannot guarantee you that we will succeed";
328	mes "to make one right away.";
329	next;
330	mes "[Bazo]";
331	mes "If we can raise your luck before we start,";
332	mes "we will be able to succeed.";
333	next;
334	mes "[Bazo]";
335	mes "Now you must be wondering what we";
336	mes "will do in order to increase your luck.";
337	mes "It is simple, we will play a mind-reading game.";
338	mes "I am going to think of one monster among 4 of my favorite ones,";
339	mes "you will guess what the monster is.";
340	next;
341	mes "[Bazo]";
342	mes "You must answer correctly at least";
343	mes "1 out of 5 times. It shouldn't be that difficult.";
344	mes "And if you fail to answer, we must do something else";
345	mes "to drive away your bad luck.";
346	next;
347	mes "[Bazo]";
348	mes "I will take 10 of the special ore you chose.";
349	mes "Well, I understand that it does not sound tempting";
350	mes "but let's think of it this way.";
351	mes "It is much better than wasting 30 ore";
352	mes "by failing to create the item, isn't it?";
353	next;
354	mes "[Bazo]";
355	mes "Okay, now I need some time to prepare...";
356	mes "Talk to you later!";
357
358	if(countitem($@LV4_Gold) < 10) goto LV4_HACK;
359	if(countitem($@LV4_Steel) < 50) goto LV4_HACK;
360	if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;
361	delitem $@LV4_Gold, 10;
362	delitem $@LV4_Steel, 50;
363	delitem $@LV4_Emperium, 10;
364	if(@gem == $@LV4_Citrine) set lv4_weapon, 2;
365	if(@gem == $@LV4_Turquoise) set lv4_weapon, 3;
366	if(@gem == $@LV4_Agate) set lv4_weapon, 4;
367	close;
368
369
370	LV4_1_NOGEM:
371	mes "[Bazo]";
372	mes "I seem to recall that I asked you to bring";
373	mes "30 of a special ore, Citrine, Turquoise, or Agate...";
374	mes "And I don't see any of them.";
375	mes "You must have forgot them. Please go get them too.";
376	close;
377
378
379	LV4_1_FAIL:
380	mes "[Bazo]";
381	mes "Please bring me 10 Gold, 50 Steel and 10 Emperium";
382	mes "as basic materials...";
383	mes "and you can enchant the product with a certain trait.";
384	mes "For that, I need some rare ores...";
385	next;
386	mes "[Bazo]";
387	mes "Please bring me 30 of either Citrine, Turquoise or Agate.";
388	mes "Each one of them possess their own attribute";
389	mes "and using the ore you have brought,";
390	mes "my product will possess a special trait.";
391	next;
392	mes "[Bazo]";
393	mes "I wish you good luck...";
394	mes "I will wait for you!";
395	close;
396
397
398
399	//--------------------------------------------------
400	//Guessing Game
401	//--------------------------------------------------
402	LV4_2:
403	if(lv4_weapon == 2) set @gem, $@LV4_Citrine;
404	if(lv4_weapon == 3) set @gem, $@LV4_Turquoise;
405	if(lv4_weapon == 4) set @gem, $@LV4_Agate;
406	if(countitem(@gem) < 30) goto LV4_2_NOGEM;
407
408	mes "[Bazo]";
409	mes "Ok, you seem to be ready.";
410	mes "Let's get started.";
411	mes "My favorite monsters are Poring,";
412	mes "Hode, Obeaune, and Minorous.";
413	next;
414
415	set @dap, 0;
416	set @correct[0],1;
417	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
418	mes "[Bazo]";
419
420	if(@i == 1) mes "Here's the 1st question. Guess what monster";
421	if(@i != 1) mes "Alright. Now guess what monster";
422
423	mes "I have in my mind at this moment.";
424	next;
425
426	set @mons, rand(1, 4);
427
428	switch( select( "Poring", "Hode", "Obeaune", "Minorous" ) ) {
429	case 1:
430	set @correct[@i], 1;
431	if(@mons == 1) set @dap, @dap + 1;
432	break;
433
434	case 2:
435	set @correct[@i], 2;
436	if(@mons == 2) set @dap, @dap + 1;
437	break;
438
439	case 3:
440	set @correct[@i], 3;
441	if(@mons == 3) set @dap, @dap + 1;
442	break;
443
444	case 4:
445	set @correct[@i], 4;
446	if(@mons == 4) set @dap, @dap + 1;
447	break;
448	}
449	}
450
451	mes "[Bazo]";
452	mes "Okay, let me give you answers for the questions.";
453	mes "I was thinking of the monsters in the order of";
454	next;
455	mes "[Bazo]";
456
457	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
458	if(@correct[@i] == 1) mes "Poring";
459	if(@correct[@i] == 2) mes "Hode";
460	if(@correct[@i] == 3) mes "Obeaune";
461	if(@correct[@i] == 4) mes "Minorous";
462	}
463
464	if(@dap < 1) goto LV4_2_FAIL;
465
466	next;
467	mes "[Bazo]";
468	mes "You answered " + @dap + " times!";
469	mes "I must say you're amazing!";
470	mes "As I promised, I will make an Umbala specialty for you.";
471	mes "Please give me some time to prepare.";
472	mes "Talk to you later.";
473
474	if(countitem(@gem) < 30) goto LV4_HACK;
475	delitem @gem, 30;
476	set lv4_weapon, lv4_weapon + 3;
477	close;
478
479
480	LV4_2_FAIL:
481	if(countitem(@gem) < 10) goto LV4_HACK;
482	delitem @gem, 10;
483
484	next;
485	mes "[Bazo]";
486	mes "Errr... I don't think you are good at reading";
487	mes "other people's minds. Or you had bad luck, I guess.";
488	mes "We cannot do that again unless";
489	mes "we drive away the bad luck.";
490	mes "Give me 10 " + @gemstring$ + ", that will do the job.";
491	next;
492	mes "[Bazo]";
493	mes "Well...if you want to do this mind-reading game again,";
494	mes "please come back with the materials.";
495	mes "I will wait here for you.";
496	close;
497
498
499	LV4_2_NOGEM:
500	mes "[Bazo]";
501	mes "Errr...something doesn't feel right. We lack something...";
502	mes "Will you check the materials that you have brought?";
503	close;
504
505
506
507	//--------------------------------------------------
508	//Weapon Creation
509	//--------------------------------------------------
510	LV4_5:
511	mes "[Bazo]";
512	mes "Great... now, let's do it!";
513	mes "Wish me luck...ah, I forgot to tell you this.";
514	mes "I cannot tell you what kind of product it will be. It is so random.";
515	mes "Let's wish that a good thing will come out, okay?";
516	next;
517	mes "- You feel unknown power start gathering in -";
518	mes "- the materials. It seems the materials are -";
519	mes "- absorbing all the evil power in the air. -";
520	next;
521	mes "- Then, the materials start merging into one -";
522	mes "- even though Bazo didn't touch them at all. -";
523	next;
524	mes "[Bazo]";
525	mes "Can you feel that? The materials are gathering";
526	mes "power at their own will.";
527	mes "They are out of my hand now. Let's wait and hope.";
528	next;
529	mes "- After a while, the air becomes calm -";
530	mes "- and you check the result. -";
531	next;
532	mes "[Bazo]";
533	mes "Ooooooh! It is done!";
534	mes "We have succeeded! Ah, it's amazing!";
535	mes "Did I tell you that it is really rare to succeed right away?";
536	mes "Yes, God must have listened to our prayers.";
537	mes "Oh, it is a weapon! It will be very useful to you.";
538	mes "Let's take a closer look...";
539	next;
540
541	mes "[Bazo]";
542
543	switch( lv4_weapon ) {
544	case 5:
545	mes "Immaterial Sword!";
546	getitem 1141, 1; // 1141,Immaterial_Sword
547	break;
548	case 6:
549	mes "it is Slash!";
550	getitem 1526, 1; // 1526,Slash
551	break;
552	case 7:
553	mes "it is Quadrille!";
554	getitem 1527, 1; // 1527,Quadrille
555	break;
556	}
557
558	set lv4_weapon, 0;
559	mes "This sword was born to be yours!";
560	mes "Congratulations and hopefully it will have a good use for you.";
561	next;
562
563	mes "[Bazo]";
564	mes "I feel so gratified. If you wish to have";
565	mes "another one, please feel free to visit me anytime.";
566	mes "Have a good travel!";
567	close;
568
569
570
571	//--------------------------------------------------
572	//Other Quests
573	//--------------------------------------------------
574	LV4_7:
575	mes "[Bazo]";
576	mes "Hmm...I feel something strange from you.";
577	mes "I regret to say that there is nothing I can do for you.";
578	mes "I hope you have a safe travel.";
579	close;
580
581
582
583	//--------------------------------------------------
584	//Hack Attempt
585	//--------------------------------------------------
586	LV4_HACK:
587	mes "[Bazo]";
588	mes "Hmm. There seems to be a bit of problem.";
589	set lv4_weapon, 0;
590	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
591	close;
592	}
593
594	//---------------------------------------------------------------
595	// Hibilaithan, creates Mailbreaker, Swordbreaker and Slaughter
596	//---------------------------------------------------------------
597
598	umbala,163,257,3 script Hibilaithan 785,{
599	if(event_umbala < 3) goto LumWord;
600	set @NowWeight, MaxWeight - Weight;
601	if (@NowWeight >= 3000) goto LV4_NOT_OW;
602	mes "- Wait a minute! -";
603	mes "- Currently you are overweight. -";
604	mes "- Please lighten your weight -";
605	mes "- and try again. -";
606	close;
607
608
609	LV4_NOT_OW:
610	if(lv4_weapon == 0) goto LV4_0;
611	if(lv4_weapon == 8) goto LV4_8;
612	if(lv4_weapon == 9) goto LV4_9;
613	if(lv4_weapon == 10) goto LV4_9;
614	if(lv4_weapon == 11) goto LV4_9;
615	if(lv4_weapon == 12) goto LV4_12;
616	if(lv4_weapon == 13) goto LV4_12;
617	if(lv4_weapon == 14) goto LV4_12;
618	if(lv4_weapon < 8) goto LV4_7;
619	if(lv4_weapon > 14) goto LV4_7;
620	end; // shouldn't be here
621
622
623	LumWord:
624	mes "[Hibilaithan]";
625	mes "Umba! Umbaba...umum! Baumba!";
626	mes "Umumumbababaumumbabaumba!";
627	mes "Umbaumbaumbaumbaumhah!";
628	mes "Umumumumumbababababab!";
629	close;
630
631
632	LV4_0:
633	mes "[Hibilaithan]";
634	mes "Haha, yeah, I knew this day would come.";
635	mes "Finally people recognize my value";
636	mes "as the best artisan in Umbala!";
637	next;
638	mes "[Hibilaithan]";
639	mes "Okay, let's talk straight.";
640	mes "I, Hibilaithan shall craft something nice";
641	mes "if you bring me materials!";
642	mes "Hahahahahaha!";
643	next;
644	mes "[Hibilaithan]";
645	mes "Eh? What? You didn't come to see me?";
646	mes "Stop joking around...Don't play me for a fool!";
647	mes "People are too shy to tell the truth nowadays!";
648	mes "Let's be honest and tell me if you want it or not.";
649	next;
650
651	switch( select( "...okay.", "...sorry, I don't need it!" ) ) {
652	case 1:
653	if(BaseLevel >= 70) goto L4_0_1;
654
655	mes "[Hibilaithan]";
656	mes "...what a shame! I regret to tell you this,";
657	mes "but your spirit is too weak";
658	mes "to handle the power of my stuff!";
659	mes "This is not good, not good at all!";
660	mes "Go and train yourself first.";
661	mes "When you become strong, you may come back!";
662	break;
663	L4_0_1:
664	mes "[Hibilaithan]";
665	mes "Great! I like your attitute! Great, great!";
666	mes "I am going to tell you what I need.";
667	mes "It is not much, so do not forget.";
668	next;
669	mes "[Hibilaithan]";
670	mes "Bring me 10 Gold, 50 Steel and 10 Emperium";
671	mes "... as basic materials.";
672	mes "And I need some rare ores to endow power...";
673	next;
674	mes "[Hibilaithan]";
675	mes "Bring me 30 of one ore among Muscovite, Biotite or Pyroxene.";
676	mes "Remember you are going to bring 30 of one ore.";
677	mes "I cannot pick one among those because I am";
678	mes "not sure what will come out. Heh.";
679	next;
680	mes "[Hibilaithan]";
681	mes "Okay, wish you good luck!";
682	mes "Meanwhile I am going to chill here.";
683
684	set lv4_weapon, 8;
685	break;
686	case 2:
687	mes "[Hibilaithan]";
688	mes "Bah~ what are you afraid of?";
689	mes "I am just trying to do you a favor, you know?";
690	mes "Alright, it is your call.";
691	mes "But if you change your mind,";
692	mes "feel free to come back.";
693	break;
694	}
695	close;
696
697
698
699	//--------------------------------------------------
700	//Gold, Steel, Emp Check + Choosing the gem
701	//--------------------------------------------------
702	LV4_8:
703	if(countitem($@LV4_Gold) < 10) goto LV4_8_FAIL;
704	if(countitem($@LV4_Steel) < 50) goto LV4_8_FAIL;
705	if(countitem($@LV4_Emperium) < 10) goto LV4_8_FAIL;
706
707	mes "[Hibilaithan]";
708	mes "Oh...you have brought all the basic materials.";
709	mes "Now let me check what kind of rare ores";
710	mes "you have brought...";
711	next;
712
713	if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Biotite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_MBP;
714	if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Biotite) >= 30) goto LV4_8_MB;
715	if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_MP;
716	if (countitem($@LV4_Biotite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_BP;
717	if (countitem($@LV4_Muscovite) >= 30) goto LV4_8_M;
718	if (countitem($@LV4_Biotite) >= 30) goto LV4_8_B;
719	if (countitem($@LV4_Pyroxene) >= 30) goto LV4_8_P;
720	goto LV4_8_NOGEM;
721	end;
722
723
724	LV4_8_MBP:
725	mes "[Hibilaithan]";
726	mes "Gosh, did you brought all three kinds?";
727	mes "Hahaha, it's fine.";
728	mes "But we cannot use all of them this time.";
729	mes "Pick one that you want to use.";
730	next;
731
732	switch( select( "Muscovite", "Biotite", "Pyroxene" ) ) {
733	case 1:
734	mes "[Hibilaithan]";
735	mes "Muscovite...okay. Before we start,";
736	set @gem, $@LV4_Muscovite;
737	set @gemstring$,"Muscovite";
738	break;
739	case 2:
740	mes "[Hibilaithan]";
741	mes "Biotite...okay. Before we start,";
742	set @gem, $@LV4_Biotite;
743	set @gemstring$,"Biotite";
744	break;
745	case 3:
746	mes "[Hibilaithan]";
747	mes "Pyroxene....okay. Before we start,";
748	set @gem, $@LV4_Pyroxene;
749	set @gemstring$,"Pyroxene";
750	break;
751	}
752
753	goto LV4_8_PICK;
754	end; // shouldn't be here
755
756
757	LV4_8_MB:
758	mes "[Hibilaithan]";
759	mes "Hahaha, I asked you to bring one kind not two.";
760	mes "You can only use one kind of ore.";
761	mes "Which one would you like to use?";
762	next;
763
764	switch( select( "Muscovite", "Biotite" ) ) {
765	case 1:
766	mes "[Hibilaithan]";
767	mes "Muscovite...okay. Before we start,";
768	set @gem, $@LV4_Muscovite;
769	set @gemstring$,"Muscovite";
770	break;
771	case 2:
772	mes "[Hibilaithan]";
773	mes "Biotite...okay. Before we start,";
774	set @gem, $@LV4_Biotite;
775	set @gemstring$,"Biotite";
776	break;
777	}
778
779	goto LV4_8_PICK;
780	end; // shouldn't be here
781
782
783	LV4_8_MP:
784	mes "[Hibilaithan]";
785	mes "Hahaha, I asked you to bring one kind not two.";
786	mes "You can only use one kind of ore.";
787	mes "Which one would you like to use?";
788	next;
789
790	switch( select( "Muscovite", "Pyroxene" ) ) {
791	case 1:
792	mes "[Hibilaithan]";
793	mes "Muscovite...okay. Before we start,";
794	set @gem, $@LV4_Muscovite;
795	set @gemstring$,"Muscovite";
796	break;
797	case 2:
798	mes "[Hibilaithan]";
799	mes "Pyroxene....okay. Before we start,";
800	set @gem, $@LV4_Pyroxene;
801	set @gemstring$,"Pyroxene";
802	break;
803	}
804
805	goto LV4_8_PICK;
806	end; // shouldn't be here
807
808
809	LV4_8_BP:
810	mes "[Hibilaithan]";
811	mes "Hahaha, I asked you to bring one kind not two.";
812	mes "You can only use one kind of ore.";
813	mes "Which one would you like to use?";
814	next;
815
816	switch( select( "Biotite", "Pyroxene" ) ) {
817	case 1:
818	mes "[Hibilaithan]";
819	mes "Biotite...okay. Before we start,";
820	set @gem, $@LV4_Biotite;
821	set @gemstring$,"Biotite";
822	break;
823	case 2:
824	mes "[Hibilaithan]";
825	mes "Pyroxene....okay. Before we start,";
826	set @gem, $@LV4_Pyroxene;
827	set @gemstring$,"Pyroxene";
828	break;
829	}
830
831	goto LV4_8_PICK;
832	end; // shouldn't be here
833
834
835	LV4_8_M:
836	mes "[Hibilaithan]";
837	mes "Muscovite...okay. Before we start,";
838	set @gem, $@LV4_Muscovite;
839	set @gemstring$,"Muscovite";
840	goto LV4_8_PICK;
841	end; // shouldn't be here
842
843
844	LV4_8_B:
845	mes "[Hibilaithan]";
846	mes "Biotite...okay. Before we start,";
847	set @gem, $@LV4_Biotite;
848	set @gemstring$,"Biotite";
849	goto LV4_8_PICK;
850	end; // shouldn't be here
851
852
853	LV4_8_P:
854	mes "[Hibilaithan]";
855	mes "Pyroxene....okay. Before we start,";
856	set @gem, $@LV4_Pyroxene;
857	set @gemstring$,"Pyroxene";
858	goto LV4_8_PICK;
859	end; // shouldn't be here
860
861
862	LV4_8_PICK:
863	mes "we must do one thing first.";
864	mes "That is, to test your luck.";
865	mes "As you already know,";
866	mes "I cannot guarantee you that we will succeed";
867	mes "to make one right away.";
868	next;
869	mes "[Hibilaithan]";
870	mes "If we can raise your luck before we start,";
871	mes "we will be able to succeed.";
872	next;
873	mes "[Hibilaithan]";
874	mes "Now you must be wondering what we";
875	mes "will do in order to increase your luck.";
876	mes "It is simple, we will play a mind-reading game.";
877	mes "I am going to think of one monster among 4 of my favorites,";
878	mes "you will guess what that monster is.";
879	next;
880	mes "[Hibilaithan]";
881	mes "You must answer correctly at least";
882	mes "1 out of 5 times. It should not be that difficult.";
883	mes "And if you fail to answer, we must do something else";
884	mes "to drive away your bad luck.";
885	next;
886	mes "[Hibilaithan]";
887	mes "I will take 10 of the special ore you have chose.";
888	mes "Well, I understand that it does not sound tempting";
889	mes "but let's think of it this way.";
890	mes "It is much better than wasting 30 ore";
891	mes "by failing to create the item, isn't it?";
892	next;
893	mes "[Hibilaithan]";
894	mes "Okay, now I need some time to prepare...";
895	mes "Talk to you later!";
896
897	if(countitem($@LV4_Gold) < 10) goto LV4_HACK;
898	if(countitem($@LV4_Steel) < 50) goto LV4_HACK;
899	if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;
900	delitem $@LV4_Gold, 10;
901	delitem $@LV4_Steel, 50;
902	delitem $@LV4_Emperium, 10;
903	if(@gem == $@LV4_Muscovite) set lv4_weapon, 9;
904	if(@gem == $@LV4_Biotite) set lv4_weapon, 10;
905	if(@gem == $@LV4_Pyroxene) set lv4_weapon, 11;
906	close;
907
908
909	LV4_8_NOGEM:
910	mes "[Hibilaithan]";
911	mes "I seem to recall that I asked you to bring";
912	mes "30 of a special ore among Muscovite, Biotite or Pyroxene...";
913	mes "And I don't see any of them.";
914	mes "You must have forgot that. Please go get them too.";
915	close;
916
917
918	LV4_8_FAIL:
919	mes "[Hibilaithan]";
920	mes "Please bring me 10 Gold, 50 Steel and 10 Emperium";
921	mes "as basic materials...";
922	mes "and you can enchant the product with a certain trait.";
923	mes "For that, I need some rare ores...";
924	next;
925	mes "[Hibilaithan]";
926	mes "Please bring me 30 of an ore among Citrine, Biotite or Pyroxene.";
927	mes "Each one of them possess their own attributes";
928	mes "and by using the ore you have brought,";
929	mes "my product will possess a special trait.";
930	next;
931	mes "[Hibilaithan]";
932	mes "I wish you good luck...";
933	mes "I will wait for you!";
934	close;
935
936
937
938	//--------------------------------------------------
939	//Guessing Game
940	//--------------------------------------------------
941	LV4_9:
942	if(lv4_weapon == 9) set @gem, $@LV4_Muscovite;
943	if(lv4_weapon == 10) set @gem, $@LV4_Biotite;
944	if(lv4_weapon == 11) set @gem, $@LV4_Pyroxene;
945	if(countitem(@gem) < 30) goto LV4_9_NOGEM;
946
947	mes "[Hibilaithan]";
948	mes "Okay, let's get started!";
949	mes "It is simple. There are";
950	mes "4 monsters that I like. I am going to think";
951	mes "of a monster among the 4, you will guess what it is.";
952	mes "We will play this game 5 times and you must";
953	mes "answer correctly at least 1 out of 5 times. Doesn't that sound easy?";
954	next;
955	mes "[Hibilaithan]";
956	mes "This is a very good game for";
957	mes "increasing your luck!";
958	mes "Okay, you better be ready now.";
959	next;
960
961	set @dap, 0;
962	set @correct[0],1;
963	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
964	mes "[Hibilaithan]";
965
966	if(@i == 1) mes "I like Zealotus, Alice,";
967	if(@i == 1) mes "Munak, and Isis among all monsters.";
968
969	mes "Now, guess which one";
970	mes "I am thinking of at this moment.";
971	next;
972
973	set @mons, rand(1, 4);
974
975	switch( select( "Zhertilsh", "Alice", "Munak", "Isis" ) ) {
976	case 1:
977	set @correct[@i], 1;
978	if(@mons == 1) set @dap, @dap + 1;
979	break;
980
981	case 2:
982	set @correct[@i], 2;
983	if(@mons == 2) set @dap, @dap + 1;
984	break;
985
986	case 3:
987	set @correct[@i], 3;
988	if(@mons == 3) set @dap, @dap + 1;
989	break;
990
991	case 4:
992	set @correct[@i], 4;
993	if(@mons == 4) set @dap, @dap + 1;
994	break;
995	}
996	}
997
998	mes "[Hibilaithan]";
999	mes "Okay, that's all! Now let me";
1000	mes "check the answers. I was thinking";
1001	mes "monsters in the order of...";
1002	next;
1003	mes "[Hibilaithan]";
1004
1005	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
1006	if(@correct[@i] == 1) mes "Zhertilsh";
1007	if(@correct[@i] == 2) mes "Alice";
1008	if(@correct[@i] == 3) mes "Munak";
1009	if(@correct[@i] == 4) mes "Isis";
1010	}
1011
1012	if(@dap < 1) goto LV4_9_FAIL;
1013
1014	next;
1015	mes "[Hibilaithan]";
1016	mes "Wow, are you a mind reader or what?";
1017	mes "You answered " + @dap + " times correctly! Whoa...";
1018	mes "I guess you are already a lucky one,";
1019	mes "therefore we don't have any reason";
1020	mes "to prolong the work now!";
1021	mes "I need some time to prepare, talk to you later!";
1022
1023	if(countitem(@gem) < 30) goto LV4_HACK;
1024	delitem @gem, 30;
1025	set lv4_weapon, lv4_weapon + 3;
1026	close;
1027
1028
1029	LV4_9_FAIL:
1030	if(countitem(@gem) < 10) goto LV4_HACK;
1031	delitem @gem, 10;
1032
1033	next;
1034	mes "[Hibilaithan]";
1035	mes "This is not good, not good at all!";
1036	mes "You didn't even have a correct answer.";
1037	mes "We cannot start the work with this kind of result.";
1038	mes "Okay...we must drive away your bad luck first.";
1039	mes "10 " + @gemstring$ + " will do it!";
1040	next;
1041	mes "[Hibilaithan]";
1042	mes "Now, we need to play the game again.";
1043	mes "If you don't anymore ore, go get some.";
1044	mes "I am not going anywhere";
1045	mes "so you don't need to be in hurry.";
1046	mes "Take your time!";
1047	close;
1048
1049
1050	LV4_9_NOGEM:
1051	mes "[Hibilaithan]";
1052	mes "Hum. You might lack of";
1053	mes "materials? Check them again.";
1054	mes "See. I knew it.";
1055	close;
1056
1057
1058
1059	//--------------------------------------------------
1060	//Weapon Creation
1061	//--------------------------------------------------
1062	LV4_12:
1063	mes "[Hibilaithan]";
1064	mes "Ah, I can tell you are ready. Alright...";
1065	mes "I will try to make an awsome item for you.";
1066	mes "...and you are not going to look over my shoulder!";
1067	mes "I don't want to share my secret recipe with anyone!";
1068	next;
1069	mes "- Hibilaithan picks up all the materials -";
1070	mes "- and turns his back at you. -";
1071	mes "- You see him busying himself with something. -";
1072	mes "- Although the way he is doing it -";
1073	mes "- looks very primitive and crude, -";
1074	mes "- you feel that some strange energy has gathered around him. -";
1075	next;
1076	mes "[Hibilaithan]";
1077	mes "Umm~ umm~ umm~";
1078	mes "Aww~aww~ aww~";
1079	mes "Phew~ phew~ phew~";
1080	mes "Woo~ woo~ woo~";
1081	mes "Ho~ ho~ ho~";
1082	next;
1083	mes "[Hibilaithan]";
1084	mes " ";
1085	mes " ";
1086	mes "Haha, there it is! Phew, that was really hard...";
1087	mes "You're anxious, aren't you? Ok, let's see...";
1088	next;
1089
1090	mes "[Hibilaithan]";
1091	mes "It's a big success! Hahaha, sure, I made it...";
1092	mes "Therefore, it should be a big success.";
1093	mes "Oh, you got a weapon here...let's see,";
1094
1095	switch( lv4_weapon ) {
1096	case 12:
1097	mes "it is a Mailbreaker!";
1098	getitem 1225, 1; // 1225,Mail_Breaker
1099	break;
1100	case 13:
1101	mes "it is a Swordbreaker!";
1102	getitem 1224, 1; // 1224,Sword_Breaker
1103	break;
1104	case 14:
1105	mes "it is a Slaughter!";
1106	getitem 1367, 1; // 1367,Slaughter
1107	break;
1108	}
1109
1110	set lv4_weapon, 0;
1111	mes "This was made competely because I am that skillful,";
1112	mes "you got to be thankful for that!";
1113	next;
1114
1115	mes "[Hibilaithan]";
1116	mes "Whenever you want to have a nice thing,";
1117	mes "come back to me anytime!";
1118	mes "I am a very generous genius, you know?";
1119	mes "Always be thankful for the weapon that I made for you, okay?";
1120	mes "See you!";
1121	close;
1122
1123
1124
1125	//--------------------------------------------------
1126	//Other Quests
1127	//--------------------------------------------------
1128	LV4_7:
1129	mes "[Hibilaithan]";
1130	mes "Hmm...I feel something strange from you.";
1131	mes "I regret to say that there is nothing I can do for you.";
1132	mes "I hope you have a safe travel.";
1133	close;
1134
1135
1136
1137	//--------------------------------------------------
1138	//Hack Attempt
1139	//--------------------------------------------------
1140	LV4_HACK:
1141	mes "[Hibilaithan]";
1142	mes "Hmm. There seems to be a bit of problem.";
1143	set lv4_weapon, 0;
1144	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
1145	close;
1146	}
1147
1148	//--------------------------------------------------
1149	// Tabezthan, creates Talefing, Sabbath and Caesar's Sword
1150	//--------------------------------------------------
1151
1152	um_in,156,77,5 script Tabezthan 788,{
1153	if(event_umbala < 3) goto LumWord;
1154	set @NowWeight, MaxWeight - Weight;
1155	if (@NowWeight >= 3000) goto LV4_NOT_OW;
1156	mes "- Wait a minute! -";
1157	mes "- You are currently overweight. -";
1158	mes "- Please lose some weight -";
1159	mes "- and try again. -";
1160	close;
1161
1162
1163	LV4_NOT_OW:
1164	if(lv4_weapon == 0) goto LV4_0;
1165	if(lv4_weapon == 15) goto LV4_15;
1166	if(lv4_weapon == 16) goto LV4_16;
1167	if(lv4_weapon == 17) goto LV4_16;
1168	if(lv4_weapon == 18) goto LV4_16;
1169	if(lv4_weapon == 19) goto LV4_19;
1170	if(lv4_weapon == 20) goto LV4_19;
1171	if(lv4_weapon == 21) goto LV4_19;
1172	if(lv4_weapon < 15) goto LV4_14;
1173	if(lv4_weapon > 21) goto LV4_14;
1174	end; // shouldn't be here
1175
1176
1177	LumWord:
1178	mes "[Tabezthan]";
1179	mes "Umba! Umbaba...umum! Baumba!";
1180	mes "Umumumbababaumumbabaumba!";
1181	mes "Umbaumbaumbaumbaumhah!";
1182	mes "Umumumumumbababababab!";
1183	close;
1184
1185
1186	LV4_0:
1187	mes "[Tabezthan]";
1188	mes "Hmm...I feel something different about you...";
1189	mes "You are a stranger...aren't you?";
1190	next;
1191	mes "[Tabezthan]";
1192	mes "Let me introduce myself.";
1193	mes "I am Tabezthan,";
1194	mes "the storage of the knowledge and the genius of Umbala...";
1195	mes "Hahahaha.";
1196	next;
1197	mes "[Tabezthan]";
1198	mes "I have two diciples. One is Hibilaithan the fool";
1199	mes "and the other one is Bazo who is intelligent";
1200	mes "and is from outside the same as you.";
1201	next;
1202	mes "[Tabezthan]";
1203	mes "Of course both of them are talented and skillful";
1204	mes "but I am worried about Hibilaithan, for he";
1205	mes "makes many stupid mistakes and is shameless";
1206	mes "for what he has done.";
1207	next;
1208	mes "[Tabezthan]";
1209	mes "I have tought them how to manipulate";
1210	mes "the mysterious energy existing in Umbala";
1211	mes "for creating things with it..";
1212	mes "I heard that there is a similar skill called Alchemy";
1213	mes "in the outside world. Although I am not sure if I remember it correctly.";
1214	next;
1215	mes "[Tabezthan]";
1216	mes "Anyways, would you like to see my skill?";
1217	mes "If so, bring me materials I need,";
1218	mes "I am more than willing to present my skill for you.";
1219	next;
1220
1221	switch( select( "Yes, please.", "No, thank you." ) ) {
1222	case 1:
1223	if(BaseLevel >= 70) goto L4_0_1;
1224
1225	mes "[Tabezthan]";
1226	mes "Sebelumnya saya harus menekankan ini";
1227	mes "Barang spesial ini akan menjadi berbahaya jika kamu sendiri masih lemah";
1228	mes "Kamu harus lebih berpengalaman lagi anak muda";
1229	mes "Naikan level kamu terlebih dahulu";
1230	mes "jika kamu sudah merasa kuat kembalilah kesini kembali";
1231	mes "Sampai jumpa ~~";
1232	break;
1233	L4_0_1:
1234	mes "[Tabezthan]";
1235	mes "One with curiousity...he is called the young adventurer...";
1236	mes "Fine. Then let me inform you of";
1237	mes "the matetrials I need. Please memorize them";
1238	mes "or write them down.";
1239	mes "It is not much however.";
1240	next;
1241	mes "[Tabezthan]";
1242	mes "I need 10 Gold, 50 Steel and 10 Emperium";
1243	mes "as basic materials...";
1244	mes "and you can enchant the product with a certain trait.";
1245	mes "For that, I need some rare ores...";
1246	next;
1247	mes "[Tabezthan]";
1248	mes "Please bring me 30 of an ore among Phlogopite, Peridot or Rose Quartz.";
1249	mes "Each one of them possess their own attribute";
1250	mes "and by using the ore you have brought,";
1251	mes "my product will possess a special trait.";
1252	next;
1253	mes "[Tabezthan]";
1254	mes "However, please be aware that";
1255	mes "I cannot guarantee what will come out as a result.";
1256	mes "There are too many factors in the world of alchemy";
1257	mes "where my knowledge is limited.";
1258	mes "So you must be willing to accept the result as it is";
1259	mes "even if it does not satisfy your expectations.";
1260	next;
1261	mes "[Tabezthan]";
1262	mes "That means that you should place trust in luck.";
1263	mes "Let's talk about it later...please go prepare the materials first.";
1264	mes "Come back when you are ready.";
1265	mes "I will wait here.";
1266
1267	set lv4_weapon, 15;
1268	break;
1269	case 2:
1270	mes "[Tabezthan]";
1271	mes "Oh...I see. I was not forcing you anyhow.";
1272	mes "However, it is a little bit dissappointing to hear that.";
1273	mes "I was going to display my ability at full length.";
1274	mes "When you change your mind, please come back.";
1275	break;
1276	}
1277	close;
1278
1279
1280
1281	//--------------------------------------------------
1282	//Gold, Steel, Emp Check + Choosing the gem
1283	//--------------------------------------------------
1284	LV4_15:
1285	if(countitem($@LV4_Gold) < 10) goto LV4_15_FAIL;
1286	if(countitem($@LV4_Steel) < 50) goto LV4_15_FAIL;
1287	if(countitem($@LV4_Emperium) < 10) goto LV4_15_FAIL;
1288
1289	mes "[Tabezthan]";
1290	mes "Ah~ you came back ealier than I thought.";
1291	mes "Let's see...you have all the basic materials...and";
1292	mes "we need one more thing, remember?";
1293	mes "Did you bring it as well?";
1294	next;
1295
1296	if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Olivine) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_POR;
1297	if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Olivine) >= 30) goto LV4_15_PO;
1298	if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_PR;
1299	if (countitem($@LV4_Olivine) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_OR;
1300	if (countitem($@LV4_Phlogopite) >= 30) goto LV4_15_P;
1301	if (countitem($@LV4_Olivine) >= 30) goto LV4_15_O;
1302	if (countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_R;
1303	goto LV4_15_NOGEM;
1304	end;
1305
1306
1307	LV4_15_POR:
1308	mes "[Tabezthan]";
1309	mes "You made a great effort to bring all of them.";
1310	mes "However, you can only use one kind at a time.";
1311	mes "Please choose what you want to use this time.";
1312	next;
1313
1314	switch( select( "Phlogopite", "Peridot", "Rose Quartz" ) ) {
1315	case 1:
1316	mes "[Tabezthan]";
1317	mes "Phlogopite...okay. Before we start,";
1318	set @gem, $@LV4_Phlogopite;
1319	set @gemstring$,"Phlogopite";
1320	break;
1321	case 2:
1322	mes "[Tabezthan]";
1323	mes "Peridot...okay. Before we start,";
1324	set @gem, $@LV4_Olivine;
1325	set @gemstring$,"Peridot";
1326	break;
1327	case 3:
1328	mes "[Tabezthan]";
1329	mes "Rose Quartz....okay. Before we start,";
1330	set @gem, $@LV4_Rose_Quartz;
1331	set @gemstring$,"Rose Quartz";
1332	break;
1333	}
1334
1335	goto LV4_15_PICK;
1336	end; // shouldn't be here
1337
1338
1339	LV4_15_PO:
1340	mes "[Tabezthan]";
1341	mes "Hahaha, I asked you to bring one kind not two.";
1342	mes "You can only use one kind of ore.";
1343	mes "Which one would you like to use?";
1344	next;
1345
1346	switch( select( "Phlogopite", "Peridot" ) ) {
1347	case 1:
1348	mes "[Tabezthan]";
1349	mes "Phlogopite...okay. Before we start,";
1350	set @gem, $@LV4_Phlogopite;
1351	set @gemstring$,"Phlogopite";
1352	break;
1353	case 2:
1354	mes "[Tabezthan]";
1355	mes "Peridot...okay. Before we start,";
1356	set @gem, $@LV4_Olivine;
1357	set @gemstring$,"Peridot";
1358	break;
1359	}
1360
1361	goto LV4_15_PICK;
1362	end; // shouldn't be here
1363
1364
1365	LV4_15_PR:
1366	mes "[Tabezthan]";
1367	mes "Hahaha, I asked you to bring one kind not two.";
1368	mes "You can only use one kind of ore.";
1369	mes "Which one would you like to use?";
1370	next;
1371
1372	switch( select( "Phlogopite", "Rose Quartz" ) ) {
1373	case 1:
1374	mes "[Tabezthan]";
1375	mes "Phlogopite...okay. Before we start,";
1376	set @gem, $@LV4_Phlogopite;
1377	set @gemstring$,"Phlogopite";
1378	break;
1379	case 2:
1380	mes "[Tabezthan]";
1381	mes "Rose Quartz....okay. Before we start,";
1382	set @gem, $@LV4_Rose_Quartz;
1383	set @gemstring$,"Rose Quartz";
1384	break;
1385	}
1386
1387	goto LV4_15_PICK;
1388	end; // shouldn't be here
1389
1390
1391	LV4_15_OR:
1392	mes "[Tabezthan]";
1393	mes "Hahaha, I asked you to bring one kind not two.";
1394	mes "You can only use one kind of ore.";
1395	mes "Which one would you like to use?";
1396	next;
1397
1398	switch( select( "Peridot", "Rose Quartz" ) ) {
1399	case 1:
1400	mes "[Tabezthan]";
1401	mes "Peridot...okay. Before we start,";
1402	set @gem, $@LV4_Olivine;
1403	set @gemstring$,"Peridot";
1404	break;
1405	case 2:
1406	mes "[Tabezthan]";
1407	mes "Rose Quartz....okay. Before we start,";
1408	set @gem, $@LV4_Rose_Quartz;
1409	set @gemstring$,"Rose Quartz";
1410	break;
1411	}
1412
1413	goto LV4_15_PICK;
1414	end; // shouldn't be here
1415
1416
1417	LV4_15_P:
1418	mes "[Tabezthan]";
1419	mes "Phlogopite...okay. Before we start,";
1420	set @gem, $@LV4_Phlogopite;
1421	set @gemstring$,"Phlogopite";
1422	goto LV4_15_PICK;
1423	end; // shouldn't be here
1424
1425
1426	LV4_15_O:
1427	mes "[Tabezthan]";
1428	mes "Peridot...okay. Before we start,";
1429	set @gem, $@LV4_Olivine;
1430	set @gemstring$,"Peridot";
1431	goto LV4_15_PICK;
1432	end; // shouldn't be here
1433
1434
1435	LV4_15_R:
1436	mes "[Tabezthan]";
1437	mes "Rose Quartz....okay. Before we start,";
1438	set @gem, $@LV4_Rose_Quartz;
1439	set @gemstring$,"Rose Quartz";
1440	goto LV4_15_PICK;
1441	end; // shouldn't be here
1442
1443
1444	LV4_15_PICK:
1445	mes "we must do one thing first.";
1446	mes "That is, to test your luck.";
1447	mes "As you already know,";
1448	mes "I cannot guarantee you that we will succeed";
1449	mes "in makeing one right away.";
1450	next;
1451	mes "[Tabezthan]";
1452	mes "If we can raise your luck before we start,";
1453	mes "we will be able to succeed.";
1454	next;
1455	mes "[Tabezthan]";
1456	mes "Now you must be wondering what we";
1457	mes "will do in order to increase your luck.";
1458	mes "It is simple, we will play a mind-reading game.";
1459	mes "I am going to think of one monster among 4 of my favorites,";
1460	mes "you will guess what the monster is.";
1461	next;
1462	mes "[Tabezthan]";
1463	mes "You must answer correctly at least";
1464	mes "1 out of 5 times. It should not be that difficult.";
1465	mes "And if you fail to answer correctly, we must do something else";
1466	mes "to drive away your bad luck.";
1467	next;
1468	mes "[Tabezthan]";
1469	mes "I will take 10 of the special ore you chose.";
1470	mes "Well, I understand that it does not sound tempting";
1471	mes "but let's think of it this way.";
1472	mes "It is much better than wasting 30 ore";
1473	mes "by failing to create the item, isn't it?";
1474	next;
1475	mes "[Tabezthan]";
1476	mes "Okay, now I need some time to prepare...";
1477	mes "Talk to you later!";
1478
1479	if(countitem($@LV4_Gold) < 10) goto LV4_HACK;
1480	if(countitem($@LV4_Steel) < 50) goto LV4_HACK;
1481	if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;
1482	delitem $@LV4_Gold, 10;
1483	delitem $@LV4_Steel, 50;
1484	delitem $@LV4_Emperium, 10;
1485	if(@gem == $@LV4_Phlogopite) set lv4_weapon, 16;
1486	if(@gem == $@LV4_Olivine) set lv4_weapon, 17;
1487	if(@gem == $@LV4_Rose_Quartz) set lv4_weapon, 18;
1488	close;
1489
1490
1491	LV4_15_NOGEM:
1492	mes "[Tabezthan]";
1493	mes "Hmmm...I cannot find any rare ores in";
1494	mes "the materials that you have brought...";
1495	mes "Please bring me 30 of an ore among Phlogopite, Peridot";
1496	mes "or Rose Quartz.";
1497	close;
1498
1499
1500	LV4_15_FAIL:
1501	mes "[Tabezthan]";
1502	mes "I need 10 Gold, 50 Steel and 10 Emperium";
1503	mes "as basic materials...";
1504	mes "and you can enchant the product with a certain trait.";
1505	mes "For that, I need some rare ores...";
1506	next;
1507	mes "[Tabezthan]";
1508	mes "Please bring me 30 of an ore among Phlogopite, Peridot or Rose Quartz.";
1509	mes "Each one of them possess their own attribute";
1510	mes "and by using the ore you have brought,";
1511	mes "my product will possess a special trait.";
1512	close;
1513
1514
1515
1516	//--------------------------------------------------
1517	//Guessing Game
1518	//--------------------------------------------------
1519	LV4_16:
1520	if(lv4_weapon == 16) set @gem, $@LV4_Phlogopite;
1521	if(lv4_weapon == 17) set @gem, $@LV4_Olivine;
1522	if(lv4_weapon == 18) set @gem, $@LV4_Rose_Quartz;
1523	if(countitem(@gem) < 30) goto LV4_16_NOGEM;
1524
1525	mes "[Tabezthan]";
1526	mes "Okay, let's get started!";
1527	mes "It is simple. There are";
1528	mes "4 monsters that I like. I am going to think";
1529	mes "of a monster among the 4, you will guess what it is.";
1530	mes "We will play this game 5 times and you must";
1531	mes "answer correctly at least 1 out of 5 times. Doesn't it sound easy?";
1532	next;
1533	mes "[Hibilaithan]";
1534	mes "This is a very good game for";
1535	mes "increasing your luck!";
1536	mes "Okay, better be ready now.";
1537	next;
1538
1539	set @dap, 0;
1540	set @correct[0],1;
1541	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
1542	mes "[Tabezthan]";
1543
1544	if(@i == 1) mes "I like Baphomet, Dark Lord,";
1545	if(@i == 1) mes "Bloody Knight, and Stormy Knight among all monsters.";
1546
1547	mes "Now, guess which one";
1548	mes "I am thinking at this moment.";
1549	next;
1550
1551	set @mons, rand(1, 4);
1552
1553	switch( select( "Baphomet", "Dark Lord", "Bloody Knight", "Stormy Knight" ) ) {
1554	case 1:
1555	set @correct[@i], 1;
1556	if(@mons == 1) set @dap, @dap + 1;
1557	break;
1558
1559	case 2:
1560	set @correct[@i], 2;
1561	if(@mons == 2) set @dap, @dap + 1;
1562	break;
1563
1564	case 3:
1565	set @correct[@i], 3;
1566	if(@mons == 3) set @dap, @dap + 1;
1567	break;
1568
1569	case 4:
1570	set @correct[@i], 4;
1571	if(@mons == 4) set @dap, @dap + 1;
1572	break;
1573	}
1574	}
1575
1576	mes "[Tabezthan]";
1577	mes "Okay, that's all! Now let me check";
1578	mes "the answers. I was thinking";
1579	mes "of the monsters in the order of...";
1580	next;
1581	mes "[Tabezthan]";
1582
1583	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
1584	if(@correct[@i] == 1) mes "Baphomet";
1585	if(@correct[@i] == 2) mes "Dark Lord";
1586	if(@correct[@i] == 3) mes "Bloody Knight";
1587	if(@correct[@i] == 4) mes "Stormy Knight";
1588	}
1589
1590	if(@dap < 1) goto LV4_16_FAIL;
1591
1592	next;
1593	mes "[Tabezthan]";
1594	mes "You have answered " + @dap + " times correctly.";
1595	mes "It seems that your luck is at its highest.";
1596	mes "I need some time to prepare, talk to you later.";
1597
1598	if(countitem(@gem) < 30) goto LV4_HACK;
1599	delitem @gem, 30;
1600	set lv4_weapon, lv4_weapon + 3;
1601	close;
1602
1603
1604	LV4_16_FAIL:
1605	if(countitem(@gem) < 10) goto LV4_HACK;
1606	delitem @gem, 10;
1607
1608	next;
1609	mes "[Tabezthan]";
1610	mes "Unfortunately you have failed...";
1611	mes "When you have bad luck, you'd better";
1612	mes "not expect a good result.";
1613	mes "Okay, we must drive away your bad luck.";
1614	mes "10 " + @gemstring$ + " will do it.";
1615	next;
1616	mes "[Tabezthan]";
1617	mes "Do not be so dissappointed.";
1618	mes "It is still better than wasting 30 of them";
1619	mes "for trying to make a thing when you know";
1620	mes "you would not make it. ";
1621	next;
1622	mes "[Tabezthan]";
1623	mes "If you need something to prepare,";
1624	mes "please do. I will wait for you here.";
1625	close;
1626
1627
1628	LV4_16_NOGEM:
1629	mes "[Tabezthan]";
1630	mes "Umm...it seems you are lacking " + @gemstring$;
1631	mes "Please count them and";
1632	mes "if you don't have enough,";
1633	mes "you can go gather more first.";
1634	close;
1635
1636
1637
1638	//--------------------------------------------------
1639	//Weapon Creation
1640	//--------------------------------------------------
1641	LV4_19:
1642	mes "[Tabezthan]";
1643	mes "Great, I am also ready.";
1644	mes "Shall we start now? Give me a minute.";
1645	mes "I need to arrange these materials in a magic circle.";
1646	next;
1647	mes "- He arranges materials in a strange circle -";
1648	mes "- and starts chanting in a strange language. -";
1649	mes "- As he does that, suddenly the air surrounding him -";
1650	mes "- seems to change and you feel something powerful-";
1651	mes "- gathering around him and the materials. -";
1652	next;
1653	mes "[Tabezthan]";
1654	mes "Please understand that the power is not from me.";
1655	mes "I just used my ability to gather the power into these materials.";
1656	mes "The power has come from the city of the dead.";
1657	next;
1658	mes "[Tabezthan]";
1659	mes "The result is in God's hands.";
1660	mes "Let's pray for a good result together.";
1661	mes "Hmmmmm!";
1662	next;
1663	mes "- After a while...you find the materials -";
1664	mes "- are gathering and combining into one new thing. -";
1665	mes "- Does that mean that you have succeeded or failed?! -";
1666	next;
1667	mes "[Tabezthan]";
1668	mes "?!...God must bless you!";
1669	mes "I cannot believe that I created such a rare weapon!";
1670	mes "Yes, my late father told me the name of this weapon.";
1671
1672	switch( lv4_weapon ) {
1673	case 19:
1674	mes "That is Caesar's Sword.";
1675	getitem 1134, 1; // 1134,Caesar's_Sword
1676	break;
1677	case 20:
1678	mes "That is Talefing.";
1679	getitem 1139, 1; // 1139,Talefing_
1680	break;
1681	case 21:
1682	mes "That is Sabbath.";
1683	getitem 1365, 1; // 1365,Sabbath
1684	break;
1685	}
1686
1687	set lv4_weapon, 0;
1688	mes "[Tabezthan]";
1689	mes "Now, since I made this with materials";
1690	mes "that you have brought, this is yours now.";
1691	mes "I only helped you to make it,";
1692	mes "and I am glad to give this to you.";
1693	next;
1694	mes "[Tabezthan]";
1695	mes "Well, feel free to come back";
1696	mes "if you want to make a thing again...hahaha.";
1697	mes "The weapon was made to be yours.";
1698	close;
1699
1700
1701
1702	//--------------------------------------------------
1703	//Other Quests
1704	//--------------------------------------------------
1705	LV4_14:
1706	mes "[Tabezthan]";
1707	mes "Umm...you don't have a business with me, do you?";
1708	mes "Please do not think of me as an old fool.";
1709	mes "When a man gets older, he can see through other people's minds.";
1710	mes "Go ahead and do what you have been doing.";
1711	mes "Do not let me intrrupt you any longer.";
1712	close;
1713
1714
1715
1716	//--------------------------------------------------
1717	//Hack Attempt
1718	//--------------------------------------------------
1719	LV4_HACK:
1720	mes "[Tabezthan]";
1721	mes "Hmm. There seems to be a bit of problem.";
1722	set lv4_weapon, 0;
1723	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
1724	close;
1725	}
1726
1727	//--------------------------------------------------
1728	// Bill Thayer, Gives hints for S grade weapons quests
1729	//--------------------------------------------------
1730
1731	aldebaran,178,239,3 script Bill Thayer 712,{
1732	// Explain Materials
1733	if(lv4_weapon == 26) goto LV4_26;
1734	if(lv4_weapon == 27) goto LV4_27;
1735	if(lv4_weapon == 28) goto LV4_28;
1736
1737	if(lv4_weapon == 35) goto LV4_35;
1738	if(lv4_weapon == 36) goto LV4_36;
1739	if(lv4_weapon == 37) goto LV4_37;
1740
1741	if(lv4_weapon == 44) goto LV4_44;
1742	if(lv4_weapon == 45) goto LV4_45;
1743	if(lv4_weapon == 46) goto LV4_46;
1744
1745	if(lv4_weapon == 53) goto LV4_53;
1746	if(lv4_weapon == 54) goto LV4_54;
1747	if(lv4_weapon == 55) goto LV4_55;
1748
1749	// Guide
1750	if(lv4_weapon == 22) goto LV4_22;
1751	if(lv4_weapon == 23) goto LV4_23;
1752
1753	if(lv4_weapon == 31) goto LV4_31;
1754	if(lv4_weapon == 32) goto LV4_32;
1755
1756	if(lv4_weapon == 40) goto LV4_40;
1757	if(lv4_weapon == 41) goto LV4_41;
1758
1759	if(lv4_weapon == 49) goto LV4_49;
1760	if(lv4_weapon == 50) goto LV4_50;
1761
1762	mes "[Bill Thayer]";
1763	mes "...I cannot do anything now.";
1764	mes "In the past, I used to be a well-known weaponsmith";
1765	mes "but now I am just a lonely old man who lost all of his sons.";
1766	mes "Please leave me alone.";
1767	close;
1768
1769	LV4_27:
1770	LV4_28:
1771	LV4_36:
1772	LV4_37:
1773	LV4_45:
1774	LV4_46:
1775	LV4_54:
1776	LV4_55:
1777	if(lv4_weapon == 27)
1778	{
1779	set @LV4_Gem1Name$, "Peridot";
1780	set @LV4_Gem2Name$, "Turquoise";
1781	set @LV4_Gem3Name$, "Agate";
1782	}
1783	if(lv4_weapon == 28)
1784	{
1785	set @LV4_Gem1Name$, "Phlogopite";
1786	set @LV4_Gem2Name$, "Pyroxene";
1787	set @LV4_Gem3Name$, "Rose Quartz";
1788	}
1789	if(lv4_weapon == 36)
1790	{
1791	set @LV4_Gem1Name$, "Muscovite";
1792	set @LV4_Gem2Name$, "Rose Quartz";
1793	set @LV4_Gem3Name$, "Peridot";
1794	}
1795	if(lv4_weapon == 37)
1796	{
1797	set @LV4_Gem1Name$, "Biotite";
1798	set @LV4_Gem2Name$, "Agate";
1799	set @LV4_Gem3Name$, "Citrine";
1800	}
1801	if(lv4_weapon == 45)
1802	{
1803	set @LV4_Gem1Name$, "Turquoise";
1804	set @LV4_Gem2Name$, "Biotite";
1805	set @LV4_Gem3Name$, "Rose Quartz";
1806	}
1807	if(lv4_weapon == 46)
1808	{
1809	set @LV4_Gem1Name$, "Citrine";
1810	set @LV4_Gem2Name$, "Pyroxene";
1811	set @LV4_Gem3Name$, "Phlogopite";
1812	}
1813	if(lv4_weapon == 54)
1814	{
1815	set @LV4_Gem1Name$, "Muscovite";
1816	set @LV4_Gem2Name$, "Agate";
1817	set @LV4_Gem3Name$, "Citrine";
1818	}
1819	if(lv4_weapon == 55)
1820	{
1821	set @LV4_Gem1Name$, "Pyroxene";
1822	set @LV4_Gem2Name$, "Turquoise";
1823	set @LV4_Gem3Name$, "Phlogopite";
1824	}
1825
1826	mes "[Bill Thayer]";
1827	mes "Hmm...it seems that you need 30 of";
1828	mes @LV4_Gem1Name$ + ", " + @LV4_Gem2Name$ + ", and " + @LV4_Gem3Name$;
1829	mes "I am sure that those are the materials...";
1830	mes "but I cannot guarantee anything about the result...";
1831	next;
1832	mes "[Bill Thayer]";
1833	mes "My sons passed away before we finished this research...";
1834	mes "Hahaha...let's not talk about it.";
1835	mes "I told you what you need anyway.";
1836	close;
1837
1838
1839	LV4_26:
1840	LV4_35:
1841	LV4_44:
1842	LV4_53:
1843	mes "[Bill Thayer]";
1844	if(lv4_weapon == 26) mes "What, Kayron's research?";
1845	if(lv4_weapon == 35) mes "What, Reyghema's research?";
1846	if(lv4_weapon == 44) mes "What? Hein's research?";
1847	if(lv4_weapon == 53) mes "What? Waltboughst's research?";
1848	mes "How do you know him?";
1849	mes "Were you a friend of him when he was still alive?";
1850	mes "Ah....there must an act of providence.";
1851	next;
1852
1853	set lv4_weapon, lv4_weapon + rand(1, 2);
1854
1855	switch( lv4_weapon ) {
1856	case 27:
1857	set @LV4_Gem1Name$, "Peridot";
1858	set LV4_Gem1, $@LV4_Olivine;
1859	set @LV4_Gem2Name$, "Turquoise";
1860	set LV4_Gem2, $@LV4_Turquoise;
1861	set @LV4_Gem3Name$, "Agate";
1862	set LV4_Gem3, $@LV4_Agate;
1863	break;
1864	case 28:
1865	set @LV4_Gem1Name$, "Phlogopite";
1866	set LV4_Gem1, $@LV4_Phlogopite;
1867	set @LV4_Gem2Name$, "Pyroxene";
1868	set LV4_Gem2, $@LV4_Pyroxene;
1869	set @LV4_Gem3Name$, "Rose Quartz";
1870	set LV4_Gem3, $@LV4_Rose_Quartz;
1871	break;
1872	case 36:
1873	set @LV4_Gem1Name$, "Muscovite";
1874	set LV4_Gem1, $@LV4_Muscovite;
1875	set @LV4_Gem2Name$, "Rose Quartz";
1876	set LV4_Gem2, $@LV4_Rose_Quartz ;
1877	set @LV4_Gem3Name$, "Peridot";
1878	set LV4_Gem3, $@LV4_Olivine;
1879	break;
1880	case 37:
1881	set @LV4_Gem1Name$, "Biotite";
1882	set LV4_Gem1, $@LV4_Biotite;
1883	set @LV4_Gem2Name$, "Agate";
1884	set LV4_Gem2, $@LV4_Agate;
1885	set @LV4_Gem3Name$, "Citrine";
1886	set LV4_Gem3, $@LV4_Citrine;
1887	break;
1888	case 45:
1889	set @LV4_Gem1Name$, "Turquoise";
1890	set LV4_Gem1, $@LV4_Turquoise;
1891	set @LV4_Gem2Name$, "Biotite";
1892	set LV4_Gem2, $@LV4_Biotite;
1893	set @LV4_Gem3Name$, "Rose Quartz";
1894	set LV4_Gem3, $@LV4_Rose_Quartz;
1895	break;
1896	case 46:
1897	set @LV4_Gem1Name$, "Citrine";
1898	set LV4_Gem1, $@LV4_Citrine;
1899	set @LV4_Gem2Name$, "Pyroxene";
1900	set LV4_Gem2, $@LV4_Pyroxene;
1901	set @LV4_Gem3Name$, "Phlogopite";
1902	set LV4_Gem3, $@LV4_Phlogopite;
1903	break;
1904	case 54:
1905	set @LV4_Gem1Name$, "Muscovite";
1906	set LV4_Gem1, $@LV4_Muscovite;
1907	set @LV4_Gem2Name$, "Agate";
1908	set LV4_Gem2, $@LV4_Agate;
1909	set @LV4_Gem3Name$, "Citrine";
1910	set LV4_Gem3, $@LV4_Citrine;
1911	break;
1912	case 55:
1913	set @LV4_Gem1Name$, "Pyroxene";
1914	set LV4_Gem1, $@LV4_Pyroxene;
1915	set @LV4_Gem2Name$, "Turquoise";
1916	set LV4_Gem2, $@LV4_Turquoise;
1917	set @LV4_Gem3Name$, "Phlogopite";
1918	set LV4_Gem3, $@LV4_Phlogopite;
1919	break;
1920	}
1921
1922	mes "[Bill Thayer]";
1923	mes "Hmm...it seems that you need 30 of";
1924	mes @LV4_Gem1Name$ + ", " + @LV4_Gem2Name$ + ", and " + @LV4_Gem3Name$;
1925	mes "I am sure that those are the materials...";
1926	mes "but I cannot guarantee anything about the result...";
1927	next;
1928	mes "[Bill Thayer]";
1929	mes "My sons passed away before we finished this research...";
1930	mes "Hahaha...let's not talk about it.";
1931	mes "I told you what you need anyway.";
1932	close;
1933
1934
1935	LV4_22:
1936	LV4_23:
1937	mes "[Bill Thayer]";
1938	mes "Oh well, I told you already";
1939	mes "that there is nothing I can do for you...";
1940	mes "since my sons are all gone...why are";
1941	mes "you wasting my breath? ^4D4DFFYou are helpless.^000000";
1942	set lv4_weapon, 23;
1943	next;
1944	mes "[Bill Thayer]";
1945	mes "...you just made me";
1946	mes "miss my sons again...";
1947	mes "Please leave me alone.";
1948	close;
1949
1950
1951	LV4_31:
1952	LV4_32:
1953	mes "[Bill Thayer]";
1954	mes "All of my sons broke my heart by dying young...";
1955	mes "...youth...what is youth?";
1956	mes "^4D4DFFThat means that you never regret anything!^000000";
1957	set lv4_weapon, 32;
1958	next;
1959	mes "[Bill Thayer]";
1960	mes "That was what I used to tell to my sons.";
1961	mes "Please remember that,";
1962	mes "never regret anything that you have done.";
1963	mes "However, in order to do that, you must";
1964	mes "do everything right...that's all I can tell you for now.";
1965	close;
1966
1967
1968	LV4_40:
1969	LV4_41:
1970	mes "[Bill Thayer]";
1971	mes "...no matter how much you are willing to pay me,";
1972	mes "I am not going to forge any weapons.";
1973	mes "Even when I was actively forging weapons,";
1974	mes "I didn't accept money from my clients.";
1975	mes "You know why?";
1976	next;
1977	mes "[Bill Thayer]";
1978	mes "It brings me bad luck ^4D4DFFto^000000";
1979	mes "^4D4DFFforge a good weapon.^000000";
1980	mes "Therefore I didn't receive money from them.";
1981	set lv4_weapon, 41;
1982	next;
1983	mes "[Bill Thayer]";
1984	mes "Well, I am not going to do so";
1985	mes "even if you offer me something else other than money";
1986	mes "...unless all of my sons come back";
1987	mes "alive....";
1988	close;
1989
1990
1991	LV4_49:
1992	LV4_50:
1993	mes "[Bill Thayer]";
1994	mes "...do you not have anything to do?";
1995	mes "I hope you stop bothering me";
1996	mes "and trying your best for your work.";
1997	mes "Ah...trying best does not always";
1998	mes "result in a success though.";
1999	next;
2000	mes "[Bill Thayer]";
2001	mes "However, ^4D4DFFall the successful men^000000";
2002	mes "^4D4DFFin the history tried their best!^000000";
2003	mes "I hope you will remember that.";
2004	mes "I used to tell this to my sons when they were alive.";
2005	mes "Hahaha...";
2006	set lv4_weapon, 50;
2007	close;
2008	}
2009
2010	//--------------------------------------------------
2011	// Kayron, creates Longinus' Spear, Guillotine, Great Axe and Brionac
2012	//--------------------------------------------------
2013
2014	niflheim,240,193,3 script Kayron 794,{
2015	set @NowWeight, MaxWeight - Weight;
2016	if (@NowWeight >= 3000) goto LV4_NOT_OW;
2017	mes "- Wait a minute! -";
2018	mes "- You are currently overweight. -";
2019	mes "- Please lose some weight -";
2020	mes "- and try again. -";
2021	close;
2022
2023
2024	LV4_NOT_OW:
2025	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
2026	mes "[Kayron]";
2027	mes "Bah, I cannot believe";
2028	mes "that such a weak man like you even came here.";
2029	mes "You have an invisible sign on your forehead";
2030	mes "that indicates you are a weakling. Be strong first.";
2031	close;
2032
2033
2034	LV4_LEVEL_PASS:
2035	if(lv4_weapon == 0) goto LV4_0;
2036	if(lv4_weapon < 22) goto LV4_21;
2037	if(lv4_weapon == 22) goto LV4_22;
2038	if(lv4_weapon == 23) goto LV4_23;
2039	if(lv4_weapon == 24) goto LV4_24;
2040	if(lv4_weapon == 25) goto LV4_25;
2041	if(lv4_weapon == 26) goto LV4_26;
2042	if(lv4_weapon == 27) goto LV4_27;
2043	if(lv4_weapon == 28) goto LV4_28;
2044	if(lv4_weapon == 29) goto LV4_29;
2045	if(lv4_weapon == 30) goto LV4_30;
2046	if(lv4_weapon > 30) goto LV4_31;
2047	end; // shouldn't be here
2048
2049
2050	LV4_0:
2051	LV4_22:
2052	mes "[Kayron]";
2053	mes "I used to be called Kayron when I was alive.";
2054	mes "But now I am nothing but";
2055	mes "a ghost wandering this place.";
2056	mes "I am worthless...I cannot do anything";
2057	mes "without a body...";
2058	next;
2059
2060	if(lv4_weapon == 0) goto LV4_0_ASK;
2061
2062	mes "[Kayron]";
2063	mes "Ah...I cannot remember what I was going to say...";
2064	mes "Waaahhh.....I cannot remember....";
2065	mes "My memory is gone...!";
2066	close;
2067
2068	LV4_0_ASK:
2069	switch( select( "Show interest.", "Ignore him." ) ) {
2070	case 1:
2071	mes "[Kayron]";
2072	mes "Ah...I cannot remember what I was going to say...";
2073	mes "Waaahhh.....I cannot remember....";
2074	mes "My memory is gone...!";
2075	set lv4_weapon, 22;
2076	close;
2077	break;
2078	case 2:
2079	mes "- Because you decided to ignore him, -";
2080	mes "- you are no longer able to hear him. -";
2081	close;
2082	break;
2083	}
2084	end;
2085
2086
2087	LV4_21:
2088	LV4_31:
2089	mes "[Kayron]";
2090	mes "I feel something different about you.";
2091	mes "Did you come here with a purpose?";
2092	mes "I am envious of you...";
2093	close;
2094
2095
2096	LV4_23:
2097	mes "[Kayron]";
2098	mes "I used to be called Kayron when I was alive.";
2099	mes "But now I am nothing but";
2100	mes "a ghost wandering this place.";
2101	mes "I am worthless...I cannot do anything";
2102	mes "without a body...";
2103	next;
2104	set @dap1$, "You are helpless.";
2105	input @answer1$;
2106	if(@answer1$ == @dap1$) goto LV4_23_CORRECT;
2107	mes "[Kayron]";
2108	mes "...? What did you just say?";
2109	mes "I am sorry but I don't think I understood you.";
2110	close;
2111
2112	LV4_23_CORRECT:
2113	mes "[Kayron]";
2114	mes "Yes, You are helpless...?! Eh?";
2115	mes "That was my father's favorite saying!";
2116	mes "Whoa?! Ah...";
2117	mes "Yes...I forgot that I am dead already.";
2118	mes "Why did you make me recall something from my past?";
2119	mes "It is no use now...";
2120	next;
2121	mes "[Kayron]";
2122	mes "But I want to do something in return...";
2123	mes "since you made me find a piece of my mind.";
2124	mes "I used to be a weaponsmith in the past,";
2125	mes "therefore I am going to forge a nice weapon for you.";
2126	next;
2127	mes "[Kayron]";
2128	mes "But you have to gather the materials for me.";
2129	mes "As you see, I do not have a body";
2130	mes "that would allow me to touch other objects...";
2131	mes "So you got to help me with that.";
2132	next;
2133	mes "[Kayron]";
2134	mes "Luckily this place is filled with mysterious energy,";
2135	mes "that makes my work easier!";
2136	mes "Heh, even if I fail to forge one,";
2137	mes "I don't have to worry about dying.";
2138	mes "Because I am dead already! Muhahahaha!";
2139	next;
2140	mes "[Kayron]";
2141	mes "I will talk to you in a while.";
2142	mes "I am trying to think of the receipe...";
2143	set lv4_weapon, 24;
2144	close;
2145
2146
2147	LV4_25:
2148	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_25_BASE_MAT;
2149	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_25_BASE_MAT;
2150	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_25_BASE_MAT;
2151	if(countitem($@LV4_Gold) < 20) goto LV4_25_BASE_MAT;
2152
2153	mes "[Kayron]";
2154	mes "Oh...you brought everything I need!";
2155	mes "You are a reliable person unlike your appearance.";
2156	mes "But here is the thing...";
2157	mes "There are some more materials I need...";
2158	mes "But I cannot think of any of them...my memory";
2159	mes "is unclear...arrrrph...";
2160	next;
2161	mes "[Kayron]";
2162	mes "I need to think about that a little longer.";
2163	mes "I know that I really need those materials...awwww....";
2164	mes "Do you have any idea to bring my memory back?";
2165	mes "At the same time, rest assured that the materials";
2166	mes "you brought will be used for my creation. So let me keep them for you.";
2167
2168	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
2169	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
2170	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
2171	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
2172	delitem $@LV4_Hammer_Of_Blacksmith, 2;
2173	delitem $@LV4_Emperium_Anvil, 1;
2174	delitem $@LV4_Illusion_Flower, 1;
2175	delitem $@LV4_Gold, 20;
2176	set lv4_weapon, 26;
2177	close;
2178
2179	LV4_24:
2180	LV4_25_BASE_MAT:
2181	switch( lv4_weapon ) {
2182	case 24:
2183	mes "[Kayron]";
2184	mes "Oh, you came back at a right time.";
2185	mes "I just finished my thoughts. Let me tell you one thing.";
2186	mes "I cannot guarantee you which weapon will come out of this.";
2187	mes "Also you must be willing to take a risk as well...";
2188	mes "I guess that the result will be affected by the power";
2189	mes "of Nifflheim at the time I make.";
2190	next;
2191	mes "[Kayron]";
2192	mes "Let me give you the list of materials";
2193	mes "I need. They are quite a lot,";
2194	mes "so write them down if you need.";
2195	break;
2196	case 25:
2197	mes "[Kayron]";
2198	mes "I will tell you the list of materials I need again.";
2199	mes "I think I need a lot of materials...so";
2200	mes "write them down if you need.";
2201	break;
2202	}
2203	next;
2204	mes "[Kayron]";
2205	mes "I need 2 Hammer of Blacksmith,";
2206	mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
2207	next;
2208	mes "[Kayron]";
2209	mes "Bring these to me first. I am kind of worried";
2210	mes "that I forgot something...but I will try to remember";
2211	mes "while waiting for you to bring these items.";
2212	next;
2213	mes "[Kayron]";
2214	mes "Have a safe travel.";
2215	set lv4_weapon, 25;
2216	close;
2217
2218
2219	LV4_27:
2220	LV4_28:
2221	if(countitem(LV4_Gem1) < 30) goto LV4_27_NOGEM;
2222	if(countitem(LV4_Gem2) < 30) goto LV4_27_NOGEM;
2223	if(countitem(LV4_Gem3) < 30) goto LV4_27_NOGEM;
2224	mes "[Kayron]";
2225	mes "...Um? The items that you brought to me seem";
2226	mes "to be good materials for my creation...";
2227	mes "Give them to me, I shall try first!";
2228	next;
2229	mes "[Kayron]";
2230	mes "Oh...I was right! How did you";
2231	mes "know these are materials I need?";
2232	mes "Great, give me a moment!";
2233	next;
2234	mes "[Kayron]";
2235	mes "...wait, I must test your luck first.";
2236	mes "Since I am not sure about the result,";
2237	mes "we should place trust in luck for the result of my creation.";
2238	mes "You must have good luck...";
2239	next;
2240	mes "[Kayron]";
2241	mes "We are going to play 'Rock, Paper, Scissors'.";
2242	mes "You must win at least 2 out of 3 times.";
2243	mes "If you fail, you must throw away a large amount";
2244	mes "of one of the 3 kinds of ore that you have brought.";
2245	mes "It is for driving away your bad luck.";
2246	next;
2247	mes "[Kayron]";
2248	mes "I will give you a piece of paper.";
2249	mes "You will write down one among 'Rock, Paper, or Scissors'.";
2250	mes "I will do the same at the same time.";
2251	mes "We will compare each other's paper after.";
2252	next;
2253
2254	set @shobu, 0;
2255
2256	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
2257	if(@i == 2) mes "[Kayron]";
2258	if(@i == 2) mes "Let's play the second one!";
2259	if(@i == 3) mes "[Kayron]";
2260	if(@i == 3) mes "This will be the last one!";
2261	if(@i == 3) mes "Let's compare after this.";
2262	set @npchand[@i], rand(1, 3);
2263	switch( select( "Scissors", "Rock", "Paper" ) ) {
2264	case 1:
2265	set @myhand[@i], 1;
2266	if(@npchand[@i] == 3) set @shobu, @shobu + 1;
2267	break;
2268	case 2:
2269	set @myhand[@i], 2;
2270	if(@npchand[@i] == 1) set @shobu, @shobu + 1;
2271	break;
2272	case 3:
2273	set @myhand[@i], 3;
2274	if(@npchand[@i] == 2) set @shobu, @shobu + 1;
2275	break;
2276	}
2277	}
2278
2279	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
2280	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
2281	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
2282
2283	if(@shobu > 1) goto LV4_27_WIN;
2284
2285	switch ( rand(1 ,3) ) {
2286	case 1:
2287	delitem LV4_Gem1, 30;
2288	break;
2289	case 2:
2290	delitem LV4_Gem2, 30;
2291	break;
2292	case 3:
2293	delitem LV4_Gem3, 30;
2294	break;
2295	}
2296	goto LV4_27_RESULT;
2297
2298	LV4_27_WIN:
2299	delitem LV4_Gem1, 30;
2300	delitem LV4_Gem2, 30;
2301	delitem LV4_Gem3, 30;
2302	set lv4_weapon, lv4_weapon + 2;
2303	goto LV4_27_RESULT;
2304
2305	LV4_27_RESULT:
2306	mes "[Kayron]";
2307	mes "Okay...I played in the order of...";
2308
2309	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
2310	if(@npchand[@i] == 1) mes "Scissors";
2311	if(@npchand[@i] == 2) mes "Rock";
2312	if(@npchand[@i] == 3) mes "Paper";
2313	}
2314
2315	next;
2316	mes "[Kayron]";
2317	mes "You did in the order of...";
2318
2319	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
2320	if(@myhand[@i] == 1) mes "Scissors";
2321	if(@myhand[@i] == 2) mes "Rock";
2322	if(@myhand[@i] == 3) mes "Paper";
2323	}
2324
2325	next;
2326
2327	if(@shobu > 1) goto LV4_27_SAY_WIN;
2328
2329	mes "[Kayron]";
2330	mes "Well well well...you lost the game.";
2331	mes "Ah~ you were close though...";
2332	mes "We must drive away bad luck.";
2333	next;
2334	mes "[Kayron]";
2335	mes "Okay, I will wait here,";
2336	mes "go bring me the materials again...";
2337	close;
2338
2339	LV4_27_SAY_WIN:
2340	mes "[Kayron]";
2341	mes "Let's see...";
2342	mes "You won total " + @shobu + " times.";
2343	mes "Ah~ you must be really good at game!";
2344	mes "Yes, your luck is at its highest!";
2345	next;
2346	mes "[Kayron]";
2347	mes "I am going to keep my promise.";
2348	mes "But I need some time to prepare.";
2349	mes "Give me the materials now and I will talk to you later.";
2350	close;
2351
2352	LV4_26:
2353	LV4_27_NOGEM:
2354	mes "[Kayron]";
2355	mes "Arph...it has not gotten into my memory yet.";
2356	mes "Awww....this is a problem.";
2357	mes "I used to often discuss the materials";
2358	mes "with my family...now I cannot remember what they are...";
2359	close;
2360
2361
2362	LV4_29:
2363	LV4_30:
2364	mes "[Kayron]";
2365	mes "Hahaha...you came back at the right time.";
2366	mes "The result? Do you want to know about the result?...";
2367	mes "Haha...okay...let's see...";
2368	next;
2369	mes "[Kayron]";
2370	mes "...YES! It's a success!";
2371	mes "I created the weapon that got me killed last time!";
2372	mes "Look at this...haha! I died while making this!";
2373	mes "... The name of the weapon is...";
2374
2375
2376	switch( rand(1, 2) ) {
2377	case 1:
2378	if(lv4_weapon == 29) mes "Great Axe! Weee~ I made it!";
2379	if(lv4_weapon == 29) getitem 1364 ,1; // 1364,Great_Axe
2380	if(lv4_weapon == 30) mes "Longinus's Spear! Weee~ I made it!";
2381	if(lv4_weapon == 30) getitem 1469, 1; // 1469,Longinus's_Spear
2382	break;
2383	case 2:
2384	if(lv4_weapon == 29) mes "Guillotine! Weee~ I made it!";
2385	if(lv4_weapon == 29) getitem 1369, 1; // 1369,Guillotine
2386	if(lv4_weapon == 30) mes "Brionac! Weee~ I made it!";
2387	if(lv4_weapon == 30) getitem 1470, 1; // 1470,Brionac
2388	}
2389
2390	set lv4_weapon, 0;
2391	next;
2392	mes "[Kayron]";
2393	mes "I finally succeeded in the research...";
2394	mes "I want to show this result to my father...";
2395	mes "He will be really happy for this.";
2396	next;
2397	mes "[Kayron]";
2398	mes "Ah~ I feel my memories are fading again...";
2399	mes "If you see me next time...";
2400	mes "please let me remember the memories again...";
2401	mes "Thank you...";
2402	close;
2403
2404
2405
2406	//--------------------------------------------------
2407	//Hack Attempt
2408	//--------------------------------------------------
2409	LV4_HACK:
2410	mes "[Kayron]";
2411	mes "Hmm. There seems to be a bit of problem.";
2412	set lv4_weapon, 0;
2413	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
2414	close;
2415	}
2416
2417	//--------------------------------------------------
2418	// Reyghema, creates Berserk, Tjungkulleti, Rudra's Bow and Brocca(Skewer)
2419	//--------------------------------------------------
2420
2421	niflheim,99,268,5 script Reyghema 794,{
2422	set @NowWeight, MaxWeight - Weight;
2423	if (@NowWeight >= 3000) goto LV4_NOT_OW;
2424	mes "- Wait a minute! -";
2425	mes "- You are currently overweight. -";
2426	mes "- Please lose some weight -";
2427	mes "- and try again. -";
2428	close;
2429
2430
2431	LV4_NOT_OW:
2432	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
2433	mes "[Reyghema]";
2434	mes "Um? Do you have any business with me?";
2435	mes "Sorry but I don't. I'm also not";
2436	mes "speaking to a weak person like you.";
2437	mes "Have a safe travel~";
2438	close;
2439
2440
2441	LV4_LEVEL_PASS:
2442	if(lv4_weapon == 0) goto LV4_0;
2443	if(lv4_weapon < 31) goto LV4_30;
2444	if(lv4_weapon == 31) goto LV4_31;
2445	if(lv4_weapon == 32) goto LV4_32;
2446	if(lv4_weapon == 33) goto LV4_33;
2447	if(lv4_weapon == 34) goto LV4_34;
2448	if(lv4_weapon == 35) goto LV4_35;
2449	if(lv4_weapon == 36) goto LV4_36;
2450	if(lv4_weapon == 37) goto LV4_37;
2451	if(lv4_weapon == 38) goto LV4_38;
2452	if(lv4_weapon == 39) goto LV4_39;
2453	if(lv4_weapon > 39) goto LV4_40;
2454	end; // shouldn't be here
2455
2456
2457	LV4_0:
2458	LV4_31:
2459	mes "[Reyghema]";
2460	mes "Darn it...I didn't want to die!";
2461	mes "Well...there is no living thing that wants to die but...";
2462	mes "Especially me, I was too young to die!";
2463	mes "Youth! ...Ah...I just remember the word.";
2464	mes "Speaking of which...I think I usually said something related to that...";
2465	next;
2466
2467	if(lv4_weapon == 0) goto LV4_0_ASK;
2468
2469	mes "[Reyghema]";
2470	mes "Ah...I cannot remember what I was going to say...";
2471	mes "Waaahhh.....I cannot remember....";
2472	mes "My memory is gone...!";
2473	close;
2474
2475	LV4_0_ASK:
2476	switch( select( "Show interest.", "Igonore him." ) ) {
2477	case 1:
2478	mes "[Reyghema]";
2479	mes "Ah...I cannot remember what I was going to say...";
2480	mes "Waaahhh.....I cannot remember....";
2481	mes "My memory is gone...!";
2482	set lv4_weapon, 31;
2483	close;
2484	break;
2485	case 2:
2486	mes "- Because you decided to ignore him, -";
2487	mes "- you are no longer able to hear him. -";
2488	close;
2489	break;
2490	}
2491	end;
2492
2493
2494	LV4_30:
2495	LV4_40:
2496	mes "[Reyghema]";
2497	mes "I feel something different about you.";
2498	mes "Did you come here with a purpose?";
2499	mes "I am envious of you...";
2500	close;
2501
2502
2503	LV4_32:
2504	mes "[Reyghema]";
2505	mes "I used to be called Reyghema when I was alive.";
2506	mes "But now I am nothing but";
2507	mes "a ghost wandering this place.";
2508	mes "I am worthless...I cannot do anything";
2509	mes "without a body...";
2510	next;
2511	set @dap2$, "That means that you never regret anything!";
2512	input @answer2$;
2513	if(@answer2$ == @dap2$) goto LV4_32_CORRECT;
2514	mes "[Reyghema]";
2515	mes "What? Do you want to play a game with me or what?";
2516	mes "Unfortunately I have something to do...";
2517	mes "wait...what was I going to do?";
2518	close;
2519
2520	LV4_32_CORRECT:
2521	mes "[Reyghema]";
2522	mes "...";
2523	next;
2524	mes "[Reyghema]";
2525	mes "...";
2526	mes "......";
2527	next;
2528	mes "[Reyghema]";
2529	mes "...";
2530	mes "......";
2531	mes ".........";
2532	next;
2533	mes "[Reyghema]";
2534	mes "That's right! I am Bill Thayer the Weaponsmith's";
2535	mes "second son! And I must forge a weapon";
2536	mes "in order to not regret my youth!";
2537	mes "Even if I am dead, I cannot give it up!";
2538	next;
2539	mes "[Reyghema]";
2540	mes "Hey you, thank you for letting me have my memory back!";
2541	mes "You need to do me another favor!";
2542	mes "Bring me some items, I need to forge a weapon.";
2543	mes "Once I make one, I will give it to you in return for your favor.";
2544	next;
2545	mes "[Reyghema]";
2546	mes "Reyghema, breathe deeply first...phew~.";
2547	mes "Give me a second!";
2548	set lv4_weapon, 33;
2549	close;
2550
2551
2552	LV4_34:
2553	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_34_BASE_MAT;
2554	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_34_BASE_MAT;
2555	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_34_BASE_MAT;
2556	if(countitem($@LV4_Gold) < 20) goto LV4_34_BASE_MAT;
2557
2558	mes "[Reyghema]";
2559	mes "Oh...you brought everything I need!";
2560	mes "You are a reliable person unlike you appear.";
2561	mes "But here is the thing...";
2562	mes "There are some more materials I need...";
2563	mes "But I cannot think of any of them...my memory";
2564	mes "is unclear...arrrrph...";
2565	next;
2566	mes "[Reyghema]";
2567	mes "I need to think about that a little longer.";
2568	mes "I know that I really need those materials...awwww....";
2569	mes "Do you have any idea to bring my memory back?";
2570	mes "At the same time, rest assured that the materials";
2571	mes "you brought will be used for my creation. So let me keep them for you.";
2572
2573	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
2574	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
2575	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
2576	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
2577	delitem $@LV4_Hammer_Of_Blacksmith, 2;
2578	delitem $@LV4_Emperium_Anvil, 1;
2579	delitem $@LV4_Illusion_Flower, 1;
2580	delitem $@LV4_Gold, 20;
2581	set lv4_weapon, 35;
2582	close;
2583
2584	LV4_33:
2585	LV4_34_BASE_MAT:
2586	switch( lv4_weapon ) {
2587	case 33:
2588	mes "[Reyghema]";
2589	mes "Okay. You don't need any other explaination, do you?";
2590	mes "I will tell you what I need";
2591	mes "so please do not forget those materials.";
2592	break;
2593	case 34:
2594	mes "[Reyghema]";
2595	mes "I will tell you the list of materials I need again.";
2596	mes "I think I need a lot of materials...so";
2597	mes "write them down if you need.";
2598	break;
2599	}
2600	next;
2601	mes "[Reyghema]";
2602	mes "I need 2 Hammer of Blacksmith,";
2603	mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
2604	mes "...wait...are they all...or do I need more?!";
2605	if(lv4_weapon == 33) next;
2606	if(lv4_weapon == 33) mes "[Reyghema]";
2607	if(lv4_weapon == 33) mes "Ah...I think need something more...it's very important...";
2608	if(lv4_weapon == 33) mes "But I cannot remember what more I need....!";
2609	if(lv4_weapon == 33) mes "Bah...this is so frustrating.";
2610	set lv4_weapon, 34;
2611	close;
2612
2613
2614	LV4_36:
2615	LV4_37:
2616	if(countitem(LV4_Gem1) < 30) goto LV4_36_NOGEM;
2617	if(countitem(LV4_Gem2) < 30) goto LV4_36_NOGEM;
2618	if(countitem(LV4_Gem3) < 30) goto LV4_36_NOGEM;
2619	mes "[Reyghema]";
2620	mes "...Um? The items that you brought to me seem";
2621	mes "to be good materials for my creation...";
2622	mes "Give them to me, I shall try first!";
2623	next;
2624	mes "[Reyghema]";
2625	mes "Oh...I was right! How did you";
2626	mes "know these are materials I need?";
2627	mes "Great, give me a moment!";
2628	next;
2629	mes "[Reyghema]";
2630	mes "...wait, I must test your luck first.";
2631	mes "Since I am not sure about the result,";
2632	mes "we should place trust in luck for the result of my creation.";
2633	mes "You must have good luck...";
2634	next;
2635	mes "[Reyghema]";
2636	mes "We are going to play 'Rock, Paper, Scissors'.";
2637	mes "You must win at least 2 out of 3 times.";
2638	mes "If you fail, you must leave a large amount";
2639	mes "of one material you have brought.";
2640	mes "It is for driving away your bad luck.";
2641	next;
2642	mes "[Reyghema]";
2643	mes "I will give you a piece of paper.";
2644	mes "You will write down one among 'Rock, Paper, or Scissors'.";
2645	mes "I will do the same at the same time.";
2646	mes "We will then compare each other's paper.";
2647	next;
2648
2649	set @shobu, 0;
2650
2651	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
2652	if(@i == 2) mes "[Reyghema]";
2653	if(@i == 2) mes "Let's play the second one!";
2654	if(@i == 3) mes "[Reyghema]";
2655	if(@i == 3) mes "This will be the last one!";
2656	if(@i == 3) mes "Let's compare after this.";
2657	set @npchand[@i], rand(1, 3);
2658	switch( select( "Scissors", "Rock", "Paper" ) ) {
2659	case 1:
2660	set @myhand[@i], 1;
2661	if(@npchand[@i] == 3) set @shobu, @shobu + 1;
2662	break;
2663	case 2:
2664	set @myhand[@i], 2;
2665	if(@npchand[@i] == 1) set @shobu, @shobu + 1;
2666	break;
2667	case 3:
2668	set @myhand[@i], 3;
2669	if(@npchand[@i] == 2) set @shobu, @shobu + 1;
2670	break;
2671	}
2672	}
2673
2674	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
2675	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
2676	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
2677
2678	if(@shobu > 1) goto LV4_36_WIN;
2679
2680	switch ( rand(1 ,3) ) {
2681	case 1:
2682	delitem LV4_Gem1, 30;
2683	break;
2684	case 2:
2685	delitem LV4_Gem2, 30;
2686	break;
2687	case 3:
2688	delitem LV4_Gem3, 30;
2689	break;
2690	}
2691	goto LV4_36_RESULT;
2692
2693	LV4_36_WIN:
2694	delitem LV4_Gem1, 30;
2695	delitem LV4_Gem2, 30;
2696	delitem LV4_Gem3, 30;
2697	set lv4_weapon, lv4_weapon + 2;
2698	goto LV4_36_RESULT;
2699
2700	LV4_36_RESULT:
2701	mes "[Reyghema]";
2702	mes "Okay...I played in the order of...";
2703
2704	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
2705	if(@npchand[@i] == 1) mes "Scissors";
2706	if(@npchand[@i] == 2) mes "Rock";
2707	if(@npchand[@i] == 3) mes "Paper";
2708	}
2709
2710	next;
2711	mes "[Reyghema]";
2712	mes "You did in the order of...";
2713
2714	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
2715	if(@myhand[@i] == 1) mes "Scissors";
2716	if(@myhand[@i] == 2) mes "Rock";
2717	if(@myhand[@i] == 3) mes "Paper";
2718	}
2719
2720	next;
2721
2722	if(@shobu > 1) goto LV4_36_SAY_WIN;
2723
2724	mes "[Reyghema]";
2725	mes "Well well well...you lost the game.";
2726	mes "Ah~ you were close though...";
2727	mes "We must drive away bad luck.";
2728	next;
2729	mes "[Reyghema]";
2730	mes "Okay, I will wait here,";
2731	mes "go bring me the materials again...";
2732	close;
2733
2734	LV4_36_SAY_WIN:
2735	mes "[Reyghema]";
2736	mes "Let's see...";
2737	mes "You won total " + @shobu + " times.";
2738	mes "Ah~ you must be really good at game!";
2739	mes "Yes, your luck is at its highest!";
2740	next;
2741	mes "[Reyghema]";
2742	mes "I am going to keep my promise.";
2743	mes "But I need some time to prepare.";
2744	mes "Give me the materials now and I will talk to you later.";
2745	close;
2746
2747	LV4_35:
2748	LV4_36_NOGEM:
2749	mes "[Reyghema]";
2750	mes "Not yet! I have not remembered it yet! Awwww...";
2751	mes "This is killing me...";
2752	mes "Oh, wait...I died already...";
2753	mes "God damn it!";
2754	close;
2755
2756
2757	LV4_38:
2758	LV4_39:
2759	mes "[Reyghema]";
2760	mes "..................";
2761	next;
2762	mes "[Reyghema]";
2763	mes "...YES! It's a success!";
2764	mes "I created the weapon that got me killed last time!";
2765	mes "Look at this...haha! I died while making this!";
2766	mes "... The name of the weapon is...";
2767
2768	switch( rand(1, 2) ) {
2769	case 1:
2770	if(lv4_weapon == 38) mes "Berserk! Weee~ Weee~ I made it!";
2771	if(lv4_weapon == 38) getitem 1814 ,1; // 1814,Berserk
2772	if(lv4_weapon == 39) mes "Tjungkuletti! Weee~ I made it!";
2773	if(lv4_weapon == 39) getitem 1416, 1; // 1416,Tjungkuletti
2774	break;
2775	case 2:
2776	if(lv4_weapon == 38) mes "Rudra's Bow! Weee~ I made it!";
2777	if(lv4_weapon == 38) getitem 1720, 1; // 1720,Bow_of_Rudra
2778	if(lv4_weapon == 39) mes "Brocca!";
2779	if(lv4_weapon == 39) getitem 1415, 1; // 1415,Skewer
2780	}
2781
2782	set lv4_weapon, 0;
2783	next;
2784	mes "[Reyghema]";
2785	mes "...sigh.";
2786	next;
2787	mes "[Reyghema]";
2788	mes "Happiness lasts too short...";
2789	mes "As I am a dead man, I think I am not allowed";
2790	mes "to keep the memory of past....";
2791	mes "My memory is fading again...";
2792	next;
2793	mes "[Reyghema]";
2794	mes "But thank you for letting me achieve";
2795	mes "my long-cherished desire.";
2796	mes "If we meet again, please let me";
2797	mes "retrieve my memory of past again.";
2798	mes "So I can try forging another weapon.";
2799	next;
2800	mes "[Reyghema]";
2801	mes "Farewell, adventurer.";
2802	close;
2803
2804
2805
2806	//--------------------------------------------------
2807	//Hack Attempt
2808	//--------------------------------------------------
2809	LV4_HACK:
2810	mes "[Reyghema]";
2811	mes "Hmm. There seems to be a bit of problem.";
2812	set lv4_weapon, 0;
2813	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
2814	close;
2815	}
2816
2817	//--------------------------------------------------
2818	// Hein, creates Excalibur, Schweisersabel, Dragon Slayer and Edge
2819	//--------------------------------------------------
2820
2821	niflheim,187,280,3 script Hein 795,{
2822	set @NowWeight, MaxWeight - Weight;
2823	if (@NowWeight >= 3000) goto LV4_NOT_OW;
2824	mes "- Wait a minute! -";
2825	mes "- You are currently overweight. -";
2826	mes "- Please lose some weight -";
2827	mes "- and try again. -";
2828	close;
2829
2830
2831	LV4_NOT_OW:
2832	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
2833	mes "[Hein]";
2834	mes "You should care about other people";
2835	mes "more than yourself...";
2836	mes "You are quite weak for an adventurer.";
2837	close;
2838
2839
2840	LV4_LEVEL_PASS:
2841	if(lv4_weapon == 0) goto LV4_0;
2842	if(lv4_weapon < 40) goto LV4_39;
2843	if(lv4_weapon == 40) goto LV4_40;
2844	if(lv4_weapon == 41) goto LV4_41;
2845	if(lv4_weapon == 42) goto LV4_42;
2846	if(lv4_weapon == 43) goto LV4_43;
2847	if(lv4_weapon == 44) goto LV4_44;
2848	if(lv4_weapon == 45) goto LV4_45;
2849	if(lv4_weapon == 46) goto LV4_46;
2850	if(lv4_weapon == 47) goto LV4_47;
2851	if(lv4_weapon == 48) goto LV4_48;
2852	if(lv4_weapon > 48) goto LV4_49;
2853	end; // shouldn't be here
2854
2855
2856	LV4_0:
2857	LV4_40:
2858	mes "[Hein]";
2859	mes "Ah...are you going to ask me something?";
2860	mes "However, I am not accepting money";
2861	mes "from my client. Because.";
2862	mes "It brings me bad luck to...";
2863	mes "...whaat? What did I just say?";
2864	mes "Awww....I am confused.";
2865	next;
2866
2867	if(lv4_weapon == 0) goto LV4_0_ASK;
2868
2869	mes "[Hein]";
2870	mes "Why did I speak of money?";
2871	mes "I am a dead man and dead people";
2872	mes "do not need money...arf!";
2873	mes "My head is hurting...I guess that";
2874	mes "a dead man can have a headache!";
2875	close;
2876
2877	LV4_0_ASK:
2878	switch( select( "Show interest.", "Igonore him." ) ) {
2879	case 1:
2880	mes "[Hein]";
2881	mes "Why did I speak of money?";
2882	mes "I am a dead man and dead people";
2883	mes "do not need money...arf!";
2884	mes "My head is hurting...I guess that";
2885	mes "a dead man can have a headache!";
2886	set lv4_weapon, 40;
2887	close;
2888	break;
2889	case 2:
2890	mes "- Because you decided to ignore him, -";
2891	mes "- you are no longer able to hear him. -";
2892	close;
2893	break;
2894	}
2895	end;
2896
2897
2898	LV4_39:
2899	LV4_49:
2900	mes "[Hein]";
2901	mes "I feel something different from you.";
2902	mes "Did you come here with a purpose?";
2903	mes "I am envious of you...";
2904	close;
2905
2906
2907	LV4_41:
2908	mes "[Hein]";
2909	mes "Ah...are you going to ask me something?";
2910	mes "However, I am not accepting money";
2911	mes "from my client. Because.";
2912	mes "It brings me bad luck to...";
2913	next;
2914	set @dap3$, "to forge a good weapon.";
2915	input @answer3$;
2916	if(@answer3$ == @dap3$) goto LV4_41_CORRECT;
2917	mes "[Hein]";
2918	mes "...? What are you talking about?";
2919	mes "What was I going to say?";
2920	mes "Arf....my head is hurting...!";
2921	close;
2922
2923	LV4_41_CORRECT:
2924	mes "[Hein]";
2925	mes "That's right! It's bad luck!";
2926	mes "Creating weapons is betting! And I am...I am?";
2927	mes "Oh right...I forgot that. Yes, I am dead.";
2928	mes "Ahahahahaha.";
2929	set lv4_weapon, 42;
2930	next;
2931	mes "[Hein]";
2932	mes "Well, I must be a lucky dead man";
2933	mes "for remembering my past!";
2934	mes "Hahahahaha!";
2935	next;
2936	mes "[Hein]";
2937	mes "Perhaps God wants me to";
2938	mes "continue my research...?";
2939	mes "wait, let me ask you a favor.";
2940	next;
2941	mes "[Hein]";
2942	mes "Can you bring me some materials";
2943	mes "that I need for my research?";
2944	mes "If I succeed in the research,";
2945	mes "I will give you the result in return.";
2946	next;
2947	mes "[Hein]";
2948	mes "You can take your time to think of my offer.";
2949	mes "Please talk to me later.";
2950	close;
2951
2952
2953	LV4_43:
2954	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_43_BASE_MAT;
2955	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_43_BASE_MAT;
2956	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_43_BASE_MAT;
2957	if(countitem($@LV4_Gold) < 20) goto LV4_43_BASE_MAT;
2958
2959	mes "[Hein]";
2960	mes "Oh, you have brought the materials I asked.";
2961	mes "Here's the thing. I cannot remember what I need other than those...";
2962	mes "Aww....I need some more time to think of them...";
2963	next;
2964	mes "[Hein]";
2965	mes "Please try to search what I need...if you can.";
2966	mes "Of course, it will not be an easy job for you";
2967	mes "to do so...but I know you have a body to move with your will...";
2968	mes "It is still better than being a ghost like me...";
2969	next;
2970	mes "[Hein]";
2971	mes "Please give me all the materials you have brought.";
2972	mes "I will keep them for you.";
2973
2974	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
2975	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
2976	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
2977	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
2978	delitem $@LV4_Hammer_Of_Blacksmith, 2;
2979	delitem $@LV4_Emperium_Anvil, 1;
2980	delitem $@LV4_Illusion_Flower, 1;
2981	delitem $@LV4_Gold, 20;
2982	set lv4_weapon, 44;
2983	close;
2984
2985	LV4_42:
2986	LV4_43_BASE_MAT:
2987	switch( lv4_weapon ) {
2988	case 42:
2989	mes "[Hein]";
2990	mes "I will take you speaking to me again";
2991	mes "as the approval of my request.";
2992	mes "Thank you so much.";
2993	next;
2994	mes "[Hein]";
2995	mes "I need 2 Hammer of Blacksmith,";
2996	mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
2997	mes "Most likely they are the ones I need.";
2998	next;
2999	mes "[Hein]";
3000	mes "And I do need 3 more things...";
3001	mes "but I have a hard time remembering what they are.";
3002	mes "That means that my memory of the past is not";
3003	mes "absolutely back.";
3004	next;
3005	mes "[Hein]";
3006	mes "sigh...I am so sorry to ask of you this...";
3007	mes "but please search for what those 3 things are.";
3008	mes "In the meantime, I will try to remember them.";
3009	mes "Thank you.";
3010	set lv4_weapon, 43;
3011	break;
3012	case 43:
3013	mes "[Hein]";
3014	mes "I need 2 Hammer of Blacksmith,";
3015	mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
3016	mes "Most likely they are the ones I need.";
3017	break;
3018	}
3019	close;
3020
3021
3022	LV4_45:
3023	LV4_46:
3024	if(countitem(LV4_Gem1) < 30) goto LV4_45_NOGEM;
3025	if(countitem(LV4_Gem2) < 30) goto LV4_45_NOGEM;
3026	if(countitem(LV4_Gem3) < 30) goto LV4_45_NOGEM;
3027	mes "[Hein]";
3028	mes "...Um? The items that you brought to me seem";
3029	mes "to be good materials for my creation...";
3030	mes "Give them to me, I shall try first!";
3031	next;
3032	mes "[Hein]";
3033	mes "Oh...I was right! How did you";
3034	mes "know these are materials I need?";
3035	mes "Great, give me a moment!";
3036	next;
3037	mes "[Hein]";
3038	mes "...Wait, I must test your luck first.";
3039	mes "Since I am not sure about the result,";
3040	mes "we should trust to luck for the result of my creation.";
3041	mes "You must have good luck...";
3042	next;
3043	mes "[Hein]";
3044	mes "We are going to play 'Rock, Paper, Scissors'.";
3045	mes "You must win at least 2 out of 3 times.";
3046	mes "If you fail, you must leave a large amount";
3047	mes "of one material you have brought.";
3048	mes "It is for driving away your bad luck.";
3049	next;
3050	mes "[Hein]";
3051	mes "I will give you a piece of paper.";
3052	mes "You will write down one among 'Rock, Paper, or Scissors'.";
3053	mes "I will do the same at the same time.";
3054	mes "We will then compare each other's paper at the end.";
3055	next;
3056
3057	set @shobu, 0;
3058
3059	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
3060	if(@i == 2) mes "[Hein]";
3061	if(@i == 2) mes "Let's play the second one!";
3062	if(@i == 3) mes "[Hein]";
3063	if(@i == 3) mes "This will be the last one!";
3064	if(@i == 3) mes "Let's compare after this.";
3065	set @npchand[@i], rand(1, 3);
3066	switch( select( "Scissors", "Rock", "Paper" ) ) {
3067	case 1:
3068	set @myhand[@i], 1;
3069	if(@npchand[@i] == 3) set @shobu, @shobu + 1;
3070	break;
3071	case 2:
3072	set @myhand[@i], 2;
3073	if(@npchand[@i] == 1) set @shobu, @shobu + 1;
3074	break;
3075	case 3:
3076	set @myhand[@i], 3;
3077	if(@npchand[@i] == 2) set @shobu, @shobu + 1;
3078	break;
3079	}
3080	}
3081
3082	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
3083	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
3084	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
3085
3086	if(@shobu > 1) goto LV4_45_WIN;
3087
3088	switch ( rand(1 ,3) ) {
3089	case 1:
3090	delitem LV4_Gem1, 30;
3091	break;
3092	case 2:
3093	delitem LV4_Gem2, 30;
3094	break;
3095	case 3:
3096	delitem LV4_Gem3, 30;
3097	break;
3098	}
3099	goto LV4_45_RESULT;
3100
3101	LV4_45_WIN:
3102	delitem LV4_Gem1, 30;
3103	delitem LV4_Gem2, 30;
3104	delitem LV4_Gem3, 30;
3105	set lv4_weapon, lv4_weapon + 2;
3106	goto LV4_45_RESULT;
3107
3108	LV4_45_RESULT:
3109	mes "[Hein]";
3110	mes "Okay...I played in the order of...";
3111
3112	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
3113	if(@npchand[@i] == 1) mes "Scissors";
3114	if(@npchand[@i] == 2) mes "Rock";
3115	if(@npchand[@i] == 3) mes "Paper";
3116	}
3117
3118	next;
3119	mes "[Hein]";
3120	mes "You did in the order of...";
3121
3122	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
3123	if(@myhand[@i] == 1) mes "Scissors";
3124	if(@myhand[@i] == 2) mes "Rock";
3125	if(@myhand[@i] == 3) mes "Paper";
3126	}
3127
3128	next;
3129
3130	if(@shobu > 1) goto LV4_45_SAY_WIN;
3131
3132	mes "[Hein]";
3133	mes "Well well well...you lost the game.";
3134	mes "Ah~ you were close though...";
3135	mes "We must drive away bad luck.";
3136	next;
3137	mes "[Hein]";
3138	mes "Okay, I will wait here,";
3139	mes "go bring me the materials again...";
3140	close;
3141
3142	LV4_45_SAY_WIN:
3143	mes "[Hein]";
3144	mes "Let's see...";
3145	mes "You won total " + @shobu + " times.";
3146	mes "Ah~ you must be really good at game!";
3147	mes "Yes, your luck is at its highest!";
3148	next;
3149	mes "[Hein]";
3150	mes "I am going to keep my promise.";
3151	mes "But I need some time to prepare.";
3152	mes "Give me the materials now and I will talk to you later.";
3153	close;
3154
3155	LV4_44:
3156	LV4_45_NOGEM:
3157	mes "[Hein]";
3158	mes "I am sorry but please give me more time to remember the materials...";
3159	mes "I had really good memory when I was alive...";
3160	mes "So I could even recite them right after I woke up...";
3161	close;
3162
3163
3164	LV4_47:
3165	LV4_48:
3166	mes "[Hein]";
3167	mes "Oh, yes. I just finished the work.";
3168	mes "Do you want to know the result? Okay...";
3169	mes "Breathe deeply...before we check.";
3170	mes "The result is...";
3171	next;
3172	mes "[Hein]";
3173	mes "a Big Success! This is great!";
3174	mes "I have not labored in vain!";
3175	mes "Let's see the weapon...it is...";
3176
3177	switch( rand(1, 2) ) {
3178	case 1:
3179	if(lv4_weapon == 47) mes "Edge.";
3180	if(lv4_weapon == 47) getitem 1132 ,1; // 1132,Edge
3181	if(lv4_weapon == 48) mes "Dragon Slayer.";
3182	if(lv4_weapon == 48) getitem 1166, 1; // 1166,Dragon_Slayer
3183	break;
3184	case 2:
3185	if(lv4_weapon == 47) mes "Excalibur.";
3186	if(lv4_weapon == 47) getitem 1137, 1; // 1137,Excalibur
3187	if(lv4_weapon == 48) mes "Schweizersabel.";
3188	if(lv4_weapon == 48) getitem 1167, 1; // 1167,Schweizersabel
3189	}
3190
3191	set lv4_weapon, 0;
3192	next;
3193	mes "[Hein]";
3194	mes "Well...this is it.";
3195	mes "I feel my memory is fading again...";
3196	mes "Hahaha...being dead is not good.";
3197	next;
3198	mes "[Hein]";
3199	mes "Thank you for your help. And if you have";
3200	mes "a chance to visit Nifflheim again,";
3201	mes "please come back and retrieve my memory once more...";
3202	next;
3203	mes "[Hein]";
3204	mes "Aaahhhh! I don't think I will";
3205	mes "remember you next time...";
3206	mes "Take care, adventurer...father, I made it...";
3207	close;
3208
3209
3210
3211	//--------------------------------------------------
3212	//Hack Attempt
3213	//--------------------------------------------------
3214	LV4_HACK:
3215	mes "[Hein]";
3216	mes "Hmm. There seems to be a bit of problem.";
3217	set lv4_weapon, 0;
3218	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
3219	close;
3220	}
3221
3222	//--------------------------------------------------
3223	// Waltboughst, creates Byeollungum, Exorciser(excercise), Combat Knife and Grand Cross
3224	//--------------------------------------------------
3225
3226	niflheim,331,72,3 script Waltboughst 795,{
3227	set @NowWeight, MaxWeight - Weight;
3228	if (@NowWeight >= 3000) goto LV4_NOT_OW;
3229	mes "- Wait a minute! -";
3230	mes "- You are currently overweight. -";
3231	mes "- Please lose some weight -";
3232	mes "- and try again. -";
3233	close;
3234
3235
3236	LV4_NOT_OW:
3237	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
3238	mes "[Waltboughst]";
3239	mes "...Hah!";
3240	close;
3241
3242
3243	LV4_LEVEL_PASS:
3244	if(lv4_weapon == 0) goto LV4_0;
3245	if(lv4_weapon < 49) goto LV4_48;
3246	if(lv4_weapon == 49) goto LV4_49;
3247	if(lv4_weapon == 50) goto LV4_50;
3248	if(lv4_weapon == 51) goto LV4_51;
3249	if(lv4_weapon == 52) goto LV4_52;
3250	if(lv4_weapon == 53) goto LV4_53;
3251	if(lv4_weapon == 54) goto LV4_54;
3252	if(lv4_weapon == 55) goto LV4_55;
3253	if(lv4_weapon == 56) goto LV4_56;
3254	if(lv4_weapon == 57) goto LV4_57;
3255	if(lv4_weapon > 57) goto LV4_58;
3256	end; // shouldn't be here
3257
3258
3259	LV4_0:
3260	LV4_49:
3261	mes "[Waltboughst]";
3262	mes "Ah~ it is so frustrating to be a dead man.";
3263	mes "Because I cannot do anything without a body.";
3264	mes "You know what my father used to say?";
3265	mes "Trying best does not always";
3266	mes "result in a success.";
3267	mes "However...errr?";
3268	next;
3269
3270	if(lv4_weapon == 0) goto LV4_0_ASK;
3271
3272	mes "[Waltboughst]";
3273	mes "...What was my father's";
3274	mes "quote? Why am I stuck in";
3275	mes "here after death? Hey, you";
3276	mes "Do you know anything about";
3277	mes "Waltboughst when he was";
3278	mes "alive?";
3279	close;
3280
3281	LV4_0_ASK:
3282	switch( select( "Show interest.", "Igonore him." ) ) {
3283	case 1:
3284	mes "[Waltboughst]";
3285	mes "...what did he say afterwards?";
3286	mes "Speaking of which, why am I";
3287	mes "so anxious to do something?";
3288	mes "I am a dead man, and a dead man is not supposed to do anything!";
3289	mes "Hey, do you know anything about me when I was alive?";
3290	set lv4_weapon, 49;
3291	close;
3292	break;
3293	case 2:
3294	mes "- Because you decided to ignore him, -";
3295	mes "- you are no longer able to hear him. -";
3296	close;
3297	break;
3298	}
3299	end;
3300
3301
3302	LV4_48:
3303	LV4_58:
3304	mes "[Waltboughst]";
3305	mes "I feel something different about you.";
3306	mes "Did you come here with a purpose?";
3307	mes "I am envious of you...";
3308	close;
3309
3310
3311	LV4_50:
3312	mes "[Waltboughst]";
3313	mes "Ah~ it is so frustrating to be a dead man.";
3314	mes "Because I cannot do anything without a body.";
3315	mes "You know what my father used to say?";
3316	mes "Trying best does not always";
3317	mes "result in a success.";
3318	mes "However...";
3319	next;
3320	set @dap4$, "All the successful men in the history tried their best!";
3321	input @answer4$;
3322	if(@answer4$ == @dap4$) goto LV4_50_CORRECT;
3323	mes "[Waltboughst]";
3324	mes "...What? What did you just say?";
3325	mes "Hmmm.";
3326	close;
3327
3328	LV4_50_CORRECT:
3329	mes "[Waltboughst]";
3330	mes "Yes! That was it!";
3331	mes "Since I am dead, I cannot even try!";
3332	mes "Eh...?! Ah!";
3333	mes "I see, I see now.";
3334	mes "I must have been killed by some kind of accident!";
3335	set lv4_weapon, 51;
3336	next;
3337	mes "[Waltboughst]";
3338	mes "Okay, I am not going to end this way.";
3339	mes "Hey, you were meant to meet me!";
3340	mes "You got to do me a favor, now!";
3341	next;
3342	mes "[Waltboughst]";
3343	mes "I will give you the result of my research";
3344	mes "in return! All I want is to compete my research,";
3345	mes "not the result.";
3346	next;
3347	mes "[Waltboughst]";
3348	mes "Well, give me some time to remember";
3349	mes "what I need for my research.";
3350	mes "I will talk to you later.";
3351	close;
3352
3353
3354	LV4_52:
3355	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_52_BASE_MAT;
3356	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_52_BASE_MAT;
3357	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_52_BASE_MAT;
3358	if(countitem($@LV4_Gold) < 20) goto LV4_52_BASE_MAT;
3359
3360	mes "[Waltboughst]";
3361	mes "Oh...you brought everything I need!";
3362	mes "You were quick this time...I am still having";
3363	mes "a hard time remembering what I need other than those.";
3364	mes "This is not good, this is not good at all.";
3365	next;
3366	mes "[Waltboughst]";
3367	mes "Anyways, I will keep those materials for you.";
3368	mes "And give me some more times to";
3369	mes "remember what I need...arph!";
3370
3371	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
3372	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
3373	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
3374	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
3375	delitem $@LV4_Hammer_Of_Blacksmith, 2;
3376	delitem $@LV4_Emperium_Anvil, 1;
3377	delitem $@LV4_Illusion_Flower, 1;
3378	delitem $@LV4_Gold, 20;
3379	set lv4_weapon, 53;
3380	close;
3381
3382	LV4_51:
3383	LV4_52_BASE_MAT:
3384	switch( lv4_weapon ) {
3385	case 51:
3386	mes "[Waltboughst]";
3387	mes "Umm, you came back so early.";
3388	mes "I just remembered the materials.";
3389	next;
3390	mes "[Waltboughst]";
3391	mes "I need 2 Hammer of Blacksmith,";
3392	mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
3393	next;
3394	mes "[Waltboughst]";
3395	mes "I do need some other items...but I need some time";
3396	mes "to remember those. Oh well,";
3397	mes "we have enough time, so let me think of them.";
3398	set lv4_weapon, 52;
3399	break;
3400	case 52:
3401	mes "[Waltboughst]";
3402	mes "I need 2 Hammer of Blacksmith,";
3403	mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
3404	mes "Most likey they will be the ones I need...";
3405	break;
3406	}
3407	close;
3408
3409
3410	LV4_54:
3411	LV4_55:
3412	if(countitem(LV4_Gem1) < 30) goto LV4_54_NOGEM;
3413	if(countitem(LV4_Gem2) < 30) goto LV4_54_NOGEM;
3414	if(countitem(LV4_Gem3) < 30) goto LV4_54_NOGEM;
3415	mes "[Waltboughst]";
3416	mes "...Um? The items that you brought to me seem";
3417	mes "to be good materials for my creation...";
3418	mes "Give them to me, I shall try first!";
3419	next;
3420	mes "[Waltboughst]";
3421	mes "Oh...I was right! How did you";
3422	mes "know these are materials I need?";
3423	mes "Great, give me a moment!";
3424	next;
3425	mes "[Waltboughst]";
3426	mes "...wait, I must test your luck first.";
3427	mes "Since I am not sure about the result,";
3428	mes "we should trust to luck for the result of my creation.";
3429	mes "You must have good luck...";
3430	next;
3431	mes "[Waltboughst]";
3432	mes "We are going to play 'Rock, Paper, Scissors'.";
3433	mes "You must win at least 2 out of 3 times.";
3434	mes "If you fail, you must leave a large amount";
3435	mes "of one material you have brought.";
3436	mes "It is for driving away your bad luck.";
3437	next;
3438	mes "[Waltboughst]";
3439	mes "I will give you a piece of paper.";
3440	mes "You will write down one among 'Rock, Paper, or Scissors'.";
3441	mes "I will do the same at the same time.";
3442	mes "We will then compare each other's paper at the end.";
3443	next;
3444
3445	set @shobu, 0;
3446
3447	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
3448	if(@i == 2) mes "[Waltboughst]";
3449	if(@i == 2) mes "Let's play the second one!";
3450	if(@i == 3) mes "[Waltboughst]";
3451	if(@i == 3) mes "This will be the last one!";
3452	if(@i == 3) mes "Let's compare after this.";
3453	set @npchand[@i], rand(1, 3);
3454	switch( select( "Scissors", "Rock", "Paper" ) ) {
3455	case 1:
3456	set @myhand[@i], 1;
3457	if(@npchand[@i] == 3) set @shobu, @shobu + 1;
3458	break;
3459	case 2:
3460	set @myhand[@i], 2;
3461	if(@npchand[@i] == 1) set @shobu, @shobu + 1;
3462	break;
3463	case 3:
3464	set @myhand[@i], 3;
3465	if(@npchand[@i] == 2) set @shobu, @shobu + 1;
3466	break;
3467	}
3468	}
3469
3470	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
3471	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
3472	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
3473
3474	if(@shobu > 1) goto LV4_54_WIN;
3475
3476	switch ( rand(1 ,3) ) {
3477	case 1:
3478	delitem LV4_Gem1, 30;
3479	break;
3480	case 2:
3481	delitem LV4_Gem2, 30;
3482	break;
3483	case 3:
3484	delitem LV4_Gem3, 30;
3485	break;
3486	}
3487	goto LV4_54_RESULT;
3488
3489	LV4_54_WIN:
3490	delitem LV4_Gem1, 30;
3491	delitem LV4_Gem2, 30;
3492	delitem LV4_Gem3, 30;
3493	set lv4_weapon, lv4_weapon + 2;
3494	goto LV4_54_RESULT;
3495
3496	LV4_54_RESULT:
3497	mes "[Waltboughst]";
3498	mes "Okay...I played in the order of...";
3499
3500	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
3501	if(@npchand[@i] == 1) mes "Scissors";
3502	if(@npchand[@i] == 2) mes "Rock";
3503	if(@npchand[@i] == 3) mes "Paper";
3504	}
3505
3506	next;
3507	mes "[Waltboughst]";
3508	mes "You did in the order of...";
3509
3510	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
3511	if(@myhand[@i] == 1) mes "Scissors";
3512	if(@myhand[@i] == 2) mes "Rock";
3513	if(@myhand[@i] == 3) mes "Paper";
3514	}
3515
3516	next;
3517
3518	if(@shobu > 1) goto LV4_54_SAY_WIN;
3519
3520	mes "[Waltboughst]";
3521	mes "Well well well...you lost the game.";
3522	mes "Ah~ you were close though...";
3523	mes "We must drive away bad luck.";
3524	next;
3525	mes "[Waltboughst]";
3526	mes "Okay, I will wait here,";
3527	mes "go bring me the materials again...";
3528	close;
3529
3530	LV4_54_SAY_WIN:
3531	mes "[Waltboughst]";
3532	mes "Let's see...";
3533	mes "You won total " + @shobu + " times.";
3534	mes "Ah~ you must be really good at game!";
3535	mes "Yes, your luck is at its highest!";
3536	next;
3537	mes "[Waltboughst]";
3538	mes "I am going to keep my promise.";
3539	mes "But I need some time to prepare.";
3540	mes "Give me the materials now and I will talk to you later.";
3541	close;
3542
3543	LV4_53:
3544	LV4_54_NOGEM:
3545	mes "[Waltboughst]";
3546	mes "Arph...I haven't remembered them yet.";
3547	mes "Awww....this is a problem.";
3548	mes "I must think of them as soon as possible...";
3549	close;
3550
3551
3552	LV4_56:
3553	LV4_57:
3554	mes "[Waltboughst]";
3555	mes "Hehe, I made something with the materials";
3556	mes "in this short time! Wanna see?";
3557	mes "Aren't you wondering about the result?";
3558	mes "Hmmm....let's see...";
3559	next;
3560	mes "[Waltboughst]";
3561	mes "Waltboughst never fails!";
3562	mes "Besides you had good luck,";
3563	mes "so it resulted in a perfect success!";
3564	mes "You got a nice weapon here, it is...";
3565
3566	switch( rand(1, 2) ) {
3567	case 1:
3568	if(lv4_weapon == 56) mes "Byeollungum!";
3569	if(lv4_weapon == 56) getitem 1140 ,1; // 1140,Byeollungum
3570	if(lv4_weapon == 57) mes "Exorciser!";
3571	if(lv4_weapon == 57) getitem 1233, 1; // 1233,Exercise
3572	break;
3573	case 2:
3574	if(lv4_weapon == 56) mes "Combat Knife!";
3575	if(lv4_weapon == 56) getitem 1228, 1; // 1228,Combat_Knife
3576	if(lv4_weapon == 57) mes "Grand Cross!!";
3577	if(lv4_weapon == 57) getitem 1528, 1; // 1528,Grand_Cross
3578	}
3579
3580	set lv4_weapon, 0;
3581	next;
3582	mes "[Waltboughst]";
3583	mes "I am genius! Hahahaha!";
3584	mes "I made it when my brothers could not!";
3585	mes "Muhahahahahaha!";
3586	mes "Eh...err? Arrr...phhh?";
3587	next;
3588	mes "[Waltboughst]";
3589	mes "Damn...I must try too hard.";
3590	mes "My memory is fading again...";
3591	mes "Oh well, somehow I proved";
3592	mes "that I am a genius even after I died.";
3593	next;
3594	mes "[Waltboughst]";
3595	mes "If you want me to display my genius again,";
3596	mes "come retrieve my memory again.";
3597	mes "And thank you!";
3598	next;
3599	mes "[Waltboughst]";
3600	mes "Ah...my memory's dying again...";
3601	mes "Farewell~ I don't think I will remember you";
3602	mes "but I hope you will remember me as Waltboughst";
3603	mes "the genius in the age!";
3604	close;
3605
3606
3607
3608	//--------------------------------------------------
3609	//Hack Attempt
3610	//--------------------------------------------------
3611	LV4_HACK:
3612	mes "[Waltboughst]";
3613	mes "Hmm. There seems to be a bit of problem.";
3614	set lv4_weapon, 0;
3615	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
3616	close;
3617	}

Note: See TracBrowser for help on using the browser.

Context Navigation

root/npc/quests/Lvl4_weapon_quest.txt @ 7

Download in other formats: