From b17e2b7eca10674cc9bde7b2f4838bdd29b373dc Mon Sep 17 00:00:00 2001
From: Masao <masao@gmx.ch>
Date: Mon, 27 May 2013 22:55:07 +0200
Subject: - Added custom HD Refiner NPC Dwarf Mighty Hammer. (Disabled by
 default.)  * This NPC uses the cash shop HD ores to upgrade your weapon or
 gear up to +10 when your current gear or weapon is already +7 without
 breaking it but downgrading it. - Moved Malaya Port NPC's to re folder and
 updated the Malaya Port warps. - Fixed Bug where players weren't able to
 finish the Guardian of Yggdrasil Quest and didn't get their reward. - Fixed
 that players weren't able to start the "Ring of the wise king" and "Finding a
 Fairy" quest using the Cat Hand Agent warper inside Eden Group Headquarters.

Signed-off-by: Masao <masao@gmx.ch>
---
 npc/cities/malaya.txt          | 1520 ----------------------------------------
 npc/instances/NydhoggsNest.txt |    1 +
 npc/merchants/hd_refine.txt    |  211 ++++++
 npc/quests/quests_13_1.txt     |    4 +-
 npc/quests/quests_13_2.txt     |   10 +-
 npc/re/cities/malaya.txt       | 1520 ++++++++++++++++++++++++++++++++++++++++
 npc/re/scripts.conf            |    1 +
 npc/re/warps/cities/malaya.txt |  119 +++-
 npc/scripts.conf               |    2 +
 9 files changed, 1829 insertions(+), 1559 deletions(-)
 delete mode 100644 npc/cities/malaya.txt
 create mode 100644 npc/merchants/hd_refine.txt
 create mode 100644 npc/re/cities/malaya.txt

(limited to 'npc')

