//===== rAthena Script ======================================= 
//= Shadow Chaser Job Quest
//===== By: ================================================== 
//= Muad_Dib
//===== Current Version: ===================================== 
//= 1.4
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= [Official Conversion]
//= Job change Quest from Rogue / Stalker -> Shadow Chaser.
//===== Additional Comments: ================================= 
//= 1.0 First Version. [ultragunner, Oshinoke]
//= 1.1 Standardized. [Euphy]
//= 1.2 Updated dialogue. [Joseph]
//= 1.3 Updated to official script. [Euphy]
//= 1.4 Added VIP features. [Euphy]
//============================================================

morocc,156,70,3	script	Girl#sc00	93,3,3,{
	mes "[Girl]";
	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 "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 "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,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) {
		if (getserverdef(VAR_VIP_SCRIPT)) {
			callfunc "VIP_Third_Class";
			set job_sha,2;
			setquest 7160;
			next;
		}
		mes "[Urupa]";
		mes "We give a quiz and nobody has yet to solve it.";
		mes "You want it to be solved?";
		mes "This is a code.";
		mes "Look at it.";
		next;
		mes "- The message is -";
		mes "- written in a cipher. -";
		mes "The mission seems to be to break the code...";
		next;
		mes "[Urupa]";
		mes "This is the code.";
		mes "It is just numbering a cipher to make the message make sense.";
		mes "For example...";
		next;
		callsub L_Code,1;
		mes "[Urupa]";
		mes "Now here's what needs to be to solved.";
		mes "Decipher the code and go where it tells you...";
		next;
		callsub L_Code,2;
		next;
		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 == 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;
			callsub L_Code,2;
			close;
		}
	} else if (job_sha > 2 && job_sha < 31) {
		mes "[Urupa]";
		mes "Ok, have you solved it yet?";
		mes "Good luck!";
		close;
	} else if (job_sha == 31) {
		mes "[Urupa]";
		mes "You have just become a Shadow Chaser.";
		mes "The quizzes are for collecting the right people...";
		close;
	}
	mes "[Urupa]";
	mes "Nothing special?";
	mes "As you see... I am ok here!";
	close;
L_Code:
	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!";
		next;
		mes "[Urupa]";
		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 ?";
		next;
	} else {
		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?";
		mes "If you visit there, you might be surprised...";
	}
	return;
}

