* Optimized "3rd Item Seller" script (re\merchants\3rd_trader.txt)

* Optimized Eden Quest lv. 71-85 (re\quests\eden\)
* Deleted a duplicate NPC, bugreport:6564 (re\quests\quests_dicastes.txt)
* Other small fixes

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

3 files changed, 192 insertions, 598 deletions

diff --git a/npc/re/quests/eden/71-85.txt b/npc/re/quests/eden/71-85.txt
index 6ab3d645c..b6b94e81f 100644
--- a/npc/re/quests/eden/71-85.txt
+++ b/npc/re/quests/eden/71-85.txt
@@ -3,7 +3,7 @@
 //===== By: ==================================================
 //= L0ne_W0lf
 //===== Current Version: =====================================
-//= 1.1
+//= 1.2
 //===== Compatible With: =====================================
 //= rAthena SVN
 //===== Description: =========================================
@@ -11,6 +11,7 @@
 //===== Additional Comments: =================================
 //= 1.0 First Version.
 //= 1.1 Some little optimization here and there. [Masao]
+//= 1.2 Optimized. [Euphy]
 //============================================================
 
 moc_para01,44,38,3	script	Mission [71 - 85]	857,{
@@ -33,36 +34,11 @@ moc_para01,44,38,3	script	Mission [71 - 85]	857,{
 			mes "- Dungeon. I will wait for -";
 			mes "- you in front of the -";
 			mes "- western gate. -";
-			next;
-			switch (select("Accept mission.:Decline mission.")) {
-			case 1:
-				if (slv_quest == 2 || slv_quest == 3 || slv_quest == 4 || slv_quest == 5 || slv_quest == 6) {
-					mes "- You are already on -";
-					mes "- another mission. -";
-					mes "- You can't do multiple -";
-					mes "- missions. Finish your -";
-					mes "- current mission first. -";
-					close;
-				}
-				if (checkquest(10102) == -1 || checkquest(10102) == 0) {
-					setquest 10102;
-					set slv_quest,1;
-					mes "- Good. Now go find Meidi -";
-					mes "- at the western gate -";
-					mes "- in Morroc. -";
-					close;
-				}
-				mes "- You are already on -";
-				mes "- or have recently -";
-				mes "- completed a mission. -";
-				mes "- You can't do anymore -";
-				mes "- missions right now. -";
-				close;
-			case 2:
-				mes "- I don't want to do -";
-				mes "- a mission right now. -";
-				close;
-			}
+			callsub L_Quest,10102,1;
+			mes "- Good. Now go find Meidi -";
+			mes "- at the western gate -";
+			mes "- in Morroc. -";
+			close;
 		case 2:
 			mes "- Glast Heim -";
 			mes "- I am Ancellia. -";
@@ -70,35 +46,10 @@ moc_para01,44,38,3	script	Mission [71 - 85]	857,{
 			mes "- hunting monsters -";
 			mes "- in Glast Heim.-";
 			mes "- Please help me. -";
-			next;
-			switch (select("Accept mission.:Decline mission.")) {
-			case 1:
-				if (slv_quest == 1 || slv_quest == 3 || slv_quest == 4 || slv_quest == 5 || slv_quest == 6) {
-					mes "- You are already on -";
-					mes "- another mission. -";
-					mes "- You can't do multiple -";
-					mes "- missions. Finish your -";
-					mes "- current mission first. -";
-					close;
-				}
-				if (checkquest(10103) == -1 || checkquest(10103) == 0) {
-					setquest 10103;
-					set slv_quest,2;
-					mes "- Look for Ancellia. -";
-					mes "- in Geffen. -";
-					close;
-				}
-				mes "- You are already on -";
-				mes "- or have recently -";
-				mes "- completed a mission. -";
-				mes "- You can't do anymore -";
-				mes "- missions right now. -";
-				close;
-			case 2:
-				mes "- I don't want to do -";
-				mes "- a mission right now. -";
-				close;
-			}
+			callsub L_Quest,10103,2;
+			mes "- Look for Ancellia. -";
+			mes "- in Geffen. -";
+			close;
 		case 3:
 			mes "- Juno Area -";
 			mes "- I want to go to Juno, -";
@@ -107,35 +58,10 @@ moc_para01,44,38,3	script	Mission [71 - 85]	857,{
 			mes "- strong for me. Come -";
 			mes "- visit me in Al De Baran. -";
 			mes "- My name is Jeanbai. -";
-			next;
-			switch (select("Accept mission.:Decline mission.")) {
-			case 1:
-				if (slv_quest == 1 || slv_quest == 2 || slv_quest == 4 || slv_quest == 5 || slv_quest == 6) {
-					mes "- You are already on -";
-					mes "- another mission. -";
-					mes "- You can't do multiple -";
-					mes "- missions. Finish your -";
-					mes "- current mission first. -";
-					close;
-				}
-				if (checkquest(10104) == -1 || checkquest(10104) == 0) {
-					setquest 10104;
-					set slv_quest,3;
-					mes "- Look for Jeanbai -";
-					mes "- in Al De Baran. -";
-					close;
-				}
-				mes "- You are already on -";
-				mes "- or have recently -";
-				mes "- completed a mission. -";
-				mes "- You can't do anymore -";
-				mes "- missions right now. -";
-				close;
-			case 2:
-				mes "- I don't want to do -";
-				mes "- a mission right now. -";
-				close;
-			}
+			callsub L_Quest,10104,3;
+			mes "- Look for Jeanbai -";
+			mes "- in Al De Baran. -";
+			close;
 		case 4:
 			mes "- Clock Tower -";
 			mes "- A Clock is the best thing! -";
@@ -143,70 +69,20 @@ moc_para01,44,38,3	script	Mission [71 - 85]	857,{
 			mes "- some monster inside of.-";
 			mes "- the Clock Tower, -";
 			mes "- Risingeter. -";
-			next;
-			switch (select("Accept mission.:Decline mission.")) {
-			case 1:
-				if (slv_quest == 1 || slv_quest == 2 || slv_quest == 4 || slv_quest == 5 || slv_quest == 6) {
-					mes "- You are already on -";
-					mes "- another mission. -";
-					mes "- You can't do multiple -";
-					mes "- missions. Finish your -";
-					mes "- current mission first. -";
-					close;
-				}
-				if (checkquest(10105) == -1 || checkquest(10105) == 0) {
-					setquest 10105;
-					set slv_quest,4;
-					mes "- Look for Risingeter -";
-					mes "- in front of the -";
-					mes "- Clock Tower. -";
-					close;
-				}
-				mes "- You are already on -";
-				mes "- or have recently -";
-				mes "- completed a mission. -";
-				mes "- You can't do anymore -";
-				mes "- missions right now. -";
-				close;
-			case 2:
-				mes "- I don't want to do -";
-				mes "- a mission right now. -";
-				close;
-			}
+			callsub L_Quest,10105,4;
+			mes "- Look for Risingeter -";
+			mes "- in front of the -";
+			mes "- Clock Tower. -";
+			close;
 		case 5:
 			mes "- Localized Islands -";
 			mes "- I need someone who -";
 			mes "- can hunt monsters -";
 			mes "- for Funfi in Alberta. -";
-			next;
-			switch (select("Accept mission.:Decline mission.")) {
-			case 1:
-				if (slv_quest == 1 || slv_quest == 2 || slv_quest == 3 || slv_quest == 4 || slv_quest == 6) {
-					mes "- You are already on -";
-					mes "- another mission. -";
-					mes "- You can't do multiple -";
-					mes "- missions. Finish your -";
-					mes "- current mission first. -";
-					close;
-				}
-				if (checkquest(10106) == -1 || checkquest(10106) == 0) {
-					setquest 10106;
-					set slv_quest,5;
-					mes "- Loof for Funfi -";
-					mes "- in Alberta. -";
-					close;
-				}
-				mes "- You are already on -";
-				mes "- or have recently -";
-				mes "- completed a mission. -";
-				mes "- You can't do anymore -";
-				mes "- missions right now. -";
-				close;
-			case 2:
-				mes "- I don't want to do -";
-				mes "- a mission right now. -";
-				close;
-			}
+			callsub L_Quest,10106,5;
+			mes "- Loof for Funfi -";
+			mes "- in Alberta. -";
+			close;
 		}
 	}
 	mes "- Only members of the -";
@@ -215,6 +91,32 @@ moc_para01,44,38,3	script	Mission [71 - 85]	857,{
 	mes "- Try to find a board -";
 	mes "- that suits your level. -";
 	close;
+L_Quest:
+	next;
+	if(select("Accept mission.:Decline mission.") == 2) {
+		mes "- I don't want to do -";
+		mes "- a mission right now. -";
+		close;
+	}
+	if (slv_quest && slv_quest != getarg(1)) {
+		mes "- You are already on -";
+		mes "- another mission. -";
+		mes "- You can't do multiple -";
+		mes "- missions. Finish your -";
+		mes "- current mission first. -";
+		close;
+	}
+	if (checkquest(getarg(0)) <= 0) {
+		setquest getarg(0);
+		set slv_quest,getarg(1);
+		return;
+	}
+	mes "- You are already on -";
+	mes "- or have recently -";
+	mes "- completed a mission. -";
+	mes "- You can't do anymore -";
+	mes "- missions right now. -";
+	close;
 }
 
 morocc,35,174,5	script	Meidi	729,{
@@ -232,75 +134,29 @@ morocc,35,174,5	script	Meidi	729,{
 		mes "Wow! How did you come back so fast?";
 		mes "What monster did you hunt?";
 		next;
-		switch (select("Requiem:Marduk:Pasana")) {
-		case 1:
-			if (checkquest(10107,HUNTING) == 2) {
-				mes "[Meidi]";
-				mes "You've hunted all 10 Requim.";
-				mes "Thank you very much.";
-				next;
-				mes "[Meidi]";
-				mes "I know it isn't much but here's a small gift.";
-				mes "I hope that it will be helpfull to you.";
-				next;
-				completequest 10107;
-				getexp 48000,0;
-				mes "[Meidi]";
-				mes "Wooohoo!";
-				mes "Good luck.";
-				close;
-			}
+		setarray .@monsters$[0],"Requiem","Marduk","Pasana";
+		set .@i, select(implode(.@monsters$,":"))-1;
+		if (checkquest(10107+.@i,HUNTING) == 2) {
 			mes "[Meidi]";
-			mes "You didn't hunt 10 Requim yet,";
-			mes "You should make sure that you hunt all of them.";
-			mes "Can you check again?";
-			close;
-		case 2:
-			if (checkquest(10108,HUNTING) == 2) {
-				mes "[Meidi]";
-				mes "You've hunted all 10 Marduk.";
-				mes "Thank you very much.";
-				next;
-				mes "[Meidi]";
-				mes "I know it isn't much but here's a small gift.";
-				mes "I hope that it will be helpfull to you.";
-				next;
-				completequest 10108;
-				getexp 48000,0;
-				mes "[Meidi]";
-				mes "Wooohoo!";
-				mes "Good luck.";
-				close;
-			}
+			mes "You've hunted all 10 "+.@monsters$[.@i]+".";
+			mes "Thank you very much.";
+			next;
 			mes "[Meidi]";
-			mes "You didn't hunt 10 Marduk yet,";
-			mes "You should make sure that you hunt all of them.";
-			mes "Can you check again?";
-			close;
-		case 3:
-			if (checkquest(10109,HUNTING) == 2) {
-				mes "[Meidi]";
-				mes "Wow, you've hunted 10 Pasana.";
-				mes "Cool.";
-				mes "Thank you very much.";
-				next;
-				mes "[Meidi]";
-				mes "I know it isn't much but here's a small gift.";
-				mes "I hope that it will be helpfull to you.";
-				next;
-				completequest 10109;
-				getexp 48000,0;
-				mes "[Meidi]";
-				mes "Wooohoo!";
-				mes "Good luck.";
-				close;
-			}
+			mes "I know it isn't much but here's a small gift.";
+			mes "I hope that it will be helpful to you.";
+			next;
+			completequest 10107+.@i;
+			getexp 48000,0;
 			mes "[Meidi]";
-			mes "You didn't hunt 10 Pasana yet,";
-			mes "You should make sure that you hunt all of them.";
-			mes "Can you check again?";
+			mes "Wooohoo!";
+			mes "Good luck.";
 			close;
 		}
+		mes "[Meidi]";
+		mes "You didn't hunt 10 "+.@monsters$[.@i]+" yet.";
+		mes "You should make sure that you hunt all of them.";
+		mes "Can you check again?";
+		close;
 	}
 	if (slv_quest == 6) {
 		mes "[Meidi]";
@@ -315,8 +171,8 @@ morocc,35,174,5	script	Meidi	729,{
 	mes "That place is very dangerous.";
 	mes "Someone should go inside an make it safer for everyone.";
 	mes "Hopefully, very soon!";
-	next;
 	if (slv_quest == 1) {
+		next;
 		mes "[Meidi]";
 		mes "Oh! Are you from the Eden Group?";
 		mes "Are you here for my mission?";
@@ -383,84 +239,26 @@ geffen,146,132,3	script	Ancellia	906,{
 		mes "What monster have you hunted?";
 		mes "Do you remember its name?";
 		next;
-		switch (select("Dark Frame:Evil Druid:Wraith:Raydric Archer")) {
-		case 1:
-			if (checkquest(10110,HUNTING) == 2) {
-				mes "[Ancellia]";
-				mes "Ah, you've hunted 10 Dark Frames.";
-				mes "That was pretty difficult!";
-				mes "Thank you very much.";
-				next;
-				completequest 10110;
-				getexp 48000,0;
-				mes "[Ancellia]";
-				mes "Perhaps you can hunt the rest as well.";
-				mes "I will wait for you here.";
-				close;
-			}
-			mes "[Ancellia]";
-			mes "Hmm... maybe you were confused.";
-			mes "You didn't hunt all 10 Dark Frames.";
-			mes "Can you check again?";
-			close;
-		case 2:
-			if (checkquest(10111,HUNTING) == 2) {
-				mes "[Ancellia]";
-				mes "Ah, you've hunted 10 Evil Druids.";
-				mes "That was pretty difficult!";
-				mes "Thank you very much.";
-				next;
-				completequest 10111;
-				getexp 48000,0;
-				mes "[Ancellia]";
-				mes "Perhaps you can hunt the rest as well.";
-				mes "I will wait for you here.";
-				close;
-			}
-			mes "[Ancellia]";
-			mes "Hmm... maybe you were confused.";
-			mes "You didn't hunt all 10 Evil Druids.";
-			mes "Can you check again?";
-			close;
-		case 3:
-			if (checkquest(10112,HUNTING) == 2) {
-				mes "[Ancellia]";
-				mes "Ah, you've hunted 10 Wraith.";
-				mes "That was pretty difficult!";
-				mes "Thank you very much.";
-				next;
-				completequest 10112;
-				getexp 48000,0;
-				mes "[Ancellia]";
-				mes "Perhaps you can hunt the rest as well.";
-				mes "I will wait for you here.";
-				close;
-			}
+		setarray .@monsters$[0],"Dark Frame","Evil Druid","Wraith","Raydric Archer";
+		set .@i, select(implode(.@monsters$,":"))-1;
+		if (checkquest(10110+.@i,HUNTING) == 2) {
 			mes "[Ancellia]";
-			mes "Hmm... maybe you were confused.";
-			mes "You didn't hunt all 10 Wraith.";
-			mes "Can you check again?";
-			close;
-		case 4:
-			if (checkquest(10113,HUNTING) == 2) {
-				mes "[Ancellia]";
-				mes "Ah, you've hunted 10 Raydric Archers.";
-				mes "That was pretty difficult!";
-				mes "Thank you very much.";
-				next;
-				completequest 10113;
-				getexp 48000,0;
-				mes "[Ancellia]";
-				mes "Perhaps you can hunt the rest as well.";
-				mes "I will wait for you here.";
-				close;
-			}
+			mes "Ah, you've hunted 10 "+.@monsters$[.@i]+"s.";
+			mes "That was pretty difficult!";
+			mes "Thank you very much.";
+			next;
+			completequest 10110+.@i;
+			getexp 48000,0;
 			mes "[Ancellia]";
-			mes "Hmm... maybe you were confused.";
-			mes "You didn't hunt all 10 Raydric Archers.";
-			mes "Can you check again?";
+			mes "Perhaps you can hunt the rest as well.";
+			mes "I will wait for you here.";
 			close;
 		}
+		mes "[Ancellia]";
+		mes "Hmm... maybe you were confused.";
+		mes "You didn't hunt all 10 "+.@monsters$[.@i]+".";
+		mes "Can you check again?";
+		close;
 	}
 	if (slv_quest == 6) {
 		mes "[Ancellia]";
@@ -478,8 +276,8 @@ geffen,146,132,3	script	Ancellia	906,{
 	mes "[Ancellia]";
 	mes "One day the came out of the castle and attacked a nearby village, it was terrible.";
 	mes "That's why I can't stop worrying.";
-	next;
 	if (slv_quest == 2) {
+		next;
 		mes "[Ancellia]";
 		mes "Oh, you got my mission";
 		mes "from the Eden Group. Great~!";
@@ -540,81 +338,25 @@ aldebaran,144,230,3	script	Jeanbai	900,{
 		mes "You amaze me!";
 		mes "So what monster did you hunt?";
 		next;
-		switch (select("Grand Peco:Sleeper:Goat:Harpy")) {
-		case 1:
-			if (checkquest(10114,HUNTING) == 2) {
-				mes "[Jeanbai]";
-				mes "You've hunted 20 Grand Pecos. Perfect!";
-				mes "Thanks a lot.";
-				next;
-				completequest 10114;
-				getexp 48000,0;
-				mes "[Jeanbai]";
-				mes "Please hunt the others as soon as possible.";
-				mes "I have faith in you!";
-				close;
-			}
-			mes "[Jeanbai]";
-			mes "What? Maybe you were confused.";
-			mes "You haven't hunted all 20 Grand Pecos.";
-			mes "Please check again.";
-			close;
-		case 2:
-			if (checkquest(10115,HUNTING) == 2) {
-				mes "[Jeanbai]";
-				mes "You've hunted 20 Sleepers!";
-				mes "Thanks a lot.";
-				next;
-				completequest 10115;
-				getexp 48000,0;
-				mes "[Jeanbai]";
-				mes "Please hunt the others as soon as possible.";
-				mes "I have faith in you!";
-				close;
-			}
+		setarray .@monsters$[0],"Grand Peco","Sleeper","Goat","Harpy";
+		set .@i, select(implode(.@monsters$,":"))-1;
+		if (checkquest(10114+.@i,HUNTING) == 2) {
 			mes "[Jeanbai]";
-			mes "What? Maybe you were confused.";
-			mes "You haven't hunted all 20 Sleepers.";
-			mes "Please check again.";
-			close;
-		case 3:
-			if (checkquest(10116,HUNTING) == 2) {
-				mes "[Jeanbai]";
-				mes "You've hunted 20 Goats. Perfect!";
-				mes "I checked the amounts and you're right.";
-				mes "Thanks a lot.";
-				next;
-				completequest 10116;
-				getexp 48000,0;
-				mes "[Jeanbai]";
-				mes "Please hunt the others as soon as possible.";
-				mes "I have faith in you!";
-				close;
-			}
-			mes "[Jeanbai]";
-			mes "What? Maybe you were confused.";
-			mes "You haven't hunted all 20 Goats.";
-			mes "Please check again.";
-			close;
-		case 4:
-			if (checkquest(10117,HUNTING) == 2) {
-				mes "[Jeanbai]";
-				mes "You've hunted 20 Harpies. Perfect!";
-				mes "Thanks a lot.";
-				next;
-				completequest 10117;
-				getexp 48000,0;
-				mes "[Jeanbai]";
-				mes "Please hunt the others as soon as possible.";
-				mes "I have faith in you!";
-				close;
-			}
+			mes "You've hunted 20 "+.@monsters$[.@i]+"s. Perfect!";
+			mes "Thanks a lot.";
+			next;
+			completequest 10114+.@i;
+			getexp 48000,0;
 			mes "[Jeanbai]";
-			mes "What? Maybe you were confused.";
-			mes "You haven't hunted all 20 Harpies.";
-			mes "Please check again.";
+			mes "Please hunt the others as soon as possible.";
+			mes "I have faith in you!";
 			close;
 		}
+		mes "[Jeanbai]";
+		mes "What? Maybe you were confused.";
+		mes "You haven't hunted all 20 "+.@monsters$[.@i]+"s.";
+		mes "Please check again.";
+		close;
 	}
 	if (slv_quest == 6) {
 		mes "[Jeanbai]";
@@ -632,8 +374,8 @@ aldebaran,144,230,3	script	Jeanbai	900,{
 	mes "[Jeanbai]";
 	mes "Monsters are increasing in numbers so travelers like me have a hard time getting around.";
 	mes "I wish I could travel around without having to worry about that.";
-	next;
 	if (slv_quest == 3) {
+		next;
 		mes "[Jeanbai]";
 		mes "Oh, did you get my mission from the Eden Group?";
 		mes "Great~! We don't have a lot of time.";
@@ -695,68 +437,27 @@ aldebaran,105,116,3	script	Risingeter	869,{
 		mes "You were the right person for this mission.";
 		mes "Which monster did you hunt?";
 		next;
-		switch (select("Clock:Punk:Rideword")) {
-		case 1:
-			if (checkquest(10118,HUNTING) == 2) {
-				mes "[Risingeter]";
-				mes "Good! You've hunted 15 Clocks.";
-				mes "Ah, now I can hear the clock sound clearly...";
-				mes "Tic!! toc!! tic!! toc!!...";
-				next;
-				completequest 10118;
-				getexp 48000,0;
-				mes "[Risingeter]";
-				mes "Thanks a lot!";
-				mes "I hope you can hunt the rest as well.";
-				mes "Go as soon as you can!";
-				close;
-			}
-			mes "[Risingeter]";
-			mes "Uh? Something is wrong.";
-			mes "15 Clocks, right?";
-			mes "You better check how many you've hunted.";
-			close;
-		case 2:
-			if (checkquest(10119,HUNTING) == 2) {
-				mes "[Risingeter]";
-				mes "Good! You've hunted 15 Punks.";
-				mes "Ah, now I can hear the clock sound clearly...";
-				mes "Tic!! toc!! tic!! toc!!...";
-				next;
-				completequest 10119;
-				getexp 48000,0;
-				mes "[Risingeter]";
-				mes "Thanks a lot!";
-				mes "I hope you can hunt the rest as well.";
-				mes "Go as soon as you can!";
-				close;
-			}
+		setarray .@monsters$[0],"Clock","Punk","Rideword";
+		set .@i, select(implode(.@monsters$,":"))-1;
+		if (checkquest(10118+.@i,HUNTING) == 2) {
 			mes "[Risingeter]";
-			mes "Uh? Something is wrong.";
-			mes "15 Punks, right?";
-			mes "You better check how many you've hunted.";
-			close;
-		case 3:
-			if (checkquest(10120,HUNTING) == 2) {
-				mes "[Risingeter]";
-				mes "Good! You've hunted 15 Ridewords.";
-				mes "Ah, now I can hear the clock sound clearly...";
-				mes "Tic!! toc!! tic!! toc!!...";
-				next;
-				completequest 10120;
-				getexp 48000,0;
-				mes "[Risingeter]";
-				mes "Thanks a lot!";
-				mes "I hope you can hunt the rest as well.";
-				mes "Go as soon as you can!";
-				close;
-			}
+			mes "Good! You've hunted 15 "+.@monsters$[.@i]+"s.";
+			mes "Ah, now I can hear the clock sound clearly...";
+			mes "Tic!! toc!! tic!! toc!!...";
+			next;
+			completequest 10118+.@i;
+			getexp 48000,0;
 			mes "[Risingeter]";
-			mes "Uh? Something is wrong.";
-			mes "15 Ridewords, right?";
-			mes "You better check how many you've hunted.";
+			mes "Thanks a lot!";
+			mes "I hope you can hunt the rest as well.";
+			mes "Go as soon as you can!";
 			close;
 		}
+		mes "[Risingeter]";
+		mes "Uh? Something is wrong.";
+		mes "15 "+.@monsters$[.@i]+"s, right?";
+		mes "You better check how many you've hunted.";
+		close;
 	}
 	if (slv_quest == 6) {
 		mes "[Risingeter]";
@@ -774,8 +475,8 @@ aldebaran,105,116,3	script	Risingeter	869,{
 	mes "That's why I like the Clock Tower so much.";
 	mes "It makes a really nice sound.";
 	mes "I like it so much!";
-	next;
 	if (slv_quest == 4) {
+		next;
 		mes "[Risingeter]";
 		mes "Uh? Have you come to help me solve my trouble.";
 		mes "You already know I like clocks right?";
@@ -827,59 +528,24 @@ alberta,215,111,5	script	Funfi	828,{
 		mes "Unbelievable~! So fast~!";
 		mes "Which monster did you hunt?";
 		next;
-		switch (select("Kikimora:Miyabi Doll:Mi Gao")) {
-		case 1:
-			if (checkquest(10121,HUNTING) == 2) {
-				mes "[Funfi]";
-				mes "Ok! You've hunted 15 Kikimora!";
-				mes "You're the best!";
-				next;
-				completequest 10121;
-				getexp 48000,0;
-				mes "[Funfi]";
-				mes "Please hunt the others as well.";
-				mes "I have faith in you!";
-				close;
-			}
+		setarray .@monsters$[0],"Kikimora","Miyabi Doll","Mi Gao";
+		set .@i, select(implode(.@monsters$,":"))-1;
+		if (checkquest(10121+.@i,HUNTING) == 2) {
 			mes "[Funfi]";
-			mes "Oh~ No no~!!";
-			mes "Listen carefully! Hunt 15 Kikimora.";
-			close;
-		case 2:
-			if (checkquest(10122,HUNTING) == 2) {
-				mes "[Funfi]";
-				mes "Ok! You've hunted 15 Miyabi Dolls!";
-				mes "You're the best!";
-				next;
-				completequest 10122;
-				getexp 48000,0;
-				mes "[Funfi]";
-				mes "Please hunt the others as well.";
-				mes "I trust you!";
-				close;
-			}
-			mes "[Funfi]";
-			mes "Oh~ No no~!!";
-			mes "Listen carefully! Hunt 15 Miyabi Dolls.";
-			close;
-		case 3:
-			if (checkquest(10123,HUNTING) == 2) {
-				mes "[Funfi]";
-				mes "Ok! You've hunted 15 Mi Gaos!";
-				mes "You're the best!";
-				next;
-				completequest 10123;
-				getexp 48000,0;
-				mes "[Funfi]";
-				mes "Please hunt the others as well.";
-				mes "I trust you!";
-				close;
-			}
+			mes "Ok! You've hunted 15 "+.@monsters$[.@i]+"!";
+			mes "You're the best!";
+			next;
+			completequest 10121+.@i;
+			getexp 48000,0;
 			mes "[Funfi]";
-			mes "Oh~ No no~!!";
-			mes "Listen carefully! Hunt 15 Mi Gaos.";
+			mes "Please hunt the others as well.";
+			mes "I have faith in you!";
 			close;
 		}
+		mes "[Funfi]";
+		mes "Oh~ No no~!!";
+		mes "Listen carefully! Hunt 15 "+.@monsters$[.@i]+".";
+		close;
 	}
 	if (slv_quest == 6) {
 		mes "[Funfi]";
@@ -894,8 +560,8 @@ alberta,215,111,5	script	Funfi	828,{
 	next;
 	mes "[Funfi]";
 	mes "There are a lot of funny things in the world... Wooo!";
-	next;
 	if (slv_quest == 5) {
+		next;
 		mes "[Funfi]";
 		mes "Anyway are you from the Eden Group?";
 		mes "You are? Cool! I've been waiting for you~!";
diff --git a/npc/re/quests/magic_books.txt b/npc/re/quests/magic_books.txt
index 618d3f640..943d0c8dd 100644
--- a/npc/re/quests/magic_books.txt
+++ b/npc/re/quests/magic_books.txt
@@ -693,7 +693,7 @@ dic_in01,25,190,0	script	Mysterious Documents	844,{
 		close;
 	}
 	if ((BaseLevel < 140) || (getskilllv(2217) < 1) && (getskilllv(2213) < 1)) {
-		mes "The documents in this container aren't legible. It's not use trying to read them.";
+		mes "The documents in this container aren't legible. It's no use trying to read them.";
 		close;
 	}
 	specialeffect2 EF_DISPELL;
diff --git a/npc/re/quests/quests_dicastes.txt b/npc/re/quests/quests_dicastes.txt
index ecc1ed49a..2109678d8 100644
--- a/npc/re/quests/quests_dicastes.txt
+++ b/npc/re/quests/quests_dicastes.txt
@@ -3,7 +3,7 @@
 //===== By: ==================================================
 //= Gennosuke Kouga
 //===== Current Version: =====================================
-//= 1.4
+//= 1.5
 //===== Compatible With: =====================================
 //= rAthena SVN
 //===== Description: =========================================
@@ -18,7 +18,8 @@
 //= 1.2a Small bug fix. [Euphy]
 //= 1.3 Temporarly disabled Izlude Fish Tail?#33 NPC because of
 //= 	the new Izlude Town Map. [Masao]
-//= 1.4	Fixed minor typos. [Joseph]
+//= 1.4 Fixed minor typos. [Joseph]
+//= 1.5 Removed "Mysterious Documents" duplicated in magic_books. [Euphy]
 //============================================================
 
 // Entrance
@@ -217,12 +218,9 @@ function	script	eldicastes_dv	{
 	close;
 }
 
-dic_dun01,284,102,5	script	Dirty Vigilante#ep13_3_	450,{
-	callfunc "eldicastes_dv",1; }
-dic_dun01,294,106,4	script	Vigilante#ep13_3_23	492,{
-	callfunc "eldicastes_dv",2; }
-dic_dun01,286,104,5	script	Vigilante#ep13_3_24	450,{
-	callfunc "eldicastes_dv",2; }
+dic_dun01,284,102,5	script	Dirty Vigilante#ep13_3_	450,{ callfunc "eldicastes_dv",1; }
+dic_dun01,294,106,4	script	Vigilante#ep13_3_23	492,{ callfunc "eldicastes_dv",2; }
+dic_dun01,286,104,5	script	Vigilante#ep13_3_24	450,{ callfunc "eldicastes_dv",2; }
 
 dic_dun01,28,212,0	script	Vigilante#ep13_3_26	45,1,1,{
 	mes "[Vigilante]";
@@ -851,126 +849,56 @@ function	script	unknown_d	{
 	close;
 }
 
-cmd_fild08,324,163,0	script	Stone Heart?#33	844,{
-	callfunc "unknown_d",12215,953; }
-moc_fild01,169,62,0	script	Cactus Needle?#33	844,{
-	callfunc "unknown_d",12214,952; }
-prt_fild02,280,328,0	script	Carrot?#33	844,{
-	callfunc "unknown_d",12213,515; }
-prt_fild02,97,209,0	script	Red Herb?#33	844,{
-	callfunc "unknown_d",12212,507; }
-prt_fild02,142,116,0	script	Feather?#33	844,{
-	callfunc "unknown_d",12211,949; }
-pay_fild07,269,164,0	script	Bear's Footskin?#33	844,{
-	callfunc "unknown_d",12210,948; }
-prt_fild03,284,190,0	script	Raccoon Leaf?#33	844,{
-	callfunc "unknown_d",12207,945; }
-prt_fild03,262,201,0	script	Yam?#33	844,{
-	callfunc "unknown_d",12206,549; }
-prt_fild03,226,170,0	script	Solid Shell?#33	844,{
-	callfunc "unknown_d",12205,943; }
-prt_fild03,180,163,0	script	Yoyo Tail?#33	844,{
-	callfunc "unknown_d",12204,942; }
-prt_fild03,64,35,0	script	Royal Jelly?#33	844,{
-	callfunc "unknown_d",12203,526; }
-prt_fild07,76,122,0	script	Grasshopper's Leg?#33	844,{
-	callfunc "unknown_d",12202,940; }
-mjolnir_09,99,100,0	script	Bee Sting?#33	844,{
-	callfunc "unknown_d",12201,939; }
-prt_fild02,102,97,0	script	Sticky Mucus?#33	844,{
-	callfunc "unknown_d",12200,938; }
-mjolnir_04,162,168,0	script	Venom Canine?#33	844,{
-	callfunc "unknown_d",12199,937; }
-mjolnir_04,191,154,0	script	Scale Shell?#33	844,{
-	callfunc "unknown_d",12198,936; }
-iz_dun01,191,92,0	script	Shell?#33	844,{
-	callfunc "unknown_d",12197,935; }
-iz_dun01,210,77,0	script	Tentacle?#33	844,{
-	callfunc "unknown_d",12196,962; }
-moc_pryd02,36,75,0	script	Decayed Nail?#33	844,{
-	callfunc "unknown_d",12194,957; }
-moc_pryd02,134,112,0	script	Rotten Bandage?#33	844,{
-	callfunc "unknown_d",12193,930; }
-iz_dun02,112,96,0	script	Immortal Heart?#33	844,{
-	callfunc "unknown_d",12192,929; }
-pay_fild07,126,49,0	script	Insect Feeler?#33	844,{
-	callfunc "unknown_d",12191,928; }
-pay_fild06,306,233,0	script	Snake Scale?#33	844,{
-	callfunc "unknown_d",12190,926; }
-moc_fild11,237,273,0	script	Bill of Birds?#33	844,{
-	callfunc "unknown_d",12189,925; }
-c_tower2,170,9,0	script	Evil Horn?#33	844,{
-	callfunc "unknown_d",12187,923; }
-pay_fild08,188,153,0	script	Mushroom Spore?#33	844,{
-	callfunc "unknown_d",12185,921; }
-moc_fild03,175,201,0	script	Wolf Claw?#33	844,{
-	callfunc "unknown_d",12184,920; }
-mjolnir_08,108,99,0	script	Animal Skin?#33	844,{
-	callfunc "unknown_d",12183,919; }
-prt_fild04,315,245,0	script	Sticky Webfoot?#33	844,{
-	callfunc "unknown_d",12182,918; }
-moc_fild12,116,122,0	script	Talon?#33	844,{
-	callfunc "unknown_d",12181,917; }
-moc_fild07,201,360,0	script	Feather of Birds?#33	844,{
-	callfunc "unknown_d",12180,916; }
-prt_fild06,127,85,0	script	Chrysalis?#33	844,{
-	callfunc "unknown_d",12179,915; }
-prt_fild06,182,290,0	script	Fluff?#33	844,{
-	callfunc "unknown_d",12178,914; }
-mjo_dun01,222,226,0	script	Tooth of Bat?#33	844,{
-	callfunc "unknown_d",12177,913; }
-iz_dun03,155,165,0	script	Gill?#33	844,{
-	callfunc "unknown_d",12176,956; }
-prt_fild05,303,169,0	script	Worm Peeling?#33	844,{
-	callfunc "unknown_d",12175,955; }
-/*izlude,132,136,0	script	Fish Tail?#33	844,{
-	callfunc "unknown_d",12174,1023; }
-*/
-pay_fild01,152,171,0	script	Resin?#33	844,{
-	callfunc "unknown_d",12171,907; }
-pay_fild02,105,113,0	script	Pointed Scale?#33	844,{
-	callfunc "unknown_d",12170,906; }
-pay_fild02,177,108,0	script	Stem?#33	844,{
-	callfunc "unknown_d",12169,905; }
-pay_fild03,144,95,0	script	Tree Root?#33	844,{
-	callfunc "unknown_d",12166,902; }
-prt_fild08,299,332,0	script	Jellopy?#33	844,{
-	callfunc "unknown_d",12173,909; }
-prt_fild09,352,241,0	script	Scorpion Tail?#33	844,{
-	callfunc "unknown_d",12168,904; }
-prt_fild09,371,255,0	script	Reptile Tongue?#33	844,{
-	callfunc "unknown_d",12167,903; }
-prt_fild03,366,237,0	script	Horn?#33	844,{
-	callfunc "unknown_d",12209,947; }
-moc_pryd02,148,184,0	script	Horrendous Mouths?#33	844,{
-	callfunc "unknown_d",12195,958; }
-gef_fild03,251,109,0	script	Orc's Fangs?#33	844,{
-	callfunc "unknown_d",12186,922; }
-gef_fild01,104,111,0	script	Spawn?#33	844,{
-	callfunc "unknown_d",12172,908; }
-gef_fild09,67,46,0	script	Snail's Shell#33	844,{
-	callfunc "unknown_d",12208,946; }
-gef_fild05,111,96,0	script	Powder of Butterfly?#33	844,{
-	callfunc "unknown_d",12188,924; }
-
-dic_in01,25,190,0	script	Mysterious Documents#00	844,{
-	if (isequipped(2782)) {
-		if (ep13_3_invite == 5) {
-			if (checkquest(12165,PLAYTIME) == 2) {
-				mes "You don't feel as nauseous anymore. It should be safe to proceed now.";
-				erasequest 12165;
-				close;
-			} else if (checkquest(12165,PLAYTIME) != -1) {
-				mes "The documents are making you feel nauseous. You should come back later after your stomach settles.";
-				close; }
-			mes "The documents in this container aren't legible. It's not use trying to read them.";
-			close; }
-		mes "- When you approach the documents,";
-		mes "an Evil Giant that looks like the archive manager tries to call Guard Galton. You should get out of here quickly. -";
-		close; }
-	mes "¡ö¡ø¡ó ¢£ ¡ö¡ñ¡ï ¡ù ¡ð¢²¢£";
-	close;
-}
+cmd_fild08,324,163,0	script	Stone Heart?#33	844,{ callfunc "unknown_d",12215,953; }
+moc_fild01,169,62,0	script	Cactus Needle?#33	844,{ callfunc "unknown_d",12214,952; }
+prt_fild02,280,328,0	script	Carrot?#33	844,{ callfunc "unknown_d",12213,515; }
+prt_fild02,97,209,0	script	Red Herb?#33	844,{ callfunc "unknown_d",12212,507; }
+prt_fild02,142,116,0	script	Feather?#33	844,{ callfunc "unknown_d",12211,949; }
+pay_fild07,269,164,0	script	Bear's Footskin?#33	844,{ callfunc "unknown_d",12210,948; }
+prt_fild03,284,190,0	script	Raccoon Leaf?#33	844,{ callfunc "unknown_d",12207,945; }
+prt_fild03,262,201,0	script	Yam?#33	844,{ callfunc "unknown_d",12206,549; }
+prt_fild03,226,170,0	script	Solid Shell?#33	844,{ callfunc "unknown_d",12205,943; }
+prt_fild03,180,163,0	script	Yoyo Tail?#33	844,{ callfunc "unknown_d",12204,942; }
+prt_fild03,64,35,0	script	Royal Jelly?#33	844,{ callfunc "unknown_d",12203,526; }
+prt_fild07,76,122,0	script	Grasshopper's Leg?#33	844,{ callfunc "unknown_d",12202,940; }
+mjolnir_09,99,100,0	script	Bee Sting?#33	844,{ callfunc "unknown_d",12201,939; }
+prt_fild02,102,97,0	script	Sticky Mucus?#33	844,{ callfunc "unknown_d",12200,938; }
+mjolnir_04,162,168,0	script	Venom Canine?#33	844,{ callfunc "unknown_d",12199,937; }
+mjolnir_04,191,154,0	script	Scale Shell?#33	844,{ callfunc "unknown_d",12198,936; }
+iz_dun01,191,92,0	script	Shell?#33	844,{ callfunc "unknown_d",12197,935; }
+iz_dun01,210,77,0	script	Tentacle?#33	844,{ callfunc "unknown_d",12196,962; }
+moc_pryd02,36,75,0	script	Decayed Nail?#33	844,{ callfunc "unknown_d",12194,957; }
+moc_pryd02,134,112,0	script	Rotten Bandage?#33	844,{ callfunc "unknown_d",12193,930; }
+iz_dun02,112,96,0	script	Immortal Heart?#33	844,{ callfunc "unknown_d",12192,929; }
+pay_fild07,126,49,0	script	Insect Feeler?#33	844,{ callfunc "unknown_d",12191,928; }
+pay_fild06,306,233,0	script	Snake Scale?#33	844,{ callfunc "unknown_d",12190,926; }
+moc_fild11,237,273,0	script	Bill of Birds?#33	844,{ callfunc "unknown_d",12189,925; }
+c_tower2,170,9,0	script	Evil Horn?#33	844,{ callfunc "unknown_d",12187,923; }
+pay_fild08,188,153,0	script	Mushroom Spore?#33	844,{ callfunc "unknown_d",12185,921; }
+moc_fild03,175,201,0	script	Wolf Claw?#33	844,{ callfunc "unknown_d",12184,920; }
+mjolnir_08,108,99,0	script	Animal Skin?#33	844,{ callfunc "unknown_d",12183,919; }
+prt_fild04,315,245,0	script	Sticky Webfoot?#33	844,{ callfunc "unknown_d",12182,918; }
+moc_fild12,116,122,0	script	Talon?#33	844,{ callfunc "unknown_d",12181,917; }
+moc_fild07,201,360,0	script	Feather of Birds?#33	844,{ callfunc "unknown_d",12180,916; }
+prt_fild06,127,85,0	script	Chrysalis?#33	844,{ callfunc "unknown_d",12179,915; }
+prt_fild06,182,290,0	script	Fluff?#33	844,{ callfunc "unknown_d",12178,914; }
+mjo_dun01,222,226,0	script	Tooth of Bat?#33	844,{ callfunc "unknown_d",12177,913; }
+iz_dun03,155,165,0	script	Gill?#33	844,{ callfunc "unknown_d",12176,956; }
+prt_fild05,303,169,0	script	Worm Peeling?#33	844,{ callfunc "unknown_d",12175,955; }
+//izlude,132,136,0	script	Fish Tail?#33	844,{ callfunc "unknown_d",12174,1023; }
+pay_fild01,152,171,0	script	Resin?#33	844,{ callfunc "unknown_d",12171,907; }
+pay_fild02,105,113,0	script	Pointed Scale?#33	844,{ callfunc "unknown_d",12170,906; }
+pay_fild02,177,108,0	script	Stem?#33	844,{ callfunc "unknown_d",12169,905; }
+pay_fild03,144,95,0	script	Tree Root?#33	844,{ callfunc "unknown_d",12166,902; }
+prt_fild08,299,332,0	script	Jellopy?#33	844,{ callfunc "unknown_d",12173,909; }
+prt_fild09,352,241,0	script	Scorpion Tail?#33	844,{ callfunc "unknown_d",12168,904; }
+prt_fild09,371,255,0	script	Reptile Tongue?#33	844,{ callfunc "unknown_d",12167,903; }
+prt_fild03,366,237,0	script	Horn?#33	844,{ callfunc "unknown_d",12209,947; }
+moc_pryd02,148,184,0	script	Horrendous Mouths?#33	844,{ callfunc "unknown_d",12195,958; }
+gef_fild03,251,109,0	script	Orc's Fangs?#33	844,{ callfunc "unknown_d",12186,922; }
+gef_fild01,104,111,0	script	Spawn?#33	844,{ callfunc "unknown_d",12172,908; }
+gef_fild09,67,46,0	script	Snail's Shell#33	844,{ callfunc "unknown_d",12208,946; }
+gef_fild05,111,96,0	script	Powder of Butterfly?#33	844,{ callfunc "unknown_d",12188,924; }
 
 dic_in01,137,225,5	script	Diel Guard#ep133_19	450,{
 	mes "[Diel Guard]";