diff --git a/npc/cities/malaya.txt b/npc/cities/malaya.txt
deleted file mode 100644
index 3daff8526..000000000
--- a/npc/cities/malaya.txt
+++ /dev/null
@@ -1,1520 +0,0 @@
-//===== Hercules Script ======================================= 
-//= Port Malaya NPC's
-//===== By: ================================================== 
-//= Masao
-//===== Current Version: ===================================== 
-//= 1.0
-//===== Compatible With: ===================================== 
-//= Hercules
-//===== Description: ========================================= 
-//= Many Port Malaya NPC's & Quests.
-//===== Additional Comments: ================================= 
-//= 1.0 First Version.
-//============================================================ 
-
-malaya,276,55,4	script	Optamara Crew#malaya	100,{
-
-	if (malaya_hi < 10) {
-		mes "[Optamara Crew]";
-		mes "I think the village is still busy. Done with your visit? There is always a ship heading for Alberta.";
-		next;
-	}
-	else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		mes "[Optamara Crew]";
-		mes "I think a nameless adventurer helped take a load off the villagers mind. Yahoo! Would you like to go back to Alberta?";
-		next;
-	}
-	else {
-		mes "[Optamara Crew]";
-		mes "Would you like to go back to Alberta with me?";
-		next;
-	}
-	switch (select("Return.:Do not return.")) {
-	case 1:
-		mes "[Optamara Crew]";
-		mes "Great! Lets leave now for Alberta!!";
-		close2;
-		warp "alberta",239,68;
-		end;
-	case 2:
-		mes "[Optamara Crew]";
-		mes "Thats okay. Come here if you ever want to go back to Alberta.";
-		close;
-	}
-}
-
-alberta,237,71,3	script	Optamara Crew#alberta	100,{
-
-	mes "[Optamara Crew]";
-	mes "Hey, there!";
-	mes "Its 10,000 Zeny to go to Port Malaya. Interested?";
-	next;
-	switch (select("About Port Malaya:Go to Port Malaya.:Cancel.")) {
-	case 1:
-		mes "[Optamara Crew]";
-		mes "Port Malaya is a small village you could reach by sailing southwest from Alberta.";
-		next;
-		mes "[Optamara Crew]";
-		mes "I couldnt visit the village because they had some issues there but now it seems all is clear!";
-		next;
-		mes "[Optamara Crew]";
-		mes "I dont know for sure but it was a village that's like a comfortable and cozy park.";
-		next;
-		mes "[Optamara Crew]";
-		mes "I was this close to not coming back to cozy Alberta again.";
-		next;
-		mes "[Optamara Crew]";
-		mes "Im sure youll feel the same once you reach Port Malaya.";
-		close;
-	case 2:
-		if (Zeny > 9999) {
-			set Zeny, Zeny - 10000;
-			mes "[Optamara Crew]";
-			mes "Great!";
-			mes "Heading for Port Malaya!!";
-			close2;
-			warp "Malaya",271,55;
-			end;
-		}
-		mes "[Optamara Crew]";
-		mes "Oh God!!";
-		mes "You dont know how far it is from here. Of course its not free. Please come back with 10,000 Zeny. Sorry!";
-		close;
-	case 3:
-		mes "[Optamara Crew]";
-		mes "Adventurers these days act like they are busy. Come back when you have the time and we could go visit Port Malaya together.";
-		close;
-	}
-}
-
-ma_in01,30,94,4	script	Inn Keeper#ma	583,{
-
-	if (malaya_hi < 10) {
-		mes "[Inn Keeper]";
-		mes "Oh my! Visiting?";
-		mes "What bad timing. The village is a bit unorganized at the moment so Im actually closed. Sorry.";
-		close;
-	}
-	else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		mes "[Inn Keeper]";
-		mes "So you are the adventurer villagers are talking about? I reopened my inn thanks to you. Thank you.";
-		next;
-	}
-	else {
-		mes "[Inn Keeper]";
-		mes "Welcome.";
-		mes "This is Port Malaya's best inn, 'Cabin in the City'.";
-		next;
-	}
-	mes "[Inn Keeper]";
-	mes "Come for a rest? Lodging will be 5,000 Zeny.";
-	next;
-	switch (select("Store.:Lodge. - 5,000z:Cancel.")) {
-	case 1:
-		mes "[Inn Keeper]";
-		mes "Successfully stored. See you next time.";
-		savepoint "ma_in01",43,98;
-		close;
-	case 2:
-		if (Zeny < 5000) {
-		mes "[Inn Keeper]";
-		mes "Sorry. I think you are a bit short.";
-		close;
-		}
-		mes "[Inn Keeper]";
-		mes "Hope you enjoy your stay.";
-		close2;
-		set Zeny, Zeny - 5000;
-		percentheal 100,100;
-		warp "ma_in01",43,98;
-		end;
-	case 3:
-		close;
-	}
-}
-
-ma_fild01,166,214,6	script	Old Man in Dilemma#GA	575,{
-
-	if (MaxWeight - Weight < 600 || checkweight(1201,1) == 0) {
-		mes "Cannot proceed because you have too many items in your possession.";
-		close;
-	}
-	mes "[Old Man in Dilemma]";
-	mes "Oh! Demons are gaining more and more power in this world.";
-	next;
-	switch (select("We need to gather items to fight them off.:Ignore.")) {
-	case 1:
-		if ((countitem(6497) > 2) && (Zeny > 999)) {
-			mes "[Old Man in Dilemma]";
-			mes "You dont seem to be strong enough to fight off demons.";
-			next;
-			mes "[Old Man in Dilemma]";
-			mes "Will you create a Greater Agimat of Ancient Spirit with 3 Lesser Agimats and 1,000 Zeny?";
-			next;
-			switch (select("Create.:No, thank you.")) {
-			case 1:
-				if ((countitem(6497) > 2) && (Zeny > 999)) {
-					specialeffect2 EF_CONE;
-					specialeffect EF_FORESTLIGHT2;
-					set Zeny, Zeny - 1000;
-					getitem 12775,1; //Ancient_Spirit_Amulet
-					mes "[Old Man in Dilemma]";
-					mes "Hope you win the fight with the demon.";
-					close;
-				}
-				mes "[Old Man in Dilemma]";
-				mes "Short on materials.";
-				close;
-			case 2:
-				mes "[Old Man in Dilemma]";
-				mes "Hope you win the fight with the demon.";
-				close;
-			}
-		}
-		mes "[Old Man in Dilemma]";
-		mes "Cant make it now but there is an old way of making it handed down by generations.";
-		next;
-		mes "[Old Man in Dilemma]";
-		mes "You need to call upon the power of Ancient Spirits. But youll need several important materials first.";
-		next;
-		select("What are they?");
-		mes "[Old Man in Dilemma]";
-		mes "3 Lesser Agimats to hold the power of Ancient Spirits here and another special material handed down for generations.";
-		next;
-		mes "[Old Man in Dilemma]";
-		mes "But nobody can get this special item anymore.";
-		next;
-		select("Something money cannot buy?");
-		mes "[Old Man in Dilemma]";
-		mes "No, no... It's this round little thing, you see?";
-		next;
-		select("Are you talking about Zeny?");
-		mes "[Old Man in Dilemma]";
-		mes "Looks similar to the special items handed down from generations.";
-		next;
-		mes "[Old Man in Dilemma]";
-		mes "As long as we have enough of that, we could make the Greater Agimat of Ancient Spirit to fight against the demons.";
-		next;
-		select("Sounds good.");
-		mes "[Old Man in Dilemma]";
-		mes "In case you are too weary to take on the demons";
-		next;
-		mes "[Old Man in Dilemma]";
-		mes "come by with 3 Lesser Agimats and 1,000 of those so called Zeny.";
-		next;
-		mes "[Old Man in Dilemma]";
-		mes "I will make a Greater Agimat of Ancient Spirit that will increase your attacks against demons by 10% for 20 min.";
-		close;
-	case 2:
-	  mes "[Old Man in Dilemma]";
-	  mes "Hope you win the fight with the demon.";
-	  close;
-	}
-}
-
-ma_fild01,238,198,4	script	Tikbalang Expert#malaya	582,{
-
-	if (MaxWeight - Weight < 50 || checkweight(1201,1) == 0) {
-		mes "Cannot proceed because you have too many items in your possession.";
-		close;
-	}
-	mes "[Tikbalang Expert]";
-	mes "Ive spent 90% of my life studying Tikbalang.";
-	next;
-	switch (select("But you look young?:What is Tikbalang?:Teach me how to catch a Tikbalang.")) {
-	case 1:
-		mes "[Tikbalang Expert]";
-		mes "What! I might be imagining things.";
-		next;
-		mes "[Tikbalang Expert]";
-		mes "I look younger than I am because of my baby face. Ha ha ha";
-		next;
-		select("... ... ...");
-		mes "[Tikbalang Expert]";
-		mes "Trust!! They say faith will bring you luck.";
-		close;
-	case 2:
-		mes "[Tikbalang Expert]";
-		mes "Ha ha... You ask the right question.";
-		mes "Im a specialist in that field. Ask me anything.";
-		next;
-		select("Why wont you answer me?");
-		mes "[Tikbalang Expert]";
-		mes "Have you...  ever been fooled by anyone around you? Why cant you believe someones word for it? Really, ask me anything.";
-		next;
-		while (.@loop != 1) {
-			switch (select("I don't have any questions.:Characteristics?:Features?:Rumors?:Habitat?")) {
-			case 1:
-				set .@loop,1;
-				break;
-			case 2:
-				mes "[Tikbalang Expert]";
-				mes "Tikbalangs have a way to confuse travelers when they meet them by making them turn in circles regardless of wherever and how far they travel.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "They are mischievous creatures.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "But of course there is a way to stop their pranks. You know about the Inside-out Shirt? You can either wear your top inside-out.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "Or go on your way quietly without disrupting the Tikbalangs.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "Ha ha ha ha But everyone knows adventurers are never quiet while they travel, right?";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "Never...";
-				set .@loop,2;
-				next;
-				break;
-			case 3:
-				mes "[Tikbalang Expert]";
-				mes "They say Tikbalangs have several distinctions.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "First, they are very tall ^AAAAAA(tsk.. wish I were tall)^000000 and have skinny, imbalanced legs and arms. Looks almost like a human but their knees are higher than their upper body when they sit down,";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "Second, is the standard characteristics acknowledged by the association. They have heads and foot like a horse.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "So with all these appearance treats, Tikbalang is sometimes called the creature from hell.";
-				set .@loop,3;
-				next;
-				break;
-			case 4:
-				mes "[Tikbalang Expert]";
-				mes "There are several fun rumors about Tikbalangs.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "One of them is about Tikbalangs being the guardians of some kingdom that worships nature.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "So the Tikbalangs will trick travelers who come with bad intentions to the kingdom by making them travel in circles.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "Another rumor is that people around here say that 'if it rains on a clear day, then it must be Tikbalang's wedding day'.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "The association speculates that sayings like 'it rains on Bathorys wedding day' or 'it rains on Moonlight Flowers wedding day' might have derived from the Tikbalangs saying.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "Lastly, ancient fairy tales say that Tikbalangs can transform into human form or even make themselves transparent but nobody has verified this yet.";
-				set .@loop,4;
-				next;
-				break;
-			case 5:
-				mes "[Tikbalang Expert]";
-				mes "Tikbalangs usually live in dark, busy places where there arent many people around.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "Hmm... For example, they are known to live beneath bridges, in banana and bamboo forests and beneath large trees.";
-				next;
-				mes "[Tikbalang Expert]";
-				mes "And this is just my opinion but wouldnt you agree that they are living in dark places because it is easier to play pranks on people?";
-				set .@loop,5;
-				next;
-				break;
-			}
-		}
-		mes "[Tikbalang Expert]";
-		mes "I think this is enough explanation for now. You wouldnt understand other highly sophisticated topics with specific terminology and all anyway.";
-		next;
-		mes "[Tikbalang Expert]";
-		mes "Oh! Do you have any other questions?";
-		next;
-		mes "[Tikbalang Expert]";
-		mes "What do you think? Impressed at how much I know? Come by anytime when you have any more questions.";
-		close;
-	case 3:
-		mes "[Tikbalang Expert]";
-		mes "Ha ha ha. Do you now know how great I am?";
-		next;
-		if ((countitem(6496) > 2) && (countitem(6497) > 4)) {
-			mes "[Tikbalang Expert]";
-			mes "Oh! Isnt this material to make 'Tikbalang Belt' used to tame Tikbalangs?";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "The '^F80835Tikbalang Belt ^000000' is used to capture Tikbalangs without the hassle. But that doesnt mean its 100% successful. Interested? Do you want me to make one for you?";
-			next;
-			switch (select("Yes, Im interested.:No, I can capture one myself.")) {
-			case 1:
-				delitem 6496,3; //Tikbalang_Thick_Spine
-				getitem 12699,1; //Tikbalang_Belt
-				mes "[Tikbalang Expert]";
-				mes "Yiiiiiiiiiiii! Yap!";
-				next;
-				specialeffect EF_SONICBLOW2;
-				select("Huh?");
-				mes "[Tikbalang Expert]";
-				mes "The '^F80835Tikbalang Belt ^000000' is already created";
-				close;
-			case 2:
-				mes "[Tikbalang Expert]";
-				mes "You? Ha... You can try if you want to.";
-				close;
-			}
-		}
-		mes "[Tikbalang Expert]";
-		mes "There is the easy way and the hard way to capture Tikbalangs. Which one do you prefer?";
-		next;
-		switch (select("Easy way.:Hard way.")) {
-		case 1:
-			mes "[Tikbalang Expert]";
-			mes "Ha ha. Ive come up with the easy way myself.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "Bring me 3 Tikbalang's Thick Spines and 5 Lesser Agimats to make";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "a '^F80835Tikbalang Belt^000000' to help you easily capture Tikbalangs.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "Ha ha ha ha ha!";
-			mes "I will say it again.";
-			mes "Its 3 Tikbalang's Thick Spines and 5 Lesser Agimats. Understood?";
-			close;
-		case 2:
-			mes "[Tikbalang Expert]";
-			mes "Its easy for me but I dont know about you.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "Tikbalangs have a sharp, pointy mane behind their neck.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "Of course! There are several of them but you must get the three thickest ones.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "These three manes are the weak point. You can tame a Tikbalang by pulling the manes out.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "Now let me explain how to pull these manes out.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "You must fly like a butterfly and land like a bee on the back of a Tikbalang.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "Of course! The Tikbalang will get mad and try to shake you off with all its might.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "All you have to do is hold on until the Tikbalang gets exhausted.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "Then again, itll take 4 days and 3 nights for Tikbalangs to get tired since they are strong creatures. But lets not focus on too much details.";
-			next;
-			mes "[Tikbalang Expert]";
-			mes "Which means!! The Tikbalang is already tamed.";
-			close;
-		}
-	}
-}
-
-ma_fild01,74,367,6	script	Unidentified Creature#01	572,2,2,{
-	end;
-
-OnInit:
-	set .@kafre_who, rand(1,4);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnEnable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else if (.@kafre_who == 3) {
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#03::OnEnable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#04::OnEnable";
-	}
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#01";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#01";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,3);
-	if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnEnable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else if (.@kafre_who == 3) {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#03::OnEnable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#04::OnEnable";
-	}
-	end;
-
-OnTouch:
-	if (getcharid(1) != 0) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#01::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name04$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#01::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#01::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_fild01,109,116,4	script	Unidentified Creature#02	572,2,2,{
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#02";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#02";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,3);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else if (.@kafre_who == 3) {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#03::OnEnable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	}
-	else {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#04::OnEnable";
-	}
-	end;
-
-OnTouch:
-	if (getpartyleader(getcharid(1),1) == getcharid(3)) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#02::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name04$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#02::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#02::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_fild01,280,150,6	script	Unidentified Creature#03	572,2,2,{
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#03";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#03";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,3);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnEnable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#04::OnEnable";
-	}
-	end;
-
-OnTouch:
-	if ((checkquest(4229,PLAYTIME) > 0) && (checkquest(9223,PLAYTIME) > 0) && (checkquest(12278,PLAYTIME) > 0)) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#03::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name04$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#03::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#03::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_fild01,309,221,6	script	Unidentified Creature#04	572,2,2,{
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#04";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#04";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,3);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnEnable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#01::OnDisable";
-		donpcevent "Unidentified Creature#02::OnDisable";
-		donpcevent "Unidentified Creature#03::OnEnable";
-		donpcevent "Unidentified Creature#04::OnDisable";
-	}
-	end;
-
-OnTouch:
-	set .@kafre_tok, rand(1,100);
-	if (.@kafre_tok == 7 || .@kafre_tok == 17 || .@kafre_tok == 27 || .@kafre_tok == 37 || .@kafre_tok == 47 || .@kafre_tok == 57 || .@kafre_tok == 67 || .@kafre_tok == 77 || .@kafre_tok == 87 || .@kafre_tok == 97) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#04::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name04$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#04::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#04::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_fild02,282,41,4	script	Unidentified Creature#05	572,2,2,{
-	end;
-
-OnInit:
-	set .@kafre_who, rand(1,4);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-	} else if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnEnable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-	} else if (.@kafre_who == 3) {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnEnable";
-	} else {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-		donpcevent "Unidentified Creature#08::OnEnable";
-	}
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#05";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#05";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,3);
-	if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnEnable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-	} else if (.@kafre_who == 3) {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnEnable";
-	} else {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-		donpcevent "Unidentified Creature#08::OnEnable";
-	}
-	end;
-
-OnTouch:
-	if (getcharid(1) != 0) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#05::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name05$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#05::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#05::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_fild02,246,324,4	script	Unidentified Creature#06	572,2,2,{
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#06";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#06";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,3);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-	} else if (.@kafre_who == 3) {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnEnable";
-	} else {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-		donpcevent "Unidentified Creature#08::OnEnable";
-	}
-	end;
-
-OnTouch:
-	if (getpartyleader(getcharid(1),1) == getcharid(3)) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#06::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name05$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#06::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#06::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_fild02,71,296,6	script	Unidentified Creature#07	572,2,2,{
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#07";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#07";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,3);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-		donpcevent "Unidentified Creature#08::OnDisable";
-	} else if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnEnable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-		donpcevent "Unidentified Creature#08::OnEnable";
-	}
-	end;
-
-OnTouch:
-	if ((checkquest(4229,PLAYTIME) > 0) && (checkquest(9223,PLAYTIME) > 0) && (checkquest(12278,PLAYTIME) > 0)) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#07::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name05$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#07::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#07::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_fild02,32,263,4	script	Unidentified Creature#08	572,2,2,{
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#08";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#08";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,3);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-	} else if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnEnable";
-		donpcevent "Unidentified Creature#07::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#05::OnDisable";
-		donpcevent "Unidentified Creature#06::OnDisable";
-		donpcevent "Unidentified Creature#07::OnEnable";
-	}
-	end;
-
-OnTouch:
-	set .@kafre_tok, rand(1,100);
-	if (.@kafre_tok == 7 || .@kafre_tok == 17 || .@kafre_tok == 27 || .@kafre_tok == 37 || .@kafre_tok == 47 || .@kafre_tok == 57 || .@kafre_tok == 67 || .@kafre_tok == 77 || .@kafre_tok == 87 || .@kafre_tok == 97) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#08::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name05$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#08::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#08::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_scene01,195,92,4	script	Unidentified Creature#09	572,2,2,{
-	end;
-
-OnInit:
-	set .@kafre_who, rand(1,3);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#09::OnEnable";
-		donpcevent "Unidentified Creature#10::OnDisable";
-		donpcevent "Unidentified Creature#11::OnDisable";
-	} else if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#09::OnDisable";
-		donpcevent "Unidentified Creature#10::OnEnable";
-		donpcevent "Unidentified Creature#11::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#09::OnDisable";
-		donpcevent "Unidentified Creature#10::OnDisable";
-		donpcevent "Unidentified Creature#11::OnEnable";
-	}
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#09";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#09";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,2);
-	if (.@kafre_who == 2) {
-		donpcevent "Unidentified Creature#09::OnDisable";
-		donpcevent "Unidentified Creature#10::OnEnable";
-		donpcevent "Unidentified Creature#11::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#09::OnDisable";
-		donpcevent "Unidentified Creature#10::OnDisable";
-		donpcevent "Unidentified Creature#11::OnEnable";
-	}
-	end;
-
-OnTouch:
-	if (getcharid(1) != 0) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#09::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name06$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#09::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#09::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_scene01,158,139,4	script	Unidentified Creature#10	572,2,2,{
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#10";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#10";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,2);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#09::OnEnable";
-		donpcevent "Unidentified Creature#10::OnDisable";
-		donpcevent "Unidentified Creature#11::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#09::OnDisable";
-		donpcevent "Unidentified Creature#10::OnDisable";
-		donpcevent "Unidentified Creature#11::OnEnable";
-	}
-	end;
-
-OnTouch:
-	if (getpartyleader(getcharid(1),1) == getcharid(3)) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#10::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name06$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#10::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#10::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-ma_scene01,167,112,6	script	Unidentified Creature#11	572,2,2,{
-	end;
-
-OnEnable:
-	hideoffnpc "Unidentified Creature#11";
-	end;
-
-OnDisable:
-	hideonnpc "Unidentified Creature#11";
-	end;
-
-OnBingx2:
-	set .@kafre_who, rand(1,2);
-	if (.@kafre_who == 1) {
-		donpcevent "Unidentified Creature#09::OnEnable";
-		donpcevent "Unidentified Creature#10::OnDisable";
-	} else {
-		donpcevent "Unidentified Creature#10::OnEnable";
-	}
-	end;
-
-OnTouch:
-	if ((checkquest(4229,PLAYTIME) > 0) && (checkquest(9223,PLAYTIME) > 0) && (checkquest(12278,PLAYTIME) > 0)) {
-		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
-			donpcevent "Unidentified Creature#11::OnBingx2";
-			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
-			close;
-		}
-		set .@slot_name, rand(1,5);
-		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
-			set $ma_name06$,strcharinfo(0);
-		}
-		donpcevent "Unidentified Creature#11::OnBingx2";
-		mes "The unidentified creature gets a glimpse of you and disappears.";
-		close;
-	}
-	donpcevent "Unidentified Creature#11::OnBingx2";
-	mes "The unidentified creature looks at you and runs away.";
-	close;
-}
-
-malaya,227,311,4	script	Grandma#ma01	575,{
-
-	if (malaya_hi < 10) {
-		mes "[Grandma]";
-		mes "Youre not from around here? Take care of yourself.";
-		next;
-		mes "[Grandma]";
-		mes "Im worried because my daughter-in-law is pregnant. I hope nothing goes wrong.";
-		close;
-	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		mes "[Grandma]";
-		mes "I heard there is an outsider that is helping the village.";
-		next;
-		mes "[Grandma]";
-		mes "Then my daughter-in-law will be safe.";
-		close;
-	}
-	set .@name_tak01, rand(1,6);
-	if (.@name_tak01 == 1){
-		set .@name$,$ma_name01$;
-	}else if (.@name_tak01 == 2){
-		set .@name$,$ma_name02$;
-	}else if (.@name_tak01 == 3){
-		set .@name$,$ma_name03$;
-	}else if (.@name_tak01 == 4){
-		set .@name$,$ma_name04$;
-	}else if (.@name_tak01 == 5){
-		set .@name$,$ma_name05$;
-	}else{
-		set .@name$,$ma_name06$;
-	}
-	set .@name_tak02, rand(1,3);
-	if (.@name_tak02 == 2) {
-		mes "[Grandma]";
-		mes "Heard there is this" + .@name$ + "that follows Meoneonuncle around.";
-		next;
-		mes "[Grandma]";
-		mes "I will cheer for their forbidden love.";
-		close;
-	}
-	mes "[Grandma]";
-	mes "Im worried about my pregnant daughter-in-law. Hope Meoneonuncle wont bother her.";
-	next;
-	select("Meoneonuncle?");
-	mes "[Grandma]";
-	mes "Not from around here? Let me tell you why even a foreigner like you should be careful.";
-	next;
-	mes "[Grandma]";
-	mes "Meoneonuncle was a woman who lived in Port Malaya long ago. She married a decent man and also had a baby.";
-	next;
-	mes "[Grandma]";
-	mes "But happiness never lasts forever, right? The baby was miscarried from an accident,";
-	next;
-	mes "[Grandma]";
-	mes "She eventually passed away after grieving over her lost baby for days.";
-	next;
-	select("That is a sad story.");
-	mes "[Grandma]";
-	mes "Meoneonuncle then started to appear in spirit and take away babies from pregnant women in the village.";
-	next;
-	mes "[Grandma]";
-	mes "If you ever walk around Port Malaya at night.";
-	next;
-	mes "[Grandma]";
-	mes "and hear either tik-tik or wak-wak, be cautious because that is the sound of Meoneonuncles wings flapping.";
-	close;
-}
-
-malaya,189,263,4	script	Drumming Young Man #ma02	578,{
-
-	if (malaya_hi < 10) {
-		emotion e_omg;
-		mes "[Drumming Young Man]";
-		mes "Ugh... its just like that time before";
-		next;
-		emotion e_omg;
-		mes "[Drumming Young Man]";
-		mes "when the moon was swallowed. Argh!";
-		close;
-	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		mes "[Drumming Young Man]";
-		mes "I think the village was saved by a nameless adventurer.";
-		next;
-		emotion e_sigh;
-		mes "[Drumming Young Man]";
-		mes "Phew... I thought Bakonawa appeared again.";
-		close;
-	}
-	set .@name_tak01, rand(1,6);
-	if (.@name_tak01 == 1){
-		set .@name$,$ma_name01$;
-	}else if (.@name_tak01 == 2){
-		set .@name$,$ma_name02$;
-	}else if (.@name_tak01 == 3){
-		set .@name$,$ma_name03$;
-	}else if (.@name_tak01 == 4){
-		set .@name$,$ma_name04$;
-	}else if (.@name_tak01 == 5){
-		set .@name$,$ma_name05$;
-	}else{
-		set .@name$,$ma_name06$;
-	}
-	set .@name_tak02, rand(1,3);
-	if (.@name_tak02 == 2) {
-		mes "[Drumming Young Man]";
-		mes "" + .@name$ + "is said to have stopped Bakonawa from swallowing the moon. Isnt it awesome? I'm so relieved.";
-		close;
-	}
-	mes "[Drumming Young Man]";
-	mes "Bakonawa is also known as the 'monster that swallows the moon' in Port Malaya.";
-	next;
-	mes "[Drumming Young Man]";
-	mes "But I know that Bakonawa could also 'swallow people', too.";
-	next;
-	select("Huk! Then isn't it dangerous?");
-	emotion e_gg;
-	mes "[Drumming Young Man]";
-	mes "Ha ha ha. There is a way to stop Bakonawa from swallowing a person.";
-	next;
-	mes "[Drumming Young Man]";
-	mes "Yes, there is a weakness to even the worst monster that swallowed 6 moons already.";
-	next;
-	select("Wow. What is it?");
-	mes "[Drumming Young Man]";
-	mes "He is sensitive to noise so when hes about to swallow the moon!!";
-	next;
-	mes "[Drumming Young Man]";
-	mes "Thats your chance!! It doesnt matter what kind of noise!! Whether its a caldron, symbol, drum, pot or fry pan, just keep on making noise.";
-	next;
-	mes "[Drumming Young Man]";
-	mes "Then Bakonawa will get surprised, spit out the moon and run away!";
-	next;
-	mes "[Drumming Young Man]";
-	mes "Carry a drum around with you. Youll find it handy.";
-	close;
-}
-
-malaya,270,59,4	script	Port Guard#ma03	570,{
-
-	if (malaya_hi < 10) {
-		emotion e_swt2;
-		mes "[Port Guard]";
-		mes "The village is chaotic these days. Is it okay for me to be off like this?";
-		close;
-	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		emotion e_no;
-		mes "[Port Guard]";
-		mes "The village is somewhat stable now but you should still be careful walking around at night.";
-		close;
-	}
-	set .@name_tak01, rand(1,6);
-	if (.@name_tak01 == 1){
-		set .@name$,$ma_name01$;
-	}else if (.@name_tak01 == 2){
-		set .@name$,$ma_name02$;
-	}else if (.@name_tak01 == 3){
-		set .@name$,$ma_name03$;
-	}else if (.@name_tak01 == 4){
-		set .@name$,$ma_name04$;
-	}else if (.@name_tak01 == 5){
-		set .@name$,$ma_name05$;
-	}else{
-		set .@name$,$ma_name06$;
-	}
-	set .@name_tak02, rand(1,3);
-	if (.@name_tak02 == 2) {
-		mes "[Port Guard]";
-		mes "" + .@name$ + "is said to escape from Bu waya alive after being captured. This person must be powerful.";
-		close;
-	}
-	emotion e_omg;
-	mes "[Port Guard]";
-	mes "What!! Port all clear!!";
-	next;
-	mes "[Port Guard]";
-	mes "Huh? Youre not the captain? You scared me. Shoot! Ah, right! I received an official document for travelers.";
-	next;
-	select("What document?");
-	mes "[Port Guard]";
-	mes "It says that travelers should be careful of monsters when walking in the village at night.";
-	next;
-	mes "[Port Guard]";
-	mes "Buwaya dont come to the village often but there are cases when they snatch people in the boxes they carry at night.";
-	next;
-	mes "[Port Guard]";
-	mes "Huh?! And it says here that a monster named Wokwok especially visits the village often at night and should be avoided.";
-	next;
-	if (select("I see.:Is there any way to prevent them from coming?") == 1) {
-		mes "[Port Guard]";
-		mes "Be careful at night!";
-		close;
-	}
-	mes "[Port Guard]";
-	mes "They say you can attack Buwayas weak point inside the box they carry if you ever get caught in one.";
-	next;
-	mes "[Port Guard]";
-	mes "And you should run into the nearest building when you hear Wokwoks wings fluttering from afar.";
-	next;
-	emotion e_hmm;
-	mes "[Port Guard]";
-	mes "But if the fluttering sound is small or if you dont hear anything, lets just say you should prepare for attack and with for luck.";
-	close;
-}
-
-malaya,88,252,4	script	Little Girl #ma04	576,{
-
-	if (malaya_hi < 10) {
-		mes "[Little Girl]";
-		mes "Im scared but I have to visit the fairy in the forest.";
-		close;
-	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		mes "[Little Girl]";
-		mes "He he. Father said I can visit the fairy in the forest when the village calms down.";
-		close;
-	}
-	set .@name_tak01, rand(1,6);
-	if (.@name_tak01 == 1){
-		set .@name$,$ma_name01$;
-	}else if (.@name_tak01 == 2){
-		set .@name$,$ma_name02$;
-	}else if (.@name_tak01 == 3){
-		set .@name$,$ma_name03$;
-	}else if (.@name_tak01 == 4){
-		set .@name$,$ma_name04$;
-	}else if (.@name_tak01 == 5){
-		set .@name$,$ma_name05$;
-	}else{
-		set .@name$,$ma_name06$;
-	}
-	set .@name_tak02, rand(1,3);
-	if (.@name_tak02 == 2) {
-		mes "[Little Girl]";
-		mes "A little while ago" + .@name$ + "came and told me a fun story.";
-		next;
-		mes "[Little Girl]";
-		mes "'I planted a pair of pear trees in the yard.'";
-		mes "He he. Isnt it fun?" + .@name$ + "seems like a fun person.";
-		close;
-	}
-	mes "[Little Girl]";
-	mes "Father said I wont catch skin diseases once Im friends with the fairy from the forest.";
-	next;
-	select("What is this fairy?");
-	mes "[Little Girl]";
-	mes "Encanto! Encanto fairies live in big trees or rocks in the forest. There are boy fairies and girl fairies,";
-	next;
-	mes "[Little Girl]";
-	mes "but boy fairies are prettier. Why is that?";
-	close;
-}
-
-malaya,219,92,6	script	Little Kid#ma05	577,{
-
-	if (malaya_hi < 10) {
-		mes "[Little Kid]";
-		mes "My mom told me not to play outside because its dangerous. Why?";
-		close;
-	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		mes "[Little Kid]";
-		mes "My mom told me I can play but only in Port Malaya.";
-		next;
-		mes "[Little Kid]";
-		mes "He he. But I never thought of going outside of Port Malaya.";
-		close;
-	}
-	set .@name_tak01, rand(1,6);
-	if (.@name_tak01 == 1){
-		set .@name$,$ma_name01$;
-	}else if (.@name_tak01 == 2){
-		set .@name$,$ma_name02$;
-	}else if (.@name_tak01 == 3){
-		set .@name$,$ma_name03$;
-	}else if (.@name_tak01 == 4){
-		set .@name$,$ma_name04$;
-	}else if (.@name_tak01 == 5){
-		set .@name$,$ma_name05$;
-	}else{
-		set .@name$,$ma_name06$;
-	}
-	set .@name_tak02, rand(1,3);
-	if (.@name_tak02 == 2) {
-		mes "[Little Kid]";
-		mes "I heard someone took Jejelings hat in Baryo Mahiwaga.";
-		next;
-		mes "[Little Kid]";
-		mes "Why would someone steal a monsters hat?" + .@name$ + "must be desperate.";
-		next;
-		mes "[Little Kid]";
-		mes "Oh wait! This was suppose to be a secret. Shsh! Please pretend you didnt hear me.";
-		close;
-	}
-	mes "[Little Kid]";
-	mes "I think someone is stealing all the hats in the village.";
-	next;
-	mes "[Little Kid]";
-	mes "The hat my mom washed yesterday disappeared. Our neighbor's hat also disappeared a few days ago.";
-	next;
-	mes "[Little Kid]";
-	mes "Hmm... do you think Jejeling took it?";
-	next;
-	mes "[Little Kid]";
-	mes "I visited a friend in Baryo Mahiwaga and he said he saw Jejeling wearing the missing hat...";
-	close;
-}
-
-malaya,363,283,4	script	Local#ma06	582,{
-
-	if (malaya_hi < 10) {
-		mes "[Local]";
-		mes "Hmm... is it time to be careful of the witches' curse?";
-		next;
-		mes "[Local]";
-		mes "Beware of Mongkukurums needle, foreigner.";
-		close;
-	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		mes "[Local]";
-		mes "Welcome to Port Malaya, foreigner..";
-		next;
-		mes "[Local]";
-		mes "The village is chaotic these days. If you see someone with red eyes, try not to stare at their eyes.";
-		close;
-	}
-	set .@name_tak01, rand(1,6);
-	if (.@name_tak01 == 1){
-		set .@name$,$ma_name01$;
-	}else if (.@name_tak01 == 2){
-		set .@name$,$ma_name02$;
-	}else if (.@name_tak01 == 3){
-		set .@name$,$ma_name03$;
-	}else if (.@name_tak01 == 4){
-		set .@name$,$ma_name04$;
-	}else if (.@name_tak01 == 5){
-		set .@name$,$ma_name05$;
-	}else{
-		set .@name$,$ma_name06$;
-	}
-	set .@name_tak02, rand(1,6);
-	if (.@name_tak02 == 1) {
-		mes "[Local]";
-		mes "Be careful walking around the village at night." + .@name$ + "was taken down by Wokwok.";
-		close;
-	} else if (.@name_tak02 == 2) {
-		mes "[Local]";
-		mes "" + .@name$ + "is said to successfully tame a Tikbalang. This person must be courageous. Wonder if Ill get to see this tamed Tikbalang? �ѹ� ���� ������..";
-		close;
-	} else if (.@name_tak02 == 3) {
-		mes "[Local]";
-		mes "Have you ever seen Bongisungisu? I heard" + .@name$ + "is hunting down Bongisungisus.";
-		close;
-	} else if (.@name_tak02 == 4) {
-		mes "[Local]";
-		mes "If you plan to go out of the village, be careful of Tiucknuc" + .@name$ + "is said to be tricked by Tiucknuc and had to go to the to the hospital.";
-		close;
-	}
-	mes "[Local]";
-	mes "The village is chaotic these days. Looks like Mongkukurum is back in the village.";
-	next;
-	select("Mongkukurum?");
-	mes "[Local]";
-	mes "A monster that is also called witch. Looks like a person and also wears clothes.";
-	next;
-	mes "[Local]";
-	mes "Mongkukurum makes a doll out of the people it sees and curses it with needles.";
-	next;
-	select("Is there a way to recognize this monster?");
-	mes "[Local]";
-	mes "There is one way. All Mongkukurum have red eyes.";
-	next;
-	mes "[Local]";
-	mes "You can recognize them by their eyes but! You must remember one thing.";
-	next;
-	mes "[Local]";
-	mes "You will be captivated by Mongkukurum if you stare at their eyes too long.";
-	next;
-	mes "[Local]";
-	mes "Never ever stare into their eyes for too long.";
-	close;
-}
-
-malaya,41,127,6	script	Old Man #ma07	574,{
-
-	if (malaya_hi < 10) {
-		mes "[Old Man]";
-		mes "Foreigners are not welcomed that much when our village is chaotic like these days.";
-		close;
-	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		mes "[Old Man]";
-		mes "You are out of luck visiting the village at a time like this and not being welcomed.";
-		close;
-	}
-	set .@name_tak01, rand(1,6);
-	if (.@name_tak01 == 1){
-		set .@name$,$ma_name01$;
-	}else if (.@name_tak01 == 2){
-		set .@name$,$ma_name02$;
-	}else if (.@name_tak01 == 3){
-		set .@name$,$ma_name03$;
-	}else if (.@name_tak01 == 4){
-		set .@name$,$ma_name04$;
-	}else if (.@name_tak01 == 5){
-		set .@name$,$ma_name05$;
-	}else{
-		set .@name$,$ma_name06$;
-	}
-	set .@name_tak02, rand(1,3);
-	if (.@name_tak02 == 2) {
-		mes "[Old Man]";
-		mes "" + .@name$ + "is said to throw out Jellopy in this village.";
-		next;
-		mes "[Old Man]";
-		mes "Tsk, tsk... Must be a person that isnt worthy of a Jellopy.";
-		close;
-	}
-	mes "[Old Man]";
-	mes "You must also look out to see if Bangungot lives in a tree you are about to cut down.";
-	next;
-	mes "[Old Man]";
-	mes "Because strange things happen if logs from trees that Bangungot lived in are used as building pillars.";
-	next;
-	select("What happens?");
-	mes "[Old Man]";
-	mes "Well, for a Bangungot, it means losing its home so they get revengeful.";
-	next;
-	mes "[Old Man]";
-	mes "When you try to sleep near the pillar, it will keep awake by playing pranks at first.";
-	next;
-	mes "[Old Man]";
-	mes "But as time goes by and their vengeance grow, they sit on top of you until you suffocate.";
-	next;
-	select("Oh, gosh...");
-	mes "[Old Man]";
-	mes "Ha ha ha. There are no Bangungots in normal pillars, so don't lose sleep on it.";
-	close;
-}
-
-malaya,63,185,4	script	Woman#ma08	583,{
-
-	if (malaya_hi < 10) {
-		mes "[Woman]";
-		mes "I dont have anything to share with you.";
-		close;
-	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
-		mes "[Woman]";
-		mes "Im worried about the children. I hope they arent terrified from whats going on in the village.";
-		close;
-	}
-	set .@name_tak01, rand(1,6);
-	if (.@name_tak01 == 1){
-		set .@name$,$ma_name01$;
-	}else if (.@name_tak01 == 2){
-		set .@name$,$ma_name02$;
-	}else if (.@name_tak01 == 3){
-		set .@name$,$ma_name03$;
-	}else if (.@name_tak01 == 4){
-		set .@name$,$ma_name04$;
-	}else if (.@name_tak01 == 5){
-		set .@name$,$ma_name05$;
-	}else{
-		set .@name$,$ma_name06$;
-	}
-	set .@name_tak02, rand(1,3);
-	if (.@name_tak02 == 2) {
-		set .@nongdum, rand(1,10);
-		if (.@nongdum == 1) {
-			mes "[Woman]";
-			mes "I like fun stories. Not so long ago," + .@name$ + "came and told me a funny story.";
-			next;
-			mes "[Woman]";
-			mes "'My aunt stepped on an ant.'";
-			next;
-		} else if (.@nongdum == 2) {
-			mes "[Woman]";
-			mes "I like fun stories. Not so long ago" + .@name$ + "came and told me a funny story.";
-			next;
-			mes "[Woman]";
-			mes "'You eat chili on a chilly day.'";
-			next;
-		} else if (.@nongdum == 3) {
-			mes "[Woman]";
-			mes "I like fun stories. Not so long ago" + .@name$ + "came and told me a funny story.";
-			next;
-			mes "[Woman]";
-			mes "'Why are you putting flour on that flower?'";
-			next;
-		} else if (.@nongdum == 4) {
-			mes "[Woman]";
-			mes "I like fun stories. Not so long ago" + .@name$ + "came and told me a funny story.";
-			next;
-			mes "[Woman]";
-			mes "At the Tool Store, 'Ill buy the needle and thread! You buy the hay to lose the needle in.'";
-			next;
-			mes "[Woman]";
-			mes "said that and was kicked out of the Tool Store.";
-			next;
-		} else if (.@nongdum == 5) {
-			mes "[Woman]";
-			mes "A Kafra Employee Im friends with told me a story about a customer.";
-			next;
-			mes "[Woman]";
-			mes "'Kafra, the wise never marry and when they marry, they become otherwise.'";
-			next;
-			mes "[Woman]";
-			mes "He he... I do like funny stories but a bit difficult for my taste.";
-			close;
-		} else {
-			mes "[Woman]";
-			mes "I like fun stories. Oh by the way!" + .@name$ + ", love is photogenic. Dont you agree?";
-			next;
-			mes "[Woman]";
-			mes "It needs darkness to develop.";
-			next;
-		}
-		mes "[Woman]";
-		mes "He he. Isnt it fun?";
-		close;
-	}
-	mes "[Woman]";
-	mes "If you hear a baby crying from the forest outside of the village, never go near it.";
-	next;
-	select("Why?");
-	mes "[Woman]";
-	mes "There is a monster named Tiucknuc that roams around outside of the village and cries after transforming himself into a baby.";
-	next;
-	mes "[Woman]";
-	mes "But when kind travelers pick up the baby, it turns back into its original form and attacks.";
-	next;
-	select("Sounds like a sneaky monster.");
-	mes "[Woman]";
-	mes "Yes, this monster is bad to trick the kindness of travelers but,";
-	next;
-	mes "[Woman]";
-	mes "there is rumor that the monster came from the soul of a baby that never been born. So sad.";
-	close;
-}
\ No newline at end of file
diff --git a/npc/instances/NydhoggsNest.txt b/npc/instances/NydhoggsNest.txt
index fffe47227..4898bb6c3 100644
--- a/npc/instances/NydhoggsNest.txt
+++ b/npc/instances/NydhoggsNest.txt
@@ -2134,6 +2134,7 @@ OnTimer180000:
 	switch(select("Please let me out.:I want to look around for a while.")) {
 	case 1:
 		set 'ins_nyd2,0;
+		set ins_nyd,203;
 		//setquest 3135;
 		warp "nyd_dun02",98,196;
 		end;
diff --git a/npc/merchants/hd_refine.txt b/npc/merchants/hd_refine.txt
new file mode 100644
index 000000000..0fc0b8c08
--- /dev/null
+++ b/npc/merchants/hd_refine.txt
@@ -0,0 +1,211 @@
+//===== Hercules Script ======================================
+//= HD Refiner
+//===== By: ==================================================
+//= Masao
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= Hercules
+//===== Description: =========================================
+//= Dwarf Mighty Hammer is an refining NPC which allows you
+//= to upgrade your weapon or gear up to +10 without breaking
+//= the weapon or gear but instead downgrading it by -1 using
+//= the HD Ores which are usually only obtainable through the
+//= *RO cashshops.
+//=
+//= Even at +0 refine, if you use the HD stones, the weapon
+//= or gear will not break but stay at +0 if it fails.
+//===== Additional Comments: =================================
+//= 1.0 First Version, dialogue and coordinations are custom.
+//============================================================
+
+// Dwarf Mighty Hammer Locations (Custom)
+//============================================================
+prontera,145,170,6	script	Dwarf Mighty Hammer#prt	826,{
+	callfunc "refinehd","Dwarf Mighty Hammer";
+	end;
+}
+moc_para01,175,115,5	script	Dwarf Mighty Hammer#moc	826,{
+	callfunc "refinehd","Dwarf Mighty Hammer";
+	end;
+}
+payon,140,175,6	script	Dwarf Mighty Hammer#pay	826,{
+	callfunc "refinehd","Dwarf Mighty Hammer";
+	end;
+}
+
+//============================================================
+// +7 to +10 Refiner Function
+//============================================================
+function	script	refinehd	{
+	disable_items;
+	mes "["+ getarg(0) +"]";
+	mes "I am the best Blacksmith ever!";
+	mes "I don't work with normal, boring items.";
+	mes "But only with items that are level 7 or higher!";
+	next;
+	mes "["+ getarg(0) +"]";
+	mes "Anyway, you may use my services if your item is lv 7 or higher.";
+	mes "What do you want to have refined?";
+	next;
+	setarray .@position$[1],"Head","Body","Left hand","Right hand","Robe","Shoes","Accessory 1","Accessory 2","Head 2","Head 3";
+	set .@menu$,"";
+	for(set .@i,1; .@i<=10; set .@i,.@i+1) {
+		if(getequipisequiped(.@i))
+			set .@menu$, .@menu$ + .@position$[.@i] + "-" + "[" + getequipname(.@i) + "]";
+		set .@menu$, .@menu$ + ":";
+	}
+	set .@part,select(.@menu$);
+	if(!getequipisequiped(.@part)) {
+		mes "[" + getarg(0) + "]";
+		mes "You're not wearing";
+		mes "anything there that";
+		mes "I can refine.";
+		emotion e_an;
+		close;
+	}
+	//Check if the item is refinable...
+	if(!getequipisenableref(.@part)) {
+		mes "[" + getarg(0) + "]";
+		mes "I don't think I can";
+		mes "refine this item at all...";
+		close;
+	}
+	//Check if the item is identified... (Don't know why this is in here... but kept it anyway)
+	if(!getequipisidentify(.@part)) {
+		mes "[" + getarg(0) + "]";
+		mes "You can't refine this";
+		mes "if you haven't appraised";
+		mes "it first. Make sure your";
+		mes "stuff is identified before";
+		mes "I can refine it.";
+		close;
+	}
+	//Check to see if the item is at least +7
+	if(getequiprefinerycnt(.@part) < 7) {
+		mes "["+ getarg(0) +"]";
+		mes "I said I don't work with Equipment under lv. 7.";
+		close;
+	}
+	if(getequiprefinerycnt(.@part) >= 10) {
+		mes "["+ getarg(0) +"]";
+		mes "I can't refine this";
+		mes "any more. This is as";
+		mes "refined as it gets!";
+		close;
+	}
+	set .@refineitemid, getequipid(.@part); // save id of the item
+	set .@refinerycnt, getequiprefinerycnt(.@part); //save refinery count
+	if ((getequipweaponlv(.@part) >= 1) && (getequipweaponlv(.@part) <= 4)) {
+		set .@material,6240;
+		mes "["+ getarg(0) +"]";
+		mes "Hmm a weapon, is that ok?";
+		mes "If you want to refine this weapon,";
+		mes "I will need 1 ^003366Purified Oridecon^000000.";
+		mes "Are you sure you want to continue?";
+	} else {
+		set .@material,6241;
+		mes "["+ getarg(0) +"]";
+		mes "Hmm an armor, is that ok?";
+		mes "If you want to refine this armor,";
+		mes "I will need 1 ^003366Purified Elunium^000000.";
+		mes "Are you sure you want to continue?";
+	}
+	next;
+	if(select("Yes:No") == 2){
+		mes "["+ getarg(0) +"]";
+		mes "Well, no challenge is one way...";
+		mes "No risk... that could be wise.";
+		close;
+	}
+	set .@continue,1;
+	while(.@continue == 1){
+		if(getequiprefinerycnt(.@part) >= 10) {
+			mes "["+ getarg(0) +"]";
+			mes "I can't refine this";
+			mes "any more. This is as";
+			mes "refined as it gets!";
+			close;
+		}
+		if ((getequipweaponlv(.@part) >= 1) && (getequipweaponlv(.@part) <= 4)) {
+			mes "["+ getarg(0) +"]";
+			mes "This weapon already has been refined serveral times.";
+			mes "You could have the upgrade level of the weapon decreased.";
+		} else {
+			mes "["+ getarg(0) +"]";
+			mes "This armor already has been refined serveral times.";
+			mes "You could have the upgrade level of the armor decreased.";
+		}
+		next;
+		mes "["+ getarg(0) +"]";
+		mes "Do you want me to refine it?";
+		mes "I think I gave you enough warnings.";
+		next;
+		if(select("Yes.:No.") == 2) {
+			mes "["+ getarg(0) +"]";
+			mes "Well, no challenge is one way..";
+			mes "No risk.. that could be wise.";
+			close;
+		}
+		if(countitem(.@material) < 1) {
+			mes "["+ getarg(0) +"]";
+			mes "Hm, it seems you don't have enough materials.";
+			mes "Please check it out.";
+			close;
+		}
+		delitem .@material,1;
+		if(getequipisequiped(.@part) == 0) { // hacker has removed the item (not changed, why?)
+			mes "[" + getarg(0) + "]";
+			mes "Look here... you don't have any items on...";
+			close;
+		}
+		set .@rand,rand(100);
+		if (getequippercentrefinery(.@part) > .@rand) {
+			mes "Clang! Clang! Clang! Clang!";
+			successrefitem .@part;
+			next;
+			emotion e_no1;
+			mes "["+ getarg(0) +"]";
+			mes "Good! Succes!!!";
+			mes "I am the best Blacksmith.";
+			next;
+			mes "["+ getarg(0) +"]";
+			mes "Ould you like to continue?";
+			if(select("No:Yes") == 1){
+				mes "[" + getarg(0) + "]";
+				mes "All finished... Come again soon.";
+				close;
+			}
+			next;
+		}
+		if (getequippercentrefinery(.@part) < .@rand) {
+			mes "["+ getarg(0) +"]";
+			mes "Clang! Clang! Clang! Clang!";
+			if(getequiprefinerycnt(.@part) >= 1) {
+				downrefitem .@part;
+			}
+			next;
+			emotion (!rand(5))?e_cash:e_omg;
+			mes "["+ getarg(0) +"]";
+			mes "Ahhh!!!";
+			next;
+			mes "["+ getarg(0) +"]";
+			mes "Oh my!";
+			mes "The upgrade level has dropped...";
+			mes "There could've been made an mistake even though I am the best ever.";
+			mes "It was out of my hands.";
+			next;
+			mes "["+ getarg(0) +"]";
+			mes "I will do a better job next time! Don't worry!";
+			next;
+			mes "["+ getarg(0) +"]";
+			mes "Ould you like to continue?";
+			if(select("No:Yes") == 1){
+				mes "[" + getarg(0) + "]";
+				mes "All finished... Come again soon.";
+				close;
+			}
+			next;
+		}
+	}
+}
\ No newline at end of file
diff --git a/npc/quests/quests_13_1.txt b/npc/quests/quests_13_1.txt
index d585fc6ca..a9dff84d3 100644
--- a/npc/quests/quests_13_1.txt
+++ b/npc/quests/quests_13_1.txt
@@ -4783,7 +4783,7 @@ mid_camp,240,270,3	script	Botanist#ep13	750,{
 
 mid_camp,336,171,1	script	Camp Guard#man1	852,{
 	if (ep13_animal == 0) {
-		if (ep13_newbs == 6 || ep13_newbs == 19) goto OnHalt;
+		if (ep13_newbs == 6 || ep13_newbs == 19 || ep13_start == 100) goto OnHalt;
 		else {
 			mes "[Camp Guard]";
 			mes "Stop!";
@@ -4877,7 +4877,7 @@ OnHalt:
 
 mid_camp,13,143,5	script	Camp Guard#man2	852,{
 	if (ep13_animal == 0) {
-		if (ep13_newbs == 6 || ep13_newbs == 19) goto OnHalt;
+		if (ep13_newbs == 6 || ep13_newbs == 19  || ep13_start == 100) goto OnHalt;
 		else {
 			mes "[Camp Guard]";
 			mes "Stop!";
diff --git a/npc/quests/quests_13_2.txt b/npc/quests/quests_13_2.txt
index 1da301ac9..de8f86970 100644
--- a/npc/quests/quests_13_2.txt
+++ b/npc/quests/quests_13_2.txt
@@ -3324,23 +3324,23 @@ mid_camp,192,239,4	script	Wanted Sign#ep13_2ect01	857,{
 	if ((ep13_2_dayegg == 1) && (countitem(6093) < 10)) {
 		mes "We just got fresh eggs from the dragon nest.";
 		getitem 6093,1; //Egg_Of_Draco
-		disablenpc strnpcinfo(1);
+		disablenpc strnpcinfo(0);
 		initnpctimer;
 		close;
 	}
 	end;
 
 OnTimer420000:
-	enablenpc strnpcinfo(1);
+	enablenpc strnpcinfo(0);
 	stopnpctimer;
 	end;
 
 OnEnable:
-	enablenpc strnpcinfo(1);
+	enablenpc strnpcinfo(0);
 	end;
 
 OnDisable:
-	disablenpc strnpcinfo(1);
+	disablenpc strnpcinfo(0);
 	end;
 }
 
@@ -3560,7 +3560,7 @@ OnTimer300000:
 // Otherworld language
 //============================================================ 
 mid_camp,197,237,3	script	Schwartzvalt Mechanic#1	869,{
-	if (ep13_1_edq > 2) {
+	if (ep13_1_edq > 2 || ep13_start == 100) {
 		if (ep13_2_rhea < 1) {
 			mes "[Mechanic Engineer Dorance]";
 			mes "Do you know about the Ring of the Ancient Wise King? If you wear that Ring, you can talk to animals.";
diff --git a/npc/re/cities/malaya.txt b/npc/re/cities/malaya.txt
new file mode 100644
index 000000000..3daff8526
--- /dev/null
+++ b/npc/re/cities/malaya.txt
@@ -0,0 +1,1520 @@
+//===== Hercules Script ======================================= 
+//= Port Malaya NPC's
+//===== By: ================================================== 
+//= Masao
+//===== Current Version: ===================================== 
+//= 1.0
+//===== Compatible With: ===================================== 
+//= Hercules
+//===== Description: ========================================= 
+//= Many Port Malaya NPC's & Quests.
+//===== Additional Comments: ================================= 
+//= 1.0 First Version.
+//============================================================ 
+
+malaya,276,55,4	script	Optamara Crew#malaya	100,{
+
+	if (malaya_hi < 10) {
+		mes "[Optamara Crew]";
+		mes "I think the village is still busy. Done with your visit? There is always a ship heading for Alberta.";
+		next;
+	}
+	else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		mes "[Optamara Crew]";
+		mes "I think a nameless adventurer helped take a load off the villagers mind. Yahoo! Would you like to go back to Alberta?";
+		next;
+	}
+	else {
+		mes "[Optamara Crew]";
+		mes "Would you like to go back to Alberta with me?";
+		next;
+	}
+	switch (select("Return.:Do not return.")) {
+	case 1:
+		mes "[Optamara Crew]";
+		mes "Great! Lets leave now for Alberta!!";
+		close2;
+		warp "alberta",239,68;
+		end;
+	case 2:
+		mes "[Optamara Crew]";
+		mes "Thats okay. Come here if you ever want to go back to Alberta.";
+		close;
+	}
+}
+
+alberta,237,71,3	script	Optamara Crew#alberta	100,{
+
+	mes "[Optamara Crew]";
+	mes "Hey, there!";
+	mes "Its 10,000 Zeny to go to Port Malaya. Interested?";
+	next;
+	switch (select("About Port Malaya:Go to Port Malaya.:Cancel.")) {
+	case 1:
+		mes "[Optamara Crew]";
+		mes "Port Malaya is a small village you could reach by sailing southwest from Alberta.";
+		next;
+		mes "[Optamara Crew]";
+		mes "I couldnt visit the village because they had some issues there but now it seems all is clear!";
+		next;
+		mes "[Optamara Crew]";
+		mes "I dont know for sure but it was a village that's like a comfortable and cozy park.";
+		next;
+		mes "[Optamara Crew]";
+		mes "I was this close to not coming back to cozy Alberta again.";
+		next;
+		mes "[Optamara Crew]";
+		mes "Im sure youll feel the same once you reach Port Malaya.";
+		close;
+	case 2:
+		if (Zeny > 9999) {
+			set Zeny, Zeny - 10000;
+			mes "[Optamara Crew]";
+			mes "Great!";
+			mes "Heading for Port Malaya!!";
+			close2;
+			warp "Malaya",271,55;
+			end;
+		}
+		mes "[Optamara Crew]";
+		mes "Oh God!!";
+		mes "You dont know how far it is from here. Of course its not free. Please come back with 10,000 Zeny. Sorry!";
+		close;
+	case 3:
+		mes "[Optamara Crew]";
+		mes "Adventurers these days act like they are busy. Come back when you have the time and we could go visit Port Malaya together.";
+		close;
+	}
+}
+
+ma_in01,30,94,4	script	Inn Keeper#ma	583,{
+
+	if (malaya_hi < 10) {
+		mes "[Inn Keeper]";
+		mes "Oh my! Visiting?";
+		mes "What bad timing. The village is a bit unorganized at the moment so Im actually closed. Sorry.";
+		close;
+	}
+	else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		mes "[Inn Keeper]";
+		mes "So you are the adventurer villagers are talking about? I reopened my inn thanks to you. Thank you.";
+		next;
+	}
+	else {
+		mes "[Inn Keeper]";
+		mes "Welcome.";
+		mes "This is Port Malaya's best inn, 'Cabin in the City'.";
+		next;
+	}
+	mes "[Inn Keeper]";
+	mes "Come for a rest? Lodging will be 5,000 Zeny.";
+	next;
+	switch (select("Store.:Lodge. - 5,000z:Cancel.")) {
+	case 1:
+		mes "[Inn Keeper]";
+		mes "Successfully stored. See you next time.";
+		savepoint "ma_in01",43,98;
+		close;
+	case 2:
+		if (Zeny < 5000) {
+		mes "[Inn Keeper]";
+		mes "Sorry. I think you are a bit short.";
+		close;
+		}
+		mes "[Inn Keeper]";
+		mes "Hope you enjoy your stay.";
+		close2;
+		set Zeny, Zeny - 5000;
+		percentheal 100,100;
+		warp "ma_in01",43,98;
+		end;
+	case 3:
+		close;
+	}
+}
+
+ma_fild01,166,214,6	script	Old Man in Dilemma#GA	575,{
+
+	if (MaxWeight - Weight < 600 || checkweight(1201,1) == 0) {
+		mes "Cannot proceed because you have too many items in your possession.";
+		close;
+	}
+	mes "[Old Man in Dilemma]";
+	mes "Oh! Demons are gaining more and more power in this world.";
+	next;
+	switch (select("We need to gather items to fight them off.:Ignore.")) {
+	case 1:
+		if ((countitem(6497) > 2) && (Zeny > 999)) {
+			mes "[Old Man in Dilemma]";
+			mes "You dont seem to be strong enough to fight off demons.";
+			next;
+			mes "[Old Man in Dilemma]";
+			mes "Will you create a Greater Agimat of Ancient Spirit with 3 Lesser Agimats and 1,000 Zeny?";
+			next;
+			switch (select("Create.:No, thank you.")) {
+			case 1:
+				if ((countitem(6497) > 2) && (Zeny > 999)) {
+					specialeffect2 EF_CONE;
+					specialeffect EF_FORESTLIGHT2;
+					set Zeny, Zeny - 1000;
+					getitem 12775,1; //Ancient_Spirit_Amulet
+					mes "[Old Man in Dilemma]";
+					mes "Hope you win the fight with the demon.";
+					close;
+				}
+				mes "[Old Man in Dilemma]";
+				mes "Short on materials.";
+				close;
+			case 2:
+				mes "[Old Man in Dilemma]";
+				mes "Hope you win the fight with the demon.";
+				close;
+			}
+		}
+		mes "[Old Man in Dilemma]";
+		mes "Cant make it now but there is an old way of making it handed down by generations.";
+		next;
+		mes "[Old Man in Dilemma]";
+		mes "You need to call upon the power of Ancient Spirits. But youll need several important materials first.";
+		next;
+		select("What are they?");
+		mes "[Old Man in Dilemma]";
+		mes "3 Lesser Agimats to hold the power of Ancient Spirits here and another special material handed down for generations.";
+		next;
+		mes "[Old Man in Dilemma]";
+		mes "But nobody can get this special item anymore.";
+		next;
+		select("Something money cannot buy?");
+		mes "[Old Man in Dilemma]";
+		mes "No, no... It's this round little thing, you see?";
+		next;
+		select("Are you talking about Zeny?");
+		mes "[Old Man in Dilemma]";
+		mes "Looks similar to the special items handed down from generations.";
+		next;
+		mes "[Old Man in Dilemma]";
+		mes "As long as we have enough of that, we could make the Greater Agimat of Ancient Spirit to fight against the demons.";
+		next;
+		select("Sounds good.");
+		mes "[Old Man in Dilemma]";
+		mes "In case you are too weary to take on the demons";
+		next;
+		mes "[Old Man in Dilemma]";
+		mes "come by with 3 Lesser Agimats and 1,000 of those so called Zeny.";
+		next;
+		mes "[Old Man in Dilemma]";
+		mes "I will make a Greater Agimat of Ancient Spirit that will increase your attacks against demons by 10% for 20 min.";
+		close;
+	case 2:
+	  mes "[Old Man in Dilemma]";
+	  mes "Hope you win the fight with the demon.";
+	  close;
+	}
+}
+
+ma_fild01,238,198,4	script	Tikbalang Expert#malaya	582,{
+
+	if (MaxWeight - Weight < 50 || checkweight(1201,1) == 0) {
+		mes "Cannot proceed because you have too many items in your possession.";
+		close;
+	}
+	mes "[Tikbalang Expert]";
+	mes "Ive spent 90% of my life studying Tikbalang.";
+	next;
+	switch (select("But you look young?:What is Tikbalang?:Teach me how to catch a Tikbalang.")) {
+	case 1:
+		mes "[Tikbalang Expert]";
+		mes "What! I might be imagining things.";
+		next;
+		mes "[Tikbalang Expert]";
+		mes "I look younger than I am because of my baby face. Ha ha ha";
+		next;
+		select("... ... ...");
+		mes "[Tikbalang Expert]";
+		mes "Trust!! They say faith will bring you luck.";
+		close;
+	case 2:
+		mes "[Tikbalang Expert]";
+		mes "Ha ha... You ask the right question.";
+		mes "Im a specialist in that field. Ask me anything.";
+		next;
+		select("Why wont you answer me?");
+		mes "[Tikbalang Expert]";
+		mes "Have you...  ever been fooled by anyone around you? Why cant you believe someones word for it? Really, ask me anything.";
+		next;
+		while (.@loop != 1) {
+			switch (select("I don't have any questions.:Characteristics?:Features?:Rumors?:Habitat?")) {
+			case 1:
+				set .@loop,1;
+				break;
+			case 2:
+				mes "[Tikbalang Expert]";
+				mes "Tikbalangs have a way to confuse travelers when they meet them by making them turn in circles regardless of wherever and how far they travel.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "They are mischievous creatures.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "But of course there is a way to stop their pranks. You know about the Inside-out Shirt? You can either wear your top inside-out.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "Or go on your way quietly without disrupting the Tikbalangs.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "Ha ha ha ha But everyone knows adventurers are never quiet while they travel, right?";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "Never...";
+				set .@loop,2;
+				next;
+				break;
+			case 3:
+				mes "[Tikbalang Expert]";
+				mes "They say Tikbalangs have several distinctions.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "First, they are very tall ^AAAAAA(tsk.. wish I were tall)^000000 and have skinny, imbalanced legs and arms. Looks almost like a human but their knees are higher than their upper body when they sit down,";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "Second, is the standard characteristics acknowledged by the association. They have heads and foot like a horse.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "So with all these appearance treats, Tikbalang is sometimes called the creature from hell.";
+				set .@loop,3;
+				next;
+				break;
+			case 4:
+				mes "[Tikbalang Expert]";
+				mes "There are several fun rumors about Tikbalangs.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "One of them is about Tikbalangs being the guardians of some kingdom that worships nature.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "So the Tikbalangs will trick travelers who come with bad intentions to the kingdom by making them travel in circles.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "Another rumor is that people around here say that 'if it rains on a clear day, then it must be Tikbalang's wedding day'.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "The association speculates that sayings like 'it rains on Bathorys wedding day' or 'it rains on Moonlight Flowers wedding day' might have derived from the Tikbalangs saying.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "Lastly, ancient fairy tales say that Tikbalangs can transform into human form or even make themselves transparent but nobody has verified this yet.";
+				set .@loop,4;
+				next;
+				break;
+			case 5:
+				mes "[Tikbalang Expert]";
+				mes "Tikbalangs usually live in dark, busy places where there arent many people around.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "Hmm... For example, they are known to live beneath bridges, in banana and bamboo forests and beneath large trees.";
+				next;
+				mes "[Tikbalang Expert]";
+				mes "And this is just my opinion but wouldnt you agree that they are living in dark places because it is easier to play pranks on people?";
+				set .@loop,5;
+				next;
+				break;
+			}
+		}
+		mes "[Tikbalang Expert]";
+		mes "I think this is enough explanation for now. You wouldnt understand other highly sophisticated topics with specific terminology and all anyway.";
+		next;
+		mes "[Tikbalang Expert]";
+		mes "Oh! Do you have any other questions?";
+		next;
+		mes "[Tikbalang Expert]";
+		mes "What do you think? Impressed at how much I know? Come by anytime when you have any more questions.";
+		close;
+	case 3:
+		mes "[Tikbalang Expert]";
+		mes "Ha ha ha. Do you now know how great I am?";
+		next;
+		if ((countitem(6496) > 2) && (countitem(6497) > 4)) {
+			mes "[Tikbalang Expert]";
+			mes "Oh! Isnt this material to make 'Tikbalang Belt' used to tame Tikbalangs?";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "The '^F80835Tikbalang Belt ^000000' is used to capture Tikbalangs without the hassle. But that doesnt mean its 100% successful. Interested? Do you want me to make one for you?";
+			next;
+			switch (select("Yes, Im interested.:No, I can capture one myself.")) {
+			case 1:
+				delitem 6496,3; //Tikbalang_Thick_Spine
+				getitem 12699,1; //Tikbalang_Belt
+				mes "[Tikbalang Expert]";
+				mes "Yiiiiiiiiiiii! Yap!";
+				next;
+				specialeffect EF_SONICBLOW2;
+				select("Huh?");
+				mes "[Tikbalang Expert]";
+				mes "The '^F80835Tikbalang Belt ^000000' is already created";
+				close;
+			case 2:
+				mes "[Tikbalang Expert]";
+				mes "You? Ha... You can try if you want to.";
+				close;
+			}
+		}
+		mes "[Tikbalang Expert]";
+		mes "There is the easy way and the hard way to capture Tikbalangs. Which one do you prefer?";
+		next;
+		switch (select("Easy way.:Hard way.")) {
+		case 1:
+			mes "[Tikbalang Expert]";
+			mes "Ha ha. Ive come up with the easy way myself.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "Bring me 3 Tikbalang's Thick Spines and 5 Lesser Agimats to make";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "a '^F80835Tikbalang Belt^000000' to help you easily capture Tikbalangs.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "Ha ha ha ha ha!";
+			mes "I will say it again.";
+			mes "Its 3 Tikbalang's Thick Spines and 5 Lesser Agimats. Understood?";
+			close;
+		case 2:
+			mes "[Tikbalang Expert]";
+			mes "Its easy for me but I dont know about you.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "Tikbalangs have a sharp, pointy mane behind their neck.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "Of course! There are several of them but you must get the three thickest ones.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "These three manes are the weak point. You can tame a Tikbalang by pulling the manes out.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "Now let me explain how to pull these manes out.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "You must fly like a butterfly and land like a bee on the back of a Tikbalang.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "Of course! The Tikbalang will get mad and try to shake you off with all its might.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "All you have to do is hold on until the Tikbalang gets exhausted.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "Then again, itll take 4 days and 3 nights for Tikbalangs to get tired since they are strong creatures. But lets not focus on too much details.";
+			next;
+			mes "[Tikbalang Expert]";
+			mes "Which means!! The Tikbalang is already tamed.";
+			close;
+		}
+	}
+}
+
+ma_fild01,74,367,6	script	Unidentified Creature#01	572,2,2,{
+	end;
+
+OnInit:
+	set .@kafre_who, rand(1,4);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnEnable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else if (.@kafre_who == 3) {
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#03::OnEnable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#04::OnEnable";
+	}
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#01";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#01";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,3);
+	if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnEnable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else if (.@kafre_who == 3) {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#03::OnEnable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#04::OnEnable";
+	}
+	end;
+
+OnTouch:
+	if (getcharid(1) != 0) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#01::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name04$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#01::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#01::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_fild01,109,116,4	script	Unidentified Creature#02	572,2,2,{
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#02";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#02";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,3);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else if (.@kafre_who == 3) {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#03::OnEnable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	}
+	else {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#04::OnEnable";
+	}
+	end;
+
+OnTouch:
+	if (getpartyleader(getcharid(1),1) == getcharid(3)) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#02::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name04$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#02::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#02::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_fild01,280,150,6	script	Unidentified Creature#03	572,2,2,{
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#03";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#03";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,3);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnEnable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#04::OnEnable";
+	}
+	end;
+
+OnTouch:
+	if ((checkquest(4229,PLAYTIME) > 0) && (checkquest(9223,PLAYTIME) > 0) && (checkquest(12278,PLAYTIME) > 0)) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#03::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name04$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#03::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#03::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_fild01,309,221,6	script	Unidentified Creature#04	572,2,2,{
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#04";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#04";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,3);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnEnable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#01::OnDisable";
+		donpcevent "Unidentified Creature#02::OnDisable";
+		donpcevent "Unidentified Creature#03::OnEnable";
+		donpcevent "Unidentified Creature#04::OnDisable";
+	}
+	end;
+
+OnTouch:
+	set .@kafre_tok, rand(1,100);
+	if (.@kafre_tok == 7 || .@kafre_tok == 17 || .@kafre_tok == 27 || .@kafre_tok == 37 || .@kafre_tok == 47 || .@kafre_tok == 57 || .@kafre_tok == 67 || .@kafre_tok == 77 || .@kafre_tok == 87 || .@kafre_tok == 97) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#04::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name04$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#04::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#04::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_fild02,282,41,4	script	Unidentified Creature#05	572,2,2,{
+	end;
+
+OnInit:
+	set .@kafre_who, rand(1,4);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+	} else if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnEnable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+	} else if (.@kafre_who == 3) {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnEnable";
+	} else {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+		donpcevent "Unidentified Creature#08::OnEnable";
+	}
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#05";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#05";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,3);
+	if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnEnable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+	} else if (.@kafre_who == 3) {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnEnable";
+	} else {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+		donpcevent "Unidentified Creature#08::OnEnable";
+	}
+	end;
+
+OnTouch:
+	if (getcharid(1) != 0) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#05::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name05$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#05::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#05::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_fild02,246,324,4	script	Unidentified Creature#06	572,2,2,{
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#06";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#06";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,3);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+	} else if (.@kafre_who == 3) {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnEnable";
+	} else {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+		donpcevent "Unidentified Creature#08::OnEnable";
+	}
+	end;
+
+OnTouch:
+	if (getpartyleader(getcharid(1),1) == getcharid(3)) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#06::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name05$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#06::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#06::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_fild02,71,296,6	script	Unidentified Creature#07	572,2,2,{
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#07";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#07";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,3);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+		donpcevent "Unidentified Creature#08::OnDisable";
+	} else if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnEnable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+		donpcevent "Unidentified Creature#08::OnEnable";
+	}
+	end;
+
+OnTouch:
+	if ((checkquest(4229,PLAYTIME) > 0) && (checkquest(9223,PLAYTIME) > 0) && (checkquest(12278,PLAYTIME) > 0)) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#07::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name05$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#07::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#07::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_fild02,32,263,4	script	Unidentified Creature#08	572,2,2,{
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#08";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#08";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,3);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+	} else if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnEnable";
+		donpcevent "Unidentified Creature#07::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#05::OnDisable";
+		donpcevent "Unidentified Creature#06::OnDisable";
+		donpcevent "Unidentified Creature#07::OnEnable";
+	}
+	end;
+
+OnTouch:
+	set .@kafre_tok, rand(1,100);
+	if (.@kafre_tok == 7 || .@kafre_tok == 17 || .@kafre_tok == 27 || .@kafre_tok == 37 || .@kafre_tok == 47 || .@kafre_tok == 57 || .@kafre_tok == 67 || .@kafre_tok == 77 || .@kafre_tok == 87 || .@kafre_tok == 97) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#08::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name05$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#08::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#08::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_scene01,195,92,4	script	Unidentified Creature#09	572,2,2,{
+	end;
+
+OnInit:
+	set .@kafre_who, rand(1,3);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#09::OnEnable";
+		donpcevent "Unidentified Creature#10::OnDisable";
+		donpcevent "Unidentified Creature#11::OnDisable";
+	} else if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#09::OnDisable";
+		donpcevent "Unidentified Creature#10::OnEnable";
+		donpcevent "Unidentified Creature#11::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#09::OnDisable";
+		donpcevent "Unidentified Creature#10::OnDisable";
+		donpcevent "Unidentified Creature#11::OnEnable";
+	}
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#09";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#09";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,2);
+	if (.@kafre_who == 2) {
+		donpcevent "Unidentified Creature#09::OnDisable";
+		donpcevent "Unidentified Creature#10::OnEnable";
+		donpcevent "Unidentified Creature#11::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#09::OnDisable";
+		donpcevent "Unidentified Creature#10::OnDisable";
+		donpcevent "Unidentified Creature#11::OnEnable";
+	}
+	end;
+
+OnTouch:
+	if (getcharid(1) != 0) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#09::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name06$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#09::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#09::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_scene01,158,139,4	script	Unidentified Creature#10	572,2,2,{
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#10";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#10";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,2);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#09::OnEnable";
+		donpcevent "Unidentified Creature#10::OnDisable";
+		donpcevent "Unidentified Creature#11::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#09::OnDisable";
+		donpcevent "Unidentified Creature#10::OnDisable";
+		donpcevent "Unidentified Creature#11::OnEnable";
+	}
+	end;
+
+OnTouch:
+	if (getpartyleader(getcharid(1),1) == getcharid(3)) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#10::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name06$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#10::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#10::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+ma_scene01,167,112,6	script	Unidentified Creature#11	572,2,2,{
+	end;
+
+OnEnable:
+	hideoffnpc "Unidentified Creature#11";
+	end;
+
+OnDisable:
+	hideonnpc "Unidentified Creature#11";
+	end;
+
+OnBingx2:
+	set .@kafre_who, rand(1,2);
+	if (.@kafre_who == 1) {
+		donpcevent "Unidentified Creature#09::OnEnable";
+		donpcevent "Unidentified Creature#10::OnDisable";
+	} else {
+		donpcevent "Unidentified Creature#10::OnEnable";
+	}
+	end;
+
+OnTouch:
+	if ((checkquest(4229,PLAYTIME) > 0) && (checkquest(9223,PLAYTIME) > 0) && (checkquest(12278,PLAYTIME) > 0)) {
+		if ($ma_name04$ == strcharinfo(0) || $ma_name05$ == strcharinfo(0) || $ma_name06$ == strcharinfo(0)) {
+			donpcevent "Unidentified Creature#11::OnBingx2";
+			mes "The unidentified creature gets a glimpse of you, blushes and then disappears.";
+			close;
+		}
+		set .@slot_name, rand(1,5);
+		if (.@slot_name == 1 || .@slot_name == 3 || .@slot_name == 5) {
+			set $ma_name06$,strcharinfo(0);
+		}
+		donpcevent "Unidentified Creature#11::OnBingx2";
+		mes "The unidentified creature gets a glimpse of you and disappears.";
+		close;
+	}
+	donpcevent "Unidentified Creature#11::OnBingx2";
+	mes "The unidentified creature looks at you and runs away.";
+	close;
+}
+
+malaya,227,311,4	script	Grandma#ma01	575,{
+
+	if (malaya_hi < 10) {
+		mes "[Grandma]";
+		mes "Youre not from around here? Take care of yourself.";
+		next;
+		mes "[Grandma]";
+		mes "Im worried because my daughter-in-law is pregnant. I hope nothing goes wrong.";
+		close;
+	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		mes "[Grandma]";
+		mes "I heard there is an outsider that is helping the village.";
+		next;
+		mes "[Grandma]";
+		mes "Then my daughter-in-law will be safe.";
+		close;
+	}
+	set .@name_tak01, rand(1,6);
+	if (.@name_tak01 == 1){
+		set .@name$,$ma_name01$;
+	}else if (.@name_tak01 == 2){
+		set .@name$,$ma_name02$;
+	}else if (.@name_tak01 == 3){
+		set .@name$,$ma_name03$;
+	}else if (.@name_tak01 == 4){
+		set .@name$,$ma_name04$;
+	}else if (.@name_tak01 == 5){
+		set .@name$,$ma_name05$;
+	}else{
+		set .@name$,$ma_name06$;
+	}
+	set .@name_tak02, rand(1,3);
+	if (.@name_tak02 == 2) {
+		mes "[Grandma]";
+		mes "Heard there is this" + .@name$ + "that follows Meoneonuncle around.";
+		next;
+		mes "[Grandma]";
+		mes "I will cheer for their forbidden love.";
+		close;
+	}
+	mes "[Grandma]";
+	mes "Im worried about my pregnant daughter-in-law. Hope Meoneonuncle wont bother her.";
+	next;
+	select("Meoneonuncle?");
+	mes "[Grandma]";
+	mes "Not from around here? Let me tell you why even a foreigner like you should be careful.";
+	next;
+	mes "[Grandma]";
+	mes "Meoneonuncle was a woman who lived in Port Malaya long ago. She married a decent man and also had a baby.";
+	next;
+	mes "[Grandma]";
+	mes "But happiness never lasts forever, right? The baby was miscarried from an accident,";
+	next;
+	mes "[Grandma]";
+	mes "She eventually passed away after grieving over her lost baby for days.";
+	next;
+	select("That is a sad story.");
+	mes "[Grandma]";
+	mes "Meoneonuncle then started to appear in spirit and take away babies from pregnant women in the village.";
+	next;
+	mes "[Grandma]";
+	mes "If you ever walk around Port Malaya at night.";
+	next;
+	mes "[Grandma]";
+	mes "and hear either tik-tik or wak-wak, be cautious because that is the sound of Meoneonuncles wings flapping.";
+	close;
+}
+
+malaya,189,263,4	script	Drumming Young Man #ma02	578,{
+
+	if (malaya_hi < 10) {
+		emotion e_omg;
+		mes "[Drumming Young Man]";
+		mes "Ugh... its just like that time before";
+		next;
+		emotion e_omg;
+		mes "[Drumming Young Man]";
+		mes "when the moon was swallowed. Argh!";
+		close;
+	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		mes "[Drumming Young Man]";
+		mes "I think the village was saved by a nameless adventurer.";
+		next;
+		emotion e_sigh;
+		mes "[Drumming Young Man]";
+		mes "Phew... I thought Bakonawa appeared again.";
+		close;
+	}
+	set .@name_tak01, rand(1,6);
+	if (.@name_tak01 == 1){
+		set .@name$,$ma_name01$;
+	}else if (.@name_tak01 == 2){
+		set .@name$,$ma_name02$;
+	}else if (.@name_tak01 == 3){
+		set .@name$,$ma_name03$;
+	}else if (.@name_tak01 == 4){
+		set .@name$,$ma_name04$;
+	}else if (.@name_tak01 == 5){
+		set .@name$,$ma_name05$;
+	}else{
+		set .@name$,$ma_name06$;
+	}
+	set .@name_tak02, rand(1,3);
+	if (.@name_tak02 == 2) {
+		mes "[Drumming Young Man]";
+		mes "" + .@name$ + "is said to have stopped Bakonawa from swallowing the moon. Isnt it awesome? I'm so relieved.";
+		close;
+	}
+	mes "[Drumming Young Man]";
+	mes "Bakonawa is also known as the 'monster that swallows the moon' in Port Malaya.";
+	next;
+	mes "[Drumming Young Man]";
+	mes "But I know that Bakonawa could also 'swallow people', too.";
+	next;
+	select("Huk! Then isn't it dangerous?");
+	emotion e_gg;
+	mes "[Drumming Young Man]";
+	mes "Ha ha ha. There is a way to stop Bakonawa from swallowing a person.";
+	next;
+	mes "[Drumming Young Man]";
+	mes "Yes, there is a weakness to even the worst monster that swallowed 6 moons already.";
+	next;
+	select("Wow. What is it?");
+	mes "[Drumming Young Man]";
+	mes "He is sensitive to noise so when hes about to swallow the moon!!";
+	next;
+	mes "[Drumming Young Man]";
+	mes "Thats your chance!! It doesnt matter what kind of noise!! Whether its a caldron, symbol, drum, pot or fry pan, just keep on making noise.";
+	next;
+	mes "[Drumming Young Man]";
+	mes "Then Bakonawa will get surprised, spit out the moon and run away!";
+	next;
+	mes "[Drumming Young Man]";
+	mes "Carry a drum around with you. Youll find it handy.";
+	close;
+}
+
+malaya,270,59,4	script	Port Guard#ma03	570,{
+
+	if (malaya_hi < 10) {
+		emotion e_swt2;
+		mes "[Port Guard]";
+		mes "The village is chaotic these days. Is it okay for me to be off like this?";
+		close;
+	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		emotion e_no;
+		mes "[Port Guard]";
+		mes "The village is somewhat stable now but you should still be careful walking around at night.";
+		close;
+	}
+	set .@name_tak01, rand(1,6);
+	if (.@name_tak01 == 1){
+		set .@name$,$ma_name01$;
+	}else if (.@name_tak01 == 2){
+		set .@name$,$ma_name02$;
+	}else if (.@name_tak01 == 3){
+		set .@name$,$ma_name03$;
+	}else if (.@name_tak01 == 4){
+		set .@name$,$ma_name04$;
+	}else if (.@name_tak01 == 5){
+		set .@name$,$ma_name05$;
+	}else{
+		set .@name$,$ma_name06$;
+	}
+	set .@name_tak02, rand(1,3);
+	if (.@name_tak02 == 2) {
+		mes "[Port Guard]";
+		mes "" + .@name$ + "is said to escape from Bu waya alive after being captured. This person must be powerful.";
+		close;
+	}
+	emotion e_omg;
+	mes "[Port Guard]";
+	mes "What!! Port all clear!!";
+	next;
+	mes "[Port Guard]";
+	mes "Huh? Youre not the captain? You scared me. Shoot! Ah, right! I received an official document for travelers.";
+	next;
+	select("What document?");
+	mes "[Port Guard]";
+	mes "It says that travelers should be careful of monsters when walking in the village at night.";
+	next;
+	mes "[Port Guard]";
+	mes "Buwaya dont come to the village often but there are cases when they snatch people in the boxes they carry at night.";
+	next;
+	mes "[Port Guard]";
+	mes "Huh?! And it says here that a monster named Wokwok especially visits the village often at night and should be avoided.";
+	next;
+	if (select("I see.:Is there any way to prevent them from coming?") == 1) {
+		mes "[Port Guard]";
+		mes "Be careful at night!";
+		close;
+	}
+	mes "[Port Guard]";
+	mes "They say you can attack Buwayas weak point inside the box they carry if you ever get caught in one.";
+	next;
+	mes "[Port Guard]";
+	mes "And you should run into the nearest building when you hear Wokwoks wings fluttering from afar.";
+	next;
+	emotion e_hmm;
+	mes "[Port Guard]";
+	mes "But if the fluttering sound is small or if you dont hear anything, lets just say you should prepare for attack and with for luck.";
+	close;
+}
+
+malaya,88,252,4	script	Little Girl #ma04	576,{
+
+	if (malaya_hi < 10) {
+		mes "[Little Girl]";
+		mes "Im scared but I have to visit the fairy in the forest.";
+		close;
+	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		mes "[Little Girl]";
+		mes "He he. Father said I can visit the fairy in the forest when the village calms down.";
+		close;
+	}
+	set .@name_tak01, rand(1,6);
+	if (.@name_tak01 == 1){
+		set .@name$,$ma_name01$;
+	}else if (.@name_tak01 == 2){
+		set .@name$,$ma_name02$;
+	}else if (.@name_tak01 == 3){
+		set .@name$,$ma_name03$;
+	}else if (.@name_tak01 == 4){
+		set .@name$,$ma_name04$;
+	}else if (.@name_tak01 == 5){
+		set .@name$,$ma_name05$;
+	}else{
+		set .@name$,$ma_name06$;
+	}
+	set .@name_tak02, rand(1,3);
+	if (.@name_tak02 == 2) {
+		mes "[Little Girl]";
+		mes "A little while ago" + .@name$ + "came and told me a fun story.";
+		next;
+		mes "[Little Girl]";
+		mes "'I planted a pair of pear trees in the yard.'";
+		mes "He he. Isnt it fun?" + .@name$ + "seems like a fun person.";
+		close;
+	}
+	mes "[Little Girl]";
+	mes "Father said I wont catch skin diseases once Im friends with the fairy from the forest.";
+	next;
+	select("What is this fairy?");
+	mes "[Little Girl]";
+	mes "Encanto! Encanto fairies live in big trees or rocks in the forest. There are boy fairies and girl fairies,";
+	next;
+	mes "[Little Girl]";
+	mes "but boy fairies are prettier. Why is that?";
+	close;
+}
+
+malaya,219,92,6	script	Little Kid#ma05	577,{
+
+	if (malaya_hi < 10) {
+		mes "[Little Kid]";
+		mes "My mom told me not to play outside because its dangerous. Why?";
+		close;
+	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		mes "[Little Kid]";
+		mes "My mom told me I can play but only in Port Malaya.";
+		next;
+		mes "[Little Kid]";
+		mes "He he. But I never thought of going outside of Port Malaya.";
+		close;
+	}
+	set .@name_tak01, rand(1,6);
+	if (.@name_tak01 == 1){
+		set .@name$,$ma_name01$;
+	}else if (.@name_tak01 == 2){
+		set .@name$,$ma_name02$;
+	}else if (.@name_tak01 == 3){
+		set .@name$,$ma_name03$;
+	}else if (.@name_tak01 == 4){
+		set .@name$,$ma_name04$;
+	}else if (.@name_tak01 == 5){
+		set .@name$,$ma_name05$;
+	}else{
+		set .@name$,$ma_name06$;
+	}
+	set .@name_tak02, rand(1,3);
+	if (.@name_tak02 == 2) {
+		mes "[Little Kid]";
+		mes "I heard someone took Jejelings hat in Baryo Mahiwaga.";
+		next;
+		mes "[Little Kid]";
+		mes "Why would someone steal a monsters hat?" + .@name$ + "must be desperate.";
+		next;
+		mes "[Little Kid]";
+		mes "Oh wait! This was suppose to be a secret. Shsh! Please pretend you didnt hear me.";
+		close;
+	}
+	mes "[Little Kid]";
+	mes "I think someone is stealing all the hats in the village.";
+	next;
+	mes "[Little Kid]";
+	mes "The hat my mom washed yesterday disappeared. Our neighbor's hat also disappeared a few days ago.";
+	next;
+	mes "[Little Kid]";
+	mes "Hmm... do you think Jejeling took it?";
+	next;
+	mes "[Little Kid]";
+	mes "I visited a friend in Baryo Mahiwaga and he said he saw Jejeling wearing the missing hat...";
+	close;
+}
+
+malaya,363,283,4	script	Local#ma06	582,{
+
+	if (malaya_hi < 10) {
+		mes "[Local]";
+		mes "Hmm... is it time to be careful of the witches' curse?";
+		next;
+		mes "[Local]";
+		mes "Beware of Mongkukurums needle, foreigner.";
+		close;
+	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		mes "[Local]";
+		mes "Welcome to Port Malaya, foreigner..";
+		next;
+		mes "[Local]";
+		mes "The village is chaotic these days. If you see someone with red eyes, try not to stare at their eyes.";
+		close;
+	}
+	set .@name_tak01, rand(1,6);
+	if (.@name_tak01 == 1){
+		set .@name$,$ma_name01$;
+	}else if (.@name_tak01 == 2){
+		set .@name$,$ma_name02$;
+	}else if (.@name_tak01 == 3){
+		set .@name$,$ma_name03$;
+	}else if (.@name_tak01 == 4){
+		set .@name$,$ma_name04$;
+	}else if (.@name_tak01 == 5){
+		set .@name$,$ma_name05$;
+	}else{
+		set .@name$,$ma_name06$;
+	}
+	set .@name_tak02, rand(1,6);
+	if (.@name_tak02 == 1) {
+		mes "[Local]";
+		mes "Be careful walking around the village at night." + .@name$ + "was taken down by Wokwok.";
+		close;
+	} else if (.@name_tak02 == 2) {
+		mes "[Local]";
+		mes "" + .@name$ + "is said to successfully tame a Tikbalang. This person must be courageous. Wonder if Ill get to see this tamed Tikbalang? �ѹ� ���� ������..";
+		close;
+	} else if (.@name_tak02 == 3) {
+		mes "[Local]";
+		mes "Have you ever seen Bongisungisu? I heard" + .@name$ + "is hunting down Bongisungisus.";
+		close;
+	} else if (.@name_tak02 == 4) {
+		mes "[Local]";
+		mes "If you plan to go out of the village, be careful of Tiucknuc" + .@name$ + "is said to be tricked by Tiucknuc and had to go to the to the hospital.";
+		close;
+	}
+	mes "[Local]";
+	mes "The village is chaotic these days. Looks like Mongkukurum is back in the village.";
+	next;
+	select("Mongkukurum?");
+	mes "[Local]";
+	mes "A monster that is also called witch. Looks like a person and also wears clothes.";
+	next;
+	mes "[Local]";
+	mes "Mongkukurum makes a doll out of the people it sees and curses it with needles.";
+	next;
+	select("Is there a way to recognize this monster?");
+	mes "[Local]";
+	mes "There is one way. All Mongkukurum have red eyes.";
+	next;
+	mes "[Local]";
+	mes "You can recognize them by their eyes but! You must remember one thing.";
+	next;
+	mes "[Local]";
+	mes "You will be captivated by Mongkukurum if you stare at their eyes too long.";
+	next;
+	mes "[Local]";
+	mes "Never ever stare into their eyes for too long.";
+	close;
+}
+
+malaya,41,127,6	script	Old Man #ma07	574,{
+
+	if (malaya_hi < 10) {
+		mes "[Old Man]";
+		mes "Foreigners are not welcomed that much when our village is chaotic like these days.";
+		close;
+	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		mes "[Old Man]";
+		mes "You are out of luck visiting the village at a time like this and not being welcomed.";
+		close;
+	}
+	set .@name_tak01, rand(1,6);
+	if (.@name_tak01 == 1){
+		set .@name$,$ma_name01$;
+	}else if (.@name_tak01 == 2){
+		set .@name$,$ma_name02$;
+	}else if (.@name_tak01 == 3){
+		set .@name$,$ma_name03$;
+	}else if (.@name_tak01 == 4){
+		set .@name$,$ma_name04$;
+	}else if (.@name_tak01 == 5){
+		set .@name$,$ma_name05$;
+	}else{
+		set .@name$,$ma_name06$;
+	}
+	set .@name_tak02, rand(1,3);
+	if (.@name_tak02 == 2) {
+		mes "[Old Man]";
+		mes "" + .@name$ + "is said to throw out Jellopy in this village.";
+		next;
+		mes "[Old Man]";
+		mes "Tsk, tsk... Must be a person that isnt worthy of a Jellopy.";
+		close;
+	}
+	mes "[Old Man]";
+	mes "You must also look out to see if Bangungot lives in a tree you are about to cut down.";
+	next;
+	mes "[Old Man]";
+	mes "Because strange things happen if logs from trees that Bangungot lived in are used as building pillars.";
+	next;
+	select("What happens?");
+	mes "[Old Man]";
+	mes "Well, for a Bangungot, it means losing its home so they get revengeful.";
+	next;
+	mes "[Old Man]";
+	mes "When you try to sleep near the pillar, it will keep awake by playing pranks at first.";
+	next;
+	mes "[Old Man]";
+	mes "But as time goes by and their vengeance grow, they sit on top of you until you suffocate.";
+	next;
+	select("Oh, gosh...");
+	mes "[Old Man]";
+	mes "Ha ha ha. There are no Bangungots in normal pillars, so don't lose sleep on it.";
+	close;
+}
+
+malaya,63,185,4	script	Woman#ma08	583,{
+
+	if (malaya_hi < 10) {
+		mes "[Woman]";
+		mes "I dont have anything to share with you.";
+		close;
+	} else if ((malaya_hi > 9) && (malaya_hi < 20)) {
+		mes "[Woman]";
+		mes "Im worried about the children. I hope they arent terrified from whats going on in the village.";
+		close;
+	}
+	set .@name_tak01, rand(1,6);
+	if (.@name_tak01 == 1){
+		set .@name$,$ma_name01$;
+	}else if (.@name_tak01 == 2){
+		set .@name$,$ma_name02$;
+	}else if (.@name_tak01 == 3){
+		set .@name$,$ma_name03$;
+	}else if (.@name_tak01 == 4){
+		set .@name$,$ma_name04$;
+	}else if (.@name_tak01 == 5){
+		set .@name$,$ma_name05$;
+	}else{
+		set .@name$,$ma_name06$;
+	}
+	set .@name_tak02, rand(1,3);
+	if (.@name_tak02 == 2) {
+		set .@nongdum, rand(1,10);
+		if (.@nongdum == 1) {
+			mes "[Woman]";
+			mes "I like fun stories. Not so long ago," + .@name$ + "came and told me a funny story.";
+			next;
+			mes "[Woman]";
+			mes "'My aunt stepped on an ant.'";
+			next;
+		} else if (.@nongdum == 2) {
+			mes "[Woman]";
+			mes "I like fun stories. Not so long ago" + .@name$ + "came and told me a funny story.";
+			next;
+			mes "[Woman]";
+			mes "'You eat chili on a chilly day.'";
+			next;
+		} else if (.@nongdum == 3) {
+			mes "[Woman]";
+			mes "I like fun stories. Not so long ago" + .@name$ + "came and told me a funny story.";
+			next;
+			mes "[Woman]";
+			mes "'Why are you putting flour on that flower?'";
+			next;
+		} else if (.@nongdum == 4) {
+			mes "[Woman]";
+			mes "I like fun stories. Not so long ago" + .@name$ + "came and told me a funny story.";
+			next;
+			mes "[Woman]";
+			mes "At the Tool Store, 'Ill buy the needle and thread! You buy the hay to lose the needle in.'";
+			next;
+			mes "[Woman]";
+			mes "said that and was kicked out of the Tool Store.";
+			next;
+		} else if (.@nongdum == 5) {
+			mes "[Woman]";
+			mes "A Kafra Employee Im friends with told me a story about a customer.";
+			next;
+			mes "[Woman]";
+			mes "'Kafra, the wise never marry and when they marry, they become otherwise.'";
+			next;
+			mes "[Woman]";
+			mes "He he... I do like funny stories but a bit difficult for my taste.";
+			close;
+		} else {
+			mes "[Woman]";
+			mes "I like fun stories. Oh by the way!" + .@name$ + ", love is photogenic. Dont you agree?";
+			next;
+			mes "[Woman]";
+			mes "It needs darkness to develop.";
+			next;
+		}
+		mes "[Woman]";
+		mes "He he. Isnt it fun?";
+		close;
+	}
+	mes "[Woman]";
+	mes "If you hear a baby crying from the forest outside of the village, never go near it.";
+	next;
+	select("Why?");
+	mes "[Woman]";
+	mes "There is a monster named Tiucknuc that roams around outside of the village and cries after transforming himself into a baby.";
+	next;
+	mes "[Woman]";
+	mes "But when kind travelers pick up the baby, it turns back into its original form and attacks.";
+	next;
+	select("Sounds like a sneaky monster.");
+	mes "[Woman]";
+	mes "Yes, this monster is bad to trick the kindness of travelers but,";
+	next;
+	mes "[Woman]";
+	mes "there is rumor that the monster came from the soul of a baby that never been born. So sad.";
+	close;
+}
\ No newline at end of file
diff --git a/npc/re/scripts.conf b/npc/re/scripts.conf
index 47b2cb7e0..dfe698752 100644
--- a/npc/re/scripts.conf
+++ b/npc/re/scripts.conf
@@ -13,6 +13,7 @@ npc: npc/re/cities/dicastes.txt
 npc: npc/re/cities/izlude.txt
 npc: npc/re/cities/jawaii.txt
 npc: npc/re/cities/malangdo.txt