s_atelier,65,123,5	script	Manager#sc04_prt	903,{
	if (job_sha == 2) {
		mes "[Manager]";
		mes "Where's Max!?";
		mes "Damn, there're so many strangers around.";
		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 .@inputstr$;
			if (.@inputstr$ == "shadows atelier in prontera" || .@inputstr$ == "SHADOWS ATELIER IN PRONTERA") {
				mes "[Manager]";
				mes "Good.";
				mes "You just got it.";
				mes "Then why have you come over here?";
				next;
				select("The code says here's the one...");
				mes "[Manager]";
				mes "So you are the one.";
				mes "Could you wait for a sec'?";
				set job_sha,3;
				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 "[Manager]";
		mes "Now let me introduce myself to you!";
		mes "I am Graham, the manager of this shadow gallery...";
		next;
		mes "[Graham]";
		mes "You may have already guessed.";
		mes "This is an additional facility for rogues.";
		mes "We adopt things like art and other historical stuff.";
		next;
		mes "[Graham]";
		mes "These things are illegal.";
		mes "Such things you guys bring us from historical places...";
		mes "Ok.";
		next;
		mes "[Graham]";
		mes "So we've got to know things like...";
		mes "special codes and information where the treasures are.";
		next;
		mes "[Graham]";
		mes "We need you guys...";
		mes "So we've asked assistance from the Rogue guild.";
		next;
		select("Any other places you guys work?");
		mes "[Graham]";
		mes "Ah, yes...";
		mes "We are in Prontera, Juno, Rachel, and Lighthalzen.";
		mes "Ok?";
		next;
		mes "[Graham]";
		mes "Anyway....";
		mes "We all really want to know where the treasures are.";
		mes "So the code is to break into each of those places.";
		next;
		mes "[Graham]";
		mes "You seem like the right one.";
		mes "So I will give you the code.";
		mes "Please find the treasure!";
		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.";
			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,0;
			close;
		}
	} 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;
			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?";
		next;
		select("Show him the key.");
		mes "[Graham]";
		mes "Deception!";
		mes "You are deceiving me!";
		next;
		mes "[Graham]";
		mes "This is all?";
		mes "Only one key.";
		mes "How deceptive!";
		mes "Just as I thought, it's a kind of treasure.";
		next;
		mes "[Graham]";
		mes "You just gave me a shock.";
		mes "Ok...";
		mes "The code is kept in galleries.";
		next;
		mes "[Graham]";
		mes "Ok there's more galleries than this one...";
		mes "Juno and Rachel have the codes...";
		next;
		mes "[Graham]";
		mes "This is just what I was guessing.";
		mes "The codes kept by other galleries aren't treasures at all...";
		next;
		mes "[Graham]";
		mes "Go to Rachel...";
		next;
		mes "[Graham]";
		mes "Find the gallery in Rachel...";
		mes "Tell 'em that you just came from Graham and ask for the code.";
		next;
		mes "[Graham]";
		mes "Ok?";
		mes "Then go there!";
		set job_sha,9;
		changequest 7165,7166;
		close;
	} else if (job_sha == 9) {
		mes "[Graham]";
		mes "There're four galleries...";
		mes "Prontera, Rachel, Juno, and Lighthalzen.";
		next;
		mes "[Graham]";
		mes "One of the codes kept by the galleries is already deciphered.";
		mes "It's just one key....";
		next;
		mes "[Graham]";
		mes "But here's what I am guessing.";
		mes "The codes are linked to each other.";
		mes "And the purpose is different for each one.";
		next;
		mes "[Graham]";
		mes "For example...";
		mes "If one is just a key then the others are things requiring the key.";
		next;
		mes "[Graham]";
		mes "The key must be for opening the box.";
		mes "Can you guess what's inside?";
		next;
		select("Umm, treasure?");
		mes "[Graham]";
		mes "YES.";
		mes "That's why we're here!";
		next;
		mes "[Graham]";
		mes "People think that we are just trading the stuff...";
		mes "But we are here for very special things.";
		next;
		mes "[Graham]";
		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 > 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.";
		close;
	} else if (job_sha > 29) {
		mes "[Graham]";
		mes "Shadow Chaser!!";
		mes "Ah!";
		next;
		mes "[Graham]";
		mes "It's not intentionally decieving...";
		mes "Hahaha!!";
		next;
		mes "[Graham]";
		mes "Isn't it interesting?";
		mes "It's more than just taking exams.";
		mes "We got to know about you and figured out who you are.";
		next;
		mes "[Graham]";
		mes "How's my acting?";
		mes "It worked?";
		next;
		mes "[Graham]";
		mes "If you need anything just ask them what you want.";
		close;
	}
	mes "[Manager]";
	mes "Only allowed for people involved...";
	mes "Could you ask the clerk at the shop?";
	close;
