* 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

1 files changed, 135 insertions, 469 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~!";