+npc: npc/re/cities/malaya.txt
 npc: npc/re/cities/mora.txt
 
 // --------------------------- Guides ---------------------------
diff --git a/npc/re/warps/cities/malaya.txt b/npc/re/warps/cities/malaya.txt
index 3a8b1002e..eb558fbbb 100644
--- a/npc/re/warps/cities/malaya.txt
+++ b/npc/re/warps/cities/malaya.txt
@@ -1,38 +1,93 @@
-//===== rAthena Script =======================================
-//= Malaya Port Warp Script
-//===== By: ==================================================
-//= Chilly
-//===== Current Version: =====================================
+//===== rAthena Script ======================================= 
+//= Mayala Town Warps
+//===== By: ================================================== 
+//= Masao
+//===== Current Version: ===================================== 
 //= 1.0
-//===== Compatible With: =====================================
-//= rAthena SVN
-//===== Description: =========================================
-//= Warp Points for Malaya Port
-//===== Additional Comments: =================================
+//===== Compatible With: ===================================== 
+//= Hecules
+//===== Description: ========================================= 
+//= Warps for Mayala Town.
+//===== Additional Comments: ================================= 
 //= 1.0 First Version.
-//============================================================
+//============================================================ 
+
+malaya,178,211,0	script	malaya_inn	45,1,1,{
+	end;
+
+OnTouch:
+	if (malaya_hi < 10) {
+		mes "Door is closed. It seems keeping its eyes on you.";
+		close;
+    }
+	warp "ma_in01",24,80;
+	end;
+}
+
+malaya,112,212,0	script	malaya_ws	45,1,1,{
+	end;
+
+OnTouch:
+	if (malaya_hi < 20) {
+		mes "Door is closed. It seems keeping its eyes on you.";
+		close;
+	}
+	warp "ma_in01",83,16;
+	end;
+}
+
+malaya,299,167,0	script	malaya_ts	45,1,1,{
+	end;
+
+OnTouch:
+	if (malaya_hi < 20) {
+		mes "Door is closed. It seems keeping its eyes on you.";
+		close;
+	}
+	warp "ma_in01",12,24;
+	end;
+}
+
+malaya,261,240,0	script	malaya_shop	45,1,1,{
+	end;
+
+OnTouch:
+	if (malaya_hi < 20) {
+		mes "Door is closed. It seems keeping its eyes on you.";
+		close;
+	}
+	warp "ma_in01",126,20;
+	end;
+}
+
+malaya,300,211,0	script	malaya_house01	45,1,1,{
+	end;
+
+OnTouch:
+	if (malaya_hi < 10) {
+		mes "Door is closed. It seems keeping its eyes on you.";
+		close2;
+    }
+	warp "ma_in01",36,152;
+	end;
+}
 
 // Town Warps
