- Massive EOL normalization & 'svn:eol-style native' flag setting for all txt/conf/h/c files.

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@9410 54d463be-8e91-2dee-dedb-b68131a5f0ec

1 files changed, 3615 insertions, 3615 deletions

diff --git a/npc/quests/Lvl4_weapon_quest.txt b/npc/quests/Lvl4_weapon_quest.txt
index b3183c526..20ca80b3d 100644
--- a/npc/quests/Lvl4_weapon_quest.txt
+++ b/npc/quests/Lvl4_weapon_quest.txt
@@ -1,3615 +1,3615 @@
-//===== eAthena Script ======================================= 

-//= Grade A and Grade S weapon quests

-//===== By: ================================================== 

-//= Vicious_Pucca, Reddozen & MasterOfMuppets

-//===== Current Version: ===================================== 

-//= 1.21

-//===== Compatible With: ===================================== 

-//= eAthena SVN 3422+(Requires jA Script System)

-//===== Description: ========================================= 

-//= Grade A and Grade S weapon quests

-//===== Additional Comments: ================================= 

-//= 1.0 First Version, Credits goes to Vicious_Pucca for converting [MasterOfMuppets]

-//=     the quest from aegis format to eA format. Also thanks to 

-//=	reddozen for fixing bugs.

-//= 1.1 Many fixes to spelling, grammar, and sentence order. [Silent]

-//= 1.2 A small fix, thanks to vicious_pucca [MasterOfMuppets]

-//= 1.21 Fixing MoM's typos (Citrin -> Citrine) [erKURITA]

-//============================================================ 

-

-//---------------------------------------------------------------

-// Initialize the basic materials for easier reading/conversion 

-//---------------------------------------------------------------

-

--	script	lv4_weapon_init	-1,{

-OnInit:

-	set $@LV4_Citrine, 7295; // 7295,Citrine

-	set $@LV4_Turquoise, 7294; // 7294,Turquoise

-	set $@LV4_Agate, 7291; // 7291,Agate

-	

-	set $@LV4_Muscovite, 7292; // 7292,Muscovite

-	set $@LV4_Biotite, 7297; // 7297,Biotite

-	set $@LV4_Pyroxene, 7296; // 7296,Pyroxene

-	

-	set $@LV4_Phlogopite, 7290; // 7290,Phlogopite

-	set $@LV4_Olivine, 7289; // 7289,Peridot

-	set $@LV4_Rose_Quartz, 7293; // 7293,Rose_Quartz	

-	

-	set $@LV4_Gold, 969; // 969,Gold

-	set $@LV4_Steel, 999; // 999,Steel

-	set $@LV4_Emperium, 714; // 714,Emperium

-	set $@LV4_Hammer_Of_Blacksmith, 1005; // 1005,Hammer_of_Blacksmith

-	set $@LV4_Emperium_Anvil, 989; // 989,Emperium_Anvil

-	set $@LV4_Illusion_Flower, 710; // 710,Illusion_Flower

-	end;		

-}

-

-//---------------------------------------------------------------

-// Bazo, creates Immaterial Sword, Quadrille and Slash

-//---------------------------------------------------------------

-

-umbala.gat,117,285,3	script	Bazo	85,{

-	set @NowWeight, MaxWeight - Weight;

-	if (@NowWeight >= 3000) goto LV4_NOT_OW;

-	mes "- Wait a minute! -";

-	mes "- Currently you are overweight. -";

-	mes "- Please lighten your weight -";

-	mes "- and try again. -";

-	close;

-

-	

-LV4_NOT_OW:

-	if(lv4_weapon == 0) goto LV4_0;

-	if(lv4_weapon == 1) goto LV4_1;

-	if(lv4_weapon == 2) goto LV4_2;

-	if(lv4_weapon == 3) goto LV4_2;

-	if(lv4_weapon == 4) goto LV4_2;

-	if(lv4_weapon == 5) goto LV4_5;

-	if(lv4_weapon == 6) goto LV4_5;

-	if(lv4_weapon == 7) goto LV4_5;

-	if(lv4_weapon > 7) goto LV4_7;	

-	end; // shouldn't be here

-

-	

-LV4_0:

-	mes "[Bazo]";

-	mes "Hello, you are from outside, huh?";

-	mes "I can tell by your appearance.";

-	mes "Pleased to meet you. My name is Bazo Heburiech.";

-	mes "I am also from outside.";

-	next;

-	mes "[Bazo]";

-	mes "We must have been meant to meet each other.";

-	mes "If you don't mind, let me explain about this place for a while.";

-	mes "Umbala is adjacent to Nifflheim, the city of the dead.";

-	mes "Even at a first sight, I knew that";

-	mes "there is something about this village.";

-	next;

-	mes "[Bazo]";

-	mes "Due to that geographical trait,";

-	mes "this village was filled with evil power";

-	mes "that was influenced by the city of the dead.";

-	next;

-	mes "[Bazo]";

-	mes "The local people have learned";

-	mes "to manipulate the evil power for";

-	mes "producing specialties.";

-	next;

-	mes "[Bazo]";

-	mes "While staying here, I also have learned";

-	mes "some recipes. If you bring me materials,";

-	mes "I am willing to show you my skills.";

-	mes "How does that sound?";

-	next;

-	

-	switch( select( "Sounds good.", "No, thanks." ) ) {

-		case 1:

-			if(BaseLevel >= 70) goto L4_0_1;

-			

-			mes "[Bazo]";

-			mes "Err...I don't think that you are powerful";

-			mes "enough to handle my products.";

-			mes "They are charged with evil power.";

-			next;

-			mes "That means if their owners are not powerful";

-			mes "and not experienced enough,";

-			mes "they will drive the owners insane.";

-			mes "And I cannot do that to my friend.";

-			next;

-			mes "[Bazo]";

-			mes "Therefore, I want you to go back and level up first.";

-			mes "I will gladly expect you to come back when you are ready.";

-			break;

-L4_0_1:

-			mes "[Bazo]";

-			mes "Excellent! Let me tell you";

-			mes "the materials I need. I hope you will write them down.";

-			mes "There is not that many though.";

-			next;

-			mes "[Bazo]";

-			mes "I need 10 Gold, 50 Steel and 10 Emperium";

-			mes "as basic materials...";

-			mes "and you can enchant the product with a certain trait.";

-			mes "For that, I need some rare ores...";

-			next;

-			mes "[Bazo]";

-			mes "Please bring me 30 of either Citrine, Turquoise or Agate.";

-			mes "Each one of them possess their own attribute";

-			mes "and following by the ore you have brought,";

-			mes "my product will possess a special trait.";

-			next;

-			mes "[Bazo]";

-			mes "I wish you good luck...";

-			mes "I will wait for you!";

-			

-			set lv4_weapon, 1;

-			break;

-		case 2:

-			mes "[Bazo]";

-			mes "Oh, okay. That is fine with me.";

-			mes "By the way, don't you want to know how evil the city of the dead will be?";

-			mes "I do since that city influences so much of this village";

-			mes "with it's mysterious power, you know.";

-			break;			

-	}	

-	close;

-	

-

-

-//--------------------------------------------------

-//Gold, Steel, Emp Check + Choosing the gem

-//--------------------------------------------------

-LV4_1:

-	if(countitem($@LV4_Gold) < 10) goto LV4_1_FAIL;

-	if(countitem($@LV4_Steel) < 50) goto LV4_1_FAIL;

-	if(countitem($@LV4_Emperium) < 10) goto LV4_1_FAIL;

-

-	mes "[Bazo]";

-	mes "Oh...you have brought all the basic materials.";

-	mes "Now let me check what kind of rare ores";

-	mes "you have brought...";

-	next;

-	

-	if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Turquoise) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_CTA;

-	if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Turquoise) >= 30) goto LV4_1_CT;

-	if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_CA;

-	if (countitem($@LV4_Turquoise) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_TA;

-	if (countitem($@LV4_Citrine) >= 30) goto LV4_1_C;

-	if (countitem($@LV4_Turquoise) >= 30) goto LV4_1_T;

-	if (countitem($@LV4_Agate) >= 30) goto LV4_1_A;

-	goto LV4_1_NOGEM;

-	end;

-

-

-LV4_1_CTA:	

-	mes "[Bazo]";

-	mes "Hahaha, I asked you to bring one kind not all of them.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Citrine", "Turquoise", "Agate" ) ) {

-		case 1:

-			mes "[Bazo]";

-			mes "Citrine...okay. Before we start,";

-			set @gem, $@LV4_Citrine;

-			set @gemstring$,"Citrine";

-			break;

-		case 2:

-			mes "[Bazo]";

-			mes "Turquoise...okay. Before we start,";

-			set @gem, $@LV4_Turquoise;

-			set @gemstring$,"Turquoise";

-			break;

-		case 3:

-			mes "[Bazo]";

-			mes "Agate....okay. Before we start,";

-			set @gem, $@LV4_Agate;

-			set @gemstring$,"Agate";

-			break;

-	}

-	

-	goto LV4_1_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_1_CT:

-	mes "[Bazo]";

-	mes "Hahaha, I asked you to bring one kind not two.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Citrine", "Turquoise" ) ) {

-		case 1:

-			mes "[Bazo]";

-			mes "Citrine...okay. Before we start,";

-			set @gem, $@LV4_Citrine;

-			set @gemstring$,"Citrine";

-			break;

-		case 2:

-			mes "[Bazo]";

-			mes "Turquoise...okay. Before we start,";

-			set @gem, $@LV4_Turquoise;

-			set @gemstring$,"Turquoise";

-			break;

-	}

-	

-	goto LV4_1_PICK;

-	end; // shouldn't be here

-	

-

-LV4_1_CA:	

-	mes "[Bazo]";

-	mes "Hahaha, I asked you to bring one kind not two.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Citrine", "Agate" ) ) {

-		case 1:

-			mes "[Bazo]";

-			mes "Citrine...okay. Before we start,";

-			set @gem, $@LV4_Citrine;

-			set @gemstring$,"Citrine";

-			break;

-		case 2:

-			mes "[Bazo]";

-			mes "Agate....okay. Before we start,";

-			set @gem, $@LV4_Agate;

-			set @gemstring$,"Agate";

-			break;

-	}

-	

-	goto LV4_1_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_1_TA:	

-	mes "[Bazo]";

-	mes "Hahaha, I asked you to bring one kind not two.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Turquoise", "Agate" ) ) {

-			case 1:

-				mes "[Bazo]";

-				mes "Turquoise...okay. Before we start,";

-				set @gem, $@LV4_Turquoise;

-				set @gemstring$,"Turquoise";

-				break;

-			case 2:

-				mes "[Bazo]";

-				mes "Agate....okay. Before we start,";

-				set @gem, $@LV4_Agate;

-				set @gemstring$,"Agate";

-				break;

-	}

-	

-	goto LV4_1_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_1_C:

-	mes "[Bazo]";

-	mes "Citrine...okay. Before we start,";

-	set @gem, $@LV4_Citrine;

-	set @gemstring$,"Citrine";

-	goto LV4_1_PICK;

-	end; // shouldn't be here

-		

-		

-LV4_1_T:

-	mes "[Bazo]";

-	mes "Turquoise...okay. Before we start,";

-	set @gem, $@LV4_Turquoise;

-	set @gemstring$,"Turquoise";

-	goto LV4_1_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_1_A:

-	mes "[Bazo]";

-	mes "Agate....okay. Before we start,";

-	set @gem, $@LV4_Agate;

-	set @gemstring$,"Agate";

-	goto LV4_1_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_1_PICK:

-	mes "we must do one thing first.";

-	mes "That is, testing your luck.";

-	mes "As you already know,";

-	mes "I cannot guarantee you that we will succeed";

-	mes "to make one right away.";

-	next;

-	mes "[Bazo]";

-	mes "If we can raise your luck before we start,";

-	mes "we will be able to succeed.";

-	next;

-	mes "[Bazo]";

-	mes "Now you must be wondering what we";

-	mes "will do in order to increase your luck.";

-	mes "It is simple, we will play a mind-reading game.";

-	mes "I am going to think of one monster among 4 of my favorite ones,";

-	mes "you will guess what the monster is.";

-	next;

-	mes "[Bazo]";

-	mes "You must answer correctly at least";

-	mes "1 out of 5 times. It shouldn't be that difficult.";

-	mes "And if you fail to answer, we must do something else";

-	mes "to drive away your bad luck.";

-	next;

-	mes "[Bazo]";

-	mes "I will take 10 of the special ore you chose.";

-	mes "Well, I understand that it does not sound tempting";

-	mes "but let's think of it this way.";

-	mes "It is much better than wasting 30 ore";

-	mes "by failing to create the item, isn't it?";

-	next;

-	mes "[Bazo]";

-	mes "Okay, now I need some time to prepare...";

-	mes "Talk to you later!";

-	

-	if(countitem($@LV4_Gold) < 10) goto LV4_HACK;

-	if(countitem($@LV4_Steel) < 50) goto LV4_HACK;

-	if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;

-	delitem $@LV4_Gold, 10;

-	delitem $@LV4_Steel, 50;

-	delitem $@LV4_Emperium, 10;

-	if(@gem == $@LV4_Citrine) set lv4_weapon, 2;

-	if(@gem == $@LV4_Turquoise) set lv4_weapon, 3;

-	if(@gem == $@LV4_Agate) set lv4_weapon, 4;	

-	close;

-

-

-LV4_1_NOGEM:

-	mes "[Bazo]";

-	mes "I seem to recall that I asked you to bring";

-	mes "30 of a special ore, Citrine, Turquoise, or Agate...";

-	mes "And I don't see any of them.";

-	mes "You must have forgot them. Please go get them too.";

-	close;

-

-

-LV4_1_FAIL:

-	mes "[Bazo]";

-	mes "Please bring me 10 Gold, 50 Steel and 10 Emperium";

-	mes "as basic materials...";

-	mes "and you can enchant the product with a certain trait.";

-	mes "For that, I need some rare ores...";

-	next;

-	mes "[Bazo]";

-	mes "Please bring me 30 of either Citrine, Turquoise or Agate.";

-	mes "Each one of them possess their own attribute";

-	mes "and using the ore you have brought,";

-	mes "my product will possess a special trait.";

-	next;

-	mes "[Bazo]";

-	mes "I wish you good luck...";

-	mes "I will wait for you!";

-	close;

-

-

-

-//--------------------------------------------------

-//Guessing Game

-//--------------------------------------------------

-LV4_2:

-	if(lv4_weapon == 2) set @gem, $@LV4_Citrine;

-	if(lv4_weapon == 3) set @gem, $@LV4_Turquoise;

-	if(lv4_weapon == 4) set @gem, $@LV4_Agate;

-	if(countitem(@gem) < 30) goto LV4_2_NOGEM; 

-	

-	mes "[Bazo]";

-	mes "Ok, you seem to be ready.";

-	mes "Let's get started.";

-	mes "My favorite monsters are Poring,";

-	mes "Hode, Obeaune, and Minorous.";

-	next;

-

-	set @dap, 0;

-	set @correct[0],1;

-	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {

-		mes "[Bazo]";

-		

-		if(@i == 1) mes "Here's the 1st question. Guess what monster";

-		if(@i != 1) mes "Alright. Now guess what monster";

-		

-		mes "I have in my mind at this moment.";

-		next;

-

-		set @mons, rand(1, 4);		

-

-		switch( select( "Poring", "Hode", "Obeaune", "Minorous" ) ) {

-				case 1:

-					set @correct[@i], 1;

-					if(@mons == 1) set @dap, @dap + 1;

-					break;

-

-				case 2:

-					set @correct[@i], 2;

-					if(@mons == 2) set @dap, @dap + 1;

-					break;

-

-				case 3:

-					set @correct[@i], 3;

-					if(@mons == 3) set @dap, @dap + 1;

-					break;

-

-				case 4:

-					set @correct[@i], 4;

-					if(@mons == 4) set @dap, @dap + 1;

-					break;

-		}

-	}

-

-	mes "[Bazo]";

-	mes "Okay, let me give you answers for the questions.";

-	mes "I was thinking of the monsters in the order of";

-	next;

-	mes "[Bazo]";

-

-	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {

-		if(@correct[@i] == 1) mes "Poring";

-		if(@correct[@i] == 2) mes "Hode";

-		if(@correct[@i] == 3) mes "Obeaune";

-		if(@correct[@i] == 4) mes "Minorous";

-	}

-

-	if(@dap < 1) goto LV4_2_FAIL;

-	

-	next;

-	mes "[Bazo]";

-	mes "You answered " + @dap + " times!";

-	mes "I must say you're amazing!";

-	mes "As I promised, I will make an Umbala specialty for you.";

-	mes "Please give me some time to prepare.";

-	mes "Talk to you later.";

-	

-	if(countitem(@gem) < 30) goto LV4_HACK;

-	delitem @gem, 30;

-	set lv4_weapon, lv4_weapon + 3;

-	close;

-	

-	

-LV4_2_FAIL:

-	if(countitem(@gem) < 10) goto LV4_HACK;

-	delitem @gem, 10;

-	

-	next;

-	mes "[Bazo]";

-	mes "Errr... I don't think you are good at reading";

-	mes "other people's minds. Or you had bad luck, I guess.";

-	mes "We cannot do that again unless";

-	mes "we drive away the bad luck.";

-	mes "Give me 10 " + @gemstring$ + ", that will do the job.";

-	next;

-	mes "[Bazo]";

-	mes "Well...if you want to do this mind-reading game again,";

-	mes "please come back with the materials.";

-	mes "I will wait here for you.";

-	close;

-

-

-LV4_2_NOGEM:

-	mes "[Bazo]";

-	mes "Errr...something doesn't feel right. We lack something...";

-	mes "Will you check the materials that you have brought?";

-	close;

-	

-	

-	

-//--------------------------------------------------

-//Weapon Creation

-//--------------------------------------------------

-LV4_5:

-	mes "[Bazo]";

-	mes "Great... now, let's do it!";

-	mes "Wish me luck...ah, I forgot to tell you this.";

-	mes "I cannot tell you what kind of product it will be. It is so random.";

-	mes "Let's wish that a good thing will come out, okay?";

-	next;

-	mes "- You feel unknown power start gathering in -";

-	mes "- the materials. It seems the materials are -";

-	mes "- absorbing all the evil power in the air. -";

-	next;

-	mes "- Then, the materials start merging into one -";

-	mes "- even though Bazo didn't touch them at all. -";

-	next;

-	mes "[Bazo]";

-	mes "Can you feel that? The materials are gathering";

-	mes "power at their own will.";

-	mes "They are out of my hand now. Let's wait and hope.";

-	next;

-	mes "- After a while, the air becomes calm -";

-	mes "- and you check the result. -";

-	next;

-	mes "[Bazo]";

-	mes "Ooooooh! It is done!";

-	mes "We have succeeded! Ah, it's amazing!";

-	mes "Did I tell you that it is really rare to succeed right away?";

-	mes "Yes, God must have listened to our prayers.";

-	mes "Oh, it is a weapon! It will be very useful to you.";

-	mes "Let's take a closer look...";

-	next;

-

-	mes "[Bazo]";

-

-	switch( lv4_weapon ) {

-		case 5:

-			mes "Immaterial Sword!";

-			getitem 1141, 1; // 1141,Immaterial_Sword

-			break;

-		case 6:

-			mes "it is Slash!";

-			getitem 1526, 1; // 1526,Slash

-			break;

-		case 7:

-			mes "it is Quadrille!";

-			getitem 1527, 1; // 1527,Quadrille

-			break;

-	}

-

-	set lv4_weapon, 0;

-	mes "This sword was born to be yours!";

-	mes "Congratulations and hopefully it will have a good use for you.";

-	next;

-

-	mes "[Bazo]";

-	mes "I feel so gratified. If you wish to have";

-	mes "another one, please feel free to visit me anytime.";

-	mes "Have a good travel!";

-	close;

-

-

-

-//--------------------------------------------------

-//Other Quests

-//--------------------------------------------------

-LV4_7:

-	mes "[Bazo]";

-	mes "Hmm...I feel something strange from you.";

-	mes "I regret to say that there is nothing I can do for you.";

-	mes "I hope you have a safe travel.";

-	close;

-	

-	

-	

-//--------------------------------------------------

-//Hack Attempt

-//--------------------------------------------------

-LV4_HACK:

-	mes "[Bazo]";

-	mes "Hmm. There seems to be a bit of problem.";

-	set lv4_weapon, 0;

-	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";

-	close;

-}

-

-//---------------------------------------------------------------

-// Hibilaithan, creates Mailbreaker, Swordbreaker and Slaughter

-//---------------------------------------------------------------

-

-umbala.gat,163,257,3	script	Hibilaithan	785,{

-	if(event_umbala < 3) goto LumWord;

-	set @NowWeight, MaxWeight - Weight;

-	if (@NowWeight >= 3000) goto LV4_NOT_OW;

-	mes "- Wait a minute! -";

-	mes "- Currently you are overweight. -";

-	mes "- Please lighten your weight -";

-	mes "- and try again. -";

-	close;

-

-	

-LV4_NOT_OW:

-	if(lv4_weapon == 0) goto LV4_0;

-	if(lv4_weapon == 8) goto LV4_8;

-	if(lv4_weapon == 9) goto LV4_9;

-	if(lv4_weapon == 10) goto LV4_9;

-	if(lv4_weapon == 11) goto LV4_9;

-	if(lv4_weapon == 12) goto LV4_12;

-	if(lv4_weapon == 13) goto LV4_12;

-	if(lv4_weapon == 14) goto LV4_12;

-	if(lv4_weapon < 8) goto LV4_7;

-	if(lv4_weapon > 14) goto LV4_7;	

-	end; // shouldn't be here

-	

-

-LumWord:

-		mes "[Hibilaithan]";

-		mes "Umba! Umbaba...umum! Baumba!";

-		mes "Umumumbababaumumbabaumba!";

-		mes "Umbaumbaumbaumbaumhah!";

-		mes "Umumumumumbababababab!";

-	close;

-

-	

-LV4_0:

-	mes "[Hibilaithan]";

-	mes "Haha, yeah, I knew this day would come.";

-	mes "Finally people recognize my value";

-	mes "as the best artisan in Umbala!";

-	next;

-	mes "[Hibilaithan]";

-	mes "Okay, let's talk straight.";

-	mes "I, Hibilaithan shall craft something nice";

-	mes "if you bring me materials!";

-	mes "Hahahahahaha!";

-	next;

-	mes "[Hibilaithan]";

-	mes "Eh? What? You didn't come to see me?";

-	mes "Stop joking around...Don't play me for a fool!";

-	mes "People are too shy to tell the truth nowadays!";

-	mes "Let's be honest and tell me if you want it or not.";

-	next;

-	

-	switch( select( "...okay.", "...sorry, I don't need it!" ) ) {

-		case 1:

-			if(BaseLevel >= 70) goto L4_0_1;

-			

-			mes "[Hibilaithan]";

-			mes "...what a shame! I regret to tell you this,";

-			mes "but your spirit is too weak";

-			mes "to handle the power of my stuff!";

-			mes "This is not good, not good at all!";

-			mes "Go and train yourself first.";

-			mes "When you become strong, you may come back!";

-			break;

-L4_0_1:

-			mes "[Hibilaithan]";

-			mes "Great! I like your attitute! Great, great!";

-			mes "I am going to tell you what I need.";

-			mes "It is not much, so do not forget.";

-			next;

-			mes "[Hibilaithan]";

-			mes "Bring me 10 Gold, 50 Steel and 10 Emperium";

-			mes "... as basic materials.";

-			mes "And I need some rare ores to endow power...";

-			next;

-			mes "[Hibilaithan]";

-			mes "Bring me 30 of one ore among Muscovite, Biotite or Pyroxene.";

-			mes "Remember you are going to bring 30 of one ore.";

-			mes "I cannot pick one among those because I am";

-			mes "not sure what will come out. Heh.";

-			next;

-			mes "[Hibilaithan]";

-			mes "Okay, wish you good luck!";

-			mes "Meanwhile I am going to chill here.";

-			

-			set lv4_weapon, 8;

-			break;

-		case 2:

-			mes "[Hibilaithan]";

-			mes "Bah~ what are you afraid of?";

-			mes "I am just trying to do you a favor, you know?";

-			mes "Alright, it is your call.";

-			mes "But if you change your mind,";

-			mes "feel free to come back.";

-			break;			

-	}	

-	close;

-	

-

-

-//--------------------------------------------------

-//Gold, Steel, Emp Check + Choosing the gem

-//--------------------------------------------------

-LV4_8:

-	if(countitem($@LV4_Gold) < 10) goto LV4_8_FAIL;

-	if(countitem($@LV4_Steel) < 50) goto LV4_8_FAIL;

-	if(countitem($@LV4_Emperium) < 10) goto LV4_8_FAIL;

-

-	mes "[Hibilaithan]";

-	mes "Oh...you have brought all the basic materials.";

-	mes "Now let me check what kind of rare ores";

-	mes "you have brought...";

-	next;

-	

-	if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Biotite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_MBP;

-	if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Biotite) >= 30) goto LV4_8_MB;

-	if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_MP;

-	if (countitem($@LV4_Biotite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_BP;

-	if (countitem($@LV4_Muscovite) >= 30) goto LV4_8_M;

-	if (countitem($@LV4_Biotite) >= 30) goto LV4_8_B;

-	if (countitem($@LV4_Pyroxene) >= 30) goto LV4_8_P;

-	goto LV4_8_NOGEM;

-	end;

-

-

-LV4_8_MBP:	

-	mes "[Hibilaithan]";

-	mes "Gosh, did you brought all three kinds?";

-	mes "Hahaha, it's fine.";

-	mes "But we cannot use all of them this time.";

-	mes "Pick one that you want to use.";

-	next;

-			

-	switch( select( "Muscovite", "Biotite", "Pyroxene" ) ) {

-		case 1:

-			mes "[Hibilaithan]";

-			mes "Muscovite...okay. Before we start,";

-			set @gem, $@LV4_Muscovite;

-			set @gemstring$,"Muscovite";

-			break;

-		case 2:

-			mes "[Hibilaithan]";

-			mes "Biotite...okay. Before we start,";

-			set @gem, $@LV4_Biotite;

-			set @gemstring$,"Biotite";

-			break;

-		case 3:

-			mes "[Hibilaithan]";

-			mes "Pyroxene....okay. Before we start,";

-			set @gem, $@LV4_Pyroxene;

-			set @gemstring$,"Pyroxene";

-			break;

-	}

-	

-	goto LV4_8_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_8_MB:

-	mes "[Hibilaithan]";

-	mes "Hahaha, I asked you to bring one kind not two.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Muscovite", "Biotite" ) ) {

-		case 1:

-			mes "[Hibilaithan]";

-			mes "Muscovite...okay. Before we start,";

-			set @gem, $@LV4_Muscovite;

-			set @gemstring$,"Muscovite";

-			break;

-		case 2:

-			mes "[Hibilaithan]";

-			mes "Biotite...okay. Before we start,";

-			set @gem, $@LV4_Biotite;

-			set @gemstring$,"Biotite";

-			break;

-	}

-	

-	goto LV4_8_PICK;

-	end; // shouldn't be here

-	

-

-LV4_8_MP:	

-	mes "[Hibilaithan]";

-	mes "Hahaha, I asked you to bring one kind not two.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Muscovite", "Pyroxene" ) ) {

-		case 1:

-			mes "[Hibilaithan]";

-			mes "Muscovite...okay. Before we start,";

-			set @gem, $@LV4_Muscovite;

-			set @gemstring$,"Muscovite";

-			break;

-		case 2:

-			mes "[Hibilaithan]";

-			mes "Pyroxene....okay. Before we start,";

-			set @gem, $@LV4_Pyroxene;

-			set @gemstring$,"Pyroxene";

-			break;

-	}

-	

-	goto LV4_8_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_8_BP:	

-	mes "[Hibilaithan]";

-	mes "Hahaha, I asked you to bring one kind not two.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Biotite", "Pyroxene" ) ) {

-			case 1:

-				mes "[Hibilaithan]";

-				mes "Biotite...okay. Before we start,";

-				set @gem, $@LV4_Biotite;

-				set @gemstring$,"Biotite";

-				break;

-			case 2:

-				mes "[Hibilaithan]";

-				mes "Pyroxene....okay. Before we start,";

-				set @gem, $@LV4_Pyroxene;

-				set @gemstring$,"Pyroxene";

-				break;

-	}

-	

-	goto LV4_8_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_8_M:

-	mes "[Hibilaithan]";

-	mes "Muscovite...okay. Before we start,";

-	set @gem, $@LV4_Muscovite;

-	set @gemstring$,"Muscovite";

-	goto LV4_8_PICK;

-	end; // shouldn't be here

-		

-		

-LV4_8_B:

-	mes "[Hibilaithan]";

-	mes "Biotite...okay. Before we start,";

-	set @gem, $@LV4_Biotite;

-	set @gemstring$,"Biotite";

-	goto LV4_8_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_8_P:

-	mes "[Hibilaithan]";

-	mes "Pyroxene....okay. Before we start,";

-	set @gem, $@LV4_Pyroxene;

-	set @gemstring$,"Pyroxene";

-	goto LV4_8_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_8_PICK:

-	mes "we must do one thing first.";

-	mes "That is, to test your luck.";

-	mes "As you already know,";

-	mes "I cannot guarantee you that we will succeed";

-	mes "to make one right away.";

-	next;

-	mes "[Hibilaithan]";

-	mes "If we can raise your luck before we start,";

-	mes "we will be able to succeed.";

-	next;

-	mes "[Hibilaithan]";

-	mes "Now you must be wondering what we";

-	mes "will do in order to increase your luck.";

-	mes "It is simple, we will play a mind-reading game.";

-	mes "I am going to think of one monster among 4 of my favorites,";

-	mes "you will guess what that monster is.";

-	next;

-	mes "[Hibilaithan]";

-	mes "You must answer correctly at least";

-	mes "1 out of 5 times. It should not be that difficult.";

-	mes "And if you fail to answer, we must do something else";

-	mes "to drive away your bad luck.";

-	next;

-	mes "[Hibilaithan]";

-	mes "I will take 10 of the special ore you have chose.";

-	mes "Well, I understand that it does not sound tempting";

-	mes "but let's think of it this way.";

-	mes "It is much better than wasting 30 ore";

-	mes "by failing to create the item, isn't it?";

-	next;

-	mes "[Hibilaithan]";

-	mes "Okay, now I need some time to prepare...";

-	mes "Talk to you later!";

-	

-	if(countitem($@LV4_Gold) < 10) goto LV4_HACK;

-	if(countitem($@LV4_Steel) < 50) goto LV4_HACK;

-	if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;

-	delitem $@LV4_Gold, 10;

-	delitem $@LV4_Steel, 50;

-	delitem $@LV4_Emperium, 10;

-	if(@gem == $@LV4_Muscovite) set lv4_weapon, 9;