L_Code:
	mes "-note.";
	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 key 0.";
	next;
	mes "[Graham]";
	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]";
	mes "Look at this... C = 3.";
	mes "C is the third letter right?";
	next;
	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.";
	next;
	if (getarg(0)) return;
	mes "[Graham]";
	mes "Now let's move on to the mission.";
	mes "Here's the cipher...";
	next;
	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;
	erasequest 7160;
	if (.@key01 == 3) setquest 7161;
	else if (.@key01 == 4) setquest 7162;
	else if (.@key01 == 5) setquest 7163;
	next;
	mes "[Graham]";
	mes "Just take it.";
	mes "I have a bad memory.";
	mes "You have all the information so you are on your own now.";
	next;
	mes "[Graham]";
	mes "Once you get something come over here.";
	next;
	mes "- You take the memo from Graham.";
	mes "Don't forget it! -";
	close;
}

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!";
			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 "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 "[Paul]";
				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:
			callsub L_Code,7167;
			close;
		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;
		}
	} else if (job_sha > 10 && job_sha < 14) {
		mes "[Paul]";
		mes "I've already given you all the info you need.";
		next;
		mes "[Paul]";
		mes "I've given you one more clue.";
		mes "Isn't it enough?";
		next;
		mes "[Paul]";
		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 > 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 am dying to wait for you.";
		mes "So what did you find out?";
		next;
		select("I found the key.:Hmm...");
		mes "- You hand over the 'Illusion Key' that you found in the ice cave. -";
		next;
		mes "[Paul]";
		mes "Illusion! Haha!";
		mes "After deception is illusion!";
		mes "So are you lying to me?";
		next;
		mes "[Paul]";
		mes "I can feel how Graham felt it...";
		mes "We don't dare to get that tiny key...";
		next;
		mes "[Paul]";
		mes "The young guy in Lighthalzen is quite challenging to deal with...";
		mes "So we'd better request assistance from Haled...";
		next;
		mes "[Paul]";
		mes "Hey...";
		mes "If you go to Juno...";
		mes "There's a gallery...";
		next;
		mes "[Paul]";
		mes "So could you ask him to get the password?";
		mes "Hmm...";
		next;
		mes "[Paul]";
		mes "I feel like the red hair guy in the main gallery is teasing me...";
		mes "Anyway...";
		mes "So I really like to know the password and the identity of the key...";
		next;
		mes "[Paul]";
		mes "If Haled isn't supportive...";
		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 == 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 ^4d4dffI know what you did last summer!^000000";
		close;
	} 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 == 30) {
		mes "[Paul]";
		mes "Now I almost guessed what would happen later...";
		mes "It can't have happened!";
		next;
		mes "[Paul]";
		mes "Are you shocked?";
		mes "Don't think worse.";
		mes "You could get a good person.";
		mes "Hahaha...";
		close;
	}
	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;
	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,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]";
		mes "Hmm? I'm the manager of this workplace in Juno. What's the matter?";
		next;
		mes "[Haled]";
		mes "Hmm. You were sent by Graham and Paul?";
		mes "I thought that you just came here to beg for money with fossil pieces.";
		next;
		mes "[Haled]";
		mes "It's a classic way that poor scholars use.";
		mes "Sometimes I buy good stuff so some people know that this is a pawnshop.";
		next;
		mes "[Haled]";
		mes "Let me hear your story.";
		next;
		mes "- You explain everything so far and show the key of arrogance. -";
		next;
		mes "[Haled]";
		mes "So...";
		mes "I totally understand.";
		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?";
		next;
		mes "[Haled]";
		mes "We will investigate Juno's workplace, so give it to me?";
		next;
		mes "- Haled doesn't want to cooperate with you.";
		mes "Remember what Paul said. -";
		next;
		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 "How about you just hand over that key to me?";
		next;
		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.";
		mes "You need to know where the place with the code is?";
		next;
		mes "[Haled]";
		mes "I don't have a choice.";
		mes "Listen carefully to this poem.";
		next;
		mes "[Haled]";
		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?";
		mes "You know where it is right?";
		mes "It's only my opinion, but...";
		mes "It can't be possible...";
		next;
		mes "[Haled]";
		mes "Anyway, if you want to do it, go ahead.";
		mes "If you know what this poem means.";
		next;
		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 == 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 "^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;
	} else if (job_sha > 21 && job_sha < 25) {
		mes "[Haled]";
		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 "Did you find something?";
		next;
		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 == 26) {
		mes "[Haled]";
		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 > 26 && job_sha < 30) {
		mes "[Haled]";
		mes "Hey, you!";
		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 == 30) {
		mes "[Haled]";
		mes "Hey, you!";
		mes "What's going on?";
		mes "What? Shadow Chaser?";
		next;
		mes "[Haled]";
		mes "Did I know that fact?";
		mes "Sure. I heard a little bit before";
		mes "I used to do work like this.";
		next;
		mes "[Haled]";
		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;
	}
	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_Code:
	mes "["+strcharinfo(0)+"]";
	mes "Paul said...";
	next;
	input .@inputstr$;
	mes "["+strcharinfo(0)+"]";
	mes "Paul said...";
	mes "'"+.@inputstr$+"' .";
	next;
	if (.@inputstr$ == "I know what you did last summer!") {
		mes "[Haled]";
		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;
	}
	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;
	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;
}