-malaya,309,70,0	warp	malaya_field0001	1,1,ma_in01,108,92
-ma_in01,105,92,0	warp	malaya_field0002	1,1,malaya,310,67
-malaya,300,211,0	warp	malaya_field0003	1,1,ma_in01,36,152
-ma_in01,33,152,0	warp	malaya_field0004	1,1,malaya,297,211
-malaya,178,211,0	warp	malaya_field0005	1,1,ma_in01,24,80
-ma_in01,24,77,0	warp	malaya_field0006	1,1,malaya,178,208
-malaya,112,212,0	warp	malaya_field0007	1,1,ma_in01,83,16
-ma_in01,86,16,0	warp	malaya_field0008	1,1,malaya,115,212
-malaya,299,167,0	warp	malaya_field0009	1,1,ma_in01,12,24
-ma_in01,9,24,0	warp	malaya_field0010	1,1,malaya,296,167
-malaya,261,240,0	warp	malaya_field0011	1,1,ma_in01,126,20
-ma_in01,126,17,0	warp	malaya_field0012	1,1,malaya,261,237
-malaya,370,277,0	warp	malaya_field0013	1,1,ma_fild01,40,272
-ma_fild01,37,272,0	warp	malaya_field0014	1,1,malaya,367,277
-ma_fild01,266,359,0	warp	malaya_field0015	1,1,ma_fild02,248,36
-ma_fild02,248,33,0	warp	malaya_field0016	1,1,ma_fild01,266,356
-ma_fild01,251,190,0	warp	malaya_field0017	1,1,ma_in01,108,160
-ma_in01,105,160,0	warp	malaya_field0018	1,1,ma_fild01,249,192
-ma_fild01,288,52,0	warp	malaya_field0019	1,1,ma_scene01,142,78
-ma_scene01,140,80,0	warp	malaya_field0020	1,1,ma_fild01,288,55
+ma_in01,86,16,0	warp	mal_in_ws	1,1,malaya,115,212
+ma_in01,24,77,0	warp	mal_in_inn	1,1,malaya,178,208
+malaya,370,277,0	warp	malaya_mal_fild01	1,1,ma_fild01,40,272
+ma_fild01,37,272,0	warp	mal_fild01_malaya	1,1,malaya,367,277
+ma_in01,33,152,0	warp	mal_in_house01	1,1,malaya,52,75
+malaya,309,70,0	warp	malaya_ship_mal_in_ship	1,1,ma_in01,108,92
+ma_in01,105,92,0	warp	mal_in_ship_malaya_ship	1,1,malaya,310,67
+ma_fild01,266,359,0	warp	mafild01_to02	1,1,ma_fild02,248,36
+ma_fild02,248,33,0	warp	mafild02_to01	1,1,ma_fild01,266,356
+ma_fild01,288,52,0	warp	mafild01_tobknw	1,1,ma_scene01,142,78
+ma_scene01,140,80,0	warp	bknw_tofild01	1,1,ma_fild01,288,55
+ma_in01,9,24,0	warp	mal_in_ts	1,1,malaya,296,167
+ma_in01,126,17,0	warp	mal_in_shop_malaya_shop	1,1,malaya,261,237
+ma_fild01,251,190,0	warp	mf_minga_mf_in_minga	1,1,ma_in01,108,160
+ma_in01,105,160,0	warp	mf_in_minga_mf_minga	1,1,ma_fild01,248,190
 
 // Car Warps
 ma_zif01,30,22,0	warp	malaya_car0001	1,1,malaya,241,238
@@ -43,4 +98,4 @@ ma_zif05,30,22,0	warp	malaya_car0005	1,1,malaya,341,150
 ma_zif06,30,22,0	warp	malaya_car0006	1,1,malaya,294,293
 ma_zif07,30,22,0	warp	malaya_car0007	1,1,malaya,239,221
 ma_zif08,30,22,0	warp	malaya_car0008	1,1,malaya,59,246
-ma_zif09,30,22,0	warp	malaya_car0009	1,1,malaya,254,68
+ma_zif09,30,22,0	warp	malaya_car0009	1,1,malaya,254,68
\ No newline at end of file
diff --git a/npc/scripts.conf b/npc/scripts.conf
index 1687c98ce..f1a091281 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -114,6 +114,7 @@ npc: npc/instances/SealedShrine.txt
 npc: npc/instances/EndlessTower.txt
 npc: npc/instances/OrcsMemory.txt
 npc: npc/instances/NydhoggsNest.txt
+npc: npc/instances/buwaya.txt
 
 // ---------------- Kafras & Cool Event Corp. -------------------
 npc: npc/kafras/cool_event_corp.txt
@@ -135,6 +136,7 @@ npc: npc/merchants/enchan_arm.txt
 npc: npc/merchants/gemstone.txt
 npc: npc/merchants/hair_dyer.txt
 npc: npc/merchants/hair_style.txt
+//npc: npc/merchants/hd_refine.txt
 //npc: npc/merchants/icecream.txt
 npc: npc/merchants/inn.txt
 npc: npc/merchants/kunai_maker.txt
-- 
cgit v1.2.3-70-g09d2