-	if(@gem == $@LV4_Biotite) set lv4_weapon, 10;

-	if(@gem == $@LV4_Pyroxene) set lv4_weapon, 11;	

-	close;

-

-

-LV4_8_NOGEM:

-	mes "[Hibilaithan]";

-	mes "I seem to recall that I asked you to bring";

-	mes "30 of a special ore among Muscovite, Biotite or Pyroxene...";

-	mes "And I don't see any of them.";

-	mes "You must have forgot that. Please go get them too.";

-	close;

-

-

-LV4_8_FAIL:

-	mes "[Hibilaithan]";

-	mes "Please bring me 10 Gold, 50 Steel and 10 Emperium";

-	mes "as basic materials...";

-	mes "and you can enchant the product with a certain trait.";

-	mes "For that, I need some rare ores...";

-	next;

-	mes "[Hibilaithan]";

-	mes "Please bring me 30 of an ore among Citrine, Biotite or Pyroxene.";

-	mes "Each one of them possess their own attributes";

-	mes "and by using the ore you have brought,";

-	mes "my product will possess a special trait.";

-	next;

-	mes "[Hibilaithan]";

-	mes "I wish you good luck...";

-	mes "I will wait for you!";

-	close;

-

-

-

-//--------------------------------------------------

-//Guessing Game

-//--------------------------------------------------

-LV4_9:

-	if(lv4_weapon == 9) set @gem, $@LV4_Muscovite;

-	if(lv4_weapon == 10) set @gem, $@LV4_Biotite;

-	if(lv4_weapon == 11) set @gem, $@LV4_Pyroxene;

-	if(countitem(@gem) < 30) goto LV4_9_NOGEM; 

-	

-	mes "[Hibilaithan]";

-	mes "Okay, let's get started!";

-	mes "It is simple. There are";

-	mes "4 monsters that I like. I am going to think";

-	mes "of a monster among the 4, you will guess what it is.";

-	mes "We will play this game 5 times and you must";

-	mes "answer correctly at least 1 out of 5 times. Doesn't that sound easy?";

-	next;

-	mes "[Hibilaithan]";

-	mes "This is a very good game for";

-	mes "increasing your luck!";

-	mes "Okay, you better be ready now.";

-	next;

-	

-	set @dap, 0;

-	set @correct[0],1;

-	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {

-		mes "[Hibilaithan]";

-		

-		if(@i == 1) mes "I like Zealotus, Alice,";

-		if(@i == 1) mes "Munak, and Isis among all monsters.";

-		

-		mes "Now, guess which one";

-		mes "I am thinking of at this moment.";		

-		next;

-

-		set @mons, rand(1, 4);		

-

-		switch( select( "Zhertilsh", "Alice", "Munak", "Isis" ) ) {

-				case 1:

-					set @correct[@i], 1;

-					if(@mons == 1) set @dap, @dap + 1;

-					break;

-

-				case 2:

-					set @correct[@i], 2;

-					if(@mons == 2) set @dap, @dap + 1;

-					break;

-

-				case 3:

-					set @correct[@i], 3;

-					if(@mons == 3) set @dap, @dap + 1;

-					break;

-

-				case 4:

-					set @correct[@i], 4;

-					if(@mons == 4) set @dap, @dap + 1;

-					break;

-		}

-	}

-

-	mes "[Hibilaithan]";

-	mes "Okay, that's all! Now let me";

-	mes "check the answers. I was thinking";

-	mes "monsters in the order of...";

-	next;

-	mes "[Hibilaithan]";

-

-	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {

-		if(@correct[@i] == 1) mes "Zhertilsh";

-		if(@correct[@i] == 2) mes "Alice";

-		if(@correct[@i] == 3) mes "Munak";

-		if(@correct[@i] == 4) mes "Isis";

-	}

-

-	if(@dap < 1) goto LV4_9_FAIL;

-	

-	next;

-	mes "[Hibilaithan]";

-	mes "Wow, are you a mind reader or what?";

-	mes "You answered " + @dap + " times correctly! Whoa...";

-	mes "I guess you are already a lucky one,";

-	mes "therefore we don't have any reason";

-	mes "to prolong the work now!";

-	mes "I need some time to prepare, talk to you later!";

-	

-	if(countitem(@gem) < 30) goto LV4_HACK;

-	delitem @gem, 30;

-	set lv4_weapon, lv4_weapon + 3;

-	close;

-	

-	

-LV4_9_FAIL:

-	if(countitem(@gem) < 10) goto LV4_HACK;

-	delitem @gem, 10;

-	

-	next;

-	mes "[Hibilaithan]";

-	mes "This is not good, not good at all!";

-	mes "You didn't even have a correct answer.";

-	mes "We cannot start the work with this kind of result.";

-	mes "Okay...we must drive away your bad luck first.";

-	mes "10 " + @gemstring$ + " will do it!";

-	next;

-	mes "[Hibilaithan]";

-	mes "Now, we need to play the game again.";

-	mes "If you don't anymore ore, go get some.";

-	mes "I am not going anywhere";

-	mes "so you don't need to be in hurry.";

-	mes "Take your time!";

-	close;

-

-

-LV4_9_NOGEM:

-	mes "[Hibilaithan]";

-	mes "Hum. You might lack of";

-	mes "materials? Check them again.";

-	mes "See. I knew it.";

-	close;

-	

-	

-	

-//--------------------------------------------------

-//Weapon Creation

-//--------------------------------------------------

-LV4_12:

-	mes "[Hibilaithan]";

-	mes "Ah, I can tell you are ready. Alright...";

-	mes "I will try to make an awsome item for you.";

-	mes "...and you are not going to look over my shoulder!";

-	mes "I don't want to share my secret recipe with anyone!";

-	next;

-	mes "- Hibilaithan picks up all the materials -";

-	mes "- and turns his back at you. -";

-	mes "- You see him busying himself with something. -";

-	mes "- Although the way he is doing it -";

-	mes "- looks very primitive and crude, -";

-	mes "- you feel that some strange energy has gathered around him. -";

-	next;

-	mes "[Hibilaithan]";

-	mes "Umm~ umm~ umm~";

-	mes "Aww~aww~ aww~";

-	mes "Phew~ phew~ phew~";

-	mes "Woo~ woo~ woo~";

-	mes "Ho~ ho~ ho~";

-	next;

-	mes "[Hibilaithan]";

-	mes " ";

-	mes " ";

-	mes "Haha, there it is! Phew, that was really hard...";

-	mes "You're anxious, aren't you? Ok, let's see...";

-	next;

-	

-	mes "[Hibilaithan]";

-	mes "It's a big success! Hahaha, sure, I made it...";

-	mes "Therefore, it should be a big success.";

-	mes "Oh, you got a weapon here...let's see,";

-	

-	switch( lv4_weapon ) {

-		case 12:

-			mes "it is a Mailbreaker!";

-			getitem 1225, 1; // 1225,Mail_Breaker

-			break;

-		case 13:

-			mes "it is a Swordbreaker!";

-			getitem 1224, 1; // 1224,Sword_Breaker

-			break;

-		case 14:

-			mes "it is a Slaughter!";

-			getitem 1367, 1; // 1367,Slaughter

-			break;

-	}

-

-	set lv4_weapon, 0;

-	mes "This was made competely because I am that skillful,";

-	mes "you got to be thankful for that!";

-	next;

-	

-	mes "[Hibilaithan]";

-	mes "Whenever you want to have a nice thing,";

-	mes "come back to me anytime!";

-	mes "I am a very generous genius, you know?";

-	mes "Always be thankful for the weapon that I made for you, okay?";

-	mes "See you!";

-	close;

-

-

-

-//--------------------------------------------------

-//Other Quests

-//--------------------------------------------------

-LV4_7:

-	mes "[Hibilaithan]";

-	mes "Hmm...I feel something strange from you.";

-	mes "I regret to say that there is nothing I can do for you.";

-	mes "I hope you have a safe travel.";

-	close;

-	

-	

-	

-//--------------------------------------------------

-//Hack Attempt

-//--------------------------------------------------

-LV4_HACK:

-	mes "[Hibilaithan]";

-	mes "Hmm. There seems to be a bit of problem.";

-	set lv4_weapon, 0;

-	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";

-	close;

-}

-

-//--------------------------------------------------

-// Tabezthan, creates Talefing, Sabbath and Caesar's Sword

-//--------------------------------------------------

-

-um_in.gat,156,77,5	script	Tabezthan	788,{

-	if(event_umbala < 3) goto LumWord;

-	set @NowWeight, MaxWeight - Weight;

-	if (@NowWeight >= 3000) goto LV4_NOT_OW;

-	mes "- Wait a minute! -";

-	mes "- You are currently overweight. -";

-	mes "- Please lose some weight -";

-	mes "- and try again. -";

-	close;

-

-	

-LV4_NOT_OW:

-	if(lv4_weapon == 0) goto LV4_0;

-	if(lv4_weapon == 15) goto LV4_15;

-	if(lv4_weapon == 16) goto LV4_16;

-	if(lv4_weapon == 17) goto LV4_16;

-	if(lv4_weapon == 18) goto LV4_16;

-	if(lv4_weapon == 19) goto LV4_19;

-	if(lv4_weapon == 20) goto LV4_19;

-	if(lv4_weapon == 21) goto LV4_19;

-	if(lv4_weapon < 15) goto LV4_14;

-	if(lv4_weapon > 21) goto LV4_14;	

-	end; // shouldn't be here

-	

-

-LumWord:

-		mes "[Tabezthan]";

-		mes "Umba! Umbaba...umum! Baumba!";

-		mes "Umumumbababaumumbabaumba!";

-		mes "Umbaumbaumbaumbaumhah!";

-		mes "Umumumumumbababababab!";

-	close;

-

-	

-LV4_0:

-	mes "[Tabezthan]";

-	mes "Hmm...I feel something different about you...";

-	mes "You are a stranger...aren't you?";

-	next;

-	mes "[Tabezthan]";

-	mes "Let me introduce myself.";

-	mes "I am Tabezthan,";

-	mes "the storage of the knowledge and the genius of Umbala...";

-	mes "Hahahaha.";

-	next;

-	mes "[Tabezthan]";

-	mes "I have two diciples. One is Hibilaithan the fool";

-	mes "and the other one is Bazo who is intelligent";

-	mes "and is from outside the same as you.";

-	next;

-	mes "[Tabezthan]";

-	mes "Of course both of them are talented and skillful";

-	mes "but I am worried about Hibilaithan, for he";

-	mes "makes many stupid mistakes and is shameless";

-	mes "for what he has done.";

-	next;

-	mes "[Tabezthan]";

-	mes "I have tought them how to manipulate";

-	mes "the mysterious energy existing in Umbala";

-	mes "for creating things with it..";

-	mes "I heard that there is a similar skill called Alchemy";

-	mes "in the outside world. Although I am not sure if I remember it correctly.";

-	next;

-	mes "[Tabezthan]";

-	mes "Anyways, would you like to see my skill?";

-	mes "If so, bring me materials I need,";

-	mes "I am more than willing to present my skill for you.";

-	next;

-	

-	switch( select( "Yes, please.", "No, thank you." ) ) {

-		case 1:

-			if(BaseLevel >= 70) goto L4_0_1;

-			

-			mes "[Tabezthan]";

-			mes "Sebelumnya saya harus menekankan ini";

-			mes "Barang spesial ini akan menjadi berbahaya jika kamu sendiri masih lemah";

-			mes "Kamu harus lebih berpengalaman lagi anak muda";

-			mes "Naikan level kamu terlebih dahulu";

-			mes "jika kamu sudah merasa kuat kembalilah kesini kembali";

-			mes "Sampai jumpa ~~";

-			break;

-L4_0_1:

-			mes "[Tabezthan]";

-			mes "One with curiousity...he is called the young adventurer...";

-			mes "Fine. Then let me inform you of";

-			mes "the matetrials I need. Please memorize them";

-			mes "or write them down.";

-			mes "It is not much however.";

-			next;

-			mes "[Tabezthan]";

-			mes "I need 10 Gold, 50 Steel and 10 Emperium";

-			mes "as basic materials...";

-			mes "and you can enchant the product with a certain trait.";

-			mes "For that, I need some rare ores...";

-			next;

-			mes "[Tabezthan]";

-			mes "Please bring me 30 of an ore among Phlogopite, Peridot or Rose Quartz.";

-			mes "Each one of them possess their own attribute";

-			mes "and by using the ore you have brought,";

-			mes "my product will possess a special trait.";

-			next;

-			mes "[Tabezthan]";

-			mes "However, please be aware that";

-			mes "I cannot guarantee what will come out as a result.";

-			mes "There are too many factors in the world of alchemy";

-			mes "where my knowledge is limited.";

-			mes "So you must be willing to accept the result as it is";

-			mes "even if it does not satisfy your expectations.";

-			next;

-			mes "[Tabezthan]";

-			mes "That means that you should place trust in luck.";

-			mes "Let's talk about it later...please go prepare the materials first.";

-			mes "Come back when you are ready.";

-			mes "I will wait here.";

-			

-			set lv4_weapon, 15;

-			break;

-		case 2:

-			mes "[Tabezthan]";

-			mes "Oh...I see. I was not forcing you anyhow.";

-			mes "However, it is a little bit dissappointing to hear that.";

-			mes "I was going to display my ability at full length.";

-			mes "When you change your mind, please come back.";

-			break;			

-	}	

-	close;

-	

-

-

-//--------------------------------------------------

-//Gold, Steel, Emp Check + Choosing the gem

-//--------------------------------------------------

-LV4_15:

-	if(countitem($@LV4_Gold) < 10) goto LV4_15_FAIL;

-	if(countitem($@LV4_Steel) < 50) goto LV4_15_FAIL;

-	if(countitem($@LV4_Emperium) < 10) goto LV4_15_FAIL;

-

-	mes "[Tabezthan]";

-	mes "Ah~ you came back ealier than I thought.";

-	mes "Let's see...you have all the basic materials...and";

-	mes "we need one more thing, remember?";

-	mes "Did you bring it as well?";

-	next;

-	

-	if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Olivine) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_POR;

-	if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Olivine) >= 30) goto LV4_15_PO;

-	if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_PR;

-	if (countitem($@LV4_Olivine) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_OR;

-	if (countitem($@LV4_Phlogopite) >= 30) goto LV4_15_P;

-	if (countitem($@LV4_Olivine) >= 30) goto LV4_15_O;

-	if (countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_R;

-	goto LV4_15_NOGEM;

-	end;

-

-

-LV4_15_POR:	

-	mes "[Tabezthan]";

-	mes "You made a great effort to bring all of them.";

-	mes "However, you can only use one kind at a time.";

-	mes "Please choose what you want to use this time.";

-	next;

-			

-	switch( select( "Phlogopite", "Peridot", "Rose Quartz" ) ) {

-		case 1:

-			mes "[Tabezthan]";

-			mes "Phlogopite...okay. Before we start,";

-			set @gem, $@LV4_Phlogopite;

-			set @gemstring$,"Phlogopite";

-			break;

-		case 2:

-			mes "[Tabezthan]";

-			mes "Peridot...okay. Before we start,";

-			set @gem, $@LV4_Olivine;

-			set @gemstring$,"Peridot";

-			break;

-		case 3:

-			mes "[Tabezthan]";

-			mes "Rose Quartz....okay. Before we start,";

-			set @gem, $@LV4_Rose_Quartz;

-			set @gemstring$,"Rose Quartz";

-			break;

-	}

-	

-	goto LV4_15_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_15_PO:

-	mes "[Tabezthan]";

-	mes "Hahaha, I asked you to bring one kind not two.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Phlogopite", "Peridot" ) ) {

-		case 1:

-			mes "[Tabezthan]";

-			mes "Phlogopite...okay. Before we start,";

-			set @gem, $@LV4_Phlogopite;

-			set @gemstring$,"Phlogopite";

-			break;

-		case 2:

-			mes "[Tabezthan]";

-			mes "Peridot...okay. Before we start,";

-			set @gem, $@LV4_Olivine;

-			set @gemstring$,"Peridot";

-			break;

-	}

-	

-	goto LV4_15_PICK;

-	end; // shouldn't be here

-	

-

-LV4_15_PR:	

-	mes "[Tabezthan]";

-	mes "Hahaha, I asked you to bring one kind not two.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Phlogopite", "Rose Quartz" ) ) {

-		case 1:

-			mes "[Tabezthan]";

-			mes "Phlogopite...okay. Before we start,";

-			set @gem, $@LV4_Phlogopite;

-			set @gemstring$,"Phlogopite";

-			break;

-		case 2:

-			mes "[Tabezthan]";

-			mes "Rose Quartz....okay. Before we start,";

-			set @gem, $@LV4_Rose_Quartz;

-			set @gemstring$,"Rose Quartz";

-			break;

-	}

-	

-	goto LV4_15_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_15_OR:	

-	mes "[Tabezthan]";

-	mes "Hahaha, I asked you to bring one kind not two.";

-	mes "You can only use one kind of ore.";

-	mes "Which one would you like to use?";

-	next;

-	

-	switch( select( "Peridot", "Rose Quartz" ) ) {

-			case 1:

-				mes "[Tabezthan]";

-				mes "Peridot...okay. Before we start,";

-				set @gem, $@LV4_Olivine;

-				set @gemstring$,"Peridot";

-				break;

-			case 2:

-				mes "[Tabezthan]";

-				mes "Rose Quartz....okay. Before we start,";

-				set @gem, $@LV4_Rose_Quartz;

-				set @gemstring$,"Rose Quartz";

-				break;

-	}

-	

-	goto LV4_15_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_15_P:

-	mes "[Tabezthan]";

-	mes "Phlogopite...okay. Before we start,";

-	set @gem, $@LV4_Phlogopite;

-	set @gemstring$,"Phlogopite";

-	goto LV4_15_PICK;

-	end; // shouldn't be here

-		

-		

-LV4_15_O:

-	mes "[Tabezthan]";

-	mes "Peridot...okay. Before we start,";

-	set @gem, $@LV4_Olivine;

-	set @gemstring$,"Peridot";

-	goto LV4_15_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_15_R:

-	mes "[Tabezthan]";

-	mes "Rose Quartz....okay. Before we start,";

-	set @gem, $@LV4_Rose_Quartz;

-	set @gemstring$,"Rose Quartz";

-	goto LV4_15_PICK;

-	end; // shouldn't be here

-	

-	

-LV4_15_PICK:

-	mes "we must do one thing first.";

-	mes "That is, to test your luck.";

-	mes "As you already know,";

-	mes "I cannot guarantee you that we will succeed";

-	mes "in makeing one right away.";

-	next;

-	mes "[Tabezthan]";

-	mes "If we can raise your luck before we start,";

-	mes "we will be able to succeed.";

-	next;

-	mes "[Tabezthan]";

-	mes "Now you must be wondering what we";

-	mes "will do in order to increase your luck.";

-	mes "It is simple, we will play a mind-reading game.";

-	mes "I am going to think of one monster among 4 of my favorites,";

-	mes "you will guess what the monster is.";

-	next;

-	mes "[Tabezthan]";

-	mes "You must answer correctly at least";

-	mes "1 out of 5 times. It should not be that difficult.";

-	mes "And if you fail to answer correctly, we must do something else";

-	mes "to drive away your bad luck.";

-	next;

-	mes "[Tabezthan]";

-	mes "I will take 10 of the special ore you chose.";

-	mes "Well, I understand that it does not sound tempting";

-	mes "but let's think of it this way.";

-	mes "It is much better than wasting 30 ore";

-	mes "by failing to create the item, isn't it?";

-	next;

-	mes "[Tabezthan]";

-	mes "Okay, now I need some time to prepare...";

-	mes "Talk to you later!";

-	

-	if(countitem($@LV4_Gold) < 10) goto LV4_HACK;

-	if(countitem($@LV4_Steel) < 50) goto LV4_HACK;

-	if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;

-	delitem $@LV4_Gold, 10;

-	delitem $@LV4_Steel, 50;

-	delitem $@LV4_Emperium, 10;

-	if(@gem == $@LV4_Phlogopite) set lv4_weapon, 16;

-	if(@gem == $@LV4_Olivine) set lv4_weapon, 17;

-	if(@gem == $@LV4_Rose_Quartz) set lv4_weapon, 18; 

-	close;

-

-

-LV4_15_NOGEM:

-	mes "[Tabezthan]";

-	mes "Hmmm...I cannot find any rare ores in";

-	mes "the materials that you have brought...";

-	mes "Please bring me 30 of an ore among Phlogopite, Peridot";

-	mes "or Rose Quartz.";

-	close;

-

-

-LV4_15_FAIL:

-	mes "[Tabezthan]";

-	mes "I need 10 Gold, 50 Steel and 10 Emperium";

-	mes "as basic materials...";

-	mes "and you can enchant the product with a certain trait.";

-	mes "For that, I need some rare ores...";

-	next;

-	mes "[Tabezthan]";

-	mes "Please bring me 30 of an ore among Phlogopite, Peridot or Rose Quartz.";

-	mes "Each one of them possess their own attribute";

-	mes "and by using the ore you have brought,";

-	mes "my product will possess a special trait.";

-	close;

-

-

-

-//--------------------------------------------------

-//Guessing Game

-//--------------------------------------------------

-LV4_16:

-	if(lv4_weapon == 16) set @gem, $@LV4_Phlogopite;

-	if(lv4_weapon == 17) set @gem, $@LV4_Olivine;

-	if(lv4_weapon == 18) set @gem, $@LV4_Rose_Quartz;

-	if(countitem(@gem) < 30) goto LV4_2_NOGEM; 

-	

-	mes "[Tabezthan]";

-	mes "Okay, let's get started!";

-	mes "It is simple. There are";

-	mes "4 monsters that I like. I am going to think";

-	mes "of a monster among the 4, you will guess what it is.";

-	mes "We will play this game 5 times and you must";

-	mes "answer correctly at least 1 out of 5 times. Doesn't it sound easy?";

-	next;

-	mes "[Hibilaithan]";

-	mes "This is a very good game for";

-	mes "increasing your luck!";

-	mes "Okay, better be ready now.";

-	next;

-	

-	set @dap, 0;

-	set @correct[0],1;

-	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {

-		mes "[Tabezthan]";

-		

-		if(@i == 1) mes "I like Baphomet, Dark Lord,";

-		if(@i == 1) mes "Bloody Knight, and Stormy Knight among all monsters.";

-		

-		mes "Now, guess which one";		

-		mes "I am thinking at this moment.";

-		next;

-

-		set @mons, rand(1, 4);		

-

-		switch( select( "Baphomet", "Dark Lord", "Bloody Knight", "Stormy Knight" ) ) {

-				case 1:

-					set @correct[@i], 1;

-					if(@mons == 1) set @dap, @dap + 1;

-					break;

-

-				case 2:

-					set @correct[@i], 2;

-					if(@mons == 2) set @dap, @dap + 1;

-					break;

-

-				case 3:

-					set @correct[@i], 3;

-					if(@mons == 3) set @dap, @dap + 1;

-					break;

-

-				case 4:

-					set @correct[@i], 4;

-					if(@mons == 4) set @dap, @dap + 1;

-					break;

-		}

-	}

-

-	mes "[Tabezthan]";

-	mes "Okay, that's all! Now let me check";

-	mes "the answers. I was thinking";

-	mes "of the monsters in the order of...";

-	next;

-	mes "[Tabezthan]";

-

-	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {

-		if(@correct[@i] == 1) mes "Baphomet";

-		if(@correct[@i] == 2) mes "Dark Lord";

-		if(@correct[@i] == 3) mes "Bloody Knight";

-		if(@correct[@i] == 4) mes "Stormy Knight";

-	}

-

-	if(@dap < 1) goto LV4_16_FAIL;

-	

-	next;

-	mes "[Tabezthan]";

-	mes "You have answered " + @dap + " times correctly.";

-	mes "It seems that your luck is at its highest.";

-	mes "I need some time to prepare, talk to you later.";

-	

-	if(countitem(@gem) < 30) goto LV4_HACK;

-	delitem @gem, 30;

-	set lv4_weapon, lv4_weapon + 3;

-	close;

-	

-	

-LV4_16_FAIL:

-	if(countitem(@gem) < 10) goto LV4_HACK;

-	delitem @gem, 10;

-	

-	next;

-	mes "[Tabezthan]";

-	mes "Unfortunately you have failed...";

-	mes "When you have bad luck, you'd better";

-	mes "not expect a good result.";

-	mes "Okay, we must drive away your bad luck.";

-	mes "10 " + @gemstring$ + " will do it.";

-	next;

-	mes "[Tabezthan]";

-	mes "Do not be so dissappointed.";

-	mes "It is still better than wasting 30 of them";

-	mes "for trying to make a thing when you know";

-	mes "you would not make it. ";

-	next;

-	mes "[Tabezthan]";

-	mes "If you need something to prepare,";

-	mes "please do. I will wait for you here.";

-	close;

-

-

-LV4_16_NOGEM:

-	mes "[Tabezthan]";

-	mes "Umm...it seems you are lacking " + @gemstring$;

-	mes "Please count them and";

-	mes "if you don't have enough,";

-	mes "you can go gather more first.";

-	close;

-	

-	

-	

-//--------------------------------------------------

-//Weapon Creation

-//--------------------------------------------------

-LV4_19:

-	mes "[Tabezthan]";

-	mes "Great, I am also ready.";

-	mes "Shall we start now? Give me a minute.";

-	mes "I need to arrange these materials in a magic circle.";

-	next;

-	mes "- He arranges materials in a strange circle -";

-	mes "- and starts chanting in a strange language. -";

-	mes "- As he does that, suddenly the air surrounding him -";

-	mes "- seems to change and you feel something powerful-";

-	mes "- gathering around him and the materials. -";

-	next;

-	mes "[Tabezthan]";

-	mes "Please understand that the power is not from me.";

-	mes "I just used my ability to gather the power into these materials.";

-	mes "The power has come from the city of the dead.";

-	next;

-	mes "[Tabezthan]";

-	mes "The result is in God's hands.";

-	mes "Let's pray for a good result together.";

-	mes "Hmmmmm!";

-	next;

-	mes "- After a while...you find the materials -";

-	mes "- are gathering and combining into one new thing. -";

-	mes "- Does that mean that you have succeeded or failed?! -";

-	next;

-	mes "[Tabezthan]";

-	mes "?!...God must bless you!";

-	mes "I cannot believe that I created such a rare weapon!";

-	mes "Yes, my late father told me the name of this weapon.";

-	

-	switch( lv4_weapon ) {

-		case 19:

-			mes "That is Caesar's Sword.";

-			getitem 1134, 1; // 1134,Caesar's_Sword

-			break;

-		case 20:

-			mes "That is Talefing.";

-			getitem 1139, 1; // 1139,Talefing_

-			break;

-		case 21:

-			mes "That is Sabbath.";

-			getitem 1365, 1; // 1365,Sabbath

-			break;

-	}

-

-	set lv4_weapon, 0;

-	mes "[Tabezthan]";

-	mes "Now, since I made this with materials";

-	mes "that you have brought, this is yours now.";

-	mes "I only helped you to make it,";

-	mes "and I am glad to give this to you.";

-	next;

-	mes "[Tabezthan]";

-	mes "Well, feel free to come back";

-	mes "if you want to make a thing again...hahaha.";

-	mes "The weapon was made to be yours.";

-	close;

-

-

-

-//--------------------------------------------------

-//Other Quests

-//--------------------------------------------------

-LV4_14:

-	mes "[Tabezthan]";

-	mes "Umm...you don't have a business with me, do you?";

-	mes "Please do not think of me as an old fool.";

-	mes "When a man gets older, he can see through other people's minds.";

-	mes "Go ahead and do what you have been doing.";

-	mes "Do not let me intrrupt you any longer.";

-	close;

-	

-	

-	

-//--------------------------------------------------

-//Hack Attempt

-//--------------------------------------------------

-LV4_HACK:

-	mes "[Tabezthan]";

-	mes "Hmm. There seems to be a bit of problem.";

-	set lv4_weapon, 0;

-	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";

-	close;

-}

-

-//--------------------------------------------------

-// Bill Thayer, Gives hints for S grade weapons quests

-//--------------------------------------------------

-