// 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 .@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 "^4d4dff"+.@inputstr$+"^000000";
		mes "It's clearly pointing to this.";
		next;
		mes "You just murmur the sentence when the flame begins growing.";
		next;
		mes "[Unknown voice]";
		mes "Hm? Someone is coming?";
		mes "You are the one who wants to have my treasure?";
		mes "But your limitation is over.";
		next;
		mes "The flame is talking.";
		mes "The voice is snake-like.";
		mes "In the middle of blue flame, there are two marble eyes.";
		next;
		select("Pick it up.");
		mes "[Unknown voice]";
		mes "You are in a hurry.";
		mes "Hahaha, humans usually do things like that.";
		mes "They can't see the truth.";
		next;
		mes "[Unknown voice]";
		mes "How about you?";
		mes "I don't expect that you will do harm to this blue flame.";
		mes "It's the only one with two...";
		next;
		select("Who are you?");
		mes "[Shadow of Deception]";
		mes "Me? I'm a deception.";
		mes "I sneer at people who are stupid.";
		mes "I laugh behind their backs.";
		mes "HahaHaha...";
		next;
		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 "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.";
			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.";
		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;
	}
	mes "The flame is rolling.";
	close;
}

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;
		mes "[Woman in black]";
		mes "Can you hear me?";
		mes "Huhu.";
		mes "Can you see me?";
		next;
		mes "[Woman in black]";
		mes "You are the chosen one?";
		mes "You can know that.";
		mes "There is a soul that is the same as me.";
		next;
		mes "[Woman in black]";
		mes "I'm a shadow.";
		mes "A wandering shadow.";
		mes "Sad soul.";
		mes "A shadow of illusion without truth.";
		next;
		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 == 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;
			warp "job3_sha01",22,33;
			end;
		}
		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 "The flame is rolling.";
	mes "You can't see well because of the light of ice.";
	close;
}

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.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "The end of living tree's roots.";
		mes "Tears of all living people.";
		mes "Sign of all dead people.";
		next;
		mes "["+strcharinfo(0)+"]";
		mes "They are us but also not us.";
		next;
		mes "[Someone's voice]";
		mes "They are us but also not us.";
		next;
		mes "[Someone's voice]";
		mes "Residents of the night forgotten...";
		next;
		select("Who is playing that?");
		mes "[Someone's voice]";
		mes "Who is playing the waltz of desperation?";
		mes ".....";
		next;
		mes "[Someone's voice]";
		mes "Ha...";
		mes "You came here to dig the secret of death.";
		mes "Can you play the waltz of death for me?";
		next;
		mes "[Someone's voice]";
		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.";
		mes "I show that best of the pleasure in this world.";
		mes "Illusions such that you don't want to be awaken from the dream.";
		next;
		mes "[Shadow of Pleasure]";
		mes "The soul got tangled by cold chains";
		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";
		mes "escape from here!";
		next;
		mes "[Shadow of Pleasure]";
		mes "Can you stifle me with two hands?";
		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";
		mes "the last pleasure.";
		next;
		mes "[Shadow of Pleasure]";
		mes "Show me the";
		mes "sweet death.";
		next;
		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 == 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,23;
			erasequest 7175;
			close2;
			warp "job3_sha01",73,87;
			end;
		}
		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;
	}
	mes "There is a flame.";
	mes "You can't feel anything from it.";
	close;
}

