Update to last rAthena npc.

Fix some typos
change sc_bleeding to -> sc_blooding
Updated RE EXP for quests_brasilis.txt

1 files changed, 179 insertions, 559 deletions

diff --git a/npc/re/quests/eden/71-85.txt b/npc/re/quests/eden/71-85.txt
index 9a11bf2b5..db704a3de 100644
--- a/npc/re/quests/eden/71-85.txt
+++ b/npc/re/quests/eden/71-85.txt
@@ -3,13 +3,14 @@
 //===== By: ==================================================
 //= L0ne_W0lf
 //===== Current Version: =====================================
-//= 1.2
+//= 1.3
 //===== Description: =========================================
 //= Repetable Quests for Players between Baselevel 71 - 85.
 //===== Additional Comments: =================================
 //= 1.0 First Version.
 //= 1.1 Some little optimization here and there. [Masao]
 //= 1.2 Optimized. [Euphy]
+//= 1.3 Updated to match the official scripts. [Euphy]
 //============================================================
 
 moc_para01,44,38,3	script	Mission [71 - 85]	857,{
@@ -19,586 +20,205 @@ moc_para01,44,38,3	script	Mission [71 - 85]	857,{
 		mes "- this bulletin board. -";
 		close;
 	}
-	mes "- Many hunting missions -";
-	mes "- are on the bulletin board. -";
-	next;
-	if ((BaseLevel > 70) && (BaseLevel < 86)) {
-		switch (select("Sphinx Dungeon:Glast Heim:Juno Area:Clock Tower:Localized Islands")) {
-		case 1:
-			mes "- Sphinx Dungeon -";
-			mes "- I am Meidi who lives -";
-			mes "- in Morocc. I want to hunt -";
-			mes "- monsters in the Sphinx -";
-			mes "- Dungeon. I will wait for -";
-			mes "- you in front of the -";
-			mes "- western gate. -";
-			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. -";
-			mes "- I need some help -";
-			mes "- hunting monsters -";
-			mes "- in Glast Heim.-";
-			mes "- Please help me. -";
-			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, -";
-			mes "- but the monsters on -";
-			mes "- the way there are too -";
-			mes "- strong for me. Come -";
-			mes "- visit me in Al De Baran. -";
-			mes "- My name is Jeanbai. -";
-			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! -";
-			mes "- I'm asking you to hunt -";
-			mes "- some monster inside of.-";
-			mes "- the Clock Tower, -";
-			mes "- Risingeter. -";
-			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. -";
-			callsub L_Quest,10106,5;
-			mes "- Loof for Funfi -";
-			mes "- in Alberta. -";
-			close;
-		}
-	}
-	mes "- Only members of the -";
-	mes "- right level can read -";
-	mes "- this bulletin board. -";
-	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,{
-
-	if ((checkquest(10107) == 2) && (checkquest(10108) == 2) && (checkquest(10109) == 2) && (slv_quest == 6)) {
-		set slv_quest,0;
-		mes "[Meidi]";
-		mes "You have completed the hunting missions.";
-		mes "I don't have anymore missions for you.";
-		mes "Thanks, you did a great job!";
-		close;
-	}
-	if (checkquest(10107) == 1 || checkquest(10108) == 1 || checkquest(10109) == 1) {
-		mes "[Meidi]";
-		mes "Wow! How did you come back so fast?";
-		mes "What monster did you hunt?";
-		next;
-		setarray .@monsters$[0],"Requiem","Marduk","Pasana";
-		set .@i, select(implode(.@monsters$,":"))-1;
-		if (checkquest(10107+.@i,HUNTING) == 2) {
-			mes "[Meidi]";
-			mes "You've hunted all 10 "+.@monsters$[.@i]+".";
-			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 helpful to you.";
-			next;
-			completequest 10107+.@i;
-			getexp 48000,0;
-			mes "[Meidi]";
-			mes "Wooohoo!";
-			mes "Good luck.";
-			close;
+	// Clear the original quest data (no longer used).
+	if (slv_quest) set slv_quest,0;
+	if (checkquest(10102) > -1 || checkquest(10103) > -1 || checkquest(10104) > -1 || checkquest(10105) > -1 || checkquest(10106) > -1) {
+		for(set .@quest,10102; .@quest<=10106; set .@quest,.@quest+1) {
+			if (checkquest(.@quest) > -1)
+				erasequest .@quest;
 		}
-		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]";
-		mes "Sphinx Dungeon... many adventurers came back with great injuries.";
-		mes "That place is very dangerous.";
-		mes "Someone should go inside an make it safer for everyone.";
-		mes "Hopefully, very soon!";
-		close;
-	}
-	mes "[Meidi]";
-	mes "Sphinx Dungeon... many adventurers came back with great injuries.";
-	mes "That place is very dangerous.";
-	mes "Someone should go inside an make it safer for everyone.";
-	mes "Hopefully, very soon!";
-	if (slv_quest == 1) {
-		next;
-		mes "[Meidi]";
-		mes "Oh! Are you from the Eden Group?";
-		mes "Are you here for my mission?";
-		mes "You came right on time.";
-		mes "I was worried that noone would accept the mission that I posted.";
+		mes "- Since the client has moved -";
+		mes "- to another place, -";
+		mes "- the application form has been removed. -";
 		next;
-		mes "[Meidi]";
-		mes "So, I need help hunting 3 monsters";
-		mes "inside of the Sphinx Dungeon.";
-		mes "Got it? Its too dangerous for me so that's why I posted the mission.";
-		next;
-		mes "[Meidi]";
-		mes "Requiem, Marduk and Pasana...";
-		mes "I heard they are very dangerous monsters.";
-		mes "Can you hunt 10 of those monsters?";
-		mes "10 of each sounds good enough, right?";
-		next;
-		mes "[Meidi]";
-		mes "If you succeed, I will give you a small reward for your help.";
-		next;
-		switch (select("Accept mission.:Decline mission.")) {
-		case 1:
-			mes "[Meidi]";
-			mes "Oh. Thank you so much.";
-			mes "How can I pay you backf or your effort?";
-			mes "May Freya bless you~";
-			next;
-			completequest 10102;
-			setquest 10107;
-			setquest 10108;
-			setquest 10109;
-			set slv_quest,6;
-			mes "[Meidi]";
-			mes "Requiem, Marduk and Pasana.";
-			mes "Don't forget and good luck.";
-			close;
-		case 2:
-			set slv_quest,0;
-			erasequest 10102;
-			mes "[Meidi]";
-			mes "I see. There is no other way.";
-			mes "I will send a message to the Eden Group.";
-			mes "Don't worry and nevermind.";
-			close;
-		}
 	}
-	close;
-}
 
-geffen,146,132,3	script	Ancellia	906,{
-	if ((checkquest(10110 == 2)) && (checkquest(10111) == 2) && (checkquest(10112) == 2) && (checkquest(10113) == 2) && (slv_quest == 6)) {
-		set slv_quest,0;
-		mes "[Ancellia]";
-		mes "Wow. You've finished all";
-		mes "of my missions. Great!";
-		mes "You are of great help.";
-		mes "I will inform the Eden Group of your assistance.";
-		mes "You can go back, don't worry.";
-		close;
-	}
-	if (checkquest(10110) == 1 || checkquest(10111) == 1 || checkquest(10112) == 1 || checkquest(10113) == 1) {
-		mes "[Ancellia]";
-		mes "You seem to have hunted all of the monsters.";
-		mes "What monster have you hunted?";
-		mes "Do you remember its name?";
-		next;
-		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 "Ah, you've hunted 10 "+.@monsters$[.@i]+"s.";
-			mes "That was pretty difficult!";
-			mes "Thank you very much.";
+	if (BaseLevel < 71) {
+		mes "- Only members of the -";
+		mes "- right level can read -";
+		mes "- this bulletin board. -";
+		mes "- Try to find a board -";
+		mes "- that suits your level. -";
+		close;
+	} else if (BaseLevel > 85) {
+		// Quest IDs: 10107-10123, 5055-5057
+		setarray .@quests[0],
+			10107,10108,10109,
+			10110,10111,10112,10113,
+			10114,10115,10116,10117,
+			10118,10119,10120,
+			10121,10122,10123,5055,5056;
+		for(set .@i,0; .@i<getarraysize(.@quests); set .@i,.@i+1) {
+			if (checkquest(.@quests[.@i],HUNTING) == 2)
+				set .@complete[getarraysize(.@complete)], .@quests[.@i];
+		}
+		if (checkquest(5057) > -1 && countitem(7187) >= 30)
+			set .@complete[getarraysize(.@complete)],5057;
+		if (getarraysize(.@complete)) {
+			mes "You have quests in progress.";
+			mes "Do you want to turn them in?";
 			next;
-			completequest 10110+.@i;
-			getexp 48000,0;
-			mes "[Ancellia]";
-			mes "Perhaps you can hunt the rest as well.";
-			mes "I will wait for you here.";
+			if(select("Of course.:No.") == 2)
+				close;
+			for(set .@i,0; .@i<getarraysize(.@complete); set .@i,.@i+1)
+				callsub L_Quest,.@complete[.@i];
 			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]";
-		mes "Go to Glast Heim and kill";
-		mes "Dark Frames, Evil Druids,";
-		mes "Wraith and Raydric Archers.";
-		mes "10 of each should do just fine.";
+		mes "- Only members of the -";
+		mes "- right level can read -";
+		mes "- this bulletin board. -";
+		mes "- Try to find a board -";
+		mes "- that suits your level. -";
 		close;
 	}
-	mes "[Ancellia]";
-	mes "Glast Heim is very far away.";
-	mes "I heared that the castle was cursed by the ancient King of Prontera.";
-	mes "There is a another story.";
+	mes "- Choose where you -";
+	mes "- would like to hunt. -";
 	next;
-	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.";
-	if (slv_quest == 2) {
-		next;
-		mes "[Ancellia]";
-		mes "Oh, you got my mission";
-		mes "from the Eden Group. Great~!";
-		mes "Thank you very much.";
-		next;
-		mes "[Ancellia]";
-		mes "I already explained.";
-		mes "So I expect you understand.";
-		mes "You need to hurry hunting";
-		mes "Dark Frames, Evil Druids,";
-		mes "Wraith and Raydric Archesr.";
-		next;
-		mes "[Ancellia]";
-		mes "You should hunt them all.";
-		mes "These are dangerous monsters so please take care of yourself.";
-		next;
-		switch (select("Accept mission.:Decline mission.")) {
-		case 1:
-			mes "[Ancellia]";
-			mes "Thanks a lot.";
-			mes "Be careful when you hunt these monsters. Good luck.";
-			next;
-			completequest 10103;
-			setquest 10110;
-			setquest 10111;
-			setquest 10112;
-			setquest 10113;
-			set slv_quest,6;
-			mes "[Ancellia]";
-			mes "Remember, Dark Frames,";
-			mes "Evil Druids, Wraiths";
-			mes "and Raydric Archers.";
-			close;
-		case 2:
-			set slv_quest,0;
-			erasequest 10103;
-			mes "[Ancellia]";
-			mes "Was the mission too hard?";
-			mes "I guess I'll just have to wait for someone else from the Eden Group to help me.";
-			close;
+	switch(select("Sphinx Dungeon:Glast Heim:Juno Area:Clock Tower:Localized Islands")) {
+	case 1:
+		mes "- There are several requests -";
+		mes "- related to the Sphinx Dungeon -";
+		mes "- on this mission Board. -";
+		next;
+		set .@str1$,"The villagers of Morroc are worried by the increasing number of monsters in the Sphinx Dungeon. ";
+		set .@str2$,"- Meidi from Morroc -";
+		switch(select("Hunt Requiem:Hunt Marduk:Hunt Pasana")) {
+			case 1: callsub L_Quest,10107,.@str1$+"Hunt 10 Requiems.",.@str2$;
+			case 2: callsub L_Quest,10108,.@str1$+"Hunt 10 Marduks.",.@str2$;
+			case 3: callsub L_Quest,10109,.@str1$+"Hunt 10 Pasanas.",.@str2$;
 		}
-	}
-	close;
-}
-
-aldebaran,144,230,3	script	Jeanbai	900,{
-	if ((checkquest(10114) == 2) && (checkquest(10115) == 2) && (checkquest(10116) == 2) && (checkquest(10117) == 2) && (slv_quest == 6)) {
-		set slv_quest,0;
-		mes "[Jeanbai]";
-		mes "You've hunted all of the monsters.";
-		mes "I will inform the Eden Group.";
-		mes "Thank you.";
-		close;
-	}
-	if (checkquest(10114) == 1 || checkquest(10115) == 1 || checkquest(10116) == 1 || checkquest(10117) == 1) {
-		mes "[Jeanbai]";
-		mes "Huh? So... fast...";
-		mes "You amaze me!";
-		mes "So what monster did you hunt?";
-		next;
-		setarray .@monsters$[0],"Grand Peco","Sleeper","Goat","Harpy";
-		set .@i, select(implode(.@monsters$,":"))-1;
-		if (checkquest(10114+.@i,HUNTING) == 2) {
-			mes "[Jeanbai]";
-			mes "You've hunted 20 "+.@monsters$[.@i]+"s. Perfect!";
-			mes "Thanks a lot.";
-			next;
-			completequest 10114+.@i;
-			getexp 48000,0;
-			mes "[Jeanbai]";
-			mes "Please hunt the others as soon as possible.";
-			mes "I have faith in you!";
-			close;
+	case 2:
+		mes "- There are several requests -";
+		mes "- related to Glast Heim -";
+		mes "- on this mission Board. -";
+		next;
+		set .@str1$,"I am very afraid that the monsters from Glast Heim will attack us. ";
+		set .@str2$,"- Ancellia from Geffen -";
+		switch(select("Hunt Dark Frame:Hunt Evil Druid:Hunt Wraith:Hunt Raydric Archer")) {
+			case 1: callsub L_Quest,10110,.@str1$+"Hunt 10 Dark Frames.",.@str2$;
+			case 2: callsub L_Quest,10111,.@str1$+"Hunt 10 Evil Druids.",.@str2$;
+			case 3: callsub L_Quest,10112,.@str1$+"Hunt 10 Wraiths.",.@str2$;
+			case 4: callsub L_Quest,10113,.@str1$+"Hunt 10 Raydric Archers.",.@str2$;
 		}
-		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]";
-		mes "Grand Pecos, Sleepers, Goats";
-		mes "and Harpies. Hunt 20 of each.";
-		mes "When you're finished hunting, come back to me.";
-		mes "I hope you finish as soon as you can.";
-		close;
-	}
-	mes "[Jeanbai]";
-	mes "I am traveler Jeanbai.";
-	mes "As I said I'm a traveler not a adventurer so, I am not good at fighting.";
-	mes "That's why I can't travel all over the world.";
-	next;
-	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.";
-	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.";
-		mes "Let me explain.";
-		next;
-		mes "[Jeanbai]";
-		mes "The monsters around Juno,";
-		mes "Grand Pecos, Sleepers, Goats";
-		mes "and Harpies. Please hunt 20 of them.";
-		mes "I've been hesitating to visit Juno because of those monsters around there.";
-		next;
-		mes "[Jeanbai]";
-		mes "Will you accept this mission?";
-		mes "I hope you are the right person for the job.";
-		mes "So what do you say?";
-		next;
-		switch (select("Accept mission.:Decline mission.")) {
-		case 1:
-			mes "[Jeanbai]";
-			mes "Great!";
-			mes "You won't regret it.";
-			next;
-			completequest 10104;
-			setquest 10114;
-			setquest 10115;
-			setquest 10116;
-			setquest 10117;
-			set slv_quest,6;
-			mes "[Jeanbai]";
-			mes "When you're finished hunting, come back to me.";
-			mes "I hope you finish as soon as you can.";
-			close;
-		case 2:
-			set slv_quest,0;
-			erasequest 10104;
-			mes "[Jeanbai]";
-			mes "Too bad. I'm disappointed.";
-			mes "I should inform the Eden Group again.";
-			mes "I see, nevermind.";
-			close;
+	case 3:
+		mes "- There are several requests -";
+		mes "- related to the area -";
+		mes "- around Juno. -";
+		next;
+		set .@str1$,"Those who can't fight, like me, find it much more difficult to travel due to the large number of monsters. ";
+		set .@str2$,"- Jeanbai, traveler -";
+		switch(select("Hunt Grand Peco:Hunt Sleeper:Hunt Goat:Hunt Harpy")) {
+			case 1: callsub L_Quest,10114,.@str1$+"Hunt 20 Grand Pecos.",.@str2$;
+			case 2: callsub L_Quest,10115,.@str1$+"Hunt 20 Sleepers.",.@str2$;
+			case 3: callsub L_Quest,10116,.@str1$+"Hunt 20 Goats.",.@str2$;
+			case 4: callsub L_Quest,10117,.@str1$+"Hunt 20 Harpies.",.@str2$;
 		}
-	}
-	close;
-}
-
-aldebaran,105,116,3	script	Risingeter	869,{
-	if ((checkquest(10118) == 2) && (checkquest(10119) == 2) && (checkquest(10120 == 2)) && (slv_quest == 6)) {
-		set slv_quest,0;
-		mes "[Risingeter]";
-		mes "You've completed all of my missions.";
-		mes "Amazing~! I will inform the Eden Group.";
-		mes "of your assistance. Thanks again!";
-		close;
-	}
-	if (checkquest(10118) == 1 || checkquest(10119) == 1 || checkquest(10120) == 1) {
-		mes "[Risingeter]";
-		mes "Wow. Are you done?";
-		mes "So fast~?! Unbelievable~";
-		mes "You were the right person for this mission.";
-		mes "Which monster did you hunt?";
-		next;
-		setarray .@monsters$[0],"Clock","Punk","Rideword";
-		set .@i, select(implode(.@monsters$,":"))-1;
-		if (checkquest(10118+.@i,HUNTING) == 2) {
-			mes "[Risingeter]";
-			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 "Thanks a lot!";
-			mes "I hope you can hunt the rest as well.";
-			mes "Go as soon as you can!";
-			close;
+	case 4:
+		mes "- There are several requests -";
+		mes "- related to the Clock Tower -";
+		mes "- on this mission Board. -";
+		next;
+		set .@str1$,"I used to love listening to the sweet melody of the Al De Baran Clock Tower but I can't hear anything anymore because of all the noises the monsters are making. ";
+		set .@str2$,"- Rizingsetter, President of the Love Clock community -";
+		switch(select("Hunt Clock:Hunt Punk:Hunt Rideword")) {
+			case 1: callsub L_Quest,10118,.@str1$+"Hunt 15 Clocks before it breaks.",.@str2$;
+			case 2: callsub L_Quest,10119,.@str1$+"Hunt 15 Punks before it breaks.",.@str2$;
+			case 3: callsub L_Quest,10120,.@str1$+"Hunt 15 Ridewords before it breaks.",.@str2$;
 		}
-		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]";
-		mes "Hunt 15 Clocks, Punks, and Ridewords.";
-		mes "Please hurry.";
-		close;
-	}
-	mes "[Risingeter]";
-	mes "I like clocks so much.";
-	mes "They move with regular rhythm";
-	mes "making tic toc sounds.";
-	mes "Ahah!! Hail to the clocks!";
-	next;
-	mes "[Risingeter]";
-	mes "That's why I like the Clock Tower so much.";
-	mes "It makes a really nice sound.";
-	mes "I like it so much!";
-	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?";
-		mes "That's why I need your help to hunt these monsters.";
-		next;
-		mes "[Risingeter]";
-		mes "There are too many monsters inside the Clock Tower.";
-		mes "Their presence is destroying the Clock Tower.";
-		next;
-		mes "[Risingeter]";
-		mes "Anyway. Can you help me?";
-		mes "Please hunt 15 Clocks, Punks and Ridewords before it breaks down.";
-		next;
-		switch (select("Accept mission.:Decline mission.")) {
-		case 1:
-			completequest 10105;
-			setquest 10118;
-			setquest 10119;
-			setquest 10120;
-			set slv_quest,6;
-			mes "[Risingeter]";
-			mes "Ok! I expect you will do the right thing.";
-			mes "Hunt 15 Clocks, Punks and Ridewords.";
-			close;
-		case 2:
-			set slv_quest,0;
-			erasequest 10105;
-			mes "[Risingeter]";
-			mes "You don't understand my love for clocks";
-			mes "I will find another brave adventurer.";
-			mes "I will inform the Eden Group.";
-			close;
+	case 5:
+		mes "- There are several requests -";
+		mes "- related to the Localized Islands -";
+		mes "- on this mission Board. -";
+		next;
+		set .@str1$,"I want to go on an adventure but there are so many things I have to deal with. If I can't, then others can't either! ";
+		set .@str2$,"- Funfy, who wants to go on an adventure -";
+		switch(select("Hunt Kikimora:Hunt Miyabi Doll:Hunt Mi Gao:Hunt Headless Mule:Hunt Tamruan:Gather Festival Masks for the Festival")) {
+			case 1: callsub L_Quest,10121,.@str1$+"Hunt 15 Kikimoras in Moscovia!",.@str2$;
+			case 2: callsub L_Quest,10122,.@str1$+"Hunt 15 Miyabi Dolls in Amatsu!",.@str2$;
+			case 3: callsub L_Quest,10123,.@str1$+"Hunt 15 Mi Gaos in Louyang!",.@str2$;
+			case 4: callsub L_Quest,5055,"I know there are many terrifying monsters outside the city, but what terrifies me are these Headless Mules lurking around. I hope they will never venture into town. Hunt 15 Headless Mules!","- Mariana from Brasilis -";
+			case 5: callsub L_Quest,5056,"Tamruans make a lot of noise. I don't mind in the morning but they keep me from falling asleep at night. I want to sleep. Hunt 15 Tamruans!","- Shaman Pumo from Ayotaya -";
+			case 6: callsub L_Quest,5057,"The Dumpling Childs stole all the masks that I had prepared for the festival. Try to get a hold of 30 masks! I'll owe you~","- SaYumMoon Chief of Kunlun -";
 		}
 	}
-	close;
-}
+	end;
 
-alberta,215,111,5	script	Funfi	828,{
-	if ((checkquest(10121) == 2) && (checkquest(10122) == 2) && (checkquest(10123) == 2) && (slv_quest == 6)) {
-		set slv_quest,0;
-		mes "[Funfi]";
-		mes "Um! Thank you so much for all your efforts!";
-		mes "I will inform, the Eden Group about your assistance, don't worry!";
-		mes "Hahahaha...";
-		close;
-	}
-	if (checkquest(10121) == 1 || checkquest(10122) == 1 || checkquest(10123) == 1) {
-		mes "[Funfi]";
-		mes "Unbelievable~! So fast~!";
-		mes "Which monster did you hunt?";
-		next;
-		setarray .@monsters$[0],"Kikimora","Miyabi Doll","Mi Gao";
-		set .@i, select(implode(.@monsters$,":"))-1;
-		if (checkquest(10121+.@i,HUNTING) == 2) {
-			mes "[Funfi]";
-			mes "Ok! You've hunted 15 "+.@monsters$[.@i]+"!";
-			mes "You're the best!";
+//callsub L_Quest,<quest ID>{,"<description1>","<description2>"};
+L_Quest:
+	set .@quest, getarg(0);
+	switch(.@quest) {
+		case 10107: set .@name$,"Hunt Requiem"; set .@exp,15000; break;
+		case 10108: set .@name$,"Hunt Marduk"; set .@exp,15000; break;
+		case 10109: set .@name$,"Hunt Pasana"; set .@exp,15000; break;
+		case 10110: set .@name$,"Hunt Dark Frame"; set .@exp,20000; break;
+		case 10111: set .@name$,"Hunt Evil Druid"; set .@exp,20000; break;
+		case 10112: set .@name$,"Hunt Wraith"; set .@exp,20000; break;
+		case 10113: set .@name$,"Hunt Raydric Archer"; set .@exp,20000; break;
+		case 10114: set .@name$,"Hunt Grand Peco"; set .@exp,30000; break;
+		case 10115: set .@name$,"Hunt Sleeper"; set .@exp,30000; break;
+		case 10116: set .@name$,"Hunt Goat"; set .@exp,30000; break;
+		case 10117: set .@name$,"Hunt Harpy"; set .@exp,30000; break;
+		case 10118: set .@name$,"Hunt Clock"; set .@exp,25000; break;
+		case 10119: set .@name$,"Hunt Punk"; set .@exp,25000; break;
+		case 10120: set .@name$,"Hunt Rideword"; set .@exp,25000; break;
+		case 10121: set .@name$,"Hunt Kikimora"; set .@exp,30000; break;
+		case 10122: set .@name$,"Hunt Miyabi Doll"; set .@exp,30000; break;
+		case 10123: set .@name$,"Hunt Mi Gao"; set .@exp,30000; break;
+		case 5055: set .@name$,"Hunt Headless Mule"; set .@exp,30000; break;
+		case 5056: set .@name$,"Hunt Tamruan"; set .@exp,30000; break;
+		case 5057: set .@name$,"Gather Festival Masks for the Festival"; set .@exp,30000; break;
+	}
+	if (getargcount() == 1) {
+		mes "'"+.@name$+"' completed. Do you want to turn it in and receive your reward?";
+		next;
+		if(select("Turn in quest.:Cancel.") == 1) {
+			if (.@quest == 5057) delitem 7187,30; //Festival_Mask
+			erasequest .@quest;
+			getexp .@exp,0;
+			mes "You've received EXP for finishing the quest.";
 			next;
-			completequest 10121+.@i;
-			getexp 48000,0;
-			mes "[Funfi]";
-			mes "Please hunt the others as well.";
-			mes "I have faith in you!";
-			close;
+			return;
 		}
-		mes "[Funfi]";
-		mes "Oh~ No no~!!";
-		mes "Listen carefully! Hunt 15 "+.@monsters$[.@i]+".";
 		close;
-	}
-	if (slv_quest == 6) {
-		mes "[Funfi]";
-		mes "Moscovia's Kikimore,";
-		mes "Miyabi Dolls from Amatsu";
-		mes "and Mi Gaos from Louyang.";
-		mes "Please hunt 15 of each of those monsters.";
-		close;
-	}
-	mes "[Funfi]";
-	mes "I am a man who wants to experience adventures. But for some reason I can't...";
-	next;
-	mes "[Funfi]";
-	mes "There are a lot of funny things in the world... Wooo!";
-	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~!";
-		next;
-		mes "[Funfi]";
-		mes "No questions! Just do it now!";
-		mes "Hunt Kikimora in Moscovia,";
-		mes "Miyabi Dolls in Amatsu";
-		mes "and Mi Gaos in Louyang!";
-		mes "Hunt 15 each of those monsters!";
-		next;
-		mes "[Funfi]";
-		mes "Please~!! haha.";
-		mes "Hurry up!";
-		next;
-		switch (select("Accept mission.:Decline mission.")) {
-		case 1:
-			completequest 10106;
-			setquest 10121;
-			setquest 10122;
-			setquest 10123;
-			set slv_quest,6;
-			getitem 7167,10; //Mystery_Iron_Bit
-			mes "[Funfi]";
-			mes "Ok! Good! Hurry up.";
-			mes "Hunt the monsters on each of those 3 islands.";
+	} else {
+		if (.@quest == 5057) {
+			// Quest 5057 is the only collection quest, so separate conditions are unnecessary.
+			if (checkquest(5057) == -1)
+				set .@hunting,-1;
+			else if (countitem(7187) >= 30)
+				set .@hunting,2;
+		} else
+			set .@hunting, checkquest(.@quest,HUNTING);
+		if (.@hunting == 0 || .@hunting == 1) {
+			mes getarg(1);
+			mes getarg(2);
 			next;
-			mes "[Funfi]";
-			mes "I will give you some materials for use in Moscovia.";
-			mes "Go as soon as you can!";
-			close;
-		case 2:
-			set slv_quest,0;
-			erasequest 10106;
-			mes "[Funfi]";
-			mes "What? You don't want to work?! Gosh!";
-			mes "I will inform the Eden Group of this!";
-			close;
+			mes "Return here when you've finished the quest.";
+		} else if (.@hunting == 2) {
+			mes "You have completed the quest.";
+			next;
+			if(select("Turn in quest.:Cancel.") == 1) {
+				if (.@quest == 5057) delitem 7187,30; //Festival_Mask
+				erasequest .@quest;
+				getexp .@exp,0;
+				mes "You've received EXP for finishing the quest.";
+			}
+		}/* else if (.@hunting == 3) {
+//			recall_completequest .@quest
+			erasequest .@quest;
+			mes "You have re-accepted the quest '"+.@name$+"'.";
+		}*/ else {
+			mes getarg(1);
+			mes getarg(2);
+			next;
+			mes "Do you want to accept the quest?";
+			next;
+			if(select("Yes.:No.") == 1) {
+				mes "You've received the quest '"+.@name$+"'. View your quest info for more details.";
+				setquest .@quest;
+			}
 		}
+		close;
 	}
-	close;
 }