-aldebaran.gat,178,239,3	script	Bill Thayer	712,{

-	// Explain Materials

-	if(lv4_weapon == 26) goto LV4_26;

-	if(lv4_weapon == 27) goto LV4_27;

-	if(lv4_weapon == 28) goto LV4_28;

-	

-	if(lv4_weapon == 35) goto LV4_35;

-	if(lv4_weapon == 36) goto LV4_36;

-	if(lv4_weapon == 37) goto LV4_37;

-

-	if(lv4_weapon == 44) goto LV4_44;

-	if(lv4_weapon == 45) goto LV4_45;

-	if(lv4_weapon == 46) goto LV4_46;

-	

-	if(lv4_weapon == 53) goto LV4_53;

-	if(lv4_weapon == 54) goto LV4_54;

-	if(lv4_weapon == 55) goto LV4_55;

-	

-	// Guide

-	if(lv4_weapon == 22) goto LV4_22;

-	if(lv4_weapon == 23) goto LV4_23;

-		

-	if(lv4_weapon == 31) goto LV4_31;

-	if(lv4_weapon == 32) goto LV4_32;

-	

-	if(lv4_weapon == 40) goto LV4_40;

-	if(lv4_weapon == 41) goto LV4_41;

-	

-	if(lv4_weapon == 49) goto LV4_49;

-	if(lv4_weapon == 50) goto LV4_50;

-	

-	mes "[Bill Thayer]";

-	mes "...I cannot do anything now.";

-	mes "In the past, I used to be a well-known weaponsmith";

-	mes "but now I am just a lonely old man who lost all of his sons.";

-	mes "Please leave me alone.";

-	close;

-

-LV4_27:

-LV4_28:

-LV4_36:

-LV4_37:

-LV4_45:

-LV4_46:

-LV4_54:

-LV4_55:

-	if(lv4_weapon == 27)

-{

-			set @LV4_Gem1Name$, "Peridot";

-			set @LV4_Gem2Name$, "Turquoise";

-			set @LV4_Gem3Name$, "Agate";

-}

-	if(lv4_weapon == 28)

-{

-			set @LV4_Gem1Name$, "Phlogopite";

-			set @LV4_Gem2Name$, "Pyroxene";

-			set @LV4_Gem3Name$, "Rose Quartz";

-}

-	if(lv4_weapon == 36)

-{

-			set @LV4_Gem1Name$, "Muscovite";

-			set @LV4_Gem2Name$, "Rose Quartz";

-			set @LV4_Gem3Name$, "Peridot";

-}

-	if(lv4_weapon == 37)

-{

-			set @LV4_Gem1Name$, "Biotite";

-			set @LV4_Gem2Name$, "Agate";

-			set @LV4_Gem3Name$, "Citrine";

-}

-	if(lv4_weapon == 45)

-{

-			set @LV4_Gem1Name$, "Turquoise";

-			set @LV4_Gem2Name$, "Biotite";

-			set @LV4_Gem3Name$, "Rose Quartz";

-}

-	if(lv4_weapon == 46)

-{

-			set @LV4_Gem1Name$, "Citrine";

-			set @LV4_Gem2Name$, "Pyroxene";

-			set @LV4_Gem3Name$, "Phlogopite";

-}

-	if(lv4_weapon == 54)

-{

-			set @LV4_Gem1Name$, "Muscovite";

-			set @LV4_Gem2Name$, "Agate";

-			set @LV4_Gem3Name$, "Citrine";

-}

-	if(lv4_weapon == 55)

-{

-			set @LV4_Gem1Name$, "Pyroxene";

-			set @LV4_Gem2Name$, "Turquoise";

-			set @LV4_Gem3Name$, "Phlogopite";

-}

-

-	mes "[Bill Thayer]";

-	mes "Hmm...it seems that you need 30 of";

-	mes @LV4_Gem1Name$ + ", " + @LV4_Gem2Name$ + ", and " + @LV4_Gem3Name$;

-	mes "I am sure that those are the materials...";

-	mes "but I cannot guarantee anything about the result...";

-	next;

-	mes "[Bill Thayer]";

-	mes "My sons passed away before we finished this research...";

-	mes "Hahaha...let's not talk about it.";

-	mes "I told you what you need anyway.";

-	close;

-

-

-LV4_26:

-LV4_35:

-LV4_44:

-LV4_53:

-	mes "[Bill Thayer]";

-	if(lv4_weapon == 26) mes "What, Kayron's research?";

-	if(lv4_weapon == 35) mes "What, Reyghema's research?";

-	if(lv4_weapon == 44) mes "What? Hein's research?";

-	if(lv4_weapon == 53) mes "What? Waltboughst's research?";	

-	mes "How do you know him?";

-	mes "Were you a friend of him when he was still alive?";

-	mes "Ah....there must an act of providence.";

-	next;

-	

-	set lv4_weapon, lv4_weapon + rand(1, 2);

-	

-	switch( lv4_weapon ) {

-		case 27:

-			set @LV4_Gem1Name$, "Peridot";

-			set LV4_Gem1, $@LV4_Olivine;

-			set @LV4_Gem2Name$, "Turquoise";

-			set LV4_Gem2, $@LV4_Turquoise;

-			set @LV4_Gem3Name$, "Agate";

-			set LV4_Gem3, $@LV4_Agate;

-			break;

-		case 28:

-			set @LV4_Gem1Name$, "Phlogopite";

-			set LV4_Gem1, $@LV4_Phlogopite;

-			set @LV4_Gem2Name$, "Pyroxene";

-			set LV4_Gem2, $@LV4_Pyroxene;

-			set @LV4_Gem3Name$, "Rose Quartz";

-			set LV4_Gem3, $@LV4_Rose_Quartz;

-			break;

-		case 36:

-			set @LV4_Gem1Name$, "Muscovite";

-			set LV4_Gem1, $@LV4_Muscovite;

-			set @LV4_Gem2Name$, "Rose Quartz";

-			set LV4_Gem2, $@LV4_Rose_Quartz ;

-			set @LV4_Gem3Name$, "Peridot";

-			set LV4_Gem3, $@LV4_Olivine;

-			break;

-		case 37:

-			set @LV4_Gem1Name$, "Biotite";

-			set LV4_Gem1, $@LV4_Biotite;

-			set @LV4_Gem2Name$, "Agate";

-			set LV4_Gem2, $@LV4_Agate;

-			set @LV4_Gem3Name$, "Citrine";

-			set LV4_Gem3, $@LV4_Citrine;

-			break;

-		case 45:

-			set @LV4_Gem1Name$, "Turquoise";

-			set LV4_Gem1, $@LV4_Turquoise;

-			set @LV4_Gem2Name$, "Biotite";

-			set LV4_Gem2, $@LV4_Biotite;

-			set @LV4_Gem3Name$, "Rose Quartz";

-			set LV4_Gem3, $@LV4_Rose_Quartz;

-			break;

-		case 46:

-			set @LV4_Gem1Name$, "Citrine";

-			set LV4_Gem1, $@LV4_Citrine;

-			set @LV4_Gem2Name$, "Pyroxene";

-			set LV4_Gem2, $@LV4_Pyroxene;

-			set @LV4_Gem3Name$, "Phlogopite";

-			set LV4_Gem3, $@LV4_Phlogopite;

-			break;

-		case 54:

-			set @LV4_Gem1Name$, "Muscovite";

-			set LV4_Gem1, $@LV4_Muscovite;

-			set @LV4_Gem2Name$, "Agate";

-			set LV4_Gem2, $@LV4_Agate;

-			set @LV4_Gem3Name$, "Citrine";

-			set LV4_Gem3, $@LV4_Citrine;

-			break;

-		case 55:

-			set @LV4_Gem1Name$, "Pyroxene";

-			set LV4_Gem1, $@LV4_Pyroxene;

-			set @LV4_Gem2Name$, "Turquoise";

-			set LV4_Gem2, $@LV4_Turquoise;

-			set @LV4_Gem3Name$, "Phlogopite";

-			set LV4_Gem3, $@LV4_Phlogopite;

-			break;

-	}

-	

-	mes "[Bill Thayer]";

-	mes "Hmm...it seems that you need 30 of";

-	mes @LV4_Gem1Name$ + ", " + @LV4_Gem2Name$ + ", and " + @LV4_Gem3Name$;

-	mes "I am sure that those are the materials...";

-	mes "but I cannot guarantee anything about the result...";

-	next;

-	mes "[Bill Thayer]";

-	mes "My sons passed away before we finished this research...";

-	mes "Hahaha...let's not talk about it.";

-	mes "I told you what you need anyway.";

-	close;	

-

-

-LV4_22:

-LV4_23:

-	mes "[Bill Thayer]";

-	mes "Oh well, I told you already";

-	mes "that there is nothing I can do for you...";

-	mes "since my sons are all gone...why are";

-	mes "you wasting my breath? ^4D4DFFYou are helpless.^000000";

-	set lv4_weapon, 23;

-	next;

-	mes "[Bill Thayer]";

-	mes "...you just made me";

-	mes "miss my sons again...";

-	mes "Please leave me alone.";

-	close;

-	

-

-LV4_31:

-LV4_32:

-	mes "[Bill Thayer]";

-	mes "All of my sons broke my heart by dying young...";

-	mes "...youth...what is youth?";

-	mes "^4D4DFFThat means that you never regret anything!^000000";

-	set lv4_weapon, 32;

-	next;

-	mes "[Bill Thayer]";

-	mes "That was what I used to tell to my sons.";

-	mes "Please remember that,";

-	mes "never regret anything that you have done.";

-	mes "However, in order to do that, you must";

-	mes "do everything right...that's all I can tell you for now.";

-	close;

-	

-		

-LV4_40:

-LV4_41:

-	mes "[Bill Thayer]";

-	mes "...no matter how much you are willing to pay me,";

-	mes "I am not going to forge any weapons.";

-	mes "Even when I was actively forging weapons,";

-	mes "I didn't accept money from my clients.";

-	mes "You know why?";

-	next;

-	mes "[Bill Thayer]";

-	mes "It brings me bad luck ^4D4DFFto^000000";

-	mes "^4D4DFFforge a good weapon.^000000";

-	mes "Therefore I didn't receive money from them.";

-	set lv4_weapon, 41;

-	next;

-	mes "[Bill Thayer]";

-	mes "Well, I am not going to do so";

-	mes "even if you offer me something else other than money";

-	mes "...unless all of my sons come back";

-	mes "alive....";

-	close;

-

-

-LV4_49:

-LV4_50:

-		mes "[Bill Thayer]";

-		mes "...do you not have anything to do?";

-		mes "I hope you stop bothering me";

-		mes "and trying your best for your work.";

-		mes "Ah...trying best does not always";

-		mes "result in a success though.";

-		next;

-		mes "[Bill Thayer]";

-		mes "However, ^4D4DFFall the successful men^000000";

-		mes "^4D4DFFin the history tried their best!^000000";

-		mes "I hope you will remember that.";

-		mes "I used to tell this to my sons when they were alive.";

-		mes "Hahaha...";

-		set lv4_weapon, 50;

-		close;

-}

-

-//--------------------------------------------------

-// Kayron, creates Longinus' Spear, Guillotine, Great Axe and Brionac

-//--------------------------------------------------

-

-niflheim.gat,240,193,3	script	Kayron	794, {

-	set @NowWeight, MaxWeight - Weight;

-	if (@NowWeight >= 3000) goto LV4_NOT_OW;

-	mes "- Wait a minute! -";

-	mes "- You are currently overweight. -";

-	mes "- Please lose some weight -";

-	mes "- and try again. -";

-	close;

-

-	

-LV4_NOT_OW:

-	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;

-	mes "[Kayron]";

-	mes "Bah, I cannot believe";

-	mes "that such a weak man like you even came here.";

-	mes "You have an invisible sign on your forehead";

-	mes "that indicates you are a weakling. Be strong first.";

-	close;

-	

-

-LV4_LEVEL_PASS:

-	if(lv4_weapon == 0) goto LV4_0;

-	if(lv4_weapon < 22) goto LV4_21;

-	if(lv4_weapon == 22) goto LV4_22;

-	if(lv4_weapon == 23) goto LV4_23;

-	if(lv4_weapon == 24) goto LV4_24;

-	if(lv4_weapon == 25) goto LV4_25;

-	if(lv4_weapon == 26) goto LV4_26;

-	if(lv4_weapon == 27) goto LV4_27;

-	if(lv4_weapon == 28) goto LV4_28;

-	if(lv4_weapon == 29) goto LV4_29;

-	if(lv4_weapon == 30) goto LV4_30;

-	if(lv4_weapon > 30) goto LV4_31;

-	end; // shouldn't be here

-

-

-LV4_0:

-LV4_22:

-	mes "[Kayron]";

-	mes "I used to be called Kayron when I was alive.";

-	mes "But now I am nothing but";

-	mes "a ghost wandering this place.";

-	mes "I am worthless...I cannot do anything";

-	mes "without a body...";

-	next;

-	

-	if(lv4_weapon == 0) goto LV4_0_ASK;

-	

-	mes "[Kayron]";

-	mes "Ah...I cannot remember what I was going to say...";

-	mes "Waaahhh.....I cannot remember....";

-	mes "My memory is gone...!";

-	close;

-	

-LV4_0_ASK:

-	switch( select( "Show interest.", "Ignore him." ) ) {

-		case 1:

-			mes "[Kayron]";

-			mes "Ah...I cannot remember what I was going to say...";

-			mes "Waaahhh.....I cannot remember....";

-			mes "My memory is gone...!";

-			set lv4_weapon, 22;

-			close;

-			break;

-		case 2:

-			mes "- Because you decided to ignore him, -";

-			mes "- you are no longer able to hear him. -";

-			close;

-			break;

-	}

-	end;

-	

-

-LV4_21:

-LV4_31:

-	mes "[Kayron]";

-	mes "I feel something different about you.";

-	mes "Did you come here with a purpose?";

-	mes "I am envious of you...";

-	close;

-

-

-LV4_23:

-	mes "[Kayron]";

-	mes "I used to be called Kayron when I was alive.";

-	mes "But now I am nothing but";

-	mes "a ghost wandering this place.";

-	mes "I am worthless...I cannot do anything";

-	mes "without a body...";

-	next;

-	set @dap1$, "You are helpless.";

-	input @answer1$;

-	if(@answer1$ == @dap1$) goto LV4_23_CORRECT;

-	mes "[Kayron]";

-	mes "...? What did you just say?";

-	mes "I am sorry but I don't think I understood you.";

-	close;

-

-LV4_23_CORRECT:

-	mes "[Kayron]";

-	mes "Yes, You are helpless...?! Eh?";

-	mes "That was my father's favorite saying!";

-	mes "Whoa?! Ah...";

-	mes "Yes...I forgot that I am dead already.";

-	mes "Why did you make me recall something from my past?";

-	mes "It is no use now...";

-	next;

-	mes "[Kayron]";

-	mes "But I want to do something in return...";

-	mes "since you made me find a piece of my mind.";

-	mes "I used to be a weaponsmith in the past,";

-	mes "therefore I am going to forge a nice weapon for you.";

-	next;

-	mes "[Kayron]";

-	mes "But you have to gather the materials for me.";

-	mes "As you see, I do not have a body";

-	mes "that would allow me to touch other objects...";

-	mes "So you got to help me with that.";

-	next;

-	mes "[Kayron]";

-	mes "Luckily this place is filled with mysterious energy,";

-	mes "that makes my work easier!";

-	mes "Heh, even if I fail to forge one,";

-	mes "I don't have to worry about dying.";

-	mes "Because I am dead already! Muhahahaha!";

-	next;

-	mes "[Kayron]";

-	mes "I will talk to you in a while.";

-	mes "I am trying to think of the receipe...";

-	set lv4_weapon, 24;

-	close;

-	

-	

-LV4_25:

-	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_25_BASE_MAT;

-	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_25_BASE_MAT;

-	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_25_BASE_MAT;

-	if(countitem($@LV4_Gold) < 20) goto LV4_25_BASE_MAT;

-	

-	mes "[Kayron]";

-	mes "Oh...you brought everything I need!";

-	mes "You are a reliable person unlike your appearance.";

-	mes "But here is the thing...";

-	mes "There are some more materials I need...";

-	mes "But I cannot think of any of them...my memory";

-	mes "is unclear...arrrrph...";

-	next;

-	mes "[Kayron]";

-	mes "I need to think about that a little longer.";

-	mes "I know that I really need those materials...awwww....";

-	mes "Do you have any idea to bring my memory back?";

-	mes "At the same time, rest assured that the materials";

-	mes "you brought will be used for my creation. So let me keep them for you.";

-	

-	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;

-	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;

-	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;

-	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;

-	delitem $@LV4_Hammer_Of_Blacksmith, 2;

-	delitem $@LV4_Emperium_Anvil, 1;

-	delitem $@LV4_Illusion_Flower, 1;

-	delitem $@LV4_Gold, 20;

-	set lv4_weapon, 26;

-	close;

-

-LV4_24:

-LV4_25_BASE_MAT:

-	switch( lv4_weapon ) {

-		case 24:

-			mes "[Kayron]";

-			mes "Oh, you came back at a right time.";

-			mes "I just finished my thoughts. Let me tell you one thing.";

-			mes "I cannot guarantee you which weapon will come out of this.";

-			mes "Also you must be willing to take a risk as well...";

-			mes "I guess that the result will be affected by the power";

-			mes "of Nifflheim at the time I make.";

-			next;

-			mes "[Kayron]";

-			mes "Let me give you the list of materials";

-			mes "I need. They are quite a lot,";

-			mes "so write them down if you need.";

-			break;

-		case 25:

-			mes "[Kayron]";

-			mes "I will tell you the list of materials I need again.";

-			mes "I think I need a lot of materials...so";

-			mes "write them down if you need.";

-			break;

-		}

-		next;

-		mes "[Kayron]";

-		mes "I need 2 Hammer of Blacksmith,";

-		mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";

-		next;

-		mes "[Kayron]";

-		mes "Bring these to me first. I am kind of worried";

-		mes "that I forgot something...but I will try to remember";

-		mes "while waiting for you to bring these items.";

-		next;

-		mes "[Kayron]";

-		mes "Have a safe travel.";

-		set lv4_weapon, 25;

-		close;

-		

-

-LV4_27:

-LV4_28:

-	if(countitem(LV4_Gem1) < 30) goto LV4_27_NOGEM;

-	if(countitem(LV4_Gem2) < 30) goto LV4_27_NOGEM;

-	if(countitem(LV4_Gem3) < 30) goto LV4_27_NOGEM;

-	mes "[Kayron]";

-	mes "...Um? The items that you brought to me seem";

-	mes "to be good materials for my creation...";

-	mes "Give them to me, I shall try first!";

-	next;

-	mes "[Kayron]";

-	mes "Oh...I was right! How did you";

-	mes "know these are materials I need?";

-	mes "Great, give me a moment!";

-	next;

-	mes "[Kayron]";

-	mes "...wait, I must test your luck first.";

-	mes "Since I am not sure about the result,";

-	mes "we should place trust in luck for the result of my creation.";

-	mes "You must have good luck...";

-	next;

-	mes "[Kayron]";

-	mes "We are going to play 'Rock, Paper, Scissors'.";

-	mes "You must win at least 2 out of 3 times.";

-	mes "If you fail, you must throw away a large amount";

-	mes "of one of the 3 kinds of ore that you have brought.";

-	mes "It is for driving away your bad luck.";

-	next;

-	mes "[Kayron]";

-	mes "I will give you a piece of paper.";

-	mes "You will write down one among 'Rock, Paper, or Scissors'.";

-	mes "I will do the same at the same time.";

-	mes "We will compare each other's paper after.";

-	next;

-	

-	set @shobu, 0;

-	

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@i == 2) mes "[Kayron]";

-		if(@i == 2) mes "Let's play the second one!";

-		if(@i == 3) mes "[Kayron]";

-		if(@i == 3) mes "This will be the last one!";

-		if(@i == 3) mes "Let's compare after this.";

-		set @npchand[@i], rand(1, 3);

-		switch( select( "Scissors", "Rock", "Paper" ) ) {

-			case 1:

-				set @myhand[@i], 1;

-				if(@npchand[@i] == 3) set @shobu, @shobu + 1;

-				break;

-			case 2:

-				set @myhand[@i], 2;

-				if(@npchand[@i] == 1) set @shobu, @shobu + 1;

-				break;

-			case 3:

-				set @myhand[@i], 3;

-				if(@npchand[@i] == 2) set @shobu, @shobu + 1;

-				break;

-		}

-	}

-		

-	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;

-	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;

-	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;

-

-	if(@shobu > 1) goto LV4_27_WIN;

-

-	switch ( rand(1 ,3) ) {

-		case 1:

-			delitem LV4_Gem1, 30;

-			break;

-		case 2:

-			delitem LV4_Gem2, 30;

-			break;

-		case 3:

-			delitem LV4_Gem3, 30;

-			break;

-	}

-	goto LV4_27_RESULT;

-		

-LV4_27_WIN:

-	delitem LV4_Gem1, 30;

-	delitem LV4_Gem2, 30;

-	delitem LV4_Gem3, 30;

-	set lv4_weapon, lv4_weapon + 2;

-	goto LV4_27_RESULT;

-	

-LV4_27_RESULT:

-	mes "[Kayron]";

-	mes "Okay...I played in the order of...";

-	

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@npchand[@i] == 1) mes "Scissors";

-		if(@npchand[@i] == 2) mes "Rock";

-		if(@npchand[@i] == 3) mes "Paper";

-	}

-

-	next;

-	mes "[Kayron]";

-	mes "You did in the order of...";

-

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@myhand[@i] == 1) mes "Scissors";

-		if(@myhand[@i] == 2) mes "Rock";

-		if(@myhand[@i] == 3) mes "Paper";

-	}

-

-	next;

-

-	if(@shobu > 1) goto LV4_27_SAY_WIN;

-	

-	mes "[Kayron]";

-	mes "Well well well...you lost the game.";

-	mes "Ah~ you were close though...";

-	mes "We must drive away bad luck.";

-	next;

-	mes "[Kayron]";

-	mes "Okay, I will wait here,";

-	mes "go bring me the materials again...";

-	close;

-			

-LV4_27_SAY_WIN:

-	mes "[Kayron]";

-	mes "Let's see...";

-	mes "You won total " + @shobu + " times.";

-	mes "Ah~ you must be really good at game!";

-	mes "Yes, your luck is at its highest!";

-	next;

-	mes "[Kayron]";

-	mes "I am going to keep my promise.";

-	mes "But I need some time to prepare.";

-	mes "Give me the materials now and I will talk to you later.";

-	close;

-

-LV4_26:

-LV4_27_NOGEM:

-	mes "[Kayron]";

-	mes "Arph...it has not gotten into my memory yet.";

-	mes "Awww....this is a problem.";

-	mes "I used to often discuss the materials";

-	mes "with my family...now I cannot remember what they are...";

-	close;

-

-

-LV4_29:

-LV4_30:

-	mes "[Kayron]";

-	mes "Hahaha...you came back at the right time.";

-	mes "The result? Do you want to know about the result?...";

-	mes "Haha...okay...let's see...";

-	next;

-	mes "[Kayron]";

-	mes "...YES! It's a success!";

-	mes "I created the weapon that got me killed last time!";

-	mes "Look at this...haha! I died while making this!";

-	mes "... The name of the weapon is...";

-	

-	

-	switch( rand(1, 2) ) {

-		case 1:

-			if(lv4_weapon == 29) mes "Great Axe! Weee~ I made it!";

-			if(lv4_weapon == 29) getitem 1364 ,1; // 1364,Great_Axe

-			if(lv4_weapon == 30) mes "Longinus's Spear! Weee~ I made it!";

-			if(lv4_weapon == 30) getitem 1469, 1; // 1469,Longinus's_Spear

-			break;

-		case 2:

-			if(lv4_weapon == 29) mes "Guillotine! Weee~ I made it!";

-			if(lv4_weapon == 29) getitem 1369, 1; // 1369,Guillotine

-			if(lv4_weapon == 30) mes "Brionac! Weee~ I made it!";

-			if(lv4_weapon == 30) getitem 1470, 1; // 1470,Brionac

-	}

-	

-	set lv4_weapon, 0;

-	next;

-	mes "[Kayron]";

-	mes "I finally succeeded in the research...";

-	mes "I want to show this result to my father...";

-	mes "He will be really happy for this.";

-	next;

-	mes "[Kayron]";

-	mes "Ah~ I feel my memories are fading again...";

-	mes "If you see me next time...";

-	mes "please let me remember the memories again...";

-	mes "Thank you...";

-	close;

-	

-

-

-//--------------------------------------------------

-//Hack Attempt

-//--------------------------------------------------

-LV4_HACK:

-	mes "[Kayron]";

-	mes "Hmm. There seems to be a bit of problem.";

-	set lv4_weapon, 0;

-	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";

-	close;

-}

-

-//--------------------------------------------------

-// Reyghema, creates Berserk, Tjungkulleti, Rudra's Bow and Brocca(Skewer)

-//--------------------------------------------------

-

-niflheim.gat,99,268,5	script	Reyghema	794, {

-	set @NowWeight, MaxWeight - Weight;

-	if (@NowWeight >= 3000) goto LV4_NOT_OW;

-	mes "- Wait a minute! -";

-	mes "- You are currently overweight. -";

-	mes "- Please lose some weight -";

-	mes "- and try again. -";

-	close;

-

-	

-LV4_NOT_OW:

-	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;

-	mes "[Reyghema]";

-	mes "Um? Do you have any business with me?";

-	mes "Sorry but I don't. I'm also not";

-	mes "speaking to a weak person like you.";

-	mes "Have a safe travel~";

-	close;

-	

-

-LV4_LEVEL_PASS:

-	if(lv4_weapon == 0) goto LV4_0;

-	if(lv4_weapon < 31) goto LV4_30;

-	if(lv4_weapon == 31) goto LV4_31;

-	if(lv4_weapon == 32) goto LV4_32;

-	if(lv4_weapon == 33) goto LV4_33;

-	if(lv4_weapon == 34) goto LV4_34;

-	if(lv4_weapon == 35) goto LV4_35;

-	if(lv4_weapon == 36) goto LV4_36;

-	if(lv4_weapon == 37) goto LV4_37;

-	if(lv4_weapon == 38) goto LV4_38;

-	if(lv4_weapon == 39) goto LV4_39;

-	if(lv4_weapon > 39) goto LV4_40;

-	end; // shouldn't be here

-

-

-LV4_0:

-LV4_31:

-	mes "[Reyghema]";

-	mes "Darn it...I didn't want to die!";

-	mes "Well...there is no living thing that wants to die but...";

-	mes "Especially me, I was too young to die!";

-	mes "Youth! ...Ah...I just remember the word.";

-	mes "Speaking of which...I think I usually said something related to that...";

-	next;

-	

-	if(lv4_weapon == 0) goto LV4_0_ASK;

-	

-	mes "[Reyghema]";

-	mes "Ah...I cannot remember what I was going to say...";

-	mes "Waaahhh.....I cannot remember....";

-	mes "My memory is gone...!";

-	close;

-	

-LV4_0_ASK:

-	switch( select( "Show interest.", "Igonore him." ) ) {

-		case 1:

-			mes "[Reyghema]";

-			mes "Ah...I cannot remember what I was going to say...";

-			mes "Waaahhh.....I cannot remember....";

-			mes "My memory is gone...!";

-			set lv4_weapon, 31;

-			close;

-			break;

-		case 2:

-			mes "- Because you decided to ignore him, -";

-			mes "- you are no longer able to hear him. -";

-			close;

-			break;

-	}

-	end;

-	

-

-LV4_30:

-LV4_40:

-	mes "[Reyghema]";

-	mes "I feel something different about you.";

-	mes "Did you come here with a purpose?";

-	mes "I am envious of you...";

-	close;

-

-

-LV4_32:

-	mes "[Reyghema]";

-	mes "I used to be called Reyghema when I was alive.";

-	mes "But now I am nothing but";

-	mes "a ghost wandering this place.";

-	mes "I am worthless...I cannot do anything";

-	mes "without a body...";

-	next;

-	set @dap2$, "That means that you never regret anything!";

-	input @answer2$;

-	if(@answer2$ == @dap2$) goto LV4_32_CORRECT;

-	mes "[Reyghema]";

-	mes "What? Do you want to play a game with me or what?";

-	mes "Unfortunately I have something to do...";

-	mes "wait...what was I going to do?";

-	close;

-

-LV4_32_CORRECT:

-	mes "[Reyghema]";

-	mes "...";

-	next;

-	mes "[Reyghema]";

-	mes "...";

-	mes "......";

-	next;

-	mes "[Reyghema]";

-	mes "...";

-	mes "......";

-	mes ".........";

-	next;

-	mes "[Reyghema]";

-	mes "That's right! I am Bill Thayer the Weaponsmith's";

-	mes "second son! And I must forge a weapon";

-	mes "in order to not regret my youth!";

-	mes "Even if I am dead, I cannot give it up!";

-	next;

-	mes "[Reyghema]";

-	mes "Hey you, thank you for letting me have my memory back!";

-	mes "You need to do me another favor!";

-	mes "Bring me some items, I need to forge a weapon.";

-	mes "Once I make one, I will give it to you in return for your favor.";

-	next;

-	mes "[Reyghema]";

-	mes "Reyghema, breathe deeply first...phew~.";

-	mes "Give me a second!";

-	set lv4_weapon, 33;

-	close;

-	

-	

-LV4_34:

-	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_34_BASE_MAT;

-	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_34_BASE_MAT;

-	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_34_BASE_MAT;

-	if(countitem($@LV4_Gold) < 20) goto LV4_34_BASE_MAT;

-	

-	mes "[Reyghema]";

-	mes "Oh...you brought everything I need!";

-	mes "You are a reliable person unlike you appear.";

-	mes "But here is the thing...";

-	mes "There are some more materials I need...";

-	mes "But I cannot think of any of them...my memory";

-	mes "is unclear...arrrrph...";

-	next;

-	mes "[Reyghema]";

-	mes "I need to think about that a little longer.";

-	mes "I know that I really need those materials...awwww....";

-	mes "Do you have any idea to bring my memory back?";

-	mes "At the same time, rest assured that the materials";

-	mes "you brought will be used for my creation. So let me keep them for you.";

-	

-	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;

-	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;

-	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;

-	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;

-	delitem $@LV4_Hammer_Of_Blacksmith, 2;

-	delitem $@LV4_Emperium_Anvil, 1;

-	delitem $@LV4_Illusion_Flower, 1;

-	delitem $@LV4_Gold, 20;

-	set lv4_weapon, 35;

-	close;

-

-LV4_33:

-LV4_34_BASE_MAT:

-	switch( lv4_weapon ) {

-		case 33:

-			mes "[Reyghema]";

-			mes "Okay. You don't need any other explaination, do you?";

-			mes "I will tell you what I need";

-			mes "so please do not forget those materials.";

-			break;

-		case 34:

-			mes "[Reyghema]";

-			mes "I will tell you the list of materials I need again.";

-			mes "I think I need a lot of materials...so";

-			mes "write them down if you need.";

-			break;

-		}

-		next;

-		mes "[Reyghema]";

-		mes "I need 2 Hammer of Blacksmith,";

-		mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";

-		mes "...wait...are they all...or do I need more?!";

-		if(lv4_weapon == 33) next;

-		if(lv4_weapon == 33) mes "[Reyghema]";

-		if(lv4_weapon == 33) mes "Ah...I think need something more...it's very important...";

-		if(lv4_weapon == 33) mes "But I cannot remember what more I need....!";

-		if(lv4_weapon == 33) mes "Bah...this is so frustrating.";

-		set lv4_weapon, 34;

-		close;

-		

-

-LV4_36:

-LV4_37:

-	if(countitem(LV4_Gem1) < 30) goto LV4_36_NOGEM;

-	if(countitem(LV4_Gem2) < 30) goto LV4_36_NOGEM;

-	if(countitem(LV4_Gem3) < 30) goto LV4_36_NOGEM;

-	mes "[Reyghema]";

-	mes "...Um? The items that you brought to me seem";

-	mes "to be good materials for my creation...";

-	mes "Give them to me, I shall try first!";

-	next;

-	mes "[Reyghema]";

-	mes "Oh...I was right! How did you";

-	mes "know these are materials I need?";

-	mes "Great, give me a moment!";

-	next;

-	mes "[Reyghema]";

-	mes "...wait, I must test your luck first.";

-	mes "Since I am not sure about the result,";

-	mes "we should place trust in luck for the result of my creation.";

-	mes "You must have good luck...";

-	next;

-	mes "[Reyghema]";

-	mes "We are going to play 'Rock, Paper, Scissors'.";

-	mes "You must win at least 2 out of 3 times.";

-	mes "If you fail, you must leave a large amount";

-	mes "of one material you have brought.";

-	mes "It is for driving away your bad luck.";

-	next;

-	mes "[Reyghema]";

-	mes "I will give you a piece of paper.";

-	mes "You will write down one among 'Rock, Paper, or Scissors'.";

-	mes "I will do the same at the same time.";

-	mes "We will then compare each other's paper.";

-	next;

-	

-	set @shobu, 0;

-	

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@i == 2) mes "[Reyghema]";

-		if(@i == 2) mes "Let's play the second one!";

-		if(@i == 3) mes "[Reyghema]";

-		if(@i == 3) mes "This will be the last one!";

-		if(@i == 3) mes "Let's compare after this.";

-		set @npchand[@i], rand(1, 3);

