Context Navigation

Lvl4_weapon_quest.txt @ 1

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

Rev	Line
[1]	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 @ 1

Download in other formats: