* Updated Minstrel and Shadow Chaser job quests to their latest versions.

* Fixed more Izlude RE coordinates (bugreport:6285).
* Disabled "Fish Tails" NPC in El Dicastes quests until Izlude RE coordinates are found; also, fixed a small mistake.

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

1 files changed, 1643 insertions, 1486 deletions

diff --git a/npc/re/jobs/3-2/shadow_chaser.txt b/npc/re/jobs/3-2/shadow_chaser.txt
index e04899d9c..231e52835 100644
--- a/npc/re/jobs/3-2/shadow_chaser.txt
+++ b/npc/re/jobs/3-2/shadow_chaser.txt
@@ -1,72 +1,199 @@
 //===== rAthena Script ======================================= 
 //= Shadow Chaser Job Quest
 //===== By: ================================================== 
-//= ultragunner
-//= Credits: Oshinoke
+//= Muad_Dib
 //===== Current Version: ===================================== 
-//= 1.2
+//= 1.3
 //===== Compatible With: ===================================== 
 //= rAthena SVN
 //===== Description: ========================================= 
+//= [Official Conversion]
 //= Job change Quest from Rogue / Stalker -> Shadow Chaser.
-//= Based on Official pRO server
 //===== Additional Comments: ================================= 
-//= 1.0 First Version.
+//= 1.0 First Version. [ultragunner, Oshinoke]
 //= 1.1 Standardized. [Euphy]
 //= 1.2 Updated dialogue. [Joseph]
+//= 1.3 Updated to official script. [Euphy]
 //============================================================
 
-morocc,156,70,3	script	Girl#H-1	93,{
+morocc,156,70,3	script	Girl#sc00	93,3,3,{
 	mes "[Girl]";
-	if (Class == Job_Rogue || Class == Job_Stalker || Class == Job_Baby_Rogue) {
-		if (BaseLevel == 99 && JobLevel > 49) {
-			if (job_sha == 0) {
-				mes "Hey! Stop!";
-				mes "Are you interested in hearing a funny story?";
-				next;
-				select("What story?");
-				mes "[Girl]";
-				mes "Have you been to the guild recently?";
-				mes "Some interesting things have happened lately.";
-				mes "Maybe new guests...";
-				next;
-				mes "[Girl]";
-				mes "I heard it has to do with something called a Shadow Chaser.";
-				mes "You should go and check it out.";
-				next;
-				mes "[Girl]";
-				mes "Everytime they visit us, they are on new missions.";
-				mes "What missions are they doing I wonder?";
-				set job_sha,1;
-			} else if (job_sha == 1) {
-				mes "If you have any interest... just go! Do you know where the guild is?";
-				next;
-				mes "[Girl]";
-				mes "It is in a fortress under Pharos lighthouse.";
-				mes "Sigh....";
-				mes "You must visit there!";
-			} else if (job_sha > 1 && job_sha < 28) {
-				mes "Wow, you look busy.";
-				mes "Have you heard that there are visitors?";
-				mes "They're on a treasure hunt!";
-				next;
-				mes "[Girl]";
-				mes "It must be fun.";
-				mes "I wanna try!";
+	if (BaseJob == Job_Rogue) {
+		if (job_sha == 0) {
+			if (BaseLevel < 99 || JobLevel < 50) {
+				mes "You're not ready.";
+				close;
 			}
+			mes "Hey? Stop!";
+			mes "Aren't you interested in hearing a funny story?";
+			next;
+			select("What story?");
+			mes "[Girl]";
+			mes "Have you been to the guild recently?";
+			mes "Some interesting things have happened lately.";
+			mes "Maybe new guests...";
+			next;
+			mes "[Girl]";
+			mes "I heard it has to do with something called a Shadow Chaser.";
+			mes "You should go and check it out.";
+			next;
+			mes "[Girl]";
+			mes "Every time they visit us, they are on new missions.";
+			mes "What missions are they doing I wonder?";
+			set job_sha,1;
+			close;
+		} else if (job_sha == 1) {
+			mes "If you have any interest... just go!";
+			mes "Do you know where the guild is?";
+			next;
+			mes "[Girl]";
+			mes "It is in a fortress under Pharos lighthouse.";
+			mes "Sigh....";
+			mes "You must visit there!";
 			close;
 		} else {
-			mes "You're not ready.";
+			mes "Wow, you look busy.";
+			mes "Have you heard that there are visiters?";
+			mes "They're on a treasure hunt!";
+			next;
+			mes "[Girl]";
+			mes "It must be fun.";
+			mes "I wanna try!";
 			close;
 		}
 	}
-	mes "Eh...";
+	mes "Eh?";
 	mes "I don't have anything for you...";
 	close;
+OnTouch:
+	if (BaseJob == Job_Rogue && BaseLevel > 98 && JobLevel > 49 && job_sha == 0) {
+		mes "[Girl]";
+		mes "Hey? Stop!";
+		mes "Aren't you interested in hearing a funny story?";
+		close;
+	}
+	end;
 }
 
-in_rogue,378,103,3	script	Scary Man#H-10	810,{
-	if (job_sha == 1) {
+in_rogue,376,100,5	script	Guild Member#sc01	828,{
+	if (BaseJob == Job_Rogue) {
+		if (job_sha < 2) {
+			set @job_sha,0;
+		OnDialogue:
+			mes "[Vin]";
+			mes "Ah? What's this?";
+			mes "Lotte, you know what this means?";
+			next;
+			mes "[Lotte]";
+			mes "Hmm '3847147298' this is the only thing I've used on...";
+			mes "Then, why'd they use numbers to name the villages?";
+			next;
+			mes "[Lotte]";
+			mes "Vin! This is crap!";
+			next;
+			mes "[Vin]";
+			mes "What?";
+			next;
+			if (BaseLevel == 99) {
+				mes "[Scary man]";
+				mes "Hey there?";
+				next;
+				switch(select("Me?:Sorry, I am busy...")) {
+				case 1:
+					mes "[Scary man]";
+					mes "Yes! You there!";
+					mes "Let me introduce myself to you.";
+					mes "My name is Urupa.";
+					mes "If you are interested, could you come over here?";
+					if (@job_sha == 1) {
+						set job_sha,1;
+						set @job_sha,0;
+					}
+					close;
+				case 2:
+					mes "[Scary man]";
+					mes "What? You're just going to give up like that?";
+					mes "So disappointing...";
+					close;
+				}
+			}
+			mes "[Scary man]";
+			mes "You are supposed to figure this one out!";
+			mes "But you are still so... weak.";
+			close;
+		} else {
+			mes "[Vin]";
+			mes "Yes...";
+			mes "Sooner or later I'll solve it myself if I dare to get the map...!";
+			close;
+		}
+	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
+		mes "[Vin]";
+		mes "Huh! This is a Shadow Chaser!";
+		mes "How unbelievable!";
+		mes "But it seems familiar doesn't it?";
+		next;
+		mes "[Vin]";
+		mes "Hmm......";
+		mes "..........";
+		mes "Oh my! I can't remember...!";
+		close;
+	}
+	mes "[Vin]";
+	mes "Ah? Who's there?";
+	mes "We are flooded with guests today...";
+	close;
+}
+
+in_rogue,379,99,1	script	Guild Member#sc02	747,{
+	if (BaseJob == Job_Rogue) {
+		if (job_sha < 2) {
+			set @job_sha,1;
+			doevent "Guild Member#sc01::OnDialogue";
+			end;
+		}
+		mes "[Lotte]";
+		mes "What?";
+		mes "Damn...";
+		next;
+		mes "[Lotte]";
+		mes "I just hate numbers!";
+		close;
+	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
+		mes "[Lotte]";
+		mes "Wow!";
+		mes "You are the one!";
+		mes "Just extraordinary smart and emotionally advanced...";
+		next;
+		mes "[Lotte]";
+		mes "SHADOW CHASER!";
+		mes "Wow when could I become one.";
+		close;
+	}
+	mes "[Lotte]";
+	mes "I don't need anything.";
+	close;
+}
+
+in_rogue,379,101,3	script	Scary Man#sc03	810,{
+	if (job_sha == 0) {
+		if (BaseJob == Job_Rogue && BaseLevel > 98 && JobLevel > 49) {
+			mes "[Scary man]";
+			mes "Oh you are so talented?";
+			mes "Now I have one interesting quetion! Do you want it solved?";
+			next;
+			mes "[Urupa]";
+			mes "My name is Urupa.";
+			mes "If you have anything interesting just challenge it.";
+			set job_sha,1;
+			close;
+		}
+		mes "[Scary man]";
+		mes "What's your business?";
+		mes "I don't have anything to do with you.";
+		mes "I don't care for people like you. I just deal with the extraordinary.";
+		close;
+	} else if (job_sha == 1) {
 		mes "[Urupa]";
 		mes "We give a quiz and nobody has yet to solve it.";
 		mes "You want it to be solved?";
@@ -87,84 +214,78 @@ in_rogue,378,103,3	script	Scary Man#H-10	810,{
 		mes "Now here's what needs to be to solved.";
 		mes "Decipher the code and go where it tells you...";
 		next;
-		mes "[Urupa]";
-		mes "Here we go!";
-		next;
 		callsub L_Code,2;
 		next;
-		set job_sha,2;
-		setquest 7160;
 		mes "[Urupa]";
 		mes "So write this down!";
 		mes "I expected that you would take this adventure!";
+		set job_sha,2;
+		setquest 7160;
 		close;
-	} else if (job_sha > 1 && job_sha < 3) {
+	} else if (job_sha == 2) {
 		mes "[Urupa]";
 		mes "You want one more explanation?";
 		mes "Or do you just want the code?";
 		next;
 		switch(select("More explanation.:Get the code.")) {
-			case 1:
-				callsub L_Code,1;
-				mes "[Urupa]";
-				mes "Now it's up to you!";
-				mes "So go! Go!";
-				close;
-			case 2:
-				mes "[Urupa]";
-				mes "Let me show you the code again...";
-				next;
-				mes "[Urupa]";
-				mes "Here we go!";
-				next;
-				callsub L_Code,2;
-				close;
+		case 1:
+			callsub L_Code,1;
+			mes "[Urupa]";
+			mes "Now it's up to you!";
+			mes "So go! Go!";
+			close;
+		case 2:
+			mes "[Urupa]";
+			mes "Let me show you the code again...";
+			next;
+			callsub L_Code,2;
+			close;
 		}
-	} else if (job_sha > 2 && job_sha < 28) {
+	} else if (job_sha > 2 && job_sha < 31) {
 		mes "[Urupa]";
 		mes "Ok, have you solved it yet?";
 		mes "Good luck!";
 		close;
-	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
+	} else if (job_sha == 31) {
 		mes "[Urupa]";
-		mes "Nothing special?";
-		mes "As you see... I am ok here!";
+		mes "You have just become a Shadow Chaser.";
+		mes "The quizzes are for collecting the right people...";
 		close;
 	}
-	mes "[Scary man]";
-	mes "What's your business?";
-	mes "I don't have anything to do with you.";
-	mes "I don't care for people like you.";
-	mes "I just deal with the extraordinary.";
+	mes "[Urupa]";
+	mes "Nothing special?";
+	mes "As you see... I am ok here!";
 	close;
-
 L_Code:
-	if (getarg(0)==1) {
+	if (getarg(0) == 1) {
 		mes "[Urupa]";
 		mes "3511543433";
 		mes "This means PAYON.";
 		next;
 		mes "[Urupa]";
 		mes "The numbers have to be paired.";
-		mes "3511543433";
-		mes "35 11 54 34 33 breaks down into 5 pairs!";
+		mes "3511543433!";
+		mes "35 11 54 34 33 break down into 5 pairs!";
 		next;
 		mes "[Urupa]";
-		mes "So the pairs mean:";
-		mes "35-P, 11-A,"; 
-		mes "54-Y, 34-O, 33-N.";
+		mes "So the pairs mean.";
+		mes "35 - P, 11 - A,";
+		mes "54 - Y, 34 - O, 33 - N.";
 		next;
 		mes "[Urupa]";
 		mes "Here are the numbers all in a row.";
 		mes "33, 34, 35!";
-		mes "N, O, P?";
+		mes "N , O , P ?";
 		next;
 	} else {
-		mes " ";
-		mes "^aaaaff43231114345243^000000";
-		mes "^aaaaff11441531241542^000000";
-		mes "^aaaaff2433^000000";
-		mes "^aaaaff3542343344154211^000000";
+		mes "Here we go!";
+		next;
+		mes "^4d4dff";
+		mes "43231114345243";
+		mes "11441531241542";
+		mes "2433";
+		mes "3542343344154211";
+		mes "^000000";
 		next;
 		mes "[Urupa]";
 		mes "Could you do that?";
@@ -173,123 +294,7 @@ L_Code:
 	return;
 }
 
-function	script	sc_gldmes	{
-	if (getarg(0)==1) {
-		mes "[Vin]";
-		mes "Ah? What's this?";
-		mes "Lotte, you know what this means?";
-		next;
-		mes "[Lotte]";
-		mes "Hmm '3847147298' this is the only thing I've used on...";
-		mes "Then, why'd they use numbers to name the villages?";
-		next;
-		mes "[Lotte]";
-		mes "Vin! This is crap!";
-		next;
-		mes "[Vin]";
-		mes "What?";
-		next;
-		mes "[Scary man]";
-		mes "Hey there!?";
-		next;
-		switch(select("Yes? Me?:Sorry, I am busy...")) {
-			case 1:
-				mes "[Scary man]";
-				mes "Yes! You there!";
-				mes "Let me introduce myself to you.";
-				mes "My name is Urupa.";
-				mes "If you are interested, could you come over here?";
-				close;
-			case 2:
-				mes "[Scary man]";
-				mes "What? You're just going to give up like that?";
-				mes "So disappointing...";
-				close;
-		}
-	} else {
-		mes "[Vin]";
-		mes "Ah? What's this?";
-		next;
-		mes "[Lotte]";
-		mes "Hmm '3847147298' this is the only";
-		mes "thing I've used on...";
-		mes "Then, why'd they use numbers to";
-		mes "name the villages?";
-		next;
-		mes "[Lotte]";
-		mes "Vin! This is crap!";
-		next;
-		mes "[Vin]";
-		mes "What?";
-		next;
-		mes "[Scary man]";
-		mes "You are supposed to figure this one out!";
-		mes "But you are still so... weak.";
-		close;
-	}
-}
-
-in_rogue,375,102,5	script	Guild Member#H-11	828,{
-	if (Class == Job_Rogue || Class == Job_Stalker || Class == Job_Baby_Rogue) {
-		if (job_sha == 1) callfunc "sc_gldmes",1;
-		else if (job_sha > 1) && (job_sha < 28) {
-			mes "[Vin]";
-			mes "Yes...";
-			mes "Sooner or later I'll solve it";
-			mes "myself if I dare to get the";
-			mes "map...!";
-			close;
-		}
-		else callfunc "sc_gldmes",2;
-	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
-		mes "[Vin]";
-		mes "Huh! This is a Shadow Chaser!";
-		mes "How unbelievable!";
-		mes "But it seems familiar, doesn't it?";
-		next;
-		mes "[Vin]";
-		mes "Hmm......";
-		mes "..........";
-		mes "Oh my! I can't remember...!";
-		close;
-	}
-	mes "[Vin]";
-	mes "Ah? Who's there?";
-	mes "We are flooded with guests";
-	mes "today...";
-	close;
-}
-
-in_rogue,378,100,2	script	Guild Member#H-12	747,{
-	if (Class == Job_Rogue || Class == Job_Stalker || Class == Job_Baby_Rogue) {
-		if (job_sha == 1) callfunc "sc_gldmes",1;
-		else if (job_sha > 1) && (job_sha < 28) {
-			mes "[Lotte]";
-			mes "What?";
-			mes "Damn...";
-			next;
-			mes "[Lotte]";
-			mes "I just hate numbers!";
-			close;
-		}
-		else callfunc "sc_gldmes",2;
-	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
-		mes "[Lotte]";
-		mes "Wow!";
-		mes "You are the one!";
-		mes "The extraordinarily smart and emotionally advanced...";
-		next;
-		mes "[Lotte]";
-		mes "SHADOW CHASER!";
-		mes "Wow, when could I become one?";
-		close;
-	}
-	mes "[Lotte]";
-	mes "I don't need anything.";
-	close;
-}
-
-s_atelier,65,123,4	script	Manager#H-2	903,{
+s_atelier,65,123,5	script	Manager#sc04_prt	903,{
 	if (job_sha == 2) {
 		mes "[Manager]";
 		mes "Where's Max!?";
@@ -297,18 +302,14 @@ s_atelier,65,123,4	script	Manager#H-2	903,{
 		mes "Hey...";
 		next;
 		switch(select("Show the deciphered code!:...")) {
-			case 1:
-				mes "[Manager]";
-				mes "Wow, you deciphered it?";
-				mes "So, what's the right answer?";
-				next;
-				input .@SCAtelier$;
+		case 1:
+			mes "[Manager]";
+			mes "Wow, you deciphered it?";
+			mes "So, what's the right answer?";
+			next;
+			input .@inputstr$;
+			if (.@inputstr$ == "shadows atelier in prontera" || .@inputstr$ == "SHADOWS ATELIER IN PRONTERA") {
 				mes "[Manager]";
-				if (.@SCAtelier$ != "shadows atelier in prontera") {
-					mes "Remember to put the code exactly as it should be deciphered.";
-					mes "Maybe you should try again...";
-					close;
-				}
 				mes "Good.";
 				mes "You just got it.";
 				mes "Then why have you come over here?";
@@ -316,18 +317,22 @@ s_atelier,65,123,4	script	Manager#H-2	903,{
 				select("The code says here's the one...");
 				mes "[Manager]";
 				mes "So you are the one.";
-				mes "Could you wait for a sec?";
+				mes "Could you wait for a sec'?";
 				set job_sha,3;
 				close;
-			case 2:
-				mes "[Manager]";
-				mes "Only allowed for people";
-				mes "involved....";
-				mes "Could you ask the clerk at the shop?";
-				close;
+			}
+			mes "[Manager]";
+			mes "Remember to put the code exactly as it should be deciphered.";
+			mes "Maybe you should try again...";
+			close;
+		case 2:
+			mes "[Manager]";
+			mes "Only allowed for people involved....";
+			mes "Could you ask the clerk at the shop?";
+			close;
 		}
 	} else if (job_sha == 3) {
-		mes "[Graham]";
+		mes "[Manager]";
 		mes "Now let me introduce myself to you!";
 		mes "I am Graham, the manager of this shadow gallery...";
 		next;
@@ -342,8 +347,7 @@ s_atelier,65,123,4	script	Manager#H-2	903,{
 		mes "Ok.";
 		next;
 		mes "[Graham]";
-		mes "So we've got to know things";
-		mes "like...";
+		mes "So we've got to know things like...";
 		mes "special codes and information where the treasures are.";
 		next;
 		mes "[Graham]";
@@ -365,54 +369,68 @@ s_atelier,65,123,4	script	Manager#H-2	903,{
 		mes "You seem like the right one.";
 		mes "So I will give you the code.";
 		mes "Please find the treasure!";
-		next;	
-		set job_sha,4;
+		next;
 		switch(select("No way!:I'll give it a try!")) {
-			case 1:
-				mes "[Graham]";
-				mes "What the hell?";
-				mes "If you are not going to help then I'll just find someone else.";
-				close;
-			case 2:
-				mes "[Graham]";
-				mes "You are so powerful!";
-				mes "So here...";
-				next;
-				callsub L_Code;
+		case 1:
+			mes "[Graham]";
+			mes "What the hell?";
+			mes "If you are not going to help then I'll just find someone else.";
+			set job_sha,4;
+			close;
+		case 2:
+			mes "[Graham]";
+			mes "You are so powerful!";
+			mes "So here...";
+			next;
+			callsub L_Code,0;
+			close;
 		}
 	} else if (job_sha == 4) {
 		mes "[Graham]";
 		mes "Are you interested in it now?";
 		next;
 		switch(select("Not at all.:Hmm, I'll take it.")) {
-			case 1:
-				mes "[Graham]";
-				mes "Damn it.";
-				close;
-			case 2:
-				mes "[Graham]";
-				mes "You are just so picky...";
-				mes "Here...";
-				next;
-				callsub L_Code;
+		case 1:
+			mes "[Graham]";
+			mes "Damn it.";
+			close;
+		case 2:
+			mes "[Graham]";
+			mes "You are just so picky...";
+			mes "Here...";
+			next;
+			callsub L_Code,0;
+			close;
 		}
-	} else if (job_sha > 4 && job_sha < 8) {
+	} else if (job_sha == 5) {
 		mes "[Graham]";
 		mes "Did you find something?";
 		next;
 		switch(select("I need an explanation.:What's the code again?")) {
-			case 1:
-				mes "[Graham]";
-				mes "You are so powerful!";
-				next;
-				callsub L_Code,1;
-			case 2:
-				mes "[Graham]";
-				mes "I've given you the code.";
-				mes "So crazy...";
-				mes "Don't you have a memo of it?";
-				close;
+		case 1:
+			mes "[Graham]";
+			mes "You are so powerful!";
+			next;
+			callsub L_Code,1;
+			mes "[Graham]";
+			mes "Got it?";
+			close;
+		case 2:
+			mes "[Graham]";
+			mes "I've given you the code.";
+			mes "So crazy...";
+			mes "Don't you have a memo of it?";
+			close;
 		}
+	} else if (job_sha == 6 || job_sha == 7) {
+		mes "[Graham]";
+		mes "Nothing special...?";
+		mes "You've been to places...?";
+		mes "There's definetely something.";
+		next;
+		mes "Graham seems to know something.";
+		mes "I'd better go there again.";
+		close;
 	} else if (job_sha == 8) {
 		mes "[Graham]";
 		mes "So, any improvements?";
@@ -448,14 +466,13 @@ s_atelier,65,123,4	script	Manager#H-2	903,{
 		mes "Find the gallery in Rachel...";
 		mes "Tell 'em that you just came from Graham and ask for the code.";
 		next;
-		erasequest 7165;
-		setquest 7166;
-		set job_sha,9;
 		mes "[Graham]";
 		mes "Ok?";
 		mes "Then go there!";
+		set job_sha,9;
+		changequest 7165,7166;
 		close;
-	} else if (job_sha > 8 && job_sha < 11) {
+	} else if (job_sha == 9) {
 		mes "[Graham]";
 		mes "There're four galleries...";
 		mes "Prontera, Rachel, Juno, and Lighthalzen.";
@@ -487,23 +504,23 @@ s_atelier,65,123,4	script	Manager#H-2	903,{
 		mes "But we are here for very special things.";
 		next;
 		mes "[Graham]";
-		mes "Go to ^aaaaffRachel Gallery^000000 and get the code...";
+		mes "Go to ^4d4dffRachel Gallery^000000 and get the code...";
 		mes "They will support you if you explain everything.";
 		mes "Ok?";
 		close;
-	} else if (job_sha > 10 && job_sha < 27) {
+	} else if (job_sha > 9 && job_sha < 30) {
 		mes "[Graham]";
 		mes "How about everything?";
 		mes "We are dying to know about the key.";
-		mes "So you got support from the other galleries...";
+		mes "So you got support from the other galleries.";
 		close;
-	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser || job_sha == 27) {
+	} else if (job_sha > 29) {
 		mes "[Graham]";
 		mes "Shadow Chaser!!";
 		mes "Ah!";
 		next;
 		mes "[Graham]";
-		mes "It's not intentionally deceiving...";
+		mes "It's not intentionally decieving...";
 		mes "Hahaha!!";
 		next;
 		mes "[Graham]";
@@ -523,23 +540,22 @@ s_atelier,65,123,4	script	Manager#H-2	903,{
 	mes "Only allowed for people involved...";
 	mes "Could you ask the clerk at the shop?";
 	close;
-
 L_Code:
 	mes "-note.";
-	mes "^aaaaff13 15 18 15 3 3 18 21 9 14^000000";
-	mes "key: 0-";
+	mes "^4d4dff 13 15 18 15 3 3 18 21 9 14^000000";
+	mes "key : 0 -";
 	next;
 	select("These are just numbers...");
 	mes "[Graham]";
 	mes "The only difference from the one from the Rogue Guild is that you don't need to match them in pairs.";
 	next;
 	mes "[Graham]";
-	mes "Also here's the keyword.";
-	mes "This case is... 0.";
+	mes "Also here's the keyword...";
+	mes "This case is key 0.";
 	next;
 	mes "[Graham]";
-	mes "Let's see.";
-	mes "13 15 18 15 3 3 18 21 9 14 =";
+	mes "Let's see. For example.";
+	mes "13 15 18 15 3 3 18 21 9 14 = ";
 	mes "M O R O C C R U I N";
 	next;
 	mes "[Graham]";
@@ -549,26 +565,43 @@ L_Code:
 	mes "[Graham]";
 	mes "Do you get it?";
 	mes "But this won't be given with keyword 0. When I give you the keyword you can figure it out for yourself.";
-	if (getarg(0,0)) close;
 	next;
+	if (getarg(0)) return;
 	mes "[Graham]";
-	mes "Now let's think about the mission.";
-	mes "Here's the things we've got.";
+	mes "Now let's move on to the mission.";
+	mes "Here's the cipher...";
 	next;
-	erasequest 7160;
-	setquest 7163;
+	set .@key01, rand(3,5);
+	set .@a, 1 + .@key01;
+	set .@b, 2 + .@key01;
+	set .@d, 4 + .@key01;
+	set .@e, 5 + .@key01;
+	set .@f, 6 + .@key01;
+	set .@h, 8 + .@key01;
+	set .@i, 9 + .@key01;
+	set .@l, 12 + .@key01;
+	set .@n, 14 + .@key01;
+	set .@o, 15 + .@key01;
+	set .@r, 18 + .@key01;
+	set .@s, 19 + .@key01;
+	set .@t, 20 + .@key01;
+	set .@u, 21 + .@key01;
+	mes "^4d4dff" + .@b + " " + .@l + " " + .@u + " " + .@e + " ";
+	mes "" + .@f + " " + .@i + " " + .@r + " " + .@e + " ";
+	mes "" + .@i + " " + .@n + " ";
+	mes "" + .@t + " " + .@u + " " + .@r + " " + .@t + " " + .@l + " " + .@e + " ";
+	mes "" + .@i + " " + .@s + " " + .@l + " " + .@a + " " + .@n + " " + .@d + " ";
+	mes "" + .@t + " " + .@h + " " + .@i + " " + .@r + " " + .@d + " ";
+	mes "" + .@f + " " + .@l + " " + .@o + " " + .@o + " " + .@r + " ";
+	mes "key : " + .@key01 + ".";
 	set job_sha,5;
-	mes "^aaaaff5 15 24 8^000000";
-	mes "^aaaaff9 12 21 8^000000";
-	mes "^aaaaff12 17^000000";
-	mes "^aaaaff23 24 21 23 15 8^000000";
-	mes "^aaaaff12 22 15 4 17 7^000000";
-	mes "^aaaaff23 11 12 21 7^000000";
-	mes "^aaaaff9 15 18 18 21^000000";
-	mes "^aaaaffkey: 3.^000000";
+	erasequest 7160;
+	if (.@key01 == 3) setquest 7161;
+	else if (.@key01 == 4) setquest 7162;
+	else if (.@key01 == 5) setquest 7163;
 	next;
 	mes "[Graham]";
-	mes "You just take it.";
+	mes "Just take it.";
 	mes "I have a bad memory.";
 	mes "You have all the information so you are on your own now.";
 	next;
@@ -580,157 +613,126 @@ L_Code:
 	close;
 }
 
-s_atelier,168,65,5	script	Manager#H-3	923,{
-	if (job_sha == 9) {
+s_atelier,168,65,5	script	Manager#sc08_ra	923,{
+	if (job_sha < 10) {
 		mes "[Manager]";
 		mes "Who are you?";
 		mes "This place isn't for you.";
 		next;
+		if (job_sha < 9) {
+			mes "[Manager]";
+			mes "What are they doing up there?";
+			mes "Bleh...";
+			close;
+		}
 		switch(select("Give me your password!:I was sent by Graham.")) {
-			case 1:
-				mes "[Manager]";
-				mes "You need my password?";
-				mes "How much would you pay me?";
-				next;
-				mes "[Manager]";
-				mes "10 million zeny?";
-				mes "Ok, I'll take that then!";
+		case 1:
+			mes "[Manager]";
+			mes "You need my password?";
+			mes "How much would you pay me?";
+			next;
+			mes "[Manager]";
+			mes "10 million zeny?";
+			mes "Ok I'll take that then!";
+			next;
+			mes "[Manager]";
+			mes "Yeah right!";
+			mes "Who the hell are you?";
+			mes "How dare you just ask for my password?";
+			close;
+		case 2:
+			mes "[Manager]";
+			mes "Graham?";
+			mes "Why?";
+			next;
+			if (countitem(6266) == 0) {
+				mes "You don't seem to have brought it here.";
 				next;
 				mes "[Manager]";
-				mes "Yeah, right!";
-				mes "Who the hell are you?";
-				mes "How dare you just ask for my password?";
+				mes "Are you mute?";
+				mes "I don't know why Graham sent you here.";
+				mes "Just go if you don't have any business here!";
+				close;
+			}
+			mes "[Manager]";
+			mes "So this key was sent by him.";
+			next;
+			select("No, I found it as the clue.");
+			mes "[Manager]";
+			mes "Ah?";
+			mes "So doesn't that mean that one code could be exchanged as a treasure...?";
+			next;
+			select("Maybe.");
+			mes "[Manager]";
+			mes "...........";
+			mes "Hmm....";
+			next;
+			mes "[Manager]";
+			mes "Hmm...";
+			next;
+			mes "- The manager seems -";
+			mes "- to be thinking about -";
+			mes "- something. Then he-";
+			mes "- hands over a paper. -";
+			next;
+			mes "[Manager]";
+			mes "No way.";
+			mes "Here's the clue.";
+			mes "Try to find it.";
+			next;
+			mes "[Manager]";
+			mes "Anyway my name is Paul.";
+			mes "...........";
+			next;
+			mes "[Paul]";
+			mes "Naturally...";
+			mes "I've already solved the clue.";
+			next;
+			mes "- Here's the paper that -";
+			mes "- Paul handed over. -";
+			next;
+			mes "R-E-N-N-N-D";
+			mes "L-N-N-W-W-N-D";
+			next;
+			mes "[Paul]";
+			mes "Isn't it so simple?";
+			mes "What do you think?";
+			mes "RENNND / LNNWWND means one thing.";
+			next;
+			switch(select("I think I got it.:I have no clue.")) {
+			case 1:
+				callsub L_Code,7166;
 				close;
 			case 2:
-				mes "[Manager]";
-				mes "Graham?";
-				mes "Why?";
-				next;
-				mes "[Manager]";
-				mes "So this key was sent by him.";
-				next;
-				select("No, I found it as the clue.");
-				mes "[Manager]";
-				mes "Ah?";
-				mes "So doesn't that mean that one code could be exchanged as a treasure?";
-				next;
-				select("Maybe.");
-				mes "[Manager]";
-				mes "..........";
-				mes "Hmm....";
-				next;
-				mes "[Manager]";
-				mes "Hmm...";
-				next;
-				mes "- The manager seems -";
-				mes "- to be thinking about -";
-				mes "- something. Then he -";
-				mes "- hands over a paper. -";
-				next;
-				mes "[Manager]";
-				mes "No way.";
-				mes "Here's the clue.";
-				mes "Try to find it.";
-				next;
-				mes "[Manager]";
-				mes "Anyway, my name is Paul.";
-				mes "..........";
-				next;
-				mes "[Paul]";
-				mes "Naturally...";
-				mes "I've already solved the clue.";
-				next;
-				mes "- Here's the paper that -";
-				mes "- Paul handed over. -";
-				next;
-				mes "R-E-N-N-N-D";
-				mes "L-N-N-W-W-N-D";
-				next;
 				mes "[Paul]";
-				mes "Isn't it so simple?";
-				mes "What do you think?";
-				mes "RENNND / LNNWWND can mean only one thing.";
-				next;	
-				switch(select("I think I got it.:I have no clue.")) {
-					case 1:
-						erasequest 7166;
-						setquest 7167;
-						set @job_sc_chest2,rand(1,3);
-						goto L_icedun;
-					case 2:
-						erasequest 7166;
-						setquest 7167;
-						set job_sha,10;
-						mes "[Paul]";
-						mes "What? You don't know it?";
-						mes "Then you'd better think about it more.";
-						mes "It's so easy.";
-						close;
-				}
+				mes "What? You don't know it?";
+				mes "Then you'd better think about it more.";
+				mes "It's so easy.";
+				set job_sha,10;
+				changequest 7166,7167;
+				close;
+			}
 		}
 	} else if (job_sha == 10) {
 		mes "[Paul]";
 		mes "So did you get what it means?";
 		next;
-		switch(select("Yes!:No I don't think so.")) {
-			case 1:
-				erasequest 7166;
-				setquest 7167;
-				set @job_sc_chest2,rand(1,3);
-				goto L_icedun;
-			case 2:
-				mes "[Paul]";
-				mes "Is it that hard?";
-				next;
-				select("I can't do it...");
-				mes "[Paul]";
-				mes "No way";
-				mes "Can I give you a hint?";
-				mes "Compass!";
-				close;
-		}
-	}
-L_icedun:
-	if (job_sha < 11) {
-		if (@job_sc_chest2 && @job_sc_chest2 < 4) {
-			mes "[Paul]";
-			mes "Really? Then I don't need to give you the answer.";
-			mes "Could you interpret the meaning of each letter?";
-			next;
-			select("It's kinda the combination of the places.");
-			mes "[Paul]";
-			mes "So?";
-			next;
-			select("E-N means East - North");
+		switch(select("Yes!:No, I don't think so.")) {
+		case 1:
+			callsub L_Code,7167;
+			close;
+		case 2:
 			mes "[Paul]";
-			mes "Ok, enough.";
-			mes "Then go and find out.";
-			next;
-			mes "Memorize this.";
-			mes "You might need it. It could be a clue for you.";
+			mes "Is it that hard?";
 			next;
+			select("I can't do it...");
 			mes "[Paul]";
-			switch(@job_sc_chest2) {
-				case 1:
-					mes "[S E E D]";
-					mes "It's seed.";
-					break;
-				case 2:
-					mes "[F O O T]";
-					mes "It's foot.";
-					break;
-				case 3: 
-					mes "[C O L D]";
-					mes "It's cold.";
-					break;
-			}
-			mes "I don't know what it really means, but it would be helpful to you to figure it out.";
-			set job_sha,11;
-			set job_chest2, @job_sc_chest2;
-			changequest 7167, @job_sc_chest2+7167;
+			mes "No way.";
+			mes "Can I give you a hint?";
+			mes "Compass!";
 			close;
 		}
-	} else if (job_sha > 10 && job_sha < 13) {
+	} else if (job_sha > 10 && job_sha < 14) {
 		mes "[Paul]";
 		mes "I've already given you all the info you need.";
 		next;
@@ -739,16 +741,37 @@ L_icedun:
 		mes "Isn't it enough?";
 		next;
 		mes "[Paul]";
-		mes "As you and Graham mentioned...";
+		mes "As you and Graham mentioned.";
 		mes "Go and find it out.";
 		next;
 		mes "[Paul]";
 		mes "If you find real things like treasure,";
 		mes "come back here.";
 		close;
-	} else if (job_sha == 14) {
+	} else if (job_sha > 13 && job_sha < 17) {
+		mes "[Paul]";
+		mes "You must find the right place.";
+		mes "The word is RENNND";
+		mes "It's refering the cave East - North - North - North from this Rachel.";
+		next;
+		mes "[Paul]";
+		mes "L-N-N-W-W-N-D is also same.";
+		mes "L is for Lighthalzen.";
+		mes "Lighthalzen - North- North - West - West.";
+		mes "That's the ice cave.";
+		next;
+		mes "[Paul]";
+		mes "Is there any improvement!?";
+		next;
+		select("You need to investigate more?");
+		mes "[Paul]";
+		mes "Really? Ok...";
+		mes "No way....";
+		mes "We will expect a good result.";
+		close;
+	} else if (job_sha == 17) {
 		mes "[Paul]";
-		mes "I was dying waiting for you.";
+		mes "I am dying to wait for you.";
 		mes "So what did you find out?";
 		next;
 		select("I found the key.:Hmm...");
@@ -760,7 +783,7 @@ L_icedun:
 		mes "So are you lying to me?";
 		next;
 		mes "[Paul]";
-		mes "I can feel how Graham felt it....";
+		mes "I can feel how Graham felt it...";
 		mes "We don't dare to get that tiny key...";
 		next;
 		mes "[Paul]";
@@ -769,7 +792,7 @@ L_icedun:
 		next;
 		mes "[Paul]";
 		mes "Hey...";
-		mes "if you go to Juno...";
+		mes "If you go to Juno...";
 		mes "There's a gallery...";
 		next;
 		mes "[Paul]";
@@ -781,40 +804,31 @@ L_icedun:
 		mes "Anyway...";
 		mes "So I really like to know the password and the identity of the key...";
 		next;
-		erasequest 7168;
-		erasequest 7169;
-		erasequest 7170;
-		erasequest 7172;
-		setquest 7173;
-		set job_sha,15;
 		mes "[Paul]";
 		mes "If Haled isn't supportive...";
-		mes "Tell him ^aaaaffI know what you did last summer!^000000";
+		mes "Tell him ^4d4dffI know what you did last summer!^000000";
 		mes "You shouldn't be wrong...!?";
+		set job_sha,18;
+		changequest 7172,7173;
 		close;
-	} else if (job_sha > 14 && job_sha < 18) {
+	} else if (job_sha == 18) {
 		mes "[Paul]";
 		mes "You could ask him to get the key...";
 		mes "He will help you if you tell him something...";
 		next;
 		mes "[Paul]";
 		mes "If Haled isn't supportive...";
-		mes "Tell him ^aaaaffI know what you did last summer!^000000";
+		mes "Tell him ^4d4dffI know what you did last summer!^000000";
 		close;
-	} else if (job_sha > 16 && job_sha < 27) {
+	} else if (job_sha > 18 && job_sha < 30) {
 		mes "[Paul]";
 		mes "So you are still looking for the treasure... right?";
 		mes "I would look for it...";
 		close;
-	} else if (job_sha == 27) {
-		// Custom Translation
-		mes "[Paul]";
-		mes "Hohohohehehehahaha.";
-		mes "Ouch! my stomach hurts.";
-		next;
+	} else if (job_sha == 30) {
 		mes "[Paul]";
 		mes "Now I almost guessed what would happen later...";
-		mes "It can't happen!";
+		mes "It can't have happened!";
 		next;
 		mes "[Paul]";
 		mes "Are you shocked?";
@@ -822,29 +836,62 @@ L_icedun:
 		mes "You could get a good person.";
 		mes "Hahaha...";
 		close;
-	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
-		mes "[Paul]";
-		mes "Do you need a painting tool?";
-		mes "You can request that to the assistant.";
-		mes "We always have it just in case.";
-		close;
 	}
-	mes "[Manager]";
-	mes "Who are you?";
-	mes "This place isn't for you.";
+	mes "[Paul]";
+	mes "Do you need a painting tool?";
+	mes "Then you can request that to the assistant.";
+	mes "We always have it just in case.";
+	close;
+L_Code:
+	mes "[Paul]";
+	mes "Really? Then I don't need to give you the answer.";
+	mes "Could you interpret the meaning of each letter.";
 	next;
-	mes "[Manager]";
-	mes "What are they doing up there?";
-	mes "Bleh...";
+	select("It's kinda the combination of places.");
+	mes "[Paul]";
+	mes "So?";
+	next;
+	select("E-N meaning East - North");
+	mes "[Paul]";
+	mes "Ok that's good enough.";
+	mes "Then go and find out.";
+	next;
+	mes "[Paul]";
+	mes "Memorize this.";
+	mes "You might need it. It could be a clue for you.";
+	next;
+	mes "[Paul]";
+	switch(rand(3)) {
+	case 0:
+		mes "[ S E E D ]";
+		mes "S E E D?";
+		set job_sha,11;
+		changequest getarg(0),7168;
+		break;
+	case 1:
+		mes "[ F O O T ]";
+		mes "F O O T?";
+		set job_sha,12;
+		changequest getarg(0),7169;
+		break;
+	case 2:
+		mes "[ C O L D ]";
+		mes "C O L D?";
+		set job_sha,13;
+		changequest getarg(0),7170;
+		break;
+	}
+	mes "I don't know what it really means, but it would be helpful to you to figure it out.";
 	close;
 }
 
-s_atelier,168,129,3	script	Manager#H-4	806,{
-	if (job_sha == 15) {
+s_atelier,167,129,3	script	Manager#sc06_yuno	806,{
+	if (job_sha < 19) {
 		mes "[Manager]";
 		mes "What?";
 		mes "If you've come here for some money, you are wrong.";
 		mes "This isn't a pawnshop.";
+		if (job_sha < 18) close;
 		next;
 		select("You are... Haled?");
 		mes "[Haled]";
@@ -866,7 +913,8 @@ s_atelier,168,129,3	script	Manager#H-4	806,{
 		mes "[Haled]";
 		mes "So...";
 		mes "I totally understand.";
-		mes "It's this key's location that shared the information!";
+		mes "It's this key's location that";
+		mes "shared the informaton!";
 		next;
 		mes "[Haled]";
 		mes "Anyway. Two are keys and the treasure that I have to open with this key, what can I do?";
@@ -877,15 +925,27 @@ s_atelier,168,129,3	script	Manager#H-4	806,{
 		mes "- Haled doesn't want to cooperate with you.";
 		mes "Remember what Paul said. -";
 		next;
-		goto L_Paul;
-	} else if (job_sha == 16) {
+		callsub L_Code;
+		mes "[Haled]";
+		mes "So what?";
+		mes "He's a wild-eyed person.";
+		mes "Did you just speak to me in a threatening tone?";
+		set job_sha,19;
+		close;
+	} else if (job_sha == 19) {
 		mes "[Haled]";
 		mes "What?";
-		mes "You want to talk with me?";
+		mes "You want to walk with me?";
 		mes "How about you just hand over that key to me?";
 		next;
-		goto L_Paul;
-	} else if (job_sha == 17) {
+		callsub L_Code;
+		mes "[Haled]";
+		mes "What's wrong with you?";
+		mes "Are you ok?";
+		mes "Paul? What do you want to say?";
+		set job_sha,19;
+		close;
+	} else if (job_sha == 20) {
 		mes "[Haled]";
 		mes "Got it.";
 		mes "Ok.";
@@ -896,10 +956,11 @@ s_atelier,168,129,3	script	Manager#H-4	806,{
 		mes "Listen carefully to this poem.";
 		next;
 		mes "[Haled]";
-		mes "^aaaaffThe end of thin root of life-giving water.^000000";
-		mes "^aaaaffIt's all of tears and signs of living people.^000000";
-		mes "^aaaaffThey are us but also not us.^000000";
-		mes "^aaaaffResidents of forgotten night play the waltz of despair.^000000";
+		mes "^4d4dffThe end of thin root of life-giving water.";
+		mes "It's all of tears and signs of living people.";
+		mes "They are us but also not us.";
+		mes "Residents of forgotten night";
+		mes "play the waltz of despair^000000.";
 		next;
 		mes "[Haled]";
 		mes "Do you know where it is?";
@@ -911,96 +972,108 @@ s_atelier,168,129,3	script	Manager#H-4	806,{
 		mes "Anyway, if you want to do it, go ahead.";
 		mes "If you know what this poem means.";
 		next;
-		erasequest 7173;
-		setquest 7174;
-		set job_sha,18;
 		mes "[Haled]";
 		mes "Of course, if you find something, you have to come back.";
 		mes "Got it?";
 		mes "I'm going to write it down so that you won't forget.";
+		set job_sha,21;
+		changequest 7173,7174;
 		close;
-	} else if (job_sha > 17 && job_sha < 22) {
+	} else if (job_sha == 21) {
 		mes "[Haled]";
 		mes "I won't be surprised with whatever you find.";
 		mes "You have to find the place that the poem speaks of.";
 		next;
 		mes "[Haled]";
-		mes "^aaaaffThe end of thin root of life-giving water.^000000";
-		mes "^aaaaffIt's all of tears and signs of living people.^000000";
-		mes "^aaaaffThey are us but also not us.^000000";
-		mes "^aaaaffResidents of forgotten night play the waltz of despair.^000000";
+		mes "^4d4dffThe end of thin root of life-giving water.";
+		mes "It's all of tears and signs of living people.";
+		mes "They are us but also not us.";
+		mes "Residents of forgotten night";
+		mes "play the waltz of despair^000000.";
 		next;
+		mes "[Haled]";
 		mes "Of course, if you find something, you have to come back.";
 		mes "Got it?";
 		close;
-	}
-	if (job_sha == 22) {
-		mes "[Haled]";
-		mes "Did you find something?";
-		next;
-		select("Show the Key of Pleasure.");
-		mes "[Haled]";
-		mes "Ha...........akkk.";
-		mes "Another key?";
-		mes "Is it the only key?!";
-		next;
-		mes "[Haled]";
-		mes "Then... do I have to ask help from the young man from Lighthalzen?";
-		mes "............";
-		mes "Ah...";
-		next;
-		mes "[Haled]";
-		mes "I have no choice.";
-		mes "Go to Lighthalzen with the three keys.";
-		mes "Meet Vicente, who is master of the store in Lighthalzen, and tell him everything.";
-		next;
-		mes "[Haled]";
-		mes "I told you that the old man is persistent and he ruins everything.";
-		next;
+	} else if (job_sha > 21 && job_sha < 25) {
 		mes "[Haled]";
-		mes "You have to have all your facts straight to send information to the guild.";
-		mes "First you have to work together in one accord.";
-		next;
-		mes "[Haled]";
-		mes "The thing you find can belong to the workplace.";
-		mes "It can be shared.";
-		next;
-		mes "[Haled]";
-		mes "I thought that it was a very simple thing.";
-		mes "We couldn't share that stuff together.";
-		next;
-		mes "[Haled]";
-		mes "All of the information that I got fromworkplace are key.";
-		mes "There must be something to use three key with.";
-		next;
+		mes "How's it going?";
+		mes "If you find something, you have to come back.";
+		mes "Don't go to Graham or Paul.";
+		close;
+	} else if (job_sha == 25) {
 		mes "[Haled]";
-		mes "Anyway it has to do with deceit and pleasure...";
-		mes "Is it teasing me...";
+		mes "Did you find something?";
 		next;
-		erasequest 7176;
-		setquest 7177;
-		set job_sha,23;
-		mes "[Haled]";
-		mes "Ok. Let me finish.";
-		mes "Go to Vicente in Lighthalzen.";
+		select("Show the key of pleasure.");
+		if (countitem(6268)) {
+			mes "[Haled]";
+			mes "Ha..........akkk.";
+			mes "Another key?";
+			mes "Is it the only key?!";
+			next;
+			mes "[Haled]";
+			mes "Then... do I have to ask help from the young man from Lighthalzen?";
+			mes "...........";
+			mes "Ah...";
+			next;
+			mes "[Haled]";
+			mes "I have no choice.";
+			mes "Go to Lighthalzen with the three keys.";
+			mes "Meet Vicente who is master of the store in Lighthalzen and tell him everything.";
+			next;
+			mes "[Haled]";
+			mes "I told you that the old man is persistant and he ruins everything.";
+			next;
+			mes "[Haled]";
+			mes "You have to have all your facts straight to send information to the guild.";
+			mes "First you have to work together in one accord.";
+			next;
+			mes "[Haled]";
+			mes "The thing you find can belong to the workplace.";
+			mes "It can be shared.";
+			next;
+			mes "[Haled]";
+			mes "I thought that it was a very simple thing.";
+			mes "We couldn't share that stuff together.";
+			next;
+			mes "[Haled]";
+			mes "All of the information that I got from workplace are key.";
+			mes "There must be something to use three key with.";
+			next;
+			mes "[Haled]";
+			mes "Anyway it has to do with deceit and pleasure...";
+			mes "Is it teasing me...";
+			next;
+			mes "[Haled]";
+			mes "Ok. Let me finish.";
+			mes "Go to Vicente in Lighthalzen.";
+			set job_sha,26;
+			changequest 7176,7177;
+			close;
+		}
+		mes "["+strcharinfo(0)+"]";
+		mes "I'm sorry.";
+		mes "I found one more key but I didn't bring it.";
+		mes "I'll bring it soon.";
 		close;
-	} else if (job_sha > 22 && job_sha < 24) {
+	} else if (job_sha == 26) {
 		mes "[Haled]";
-		mes "Shadow workplace in lighthalzen";
+		mes "Shadow workplace in Lighthalzen.";
 		mes "The manager's name is Vicente.";
 		mes "Tell him everything and get one last information.";
 		close;
-	} else if (job_sha == 24) {
+	} else if (job_sha > 26 && job_sha < 30) {
 		mes "[Haled]";
 		mes "Hey, you!";
-		mes "Was Vicente helpful?";
+		mes "Was Vicente helpful to you?";
 		mes "You have something important...";
 		mes "So you have to find out what is it.";
 		next;
 		mes "[Haled]";
 		mes "Keep trying.";
 		close;
-	} else if (job_sha == 27) {
+	} else if (job_sha == 30) {
 		mes "[Haled]";
 		mes "Hey, you!";
 		mes "What's going on?";
@@ -1008,74 +1081,614 @@ s_atelier,168,129,3	script	Manager#H-4	806,{
 		next;
 		mes "[Haled]";
 		mes "Did I know that fact?";
-		mes "Sure. I heard a little bit before I used to do work like this.";
+		mes "Sure. I heard a little bit before";
+		mes "I used to do work like this.";
 		next;
 		mes "[Haled]";
-		mes "It's honor to me cause It's for to pick a person up belongs to us.";
+		mes "It's an honor for me to pick a person who belongs to us.";
 		mes "Just accept that. You are going to be a good Shadow Chaser.";
-		close;		
-	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
-		mes "[Haled]";
-		mes "I like your face.";
-		mes "We don't have any special thing.";
-		mes "An assistant sells some paint and tool.";
 		close;
 	}
-	mes "[Manager]";
-	mes "What?";
-	mes "If you've come here for some money,";
-	mes "you are wrong.";
-	mes "This isn't a pawnshop.";
+	mes "[Haled]";
+	mes "I like your face.";
+	mes "We don't have any special thing.";
+	mes "An assistant sells some paint and tool.";
 	close;
-
-L_Paul:
+L_Code:
+	mes "["+strcharinfo(0)+"]";
+	mes "Paul said...";
+	next;
+	input .@inputstr$;
 	mes "["+strcharinfo(0)+"]";
-	mes "Paul said....";
+	mes "Paul said...";
+	mes "'"+.@inputstr$+"' .";
 	next;
-	input .@psaid$;
-	if (.@psaid$ != "I know what you did last summer!") {
-		set job_sha,16;
+	if (.@inputstr$ == "I know what you did last summer!") {
 		mes "[Haled]";
-		mes "So what?";
-		mes "He's a wild-eyed person.";
-		mes "Did you just speak to me in a threatening tone?";
+		mes "Ekk... He...";
+		mes "Knew everything...";
+		mes "Hmm...";
+		mes "I can help.";
+		mes "I will cooperate.";
+		next;
+		mes "[Haled]";
+		mes "I need some time to collect my thoughts.";
+		mes "Wait for me a bit.";
+		set job_sha,20;
 		close;
 	}
-	mes "["+strcharinfo(0)+"]";
-	mes "Paul said....";
-	mes "I know what you did last summer!";
-	next;
-	mes "[Haled]";
-	mes "Ekk... He...";
-	mes "Knew everything...";
-	mes "Hmm...";
-	mes "I can help.";
-	mes "I will cooperate.";
+	return;
+}
+
+s_atelier,25,75,3	script	Manager#sc10_lgt	899,{
+	if (job_sha < 26) {
+		mes "[Manager]";
+		mes "You are?";
+		mes "Sorry, but we don't trade old art goods.";
+		mes "If you neeed something, then ask an assistant.";
+		close;
+	} else if (job_sha == 26) {
+		mes "[Vicente]";
+		mes "Welcome.";
+		mes "I've been waiting for you.";
+		next;
+		select("For me?");
+		mes "[Vicente]";
+		mes "I wondered when you would visit.";
+		mes "I've been waiting a long time for you.";
+		mes "Huhu...";
+		next;
+		mes "[Vicente]";
+		mes "How were Graham,Paul and Haled?";
+		mes "They are not easy people to deal with huh?";
+		next;
+		select("You know everything?");
+		mes "[Vicente]";
+		mes "Sure.";
+		mes "They ignore me because they think that I'm too young.";
+		mes "As if they were all perfect. HahahaHah...";
+		next;
+		mes "[Vicente]";
+		mes "Did you bring all of the keys?";
+		mes "There should be three.";
+		mes "You came here to find out how to use them I assume, right?";
+		next;
+		select("Yeah, you're right!");
+		mes "[Vicente]";
+		mes "You don't have to be surprised.";
+		mes "I can't find how long it took for those three men to investigate before.";
+		mes "I already finished my work.";
+		next;
+		mes "[Vicente]";
+		mes "When I went to the final location I found a stone statue.";
+		mes "But it needs to have key.";
+		next;
+		mes "[Vicente]";
+		mes "Even Three.";
+		mes " ";
+		mes "(Vicente smiles)";
+		next;
+		mes "[Vicente]";
+		mes "At first, the information that was given from the guild means only one thing.";
+		mes "Because of the saying that they respect the right of our possessions,";
+		mes "we shared our information.";
+		next;
+		mes "[Vicente]";
+		mes "So we had to wait for it.";
+		mes "I thought the last man would never give it to me...";
+		next;
+		mes "[Vicente]";
+		mes "They thought I wanted to have the treasure for myself.";
+		mes "So that's why I've just been waiting for you.";
+		next;
+		mes "[Vicente]";
+		mes "Then let's make a point!";
+		mes "Do you know thanatos tower?";
+		next;
+		switch(select("Sure.:The tower of death?")) {
+		case 1:
+			mes "[Vicente]";
+			mes "You know that.";
+			mes "Then you can understand easily.";
+			next;
+			break;
+		case 2:
+			mes "[Vicente]";
+			mes "Yes, that tower in northen Juno.";
+			mes "There are huge monsters there.";
+			next;
+			break;
+		}
+		mes "[Vicente]";
+		mes "You told me that you went to the final place with the information?";
+		mes "That's the Thanatos Tower.";
+		next;
+		mes "[Vicente]";
+		mes "Fortunately, the location is the 1st floor of that tower.";
+		mes "So I'm going to tell what you have to do.";
+		next;
+		mes "[Vicente]";
+		mes "At the 1st floor of thanatos tower, there are members from the Rekenber Corporation.";
+		mes "Go north from their desk...";
+		next;
+		mes "[Vicente]";
+		mes "And you can find stairs and a location where light comes out of.";
+		mes "That's the location of the information that I have.";
+		next;
+		mes "[Vicente]";
+		mes "Now you know the location you have to go to with the three keys.";
+		mes "Find out the secret of the stone statue.";
+		next;
+		mes "[Vicente]";
+		mes "You can't imagine what kind of things you might find.";
+		mes "That's the final destination of all of the keys.";
+		set job_sha,27;
+		changequest 7177,7178;
+		next;
+		mes "[Vicente]";
+		mes "Good luck.";
+		close;
+	} else if (job_sha == 27) {
+		mes "[Vicente]";
+		mes "Listen carefully.";
+		mes "The location you need to find is";
+		mes "north from middle of thanatos 1st floor.";
+		mes "You can find stairs and a location where light comes out.";
+		next;
+		mes "[Vicente]";
+		mes "If you find something, come back here.";
+		mes "Actually, I want to get the key from you, but...";
+		next;
+		mes "[Vicente]";
+		mes "I just respect your opinion.";
+		mes "If you find something, come back here. Got it?";
+		close;
+	} else if (job_sha == 28) {
+		mes "[Vicente]";
+		mes "You are back?";
+		mes "Find anything?";
+		next;
+		switch(select("Throw the brush.:Grab him by the collar.:Drop the brush.")) {
+		case 1:
+			mes "[Vicente]";
+			mes "Hey, what are you doing?";
+			mes "This brush...";
+			mes "Is this the treasure hidden in the Thanatos Tower?";
+			next;
+			mes "Vicente looks surprised after taking a look at it.";
+			next;
+			break;
+		case 2:
+			mes "[Vicente]";
+			mes "What's wrong with you?";
+			mes "You can tell me more details?";
+			next;
+			mes "Vincente looks surpised after taking a look at it.";
+			next;
+			mes "[Vicente]";
+			mes "Is this the treasure hidden in the Thanatos Tower?";
+			next;
+			break;
+		case 3:
+			mes "[Vicente]";
+			mes "What the matter?";
+			mes "Are you ok?";
+			next;
+			mes "Vicente looks at me with a surprised face.";
+			next;
+			select("Point at the brush.");
+			mes "[Vicente]";
+			mes "Is this the treasure hidden in the Thanatos Tower?";
+			next;
+			mes "Vincente looks surpised after taking a look at it.";
+			next;
+			break;
+		}
+		mes "[Vicente]";
+		mes "Haha!!";
+		mes "Ahahahaha!!!!!";
+		mes "I got it now!";
+		mes "Congratulations.";
+		next;
+		mes "[Vicente]";
+		mes "It's treasure.";
+		mes "You found a big treasure!";
+		mes "Talk to me for bit, won't you?";
+		next;
+		mes "[Vicente]";
+		mes "There is someone who has been waiting for you.";
+		mes "He's been waiting for someone to bring this brush back.";
+		mes "Let's go inside.";
+		set job_sha,29;
+		erasequest 7179;
+		close;
+	} else if (job_sha == 29 || job_sha == 30) {
+		mes "[Vicente]";
+		mes "I'm going to listen to your story.";
+		close;
+	}
+	mes "[Vicente]";
+	mes "I'm expecting your work from now on.";
+	mes "You must be a good Shadow Chaser.";
+	mes "I'm sure of it.";
+	close;
+}
+
+s_atelier,73,65,3	script	Vicente#sc12_lgt	899,{
+	mes "[Vicente]";
+	if (job_sha < 29) {
+		mes "If you don't have anything special to do here, you'd better leave.";
+		mes "No trespassing.";
+		close;
+	} else if (job_sha == 29) {
+		mes "This way.";
+		mes "He's been waiting for you a while.";
+		mes "Not me, Dumk.";
+		close;
+	} else if (job_sha == 30) {
+		mes "Dumk wants to have you as a Shadow Chaser.";
+		mes "Big news right?";
+		close;
+	} else if (job_sha == 31) {
+		mes "I'm expecting your work from now on.";
+		mes "You must be a good Shadow Chaser.";
+		mes "I'm sure of it.";
+		close;
+	}
+	mes "I don't have any special reason to visit here.";
+	mes "An assistant sells tools and paint.";
+	close;
+}
+
+s_atelier,70,66,4	script	Dumk#sc13_lgh	481,{
+	if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
+		mes "[Dumk]";
+		mes "What is it?";
+		mes "Have you been enjoying your new skills?";
+		next;
+		mes "[Dumk]";
+		mes "If you want to improve your skills, you have to seek out new uses for paint.";
+		next;
+		mes "[Dumk]";
+		mes "Don't forget.";
+		mes "We are Shadow Chasers.";
+		mes "Huhu...";
+		mes "HuhuHuhu...";
+		close;
+	}
+	if (checkweight(1201,4) == 0) {
+		mes "- You can't continue on in this quest because you are overweight. -";
+		close;
+	}
+	if (ismounting()) {
+		mes "[Dumk]";
+		mes "Who is this guy? Why should he sit in front of me so high?";
+		mes "Although I do not know why you riding on it, but here is in door,";
+		mes "That is no danger to rely on animals to escape, so you please get down!";
+		close;
+	}
+	if (BaseJob == Job_Rogue) {
+		if (job_sha < 29) {
+			mes "[Dumk]";
+			mes "Vicente. No Soliciting.";
+			next;
+			mes "[Vicente]";
+			mes "A solicitor?";
+			mes "I don't think so. He's our colleage.";
+			next;
+			mes "[Dumk]";
+			mes "...Ah?";
+			close;
+		}
+		if (BaseLevel < 99 || JobLevel < 50 || SkillPoint != 0) {
+			mes "[Dumk]";
+			mes "You are still green!";
+			mes "Did you expect that you can learn the dark arts with your ability?";
+			mes "You are wrong!";
+			next;
+			mes "[Vicente]";
+			mes "Haha...";
+			mes "Please, understand. Dumk has very bad communication skills.";
+			mes "Even doesn't talk to anyone who isn't a high enough level.";
+			next;
+			mes "[Vicente]";
+			mes "And as person who isn't not ready.";
+			mes "^4d4dffYou maybe are not ready for him^000000.";
+			next;
+			mes "[Dumk]";
+			mes "You talk too much.";
+			mes "Heh.";
+			next;
+			mes "[Vicente]";
+			mes "- He is pleased. -";
+			mes "Hey.";
+			mes "He could be ashamed.";
+			close;
+		}
+		if (job_sha == 29) {
+			mes "[Dumk]";
+			mes "It's you? You are the one who found the brush?";
+			next;
+			select("Show the brush to him.");
+			if (countitem(6269)) {
+				mes "[Dumk]";
+				mes "That's it.";
+				mes "Did you find it by yourself?";
+				next;
+				switch(select("Yes.:With my friends")) {
+				case 1:
+					mes "[Dumk]";
+					mes "Hmm...";
+					mes "You have a high ability.";
+					mes "Breaking the codes should have been tough.";
+					mes "But it wasn't for you.";
+					next;
+					break;
+				case 2:
+					mes "[Dumk]";
+					mes "Hmm...";
+					mes "That's your other skill.";
+					mes "People who have no friends must be lonely.";
+					next;
+					mes "[Dumk]";
+					mes "To us, relationships are very important.";
+					mes "You get more people, you get more help.";
+					next;
+					break;
+				}
+				mes "[Dumk]";
+				mes "It's time to introduce myself.";
+				mes "I'm Dumk.";
+				next;
+				select("You are...");
+				mes "[Vicente]";
+				mes "Chicken! How about the chicken for this supper?";
+				next;
+				mes "[Dumk]";
+				mes "Why chicken?";
+				mes "Why are you interrupting?";
+				mes "You wanna be fired?";
+				next;
+				mes "[Vicente]";
+				mes "Sorry...";
+				mes " ";
+				mes "(He turns to you and says it's taboo to talk about chicken.)";
+				next;
+				mes "[Dumk]";
+				mes "Anyway, let's make a point.";
+				mes "You.";
+				mes "Will you yield to the will of the brush?";
+				next;
+				select("Yield to? What?");
+				mes "[Dumk]";
+				mes "This brush was used by the master.";
+				mes "Paintings by him have mysterious power.";
+				next;
+				mes "[Dumk]";
+				mes "I can't tell you the root of the power.";
+				mes "Someday you will find out.";
+				mes "He sublimates power through the medium of his paintings.";
+				next;
+				select("I don't get it...?");
+				mes "[Dumk]";
+				mes "We walk in darkness without moonlight.";
+				mes "And find out our shining days are over.";
+				next;
+				mes "[Dumk]";
+				mes "We follow to other shadows";
+				mes "and we can be real";
+				mes "Shadow Chasers!";
+				next;
+				select("What are you talking about?");
+				mes "[Vicente]";
+				mes "He suggests that you become a Shadow Chaser.";
+				next;
+				mes "[Vicente]";
+				mes "In our guild, there is a special group that have unique skills.";
+				mes "They are Shadow Chasers.";
+				mes "They usually hide ther figure and they think they are different from others.";
+				next;
+				mes "[Dumk]";
+				mes "Don't be so sarcastic, Vicente!";
+				mes "I told you.";
+				mes "You are qualified to be a Shadow Chaser!";
+				next;
+				mes "[Dumk]";
+				mes "Give that brush to me.";
+				mes "I need it again.";
+				mes "I'm so thirsty.";
+				mes "Wait a minute.";
+				delitem 6269,1; //Master_Brush
+				set job_sha,30;
+				close;
+			}
+			mes "[Dumk]";
+			mes "Let me see...";
+			mes "Did you bring the brush?";
+			next;
+			mes "[Dumk]";
+			mes "What are you doing?";
+			mes "Show me the brush?";
+			mes "You didn't bring it?";
+			mes "You are not very careful...";
+			close;
+		} else if (job_sha == 30) {
+			mes "[Dumk]";
+			mes "So, do you want me to keep talking about Shadow Chasers?";
+			next;
+			switch(select("What is a Shadow Chaser?:Change me to Shadow Chaser.:I'll come back later.")) {
+			case 1:
+				mes "[Dumk]";
+				mes "Most spells are exclusively for Wizards and their kind.";
+				mes "But Knight has since been able to use a kind of magic with things called Runes.";
+				next;
+				mes "[Dumk]";
+				mes "So we tried finding a medium for spells that suit our characteristics.";
+				next;
+				mes "[Dumk]";
+				mes "So finally...";
+				mes "We found paint!";
+				next;
+				mes "[Dumk]";
+				mes "Paint gives us lots of feelings.";
+				mes "We can feel peaceful and happy or it can give us feelings of sorrow and fear.";
+				next;
+				mes "[Dumk]";
+				mes "We use that to harness the different emotions of people and exploit them when they're most vulnerable.";
+				next;
+				mes "[Dumk]";
+				mes "The effects on our enemies are similar to that of magic spells.";
+				next;
+				mes "[Dumk]";
+				mes "For instance, this power could be used to create blackholes to make your enemies vanish.";
+				next;
+				mes "[Dumk]";
+				mes "So if you want to have that power then you must have artistry.";
+				next;
+				mes "[Dumk]";
+				mes "You have to be a trendsetter when it comes to fashion!";
+				mes "The ability to understand art!";
+				mes "You should have everything.";
+				next;
+				select("Then what is the Master Brush?");
+				mes "[Dumk]";
+				mes "Ah?";
+				mes "That was a brush who was a master of dark arts.";
+				mes "Now we are looking for someone who can be a Shadow Chaser.";
+				next;
+				mes "[Dumk]";
+				mes "This is a kind of game.";
+				mes "If there is someone who wants to become a Shadow Chaser,";
+				mes "we just start the process to find this brush.";
+				next;
+				mes "[Dumk]";
+				mes "We put the codes to make sure that you can think outside of the box.";
+				mes "Did you have fun?";
+				close;
+			case 2:
+				mes "[Dumk]";
+				mes "You decided!";
+				mes "As your case, you can master the art of psychological warfare using paint!";
+				mes "The art created is beautiful but dangerous.";
+				next;
+				mes "[Dumk]";
+				mes "We use paint as a medium for spells.";
+				mes "We use that to harness the different emotions of people and exploit them when they're most vulnerable.";
+				next;
+				mes "[Dumk]";
+				mes "For instance, this power could be used to create black holes to make your enemies vanish.";
+				next;
+				mes "[Dumk]";
+				mes "So if you want to have that power then you must have artistry.";
+				next;
+				mes "[Dumk]";
+				mes "You have to be a trendsetter when it comes to fashion!";
+				mes "The ability to understand art!";
+				mes "You should have everything.";
+				next;
+				mes "[Dumk]";
+				mes "You performed your duties diligently and found the brush.";
+				mes "So you are qualified to be a Shadow Chaser.";
+				next;
+				mes "[Dumk]";
+				mes "Congratulations.";
+				mes "Welcome to your new life.";
+				jobchange roclass(eaclass()|EAJL_THIRD);
+				getitem 6121,1; //Makeover_Brush
+				getitem 6122,1; //Paint_Brush
+				set job_sha,32;
+				getitem 2795,1; //Green_Apple_Ring
+				getitem 5750,1; //Shadow_Handicraft
+				next;
+				mes "[Dumk]";
+				mes "It's a fashionable uniform.";
+				mes "It uses patterns of leopard and feathers";
+				mes "The fashion world will be shocked.";
+				next;
+				mes "[Dumk]";
+				mes "This shadow peacock I designed myself.";
+				mes "It's too hard to create something that absorbs my art sense.";
+				mes "Then about this part...";
+				next;
+				mes "Dumk keeps talking about fashion, art sense, paint and feeling.";
+				mes "He's obviously in his own world.";
+				next;
+				select("About this brush...");
+				mes "[Vicente]";
+				mes "Ah, I'll expain.";
+				mes "We need tools for painting.";
+				next;
+				mes "[Vicente]";
+				mes "The make-up brush is used for face painting.";
+				mes "You can get paint from the workplace.";
+				next;
+				mes "[Vicente]";
+				mes "The paint brush is used for painting big spaces.";
+				mes "You can get paint from the workplace too.";
+				next;
+				mes "[Vicente]";
+				mes "Don't you remember the location of the workplace?";
+				mes "Juno, Prontera, Rachel and Lighthalzen.";
+				next;
+				mes "[Vicente]";
+				mes "If you need paint, go to an assistant.";
+				mes "^4d4dffIf you don't have any tools, you can use skill needed paints.^000000";
+				next;
+				mes "[Vicente]";
+				mes "Congratulations to be our person.";
+				close;
+			case 3:
+				mes "[Dumk]";
+				mes "What?";
+				mes "Why not?";
+				mes "You don't want to be a Shadow Chaser?";
+				mes "I can teach you so much about painting.";
+				next;
+				mes "[Dumk]";
+				mes "You really won't understand until you become one.";
+				next;
+				mes "[Dumk]";
+				mes "Don't you want to learn how to harness a power stronger than what you know?";
+				mes "....";
+				next;
+				mes "Dumk seemed to be dissapointed because I didn't answer him.";
+				close;
+			}
+		}
+	}
+	mes "[Dumk]";
+	mes "..........";
+	mes "Heh.";
 	next;
-	set job_sha,17;
-	mes "[Haled]";
-	mes "I need some time to collect my thoughts.";
-	mes "Wait for me a bit.";
+	mes "[Vicente]";
+	mes "I'm sorry.";
+	mes "He is not interested in other people.";
+	mes "But you can't enter this space.";
+	mes "You can get tools at the store.";
 	close;
 }
 
-tur_dun03,38,209,5	script	Blue Flame#H-19	802,{
+// Flames
+//============================================================
+tur_dun03,38,209,1	script	Blue Flame#sc_f01	802,{
 	if (job_sha == 5) {
 		mes "A blue flame is roaring.";
 		mes "The deciphered code means...";
 		next;
-		input .@BLFnpc$;
-		if (.@BLFnpc$ != "blue fire in turtle island third floor") {
+		input .@inputstr$;
+		set .@dap01$, "blue fire in turtle island third floor";
+		set .@dap02$, "BLUE FIRE IN TURTLE ISLAND THIRD FLOOR";
+		if (.@inputstr$ != .@dap01$ && .@inputstr$ != .@dap02$) {
 			mes "["+strcharinfo(0)+"]";
 			mes "What was it?";
 			mes "I guess I have to make sure I don't use any capital letters.";
 			close;
 		}
 		mes "["+strcharinfo(0)+"]";
-		mes "^aaaaffblue fire in turtle island third floor^000000";
+		mes "^4d4dff"+.@inputstr$+"^000000";
 		mes "It's clearly pointing to this.";
 		next;
-		mes "You murmur the sentence when the flame begins growing.";
+		mes "You just murmur the sentence when the flame begins growing.";
 		next;
 		mes "[Unknown voice]";
 		mes "Hm? Someone is coming?";
@@ -1104,47 +1717,49 @@ tur_dun03,38,209,5	script	Blue Flame#H-19	802,{
 		mes "I laugh behind their backs.";
 		mes "HahaHaha...";
 		next;
-		erasequest 7163;
-		setquest 7164;
-		set job_sha,6;
-		mes "The Blue Flame is growing and rolling.";
+		mes "The Blue Flame is growning and rolling.";
 		mes "They seem to be related.";
+		set job_sha,6;
+		setquest 7164;
+		if (checkquest(7161) >= 0) erasequest 7161;
+		if (checkquest(7162) >= 0) erasequest 7162;
+		if (checkquest(7163) >= 0) erasequest 7163;
 		close;
 	} else if (job_sha == 6) {
-		if (checkquest(7164,HUNTING) != 2)	{
-			mes "The flame is still rolling with a";
-			mes "strong spell.";
-			mes "You have to cut the relation with it.";
-			close;
-		}
-		else if (checkquest(7164,HUNTING) == 2) {
+		if (checkquest(7164,HUNTING) == 2) {
 			mes "It looks like the blue flame is under the limitation.";
 			mes "You can't feel that rolling effect of a spell like before.";
 			next;
 			select("Pick up the marbles.");
 			mes "When you pick them up, you can feel that your weight is lightened.";
-			close2;
 			set job_sha,7;
 			erasequest 7164;
+			close2;
 			warp "job3_sha01",22,82;
 			end;
 		}
+		mes "The flame is still rolling with a strong spell.";
+		mes "You have to cut the relation with it.";
+		close;
 	} else if (job_sha == 7) {
 		mes "It looks like the blue flame is under the limitation.";
-		mes "You can't feel that rolling effect of a spell like before.";	
+		mes "You can't feel that rolling effect of a spell like before.";
 		next;
 		select("Pick up the marbles.");
 		mes "When you pick it up, you can feel that your weight is lightened.";
 		close2;
 		warp "job3_sha01",22,82;
-		end;	
+		end;
 	}
 	mes "The flame is rolling.";
 	close;
 }
 
-ice_dun02,206,223,5	script	Red Flame#H-20	802,{
-	if (job_sha == 11) {
+ice_dun02,206,223,1	script	Red Flame#sc_f02	802,{
+	if (job_sha < 11) {
+		mes "An unknown red flame is roaring.";
+		close;
+	} else if (job_sha > 10 && job_sha < 14) {
 		mes "The red flame is roaring.";
 		mes "It changed to a woman in black.";
 		next;
@@ -1164,60 +1779,54 @@ ice_dun02,206,223,5	script	Red Flame#H-20	802,{
 		mes "Sad soul.";
 		mes "A shadow of illusion without truth.";
 		next;
-		setquest 7171;
-		set job_sha,12;
 		mes "[Shadow of Illusion]";
 		mes "What do you want?";
 		mes "Do you want treasure?";
 		mes "Then pick it up.";
 		mes "Tear my soul and";
 		mes "show the truth.";
+		set job_sha, job_sha+3;
+		setquest 7171;
 		close;
-	} else if (job_sha == 12) {
-		if (checkquest(7171,HUNTING) != 2) {
-			mes "[Shadow of Illusion]";
-			mes "Huhu.";
-			mes "What's wrong?";
-			mes "You couldn't find the half of my soul?";
-			mes "Huhu...";
-			next;
-			mes "[Shadow of Illusion]";
-			mes "Ah, hurry and give me rest.";
-			mes "I want to die softly.";
-			mes "I want to give up the phony life.";
-			next;
-			mes "[Shadow of Illusion]";
-			mes "Huhu...";
-			mes "When the false shadow is gone, you can see the truth.";
-			mes "Please, tear the false to dazzle who are blind...";
-			mes "without any trace..";
-			close;
-		} else if (checkquest(7171,HUNTING) == 2) {
+	} else if (job_sha == 14 || job_sha == 15 || job_sha == 16) {
+		if (checkquest(7171,HUNTING) == 2) {
 			mes "You can't feel the soul from the flame.";
 			mes "When you go closer, you can't see well because of darkness.";
 			close2;
-			set job_sha,13;
-			erasequest 7171;
 			warp "job3_sha01",22,33;
 			end;
 		}
-	} else if (job_sha == 13) {
-		mes "You can't feel the soul from the flame.";
-		mes "When you go closer, you can't see well because of darkness.";	
-		close2;
-		warp "job3_sha01",22,33;
-		end;
-	} else if (job_sha > 13 && job_sha < 28) {
-		mes "The flame is rolling.";
-		mes "You can't see well because of the light of ice.";
+		mes "[Shadow of Illusion]";
+		mes "Huhu.";
+		mes "What's wrong?";
+		mes "You couldn't find the half of my soul?";
+		mes "Huhu...";
+		next;
+		mes "[Shadow of Illusion]";
+		mes "Ah, hurry and give me rest.";
+		mes "I want to die softly.";
+		mes "I want to give up the phony life.";
+		next;
+		mes "[Shadow of Illusion]";
+		mes "Huhu...";
+		mes "When the false shadow is gone, you can see the truth.";
+		mes "Please, tear the false to dazzle who are blind...";
+		mes "Without any trace...";
 		close;
 	}
-	mes "An unknown red flame is roaring.";
+	mes "The flame is rolling.";
+	mes "You can't see well because of the light of ice.";
 	close;
 }
 
-niflheim,230,276,5	script	Red Flame#H-21	802,{
-	if (job_sha == 18) {
+niflheim,230,276,1	script	Red Flame#sc_f03	802,{
+	if (job_sha < 21) {
+		mes "That's a mysterious flame.";
+		mes "It looks like cursing.";
+		mes "Go away form that.";
+		close;
+	}
+	else if (job_sha == 21) {
 		mes "["+strcharinfo(0)+"]";
 		mes "The poem that Haled told me was pointing to Niflheim.";
 		mes "There is a flame that looks like the one from turtle island and ice dungeon.";
@@ -1247,7 +1856,8 @@ niflheim,230,276,5	script	Red Flame#H-21	802,{
 		mes "Can you play the waltz of death for me?";
 		next;
 		mes "[Someone's voice]";
-		mes "I don't to be subject to restraint and be with sign of dead people.";
+		mes "I don't to be subject to restraint";
+		mes "and be with sign of dead people.";
 		next;
 		mes "[Shadow of Pleasure]";
 		mes "I'm a shadow.";
@@ -1256,119 +1866,118 @@ niflheim,230,276,5	script	Red Flame#H-21	802,{
 		next;
 		mes "[Shadow of Pleasure]";
 		mes "The soul got tangled by cold chains";
-		mes "I can't see the dream and the shadow lost the pleasure that will be lasting forever.";
+		mes "I can't see the dream";
+		mes "and the shadow lost the pleasure that will be lasting forever.";
 		next;
 		mes "[Shadow of Pleasure]";
 		mes "Please, help me.";
-		mes "Give me two hands to escape from here!";
+		mes "Give me two hands to";
+		mes "escape from here!";
 		next;
 		mes "[Shadow of Pleasure]";
 		mes "Can you stifle me with two hands?";
-		mes "The other side of my senses gas for breath.";
+		mes "The other side of my senses";
+		mes "gas for breath.";
 		next;
 		mes "[Shadow of Pleasure]";
 		mes "That's the evidence that I live.";
 		mes "That's the evidence that I cross over the line.";
-		mes "With start of life the last pleasure.";
+		mes "With start of life";
+		mes "the last pleasure.";
 		next;
 		mes "[Shadow of Pleasure]";
-		mes "Show me the sweet death.";
+		mes "Show me the";
+		mes "sweet death.";
 		next;
-		erasequest 7174;
-		setquest 7175;
-		set job_sha,19;
 		mes "The flame is dying.";
 		mes "You should handle the shadow of pleasure.";
+		set job_sha,22;
+		erasequest 7174;
+		setquest 7175;
 		close;
-	} else if (job_sha == 19) {
-		if (checkquest(7175,HUNTING) != 2) {
-			mes "You can feel a strong soul in the flame.";
-			mes "You should handle the shadow of pleasure.";
-			close;
-		} else if (checkquest(7175,HUNTING) == 2) {
+	} else if (job_sha == 22) {
+		if (checkquest(7175,HUNTING) == 2) {
 			mes "You can't feel the soul from the flame.";
 			mes "When you go closer, you can't see well because of darkness.";
-			set job_sha,20;
+			set job_sha,23;
 			erasequest 7175;
 			close2;
 			warp "job3_sha01",73,87;
 			end;
 		}
-	} else if (job_sha == 20) {
+		mes "You can feel a strong soul in the flame.";
+		mes "You should handle the shadow of pleasure.";
+		close;
+	} else if (job_sha == 23 || job_sha == 24) {
 		mes "You can't feel the soul from the flame.";
 		mes "When you go closer, you can't see well because of darkness.";
 		close2;
 		warp "job3_sha01",73,87;
 		end;
-	} else if (job_sha > 21 && job_sha < 27) {
-		mes "There is a flame.";
-		mes "You can't feel anything from it.";
-		close;
 	}
-	mes "That's a mysterious flame.";
-	mes "It looks like cursing.";
-	mes "Go away from that";
+	mes "There is a flame.";
+	mes "You can't feel anything from it.";
 	close;
 }
 
-tha_t01,149,228,0	script	#shadowc07	45,1,1,{
-	if ((Class == Job_Rogue || Class == Job_Stalker || Class == Job_Baby_Rogue) && job_sha == 24){
-		mes "You can feel weird power.";
-		mes "You are getting dizzy.";
-		close2;
-		warp "job3_sha01",71,36;
-		end;
+// Boxes
+//============================================================
+job3_sha01,22,78,0	script	????#keybox01	844,{
+	if (checkweight(1201,1) == 0) {
+		mes "- You can't continue on in this quest because you are overweight. -";
+		close;
 	}
-	mes "You can feel weird power.";
-	mes "You don't know what it is.";
-	close;
-}
-
-job3_sha01,22,78,5	script	????#H-22	844,{
 	if (job_sha == 7) {
-		setarray .@Codes1$[1],"EFDFJWF","FGEGKXG","GHFHLYH","HIGIMZI","IJHJNAJ","JKIKOBK","KLJLPCL","LMKLQDM";
-		setarray .@Codes2$[1],"IPOFTUZ","JQPGUVA","IRQHVWB","LSRIWXC","MTSJXYD","NUTKYZE","OVULZAF","PWVMABG";
-		set @job_sc_chest1,rand(1,8);		
 		mes "It's a small box made of a hard turtle's shell.";
 		mes "The middle of it...";
 		next;
 		select("Touch the middle.:Push the middle.");
 		mes "When you touch it, something comes out!";
 		next;
-		mes "DECEIVE";
+		setarray .@Codes1$[1],"EFDFJWF","FGEGKXG","GHFHLYH","HIGIMZI","IJHJNAJ","JKIKOBK","KLJLPCL","LMKMQDM";
+		setarray .@Codes2$[1],"IPOFTUZ","JQPGUVA","KRQHVWB","LSRIWXC","MTSJXYD","NUTKYZE","OVULZAF","PWVMABG";
+		set .@i, rand(1,8);
+		mes " ";
+		mes " ";
+		mes " DECEIVE";
 		next;
-		mes ""+@job_sc_chest1;
+		mes " ";
+		mes " ";
+		mes " "+.@i;
 		next;
-		mes .@Codes1$[@job_sc_chest1];
+		mes "";
+		mes "";
+		mes " "+.@Codes1$[.@i];
 		next;
 		mes "It shows some letters and numbers.";
 		mes " ";
-		mes "Deceive,";
-		mes "then "+@job_sc_chest1+",";
-		mes "and "+.@Codes1$[@job_sc_chest1]+".";
+		mes "Deceive.";
+		mes "Then "+.@i+".";
+		mes "And "+.@Codes1$[.@i]+".";
 		next;
 		select("What does it mean?");
 		mes "["+strcharinfo(0)+"]";
 		mes "Is it also code.";
-		mes "It must be a kind of rule of code?";
-		mes "Ah, something is shown again...?";
+		mes "It must be!";
+		mes "Ah, something is showing up again...?";
 		next;
 		mes "- You can see some letters on the turtle's shell. -";
 		next;
+		mes " ";
 		mes "HONESTY";
-		mes "And also letters. They are";
-		mes "blinking as if waiting for a code to be input.";
+		mes " ";
+		mes "And also letters. They are blinking as if waiting for a code to be input.";
 		next;
-		input .@sccst1$;
-		if (.@sccst1$ == .@Codes2$[@job_sc_chest1]) {
-			mes "When you put the correct";
-			mes "answer in there, the box opens.";
-			mes "There is a small key inside.";
+		input .@inputstr$;
+		if (.@inputstr$ == .@Codes2$[.@i] || .@inputstr$ == strtolower(.@Codes2$[.@i])) {
+			mes "When you put the correct answer in there,";
+			mes "the box is opened.";
+			mes "There is a small and fabulous key.";
 			next;
-			getitem 6266,1;
-			setquest 7165;
-			set job_sha,8;
 			mes "- You get the Key of Deception. -";
+			set job_sha,8;
+			getitem 6266,1; //Cheat_Key
+			setquest 7165;
 			close;
 		}
 		mes "- You put the answer -";
@@ -1378,24 +1987,29 @@ job3_sha01,22,78,5	script	????#H-22	844,{
 	}
 	mes "You don't have to stay in here.";
 	next;
-	switch(select("Go outside.:Stay here.")) {
-		case 1: warp "tur_dun03",42,204;
-		case 2: close;
-	}
+	if(select("Go outside.:Stay here.") == 1)
+		warp "tur_dun03",40,201;
+	close;
 }
 
-job3_sha01,25,28,5	script	????#H-23	844,{
-	if (job_sha == 13) {
-		setarray .@Words$[1],"SEED","FOOT","COLD";
-		setarray .@Numbers[1],24,25,20;
-		mes "There are lots of boxes";
-		mes "with numbers on them.";
-		next;
-		mes "1 2 3 4 5";
-		mes "6 7 8 9 0";
-		mes " [][]";
-		next;
-		mes "When you touched that number, it moved.";
+job3_sha01,25,28,0	script	????#keybox02	844,{
+	if (checkweight(1201,1) == 0) {
+		mes "- You can't continue on in this quest because you are overweight. -";
+		close;
+	}
+	setarray .@Words$[0],"SEED","FOOT","COLD";
+	setarray .@Numbers[0],24,25,20;
+	set .@i,job_sha-14;
+	if (job_sha > 13 && job_sha < 17) {
+		mes "There are lots of boxes.";
+		mes "with sort of numbers.";
+		next;
+		mes " 1 2 3 4 5";
+		mes " 6 7 8 9 0";
+		mes " ";
+		mes " [ ][ ] ";
+		next;
+		mes "When you touched that number, then it moved.";
 		mes "You find the empty space.";
 		next;
 		mes "["+strcharinfo(0)+"]";
@@ -1403,144 +2017,131 @@ job3_sha01,25,28,5	script	????#H-23	844,{
 		mes "I have two empty squares to put two numbers.";
 		mes "What will it be good for?";
 		next;
-		select("I think it's related to the word given by Paul.");
+		select("I think it's related with the word given by Paul.");
 		mes "["+strcharinfo(0)+"]";
-		mes "I got "+.@Words$[job_chest2]+".";
+		mes "I got "+.@Words$[.@i]+".";
 		mes "Now I have to convert it into a number...";
-		next;	
+		next;
 		switch(select("Input the answer.:I can't get it.")) {
-			case 1:
-				input .@sccst2;
-				if (.@sccst2 == .@Numbers[job_chest2]) {
-					mes "You put 2 and "+(.@Numbers[job_chest2]-20)+".";
-					mes "The box opens and you get one key.";
-					next;
-					mes "You picked up the Key of Illusion.";
-					next;
-					mes "["+strcharinfo(0)+"]";
-					mes "It's not a treasure.";
-					mes "The Key of Illusion? Is it related to the Shadow of Illusion?";
-					mes "I got the Key of Deception after I handled Deception...";
-					next;
-					getitem 6267,1;
-					setquest 7172;
-					set job_sha,14;
-					set job_chest2,0;
-					mes "["+strcharinfo(0)+"]";
-					mes "Anyway, Paul will be disappointed.";
-					mes "A key again....";
-					mes "How can I escape from here?";
-					next;
-					mes "When you push the box, it opens a door leading outside.";
-					close2;
-					warp "ice_dun02",209,219;
-					end;
-				}
-				mes "When you enter the number, it goes back to the first.";
-				close;
-			case 2:
+		case 1:
+			input .@input;
+			if (.@input == .@Numbers[.@i]) {
+				mes "You put 2 and "+(.@Numbers[.@i]-20)+".";
+				mes "The box opens and you get one key.";
+				next;
+				mes "You got the Key of Illusion.";
+				next;
 				mes "["+strcharinfo(0)+"]";
-				mes "Hmm.";
-				mes "I can't get it...";
-				mes "Is it the same code as the Prontera workplace...?";
+				mes "It's not a treasure.";
+				mes "The Key of Illusion? Is it related with the Shadow of Illusion?";
+				mes "I got the Key of Deception after I handled Deception...";
 				next;
 				mes "["+strcharinfo(0)+"]";
-				mes "According to that method...";
-				mes "A means 11 and B means 12.";
-				close;
+				mes "Anyway, Paul will be disappointed.";
+				mes "Key again...";
+				mes "How can I escape from here...?";
+				set job_sha,17;
+				getitem 6267,1; //Virtual_Key
+				erasequest 7171;
+				changequest 7168+.@i,7172;
+				next;
+				mes "When I push the box, it shows the door to go outside.";
+				close2;
+				warp "ice_dun02",209,219;
+				end;
+			}
+			mes "When you enter the number, it goes back to the first.";
+			close;
+		case 2:
+			mes "["+strcharinfo(0)+"]";
+			mes "Hmm.";
+			mes "I can't get it...";
+			mes "Is it the same code as the Prontera workplace...?";
+			next;
+			mes "["+strcharinfo(0)+"]";
+			mes "According to that method...";
+			mes "A means 11 and B means 12.";
+			close;
 		}
 	}
-	// Custom Translation
-	mes "The box engraved with mysterious pattern.";
-	mes "When you push the box, it opens a door leading outside.";
+	mes "It's a myterious box.";
+	mes "When I push the box, it shows the door to go outside.";
 	close2;
 	warp "ice_dun02",209,219;
 	end;
 }
 
-job3_sha01,73,80,5	script	????#H-24	844,{
-	if (job_sha == 20) {
-		mes "There is a box that looks like a house.";
-		mes "There's a small paper in the chimmney.";
-		next;
-		mes "It says:";
-		mes "-----------------";
-		mes "20 21 18 14";
-		mes "1 14 4";
-		mes "19 8 1 11 5";
-		mes "-----------------";
-		next;
-		mes "["+strcharinfo(0)+"]";
-		mes "I think it's another code.";
-		mes "I should solve it the same way as before.";
-		next;
-		mes "["+strcharinfo(0)+"]";
-		mes "There are no clues...";
-		mes "1 could equal A,";
-		mes "And the the answer is...";
-		next;
-		input .@sccst3$;
-		set job_sha,21;
-		if (.@sccst3$ != "TURN AND SHAKE") {
+job3_sha01,73,80,0	script	????#keybox03	844,{
+	if (checkweight(1201,1) == 0) {
+		mes "- You can't continue on in this quest because you are overweight. -";
+		close;
+	}
+	if (job_sha == 23 || job_sha == 24) {
+		if (job_sha == 23) {
+			mes "There is a box that looks like a house.";
+			mes "There's a small paper in the chimney.";
+			next;
+			mes "It says...";
+			mes "-----------------";
+			mes " 20 21 18 14";
+			mes " 1 14 4";
+			mes " 19 8 1 11 5";
+			mes "-----------------";
+			next;
 			mes "["+strcharinfo(0)+"]";
-			mes "..."+.@sccst3$+"....?";
-			mes "What does that mean?";
-			close;
+			mes "I think it's another code.";
+		} else {
+			mes "["+strcharinfo(0)+"]";
+			mes "Let me think again...";
+			mes "20 21 18 14";
+			mes "1 14 4 ";
+			mes "19 8 1 11 5";
+			mes "...";
 		}
-	} else if (job_sha == 21) {
-		mes "["+strcharinfo(0)+"]";
-		mes "Let me think again...";
-		mes "20 21 18 14";
-		mes "1 14 4";
-		mes "19 8 1 11 5";
 		next;
 		mes "["+strcharinfo(0)+"]";
 		mes "It's the same as before.";
 		mes "There's no code, so 1 should be A.";
 		mes "And the answer is...";
 		next;
-		input .@sccst3$;
-		if (.@sccst3$ != "TURN AND SHAKE") {
+		input .@inputstr$;
+		if (.@inputstr$ == "turn and shake" || .@inputstr$ == "TURN AND SHAKE") {
 			mes "["+strcharinfo(0)+"]";
-			mes "..."+.@sccst3$+"....?";
-			mes "Again? I don't get it.";
-			close;
-		}
-	}
-	if (job_sha == 21) {
-		mes "["+strcharinfo(0)+"]";
-		mes "Turn... Turn... and";
-		mes "Shake? Shake?";
-		mes "For what?";
-		next;
-	L_chest32:
-		switch(select("Turn the roof.:Turn the house.:Turn the handle.")) {
-			case 1:
-				mes "You turn the roof.";
-				next;
-				switch(select("Shake the roof.:Shake the house.")) {
+			mes "Turn... Turn... and";
+			mes "Shake? Shake?";
+			mes "For what?";
+			next;
+			while(1) {
+				switch(select("Turn the roof.:Turn the house.:Turn the handle.")) {
+				case 1:
+					mes "You turn the roof.";
+					next;
+					switch(select("Shake the roof.:Shake the house.")) {
 					case 1:
-						mes "Even though you shake the roof, nothing happens.";
+						mes "Even though you shake the roof but";
+						mes "nothing happens.";
 						next;
 						mes "["+strcharinfo(0)+"]";
 						mes "That's not it.";
 						mes "Hmm...";
 						next;
-						goto L_chest32;
+						break;
 					case 2:
-						mes "You tried to shake the house but it doesn't do anything.";
+						mes "You tried to shake the house but";
+						mes "it doesn't do anything.";
 						next;
 						mes "["+strcharinfo(0)+"]";
 						mes "It's wrong.";
-						mes "I'll put it back";
-						mes "and try again...";
+						mes "Put it back";
+						mes "and try it again.";
 						next;
-						goto L_chest32;
+						break;
 					}
-			case 2:
-				mes "You grab the whole house and turn it.";
-				next;				
-				switch(select("Shake up and down.:Shake back and forth.:Turn 'round and 'round and shake.:Roll it upside down.")) {
+					break;
+				case 2:
+					mes "You grab the whole house and turn it.";
+					next;
+					switch(select("Shake up and down.:Shake back and forth.:Turn 'round and 'round and shake.:Roll it upside down.")) {
 					case 1:
 					case 2:
 						mes "Nothing happens.";
@@ -1548,19 +2149,19 @@ job3_sha01,73,80,5	script	????#H-24	844,{
 						next;
 						mes "["+strcharinfo(0)+"]";
 						mes "That's not it.";
-						mes "Hmm.";
+						mes "Hmm...";
 						next;
-						goto L_chest32;
+						break;
 					case 3:
-						mes "You shake it slowly.";
-						mes "You can hear a noise,";
-						mes "but nothing's coming out.";
+						mes "You shake it slowly";
+						mes "you can hear a noise";
+						mes "But nothing's coming out.";
 						next;
 						mes "["+strcharinfo(0)+"]";
 						mes "That's not it.";
-						mes "Hmm.";
+						mes "Hmm...";
 						next;
-						goto L_chest32;
+						break;
 					case 4:
 						mes "Rolling it upside down causes something inside to move.";
 						next;
@@ -1570,763 +2171,302 @@ job3_sha01,73,80,5	script	????#H-24	844,{
 						next;
 						mes "- You got the Key of Pleasure. -";
 						next;
-						getitem 6268,1;
-						erasequest 7175;
-						setquest 7176;
-						set job_sha,22;
 						mes "["+strcharinfo(0)+"]";
 						mes "What? A key again!";
-						mes "Haled will be disappointed...";
-						mes "I better go back.";
+						mes "Haled will be disappointed.";
+						mes "I better to go back.";
+						set job_sha,25;
+						setquest 7176;
+						getitem 6268,1; //Mirth_Key
 						close;
+					}
+					break;
+				case 3:
+					mes "You tried to turn the small handle";
+					mes "but it doesn't work.";
+					next;
+					mes "["+strcharinfo(0)+"]";
+					mes "What should I do now?";
+					next;
+					break;
 				}
-			case 3:
-				mes "You tried to turn the small handle but it doesn't work.";
-				next;
-				mes "["+strcharinfo(0)+"]";
-				mes "What should I do now?";
-				next;
-				goto L_chest32;
+			}
 		}
+		mes "["+strcharinfo(0)+"]";
+		mes "..."+.@inputstr$+"...?";
+		if (job_sha == 23) {
+			mes "What does that mean?";
+			set job_sha,24;
+		} else
+			mes "Again? I don't get it.";
+		close;
 	}
 	mes "You don't have to stay in here.";
-	mes "You put the box down and see that there is a door leading outside.";
+	mes "You put the box down and see that there is a door to go outside.";
 	close2;
 	warp "niflheim",230,270;
 	end;
 }
 
-job3_sha01,72,28,5	script	????#H-25	844,{
-	if (countitem(6266) == 1 && countitem(6267) == 1 && countitem(6268) == 1) {
-		if (job_sha == 24) {
-			mes "There is a stone that looks like a small casket with a fabulous pattern around it.";
-			next;
-			mes "But you can't feel any power from it.";
-			mes "You find three holes in there.";
-			next;
-			mes "Inscribed next to the holes is written Deception, Illusion, and Pleasure.";
-			next;
-			select("Place the key in the holes.");
+job3_sha01,71,27,0	script	????#keybox04	844,{
+	if (checkweight(1201,1) == 0) {
+		mes "- You can't continue on in this quest because you are overweight. -";
+		close;
+	}
+	if (job_sha == 27) {
+		mes "There is a stone statue that looks";
+		mes "like a small casket with a fabulous pattern around it.";
+		next;
+		mes "But you can't feel any power from it.";
+		mes "You find three holes in there.";
+		next;
+		mes "Inscribed next to the holes is written";
+		mes "deception, illusion and pleasure.";
+		next;
+		select("Place the key in the holes.");
+		if (countitem(6266) && countitem(6267) && countitem(6268)) {
 			mes "["+strcharinfo(0)+"]";
 			mes "At first, Deception...";
 			mes "then Illusion...";
 			mes "and Pleasure...";
 			mes "Let me see.";
 			next;
-			mes "When you put the keys in, something comes out.";
+			mes "When you put the keys in";
+			mes "something comes out.";
 			next;
-			delitem 6266,1;
-			delitem 6267,1;
-			delitem 6268,1;
-			getitem 6269,1;
-			erasequest 7178;
-			setquest 7179;
-			set job_sha,25;
 			mes "- You got a brush with a fabulous pattern on it. -";
+			delitem 6266,1; //Cheat_Key
+			delitem 6267,1; //Virtual_Key
+			delitem 6268,1; //Mirth_Key
+			set job_sha,28;
+			getitem 6269,1; //Master_Brush
+			changequest 7178,7179;
 			next;
 			mes "["+strcharinfo(0)+"]";
 			mes "What???";
-			mes "A brush!!!";
+			mes "A brush!!!!";
 			mes "This isn't treasure!!!";
 			next;
 			mes "["+strcharinfo(0)+"]";
-			mes "Ahahhah!!!";
+			mes "Ahahhah!!!!";
 			mes "*sniff*";
 			mes "It's not treasure!";
 			next;
 			select("Now I'm pissed off.");
 			mes "["+strcharinfo(0)+"]";
 			mes "*Sigh*";
-			mes "Guess I should bring this to ^aaaaffVicente^000000!";
+			mes "Guess I should bring this to ^4d4dffVicente^000000!";
 			close;
 		}
+		mes "["+strcharinfo(0)+"]";
+		mes "I didn't bring all of the keys.";
+		mes "How could I be so stupid?";
+		close;
 	}
 	mes "It's an empty stone statue.";
 	close;
 }
 
-s_atelier,25,75,3	script	Manager#H-5	899,{
-	if (job_sha == 23) {
-		mes "[Vicente]";
-		mes "Welcome.";
-		mes "I've been waiting for you.";
-		next;
-		select("For me?");
-		mes "[Vicente]";
-		mes "I wondered when you would visit.";
-		mes "I've been waiting a long time for you.";
-		mes "Huhu...";
-		next;
-		mes "[Vicente]";
-		mes "How were Graham, Paul and Haled?";
-		mes "They are not easy people to deal with, huh?";
-		next;
-		select("You know everything?");
-		mes "[Vicente]";
-		mes "Sure.";
-		mes "They ignore me because they think that I'm too young.";
-		mes "As if they were all perfect.";
-		mes "Hahaha...";
-		next;
-		mes "[Vicente]";
-		mes "Did you bring all of the keys?";
-		mes "There should be three.";
-		mes "You came here to find out how to use them I assume, right?";
-		next;
-		select("Yeah, you're right!");
-		mes "[Vicente]";
-		mes "You don't have to be surprised.";
-		mes "I can't find how long it took for those three men to investigate before.";
-		mes "I already finished my work.";
-		next;
-		mes "[Vicente]";
-		mes "When I went to the final location I found a stone statue.";
-		mes "But it needed keys.";
-		next;
-		mes "[Vicente]";
-		mes "Three of them.";
-		mes "- Vicente smiles. -";
-		next;
-		mes "[Vicente]";
-		mes "At first, the information that was";
-		mes "given from the guild meant only one thing.";
-		mes "Because of the saying that they respect the right of our";
-		mes "possessions,";
-		mes "we shared our information.";
-		next;
-		mes "[Vicente]";
-		mes "So we had to wait for it.";
-		mes "I thought the last man would never give it to me...";
-		next;
-		mes "[Vicente]";
-		mes "They thought I wanted to have the treasure for myself.";
-		mes "So that's why I've just been";
-		mes "waiting for you.";
-		next;
-		mes "[Vicente]";
-		mes "Then let's make a point!";
-		mes "Do you know of the Thanatos Tower?";
+// Brush Shops
+//============================================================
+s_atelier,29,119,3	script	Max#sc05_prt	97,{
+	mes "[Max]";
+	mes "Welcome~";
+	if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
+		mes "You are a member of the Rogue guild!";
+		mes "What can I help you with?";
 		next;
-		switch(select("Sure.:The tower of death?")) {
-			case 1:
-				mes "[Vicente]";
-				mes "You know that.";
-				mes "Then you can understand easily.";
-				next;
-				break;
-			case 2:
-				mes "[Vicente]";
-				mes "Yes, that tower in northern Juno.";
-				mes "There are huge monsters there.";
-				next;
-				break;
+		set .@i, select("I need a make-up brush.:I need a paint brush.:Nothing.");
+		mes "[Max]";
+		if (.@i == 1) setarray .@i[1],6121,1,10,100000;
+		else if (.@i == 2) setarray .@i[1],6122,2,30,200000;
+		else {
+			mes "If you need more";
+			mes "just visit me!";
+			close;
 		}
-		mes "[Vicente]";
-		mes "You told me that you went to the final place with the information?";
-		mes "That's the Thanatos Tower.";
-		next;
-		mes "[Vicente]";
-		mes "Fortunately, the location is the 1st floor of that tower.";
-		mes "So I'm going to tell what you have to do.";
-		next;
-		mes "[Vicente]";
-		mes "At the 1st floor of the Thanatos Tower, there are members from the Rekenber Corporation.";
-		mes "Go north from their desk...";
-		next;
-		mes "[Vicente]";
-		mes "And you can find stairs and a location where light comes out of.";
-		mes "That's the location of the";
-		mes "information that I have.";
-		next;
-		mes "[Vicente]";
-		mes "Now you know the location you have to go to with the three keys.";
-		mes "Find out the secret of the stone statue.";
-		next;
-		erasequest 7177;
-		setquest 7178;
-		set job_sha,24;
-		mes "[Vicente]";
-		mes "You can't imagine what kind of things you might find.";
-		mes "That's the final destination of all of the keys.";
-		next;
-		mes "[Vicente]";
-		mes "Good luck.";
-		close;
-	} else if (job_sha == 24) {
-		mes "[Vicente]";
-		mes "Listen carefully.";
-		mes "The location you need to find is";
-		mes "north from the middle of the 1st floor in the Thanatos Tower.";
-		mes "You can find stairs and a location where light comes out.";
-		next;
-		mes "[Vicente]";
-		mes "If you find something, come back here.";
-		mes "Actually, I want to get the key from you, but...";
-		next;
-		mes "[Vicente]";
-		mes "I just respect your opinion.";
-		mes "If you find something, come back here. Got it?";
-		close;
-	} else if (job_sha == 25) {
-		mes "[Vicente]";
-		mes "You're back?";
-		mes "Did you find anything?";
-		next;
-		switch(select("Throw the brush.:Grab him by the collar.:Drop the brush.")) {
-			case 1:
-				mes "[Vicente]";
-				mes "Hey, what are you doing?";
-				mes "This brush...";
-				mes "Is this the treasure hidden in the Thanatos Tower?";
-				next;
-				break;
-			case 2:
-				mes "[Vicente]";
-				mes "What's wrong with you?";
-				mes "You can't tell me more details?";
-				close;
-			case 3:
-				mes "[Vicente]";
-				mes "What's the matter?";
-				mes "Are you ok?";
-				next;
-				mes "- Vicente looks at me with a surprised face. -";
-				next;
-				select("Point at the brush.");
-				mes "[Vicente]";
-				mes "Is this the treasure hidden in thanatos tower?";
-				next;
-				break;
+		if (countitem(.@i[1])) {
+			mes "Are you kidding me?";
+			mes "You already have it?";
+			mes "You don't need anything else.";
+			next;
+			mes "[Max]";
+			mes "Visit later and use what you have!";
+			close;
 		}
-		mes "Vicente looks surprised after taking a look at it.";
-		next;
-		mes "[Vicente]";
-		mes "Haha!!";
-		mes "Ahahahaha!!!!!";
-		mes "I get it now!";
-		mes "Congratulations.";
-		next;
-		mes "[Vicente]";
-		mes "It's treasure.";
-		mes "You found a big treasure!";
-		mes "Talk to me for bit, won't you?";
-		next;
-		erasequest 7179;
-		setquest 7180;
-		set job_sha,26;
-		mes "[Vicente]";
-		mes "There is someone who has been waiting for you.";
-		mes "He's been waiting for someone to bring this brush back.";
-		mes "Let's go inside.";
-		close;
-	} else if (job_sha > 25 && job_sha < 28) {
-		mes "[Vicente]";
-		mes "I'm going to listen to your story.";
-		close;
-	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
-		mes "[Vicente]";
-		mes "I'm expecting your work from now on.";
-		mes "You'll be a good Shadow Chaser.";
-		mes "I'm sure of it.";
-		close;
-	}
-	mes "[Manager]";
-	mes "You are?";
-	mes "Sorry, but we don't trade old art goods.";
-	mes "If you need something, then ask an assistant.";
-	close;
-}
-
-s_atelier,73,65,3	script	Vicente#H-18	899,{
-	mes "[Vicente]";
-	if (job_sha > 25 && job_sha < 27) {
-		mes "This way.";
-		mes "He's been waiting for you for a while.";
-		mes "Not me, Dumk.";
-		close;
-	} else if (job_sha == 27) {
-		mes "Dumk wants to have you as a Shadow Chaser.";
-		mes "Big news, right?";
-		close;
-	} else if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
-		mes "I don't have any special reason to visit here.";
-		mes "An assistant sells tools and paints.";
-		close;
-	}
-	mes "If you don't have anything special";
-	mes "to do here, you'd better leave.";
-	mes "No trespassing!";
-	close;
-}
-
-s_atelier,70,66,5	script	Dumk	481,{
-	mes "[Dumk]";
-	if ((Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) && !countitem(6269)) {
-		mes "What is it?";
-		mes "Have you been enjoying your new skills?";
-		next;
-		mes "[Dumk]";
-		mes "If you want to improve your skills, you have to seek out new uses for paints.";
-		next;
-		mes "[Dumk]";
-		mes "Don't forget.";
-		mes "We are Shadow Chasers.";
-		mes "Huhu...";
-		mes "HuhuHuhu...";
-		close;
-	}
-	if (!countitem(6269)) {
-		if (Class == Job_Rogue || Class == Job_Stalker || Class == Job_Baby_Rogue) {
-			mes "Vicente, no soliciting!";
+		if (countitem(7150) >= .@i[2] && countitem(949) >= .@i[3] && Zeny >= .@i[4]) {
+			mes "Oh you brought all the things required.";
+			mes "Hold on a bit.";
 			next;
-			mes "[Vicente]";
-			mes "A solicitor?";
-			mes "I don't think so. That's our colleage.";
+			mes "[Max]";
+			mes "Here's what you need.";
 			next;
-			mes "[Dumk]";
-			mes "...Ah?";
+			mes "[Max]";
+			mes "Take it.";
+			mes "Good luck!";
+			delitem 7150,.@i[2]; //Bamboo_Cut
+			delitem 949,.@i[3]; //Feather
+			set Zeny, Zeny - .@i[4];
+			getitem .@i[1],1; //Makeover_Brush,Paint_Brush
 			close;
 		}
-		mes "........";
-		mes "Heh.";
-		next;
-		mes "[Vicente]";
-		mes "I'm sorry.";
-		mes "He is not interested in other people.";
-		mes "But you can't enter this space.";
-		mes "You can get tools at the store.";
-		close;
-	}
-	// Not sure if this is placed correctly...
-	if (BaseLevel != 99 || JobLevel < 50) {
-		mes "Sorry, but make sure that you're";
-		mes "Base Lvl. 99 / Job Lvl. 50 minimun and set all your Skillpoints.";
+		mes "Here's what you need to get a make-up brush.";
+		mes .@i[2]+" Bamboo Cut,";
+		mes .@i[3]+" Feather,";
+		mes "and "+.@i[0]+"00,000 zeny.";
 		close;
 	}
-	if (SkillPoint) {
-		mes "You are still green!";
-		mes "Did you expect to learn the dark arts with your ability?";
-		mes "You are wrong!";
-		next;
-		mes "[Vicente]";
-		mes "Haha...";
-		mes "Please, understand. Dumk has very bad communication skills.";
-		mes "He doesn't talk to anyone who isn't at a high enough level.";
-		next;
-		mes "[Vicente]";
-		mes "And to those who are not ready...";
-		mes "^aaaaffYou might not be ready for him.^000000";
-		next;
-		mes "[Dumk]";
-		mes "You talk too much.";
-		mes "Heh.";
-		next;
-		mes "[Vicente]";
-		mes "- He is pleased. -";
-		mes "Hey.";
-		mes "He could be ashamed.";
+	mes "We sell all art related things here~";
+	next;
+	switch(select("Paint!?:Where's the manager?")) {
+	case 1:
+		mes "[Max]";
+		mes "You are asking for paint?";
+		mes "Could you just ask them to get the paint?~";
 		close;
-	}
-	// Not sure if this is correct either...
-	if ((MaxWeight - Weight) < 1000) {
-		mes "Sorry, but you're overweight.";
-		mes "Please store some of your items first.";
+	case 2:
+		mes "[Max]";
+		mes "There's our manager.";
+		mes "Right over there.";
+		mes "**points**";
+		mes "Are you blind?";
 		close;
 	}
-	if (job_sha == 27) {
-		mes "So, do you want me to keep talking about Shadow Chasers?";
-		next;
-		switch(select("What is a Shadow Chaser?:Change me to Shadow Chaser.:I'll come back later.")) {
-			case 1:
-				mes "[Dumk]";
-				mes "Most spells are exclusively for Wizards and their kind.";
-				mes "But Knight has since been able to use a kind of magic with things called Runes.";
-				next;
-				mes "[Dumk]";
-				mes "So we tried finding a medium for spells that suit our characteristics.";
-				next;
-				mes "[Dumk]";
-				mes "So finally...";
-				mes "We found paint!";
-				next;
-				mes "[Dumk]";
-				mes "Paint gives us lots of feelings.";
-				mes "We can feel peaceful and happy or it can give us feelings of sorrow and fear.";
-				next;
-				mes "[Dumk]";
-				mes "We use that to harness the different emotions of people and exploit them when they're most vulnerable.";
-				next;
-				mes "[Dumk]";
-				mes "The effects on our enemies are similar to that of magic spells.";
-				next;
-				mes "[Dumk]";
-				mes "For instance, this power could be used to create blackholes to make your enemies vanish.";
-				next;
-				mes "[Dumk]";
-				mes "So if you want to have that power then you must have artistry.";
-				next;
-				mes "[Dumk]";
-				mes "You have to be a trendsetter when it comes to fashion!";
-				mes "The ability to understand art!";
-				mes "You should have everything.";
-				next;
-				select("Then what is the Master Brush?");
-				mes "[Dumk]";
-				mes "Ah?";
-				mes "That was a brush who was a master of dark arts.";
-				mes "Now we are looking for someone who can be Shadow Chaser.";
-				next;
-				mes "[Dumk]";
-				mes "This is kind of game.";
-				mes "If there is someone who wants to become a Shadow Chaser,";
-				mes "we just look the process to find this brush.";
-				next;
-				mes "[Dumk]";
-				mes "We put the codes to make sure that you can think outside of the box.";
-				mes "Did you have fun?";
-				close;
-			case 2:
-				mes "[Dumk]";
-				mes "You decided!";
-				mes "As your case, you can master the art of psychological warfare using paint!";
-				mes "The art created is beautiful but dangerous.";
-				next;
-				mes "[Dumk]";
-				mes "We use paint as a medium for spells.";
-				mes "We use that to harness the different emotions of people and exploit them when they're most vulnerable.";
-				next;
-				mes "[Dumk]";
-				mes "For instance, this power could be used to create blackholes to make your enemies vanish.";
-				next;
-				mes "[Dumk]";
-				mes "So if you want to have that power then you must have artistry.";
-				next;
-				mes "[Dumk]";
-				mes "You have to be a trendsetter when it comes to fashion!";
-				mes "The ability to understand art!";
-				mes "You should have everything.";
-				next;
-				mes "[Dumk]";
-				mes "You performed your duties diligently and found the brush.";
-				mes "So you are qualified to be a Shadow Chaser.";
-				next;
-				jobchange roclass(eaclass()|EAJL_THIRD);
-				set JobLevel, 1;
-				nude;
-				getitem 6121,1;
-				getitem 6122,1;
-				getitem 2795,1;
-				getitem 5750,1;
-				delitem 6269,1;
-				mes "[Dumk]";
-				mes "Congratulations.";
-				mes "Welcome to your new life.";
-				completequest 7180;
-				set job_sha,28;
-				next;
-				mes "[Dumk]";
-				mes "It's a fashionable uniform.";
-				mes "It uses patterns of leopard and feathers.";
-				mes "The fashion world will be shocked.";
-				next;
-				mes "[Dumk]";
-				mes "This shadow peacock I designed myself.";
-				mes "It's too hard to create something that absorbs my art sense.";
-				mes "Then about this part...";
-				next;
-				mes "Dumk keeps talking about fashion, art sense, paint and feeling.";
-				mes "He's obviously in his own world.";
-				next;
-				select("About this brush...");
-				mes "[Vicente]";
-				mes "Ah, I'll explain.";
-				mes "We need tools for painting.";
-				next;
-				mes "[Vicente]";
-				mes "The make-up brush is used for face painting.";
-				mes "You can get paint from the workplace.";
-				next;
-				mes "[Vicente]";
-				mes "The paint brush is used for painting big spaces.";
-				mes "You can get paint from the workplace too.";
-				next;
-				mes "[Vicente]";
-				mes "Don't you remember the location of the workplace?";
-				mes "Juno, Prontera, Rachel and Lighthalzen.";
-				next;
-				mes "[Vicente]";
-				mes "If you need paint, go to an assistant.";
-				mes "^aaaaffIf you don't have any tools, you can use skill needed paints.^000000";
-				next;
-				mes "[Vicente]";
-				mes "Congratulations to be our person.";
-				close;
-			case 3:
-				mes "[Dumk]";
-				mes "What?";
-				mes "Why not?";
-				mes "You don't want to be a Shadow Chaser?";
-				mes "I can teach you so much about painting.";
-				next;
-				mes "[Dumk]";
-				mes "You really won't understand until you become one.";
-				next;
-				mes "[Dumk]";
-				mes "Don't you want to learn how to harness a power stronger than what you know?";
-				mes "....";
-				next;
-				mes "Dumk seemed to be disappointed that you didn't answer him.";
-				close;
-		}
-	}
-	mes "It's you? You are the one who found the brush?";
-	next;
-	select("Show the brush to him.");
-	mes "[Dumk]";
-	mes "That's it.";
-	mes "Did you find it by yourself?";
-	next;
-	switch(select("Yes.:With my friends.")) {
-		case 1:
-			mes "[Dumk]";
-			mes "Hmm...";
-			mes "You have a high ability.";
-			mes "Breaking the codes should have been tough.";
-			mes "But it wasn't for you.";
-			next;
-			break;
-		case 2:
-			mes "[Dumk]";
-			mes "Hmm...";
-			mes "That's your other skill.";
-			mes "People who have no friends must be lonely.";
-			next;
-			mes "[Dumk]";
-			mes "To us, relationships are very important.";
-			mes "You get more people, you get more help.";
-			next;
-			break;
-		}
-	mes "[Dumk]";
-	mes "It's time to introduce myself.";
-	mes "I'm Dumk.";
-	next;
-	select("You are.....");
-	mes "[Vicente]";
-	mes "Chicken! How about the chicken for this supper?";
-	next;
-	mes "[Dumk]";
-	mes "Why chicken?";
-	mes "Why are you interrupting?";
-	mes "You wanna be fired?";
-	next;
-	mes "[Vicente]";
-	mes "Sorry...";
-	mes "(He turns to you and says it's taboo to talk about chicken.)";
-	next;
-	mes "[Dumk]";
-	mes "Anyway, let's make a point.";
-	mes "You.";
-	mes "Will you yield to the will of the brush?";
-	next;
-	select("Yield to? What?");
-	mes "[Dumk]";
-	mes "This brush was used by the master.";
-	mes "Paintings by him have mysterious power.";
-	next;
-	mes "[Dumk]";
-	mes "I can't tell you the root of the power.";
-	mes "Someday you will find out.";
-	mes "He sublimates power through the medium of his paintings.";
-	next;
-	select("I don't get it...?");
-	mes "[Dumk]";
-	mes "We walk in darkness without moonlight.";
-	mes "And find out our shining days are over.";
-	next;
-	mes "[Dumk]";
-	mes "We follow to other shadows and we can be real Shadow Chasers!";
-	next;
-	select("What are you talking about?");
-	mes "[Vicente]";
-	mes "So, he suggests that you become a Shadow Chaser.";
-	next;
-	mes "[Vicente]";
-	mes "In out guild, there is a special group that have unique skills.";
-	mes "They are Shadow Chasers.";
-	mes "They usually hide their figure and they think they are different from others.";
-	next;
-	mes "[Dumk]";
-	mes "Don't be so sarcastic, Vicente!";
-	mes "I told you.";
-	mes "You are qualified to be a Shadow Chaser!";
-	next;
-	mes "[Dumk]";
-	mes "Give that brush to me.";
-	mes "I need it again.";
-	mes "I'm so thirsty.";
-	mes "Wait a minute.";
-	set job_sha,27;
-	close;
 }
 
-s_atelier,29,119,3	script	Max#H-13	97,{
-	mes "[Max]";
-	mes "Welcome~";
+s_atelier,136,70,3	script	Titika#sc09_ra	914,{
+	mes "[Titika]";
+	mes "Welcome.";
 	if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
-		mes "You are a member of the Rogue guild!";
+		mes "You are in a guild.";
 		mes "What can I help you with?";
 		next;
-		switch(select("I need a make-up brush.:I need a paint brush.:Nothing.")) {
-			case 1:
-				set .@i,1;
-			case 2:
-				mes "[Max]";
-				if (countitem(6122-.@i)) {
-					mes "Are you kidding me?";
-					mes "you already have it? you don't need anything else.";
-					next;
-					mes "[Max]";
-					mes "Visit later and use what you have!";
-					close;
-				}
-				mes "Here's your item.";
-				getitem (6122-.@i),1;
-				close;
-			case 3:
-				mes "[Max]";
-				mes "If you need more,";
-				mes "just visit me!";
-				close;
+		set .@i, select("Make a new make-up brush.:Make a new paint brush.:Nothing.");
+		mes "[Titika]";
+		if (.@i == 1) setarray .@i[1],6121,1,10,100000;
+		else if (.@i == 2) setarray .@i[1],6122,2,30,200000;
+		else {
+			mes "Visit me again.";
+			close;
 		}
-	}
-	mes "We sell all art related things here~";
-	next;
-	switch(select("Paint!?:Where's the manager?")) {
-		case 1:
-			mes "[Max]";
-			mes "You are asking for paint?";
-			mes "Could you just ask them to get the paint?~";
+		if (countitem(.@i[1])) {
+			mes "You already have a paint brush?";
+			mes "I think it's enough...";
 			close;
-		case 2:
-			mes "[Max]";
-			mes "There's our manager.";
-			mes "Right over there.";
-			mes "**points**";
-			mes "Are you blind?";
+		}
+		if (countitem(7150) >= .@i[2] && countitem(949) >= .@i[3] && Zeny >= .@i[4]) {
+			mes "You brought all the materials.";
+			mes "I'll exchange it with the goods that I made.";
+			delitem 7150,.@i[2]; //Bamboo_Cut
+			delitem 949,.@i[3]; //Feather
+			set Zeny, Zeny - .@i[4];
+			getitem .@i[1],1; //Makeover_Brush,Paint_Brush
 			close;
+		}
+		mes "To make a paint brush,";
+		mes "you need "+.@i[2]+" Bamboo Cut,";
+		mes .@i[3]+" Feathers,";
+		mes "and "+.@i[0]+"00,000 zeny.";
+		close;
+	}
+	mes "This is the Shadow Chaser workplace~";
+	next;
+	switch(select("Where is the paint?:Where is the manager?")) {
+	case 1:
+		mes "[Titika]";
+		mes "You mean paint?";
+		mes "Talk to the assistant and ask about the paint tool.";
+		close;
+	case 2:
+		mes "[Titika]";
+		mes "My manager is inside of the workplace.";
+		mes "If you visit him without a special reason, he will ignore you.";
+		close;
 	}
 }
 
-s_atelier,124,128,3	script	RimiGX#H-14	862,{
+s_atelier,124,128,3	script	RimiGX#sc07_yuno	862,{
 	mes "[RimiGX]";
 	mes "Welcome.";
 	if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
 		mes "What are you looking for?";
 		next;
-		switch(select("Make a new blush for make-up.:Make a new blush for painting:Nothing.")) {
-			case 1:
-				set .@i,1;
-			case 2:
-				mes "[RimiGX]";
-				if (countitem(6122-.@i)) {
-					mes "I can't offer extra stuff.";
-					mes "Visit here when you've lost stuff.";
-					close;
-				}
-				mes "Here's your item.";
-				getitem (6122-.@i),1;
-				close;
-			case 3:
-				mes "[RimiGX]";
-				mes "Visit me again.";
-				close;
+		set .@i, select("Make a new blush for make-up.:Make a new blush for painting.:Nothing.");
+		mes "[RimiGX]";
+		if (.@i == 1) setarray .@i[1],6121,1,10,100000;
+		else if (.@i == 2) setarray .@i[1],6122,2,30,200000;
+		else {
+			mes "Visit me again.";
+			close;
 		}
-	}
-	mes "It's the shadow workplace~";
-	next;
-	switch(select("Where is the paint?:Where is the manager?")) {
-		case 1:
-			mes "[RimiGX]";
-			mes "Paint?";
-			mes "Ask an assistant that works over there.";
+		if (countitem(.@i[1])) {
+			mes "I can't offer extra stuff.";
+			mes "Visit here when you lost stuff.";
 			close;
-		case 2:
-			mes "[RimiGX]";
-			mes "Manager? He's in inside the workplace.";
-			mes "But when you visit him, you should have something to tell him...";
+		}
+		if (countitem(7150) >= .@i[2] && countitem(949) >= .@i[3] && Zeny >= .@i[4]) {
+			mes "You brought stuff you need.";
+			mes "It will be fast when I exchange the stuff made?";
+			delitem 7150,.@i[2]; //Bamboo_Cut
+			delitem 949,.@i[3]; //Feather
+			set Zeny, Zeny - .@i[4];
+			getitem .@i[1],1; //Makeover_Brush,Paint_Brush
 			close;
+		}
+		mes "For blush to "+((.@i[0] == 1)?"make up":"paint");
+		mes "you need "+.@i[2]+" Bamboo Cut,";
+		mes .@i[3]+" Feather, and "+.@i[0]+"00,000 zeny.";
+		close;
 	}
-}
-
-s_atelier,136,70,3	script	Titika#H-15	914,{
-	mes "[Titika]";
-	mes "Welcome~";
-	if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
-		mes "You are in a guild.";
-		mes "What can I help you with?";
-		next;
-		switch(select("Make a new make-up brush.:Make a new paint brush.:Nothing.")) {
-			case 1:
-				set .@i,1;
-			case 2:
-				mes "[Titika]";
-				if (countitem(6122-.@i)) {
-					mes "You already have a paint brush?";
-					mes "I think it's enough...";
-					close;
-				}
-				mes "Here's your item.";
-				getitem (6122-.@i),1;
-				close;
-			case 3:
-				mes "[Titika]";
-				mes "Visit me again.";
-				close;
-			}
-	}
-	mes "This is the Shadow Chaser workplace~";
+	mes "It's the shadow workplace~";
 	next;
 	switch(select("Where is the paint?:Where is the manager?")) {
-		case 1:
-			mes "[Titika]";
-			mes "You want paint?";
-			mes "Talk to the assistant and ask about the paint tool.";
-			close;
-		case 2:
-			mes "[Titika]";
-			mes "My manager is inside the workplace.";
-			mes "If you visit him without a special reason, he will ignore you.";
-			close;
+	case 1:
+		mes "[RimiGX]";
+		mes "Paint?";
+		mes "Ask an assistant who works over there.";
+		close;
+	case 2:
+		mes "[RimiGX]";
+		mes "Manager? He's in inside of the workplace.";
+		mes "But when you visit him, you should have something to tell him....";
+		close;
 	}
 }
-	
-s_atelier,26,68,3	script	Vito#H-16	904,{
+
+s_atelier,26,68,3	script	Vito#sc11_lgt	904,{
 	mes "[Vito]";
 	mes "Welcome.";
 	if (Class == Job_Shadow_Chaser || Class == Job_Shadow_Chaser_T || Class == Job_Baby_Chaser) {
 		mes "What are you looking for?";
 		next;
-		switch(select("Make a new brush for make-up.:Make a new brush for painting.:Nothing.")) {
-			case 1:
-				set .@i,1;
-			case 2:
-				mes "[Vito]";
-				if (countitem(6122-.@i)) {
-					mes "We offer only one brush per person.";
-					mes "We can't give out extra brushes.";
-					close;
-				}
-				mes "[Vito]";
-				mes "Here's your item.";
-				getitem (6122-.@i),1;
-				close;
-			case 3:
-				mes "[Vito]";
-				mes "Whenever you need a brush, visit me.";
-				mes "See you!";
-				close;
-			}
+		set .@i, select("Make a new blush for make-up.:Make a new blush for painting.:Nothing.");
+		mes "[Vito]";
+		if (.@i == 1) setarray .@i[1],6121,1,10,100000;
+		else if (.@i == 2) setarray .@i[1],6122,2,30,200000;
+		else {
+			mes "Whenever you need a blush, visit me.";
+			mes "See you!";
+			close;
+		}
+		if (countitem(.@i[1])) {
+			mes "We offer only one blush to each person.";
+			mes "We can't offer extra blushes.";
+			close;
+		}
+		if (countitem(7150) >= .@i[2] && countitem(949) >= .@i[3] && Zeny >= .@i[4]) {
+			mes "You brought all what you need.";
+			mes "I'm going to exchange the blush I made before.";
+			delitem 7150,.@i[2]; //Bamboo_Cut
+			delitem 949,.@i[3]; //Feather
+			set Zeny, Zeny - .@i[4];
+			getitem .@i[1],1; //Makeover_Brush,Paint_Brush
+			close;
+		}
+		mes "For blush to "+((.@i[0] == 1)?"make up":"paint");
+		mes "you need "+.@i[2]+" Bamboo Cut,";
+		mes .@i[3]+" Feather, and "+.@i[0]+"00,000 zeny.";
+		close;
 	}
 	mes "It's the shadow workplace.";
 	next;
@@ -2343,7 +2483,24 @@ s_atelier,26,68,3	script	Vito#H-16	904,{
 	}
 }
 
+// Warp Portal
+//============================================================
+tha_t01,149,228,0	script	#shadowc02	45,2,2,{
+	end;
+OnTouch:
+	mes "You can feel weird power.";
+	if (BaseJob == Job_Rogue && job_sha == 27) {
+		mes "You are getting dizzy.";
+		close2;
+		warp "job3_sha01",71,36;
+		end;
+	}
+	mes "You don't know what it is.";
+	close;
+}
+
 // Quest Mob Spawn
-tur_dun03,0,0,0,0	monster	Shadow of Deception	2076,1,0,0
-ice_dun02,0,0,0,0	monster	Shadow of Illusion	2077,1,0,0
-niflheim,0,0,0,0	monster	Shadow of Pleasure	2078,1,0,0
\ No newline at end of file
+//============================================================
+tur_dun03,0,0,0,0	monster	Shadow of Deception	2076,1,1000,0,0
+ice_dun02,0,0,0,0	monster	Shadow of Illusion	2077,1,1000,0,0
+niflheim,0,0,0,0	monster	Shadow of Pleasure	2078,1,1000,0,0
\ No newline at end of file