-		switch( select( "Scissors", "Rock", "Paper" ) ) {

-			case 1:

-				set @myhand[@i], 1;

-				if(@npchand[@i] == 3) set @shobu, @shobu + 1;

-				break;

-			case 2:

-				set @myhand[@i], 2;

-				if(@npchand[@i] == 1) set @shobu, @shobu + 1;

-				break;

-			case 3:

-				set @myhand[@i], 3;

-				if(@npchand[@i] == 2) set @shobu, @shobu + 1;

-				break;

-		}

-	}

-		

-	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;

-	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;

-	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;

-

-	if(@shobu > 1) goto LV4_36_WIN;

-

-	switch ( rand(1 ,3) ) {

-		case 1:

-			delitem LV4_Gem1, 30;

-			break;

-		case 2:

-			delitem LV4_Gem2, 30;

-			break;

-		case 3:

-			delitem LV4_Gem3, 30;

-			break;

-	}

-	goto LV4_36_RESULT;

-		

-LV4_36_WIN:

-	delitem LV4_Gem1, 30;

-	delitem LV4_Gem2, 30;

-	delitem LV4_Gem3, 30;

-	set lv4_weapon, lv4_weapon + 2;

-	goto LV4_36_RESULT;

-	

-LV4_36_RESULT:

-	mes "[Reyghema]";

-	mes "Okay...I played in the order of...";

-	

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@npchand[@i] == 1) mes "Scissors";

-		if(@npchand[@i] == 2) mes "Rock";

-		if(@npchand[@i] == 3) mes "Paper";

-	}

-

-	next;

-	mes "[Reyghema]";

-	mes "You did in the order of...";

-

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@myhand[@i] == 1) mes "Scissors";

-		if(@myhand[@i] == 2) mes "Rock";

-		if(@myhand[@i] == 3) mes "Paper";

-	}

-

-	next;

-

-	if(@shobu > 1) goto LV4_36_SAY_WIN;

-	

-	mes "[Reyghema]";

-	mes "Well well well...you lost the game.";

-	mes "Ah~ you were close though...";

-	mes "We must drive away bad luck.";

-	next;

-	mes "[Reyghema]";

-	mes "Okay, I will wait here,";

-	mes "go bring me the materials again...";

-	close;

-			

-LV4_36_SAY_WIN:

-	mes "[Reyghema]";

-	mes "Let's see...";

-	mes "You won total " + @shobu + " times.";

-	mes "Ah~ you must be really good at game!";

-	mes "Yes, your luck is at its highest!";

-	next;

-	mes "[Reyghema]";

-	mes "I am going to keep my promise.";

-	mes "But I need some time to prepare.";

-	mes "Give me the materials now and I will talk to you later.";

-	close;

-

-LV4_35:

-LV4_36_NOGEM:

-		mes "[Reyghema]";

-		mes "Not yet! I have not remembered it yet! Awwww...";

-		mes "This is killing me...";

-		mes "Oh, wait...I died already...";

-		mes "God damn it!";

-	close;

-

-

-LV4_38:

-LV4_39:

-	mes "[Reyghema]";

-	mes "..................";

-	next;

-	mes "[Reyghema]";

-	mes "...YES! It's a success!";

-	mes "I created the weapon that got me killed last time!";

-	mes "Look at this...haha! I died while making this!";

-	mes "... The name of the weapon is...";

-	

-	switch( rand(1, 2) ) {

-		case 1:

-			if(lv4_weapon == 38) mes "Berserk! Weee~ Weee~ I made it!";

-			if(lv4_weapon == 38) getitem 1814 ,1; // 1814,Berserk

-			if(lv4_weapon == 39) mes "Tjungkuletti! Weee~ I made it!";

-			if(lv4_weapon == 39) getitem 1416, 1; // 1416,Tjungkuletti

-			break;

-		case 2:

-			if(lv4_weapon == 38) mes "Rudra's Bow! Weee~ I made it!";

-			if(lv4_weapon == 38) getitem 1720, 1; // 1720,Bow_of_Rudra

-			if(lv4_weapon == 39) mes "Brocca!";

-			if(lv4_weapon == 39) getitem 1415, 1; // 1415,Skewer

-	}

-	

-	set lv4_weapon, 0;

-	next;

-	mes "[Reyghema]";

-	mes "...*sigh*.";

-	next;

-	mes "[Reyghema]";

-	mes "Happiness lasts too short...";

-	mes "As I am a dead man, I think I am not allowed";

-	mes "to keep the memory of past....";

-	mes "My memory is fading again...";

-	next;

-	mes "[Reyghema]";

-	mes "But thank you for letting me achieve";

-	mes "my long-cherished desire.";

-	mes "If we meet again, please let me";

-	mes "retrieve my memory of past again.";

-	mes "So I can try forging another weapon.";

-	next;

-	mes "[Reyghema]";

-	mes "Farewell, adventurer.";

-	close;

-	

-	

-

-//--------------------------------------------------

-//Hack Attempt

-//--------------------------------------------------

-LV4_HACK:

-	mes "[Reyghema]";

-	mes "Hmm. There seems to be a bit of problem.";

-	set lv4_weapon, 0;

-	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";

-	close;

-}

-

-//--------------------------------------------------

-// Hein, creates Excalibur, Schweisersabel, Dragon Slayer and Edge

-//--------------------------------------------------

-

-niflheim.gat,187,280,3	script	Hein	795, {

-	set @NowWeight, MaxWeight - Weight;

-	if (@NowWeight >= 3000) goto LV4_NOT_OW;

-	mes "- Wait a minute! -";

-	mes "- You are currently overweight. -";

-	mes "- Please lose some weight -";

-	mes "- and try again. -";

-	close;

-

-	

-LV4_NOT_OW:

-	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;

-	mes "[Hein]";

-	mes "You should care about other people";

-	mes "more than yourself...";

-	mes "You are quite weak for an adventurer.";

-	close;

-	

-

-LV4_LEVEL_PASS:

-	if(lv4_weapon == 0) goto LV4_0;

-	if(lv4_weapon < 40) goto LV4_39;

-	if(lv4_weapon == 40) goto LV4_40;

-	if(lv4_weapon == 41) goto LV4_41;

-	if(lv4_weapon == 42) goto LV4_42;

-	if(lv4_weapon == 43) goto LV4_43;

-	if(lv4_weapon == 44) goto LV4_44;

-	if(lv4_weapon == 45) goto LV4_45;

-	if(lv4_weapon == 46) goto LV4_46;

-	if(lv4_weapon == 47) goto LV4_47;

-	if(lv4_weapon == 48) goto LV4_48;

-	if(lv4_weapon > 48) goto LV4_49;

-	end; // shouldn't be here

-

-

-LV4_0:

-LV4_40:

-	mes "[Hein]";

-	mes "Ah...are you going to ask me something?";

-	mes "However, I am not accepting money";

-	mes "from my client. Because.";

-	mes "It brings me bad luck to...";

-	mes "...whaat? What did I just say?";

-	mes "Awww....I am confused.";

-	next;

-	

-	if(lv4_weapon == 0) goto LV4_0_ASK;

-	

-	mes "[Hein]";

-	mes "Why did I speak of money?";

-	mes "I am a dead man and dead people";

-	mes "do not need money...arf!";

-	mes "My head is hurting...I guess that";

-	mes "a dead man can have a headache!";

-	close;

-	

-LV4_0_ASK:

-	switch( select( "Show interest.", "Igonore him." ) ) {

-		case 1:

-			mes "[Hein]";

-			mes "Why did I speak of money?";

-			mes "I am a dead man and dead people";

-			mes "do not need money...arf!";

-			mes "My head is hurting...I guess that";

-			mes "a dead man can have a headache!";

-			set lv4_weapon, 40;

-			close;

-			break;

-		case 2:

-			mes "- Because you decided to ignore him, -";

-			mes "- you are no longer able to hear him. -";

-			close;

-			break;

-	}

-	end;

-	

-

-LV4_39:

-LV4_49:

-	mes "[Hein]";

-	mes "I feel something different from you.";

-	mes "Did you come here with a purpose?";

-	mes "I am envious of you...";

-	close;

-

-

-LV4_41:

-	mes "[Hein]";

-	mes "Ah...are you going to ask me something?";

-	mes "However, I am not accepting money";

-	mes "from my client. Because.";

-	mes "It brings me bad luck to...";

-	next;

-	set @dap3$, "to forge a good weapon.";

-	input @answer3$;

-	if(@answer3$ == @dap3$) goto LV4_41_CORRECT;

-	mes "[Hein]";

-	mes "...? What are you talking about?";

-	mes "What was I going to say?";

-	mes "Arf....my head is hurting...!";

-	close;

-

-LV4_41_CORRECT:

-	mes "[Hein]";

-	mes "That's right! It's bad luck!";

-	mes "Creating weapons is betting! And I am...I am?";

-	mes "Oh right...I forgot that. Yes, I am dead.";

-	mes "Ahahahahaha.";

-	set lv4_weapon, 42;

-	next;

-	mes "[Hein]";

-	mes "Well, I must be a lucky dead man";

-	mes "for remembering my past!";

-	mes "Hahahahaha!";

-	next;

-	mes "[Hein]";

-	mes "Perhaps God wants me to";

-	mes "continue my research...?";

-	mes "wait, let me ask you a favor.";

-	next;

-	mes "[Hein]";

-	mes "Can you bring me some materials";

-	mes "that I need for my research?";

-	mes "If I succeed in the research,";

-	mes "I will give you the result in return.";

-	next;

-	mes "[Hein]";

-	mes "You can take your time to think of my offer.";

-	mes "Please talk to me later.";	

-	close;

-	

-	

-LV4_43:

-	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_43_BASE_MAT;

-	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_43_BASE_MAT;

-	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_43_BASE_MAT;

-	if(countitem($@LV4_Gold) < 20) goto LV4_43_BASE_MAT;

-	

-	mes "[Hein]";

-	mes "Oh, you have brought the materials I asked.";

-	mes "Here's the thing. I cannot remember what I need other than those...";

-	mes "Aww....I need some more time to think of them...";

-	next;

-	mes "[Hein]";

-	mes "Please try to search what I need...if you can.";

-	mes "Of course, it will not be an easy job for you";

-	mes "to do so...but I know you have a body to move with your will...";

-	mes "It is still better than being a ghost like me...";

-	next;

-	mes "[Hein]";

-	mes "Please give me all the materials you have brought.";

-	mes "I will keep them for you.";

-	

-	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;

-	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;

-	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;

-	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;

-	delitem $@LV4_Hammer_Of_Blacksmith, 2;

-	delitem $@LV4_Emperium_Anvil, 1;

-	delitem $@LV4_Illusion_Flower, 1;

-	delitem $@LV4_Gold, 20;

-	set lv4_weapon, 44;

-	close;

-

-LV4_42:

-LV4_43_BASE_MAT:

-	switch( lv4_weapon ) {

-		case 42:

-			mes "[Hein]";

-			mes "I will take you speaking to me again";

-			mes "as the approval of my request.";

-			mes "Thank you so much.";

-			next;

-			mes "[Hein]";

-			mes "I need 2 Hammer of Blacksmith,";

-			mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";

-			mes "Most likely they are the ones I need.";

-			next;

-			mes "[Hein]";

-			mes "And I do need 3 more things...";

-			mes "but I have a hard time remembering what they are.";

-			mes "That means that my memory of the past is not";

-			mes "absolutely back.";

-			next;

-			mes "[Hein]";

-			mes "*sigh*...I am so sorry to ask of you this...";

-			mes "but please search for what those 3 things are.";

-			mes "In the meantime, I will try to remember them.";

-			mes "Thank you.";

-			set lv4_weapon, 43;

-			break;

-		case 43:

-			mes "[Hein]";

-			mes "I need 2 Hammer of Blacksmith,";

-			mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";

-			mes "Most likely they are the ones I need.";

-			break;

-		}

-		close;

-		

-

-LV4_45:

-LV4_46:

-	if(countitem(LV4_Gem1) < 30) goto LV4_45_NOGEM;

-	if(countitem(LV4_Gem2) < 30) goto LV4_45_NOGEM;

-	if(countitem(LV4_Gem3) < 30) goto LV4_45_NOGEM;

-	mes "[Hein]";

-	mes "...Um? The items that you brought to me seem";

-	mes "to be good materials for my creation...";

-	mes "Give them to me, I shall try first!";

-	next;

-	mes "[Hein]";

-	mes "Oh...I was right! How did you";

-	mes "know these are materials I need?";

-	mes "Great, give me a moment!";

-	next;

-	mes "[Hein]";

-	mes "...Wait, I must test your luck first.";

-	mes "Since I am not sure about the result,";

-	mes "we should trust to luck for the result of my creation.";

-	mes "You must have good luck...";

-	next;

-	mes "[Hein]";

-	mes "We are going to play 'Rock, Paper, Scissors'.";

-	mes "You must win at least 2 out of 3 times.";

-	mes "If you fail, you must leave a large amount";

-	mes "of one material you have brought.";

-	mes "It is for driving away your bad luck.";

-	next;

-	mes "[Hein]";

-	mes "I will give you a piece of paper.";

-	mes "You will write down one among 'Rock, Paper, or Scissors'.";

-	mes "I will do the same at the same time.";

-	mes "We will then compare each other's paper at the end.";

-	next;

-	

-	set @shobu, 0;

-	

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@i == 2) mes "[Hein]";

-		if(@i == 2) mes "Let's play the second one!";

-		if(@i == 3) mes "[Hein]";

-		if(@i == 3) mes "This will be the last one!";

-		if(@i == 3) mes "Let's compare after this.";

-		set @npchand[@i], rand(1, 3);

-		switch( select( "Scissors", "Rock", "Paper" ) ) {

-			case 1:

-				set @myhand[@i], 1;

-				if(@npchand[@i] == 3) set @shobu, @shobu + 1;

-				break;

-			case 2:

-				set @myhand[@i], 2;

-				if(@npchand[@i] == 1) set @shobu, @shobu + 1;

-				break;

-			case 3:

-				set @myhand[@i], 3;

-				if(@npchand[@i] == 2) set @shobu, @shobu + 1;

-				break;

-		}

-	}

-		

-	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;

-	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;

-	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;

-

-	if(@shobu > 1) goto LV4_45_WIN;

-

-	switch ( rand(1 ,3) ) {

-		case 1:

-			delitem LV4_Gem1, 30;

-			break;

-		case 2:

-			delitem LV4_Gem2, 30;

-			break;

-		case 3:

-			delitem LV4_Gem3, 30;

-			break;

-	}

-	goto LV4_45_RESULT;

-		

-LV4_45_WIN:

-	delitem LV4_Gem1, 30;

-	delitem LV4_Gem2, 30;

-	delitem LV4_Gem3, 30;

-	set lv4_weapon, lv4_weapon + 2;

-	goto LV4_45_RESULT;

-	

-LV4_45_RESULT:

-	mes "[Hein]";

-	mes "Okay...I played in the order of...";

-	

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@npchand[@i] == 1) mes "Scissors";

-		if(@npchand[@i] == 2) mes "Rock";

-		if(@npchand[@i] == 3) mes "Paper";

-	}

-

-	next;

-	mes "[Hein]";

-	mes "You did in the order of...";

-

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@myhand[@i] == 1) mes "Scissors";

-		if(@myhand[@i] == 2) mes "Rock";

-		if(@myhand[@i] == 3) mes "Paper";

-	}

-

-	next;

-

-	if(@shobu > 1) goto LV4_45_SAY_WIN;

-	

-	mes "[Hein]";

-	mes "Well well well...you lost the game.";

-	mes "Ah~ you were close though...";

-	mes "We must drive away bad luck.";

-	next;

-	mes "[Hein]";

-	mes "Okay, I will wait here,";

-	mes "go bring me the materials again...";

-	close;

-			

-LV4_45_SAY_WIN:

-	mes "[Hein]";

-	mes "Let's see...";

-	mes "You won total " + @shobu + " times.";

-	mes "Ah~ you must be really good at game!";

-	mes "Yes, your luck is at its highest!";

-	next;

-	mes "[Hein]";

-	mes "I am going to keep my promise.";

-	mes "But I need some time to prepare.";

-	mes "Give me the materials now and I will talk to you later.";

-	close;

-

-LV4_44:

-LV4_45_NOGEM:

-		mes "[Hein]";

-		mes "I am sorry but please give me more time to remember the materials...";

-		mes "I had really good memory when I was alive...";

-		mes "So I could even recite them right after I woke up...";

-	close;

-

-

-LV4_47:

-LV4_48:

-	mes "[Hein]";

-	mes "Oh, yes. I just finished the work.";

-	mes "Do you want to know the result? Okay...";

-	mes "Breathe deeply...before we check.";

-	mes "The result is...";

-	next;

-	mes "[Hein]";

-	mes "a Big Success! This is great!";

-	mes "I have not labored in vain!";

-	mes "Let's see the weapon...it is...";

-	

-	switch( rand(1, 2) ) {

-		case 1:

-			if(lv4_weapon == 47) mes "Edge.";

-			if(lv4_weapon == 47) getitem 1132 ,1; // 1132,Edge

-			if(lv4_weapon == 48) mes "Dragon Slayer.";

-			if(lv4_weapon == 48) getitem 1166, 1; // 1166,Dragon_Slayer

-			break;

-		case 2:

-			if(lv4_weapon == 47) mes "Excalibur.";

-			if(lv4_weapon == 47) getitem 1137, 1; // 1137,Excalibur

-			if(lv4_weapon == 48) mes "Schweizersabel.";

-			if(lv4_weapon == 48) getitem 1167, 1; // 1167,Schweizersabel

-	}

-

-	set lv4_weapon, 0;	

-	next;

-	mes "[Hein]";

-	mes "Well...this is it.";

-	mes "I feel my memory is fading again...";

-	mes "Hahaha...being dead is not good.";

-	next;

-	mes "[Hein]";

-	mes "Thank you for your help. And if you have";

-	mes "a chance to visit Nifflheim again,";

-	mes "please come back and retrieve my memory once more...";

-	next;

-	mes "[Hein]";

-	mes "Aaahhhh! I don't think I will";

-	mes "remember you next time...";

-	mes "Take care, adventurer...father, I made it...";

-	close;

-	

-	

-

-//--------------------------------------------------

-//Hack Attempt

-//--------------------------------------------------

-LV4_HACK:

-	mes "[Hein]";

-	mes "Hmm. There seems to be a bit of problem.";

-	set lv4_weapon, 0;

-	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";

-	close;

-}

-

-//--------------------------------------------------

-// Waltboughst, creates Byeollungum, Exorciser(excercise), Combat Knife and Grand Cross

-//--------------------------------------------------

-

-niflheim.gat,331,72,3	script	Waltboughst	795,{

-	set @NowWeight, MaxWeight - Weight;

-	if (@NowWeight >= 3000) goto LV4_NOT_OW;

-	mes "- Wait a minute! -";

-	mes "- You are currently overweight. -";

-	mes "- Please lose some weight -";

-	mes "- and try again. -";

-	close;

-

-	

-LV4_NOT_OW:

-	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;

-	mes "[Waltboughst]";

-	mes "...Hah!";

-	close;

-	

-

-LV4_LEVEL_PASS:

-	if(lv4_weapon == 0) goto LV4_0;

-	if(lv4_weapon < 49) goto LV4_48;

-	if(lv4_weapon == 49) goto LV4_49;

-	if(lv4_weapon == 50) goto LV4_50;

-	if(lv4_weapon == 51) goto LV4_51;

-	if(lv4_weapon == 52) goto LV4_52;

-	if(lv4_weapon == 53) goto LV4_53;

-	if(lv4_weapon == 54) goto LV4_54;

-	if(lv4_weapon == 55) goto LV4_55;

-	if(lv4_weapon == 56) goto LV4_56;

-	if(lv4_weapon == 57) goto LV4_57;

-	if(lv4_weapon > 57) goto LV4_58;

-	end; // shouldn't be here

-

-

-LV4_0:

-LV4_49:

-	mes "[Waltboughst]";

-	mes "Ah~ it is so frustrating to be a dead man.";

-	mes "Because I cannot do anything without a body.";

-	mes "You know what my father used to say?";

-	mes "Trying best does not always";

-	mes "result in a success.";

-	mes "However...errr?";

-	next;

-	

-	if(lv4_weapon == 0) goto LV4_0_ASK;

-	

-	mes "[Waltboughst]";

-	mes "...What was my father's";

-	mes "quote? Why am I stuck in";

-	mes "here after death? Hey, you";

-	mes "Do you know anything about";

-	mes "Waltboughst when he was";

-	mes "alive?";

-	close;

-	

-LV4_0_ASK:

-	switch( select( "Show interest.", "Igonore him." ) ) {

-		case 1:

-			mes "[Waltboughst]";

-			mes "...what did he say afterwards?";

-			mes "Speaking of which, why am I";

-			mes "so anxious to do something?";

-			mes "I am a dead man, and a dead man is not supposed to do anything!";

-			mes "Hey, do you know anything about me when I was alive?";

-			set lv4_weapon, 49;

-			close;

-			break;

-		case 2:

-			mes "- Because you decided to ignore him, -";

-			mes "- you are no longer able to hear him. -";

-			close;

-			break;

-	}

-	end;

-	

-

-LV4_48:

-LV4_58:

-	mes "[Waltboughst]";

-	mes "I feel something different about you.";

-	mes "Did you come here with a purpose?";

-	mes "I am envious of you...";

-	close;

-

-

-LV4_50:

-	mes "[Waltboughst]";

-	mes "Ah~ it is so frustrating to be a dead man.";

-	mes "Because I cannot do anything without a body.";

-	mes "You know what my father used to say?";

-	mes "Trying best does not always";

-	mes "result in a success.";

-	mes "However...";

-	next;

-	set @dap4$, "All the successful men in the history tried their best!";

-	input @answer4$;

-	if(@answer4$ == @dap4$) goto LV4_50_CORRECT;

-	mes "[Waltboughst]";

-	mes "...What? What did you just say?";

-	mes "Hmmm.";

-	close;

-

-LV4_50_CORRECT:

-	mes "[Waltboughst]";

-	mes "Yes! That was it!";

-	mes "Since I am dead, I cannot even try!";

-	mes "Eh...?! Ah!";

-	mes "I see, I see now.";

-	mes "I must have been killed by some kind of accident!";

-	set lv4_weapon, 51;

-	next;

-	mes "[Waltboughst]";

-	mes "Okay, I am not going to end this way.";

-	mes "Hey, you were meant to meet me!";

-	mes "You got to do me a favor, now!";

-	next;

-	mes "[Waltboughst]";

-	mes "I will give you the result of my research";

-	mes "in return! All I want is to compete my research,";

-	mes "not the result.";

-	next;

-	mes "[Waltboughst]";

-	mes "Well, give me some time to remember";

-	mes "what I need for my research.";

-	mes "I will talk to you later.";

-	close;

-	

-	

-LV4_52:

-	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_52_BASE_MAT;

-	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_52_BASE_MAT;

-	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_52_BASE_MAT;

-	if(countitem($@LV4_Gold) < 20) goto LV4_52_BASE_MAT;

-	

-	mes "[Waltboughst]";

-	mes "Oh...you brought everything I need!";

-	mes "You were quick this time...I am still having";

-	mes "a hard time remembering what I need other than those.";

-	mes "This is not good, this is not good at all.";

-	next;

-	mes "[Waltboughst]";

-	mes "Anyways, I will keep those materials for you.";

-	mes "And give me some more times to";

-	mes "remember what I need...arph!";

-	

-	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;

-	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;

-	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;

-	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;

-	delitem $@LV4_Hammer_Of_Blacksmith, 2;

-	delitem $@LV4_Emperium_Anvil, 1;

-	delitem $@LV4_Illusion_Flower, 1;

-	delitem $@LV4_Gold, 20;

-	set lv4_weapon, 53;

-	close;

-

-LV4_51:

-LV4_52_BASE_MAT:

-	switch( lv4_weapon ) {

-		case 51:

-			mes "[Waltboughst]";

-			mes "Umm, you came back so early.";

-			mes "I just remembered the materials.";

-			next;

-			mes "[Waltboughst]";

-			mes "I need 2 Hammer of Blacksmith,";

-			mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";

-			next;

-			mes "[Waltboughst]";

-			mes "I do need some other items...but I need some time";

-			mes "to remember those. Oh well,";

-			mes "we have enough time, so let me think of them.";

-			set lv4_weapon, 52;

-			break;

-		case 52:

-			mes "[Waltboughst]";

-			mes "I need 2 Hammer of Blacksmith,";

-			mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";

-			mes "Most likey they will be the ones I need...";

-			break;

-		}

-		close;

-		

-

-LV4_54:

-LV4_55:

-	if(countitem(LV4_Gem1) < 30) goto LV4_54_NOGEM;

-	if(countitem(LV4_Gem2) < 30) goto LV4_54_NOGEM;

-	if(countitem(LV4_Gem3) < 30) goto LV4_54_NOGEM;

-	mes "[Waltboughst]";

-	mes "...Um? The items that you brought to me seem";

-	mes "to be good materials for my creation...";

-	mes "Give them to me, I shall try first!";

-	next;

-	mes "[Waltboughst]";

-	mes "Oh...I was right! How did you";

-	mes "know these are materials I need?";

-	mes "Great, give me a moment!";

-	next;

-	mes "[Waltboughst]";

-	mes "...wait, I must test your luck first.";

-	mes "Since I am not sure about the result,";

-	mes "we should trust to luck for the result of my creation.";

-	mes "You must have good luck...";

-	next;

-	mes "[Waltboughst]";

-	mes "We are going to play 'Rock, Paper, Scissors'.";

-	mes "You must win at least 2 out of 3 times.";

-	mes "If you fail, you must leave a large amount";

-	mes "of one material you have brought.";

-	mes "It is for driving away your bad luck.";

-	next;

-	mes "[Waltboughst]";

-	mes "I will give you a piece of paper.";

-	mes "You will write down one among 'Rock, Paper, or Scissors'.";

-	mes "I will do the same at the same time.";

-	mes "We will then compare each other's paper at the end.";

-	next;

-	

-	set @shobu, 0;

-	

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@i == 2) mes "[Waltboughst]";

-		if(@i == 2) mes "Let's play the second one!";

-		if(@i == 3) mes "[Waltboughst]";

-		if(@i == 3) mes "This will be the last one!";

-		if(@i == 3) mes "Let's compare after this.";

-		set @npchand[@i], rand(1, 3);

-		switch( select( "Scissors", "Rock", "Paper" ) ) {

-			case 1:

-				set @myhand[@i], 1;

-				if(@npchand[@i] == 3) set @shobu, @shobu + 1;

-				break;

-			case 2:

-				set @myhand[@i], 2;

-				if(@npchand[@i] == 1) set @shobu, @shobu + 1;

-				break;

-			case 3:

-				set @myhand[@i], 3;

-				if(@npchand[@i] == 2) set @shobu, @shobu + 1;

-				break;

-		}

-	}

-		

-	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;

-	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;

-	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;

-

-	if(@shobu > 1) goto LV4_54_WIN;

-

-	switch ( rand(1 ,3) ) {

-		case 1:

-			delitem LV4_Gem1, 30;

-			break;

-		case 2:

-			delitem LV4_Gem2, 30;

-			break;

-		case 3:

-			delitem LV4_Gem3, 30;

-			break;

-	}

-	goto LV4_54_RESULT;

-		

-LV4_54_WIN:

-	delitem LV4_Gem1, 30;

-	delitem LV4_Gem2, 30;

-	delitem LV4_Gem3, 30;

-	set lv4_weapon, lv4_weapon + 2;

-	goto LV4_54_RESULT;

-	

-LV4_54_RESULT:

-	mes "[Waltboughst]";

-	mes "Okay...I played in the order of...";

-	

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@npchand[@i] == 1) mes "Scissors";

-		if(@npchand[@i] == 2) mes "Rock";

-		if(@npchand[@i] == 3) mes "Paper";

-	}

-

-	next;

-	mes "[Waltboughst]";

-	mes "You did in the order of...";

-

-	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {

-		if(@myhand[@i] == 1) mes "Scissors";

-		if(@myhand[@i] == 2) mes "Rock";

-		if(@myhand[@i] == 3) mes "Paper";

-	}

-

-	next;

-

-	if(@shobu > 1) goto LV4_54_SAY_WIN;

-	

-	mes "[Waltboughst]";

-	mes "Well well well...you lost the game.";

-	mes "Ah~ you were close though...";

-	mes "We must drive away bad luck.";

-	next;

-	mes "[Waltboughst]";

-	mes "Okay, I will wait here,";

-	mes "go bring me the materials again...";

-	close;

-			

-LV4_54_SAY_WIN:

-	mes "[Waltboughst]";

-	mes "Let's see...";

-	mes "You won total " + @shobu + " times.";

-	mes "Ah~ you must be really good at game!";

-	mes "Yes, your luck is at its highest!";

-	next;

-	mes "[Waltboughst]";

-	mes "I am going to keep my promise.";

-	mes "But I need some time to prepare.";

-	mes "Give me the materials now and I will talk to you later.";

-	close;

-

-LV4_53:

-LV4_54_NOGEM:

-	mes "[Waltboughst]";

-	mes "Arph...I haven't remembered them yet.";

-	mes "Awww....this is a problem.";

-	mes "I must think of them as soon as possible...";

-	close;

-

-

-LV4_56:

-LV4_57:

-	mes "[Waltboughst]";

-	mes "Hehe, I made something with the materials";

-	mes "in this short time! Wanna see?";

-	mes "Aren't you wondering about the result?";

-	mes "Hmmm....let's see...";

-	next;

-	mes "[Waltboughst]";

-	mes "Waltboughst never fails!";

-	mes "Besides you had good luck,";

-	mes "so it resulted in a perfect success!";

-	mes "You got a nice weapon here, it is...";

-	

-	switch( rand(1, 2) ) {

-		case 1:

-			if(lv4_weapon == 56) mes "Byeollungum!";

-			if(lv4_weapon == 56) getitem 1140 ,1; // 1140,Byeollungum

-			if(lv4_weapon == 57) mes "Exorciser!";

-			if(lv4_weapon == 57) getitem 1233, 1; // 1233,Exercise

-			break;

-		case 2:

-			if(lv4_weapon == 56) mes "Combat Knife!";

-			if(lv4_weapon == 56) getitem 1228, 1; // 1228,Combat_Knife

-			if(lv4_weapon == 57) mes "Grand Cross!!";

-			if(lv4_weapon == 57) getitem 1528, 1; // 1528,Grand_Cross

-	}

-	

-	set lv4_weapon, 0;

-	next;

-	mes "[Waltboughst]";

-	mes "I am genius! Hahahaha!";

-	mes "I made it when my brothers could not!";

-	mes "Muhahahahahaha!";

-	mes "Eh...err? Arrr...phhh?";

-	next;

-	mes "[Waltboughst]";

-	mes "Damn...I must try too hard.";

-	mes "My memory is fading again...";

-	mes "Oh well, somehow I proved";