// 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;
	}
	if (job_sha == 7) {
		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;
		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 " ";
		mes " ";
		mes " "+.@i;
		next;
		mes "";
		mes "";
		mes " "+.@Codes1$[.@i];
		next;
		mes "It shows some letters and numbers.";
		mes " ";
		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!";
		mes "Ah, something is showing up again...?";
		next;
		mes "- You can see some letters on the turtle's shell. -";
		next;
		mes " ";
		mes "HONESTY";
		mes " ";
		mes "And also letters. They are blinking as if waiting for a code to be input.";
		next;
		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;
			mes "- You get the Key of Deception. -";
			set job_sha,8;
			getitem 6266,1; //Cheat_Key
			setquest 7165;
			close;
		}
		mes "- You put the answer -";
		mes "- but it doesn't work. -";
		mes "- You have failed. -";
		close;
	}
	mes "You don't have to stay in here.";
	next;
	if(select("Go outside.:Stay here.") == 1)
		warp "tur_dun03",40,201;
	close;
}

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)+"]";
		mes "I guess I have to put the number in the empty space...";
		mes "I have two empty squares to put two numbers.";
		mes "What will it be good for?";
		next;
		select("I think it's related with the word given by Paul.");
		mes "["+strcharinfo(0)+"]";
		mes "I got "+.@Words$[.@i]+".";
		mes "Now I have to convert it into a number...";
		next;
		switch(select("Input the answer.:I can't get it.")) {
		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 "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 "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;
		}
	}
	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,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 "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 "...";
		}
		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 .@inputstr$;
		if (.@inputstr$ == "turn and shake" || .@inputstr$ == "TURN AND SHAKE") {
			mes "["+strcharinfo(0)+"]";
			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 but";
						mes "nothing happens.";
						next;
						mes "["+strcharinfo(0)+"]";
						mes "That's not it.";
						mes "Hmm...";
						next;
						break;
					case 2:
						mes "You tried to shake the house but";
						mes "it doesn't do anything.";
						next;
						mes "["+strcharinfo(0)+"]";
						mes "It's wrong.";
						mes "Put it back";
						mes "and try it again.";
						next;
						break;
					}
					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.";
						mes "You think there is something inside, but it won't come out.";
						next;
						mes "["+strcharinfo(0)+"]";
						mes "That's not it.";
						mes "Hmm...";
						next;
						break;
					case 3:
						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...";
						next;
						break;
					case 4:
						mes "Rolling it upside down causes something inside to move.";
						next;
						mes "You shake it slowly.";
						mes "You can hear some noise.";
						mes "Something's coming out.";
						next;
						mes "- You got the Key of Pleasure. -";
						next;
						mes "["+strcharinfo(0)+"]";
						mes "What? A key again!";
						mes "Haled will be disappointed.";
						mes "I better 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;
				}
			}
		}
		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 to go outside.";
	close2;
	warp "niflheim",230,270;
	end;
}

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";
			mes "something comes out.";
			next;
			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 "This isn't treasure!!!";
			next;
			mes "["+strcharinfo(0)+"]";
			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 ^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;
}

// 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;
		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;
		}
		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;
		}
		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 "[Max]";
			mes "Here's what you need.";
			next;
			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 "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;
	}
	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;
	case 2:
		mes "[Max]";
		mes "There's our manager.";
		mes "Right over there.";
		mes "**points**";
		mes "Are you blind?";
		close;
	}
}

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 in a guild.";
		mes "What can I help you with?";
		next;
		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;
		}
		if (countitem(.@i[1])) {
			mes "You already have a paint brush?";
			mes "I think it's enough...";
			close;
		}
		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#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;
		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;
		}
		if (countitem(.@i[1])) {
			mes "I can't offer extra stuff.";
			mes "Visit here when you lost stuff.";
			close;
		}
		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;
	}
	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 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#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;
		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;
	switch(select("Where is the paint?:Where is the manager?")) {
	case 1:
		mes "[Vito]";
		mes "Paint?";
		mes "Ask the assistant standing over there.";
		close;
	case 2:
		mes "[Vito]";
		mes "The man standing in front of the counter is the manager.";
		close;
	}
}

// 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,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