-	mes "that I am a genius even after I died.";

-	next;

-	mes "[Waltboughst]";

-	mes "If you want me to display my genius again,";

-	mes "come retrieve my memory again.";

-	mes "And thank you!";

-	next;

-	mes "[Waltboughst]";

-	mes "Ah...my memory's dying again...";

-	mes "Farewell~ I don't think I will remember you";

-	mes "but I hope you will remember me as Waltboughst";

-	mes "the genius in the age!";

-	close;

-	

-	

-

-//--------------------------------------------------

-//Hack Attempt

-//--------------------------------------------------

-LV4_HACK:

-	mes "[Waltboughst]";

-	mes "Hmm. There seems to be a bit of problem.";

-	set lv4_weapon, 0;

-	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";

-	close;

-}

+//===== eAthena Script ======================================= 
+//= Grade A and Grade S weapon quests
+//===== By: ================================================== 
+//= Vicious_Pucca, Reddozen & MasterOfMuppets
+//===== Current Version: ===================================== 
+//= 1.21
+//===== Compatible With: ===================================== 
+//= eAthena SVN 3422+(Requires jA Script System)
+//===== Description: ========================================= 
+//= Grade A and Grade S weapon quests
+//===== Additional Comments: ================================= 
+//= 1.0 First Version, Credits goes to Vicious_Pucca for converting [MasterOfMuppets]
+//=     the quest from aegis format to eA format. Also thanks to 
+//=	reddozen for fixing bugs.
+//= 1.1 Many fixes to spelling, grammar, and sentence order. [Silent]
+//= 1.2 A small fix, thanks to vicious_pucca [MasterOfMuppets]
+//= 1.21 Fixing MoM's typos (Citrin -> Citrine) [erKURITA]
+//============================================================ 
+
+//---------------------------------------------------------------
+// Initialize the basic materials for easier reading/conversion 
+//---------------------------------------------------------------
+
+-	script	lv4_weapon_init	-1,{
+OnInit:
+	set $@LV4_Citrine, 7295; // 7295,Citrine
+	set $@LV4_Turquoise, 7294; // 7294,Turquoise
+	set $@LV4_Agate, 7291; // 7291,Agate
+	
+	set $@LV4_Muscovite, 7292; // 7292,Muscovite
+	set $@LV4_Biotite, 7297; // 7297,Biotite
+	set $@LV4_Pyroxene, 7296; // 7296,Pyroxene
+	
+	set $@LV4_Phlogopite, 7290; // 7290,Phlogopite
+	set $@LV4_Olivine, 7289; // 7289,Peridot
+	set $@LV4_Rose_Quartz, 7293; // 7293,Rose_Quartz	
+	
+	set $@LV4_Gold, 969; // 969,Gold
+	set $@LV4_Steel, 999; // 999,Steel
+	set $@LV4_Emperium, 714; // 714,Emperium
+	set $@LV4_Hammer_Of_Blacksmith, 1005; // 1005,Hammer_of_Blacksmith
+	set $@LV4_Emperium_Anvil, 989; // 989,Emperium_Anvil
+	set $@LV4_Illusion_Flower, 710; // 710,Illusion_Flower
+	end;		
+}
+
+//---------------------------------------------------------------
+// Bazo, creates Immaterial Sword, Quadrille and Slash
+//---------------------------------------------------------------
+
+umbala.gat,117,285,3	script	Bazo	85,{
+	set @NowWeight, MaxWeight - Weight;
+	if (@NowWeight >= 3000) goto LV4_NOT_OW;
+	mes "- Wait a minute! -";
+	mes "- Currently you are overweight. -";
+	mes "- Please lighten your weight -";
+	mes "- and try again. -";
+	close;
+
+	
+LV4_NOT_OW:
+	if(lv4_weapon == 0) goto LV4_0;
+	if(lv4_weapon == 1) goto LV4_1;
+	if(lv4_weapon == 2) goto LV4_2;
+	if(lv4_weapon == 3) goto LV4_2;
+	if(lv4_weapon == 4) goto LV4_2;
+	if(lv4_weapon == 5) goto LV4_5;
+	if(lv4_weapon == 6) goto LV4_5;
+	if(lv4_weapon == 7) goto LV4_5;
+	if(lv4_weapon > 7) goto LV4_7;	
+	end; // shouldn't be here
+
+	
+LV4_0:
+	mes "[Bazo]";
+	mes "Hello, you are from outside, huh?";
+	mes "I can tell by your appearance.";
+	mes "Pleased to meet you. My name is Bazo Heburiech.";
+	mes "I am also from outside.";
+	next;
+	mes "[Bazo]";
+	mes "We must have been meant to meet each other.";
+	mes "If you don't mind, let me explain about this place for a while.";
+	mes "Umbala is adjacent to Nifflheim, the city of the dead.";
+	mes "Even at a first sight, I knew that";
+	mes "there is something about this village.";
+	next;
+	mes "[Bazo]";
+	mes "Due to that geographical trait,";
+	mes "this village was filled with evil power";
+	mes "that was influenced by the city of the dead.";
+	next;
+	mes "[Bazo]";
+	mes "The local people have learned";
+	mes "to manipulate the evil power for";
+	mes "producing specialties.";
+	next;
+	mes "[Bazo]";
+	mes "While staying here, I also have learned";
+	mes "some recipes. If you bring me materials,";
+	mes "I am willing to show you my skills.";
+	mes "How does that sound?";
+	next;
+	
+	switch( select( "Sounds good.", "No, thanks." ) ) {
+		case 1:
+			if(BaseLevel >= 70) goto L4_0_1;
+			
+			mes "[Bazo]";
+			mes "Err...I don't think that you are powerful";
+			mes "enough to handle my products.";
+			mes "They are charged with evil power.";
+			next;
+			mes "That means if their owners are not powerful";
+			mes "and not experienced enough,";
+			mes "they will drive the owners insane.";
+			mes "And I cannot do that to my friend.";
+			next;
+			mes "[Bazo]";
+			mes "Therefore, I want you to go back and level up first.";
+			mes "I will gladly expect you to come back when you are ready.";
+			break;
+L4_0_1:
+			mes "[Bazo]";
+			mes "Excellent! Let me tell you";
+			mes "the materials I need. I hope you will write them down.";
+			mes "There is not that many though.";
+			next;
+			mes "[Bazo]";
+			mes "I need 10 Gold, 50 Steel and 10 Emperium";
+			mes "as basic materials...";
+			mes "and you can enchant the product with a certain trait.";
+			mes "For that, I need some rare ores...";
+			next;
+			mes "[Bazo]";
+			mes "Please bring me 30 of either Citrine, Turquoise or Agate.";
+			mes "Each one of them possess their own attribute";
+			mes "and following by the ore you have brought,";
+			mes "my product will possess a special trait.";
+			next;
+			mes "[Bazo]";
+			mes "I wish you good luck...";
+			mes "I will wait for you!";
+			
+			set lv4_weapon, 1;
+			break;
+		case 2:
+			mes "[Bazo]";
+			mes "Oh, okay. That is fine with me.";
+			mes "By the way, don't you want to know how evil the city of the dead will be?";
+			mes "I do since that city influences so much of this village";
+			mes "with it's mysterious power, you know.";
+			break;			
+	}	
+	close;
+	
+
+
+//--------------------------------------------------
+//Gold, Steel, Emp Check + Choosing the gem
+//--------------------------------------------------
+LV4_1:
+	if(countitem($@LV4_Gold) < 10) goto LV4_1_FAIL;
+	if(countitem($@LV4_Steel) < 50) goto LV4_1_FAIL;
+	if(countitem($@LV4_Emperium) < 10) goto LV4_1_FAIL;
+
+	mes "[Bazo]";
+	mes "Oh...you have brought all the basic materials.";
+	mes "Now let me check what kind of rare ores";
+	mes "you have brought...";
+	next;
+	
+	if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Turquoise) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_CTA;
+	if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Turquoise) >= 30) goto LV4_1_CT;
+	if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_CA;
+	if (countitem($@LV4_Turquoise) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_TA;
+	if (countitem($@LV4_Citrine) >= 30) goto LV4_1_C;
+	if (countitem($@LV4_Turquoise) >= 30) goto LV4_1_T;
+	if (countitem($@LV4_Agate) >= 30) goto LV4_1_A;
+	goto LV4_1_NOGEM;
+	end;
+
+
+LV4_1_CTA:	
+	mes "[Bazo]";
+	mes "Hahaha, I asked you to bring one kind not all of them.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Citrine", "Turquoise", "Agate" ) ) {
+		case 1:
+			mes "[Bazo]";
+			mes "Citrine...okay. Before we start,";
+			set @gem, $@LV4_Citrine;
+			set @gemstring$,"Citrine";
+			break;
+		case 2:
+			mes "[Bazo]";
+			mes "Turquoise...okay. Before we start,";
+			set @gem, $@LV4_Turquoise;
+			set @gemstring$,"Turquoise";
+			break;
+		case 3:
+			mes "[Bazo]";
+			mes "Agate....okay. Before we start,";
+			set @gem, $@LV4_Agate;
+			set @gemstring$,"Agate";
+			break;
+	}
+	
+	goto LV4_1_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_1_CT:
+	mes "[Bazo]";
+	mes "Hahaha, I asked you to bring one kind not two.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Citrine", "Turquoise" ) ) {
+		case 1:
+			mes "[Bazo]";
+			mes "Citrine...okay. Before we start,";
+			set @gem, $@LV4_Citrine;
+			set @gemstring$,"Citrine";
+			break;
+		case 2:
+			mes "[Bazo]";
+			mes "Turquoise...okay. Before we start,";
+			set @gem, $@LV4_Turquoise;
+			set @gemstring$,"Turquoise";
+			break;
+	}
+	
+	goto LV4_1_PICK;
+	end; // shouldn't be here
+	
+
+LV4_1_CA:	
+	mes "[Bazo]";
+	mes "Hahaha, I asked you to bring one kind not two.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Citrine", "Agate" ) ) {
+		case 1:
+			mes "[Bazo]";
+			mes "Citrine...okay. Before we start,";
+			set @gem, $@LV4_Citrine;
+			set @gemstring$,"Citrine";
+			break;
+		case 2:
+			mes "[Bazo]";
+			mes "Agate....okay. Before we start,";
+			set @gem, $@LV4_Agate;
+			set @gemstring$,"Agate";
+			break;
+	}
+	
+	goto LV4_1_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_1_TA:	
+	mes "[Bazo]";
+	mes "Hahaha, I asked you to bring one kind not two.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Turquoise", "Agate" ) ) {
+			case 1:
+				mes "[Bazo]";
+				mes "Turquoise...okay. Before we start,";
+				set @gem, $@LV4_Turquoise;
+				set @gemstring$,"Turquoise";
+				break;
+			case 2:
+				mes "[Bazo]";
+				mes "Agate....okay. Before we start,";
+				set @gem, $@LV4_Agate;
+				set @gemstring$,"Agate";
+				break;
+	}
+	
+	goto LV4_1_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_1_C:
+	mes "[Bazo]";
+	mes "Citrine...okay. Before we start,";
+	set @gem, $@LV4_Citrine;
+	set @gemstring$,"Citrine";
+	goto LV4_1_PICK;
+	end; // shouldn't be here
+		
+		
+LV4_1_T:
+	mes "[Bazo]";
+	mes "Turquoise...okay. Before we start,";
+	set @gem, $@LV4_Turquoise;
+	set @gemstring$,"Turquoise";
+	goto LV4_1_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_1_A:
+	mes "[Bazo]";
+	mes "Agate....okay. Before we start,";
+	set @gem, $@LV4_Agate;
+	set @gemstring$,"Agate";
+	goto LV4_1_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_1_PICK:
+	mes "we must do one thing first.";
+	mes "That is, testing your luck.";
+	mes "As you already know,";
+	mes "I cannot guarantee you that we will succeed";
+	mes "to make one right away.";
+	next;
+	mes "[Bazo]";
+	mes "If we can raise your luck before we start,";
+	mes "we will be able to succeed.";
+	next;
+	mes "[Bazo]";
+	mes "Now you must be wondering what we";
+	mes "will do in order to increase your luck.";
+	mes "It is simple, we will play a mind-reading game.";
+	mes "I am going to think of one monster among 4 of my favorite ones,";
+	mes "you will guess what the monster is.";
+	next;
+	mes "[Bazo]";
+	mes "You must answer correctly at least";
+	mes "1 out of 5 times. It shouldn't be that difficult.";
+	mes "And if you fail to answer, we must do something else";
+	mes "to drive away your bad luck.";
+	next;
+	mes "[Bazo]";
+	mes "I will take 10 of the special ore you chose.";
+	mes "Well, I understand that it does not sound tempting";
+	mes "but let's think of it this way.";
+	mes "It is much better than wasting 30 ore";
+	mes "by failing to create the item, isn't it?";
+	next;
+	mes "[Bazo]";
+	mes "Okay, now I need some time to prepare...";
+	mes "Talk to you later!";
+	
+	if(countitem($@LV4_Gold) < 10) goto LV4_HACK;
+	if(countitem($@LV4_Steel) < 50) goto LV4_HACK;
+	if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;
+	delitem $@LV4_Gold, 10;
+	delitem $@LV4_Steel, 50;
+	delitem $@LV4_Emperium, 10;
+	if(@gem == $@LV4_Citrine) set lv4_weapon, 2;
+	if(@gem == $@LV4_Turquoise) set lv4_weapon, 3;
+	if(@gem == $@LV4_Agate) set lv4_weapon, 4;	
+	close;
+
+
+LV4_1_NOGEM:
+	mes "[Bazo]";
+	mes "I seem to recall that I asked you to bring";
+	mes "30 of a special ore, Citrine, Turquoise, or Agate...";
+	mes "And I don't see any of them.";
+	mes "You must have forgot them. Please go get them too.";
+	close;
+
+
+LV4_1_FAIL:
+	mes "[Bazo]";
+	mes "Please bring me 10 Gold, 50 Steel and 10 Emperium";
+	mes "as basic materials...";
+	mes "and you can enchant the product with a certain trait.";
+	mes "For that, I need some rare ores...";
+	next;
+	mes "[Bazo]";
+	mes "Please bring me 30 of either Citrine, Turquoise or Agate.";
+	mes "Each one of them possess their own attribute";
+	mes "and using the ore you have brought,";
+	mes "my product will possess a special trait.";
+	next;
+	mes "[Bazo]";
+	mes "I wish you good luck...";
+	mes "I will wait for you!";
+	close;
+
+
+
+//--------------------------------------------------
+//Guessing Game
+//--------------------------------------------------
+LV4_2:
+	if(lv4_weapon == 2) set @gem, $@LV4_Citrine;
+	if(lv4_weapon == 3) set @gem, $@LV4_Turquoise;
+	if(lv4_weapon == 4) set @gem, $@LV4_Agate;
+	if(countitem(@gem) < 30) goto LV4_2_NOGEM; 
+	
+	mes "[Bazo]";
+	mes "Ok, you seem to be ready.";
+	mes "Let's get started.";
+	mes "My favorite monsters are Poring,";
+	mes "Hode, Obeaune, and Minorous.";
+	next;
+
+	set @dap, 0;
+	set @correct[0],1;
+	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+		mes "[Bazo]";
+		
+		if(@i == 1) mes "Here's the 1st question. Guess what monster";
+		if(@i != 1) mes "Alright. Now guess what monster";
+		
+		mes "I have in my mind at this moment.";
+		next;
+
+		set @mons, rand(1, 4);		
+
+		switch( select( "Poring", "Hode", "Obeaune", "Minorous" ) ) {
+				case 1:
+					set @correct[@i], 1;
+					if(@mons == 1) set @dap, @dap + 1;
+					break;
+
+				case 2:
+					set @correct[@i], 2;
+					if(@mons == 2) set @dap, @dap + 1;
+					break;
+
+				case 3:
+					set @correct[@i], 3;
+					if(@mons == 3) set @dap, @dap + 1;
+					break;
+
+				case 4:
+					set @correct[@i], 4;
+					if(@mons == 4) set @dap, @dap + 1;
+					break;
+		}
+	}
+
+	mes "[Bazo]";
+	mes "Okay, let me give you answers for the questions.";
+	mes "I was thinking of the monsters in the order of";
+	next;
+	mes "[Bazo]";
+
+	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+		if(@correct[@i] == 1) mes "Poring";
+		if(@correct[@i] == 2) mes "Hode";
+		if(@correct[@i] == 3) mes "Obeaune";
+		if(@correct[@i] == 4) mes "Minorous";
+	}
+
+	if(@dap < 1) goto LV4_2_FAIL;
+	
+	next;
+	mes "[Bazo]";
+	mes "You answered " + @dap + " times!";
+	mes "I must say you're amazing!";
+	mes "As I promised, I will make an Umbala specialty for you.";
+	mes "Please give me some time to prepare.";
+	mes "Talk to you later.";
+	
+	if(countitem(@gem) < 30) goto LV4_HACK;
+	delitem @gem, 30;
+	set lv4_weapon, lv4_weapon + 3;
+	close;
+	
+	
+LV4_2_FAIL:
+	if(countitem(@gem) < 10) goto LV4_HACK;
+	delitem @gem, 10;
+	
+	next;
+	mes "[Bazo]";
+	mes "Errr... I don't think you are good at reading";
+	mes "other people's minds. Or you had bad luck, I guess.";
+	mes "We cannot do that again unless";
+	mes "we drive away the bad luck.";
+	mes "Give me 10 " + @gemstring$ + ", that will do the job.";
+	next;
+	mes "[Bazo]";
+	mes "Well...if you want to do this mind-reading game again,";
+	mes "please come back with the materials.";
+	mes "I will wait here for you.";
+	close;
+
+
+LV4_2_NOGEM:
+	mes "[Bazo]";
+	mes "Errr...something doesn't feel right. We lack something...";
+	mes "Will you check the materials that you have brought?";
+	close;
+	
+	
+	
+//--------------------------------------------------
+//Weapon Creation
+//--------------------------------------------------
+LV4_5:
+	mes "[Bazo]";
+	mes "Great... now, let's do it!";
+	mes "Wish me luck...ah, I forgot to tell you this.";
+	mes "I cannot tell you what kind of product it will be. It is so random.";
+	mes "Let's wish that a good thing will come out, okay?";
+	next;
+	mes "- You feel unknown power start gathering in -";
+	mes "- the materials. It seems the materials are -";
+	mes "- absorbing all the evil power in the air. -";
+	next;
+	mes "- Then, the materials start merging into one -";
+	mes "- even though Bazo didn't touch them at all. -";
+	next;
+	mes "[Bazo]";
+	mes "Can you feel that? The materials are gathering";
+	mes "power at their own will.";
+	mes "They are out of my hand now. Let's wait and hope.";
+	next;
+	mes "- After a while, the air becomes calm -";
+	mes "- and you check the result. -";
+	next;
+	mes "[Bazo]";
+	mes "Ooooooh! It is done!";
+	mes "We have succeeded! Ah, it's amazing!";
+	mes "Did I tell you that it is really rare to succeed right away?";
+	mes "Yes, God must have listened to our prayers.";
+	mes "Oh, it is a weapon! It will be very useful to you.";
+	mes "Let's take a closer look...";
+	next;
+
+	mes "[Bazo]";
+
+	switch( lv4_weapon ) {
+		case 5:
+			mes "Immaterial Sword!";
+			getitem 1141, 1; // 1141,Immaterial_Sword
+			break;
+		case 6:
+			mes "it is Slash!";
+			getitem 1526, 1; // 1526,Slash
+			break;
+		case 7:
+			mes "it is Quadrille!";
+			getitem 1527, 1; // 1527,Quadrille
+			break;
+	}
+
+	set lv4_weapon, 0;
+	mes "This sword was born to be yours!";
+	mes "Congratulations and hopefully it will have a good use for you.";
+	next;
+
+	mes "[Bazo]";
+	mes "I feel so gratified. If you wish to have";
+	mes "another one, please feel free to visit me anytime.";
+	mes "Have a good travel!";
+	close;
+
+
+
+//--------------------------------------------------
+//Other Quests
+//--------------------------------------------------
+LV4_7:
+	mes "[Bazo]";
+	mes "Hmm...I feel something strange from you.";
+	mes "I regret to say that there is nothing I can do for you.";
+	mes "I hope you have a safe travel.";
+	close;
+	
+	
+	
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+	mes "[Bazo]";
+	mes "Hmm. There seems to be a bit of problem.";
+	set lv4_weapon, 0;
+	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+	close;
+}
+
+//---------------------------------------------------------------
+// Hibilaithan, creates Mailbreaker, Swordbreaker and Slaughter
+//---------------------------------------------------------------
+
+umbala.gat,163,257,3	script	Hibilaithan	785,{
+	if(event_umbala < 3) goto LumWord;
+	set @NowWeight, MaxWeight - Weight;
+	if (@NowWeight >= 3000) goto LV4_NOT_OW;
+	mes "- Wait a minute! -";
+	mes "- Currently you are overweight. -";
+	mes "- Please lighten your weight -";
+	mes "- and try again. -";
+	close;
+
+	
+LV4_NOT_OW:
+	if(lv4_weapon == 0) goto LV4_0;
+	if(lv4_weapon == 8) goto LV4_8;
+	if(lv4_weapon == 9) goto LV4_9;
+	if(lv4_weapon == 10) goto LV4_9;
+	if(lv4_weapon == 11) goto LV4_9;
+	if(lv4_weapon == 12) goto LV4_12;
+	if(lv4_weapon == 13) goto LV4_12;
+	if(lv4_weapon == 14) goto LV4_12;
+	if(lv4_weapon < 8) goto LV4_7;
+	if(lv4_weapon > 14) goto LV4_7;	
+	end; // shouldn't be here
+	
+
+LumWord:
+		mes "[Hibilaithan]";
+		mes "Umba! Umbaba...umum! Baumba!";
+		mes "Umumumbababaumumbabaumba!";
+		mes "Umbaumbaumbaumbaumhah!";
+		mes "Umumumumumbababababab!";
+	close;
+
+	
+LV4_0:
+	mes "[Hibilaithan]";
+	mes "Haha, yeah, I knew this day would come.";
+	mes "Finally people recognize my value";
+	mes "as the best artisan in Umbala!";
+	next;
+	mes "[Hibilaithan]";
+	mes "Okay, let's talk straight.";
+	mes "I, Hibilaithan shall craft something nice";
+	mes "if you bring me materials!";
+	mes "Hahahahahaha!";
+	next;
+	mes "[Hibilaithan]";
+	mes "Eh? What? You didn't come to see me?";
+	mes "Stop joking around...Don't play me for a fool!";
+	mes "People are too shy to tell the truth nowadays!";
+	mes "Let's be honest and tell me if you want it or not.";
+	next;
+	
+	switch( select( "...okay.", "...sorry, I don't need it!" ) ) {
+		case 1:
+			if(BaseLevel >= 70) goto L4_0_1;
+			
+			mes "[Hibilaithan]";
+			mes "...what a shame! I regret to tell you this,";
+			mes "but your spirit is too weak";
+			mes "to handle the power of my stuff!";
+			mes "This is not good, not good at all!";
+			mes "Go and train yourself first.";
+			mes "When you become strong, you may come back!";
+			break;
+L4_0_1:
+			mes "[Hibilaithan]";
+			mes "Great! I like your attitute! Great, great!";
+			mes "I am going to tell you what I need.";
+			mes "It is not much, so do not forget.";
+			next;
+			mes "[Hibilaithan]";
+			mes "Bring me 10 Gold, 50 Steel and 10 Emperium";
+			mes "... as basic materials.";
+			mes "And I need some rare ores to endow power...";
+			next;
+			mes "[Hibilaithan]";
+			mes "Bring me 30 of one ore among Muscovite, Biotite or Pyroxene.";
+			mes "Remember you are going to bring 30 of one ore.";
+			mes "I cannot pick one among those because I am";
+			mes "not sure what will come out. Heh.";
+			next;
+			mes "[Hibilaithan]";
+			mes "Okay, wish you good luck!";
+			mes "Meanwhile I am going to chill here.";
+			
+			set lv4_weapon, 8;
+			break;
+		case 2:
+			mes "[Hibilaithan]";
+			mes "Bah~ what are you afraid of?";
+			mes "I am just trying to do you a favor, you know?";
+			mes "Alright, it is your call.";
+			mes "But if you change your mind,";
+			mes "feel free to come back.";
+			break;			
+	}	
+	close;
+	
+
+
+//--------------------------------------------------
+//Gold, Steel, Emp Check + Choosing the gem
+//--------------------------------------------------
+LV4_8:
+	if(countitem($@LV4_Gold) < 10) goto LV4_8_FAIL;
+	if(countitem($@LV4_Steel) < 50) goto LV4_8_FAIL;
+	if(countitem($@LV4_Emperium) < 10) goto LV4_8_FAIL;
+
+	mes "[Hibilaithan]";
+	mes "Oh...you have brought all the basic materials.";
+	mes "Now let me check what kind of rare ores";
+	mes "you have brought...";
+	next;
+	
+	if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Biotite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_MBP;
+	if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Biotite) >= 30) goto LV4_8_MB;
+	if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_MP;
+	if (countitem($@LV4_Biotite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_BP;
+	if (countitem($@LV4_Muscovite) >= 30) goto LV4_8_M;
+	if (countitem($@LV4_Biotite) >= 30) goto LV4_8_B;
+	if (countitem($@LV4_Pyroxene) >= 30) goto LV4_8_P;
+	goto LV4_8_NOGEM;
+	end;
+
+
+LV4_8_MBP:	
+	mes "[Hibilaithan]";
+	mes "Gosh, did you brought all three kinds?";
+	mes "Hahaha, it's fine.";
+	mes "But we cannot use all of them this time.";
+	mes "Pick one that you want to use.";
+	next;
+			
+	switch( select( "Muscovite", "Biotite", "Pyroxene" ) ) {
+		case 1:
+			mes "[Hibilaithan]";
+			mes "Muscovite...okay. Before we start,";
+			set @gem, $@LV4_Muscovite;
+			set @gemstring$,"Muscovite";
+			break;
+		case 2:
+			mes "[Hibilaithan]";
+			mes "Biotite...okay. Before we start,";
+			set @gem, $@LV4_Biotite;
+			set @gemstring$,"Biotite";
+			break;
+		case 3:
+			mes "[Hibilaithan]";
+			mes "Pyroxene....okay. Before we start,";
+			set @gem, $@LV4_Pyroxene;
+			set @gemstring$,"Pyroxene";
+			break;
+	}
+	
+	goto LV4_8_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_8_MB:
+	mes "[Hibilaithan]";
+	mes "Hahaha, I asked you to bring one kind not two.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Muscovite", "Biotite" ) ) {
+		case 1:
+			mes "[Hibilaithan]";
+			mes "Muscovite...okay. Before we start,";
+			set @gem, $@LV4_Muscovite;
+			set @gemstring$,"Muscovite";
+			break;
+		case 2:
+			mes "[Hibilaithan]";
+			mes "Biotite...okay. Before we start,";
+			set @gem, $@LV4_Biotite;
+			set @gemstring$,"Biotite";
+			break;
+	}
+	
+	goto LV4_8_PICK;
+	end; // shouldn't be here
+	
+
+LV4_8_MP:	
+	mes "[Hibilaithan]";
+	mes "Hahaha, I asked you to bring one kind not two.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Muscovite", "Pyroxene" ) ) {
+		case 1:
+			mes "[Hibilaithan]";
+			mes "Muscovite...okay. Before we start,";
+			set @gem, $@LV4_Muscovite;
+			set @gemstring$,"Muscovite";
+			break;
+		case 2:
+			mes "[Hibilaithan]";
+			mes "Pyroxene....okay. Before we start,";
+			set @gem, $@LV4_Pyroxene;
+			set @gemstring$,"Pyroxene";
+			break;
+	}
+	
+	goto LV4_8_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_8_BP:	
+	mes "[Hibilaithan]";
+	mes "Hahaha, I asked you to bring one kind not two.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Biotite", "Pyroxene" ) ) {
+			case 1:
+				mes "[Hibilaithan]";
+				mes "Biotite...okay. Before we start,";
+				set @gem, $@LV4_Biotite;
+				set @gemstring$,"Biotite";
+				break;
+			case 2:
+				mes "[Hibilaithan]";
+				mes "Pyroxene....okay. Before we start,";
+				set @gem, $@LV4_Pyroxene;
+				set @gemstring$,"Pyroxene";
+				break;
+	}
+	
+	goto LV4_8_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_8_M:
+	mes "[Hibilaithan]";
+	mes "Muscovite...okay. Before we start,";
+	set @gem, $@LV4_Muscovite;
+	set @gemstring$,"Muscovite";
+	goto LV4_8_PICK;
+	end; // shouldn't be here
+		
+		
+LV4_8_B:
+	mes "[Hibilaithan]";
+	mes "Biotite...okay. Before we start,";
+	set @gem, $@LV4_Biotite;
+	set @gemstring$,"Biotite";
+	goto LV4_8_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_8_P:
+	mes "[Hibilaithan]";
+	mes "Pyroxene....okay. Before we start,";
+	set @gem, $@LV4_Pyroxene;
+	set @gemstring$,"Pyroxene";
+	goto LV4_8_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_8_PICK:
+	mes "we must do one thing first.";
+	mes "That is, to test your luck.";
+	mes "As you already know,";
+	mes "I cannot guarantee you that we will succeed";
+	mes "to make one right away.";
+	next;
+	mes "[Hibilaithan]";
+	mes "If we can raise your luck before we start,";
+	mes "we will be able to succeed.";
+	next;
+	mes "[Hibilaithan]";
+	mes "Now you must be wondering what we";
+	mes "will do in order to increase your luck.";
+	mes "It is simple, we will play a mind-reading game.";
+	mes "I am going to think of one monster among 4 of my favorites,";
+	mes "you will guess what that monster is.";
+	next;
+	mes "[Hibilaithan]";
+	mes "You must answer correctly at least";
+	mes "1 out of 5 times. It should not be that difficult.";
+	mes "And if you fail to answer, we must do something else";
+	mes "to drive away your bad luck.";
+	next;
+	mes "[Hibilaithan]";
+	mes "I will take 10 of the special ore you have chose.";
+	mes "Well, I understand that it does not sound tempting";
+	mes "but let's think of it this way.";
+	mes "It is much better than wasting 30 ore";
+	mes "by failing to create the item, isn't it?";
+	next;
+	mes "[Hibilaithan]";
+	mes "Okay, now I need some time to prepare...";
+	mes "Talk to you later!";
+	
+	if(countitem($@LV4_Gold) < 10) goto LV4_HACK;
+	if(countitem($@LV4_Steel) < 50) goto LV4_HACK;
+	if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;
+	delitem $@LV4_Gold, 10;
+	delitem $@LV4_Steel, 50;
+	delitem $@LV4_Emperium, 10;
+	if(@gem == $@LV4_Muscovite) set lv4_weapon, 9;
+	if(@gem == $@LV4_Biotite) set lv4_weapon, 10;
+	if(@gem == $@LV4_Pyroxene) set lv4_weapon, 11;	
+	close;
+
+
+LV4_8_NOGEM:
+	mes "[Hibilaithan]";
+	mes "I seem to recall that I asked you to bring";
+	mes "30 of a special ore among Muscovite, Biotite or Pyroxene...";
+	mes "And I don't see any of them.";
+	mes "You must have forgot that. Please go get them too.";
+	close;
+
+
+LV4_8_FAIL:
+	mes "[Hibilaithan]";
+	mes "Please bring me 10 Gold, 50 Steel and 10 Emperium";
+	mes "as basic materials...";
+	mes "and you can enchant the product with a certain trait.";
+	mes "For that, I need some rare ores...";
+	next;
+	mes "[Hibilaithan]";
+	mes "Please bring me 30 of an ore among Citrine, Biotite or Pyroxene.";
+	mes "Each one of them possess their own attributes";
+	mes "and by using the ore you have brought,";
+	mes "my product will possess a special trait.";
+	next;
+	mes "[Hibilaithan]";
+	mes "I wish you good luck...";
+	mes "I will wait for you!";
+	close;
+
+
+
+//--------------------------------------------------
+//Guessing Game
+//--------------------------------------------------
+LV4_9:
+	if(lv4_weapon == 9) set @gem, $@LV4_Muscovite;
+	if(lv4_weapon == 10) set @gem, $@LV4_Biotite;
+	if(lv4_weapon == 11) set @gem, $@LV4_Pyroxene;
+	if(countitem(@gem) < 30) goto LV4_9_NOGEM; 
+	
+	mes "[Hibilaithan]";
+	mes "Okay, let's get started!";
+	mes "It is simple. There are";
+	mes "4 monsters that I like. I am going to think";
+	mes "of a monster among the 4, you will guess what it is.";
+	mes "We will play this game 5 times and you must";
+	mes "answer correctly at least 1 out of 5 times. Doesn't that sound easy?";
+	next;
+	mes "[Hibilaithan]";
+	mes "This is a very good game for";
+	mes "increasing your luck!";
+	mes "Okay, you better be ready now.";
+	next;
+	
+	set @dap, 0;
+	set @correct[0],1;
+	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+		mes "[Hibilaithan]";
+		
+		if(@i == 1) mes "I like Zealotus, Alice,";
+		if(@i == 1) mes "Munak, and Isis among all monsters.";
+		
+		mes "Now, guess which one";
+		mes "I am thinking of at this moment.";		
+		next;
+
+		set @mons, rand(1, 4);		
+
+		switch( select( "Zhertilsh", "Alice", "Munak", "Isis" ) ) {
+				case 1:
+					set @correct[@i], 1;
+					if(@mons == 1) set @dap, @dap + 1;
+					break;
+
+				case 2:
+					set @correct[@i], 2;
+					if(@mons == 2) set @dap, @dap + 1;
+					break;
+
+				case 3:
+					set @correct[@i], 3;
+					if(@mons == 3) set @dap, @dap + 1;
+					break;
+
+				case 4:
+					set @correct[@i], 4;
+					if(@mons == 4) set @dap, @dap + 1;
+					break;
+		}
+	}
+
+	mes "[Hibilaithan]";
+	mes "Okay, that's all! Now let me";
+	mes "check the answers. I was thinking";
+	mes "monsters in the order of...";
+	next;
+	mes "[Hibilaithan]";
+
+	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+		if(@correct[@i] == 1) mes "Zhertilsh";
+		if(@correct[@i] == 2) mes "Alice";
+		if(@correct[@i] == 3) mes "Munak";
+		if(@correct[@i] == 4) mes "Isis";
+	}
+
+	if(@dap < 1) goto LV4_9_FAIL;
+	
+	next;
+	mes "[Hibilaithan]";
+	mes "Wow, are you a mind reader or what?";
+	mes "You answered " + @dap + " times correctly! Whoa...";
+	mes "I guess you are already a lucky one,";
+	mes "therefore we don't have any reason";
+	mes "to prolong the work now!";
+	mes "I need some time to prepare, talk to you later!";
+	
+	if(countitem(@gem) < 30) goto LV4_HACK;
+	delitem @gem, 30;
+	set lv4_weapon, lv4_weapon + 3;
+	close;
+	
+	
+LV4_9_FAIL:
+	if(countitem(@gem) < 10) goto LV4_HACK;
+	delitem @gem, 10;
+	
+	next;
+	mes "[Hibilaithan]";
+	mes "This is not good, not good at all!";
+	mes "You didn't even have a correct answer.";
+	mes "We cannot start the work with this kind of result.";
+	mes "Okay...we must drive away your bad luck first.";
+	mes "10 " + @gemstring$ + " will do it!";
+	next;
+	mes "[Hibilaithan]";
+	mes "Now, we need to play the game again.";
+	mes "If you don't anymore ore, go get some.";
+	mes "I am not going anywhere";
+	mes "so you don't need to be in hurry.";
+	mes "Take your time!";
+	close;
+
+
+LV4_9_NOGEM:
+	mes "[Hibilaithan]";
+	mes "Hum. You might lack of";
+	mes "materials? Check them again.";
+	mes "See. I knew it.";
+	close;
+	
+	
+	
+//--------------------------------------------------
+//Weapon Creation
+//--------------------------------------------------
+LV4_12:
+	mes "[Hibilaithan]";
+	mes "Ah, I can tell you are ready. Alright...";
+	mes "I will try to make an awsome item for you.";
+	mes "...and you are not going to look over my shoulder!";
+	mes "I don't want to share my secret recipe with anyone!";
+	next;
+	mes "- Hibilaithan picks up all the materials -";
+	mes "- and turns his back at you. -";
+	mes "- You see him busying himself with something. -";
+	mes "- Although the way he is doing it -";
+	mes "- looks very primitive and crude, -";
+	mes "- you feel that some strange energy has gathered around him. -";
+	next;
+	mes "[Hibilaithan]";
+	mes "Umm~ umm~ umm~";
+	mes "Aww~aww~ aww~";
+	mes "Phew~ phew~ phew~";
+	mes "Woo~ woo~ woo~";
+	mes "Ho~ ho~ ho~";
+	next;
+	mes "[Hibilaithan]";
+	mes " ";
+	mes " ";
+	mes "Haha, there it is! Phew, that was really hard...";
+	mes "You're anxious, aren't you? Ok, let's see...";
+	next;
+	
+	mes "[Hibilaithan]";
+	mes "It's a big success! Hahaha, sure, I made it...";
+	mes "Therefore, it should be a big success.";
+	mes "Oh, you got a weapon here...let's see,";
+	
+	switch( lv4_weapon ) {
+		case 12:
+			mes "it is a Mailbreaker!";
+			getitem 1225, 1; // 1225,Mail_Breaker
+			break;
+		case 13:
+			mes "it is a Swordbreaker!";
+			getitem 1224, 1; // 1224,Sword_Breaker
+			break;
+		case 14:
+			mes "it is a Slaughter!";
+			getitem 1367, 1; // 1367,Slaughter
+			break;
+	}
+
+	set lv4_weapon, 0;
+	mes "This was made competely because I am that skillful,";
+	mes "you got to be thankful for that!";
+	next;
+	
+	mes "[Hibilaithan]";
+	mes "Whenever you want to have a nice thing,";
+	mes "come back to me anytime!";
+	mes "I am a very generous genius, you know?";
+	mes "Always be thankful for the weapon that I made for you, okay?";
+	mes "See you!";
+	close;
+
+
+
+//--------------------------------------------------
+//Other Quests
+//--------------------------------------------------
+LV4_7:
+	mes "[Hibilaithan]";
+	mes "Hmm...I feel something strange from you.";
+	mes "I regret to say that there is nothing I can do for you.";
+	mes "I hope you have a safe travel.";
+	close;
+	
+	
+	
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+	mes "[Hibilaithan]";
+	mes "Hmm. There seems to be a bit of problem.";
+	set lv4_weapon, 0;
+	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+	close;
+}
+
+//--------------------------------------------------
+// Tabezthan, creates Talefing, Sabbath and Caesar's Sword
+//--------------------------------------------------
+
+um_in.gat,156,77,5	script	Tabezthan	788,{
+	if(event_umbala < 3) goto LumWord;
+	set @NowWeight, MaxWeight - Weight;
+	if (@NowWeight >= 3000) goto LV4_NOT_OW;
+	mes "- Wait a minute! -";
+	mes "- You are currently overweight. -";
+	mes "- Please lose some weight -";
+	mes "- and try again. -";
+	close;
+
+	
+LV4_NOT_OW:
+	if(lv4_weapon == 0) goto LV4_0;
+	if(lv4_weapon == 15) goto LV4_15;
+	if(lv4_weapon == 16) goto LV4_16;
+	if(lv4_weapon == 17) goto LV4_16;
+	if(lv4_weapon == 18) goto LV4_16;
+	if(lv4_weapon == 19) goto LV4_19;
+	if(lv4_weapon == 20) goto LV4_19;
+	if(lv4_weapon == 21) goto LV4_19;
+	if(lv4_weapon < 15) goto LV4_14;
+	if(lv4_weapon > 21) goto LV4_14;	
+	end; // shouldn't be here
+	
+
+LumWord:
+		mes "[Tabezthan]";
+		mes "Umba! Umbaba...umum! Baumba!";
+		mes "Umumumbababaumumbabaumba!";
+		mes "Umbaumbaumbaumbaumhah!";
+		mes "Umumumumumbababababab!";
+	close;
+
+	
+LV4_0:
+	mes "[Tabezthan]";
+	mes "Hmm...I feel something different about you...";
+	mes "You are a stranger...aren't you?";
+	next;
+	mes "[Tabezthan]";
+	mes "Let me introduce myself.";
+	mes "I am Tabezthan,";
+	mes "the storage of the knowledge and the genius of Umbala...";
+	mes "Hahahaha.";
+	next;
+	mes "[Tabezthan]";
+	mes "I have two diciples. One is Hibilaithan the fool";
+	mes "and the other one is Bazo who is intelligent";
+	mes "and is from outside the same as you.";
+	next;
+	mes "[Tabezthan]";
+	mes "Of course both of them are talented and skillful";
+	mes "but I am worried about Hibilaithan, for he";
+	mes "makes many stupid mistakes and is shameless";
+	mes "for what he has done.";
+	next;
+	mes "[Tabezthan]";
+	mes "I have tought them how to manipulate";
+	mes "the mysterious energy existing in Umbala";
+	mes "for creating things with it..";
+	mes "I heard that there is a similar skill called Alchemy";
+	mes "in the outside world. Although I am not sure if I remember it correctly.";
+	next;
+	mes "[Tabezthan]";
+	mes "Anyways, would you like to see my skill?";
+	mes "If so, bring me materials I need,";
+	mes "I am more than willing to present my skill for you.";
+	next;
+	
+	switch( select( "Yes, please.", "No, thank you." ) ) {
+		case 1:
+			if(BaseLevel >= 70) goto L4_0_1;
+			
+			mes "[Tabezthan]";
+			mes "Sebelumnya saya harus menekankan ini";
+			mes "Barang spesial ini akan menjadi berbahaya jika kamu sendiri masih lemah";
+			mes "Kamu harus lebih berpengalaman lagi anak muda";
+			mes "Naikan level kamu terlebih dahulu";
+			mes "jika kamu sudah merasa kuat kembalilah kesini kembali";
+			mes "Sampai jumpa ~~";
+			break;
+L4_0_1:
+			mes "[Tabezthan]";
+			mes "One with curiousity...he is called the young adventurer...";
+			mes "Fine. Then let me inform you of";
+			mes "the matetrials I need. Please memorize them";
+			mes "or write them down.";
+			mes "It is not much however.";
+			next;
+			mes "[Tabezthan]";
+			mes "I need 10 Gold, 50 Steel and 10 Emperium";
+			mes "as basic materials...";
+			mes "and you can enchant the product with a certain trait.";
+			mes "For that, I need some rare ores...";
+			next;
+			mes "[Tabezthan]";
+			mes "Please bring me 30 of an ore among Phlogopite, Peridot or Rose Quartz.";
+			mes "Each one of them possess their own attribute";
+			mes "and by using the ore you have brought,";
+			mes "my product will possess a special trait.";
+			next;
+			mes "[Tabezthan]";
+			mes "However, please be aware that";
+			mes "I cannot guarantee what will come out as a result.";
+			mes "There are too many factors in the world of alchemy";
+			mes "where my knowledge is limited.";
+			mes "So you must be willing to accept the result as it is";
+			mes "even if it does not satisfy your expectations.";
+			next;
+			mes "[Tabezthan]";
+			mes "That means that you should place trust in luck.";
+			mes "Let's talk about it later...please go prepare the materials first.";
+			mes "Come back when you are ready.";
+			mes "I will wait here.";
+			
+			set lv4_weapon, 15;
+			break;
+		case 2:
+			mes "[Tabezthan]";
+			mes "Oh...I see. I was not forcing you anyhow.";
+			mes "However, it is a little bit dissappointing to hear that.";
+			mes "I was going to display my ability at full length.";
+			mes "When you change your mind, please come back.";
+			break;			
+	}	
+	close;
+	
+
+
+//--------------------------------------------------
+//Gold, Steel, Emp Check + Choosing the gem
+//--------------------------------------------------
+LV4_15:
+	if(countitem($@LV4_Gold) < 10) goto LV4_15_FAIL;
+	if(countitem($@LV4_Steel) < 50) goto LV4_15_FAIL;
+	if(countitem($@LV4_Emperium) < 10) goto LV4_15_FAIL;
+
+	mes "[Tabezthan]";
+	mes "Ah~ you came back ealier than I thought.";
+	mes "Let's see...you have all the basic materials...and";
+	mes "we need one more thing, remember?";
+	mes "Did you bring it as well?";
+	next;
+	
+	if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Olivine) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_POR;
+	if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Olivine) >= 30) goto LV4_15_PO;
+	if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_PR;
+	if (countitem($@LV4_Olivine) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_OR;
+	if (countitem($@LV4_Phlogopite) >= 30) goto LV4_15_P;
+	if (countitem($@LV4_Olivine) >= 30) goto LV4_15_O;
+	if (countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_R;
+	goto LV4_15_NOGEM;
+	end;
+
+
+LV4_15_POR:	
+	mes "[Tabezthan]";
+	mes "You made a great effort to bring all of them.";
+	mes "However, you can only use one kind at a time.";
+	mes "Please choose what you want to use this time.";
+	next;
+			
+	switch( select( "Phlogopite", "Peridot", "Rose Quartz" ) ) {
+		case 1:
+			mes "[Tabezthan]";
+			mes "Phlogopite...okay. Before we start,";
+			set @gem, $@LV4_Phlogopite;
+			set @gemstring$,"Phlogopite";
+			break;
+		case 2:
+			mes "[Tabezthan]";
+			mes "Peridot...okay. Before we start,";
+			set @gem, $@LV4_Olivine;
+			set @gemstring$,"Peridot";
+			break;
+		case 3:
+			mes "[Tabezthan]";
+			mes "Rose Quartz....okay. Before we start,";
+			set @gem, $@LV4_Rose_Quartz;
+			set @gemstring$,"Rose Quartz";
+			break;
+	}
+	
+	goto LV4_15_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_15_PO:
+	mes "[Tabezthan]";
+	mes "Hahaha, I asked you to bring one kind not two.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Phlogopite", "Peridot" ) ) {
+		case 1:
+			mes "[Tabezthan]";
+			mes "Phlogopite...okay. Before we start,";
+			set @gem, $@LV4_Phlogopite;
+			set @gemstring$,"Phlogopite";
+			break;
+		case 2:
+			mes "[Tabezthan]";
+			mes "Peridot...okay. Before we start,";
+			set @gem, $@LV4_Olivine;
+			set @gemstring$,"Peridot";
+			break;
+	}
+	
+	goto LV4_15_PICK;
+	end; // shouldn't be here
+	
+
+LV4_15_PR:	
+	mes "[Tabezthan]";
+	mes "Hahaha, I asked you to bring one kind not two.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Phlogopite", "Rose Quartz" ) ) {
+		case 1:
+			mes "[Tabezthan]";
+			mes "Phlogopite...okay. Before we start,";
+			set @gem, $@LV4_Phlogopite;
+			set @gemstring$,"Phlogopite";
+			break;
+		case 2:
+			mes "[Tabezthan]";
+			mes "Rose Quartz....okay. Before we start,";
+			set @gem, $@LV4_Rose_Quartz;
+			set @gemstring$,"Rose Quartz";
+			break;
+	}
+	
+	goto LV4_15_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_15_OR:	
+	mes "[Tabezthan]";
+	mes "Hahaha, I asked you to bring one kind not two.";
+	mes "You can only use one kind of ore.";
+	mes "Which one would you like to use?";
+	next;
+	
+	switch( select( "Peridot", "Rose Quartz" ) ) {
+			case 1:
+				mes "[Tabezthan]";
+				mes "Peridot...okay. Before we start,";
+				set @gem, $@LV4_Olivine;
+				set @gemstring$,"Peridot";
+				break;
+			case 2:
+				mes "[Tabezthan]";
+				mes "Rose Quartz....okay. Before we start,";
+				set @gem, $@LV4_Rose_Quartz;
+				set @gemstring$,"Rose Quartz";
+				break;
+	}
+	
+	goto LV4_15_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_15_P:
+	mes "[Tabezthan]";
+	mes "Phlogopite...okay. Before we start,";
+	set @gem, $@LV4_Phlogopite;
+	set @gemstring$,"Phlogopite";
+	goto LV4_15_PICK;
+	end; // shouldn't be here
+		
+		
+LV4_15_O:
+	mes "[Tabezthan]";
+	mes "Peridot...okay. Before we start,";
+	set @gem, $@LV4_Olivine;
+	set @gemstring$,"Peridot";
+	goto LV4_15_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_15_R:
+	mes "[Tabezthan]";
+	mes "Rose Quartz....okay. Before we start,";
+	set @gem, $@LV4_Rose_Quartz;
+	set @gemstring$,"Rose Quartz";
+	goto LV4_15_PICK;
+	end; // shouldn't be here
+	
+	
+LV4_15_PICK:
+	mes "we must do one thing first.";
+	mes "That is, to test your luck.";
+	mes "As you already know,";
+	mes "I cannot guarantee you that we will succeed";
+	mes "in makeing one right away.";
+	next;
+	mes "[Tabezthan]";
+	mes "If we can raise your luck before we start,";
+	mes "we will be able to succeed.";
+	next;
+	mes "[Tabezthan]";
+	mes "Now you must be wondering what we";
+	mes "will do in order to increase your luck.";
+	mes "It is simple, we will play a mind-reading game.";
+	mes "I am going to think of one monster among 4 of my favorites,";
+	mes "you will guess what the monster is.";
+	next;
+	mes "[Tabezthan]";
+	mes "You must answer correctly at least";
+	mes "1 out of 5 times. It should not be that difficult.";
+	mes "And if you fail to answer correctly, we must do something else";
+	mes "to drive away your bad luck.";
+	next;
+	mes "[Tabezthan]";
+	mes "I will take 10 of the special ore you chose.";
+	mes "Well, I understand that it does not sound tempting";
+	mes "but let's think of it this way.";
+	mes "It is much better than wasting 30 ore";
+	mes "by failing to create the item, isn't it?";
+	next;
+	mes "[Tabezthan]";
+	mes "Okay, now I need some time to prepare...";
+	mes "Talk to you later!";
+	
+	if(countitem($@LV4_Gold) < 10) goto LV4_HACK;
+	if(countitem($@LV4_Steel) < 50) goto LV4_HACK;
+	if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;
+	delitem $@LV4_Gold, 10;
+	delitem $@LV4_Steel, 50;
+	delitem $@LV4_Emperium, 10;
+	if(@gem == $@LV4_Phlogopite) set lv4_weapon, 16;
+	if(@gem == $@LV4_Olivine) set lv4_weapon, 17;
+	if(@gem == $@LV4_Rose_Quartz) set lv4_weapon, 18; 
+	close;
+
+
+LV4_15_NOGEM:
+	mes "[Tabezthan]";
+	mes "Hmmm...I cannot find any rare ores in";
+	mes "the materials that you have brought...";
+	mes "Please bring me 30 of an ore among Phlogopite, Peridot";
+	mes "or Rose Quartz.";
+	close;
+
+
+LV4_15_FAIL:
+	mes "[Tabezthan]";
+	mes "I need 10 Gold, 50 Steel and 10 Emperium";
+	mes "as basic materials...";
+	mes "and you can enchant the product with a certain trait.";
+	mes "For that, I need some rare ores...";
+	next;
+	mes "[Tabezthan]";
+	mes "Please bring me 30 of an ore among Phlogopite, Peridot or Rose Quartz.";
+	mes "Each one of them possess their own attribute";
+	mes "and by using the ore you have brought,";
+	mes "my product will possess a special trait.";
+	close;
+
+
+
+//--------------------------------------------------
+//Guessing Game
+//--------------------------------------------------
+LV4_16:
+	if(lv4_weapon == 16) set @gem, $@LV4_Phlogopite;
+	if(lv4_weapon == 17) set @gem, $@LV4_Olivine;
+	if(lv4_weapon == 18) set @gem, $@LV4_Rose_Quartz;
+	if(countitem(@gem) < 30) goto LV4_2_NOGEM; 
+	
+	mes "[Tabezthan]";
+	mes "Okay, let's get started!";
+	mes "It is simple. There are";
+	mes "4 monsters that I like. I am going to think";
+	mes "of a monster among the 4, you will guess what it is.";
+	mes "We will play this game 5 times and you must";
+	mes "answer correctly at least 1 out of 5 times. Doesn't it sound easy?";
+	next;
+	mes "[Hibilaithan]";
+	mes "This is a very good game for";
+	mes "increasing your luck!";
+	mes "Okay, better be ready now.";
+	next;
+	
+	set @dap, 0;
+	set @correct[0],1;
+	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+		mes "[Tabezthan]";
+		
+		if(@i == 1) mes "I like Baphomet, Dark Lord,";
+		if(@i == 1) mes "Bloody Knight, and Stormy Knight among all monsters.";
+		
+		mes "Now, guess which one";		
+		mes "I am thinking at this moment.";
+		next;
+
+		set @mons, rand(1, 4);		
+
+		switch( select( "Baphomet", "Dark Lord", "Bloody Knight", "Stormy Knight" ) ) {
+				case 1:
+					set @correct[@i], 1;
+					if(@mons == 1) set @dap, @dap + 1;
+					break;
+
+				case 2:
+					set @correct[@i], 2;
+					if(@mons == 2) set @dap, @dap + 1;
+					break;
+
+				case 3:
+					set @correct[@i], 3;
+					if(@mons == 3) set @dap, @dap + 1;
+					break;
+
+				case 4:
+					set @correct[@i], 4;
+					if(@mons == 4) set @dap, @dap + 1;
+					break;
+		}
+	}
+
+	mes "[Tabezthan]";
+	mes "Okay, that's all! Now let me check";
+	mes "the answers. I was thinking";
+	mes "of the monsters in the order of...";
+	next;
+	mes "[Tabezthan]";
+
+	for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+		if(@correct[@i] == 1) mes "Baphomet";
+		if(@correct[@i] == 2) mes "Dark Lord";
+		if(@correct[@i] == 3) mes "Bloody Knight";
+		if(@correct[@i] == 4) mes "Stormy Knight";
+	}
+
+	if(@dap < 1) goto LV4_16_FAIL;
+	
+	next;
+	mes "[Tabezthan]";
+	mes "You have answered " + @dap + " times correctly.";
+	mes "It seems that your luck is at its highest.";
+	mes "I need some time to prepare, talk to you later.";
+	
+	if(countitem(@gem) < 30) goto LV4_HACK;
+	delitem @gem, 30;
+	set lv4_weapon, lv4_weapon + 3;
+	close;
+	
+	
+LV4_16_FAIL:
+	if(countitem(@gem) < 10) goto LV4_HACK;
+	delitem @gem, 10;
+	
+	next;
+	mes "[Tabezthan]";
+	mes "Unfortunately you have failed...";
+	mes "When you have bad luck, you'd better";
+	mes "not expect a good result.";
+	mes "Okay, we must drive away your bad luck.";
+	mes "10 " + @gemstring$ + " will do it.";
+	next;
+	mes "[Tabezthan]";
+	mes "Do not be so dissappointed.";
+	mes "It is still better than wasting 30 of them";
+	mes "for trying to make a thing when you know";
+	mes "you would not make it. ";
+	next;
+	mes "[Tabezthan]";
+	mes "If you need something to prepare,";
+	mes "please do. I will wait for you here.";
+	close;
+
+
+LV4_16_NOGEM:
+	mes "[Tabezthan]";
+	mes "Umm...it seems you are lacking " + @gemstring$;
+	mes "Please count them and";
+	mes "if you don't have enough,";
+	mes "you can go gather more first.";
+	close;
+	
+	
+	
+//--------------------------------------------------
+//Weapon Creation
+//--------------------------------------------------
+LV4_19:
+	mes "[Tabezthan]";
+	mes "Great, I am also ready.";
+	mes "Shall we start now? Give me a minute.";
+	mes "I need to arrange these materials in a magic circle.";
+	next;
+	mes "- He arranges materials in a strange circle -";
+	mes "- and starts chanting in a strange language. -";
+	mes "- As he does that, suddenly the air surrounding him -";
+	mes "- seems to change and you feel something powerful-";
+	mes "- gathering around him and the materials. -";
+	next;
+	mes "[Tabezthan]";
+	mes "Please understand that the power is not from me.";
+	mes "I just used my ability to gather the power into these materials.";
+	mes "The power has come from the city of the dead.";
+	next;
+	mes "[Tabezthan]";
+	mes "The result is in God's hands.";
+	mes "Let's pray for a good result together.";
+	mes "Hmmmmm!";
+	next;
+	mes "- After a while...you find the materials -";
+	mes "- are gathering and combining into one new thing. -";
+	mes "- Does that mean that you have succeeded or failed?! -";
+	next;
+	mes "[Tabezthan]";
+	mes "?!...God must bless you!";
+	mes "I cannot believe that I created such a rare weapon!";
+	mes "Yes, my late father told me the name of this weapon.";
+	
+	switch( lv4_weapon ) {
+		case 19:
+			mes "That is Caesar's Sword.";
+			getitem 1134, 1; // 1134,Caesar's_Sword
+			break;
+		case 20:
+			mes "That is Talefing.";
+			getitem 1139, 1; // 1139,Talefing_
+			break;
+		case 21:
+			mes "That is Sabbath.";
+			getitem 1365, 1; // 1365,Sabbath
+			break;
+	}
+
+	set lv4_weapon, 0;
+	mes "[Tabezthan]";
+	mes "Now, since I made this with materials";
+	mes "that you have brought, this is yours now.";
+	mes "I only helped you to make it,";
+	mes "and I am glad to give this to you.";
+	next;
+	mes "[Tabezthan]";
+	mes "Well, feel free to come back";
+	mes "if you want to make a thing again...hahaha.";
+	mes "The weapon was made to be yours.";
+	close;
+
+
+
+//--------------------------------------------------
+//Other Quests
+//--------------------------------------------------
+LV4_14:
+	mes "[Tabezthan]";
+	mes "Umm...you don't have a business with me, do you?";
+	mes "Please do not think of me as an old fool.";
+	mes "When a man gets older, he can see through other people's minds.";
+	mes "Go ahead and do what you have been doing.";
+	mes "Do not let me intrrupt you any longer.";
+	close;
+	
+	
+	
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+	mes "[Tabezthan]";
+	mes "Hmm. There seems to be a bit of problem.";
+	set lv4_weapon, 0;
+	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+	close;
+}
+
+//--------------------------------------------------
+// Bill Thayer, Gives hints for S grade weapons quests
+//--------------------------------------------------
+
+aldebaran.gat,178,239,3	script	Bill Thayer	712,{
+	// Explain Materials
+	if(lv4_weapon == 26) goto LV4_26;
+	if(lv4_weapon == 27) goto LV4_27;
+	if(lv4_weapon == 28) goto LV4_28;
+	
+	if(lv4_weapon == 35) goto LV4_35;
+	if(lv4_weapon == 36) goto LV4_36;
+	if(lv4_weapon == 37) goto LV4_37;
+
+	if(lv4_weapon == 44) goto LV4_44;
+	if(lv4_weapon == 45) goto LV4_45;
+	if(lv4_weapon == 46) goto LV4_46;
+	
+	if(lv4_weapon == 53) goto LV4_53;
+	if(lv4_weapon == 54) goto LV4_54;
+	if(lv4_weapon == 55) goto LV4_55;
+	
+	// Guide
+	if(lv4_weapon == 22) goto LV4_22;
+	if(lv4_weapon == 23) goto LV4_23;
+		
+	if(lv4_weapon == 31) goto LV4_31;
+	if(lv4_weapon == 32) goto LV4_32;
+	
+	if(lv4_weapon == 40) goto LV4_40;
+	if(lv4_weapon == 41) goto LV4_41;
+	
+	if(lv4_weapon == 49) goto LV4_49;
+	if(lv4_weapon == 50) goto LV4_50;
+	
+	mes "[Bill Thayer]";
+	mes "...I cannot do anything now.";
+	mes "In the past, I used to be a well-known weaponsmith";
+	mes "but now I am just a lonely old man who lost all of his sons.";
+	mes "Please leave me alone.";
+	close;
+
+LV4_27:
+LV4_28:
+LV4_36:
+LV4_37:
+LV4_45:
+LV4_46:
+LV4_54:
+LV4_55:
+	if(lv4_weapon == 27)
+{
+			set @LV4_Gem1Name$, "Peridot";
+			set @LV4_Gem2Name$, "Turquoise";
+			set @LV4_Gem3Name$, "Agate";
+}
+	if(lv4_weapon == 28)
+{
+			set @LV4_Gem1Name$, "Phlogopite";
+			set @LV4_Gem2Name$, "Pyroxene";
+			set @LV4_Gem3Name$, "Rose Quartz";
+}
+	if(lv4_weapon == 36)
+{
+			set @LV4_Gem1Name$, "Muscovite";
+			set @LV4_Gem2Name$, "Rose Quartz";
+			set @LV4_Gem3Name$, "Peridot";
+}
+	if(lv4_weapon == 37)
+{
+			set @LV4_Gem1Name$, "Biotite";
+			set @LV4_Gem2Name$, "Agate";
+			set @LV4_Gem3Name$, "Citrine";
+}
+	if(lv4_weapon == 45)
+{
+			set @LV4_Gem1Name$, "Turquoise";
+			set @LV4_Gem2Name$, "Biotite";
+			set @LV4_Gem3Name$, "Rose Quartz";
+}
+	if(lv4_weapon == 46)
+{
+			set @LV4_Gem1Name$, "Citrine";
+			set @LV4_Gem2Name$, "Pyroxene";
+			set @LV4_Gem3Name$, "Phlogopite";
+}
+	if(lv4_weapon == 54)
+{
+			set @LV4_Gem1Name$, "Muscovite";
+			set @LV4_Gem2Name$, "Agate";
+			set @LV4_Gem3Name$, "Citrine";
+}
+	if(lv4_weapon == 55)
+{
+			set @LV4_Gem1Name$, "Pyroxene";
+			set @LV4_Gem2Name$, "Turquoise";
+			set @LV4_Gem3Name$, "Phlogopite";
+}
+
+	mes "[Bill Thayer]";
+	mes "Hmm...it seems that you need 30 of";
+	mes @LV4_Gem1Name$ + ", " + @LV4_Gem2Name$ + ", and " + @LV4_Gem3Name$;
+	mes "I am sure that those are the materials...";
+	mes "but I cannot guarantee anything about the result...";
+	next;
+	mes "[Bill Thayer]";
+	mes "My sons passed away before we finished this research...";
+	mes "Hahaha...let's not talk about it.";
+	mes "I told you what you need anyway.";
+	close;
+
+
+LV4_26:
+LV4_35:
+LV4_44:
+LV4_53:
+	mes "[Bill Thayer]";
+	if(lv4_weapon == 26) mes "What, Kayron's research?";
+	if(lv4_weapon == 35) mes "What, Reyghema's research?";
+	if(lv4_weapon == 44) mes "What? Hein's research?";
+	if(lv4_weapon == 53) mes "What? Waltboughst's research?";	
+	mes "How do you know him?";
+	mes "Were you a friend of him when he was still alive?";
+	mes "Ah....there must an act of providence.";
+	next;
+	
+	set lv4_weapon, lv4_weapon + rand(1, 2);
+	
+	switch( lv4_weapon ) {
+		case 27:
+			set @LV4_Gem1Name$, "Peridot";
+			set LV4_Gem1, $@LV4_Olivine;
+			set @LV4_Gem2Name$, "Turquoise";
+			set LV4_Gem2, $@LV4_Turquoise;
+			set @LV4_Gem3Name$, "Agate";
+			set LV4_Gem3, $@LV4_Agate;
+			break;
+		case 28:
+			set @LV4_Gem1Name$, "Phlogopite";
+			set LV4_Gem1, $@LV4_Phlogopite;
+			set @LV4_Gem2Name$, "Pyroxene";
+			set LV4_Gem2, $@LV4_Pyroxene;
+			set @LV4_Gem3Name$, "Rose Quartz";
+			set LV4_Gem3, $@LV4_Rose_Quartz;
+			break;
+		case 36:
+			set @LV4_Gem1Name$, "Muscovite";
+			set LV4_Gem1, $@LV4_Muscovite;
+			set @LV4_Gem2Name$, "Rose Quartz";
+			set LV4_Gem2, $@LV4_Rose_Quartz ;
+			set @LV4_Gem3Name$, "Peridot";
+			set LV4_Gem3, $@LV4_Olivine;
+			break;
+		case 37:
+			set @LV4_Gem1Name$, "Biotite";
+			set LV4_Gem1, $@LV4_Biotite;
+			set @LV4_Gem2Name$, "Agate";
+			set LV4_Gem2, $@LV4_Agate;
+			set @LV4_Gem3Name$, "Citrine";
+			set LV4_Gem3, $@LV4_Citrine;
+			break;
+		case 45:
+			set @LV4_Gem1Name$, "Turquoise";
+			set LV4_Gem1, $@LV4_Turquoise;
+			set @LV4_Gem2Name$, "Biotite";
+			set LV4_Gem2, $@LV4_Biotite;
+			set @LV4_Gem3Name$, "Rose Quartz";
+			set LV4_Gem3, $@LV4_Rose_Quartz;
+			break;
+		case 46:
+			set @LV4_Gem1Name$, "Citrine";
+			set LV4_Gem1, $@LV4_Citrine;
+			set @LV4_Gem2Name$, "Pyroxene";
+			set LV4_Gem2, $@LV4_Pyroxene;
+			set @LV4_Gem3Name$, "Phlogopite";
+			set LV4_Gem3, $@LV4_Phlogopite;
+			break;
+		case 54:
+			set @LV4_Gem1Name$, "Muscovite";
+			set LV4_Gem1, $@LV4_Muscovite;
+			set @LV4_Gem2Name$, "Agate";
+			set LV4_Gem2, $@LV4_Agate;
+			set @LV4_Gem3Name$, "Citrine";
+			set LV4_Gem3, $@LV4_Citrine;
+			break;
+		case 55:
+			set @LV4_Gem1Name$, "Pyroxene";
+			set LV4_Gem1, $@LV4_Pyroxene;
+			set @LV4_Gem2Name$, "Turquoise";
+			set LV4_Gem2, $@LV4_Turquoise;
+			set @LV4_Gem3Name$, "Phlogopite";
+			set LV4_Gem3, $@LV4_Phlogopite;
+			break;
+	}
+	
+	mes "[Bill Thayer]";
+	mes "Hmm...it seems that you need 30 of";
+	mes @LV4_Gem1Name$ + ", " + @LV4_Gem2Name$ + ", and " + @LV4_Gem3Name$;
+	mes "I am sure that those are the materials...";
+	mes "but I cannot guarantee anything about the result...";
+	next;
+	mes "[Bill Thayer]";
+	mes "My sons passed away before we finished this research...";
+	mes "Hahaha...let's not talk about it.";
+	mes "I told you what you need anyway.";
+	close;	
+
+
+LV4_22:
+LV4_23:
+	mes "[Bill Thayer]";
+	mes "Oh well, I told you already";
+	mes "that there is nothing I can do for you...";
+	mes "since my sons are all gone...why are";
+	mes "you wasting my breath? ^4D4DFFYou are helpless.^000000";
+	set lv4_weapon, 23;
+	next;
+	mes "[Bill Thayer]";
+	mes "...you just made me";
+	mes "miss my sons again...";
+	mes "Please leave me alone.";
+	close;
+	
+
+LV4_31:
+LV4_32:
+	mes "[Bill Thayer]";
+	mes "All of my sons broke my heart by dying young...";
+	mes "...youth...what is youth?";
+	mes "^4D4DFFThat means that you never regret anything!^000000";
+	set lv4_weapon, 32;
+	next;
+	mes "[Bill Thayer]";
+	mes "That was what I used to tell to my sons.";
+	mes "Please remember that,";
+	mes "never regret anything that you have done.";
+	mes "However, in order to do that, you must";
+	mes "do everything right...that's all I can tell you for now.";
+	close;
+	
+		
+LV4_40:
+LV4_41:
+	mes "[Bill Thayer]";
+	mes "...no matter how much you are willing to pay me,";
+	mes "I am not going to forge any weapons.";
+	mes "Even when I was actively forging weapons,";
+	mes "I didn't accept money from my clients.";
+	mes "You know why?";
+	next;
+	mes "[Bill Thayer]";
+	mes "It brings me bad luck ^4D4DFFto^000000";
+	mes "^4D4DFFforge a good weapon.^000000";
+	mes "Therefore I didn't receive money from them.";
+	set lv4_weapon, 41;
+	next;
+	mes "[Bill Thayer]";
+	mes "Well, I am not going to do so";
+	mes "even if you offer me something else other than money";
+	mes "...unless all of my sons come back";
+	mes "alive....";
+	close;
+
+
+LV4_49:
+LV4_50:
+		mes "[Bill Thayer]";
+		mes "...do you not have anything to do?";
+		mes "I hope you stop bothering me";
+		mes "and trying your best for your work.";
+		mes "Ah...trying best does not always";
+		mes "result in a success though.";
+		next;
+		mes "[Bill Thayer]";
+		mes "However, ^4D4DFFall the successful men^000000";
+		mes "^4D4DFFin the history tried their best!^000000";
+		mes "I hope you will remember that.";
+		mes "I used to tell this to my sons when they were alive.";
+		mes "Hahaha...";
+		set lv4_weapon, 50;
+		close;
+}
+
+//--------------------------------------------------
+// Kayron, creates Longinus' Spear, Guillotine, Great Axe and Brionac
+//--------------------------------------------------
+
+niflheim.gat,240,193,3	script	Kayron	794, {
+	set @NowWeight, MaxWeight - Weight;
+	if (@NowWeight >= 3000) goto LV4_NOT_OW;
+	mes "- Wait a minute! -";
+	mes "- You are currently overweight. -";
+	mes "- Please lose some weight -";
+	mes "- and try again. -";
+	close;
+
+	
+LV4_NOT_OW:
+	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
+	mes "[Kayron]";
+	mes "Bah, I cannot believe";
+	mes "that such a weak man like you even came here.";
+	mes "You have an invisible sign on your forehead";
+	mes "that indicates you are a weakling. Be strong first.";
+	close;
+	
+
+LV4_LEVEL_PASS:
+	if(lv4_weapon == 0) goto LV4_0;
+	if(lv4_weapon < 22) goto LV4_21;
+	if(lv4_weapon == 22) goto LV4_22;
+	if(lv4_weapon == 23) goto LV4_23;
+	if(lv4_weapon == 24) goto LV4_24;
+	if(lv4_weapon == 25) goto LV4_25;
+	if(lv4_weapon == 26) goto LV4_26;
+	if(lv4_weapon == 27) goto LV4_27;
+	if(lv4_weapon == 28) goto LV4_28;
+	if(lv4_weapon == 29) goto LV4_29;
+	if(lv4_weapon == 30) goto LV4_30;
+	if(lv4_weapon > 30) goto LV4_31;
+	end; // shouldn't be here
+
+
+LV4_0:
+LV4_22:
+	mes "[Kayron]";
+	mes "I used to be called Kayron when I was alive.";
+	mes "But now I am nothing but";
+	mes "a ghost wandering this place.";
+	mes "I am worthless...I cannot do anything";
+	mes "without a body...";
+	next;
+	
+	if(lv4_weapon == 0) goto LV4_0_ASK;
+	
+	mes "[Kayron]";
+	mes "Ah...I cannot remember what I was going to say...";
+	mes "Waaahhh.....I cannot remember....";
+	mes "My memory is gone...!";
+	close;
+	
+LV4_0_ASK:
+	switch( select( "Show interest.", "Ignore him." ) ) {
+		case 1:
+			mes "[Kayron]";
+			mes "Ah...I cannot remember what I was going to say...";
+			mes "Waaahhh.....I cannot remember....";
+			mes "My memory is gone...!";
+			set lv4_weapon, 22;
+			close;
+			break;
+		case 2:
+			mes "- Because you decided to ignore him, -";
+			mes "- you are no longer able to hear him. -";
+			close;
+			break;
+	}
+	end;
+	
+
+LV4_21:
+LV4_31:
+	mes "[Kayron]";
+	mes "I feel something different about you.";
+	mes "Did you come here with a purpose?";
+	mes "I am envious of you...";
+	close;
+
+
+LV4_23:
+	mes "[Kayron]";
+	mes "I used to be called Kayron when I was alive.";
+	mes "But now I am nothing but";
+	mes "a ghost wandering this place.";
+	mes "I am worthless...I cannot do anything";
+	mes "without a body...";
+	next;
+	set @dap1$, "You are helpless.";
+	input @answer1$;
+	if(@answer1$ == @dap1$) goto LV4_23_CORRECT;
+	mes "[Kayron]";
+	mes "...? What did you just say?";
+	mes "I am sorry but I don't think I understood you.";
+	close;
+
+LV4_23_CORRECT:
+	mes "[Kayron]";
+	mes "Yes, You are helpless...?! Eh?";
+	mes "That was my father's favorite saying!";
+	mes "Whoa?! Ah...";
+	mes "Yes...I forgot that I am dead already.";
+	mes "Why did you make me recall something from my past?";
+	mes "It is no use now...";
+	next;
+	mes "[Kayron]";
+	mes "But I want to do something in return...";
+	mes "since you made me find a piece of my mind.";
+	mes "I used to be a weaponsmith in the past,";
+	mes "therefore I am going to forge a nice weapon for you.";
+	next;
+	mes "[Kayron]";
+	mes "But you have to gather the materials for me.";
+	mes "As you see, I do not have a body";
+	mes "that would allow me to touch other objects...";
+	mes "So you got to help me with that.";
+	next;
+	mes "[Kayron]";
+	mes "Luckily this place is filled with mysterious energy,";
+	mes "that makes my work easier!";
+	mes "Heh, even if I fail to forge one,";
+	mes "I don't have to worry about dying.";
+	mes "Because I am dead already! Muhahahaha!";
+	next;
+	mes "[Kayron]";
+	mes "I will talk to you in a while.";
+	mes "I am trying to think of the receipe...";
+	set lv4_weapon, 24;
+	close;
+	
+	
+LV4_25:
+	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_25_BASE_MAT;
+	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_25_BASE_MAT;
+	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_25_BASE_MAT;
+	if(countitem($@LV4_Gold) < 20) goto LV4_25_BASE_MAT;
+	
+	mes "[Kayron]";
+	mes "Oh...you brought everything I need!";
+	mes "You are a reliable person unlike your appearance.";
+	mes "But here is the thing...";
+	mes "There are some more materials I need...";
+	mes "But I cannot think of any of them...my memory";
+	mes "is unclear...arrrrph...";
+	next;
+	mes "[Kayron]";
+	mes "I need to think about that a little longer.";
+	mes "I know that I really need those materials...awwww....";
+	mes "Do you have any idea to bring my memory back?";
+	mes "At the same time, rest assured that the materials";
+	mes "you brought will be used for my creation. So let me keep them for you.";
+	
+	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
+	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
+	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
+	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
+	delitem $@LV4_Hammer_Of_Blacksmith, 2;
+	delitem $@LV4_Emperium_Anvil, 1;
+	delitem $@LV4_Illusion_Flower, 1;
+	delitem $@LV4_Gold, 20;
+	set lv4_weapon, 26;
+	close;
+
+LV4_24:
+LV4_25_BASE_MAT:
+	switch( lv4_weapon ) {
+		case 24:
+			mes "[Kayron]";
+			mes "Oh, you came back at a right time.";
+			mes "I just finished my thoughts. Let me tell you one thing.";
+			mes "I cannot guarantee you which weapon will come out of this.";
+			mes "Also you must be willing to take a risk as well...";
+			mes "I guess that the result will be affected by the power";
+			mes "of Nifflheim at the time I make.";
+			next;
+			mes "[Kayron]";
+			mes "Let me give you the list of materials";
+			mes "I need. They are quite a lot,";
+			mes "so write them down if you need.";
+			break;
+		case 25:
+			mes "[Kayron]";
+			mes "I will tell you the list of materials I need again.";
+			mes "I think I need a lot of materials...so";
+			mes "write them down if you need.";
+			break;
+		}
+		next;
+		mes "[Kayron]";
+		mes "I need 2 Hammer of Blacksmith,";
+		mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+		next;
+		mes "[Kayron]";
+		mes "Bring these to me first. I am kind of worried";
+		mes "that I forgot something...but I will try to remember";
+		mes "while waiting for you to bring these items.";
+		next;
+		mes "[Kayron]";
+		mes "Have a safe travel.";
+		set lv4_weapon, 25;
+		close;
+		
+
+LV4_27:
+LV4_28:
+	if(countitem(LV4_Gem1) < 30) goto LV4_27_NOGEM;
+	if(countitem(LV4_Gem2) < 30) goto LV4_27_NOGEM;
+	if(countitem(LV4_Gem3) < 30) goto LV4_27_NOGEM;
+	mes "[Kayron]";
+	mes "...Um? The items that you brought to me seem";
+	mes "to be good materials for my creation...";
+	mes "Give them to me, I shall try first!";
+	next;
+	mes "[Kayron]";
+	mes "Oh...I was right! How did you";
+	mes "know these are materials I need?";
+	mes "Great, give me a moment!";
+	next;
+	mes "[Kayron]";
+	mes "...wait, I must test your luck first.";
+	mes "Since I am not sure about the result,";
+	mes "we should place trust in luck for the result of my creation.";
+	mes "You must have good luck...";
+	next;
+	mes "[Kayron]";
+	mes "We are going to play 'Rock, Paper, Scissors'.";
+	mes "You must win at least 2 out of 3 times.";
+	mes "If you fail, you must throw away a large amount";
+	mes "of one of the 3 kinds of ore that you have brought.";
+	mes "It is for driving away your bad luck.";
+	next;
+	mes "[Kayron]";
+	mes "I will give you a piece of paper.";
+	mes "You will write down one among 'Rock, Paper, or Scissors'.";
+	mes "I will do the same at the same time.";
+	mes "We will compare each other's paper after.";
+	next;
+	
+	set @shobu, 0;
+	
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@i == 2) mes "[Kayron]";
+		if(@i == 2) mes "Let's play the second one!";
+		if(@i == 3) mes "[Kayron]";
+		if(@i == 3) mes "This will be the last one!";
+		if(@i == 3) mes "Let's compare after this.";
+		set @npchand[@i], rand(1, 3);
+		switch( select( "Scissors", "Rock", "Paper" ) ) {
+			case 1:
+				set @myhand[@i], 1;
+				if(@npchand[@i] == 3) set @shobu, @shobu + 1;
+				break;
+			case 2:
+				set @myhand[@i], 2;
+				if(@npchand[@i] == 1) set @shobu, @shobu + 1;
+				break;
+			case 3:
+				set @myhand[@i], 3;
+				if(@npchand[@i] == 2) set @shobu, @shobu + 1;
+				break;
+		}
+	}
+		
+	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
+	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
+	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
+
+	if(@shobu > 1) goto LV4_27_WIN;
+
+	switch ( rand(1 ,3) ) {
+		case 1:
+			delitem LV4_Gem1, 30;
+			break;
+		case 2:
+			delitem LV4_Gem2, 30;
+			break;
+		case 3:
+			delitem LV4_Gem3, 30;
+			break;
+	}
+	goto LV4_27_RESULT;
+		
+LV4_27_WIN:
+	delitem LV4_Gem1, 30;
+	delitem LV4_Gem2, 30;
+	delitem LV4_Gem3, 30;
+	set lv4_weapon, lv4_weapon + 2;
+	goto LV4_27_RESULT;
+	
+LV4_27_RESULT:
+	mes "[Kayron]";
+	mes "Okay...I played in the order of...";
+	
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@npchand[@i] == 1) mes "Scissors";
+		if(@npchand[@i] == 2) mes "Rock";
+		if(@npchand[@i] == 3) mes "Paper";
+	}
+
+	next;
+	mes "[Kayron]";
+	mes "You did in the order of...";
+
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@myhand[@i] == 1) mes "Scissors";
+		if(@myhand[@i] == 2) mes "Rock";
+		if(@myhand[@i] == 3) mes "Paper";
+	}
+
+	next;
+
+	if(@shobu > 1) goto LV4_27_SAY_WIN;
+	
+	mes "[Kayron]";
+	mes "Well well well...you lost the game.";
+	mes "Ah~ you were close though...";
+	mes "We must drive away bad luck.";
+	next;
+	mes "[Kayron]";
+	mes "Okay, I will wait here,";
+	mes "go bring me the materials again...";
+	close;
+			
+LV4_27_SAY_WIN:
+	mes "[Kayron]";
+	mes "Let's see...";
+	mes "You won total " + @shobu + " times.";
+	mes "Ah~ you must be really good at game!";
+	mes "Yes, your luck is at its highest!";
+	next;
+	mes "[Kayron]";
+	mes "I am going to keep my promise.";
+	mes "But I need some time to prepare.";
+	mes "Give me the materials now and I will talk to you later.";
+	close;
+
+LV4_26:
+LV4_27_NOGEM:
+	mes "[Kayron]";
+	mes "Arph...it has not gotten into my memory yet.";
+	mes "Awww....this is a problem.";
+	mes "I used to often discuss the materials";
+	mes "with my family...now I cannot remember what they are...";
+	close;
+
+
+LV4_29:
+LV4_30:
+	mes "[Kayron]";
+	mes "Hahaha...you came back at the right time.";
+	mes "The result? Do you want to know about the result?...";
+	mes "Haha...okay...let's see...";
+	next;
+	mes "[Kayron]";
+	mes "...YES! It's a success!";
+	mes "I created the weapon that got me killed last time!";
+	mes "Look at this...haha! I died while making this!";
+	mes "... The name of the weapon is...";
+	
+	
+	switch( rand(1, 2) ) {
+		case 1:
+			if(lv4_weapon == 29) mes "Great Axe! Weee~ I made it!";
+			if(lv4_weapon == 29) getitem 1364 ,1; // 1364,Great_Axe
+			if(lv4_weapon == 30) mes "Longinus's Spear! Weee~ I made it!";
+			if(lv4_weapon == 30) getitem 1469, 1; // 1469,Longinus's_Spear
+			break;
+		case 2:
+			if(lv4_weapon == 29) mes "Guillotine! Weee~ I made it!";
+			if(lv4_weapon == 29) getitem 1369, 1; // 1369,Guillotine
+			if(lv4_weapon == 30) mes "Brionac! Weee~ I made it!";
+			if(lv4_weapon == 30) getitem 1470, 1; // 1470,Brionac
+	}
+	
+	set lv4_weapon, 0;
+	next;
+	mes "[Kayron]";
+	mes "I finally succeeded in the research...";
+	mes "I want to show this result to my father...";
+	mes "He will be really happy for this.";
+	next;
+	mes "[Kayron]";
+	mes "Ah~ I feel my memories are fading again...";
+	mes "If you see me next time...";
+	mes "please let me remember the memories again...";
+	mes "Thank you...";
+	close;
+	
+
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+	mes "[Kayron]";
+	mes "Hmm. There seems to be a bit of problem.";
+	set lv4_weapon, 0;
+	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+	close;
+}
+
+//--------------------------------------------------
+// Reyghema, creates Berserk, Tjungkulleti, Rudra's Bow and Brocca(Skewer)
+//--------------------------------------------------
+
+niflheim.gat,99,268,5	script	Reyghema	794, {
+	set @NowWeight, MaxWeight - Weight;
+	if (@NowWeight >= 3000) goto LV4_NOT_OW;
+	mes "- Wait a minute! -";
+	mes "- You are currently overweight. -";
+	mes "- Please lose some weight -";
+	mes "- and try again. -";
+	close;
+
+	
+LV4_NOT_OW:
+	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
+	mes "[Reyghema]";
+	mes "Um? Do you have any business with me?";
+	mes "Sorry but I don't. I'm also not";
+	mes "speaking to a weak person like you.";
+	mes "Have a safe travel~";
+	close;
+	
+
+LV4_LEVEL_PASS:
+	if(lv4_weapon == 0) goto LV4_0;
+	if(lv4_weapon < 31) goto LV4_30;
+	if(lv4_weapon == 31) goto LV4_31;
+	if(lv4_weapon == 32) goto LV4_32;
+	if(lv4_weapon == 33) goto LV4_33;
+	if(lv4_weapon == 34) goto LV4_34;
+	if(lv4_weapon == 35) goto LV4_35;
+	if(lv4_weapon == 36) goto LV4_36;
+	if(lv4_weapon == 37) goto LV4_37;
+	if(lv4_weapon == 38) goto LV4_38;
+	if(lv4_weapon == 39) goto LV4_39;
+	if(lv4_weapon > 39) goto LV4_40;
+	end; // shouldn't be here
+
+
+LV4_0:
+LV4_31:
+	mes "[Reyghema]";
+	mes "Darn it...I didn't want to die!";
+	mes "Well...there is no living thing that wants to die but...";
+	mes "Especially me, I was too young to die!";
+	mes "Youth! ...Ah...I just remember the word.";
+	mes "Speaking of which...I think I usually said something related to that...";
+	next;
+	
+	if(lv4_weapon == 0) goto LV4_0_ASK;
+	
+	mes "[Reyghema]";
+	mes "Ah...I cannot remember what I was going to say...";
+	mes "Waaahhh.....I cannot remember....";
+	mes "My memory is gone...!";
+	close;
+	
+LV4_0_ASK:
+	switch( select( "Show interest.", "Igonore him." ) ) {
+		case 1:
+			mes "[Reyghema]";
+			mes "Ah...I cannot remember what I was going to say...";
+			mes "Waaahhh.....I cannot remember....";
+			mes "My memory is gone...!";
+			set lv4_weapon, 31;
+			close;
+			break;
+		case 2:
+			mes "- Because you decided to ignore him, -";
+			mes "- you are no longer able to hear him. -";
+			close;
+			break;
+	}
+	end;
+	
+
+LV4_30:
+LV4_40:
+	mes "[Reyghema]";
+	mes "I feel something different about you.";
+	mes "Did you come here with a purpose?";
+	mes "I am envious of you...";
+	close;
+
+
+LV4_32:
+	mes "[Reyghema]";
+	mes "I used to be called Reyghema when I was alive.";
+	mes "But now I am nothing but";
+	mes "a ghost wandering this place.";
+	mes "I am worthless...I cannot do anything";
+	mes "without a body...";
+	next;
+	set @dap2$, "That means that you never regret anything!";
+	input @answer2$;
+	if(@answer2$ == @dap2$) goto LV4_32_CORRECT;
+	mes "[Reyghema]";
+	mes "What? Do you want to play a game with me or what?";
+	mes "Unfortunately I have something to do...";
+	mes "wait...what was I going to do?";
+	close;
+
+LV4_32_CORRECT:
+	mes "[Reyghema]";
+	mes "...";
+	next;
+	mes "[Reyghema]";
+	mes "...";
+	mes "......";
+	next;
+	mes "[Reyghema]";
+	mes "...";
+	mes "......";
+	mes ".........";
+	next;
+	mes "[Reyghema]";
+	mes "That's right! I am Bill Thayer the Weaponsmith's";
+	mes "second son! And I must forge a weapon";
+	mes "in order to not regret my youth!";
+	mes "Even if I am dead, I cannot give it up!";
+	next;
+	mes "[Reyghema]";
+	mes "Hey you, thank you for letting me have my memory back!";
+	mes "You need to do me another favor!";
+	mes "Bring me some items, I need to forge a weapon.";
+	mes "Once I make one, I will give it to you in return for your favor.";
+	next;
+	mes "[Reyghema]";
+	mes "Reyghema, breathe deeply first...phew~.";
+	mes "Give me a second!";
+	set lv4_weapon, 33;
+	close;
+	
+	
+LV4_34:
+	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_34_BASE_MAT;
+	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_34_BASE_MAT;
+	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_34_BASE_MAT;
+	if(countitem($@LV4_Gold) < 20) goto LV4_34_BASE_MAT;
+	
+	mes "[Reyghema]";
+	mes "Oh...you brought everything I need!";
+	mes "You are a reliable person unlike you appear.";
+	mes "But here is the thing...";
+	mes "There are some more materials I need...";
+	mes "But I cannot think of any of them...my memory";
+	mes "is unclear...arrrrph...";
+	next;
+	mes "[Reyghema]";
+	mes "I need to think about that a little longer.";
+	mes "I know that I really need those materials...awwww....";
+	mes "Do you have any idea to bring my memory back?";
+	mes "At the same time, rest assured that the materials";
+	mes "you brought will be used for my creation. So let me keep them for you.";
+	
+	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
+	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
+	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
+	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
+	delitem $@LV4_Hammer_Of_Blacksmith, 2;
+	delitem $@LV4_Emperium_Anvil, 1;
+	delitem $@LV4_Illusion_Flower, 1;
+	delitem $@LV4_Gold, 20;
+	set lv4_weapon, 35;
+	close;
+
+LV4_33:
+LV4_34_BASE_MAT:
+	switch( lv4_weapon ) {
+		case 33:
+			mes "[Reyghema]";
+			mes "Okay. You don't need any other explaination, do you?";
+			mes "I will tell you what I need";
+			mes "so please do not forget those materials.";
+			break;
+		case 34:
+			mes "[Reyghema]";
+			mes "I will tell you the list of materials I need again.";
+			mes "I think I need a lot of materials...so";
+			mes "write them down if you need.";
+			break;
+		}
+		next;
+		mes "[Reyghema]";
+		mes "I need 2 Hammer of Blacksmith,";
+		mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+		mes "...wait...are they all...or do I need more?!";
+		if(lv4_weapon == 33) next;
+		if(lv4_weapon == 33) mes "[Reyghema]";
+		if(lv4_weapon == 33) mes "Ah...I think need something more...it's very important...";
+		if(lv4_weapon == 33) mes "But I cannot remember what more I need....!";
+		if(lv4_weapon == 33) mes "Bah...this is so frustrating.";
+		set lv4_weapon, 34;
+		close;
+		
+
+LV4_36:
+LV4_37:
+	if(countitem(LV4_Gem1) < 30) goto LV4_36_NOGEM;
+	if(countitem(LV4_Gem2) < 30) goto LV4_36_NOGEM;
+	if(countitem(LV4_Gem3) < 30) goto LV4_36_NOGEM;
+	mes "[Reyghema]";
+	mes "...Um? The items that you brought to me seem";
+	mes "to be good materials for my creation...";
+	mes "Give them to me, I shall try first!";
+	next;
+	mes "[Reyghema]";
+	mes "Oh...I was right! How did you";
+	mes "know these are materials I need?";
+	mes "Great, give me a moment!";
+	next;
+	mes "[Reyghema]";
+	mes "...wait, I must test your luck first.";
+	mes "Since I am not sure about the result,";
+	mes "we should place trust in luck for the result of my creation.";
+	mes "You must have good luck...";
+	next;
+	mes "[Reyghema]";
+	mes "We are going to play 'Rock, Paper, Scissors'.";
+	mes "You must win at least 2 out of 3 times.";
+	mes "If you fail, you must leave a large amount";
+	mes "of one material you have brought.";
+	mes "It is for driving away your bad luck.";
+	next;
+	mes "[Reyghema]";
+	mes "I will give you a piece of paper.";
+	mes "You will write down one among 'Rock, Paper, or Scissors'.";
+	mes "I will do the same at the same time.";
+	mes "We will then compare each other's paper.";
+	next;
+	
+	set @shobu, 0;
+	
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@i == 2) mes "[Reyghema]";
+		if(@i == 2) mes "Let's play the second one!";
+		if(@i == 3) mes "[Reyghema]";
+		if(@i == 3) mes "This will be the last one!";
+		if(@i == 3) mes "Let's compare after this.";
+		set @npchand[@i], rand(1, 3);
+		switch( select( "Scissors", "Rock", "Paper" ) ) {
+			case 1:
+				set @myhand[@i], 1;
+				if(@npchand[@i] == 3) set @shobu, @shobu + 1;
+				break;
+			case 2:
+				set @myhand[@i], 2;
+				if(@npchand[@i] == 1) set @shobu, @shobu + 1;
+				break;
+			case 3:
+				set @myhand[@i], 3;
+				if(@npchand[@i] == 2) set @shobu, @shobu + 1;
+				break;
+		}
+	}
+		
+	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
+	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
+	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
+
+	if(@shobu > 1) goto LV4_36_WIN;
+
+	switch ( rand(1 ,3) ) {
+		case 1:
+			delitem LV4_Gem1, 30;
+			break;
+		case 2:
+			delitem LV4_Gem2, 30;
+			break;
+		case 3:
+			delitem LV4_Gem3, 30;
+			break;
+	}
+	goto LV4_36_RESULT;
+		
+LV4_36_WIN:
+	delitem LV4_Gem1, 30;
+	delitem LV4_Gem2, 30;
+	delitem LV4_Gem3, 30;
+	set lv4_weapon, lv4_weapon + 2;
+	goto LV4_36_RESULT;
+	
+LV4_36_RESULT:
+	mes "[Reyghema]";
+	mes "Okay...I played in the order of...";
+	
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@npchand[@i] == 1) mes "Scissors";
+		if(@npchand[@i] == 2) mes "Rock";
+		if(@npchand[@i] == 3) mes "Paper";
+	}
+
+	next;
+	mes "[Reyghema]";
+	mes "You did in the order of...";
+
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@myhand[@i] == 1) mes "Scissors";
+		if(@myhand[@i] == 2) mes "Rock";
+		if(@myhand[@i] == 3) mes "Paper";
+	}
+
+	next;
+
+	if(@shobu > 1) goto LV4_36_SAY_WIN;
+	
+	mes "[Reyghema]";
+	mes "Well well well...you lost the game.";
+	mes "Ah~ you were close though...";
+	mes "We must drive away bad luck.";
+	next;
+	mes "[Reyghema]";
+	mes "Okay, I will wait here,";
+	mes "go bring me the materials again...";
+	close;
+			
+LV4_36_SAY_WIN:
+	mes "[Reyghema]";
+	mes "Let's see...";
+	mes "You won total " + @shobu + " times.";
+	mes "Ah~ you must be really good at game!";
+	mes "Yes, your luck is at its highest!";
+	next;
+	mes "[Reyghema]";
+	mes "I am going to keep my promise.";
+	mes "But I need some time to prepare.";
+	mes "Give me the materials now and I will talk to you later.";
+	close;
+
+LV4_35:
+LV4_36_NOGEM:
+		mes "[Reyghema]";
+		mes "Not yet! I have not remembered it yet! Awwww...";
+		mes "This is killing me...";
+		mes "Oh, wait...I died already...";
+		mes "God damn it!";
+	close;
+
+
+LV4_38:
+LV4_39:
+	mes "[Reyghema]";
+	mes "..................";
+	next;
+	mes "[Reyghema]";
+	mes "...YES! It's a success!";
+	mes "I created the weapon that got me killed last time!";
+	mes "Look at this...haha! I died while making this!";
+	mes "... The name of the weapon is...";
+	
+	switch( rand(1, 2) ) {
+		case 1:
+			if(lv4_weapon == 38) mes "Berserk! Weee~ Weee~ I made it!";
+			if(lv4_weapon == 38) getitem 1814 ,1; // 1814,Berserk
+			if(lv4_weapon == 39) mes "Tjungkuletti! Weee~ I made it!";
+			if(lv4_weapon == 39) getitem 1416, 1; // 1416,Tjungkuletti
+			break;
+		case 2:
+			if(lv4_weapon == 38) mes "Rudra's Bow! Weee~ I made it!";
+			if(lv4_weapon == 38) getitem 1720, 1; // 1720,Bow_of_Rudra
+			if(lv4_weapon == 39) mes "Brocca!";
+			if(lv4_weapon == 39) getitem 1415, 1; // 1415,Skewer
+	}
+	
+	set lv4_weapon, 0;
+	next;
+	mes "[Reyghema]";
+	mes "...*sigh*.";
+	next;
+	mes "[Reyghema]";
+	mes "Happiness lasts too short...";
+	mes "As I am a dead man, I think I am not allowed";
+	mes "to keep the memory of past....";
+	mes "My memory is fading again...";
+	next;
+	mes "[Reyghema]";
+	mes "But thank you for letting me achieve";
+	mes "my long-cherished desire.";
+	mes "If we meet again, please let me";
+	mes "retrieve my memory of past again.";
+	mes "So I can try forging another weapon.";
+	next;
+	mes "[Reyghema]";
+	mes "Farewell, adventurer.";
+	close;
+	
+	
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+	mes "[Reyghema]";
+	mes "Hmm. There seems to be a bit of problem.";
+	set lv4_weapon, 0;
+	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+	close;
+}
+
+//--------------------------------------------------
+// Hein, creates Excalibur, Schweisersabel, Dragon Slayer and Edge
+//--------------------------------------------------
+
+niflheim.gat,187,280,3	script	Hein	795, {
+	set @NowWeight, MaxWeight - Weight;
+	if (@NowWeight >= 3000) goto LV4_NOT_OW;
+	mes "- Wait a minute! -";
+	mes "- You are currently overweight. -";
+	mes "- Please lose some weight -";
+	mes "- and try again. -";
+	close;
+
+	
+LV4_NOT_OW:
+	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
+	mes "[Hein]";
+	mes "You should care about other people";
+	mes "more than yourself...";
+	mes "You are quite weak for an adventurer.";
+	close;
+	
+
+LV4_LEVEL_PASS:
+	if(lv4_weapon == 0) goto LV4_0;
+	if(lv4_weapon < 40) goto LV4_39;
+	if(lv4_weapon == 40) goto LV4_40;
+	if(lv4_weapon == 41) goto LV4_41;
+	if(lv4_weapon == 42) goto LV4_42;
+	if(lv4_weapon == 43) goto LV4_43;
+	if(lv4_weapon == 44) goto LV4_44;
+	if(lv4_weapon == 45) goto LV4_45;
+	if(lv4_weapon == 46) goto LV4_46;
+	if(lv4_weapon == 47) goto LV4_47;
+	if(lv4_weapon == 48) goto LV4_48;
+	if(lv4_weapon > 48) goto LV4_49;
+	end; // shouldn't be here
+
+
+LV4_0:
+LV4_40:
+	mes "[Hein]";
+	mes "Ah...are you going to ask me something?";
+	mes "However, I am not accepting money";
+	mes "from my client. Because.";
+	mes "It brings me bad luck to...";
+	mes "...whaat? What did I just say?";
+	mes "Awww....I am confused.";
+	next;
+	
+	if(lv4_weapon == 0) goto LV4_0_ASK;
+	
+	mes "[Hein]";
+	mes "Why did I speak of money?";
+	mes "I am a dead man and dead people";
+	mes "do not need money...arf!";
+	mes "My head is hurting...I guess that";
+	mes "a dead man can have a headache!";
+	close;
+	
+LV4_0_ASK:
+	switch( select( "Show interest.", "Igonore him." ) ) {
+		case 1:
+			mes "[Hein]";
+			mes "Why did I speak of money?";
+			mes "I am a dead man and dead people";
+			mes "do not need money...arf!";
+			mes "My head is hurting...I guess that";
+			mes "a dead man can have a headache!";
+			set lv4_weapon, 40;
+			close;
+			break;
+		case 2:
+			mes "- Because you decided to ignore him, -";
+			mes "- you are no longer able to hear him. -";
+			close;
+			break;
+	}
+	end;
+	
+
+LV4_39:
+LV4_49:
+	mes "[Hein]";
+	mes "I feel something different from you.";
+	mes "Did you come here with a purpose?";
+	mes "I am envious of you...";
+	close;
+
+
+LV4_41:
+	mes "[Hein]";
+	mes "Ah...are you going to ask me something?";
+	mes "However, I am not accepting money";
+	mes "from my client. Because.";
+	mes "It brings me bad luck to...";
+	next;
+	set @dap3$, "to forge a good weapon.";
+	input @answer3$;
+	if(@answer3$ == @dap3$) goto LV4_41_CORRECT;
+	mes "[Hein]";
+	mes "...? What are you talking about?";
+	mes "What was I going to say?";
+	mes "Arf....my head is hurting...!";
+	close;
+
+LV4_41_CORRECT:
+	mes "[Hein]";
+	mes "That's right! It's bad luck!";
+	mes "Creating weapons is betting! And I am...I am?";
+	mes "Oh right...I forgot that. Yes, I am dead.";
+	mes "Ahahahahaha.";
+	set lv4_weapon, 42;
+	next;
+	mes "[Hein]";
+	mes "Well, I must be a lucky dead man";
+	mes "for remembering my past!";
+	mes "Hahahahaha!";
+	next;
+	mes "[Hein]";
+	mes "Perhaps God wants me to";
+	mes "continue my research...?";
+	mes "wait, let me ask you a favor.";
+	next;
+	mes "[Hein]";
+	mes "Can you bring me some materials";
+	mes "that I need for my research?";
+	mes "If I succeed in the research,";
+	mes "I will give you the result in return.";
+	next;
+	mes "[Hein]";
+	mes "You can take your time to think of my offer.";
+	mes "Please talk to me later.";	
+	close;
+	
+	
+LV4_43:
+	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_43_BASE_MAT;
+	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_43_BASE_MAT;
+	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_43_BASE_MAT;
+	if(countitem($@LV4_Gold) < 20) goto LV4_43_BASE_MAT;
+	
+	mes "[Hein]";
+	mes "Oh, you have brought the materials I asked.";
+	mes "Here's the thing. I cannot remember what I need other than those...";
+	mes "Aww....I need some more time to think of them...";
+	next;
+	mes "[Hein]";
+	mes "Please try to search what I need...if you can.";
+	mes "Of course, it will not be an easy job for you";
+	mes "to do so...but I know you have a body to move with your will...";
+	mes "It is still better than being a ghost like me...";
+	next;
+	mes "[Hein]";
+	mes "Please give me all the materials you have brought.";
+	mes "I will keep them for you.";
+	
+	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
+	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
+	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
+	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
+	delitem $@LV4_Hammer_Of_Blacksmith, 2;
+	delitem $@LV4_Emperium_Anvil, 1;
+	delitem $@LV4_Illusion_Flower, 1;
+	delitem $@LV4_Gold, 20;
+	set lv4_weapon, 44;
+	close;
+
+LV4_42:
+LV4_43_BASE_MAT:
+	switch( lv4_weapon ) {
+		case 42:
+			mes "[Hein]";
+			mes "I will take you speaking to me again";
+			mes "as the approval of my request.";
+			mes "Thank you so much.";
+			next;
+			mes "[Hein]";
+			mes "I need 2 Hammer of Blacksmith,";
+			mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+			mes "Most likely they are the ones I need.";
+			next;
+			mes "[Hein]";
+			mes "And I do need 3 more things...";
+			mes "but I have a hard time remembering what they are.";
+			mes "That means that my memory of the past is not";
+			mes "absolutely back.";
+			next;
+			mes "[Hein]";
+			mes "*sigh*...I am so sorry to ask of you this...";
+			mes "but please search for what those 3 things are.";
+			mes "In the meantime, I will try to remember them.";
+			mes "Thank you.";
+			set lv4_weapon, 43;
+			break;
+		case 43:
+			mes "[Hein]";
+			mes "I need 2 Hammer of Blacksmith,";
+			mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+			mes "Most likely they are the ones I need.";
+			break;
+		}
+		close;
+		
+
+LV4_45:
+LV4_46:
+	if(countitem(LV4_Gem1) < 30) goto LV4_45_NOGEM;
+	if(countitem(LV4_Gem2) < 30) goto LV4_45_NOGEM;
+	if(countitem(LV4_Gem3) < 30) goto LV4_45_NOGEM;
+	mes "[Hein]";
+	mes "...Um? The items that you brought to me seem";
+	mes "to be good materials for my creation...";
+	mes "Give them to me, I shall try first!";
+	next;
+	mes "[Hein]";
+	mes "Oh...I was right! How did you";
+	mes "know these are materials I need?";
+	mes "Great, give me a moment!";
+	next;
+	mes "[Hein]";
+	mes "...Wait, I must test your luck first.";
+	mes "Since I am not sure about the result,";
+	mes "we should trust to luck for the result of my creation.";
+	mes "You must have good luck...";
+	next;
+	mes "[Hein]";
+	mes "We are going to play 'Rock, Paper, Scissors'.";
+	mes "You must win at least 2 out of 3 times.";
+	mes "If you fail, you must leave a large amount";
+	mes "of one material you have brought.";
+	mes "It is for driving away your bad luck.";
+	next;
+	mes "[Hein]";
+	mes "I will give you a piece of paper.";
+	mes "You will write down one among 'Rock, Paper, or Scissors'.";
+	mes "I will do the same at the same time.";
+	mes "We will then compare each other's paper at the end.";
+	next;
+	
+	set @shobu, 0;
+	
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@i == 2) mes "[Hein]";
+		if(@i == 2) mes "Let's play the second one!";
+		if(@i == 3) mes "[Hein]";
+		if(@i == 3) mes "This will be the last one!";
+		if(@i == 3) mes "Let's compare after this.";
+		set @npchand[@i], rand(1, 3);
+		switch( select( "Scissors", "Rock", "Paper" ) ) {
+			case 1:
+				set @myhand[@i], 1;
+				if(@npchand[@i] == 3) set @shobu, @shobu + 1;
+				break;
+			case 2:
+				set @myhand[@i], 2;
+				if(@npchand[@i] == 1) set @shobu, @shobu + 1;
+				break;
+			case 3:
+				set @myhand[@i], 3;
+				if(@npchand[@i] == 2) set @shobu, @shobu + 1;
+				break;
+		}
+	}
+		
+	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
+	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
+	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
+
+	if(@shobu > 1) goto LV4_45_WIN;
+
+	switch ( rand(1 ,3) ) {
+		case 1:
+			delitem LV4_Gem1, 30;
+			break;
+		case 2:
+			delitem LV4_Gem2, 30;
+			break;
+		case 3:
+			delitem LV4_Gem3, 30;
+			break;
+	}
+	goto LV4_45_RESULT;
+		
+LV4_45_WIN:
+	delitem LV4_Gem1, 30;
+	delitem LV4_Gem2, 30;
+	delitem LV4_Gem3, 30;
+	set lv4_weapon, lv4_weapon + 2;
+	goto LV4_45_RESULT;
+	
+LV4_45_RESULT:
+	mes "[Hein]";
+	mes "Okay...I played in the order of...";
+	
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@npchand[@i] == 1) mes "Scissors";
+		if(@npchand[@i] == 2) mes "Rock";
+		if(@npchand[@i] == 3) mes "Paper";
+	}
+
+	next;
+	mes "[Hein]";
+	mes "You did in the order of...";
+
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@myhand[@i] == 1) mes "Scissors";
+		if(@myhand[@i] == 2) mes "Rock";
+		if(@myhand[@i] == 3) mes "Paper";
+	}
+
+	next;
+
+	if(@shobu > 1) goto LV4_45_SAY_WIN;
+	
+	mes "[Hein]";
+	mes "Well well well...you lost the game.";
+	mes "Ah~ you were close though...";
+	mes "We must drive away bad luck.";
+	next;
+	mes "[Hein]";
+	mes "Okay, I will wait here,";
+	mes "go bring me the materials again...";
+	close;
+			
+LV4_45_SAY_WIN:
+	mes "[Hein]";
+	mes "Let's see...";
+	mes "You won total " + @shobu + " times.";
+	mes "Ah~ you must be really good at game!";
+	mes "Yes, your luck is at its highest!";
+	next;
+	mes "[Hein]";
+	mes "I am going to keep my promise.";
+	mes "But I need some time to prepare.";
+	mes "Give me the materials now and I will talk to you later.";
+	close;
+
+LV4_44:
+LV4_45_NOGEM:
+		mes "[Hein]";
+		mes "I am sorry but please give me more time to remember the materials...";
+		mes "I had really good memory when I was alive...";
+		mes "So I could even recite them right after I woke up...";
+	close;
+
+
+LV4_47:
+LV4_48:
+	mes "[Hein]";
+	mes "Oh, yes. I just finished the work.";
+	mes "Do you want to know the result? Okay...";
+	mes "Breathe deeply...before we check.";
+	mes "The result is...";
+	next;
+	mes "[Hein]";
+	mes "a Big Success! This is great!";
+	mes "I have not labored in vain!";
+	mes "Let's see the weapon...it is...";
+	
+	switch( rand(1, 2) ) {
+		case 1:
+			if(lv4_weapon == 47) mes "Edge.";
+			if(lv4_weapon == 47) getitem 1132 ,1; // 1132,Edge
+			if(lv4_weapon == 48) mes "Dragon Slayer.";
+			if(lv4_weapon == 48) getitem 1166, 1; // 1166,Dragon_Slayer
+			break;
+		case 2:
+			if(lv4_weapon == 47) mes "Excalibur.";
+			if(lv4_weapon == 47) getitem 1137, 1; // 1137,Excalibur
+			if(lv4_weapon == 48) mes "Schweizersabel.";
+			if(lv4_weapon == 48) getitem 1167, 1; // 1167,Schweizersabel
+	}
+
+	set lv4_weapon, 0;	
+	next;
+	mes "[Hein]";
+	mes "Well...this is it.";
+	mes "I feel my memory is fading again...";
+	mes "Hahaha...being dead is not good.";
+	next;
+	mes "[Hein]";
+	mes "Thank you for your help. And if you have";
+	mes "a chance to visit Nifflheim again,";
+	mes "please come back and retrieve my memory once more...";
+	next;
+	mes "[Hein]";
+	mes "Aaahhhh! I don't think I will";
+	mes "remember you next time...";
+	mes "Take care, adventurer...father, I made it...";
+	close;
+	
+	
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+	mes "[Hein]";
+	mes "Hmm. There seems to be a bit of problem.";
+	set lv4_weapon, 0;
+	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+	close;
+}
+
+//--------------------------------------------------
+// Waltboughst, creates Byeollungum, Exorciser(excercise), Combat Knife and Grand Cross
+//--------------------------------------------------
+
+niflheim.gat,331,72,3	script	Waltboughst	795,{
+	set @NowWeight, MaxWeight - Weight;
+	if (@NowWeight >= 3000) goto LV4_NOT_OW;
+	mes "- Wait a minute! -";
+	mes "- You are currently overweight. -";
+	mes "- Please lose some weight -";
+	mes "- and try again. -";
+	close;
+
+	
+LV4_NOT_OW:
+	if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
+	mes "[Waltboughst]";
+	mes "...Hah!";
+	close;
+	
+
+LV4_LEVEL_PASS:
+	if(lv4_weapon == 0) goto LV4_0;
+	if(lv4_weapon < 49) goto LV4_48;
+	if(lv4_weapon == 49) goto LV4_49;
+	if(lv4_weapon == 50) goto LV4_50;
+	if(lv4_weapon == 51) goto LV4_51;
+	if(lv4_weapon == 52) goto LV4_52;
+	if(lv4_weapon == 53) goto LV4_53;
+	if(lv4_weapon == 54) goto LV4_54;
+	if(lv4_weapon == 55) goto LV4_55;
+	if(lv4_weapon == 56) goto LV4_56;
+	if(lv4_weapon == 57) goto LV4_57;
+	if(lv4_weapon > 57) goto LV4_58;
+	end; // shouldn't be here
+
+
+LV4_0:
+LV4_49:
+	mes "[Waltboughst]";
+	mes "Ah~ it is so frustrating to be a dead man.";
+	mes "Because I cannot do anything without a body.";
+	mes "You know what my father used to say?";
+	mes "Trying best does not always";
+	mes "result in a success.";
+	mes "However...errr?";
+	next;
+	
+	if(lv4_weapon == 0) goto LV4_0_ASK;
+	
+	mes "[Waltboughst]";
+	mes "...What was my father's";
+	mes "quote? Why am I stuck in";
+	mes "here after death? Hey, you";
+	mes "Do you know anything about";
+	mes "Waltboughst when he was";
+	mes "alive?";
+	close;
+	
+LV4_0_ASK:
+	switch( select( "Show interest.", "Igonore him." ) ) {
+		case 1:
+			mes "[Waltboughst]";
+			mes "...what did he say afterwards?";
+			mes "Speaking of which, why am I";
+			mes "so anxious to do something?";
+			mes "I am a dead man, and a dead man is not supposed to do anything!";
+			mes "Hey, do you know anything about me when I was alive?";
+			set lv4_weapon, 49;
+			close;
+			break;
+		case 2:
+			mes "- Because you decided to ignore him, -";
+			mes "- you are no longer able to hear him. -";
+			close;
+			break;
+	}
+	end;
+	
+
+LV4_48:
+LV4_58:
+	mes "[Waltboughst]";
+	mes "I feel something different about you.";
+	mes "Did you come here with a purpose?";
+	mes "I am envious of you...";
+	close;
+
+
+LV4_50:
+	mes "[Waltboughst]";
+	mes "Ah~ it is so frustrating to be a dead man.";
+	mes "Because I cannot do anything without a body.";
+	mes "You know what my father used to say?";
+	mes "Trying best does not always";
+	mes "result in a success.";
+	mes "However...";
+	next;
+	set @dap4$, "All the successful men in the history tried their best!";
+	input @answer4$;
+	if(@answer4$ == @dap4$) goto LV4_50_CORRECT;
+	mes "[Waltboughst]";
+	mes "...What? What did you just say?";
+	mes "Hmmm.";
+	close;
+
+LV4_50_CORRECT:
+	mes "[Waltboughst]";
+	mes "Yes! That was it!";
+	mes "Since I am dead, I cannot even try!";
+	mes "Eh...?! Ah!";
+	mes "I see, I see now.";
+	mes "I must have been killed by some kind of accident!";
+	set lv4_weapon, 51;
+	next;
+	mes "[Waltboughst]";
+	mes "Okay, I am not going to end this way.";
+	mes "Hey, you were meant to meet me!";
+	mes "You got to do me a favor, now!";
+	next;
+	mes "[Waltboughst]";
+	mes "I will give you the result of my research";
+	mes "in return! All I want is to compete my research,";
+	mes "not the result.";
+	next;
+	mes "[Waltboughst]";
+	mes "Well, give me some time to remember";
+	mes "what I need for my research.";
+	mes "I will talk to you later.";
+	close;
+	
+	
+LV4_52:
+	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_52_BASE_MAT;
+	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_52_BASE_MAT;
+	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_52_BASE_MAT;
+	if(countitem($@LV4_Gold) < 20) goto LV4_52_BASE_MAT;
+	
+	mes "[Waltboughst]";
+	mes "Oh...you brought everything I need!";
+	mes "You were quick this time...I am still having";
+	mes "a hard time remembering what I need other than those.";
+	mes "This is not good, this is not good at all.";
+	next;
+	mes "[Waltboughst]";
+	mes "Anyways, I will keep those materials for you.";
+	mes "And give me some more times to";
+	mes "remember what I need...arph!";
+	
+	if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
+	if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
+	if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
+	if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
+	delitem $@LV4_Hammer_Of_Blacksmith, 2;
+	delitem $@LV4_Emperium_Anvil, 1;
+	delitem $@LV4_Illusion_Flower, 1;
+	delitem $@LV4_Gold, 20;
+	set lv4_weapon, 53;
+	close;
+
+LV4_51:
+LV4_52_BASE_MAT:
+	switch( lv4_weapon ) {
+		case 51:
+			mes "[Waltboughst]";
+			mes "Umm, you came back so early.";
+			mes "I just remembered the materials.";
+			next;
+			mes "[Waltboughst]";
+			mes "I need 2 Hammer of Blacksmith,";
+			mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+			next;
+			mes "[Waltboughst]";
+			mes "I do need some other items...but I need some time";
+			mes "to remember those. Oh well,";
+			mes "we have enough time, so let me think of them.";
+			set lv4_weapon, 52;
+			break;
+		case 52:
+			mes "[Waltboughst]";
+			mes "I need 2 Hammer of Blacksmith,";
+			mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+			mes "Most likey they will be the ones I need...";
+			break;
+		}
+		close;
+		
+
+LV4_54:
+LV4_55:
+	if(countitem(LV4_Gem1) < 30) goto LV4_54_NOGEM;
+	if(countitem(LV4_Gem2) < 30) goto LV4_54_NOGEM;
+	if(countitem(LV4_Gem3) < 30) goto LV4_54_NOGEM;
+	mes "[Waltboughst]";
+	mes "...Um? The items that you brought to me seem";
+	mes "to be good materials for my creation...";
+	mes "Give them to me, I shall try first!";
+	next;
+	mes "[Waltboughst]";
+	mes "Oh...I was right! How did you";
+	mes "know these are materials I need?";
+	mes "Great, give me a moment!";
+	next;
+	mes "[Waltboughst]";
+	mes "...wait, I must test your luck first.";
+	mes "Since I am not sure about the result,";
+	mes "we should trust to luck for the result of my creation.";
+	mes "You must have good luck...";
+	next;
+	mes "[Waltboughst]";
+	mes "We are going to play 'Rock, Paper, Scissors'.";
+	mes "You must win at least 2 out of 3 times.";
+	mes "If you fail, you must leave a large amount";
+	mes "of one material you have brought.";
+	mes "It is for driving away your bad luck.";
+	next;
+	mes "[Waltboughst]";
+	mes "I will give you a piece of paper.";
+	mes "You will write down one among 'Rock, Paper, or Scissors'.";
+	mes "I will do the same at the same time.";
+	mes "We will then compare each other's paper at the end.";
+	next;
+	
+	set @shobu, 0;
+	
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@i == 2) mes "[Waltboughst]";
+		if(@i == 2) mes "Let's play the second one!";
+		if(@i == 3) mes "[Waltboughst]";
+		if(@i == 3) mes "This will be the last one!";
+		if(@i == 3) mes "Let's compare after this.";
+		set @npchand[@i], rand(1, 3);
+		switch( select( "Scissors", "Rock", "Paper" ) ) {
+			case 1:
+				set @myhand[@i], 1;
+				if(@npchand[@i] == 3) set @shobu, @shobu + 1;
+				break;
+			case 2:
+				set @myhand[@i], 2;
+				if(@npchand[@i] == 1) set @shobu, @shobu + 1;
+				break;
+			case 3:
+				set @myhand[@i], 3;
+				if(@npchand[@i] == 2) set @shobu, @shobu + 1;
+				break;
+		}
+	}
+		
+	if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
+	if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
+	if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
+
+	if(@shobu > 1) goto LV4_54_WIN;
+
+	switch ( rand(1 ,3) ) {
+		case 1:
+			delitem LV4_Gem1, 30;
+			break;
+		case 2:
+			delitem LV4_Gem2, 30;
+			break;
+		case 3:
+			delitem LV4_Gem3, 30;
+			break;
+	}
+	goto LV4_54_RESULT;
+		
+LV4_54_WIN:
+	delitem LV4_Gem1, 30;
+	delitem LV4_Gem2, 30;
+	delitem LV4_Gem3, 30;
+	set lv4_weapon, lv4_weapon + 2;
+	goto LV4_54_RESULT;
+	
+LV4_54_RESULT:
+	mes "[Waltboughst]";
+	mes "Okay...I played in the order of...";
+	
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@npchand[@i] == 1) mes "Scissors";
+		if(@npchand[@i] == 2) mes "Rock";
+		if(@npchand[@i] == 3) mes "Paper";
+	}
+
+	next;
+	mes "[Waltboughst]";
+	mes "You did in the order of...";
+
+	for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+		if(@myhand[@i] == 1) mes "Scissors";
+		if(@myhand[@i] == 2) mes "Rock";
+		if(@myhand[@i] == 3) mes "Paper";
+	}
+
+	next;
+
+	if(@shobu > 1) goto LV4_54_SAY_WIN;
+	
+	mes "[Waltboughst]";
+	mes "Well well well...you lost the game.";
+	mes "Ah~ you were close though...";
+	mes "We must drive away bad luck.";
+	next;
+	mes "[Waltboughst]";
+	mes "Okay, I will wait here,";
+	mes "go bring me the materials again...";
+	close;
+			
+LV4_54_SAY_WIN:
+	mes "[Waltboughst]";
+	mes "Let's see...";
+	mes "You won total " + @shobu + " times.";
+	mes "Ah~ you must be really good at game!";
+	mes "Yes, your luck is at its highest!";
+	next;
+	mes "[Waltboughst]";
+	mes "I am going to keep my promise.";
+	mes "But I need some time to prepare.";
+	mes "Give me the materials now and I will talk to you later.";
+	close;
+
+LV4_53:
+LV4_54_NOGEM:
+	mes "[Waltboughst]";
+	mes "Arph...I haven't remembered them yet.";
+	mes "Awww....this is a problem.";
+	mes "I must think of them as soon as possible...";
+	close;
+
+
+LV4_56:
+LV4_57:
+	mes "[Waltboughst]";
+	mes "Hehe, I made something with the materials";
+	mes "in this short time! Wanna see?";
+	mes "Aren't you wondering about the result?";
+	mes "Hmmm....let's see...";
+	next;
+	mes "[Waltboughst]";
+	mes "Waltboughst never fails!";
+	mes "Besides you had good luck,";
+	mes "so it resulted in a perfect success!";
+	mes "You got a nice weapon here, it is...";
+	
+	switch( rand(1, 2) ) {
+		case 1:
+			if(lv4_weapon == 56) mes "Byeollungum!";
+			if(lv4_weapon == 56) getitem 1140 ,1; // 1140,Byeollungum
+			if(lv4_weapon == 57) mes "Exorciser!";
+			if(lv4_weapon == 57) getitem 1233, 1; // 1233,Exercise
+			break;
+		case 2:
+			if(lv4_weapon == 56) mes "Combat Knife!";
+			if(lv4_weapon == 56) getitem 1228, 1; // 1228,Combat_Knife
+			if(lv4_weapon == 57) mes "Grand Cross!!";
+			if(lv4_weapon == 57) getitem 1528, 1; // 1528,Grand_Cross
+	}
+	
+	set lv4_weapon, 0;
+	next;
+	mes "[Waltboughst]";
+	mes "I am genius! Hahahaha!";
+	mes "I made it when my brothers could not!";
+	mes "Muhahahahahaha!";
+	mes "Eh...err? Arrr...phhh?";
+	next;
+	mes "[Waltboughst]";
+	mes "Damn...I must try too hard.";
+	mes "My memory is fading again...";
+	mes "Oh well, somehow I proved";
+	mes "that I am a genius even after I died.";
+	next;
+	mes "[Waltboughst]";
+	mes "If you want me to display my genius again,";
+	mes "come retrieve my memory again.";
+	mes "And thank you!";
+	next;
+	mes "[Waltboughst]";
+	mes "Ah...my memory's dying again...";
+	mes "Farewell~ I don't think I will remember you";
+	mes "but I hope you will remember me as Waltboughst";
+	mes "the genius in the age!";
+	close;
+	
+	
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+	mes "[Waltboughst]";
+	mes "Hmm. There seems to be a bit of problem.";
+	set lv4_weapon, 0;
+	logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+	close;
+}