- Corrected a minor issue in sealed shrine, lock out should work now.* Added some 13.2 content, and more 13.1 content.

- Added "Otherworld language" quest.
- Added Cat Hand Trading NPCs for 13.2 maps.
- Added warps for Splendide and Manuk (town and field.)
- Added basic town NPCs for Manuk and Splendide.
- Added the guild dungeon SE events, though the pierre boxes do nothing.
- Corrected a minor issue in sealed shrine, lock out should work now.


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

16 files changed, 7596 insertions, 7 deletions

diff --git a/db/Changelog.txt b/db/Changelog.txt
index e6f14ca2b..e48a6e806 100644
--- a/db/Changelog.txt
+++ b/db/Changelog.txt
@@ -8,6 +8,8 @@
 	1475 Equestrian's Spear:	NEED INFO.
 	13005 Angelic Wing Dagger:	NEED INFO.
 =======================
+2010/03/03
+	* Rev. 14257 Added time limit to "Language translation device" quest. [L0ne_W0lf]
 2010/02/27
 	* Mental Strenth costs 200 sp instead of 50% max sp. [Inkfish]
 2010/01/28
diff --git a/db/quest_db.txt b/db/quest_db.txt
index f1b510d4a..1449030c6 100644
--- a/db/quest_db.txt
+++ b/db/quest_db.txt
@@ -656,7 +656,7 @@
 8250,0,0,0,0,0,0,0,"The stone in otherworld"
 8251,0,0,0,0,0,0,0,"Injection of magic"
 8252,0,0,0,0,0,0,0,"Handworked jewels"
-8253,0,0,0,0,0,0,0,"Language translation device"
+8253,3600,0,0,0,0,0,0,"Language translation device"
 //
 9000,0,0,0,0,0,0,0,"Job Change to Knight"
 9001,0,0,0,0,0,0,0,"Loyalty of a Knight"
diff --git a/npc/Changelog.txt b/npc/Changelog.txt
index 21cbba55c..b7371eeec 100644
--- a/npc/Changelog.txt
+++ b/npc/Changelog.txt
@@ -1,5 +1,15 @@
 Date		Added
 ======
+2010/03/03
+	* Rev. 14257 Added some 13.2 content, and more 13.1 content. [L0ne_W0lf]
+	- Added "Otherworld language" quest.
+	- Added Cat Hand Trading NPCs for 13.2 maps.
+	- Added warps for Splendide and Manuk (town and field.)
+	- Added basic town NPCs for Manuk and Splendide.
+	- Added the guild dungeon SE events, though the pierre boxes do nothing.
+	- Corrected a minor issue in sealed shrine, lock out should work now.
+2010/03/02
+	* Rev. 14256 Added quest log stuff to battleground npcs, and KVM BGs. [zephyrus]
 2010/02/04
 	* Rev. 12439 Fixed donpcevent calling non-existant npc in Orc Instance. (bugreport:4039) [L0ne_W0lf]
 2010/01/24
diff --git a/npc/cities/manuk.txt b/npc/cities/manuk.txt
new file mode 100644
index 000000000..d8df440e1
--- /dev/null
+++ b/npc/cities/manuk.txt
@@ -0,0 +1,105 @@
+//===== eAthena Script ======================================= 
+//= Manuk Town
+//===== By: ================================================== 
+//= L0ne_W0lf
+//===== Current Version: ===================================== 
+//= 1.0
+//===== Compatible With: ===================================== 
+//= eAthena 1.0
+//===== Description: ========================================= 
+//= [Aegis Conversion]
+//= Town-specific NPCs for Manuk.
+//===== Additional Comments: ================================= 
+//= 1.0 First Version.
+//============================================================
+
+man_in01,346,135,0	script	 Worker#ep13bsg1	454,{
+	if (isequipped(2782) == 1) {
+		mes "[Worker]";
+		mes "It is dangerous if the valve is not checked properly every day.";
+		mes "In fact, there was an incident.";
+		mes "It gives me the creeps just thinking about it.";
+		close;
+	}
+	else {
+		mes "[Worker]";
+		mes "Gs df o aj ud pa";
+		mes "N sd asw ewt jj ";
+		mes "Ud aso pda s ";
+		close;
+	}
+}
+
+man_in01,393,134,3	script	Worker#ep13bsg2	454,{
+	if (isequipped(2782) == 1) {
+		mes "[Worker]";
+		mes "What!! Wh.. Oh... I... I didn't fall asleep!!";
+		mes "Let's get back to work... that's right work...";
+		close;
+	}
+	else {
+		mes "[Worker]";
+		mes "Ns ad jai osd";
+		mes "Rt odj as jo dp as";
+		close;
+	}
+}
+
+man_in01,377,143,5	script	Worker#ep13bsg3	454,{
+	if (isequipped(2782) == 1) {
+		mes "[Worker]";
+		mes "Hmm... It's working just fine... No probems at all...";
+		close;
+	}
+	else {
+		mes "[Worker]";
+		mes "Mou ii ros oa d d ";
+		close;
+	}
+}
+
+man_in01,333,128,5	script	Worker#ep13bsg4	454,{
+	if (isequipped(2782) == 1) {
+		mes "[Worker]";
+		mes "My eyesight is getting weaker these days.";
+		close;
+	}
+	else {
+		mes "[Worker]";
+		mes "Yw I eus ia d ap s";
+		close;
+	}
+}
+
+man_in01,336,128,5	script	Worker#ep13bsg5	454,{
+	if (isequipped(2782) == 1) {
+		mes "[Worker]";
+		mes "Isn't this fabulous?";
+		close;
+	}
+	else {
+		mes "[Worker]";
+		mes "R tt osj dj d";
+		close;
+	}
+}
+
+man_in01,283,288,3	script	Worker#ep13bsg6	454,{
+	if (isequipped(2782) == 1) {
+		mes "[Worker]";
+		mes "It is fortunate to have lots of fine quality Bradium today.";
+		next;
+		mes "[Worker]";
+		mes "This is all that is left for us.";
+		close;
+	}
+	else {
+		mes "[Worker]";
+		mes "Qw eI hs pado as d p ";
+		next;
+		mes "[Worker]";
+		mes "Too fn ish d fd";
+		close;
+	}
+}
+
diff --git a/npc/cities/splendide.txt b/npc/cities/splendide.txt
new file mode 100644
index 000000000..5231d1dac
--- /dev/null
+++ b/npc/cities/splendide.txt
@@ -0,0 +1,350 @@
+//===== eAthena Script ======================================= 
+//= Splendide Town
+//===== By: ================================================== 
+//= L0ne_W0lf
+//===== Current Version: ===================================== 
+//= 1.0
+//===== Compatible With: ===================================== 
+//= eAthena 1.0
+//===== Description: ========================================= 
+//= [Aegis Conversion]
+//= Town-specific NPCs for Splendide.
+//===== Additional Comments: ================================= 
+//= 1.0 First Version.
+//============================================================
+
+spl_in01,172,225,3	script	Wandering Poet#ep13	51,{
+	cutin "god_nelluad02",2;
+	mes "[Poet Nell]"	;
+	mes "Hi~~ do you hear the beautiful music comeing from afar~?";
+	next;
+	select("Who are you?");
+	cutin "god_nelluad01",2;
+	mes "[Poet Nell]";
+	mes "Who, me...?";
+	mes "I am just a poet enjoying the ambience...";
+	next;
+	mes "[Poet Nell]";
+	mes "I cam here the other day, requesting to take notes of this new world and they allow me to follow the adventurers here.";
+	next;
+	mes "[Poet Nell]";
+	mes "I became familliar with the Lapine.";
+	mes "It was quite awkward at first... Since I didn't knew their language.";
+	mes "But, one I started to play my instruments... they loved it.";
+	next;
+	mes "[Poet Nell]";
+	mes "They're fairies that know how to enjoy their lives..";
+	mes "How happy they are...";
+	mes "They are quite curious... I am honored to have met them...";
+	next;
+	mes "[Poet Nell]";
+	mes "So do you want to listen to my playing?";
+	next;
+	switch(select("Sure.:Not really.")) {
+	case 1:
+		mes "[Poet Nell]";
+		mes "What song do you want??";
+		next;
+		switch(select("Poet of Bragie:Chaos in Eternity:Sunset Assassin:Ring of Nibelungen")) {
+		case 1:
+			cutin "god_nelluad02",2;
+			mes "[Poet Nell]";
+			mes "Poet of Bragie!";
+			mes "You must have a keen ear.";
+			soundeffect "bragis_poem.wav",0;
+			break;
+		case 2:
+			cutin "god_nelluad02",2;
+			mes "[Poet Nell]";
+			mes "Chaos in Eternity...";
+			mes "This is a great piece but I wouldn't reccomend it while dining...";
+			soundeffect "chaos_of_eternity.wav",0;
+			break;
+		case 3:
+			cutin "god_nelluad02",2;
+			mes "[Poet Nell]";
+			mes "Sunset Assassin!";
+			mes "Do you like Assassins?";
+			mes "This song tells of a legendary Assassin Cross that lived in the desert.";
+			soundeffect "assassin_of_sunset.wav",0;
+			break;
+		case 4:
+			cutin "god_nelluad02",2;
+			mes "[Poet Nell]";
+			mes "Ring of Nibelungen...";
+			mes "This song has quite an interesting story~";
+			next;
+			soundeffect "ring_of_nibelungen.wav",0;
+			mes "^4d4dff There was a niver named Rhein that";
+			mes "that would shine as if made of gold.";
+			mes "It's secret hidden from all since";
+			mes "before this story was told...^000000";
+			next;
+			mes "^4d4dff Valhalla was born from the goddess Freya.";
+			mes "The envious Rocky destroyed the goddess of beauty.^000000";
+			mes "^4d4dff Out of it's depths was born a ring made of fire.";
+			mes "A ring so strong it held the god's desires~^000000";
+			next;
+			mes "^4d4dff Alberich's treasure now holds that power.";
+			mes "The power of the ring that held all the god's desires.^000000";
+			next;
+			mes "^4d4dff The treasure was used to buy the world's soul.";
+			mes "A soul purchased with the weight of gold.^000000";
+			next;
+			mes "^4d4dff Rocky afraid of losing control. transforms poor Alberich to the shape of a toad.";
+			next;
+			mes "^4d4dff Alberich swears with the last of his breath, that his treasured ring will curse it's wearer till death.";
+			next;
+			mes "^4d4dff Forever will the bearer be, cursed with Rocky's jealousy."				;
+			break;
+		}
+		break;
+	case 2:
+		cutin "god_nelluad03",2;
+		mes "[Poet Nell]";
+		mes "Why not?";
+		mes "Why would you stare at me like that if you didn't want to listen to my playing";
+		next;
+		select("You look like someone I know.");
+		cutin "god_nelluad04",2;
+		mes "[Poet Nell]";
+		mes "Eh?";
+		mes "No way!";
+		mes "Maybe you're confused..!";
+		next;
+		mes "[Poet Nell]";
+		mes "Yes, I look quite common...";
+		mes "But I doubt we've ever met before."		;
+		next;
+		cutin "god_nelluad01",255;
+		mes "- Nell seems embarrassed, then starts playing very complicated music -";
+		break;
+	}
+	close2;
+	cutin "god_nelluad01",255;
+	end;
+}
+
+spl_in01,182,213,1	script	Resting Laphine#ep13_1	438,{
+	if ((isequipped(2782) > 0) && (ep13_2_rhea > 99)) {
+		mes "[Resting Laphine]";
+		mes "The poet on the stagie is mysterious.";
+		mes "The moment you came here...";
+		mes "He arrived and started playing music.";
+		next;
+		mes "[Resting Laphine]";
+		mes "This is music from your country yes?";
+		mes "I think it sounds great.";
+		close;
+	}
+	else {
+		mes "[Resting Laphine]";
+		mes "IyazLarsSe Or An.";
+		mes "marLoOsa Yee NeiBur";
+		mes "Rinisehrnea Mu...? ";
+		close;
+	}
+}
+
+spl_in01,181,218,5	script	Resting Laphine#ep13_2	446,{
+	if ((isequipped(2782) > 0) && (ep13_2_rhea > 99)) {
+		mes "- He is nodding his head to the sound of the music -";
+		next;
+		mes "[Resting Laphine]";
+		mes "Do you know how to play a similar sound?";
+		mes "This tone is unbelievable.";
+		close;
+	}
+	else {
+		mes "- He is nodding his head to the sound of the music -";
+		next;
+		mes "[Resting Laphine]";
+		mes "GothTingNoth Di~ nar..";
+		mes "DiebIyazNud Yu FarAn";
+		mes "nesFarDor U ~";
+		close;
+	}
+}
+
+spl_in01,161,213,7	script	Dining Laphine#ep13	447,{
+	if ((isequipped(2782) > 0) && (ep13_2_rhea > 99)) {
+		mes "[Dining Laphine]";
+		mes "I got bored eating home cooked food.";
+		mes "The only thing that keeps me coming here is fruit soup...";
+		next;
+		mes "[Dining Laphine]";
+		mes "Hey you!";
+		mes "Why are you staring at me eating dinner?";
+		close;
+	}
+	else {
+		mes "[Dining Laphine]";
+		mes "NothFarLu Ra...? ";
+		mes "RuffYur..!";
+		next;
+		mes "- He is giving me a odd stare as he eats his dinner -";
+		close;
+	}
+}
+
+spl_in01,162,202,5	script	Laphine taking notes#1	436,{
+	if ((isequipped(2782) > 0) && (ep13_2_rhea > 99)) {
+		mes "[Laphine taking notes]";
+		mes "We are quite impressed by the poet.";
+		mes "We Laphine love music aswell.";
+		mes "I never imagined that I would ever hear such exotic music.";
+		next;
+		mes "[Laphine taking notes]";
+		mes "I want to study music someday.";
+		mes "I plan to write much about the study of instruments and music";
+		next;
+		mes "[Laphine taking notes]";
+		mes "Someday you should listen to mu people's music.";
+		close;
+	}
+	else {
+		mes "[Laphine taking notes]";
+		mes "TiTalLars Ur tasThorNoth O AnImanWha.";
+		mes "FusLuRuff..... Mu TingLuAla Yee AnmanAndu";
+		next;
+		mes "- He seems frustrated that you don't understand him -";
+		close;
+	}
+}
+
+spl_in01,167,207,7	script	Silent Laphine#ep13	445,{
+	mes "- He is almost sleeping but he is still managing to hold a cup with a drink in it. He must be really tired-";
+	close;
+}
+
+spl_in01,180,201,3	script	Laphine Soldier#ep13_1	461,{
+	if ((isequipped(2782) > 0) && (ep13_2_rhea > 99)) {
+		mes "[Laphine Soldier]";
+		mes "You are a stranger here, aren't you?";
+		mes "I am watching him to prevent anything bad from happening.";
+		next;
+		mes "[Laphine Soldier]";
+		mes "Definitely you are involved.";
+		mes "The upper side people allow you to pass here...";
+		mes "But nobody knows what's going to happen in this battlefield.";
+		next;
+		mes "[Laphine Soldier]";
+		mes "Anyway, whats that instrument over there?";
+		mes "We have a similar one...";
+		mes "But it sounds totally different.";
+		close;
+	}
+	else {
+		mes "[Laphine Soldier]";
+		mes "FusVohlAnu Ur Lon.";
+		mes "LoUdenFar Ha Dormaur?";
+		mes "...marAmanYur Mu.";
+		next;
+		mes "-The Laphine Soldier wants to tell you something, but just stops talking as you give him a blank stare -";
+		close;
+	}
+}
+
+spl_in01,189,207,3	script	Laphine Staff#ep13_1	439,{
+	if ((isequipped(2782) > 0) && (ep13_2_rhea > 99)) {
+		mes "[Laphine Staff]";
+		mes "Hm, what's up?";
+		mes "I'm sorry, but we don't sell food to strangers.";
+		next;
+		mes "[Laphine Staff]";
+		mes "You guys also need to be careful of food here.";
+		mes "Food is scarce here.";
+		next;
+		mes "[Laphine Staff]";
+		mes "You're going to have to find food somewhere else.";
+		close;
+	}
+	else {
+		mes "[Laphine Staff]";
+		mes "VeldAnoWeh Or ";
+		mes "TurWos";
+		mes "......ah...";
+		next;
+		mes "- You just grin and smile. It's frustrating not to be able to understand their language. -";
+		close;
+	}
+}
+
+spl_in01,154,207,5	script	Laphine Staff#ep13_2	440,{
+	if ((isequipped(2782) > 0) && (ep13_2_rhea > 99)) {
+		mes "[Laphine Staff]";
+		mes "his camp serves a military purpose. But we also have a need for bars.";
+		next;
+		mes "[Laphine Staff]";
+		mes "How else can a soldier release stress if not through drinking...";
+		next;
+		mes "[Laphine Staff]";
+		mes "We are here to support the laphine soldier by giving good drinks and entertainment.";
+		close;
+	}
+	else {
+		mes "[Laphine Staff]";
+		mes "NorVerNuff Ee Re!";
+		mes "remuDurOdes Mu AshFus~!";
+		mes "OdesTalWeh Ur??? ";
+		close;
+	}
+}
+
+spl_in01,122,314,5	script	High-Ranked Soldier#ep13	461,{
+	if ((isequipped(2782) > 0) && (ep13_2_rhea > 99)) {
+		mes "[High-Ranked Soldier]";
+		mes "Are ther any new supplies?";
+		next;
+		mes "[Laphine Soldier]";
+		mes "This sword just arrived...";
+		mes "This is inspired by stars, and we tested it by cutting the thread floating over the water.";
+		next;
+		mes "[High-Ranked Soldier]";
+		mes "Hmm, we rarely used swords. But it looks great as a decoration.";
+		next;
+		mes "- Seems their busy talking about weapons -";
+		close;
+	}
+	else {
+		mes "[High-Ranked Soldier]";
+		mes "NorVerNuff Ee Re....";
+		next;
+		mes "[Laphine Soldier]";
+		mes "FusVerAlah Di ";
+		mes "ModNorNor U DimVohlWeh O DimAmannea An WosAnoNoh An AnduMeOdes So TalAdor.";
+		next;
+		mes "[High-Ranked Soldier]";
+		mes "DurNohHir Ha UorVaThus Di AshNuffLon U mahNuffThus U RuAmanAgol Ir NohHir...?";
+		close;
+	}
+}
+
+spl_in01,122,311,1	script	Laphine Soldier#ep13_2	447,{
+	if ((isequipped(2782) > 0) && (ep13_2_rhea > 99)) {
+		mes "[Laphine Soldier]";
+		mes "Are you a stranger?";
+		mes "Have you come here to see the Laphine's military storage?";
+		next;
+		mes "[High-Ranked Soldier]";
+		mes "Nevermind. These are useless to them...";
+		mes "How can this delicate sword be used by those brutes...?";
+		next;
+		mes "[Laphine Soldier]";
+		mes "O";
+		close;
+	}
+	else {
+		mes "[High-Ranked Soldier]";
+		mes "NorVerNuff Ee Re....";
+		next;
+		mes "[Laphine Soldier]";
+		mes "FusVerAlah Di ";
+		mes "ModNorNor U DimVohlWeh O DimAmannea An WosAnoNoh An AnduMeOdes So TalAdor.";
+		next;
+		mes "[High-Ranked Soldier]";
+		mes "DurNohHir Ha UorVaThus Di AshNuffLon U mahNuffThus U RuAmanAgol Ir NohHir...?";
+		close;
+	}
+}
+
diff --git a/npc/events/gdevent_aru.txt b/npc/events/gdevent_aru.txt
new file mode 100644
index 000000000..3eb86f9da
--- /dev/null
+++ b/npc/events/gdevent_aru.txt
@@ -0,0 +1,1562 @@
+arug_dun01,1,1,1	script	Monster Controler#aru_gd	81,{
+OnInit:
+	donpcevent "Monster Controler1#aru::OnKill";
+	initnpctimer;
+	end;
+
+OnTimer10000:
+	donpcevent "Monster Controler1#aru::OnEnable";
+	mapannounce "arug_dun01", "Kublin: Aargh!",bc_map,"0x99CC00";
+	mapannounce "arug_dun01", "Morestone: Stop righ there! You thief!",bc_map,"0x99CC00";
+	stopnpctimer;
+	end;
+}
+
+arug_dun01,1,2,1	script	Monster Controler1#aru	81,{
+OnEnable:
+	set .@callwhere,rand(1,4);
+	if (.@callwhere == 1) {
+		monster "arug_dun01",150,340,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead";
+	}
+	else if (.@callwhere == 2) {
+		monster "arug_dun01",232,293,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead";
+	}
+	else if (.@callwhere == 3) {
+		monster "arug_dun01",156,167,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead";
+	}
+	else {
+		monster "arug_dun01",243,56,"Kublin",1980,1,"Monster Controler1#aru::OnMyMobDead";
+	}
+	end;
+
+Onkill:
+	killmonster "arug_dun01","Monster Controler1#aru::OnMyMObDead";
+	end;
+
+OnMyMobDead:
+	if (mobcount("arug_dun01","Monster Controler1#aru::OnMyMObDead") == 0) {
+		mapannounce "arug_dun01", "Kublin: Aargh!",bc_map,"0x99CC00";
+		mapannounce "arug_dun01", "Morestone: I thought I heard Kublin screaming!! Who is there? What happened to Kublin? Hey you!",bc_map,"0x99CC00";
+		donpcevent "Dwarf#aru_gd::OnEnable";
+	}
+	end;
+}
+
+arug_dun01,199,195,5	script	Dwarf#aru_gd	826,{
+	if (getcharid(2) == 0) {
+		mes "[Dwarf]";
+		mes "Hey did you see an ugly Goblin come by? He stole something from me!";
+		close;
+	}
+	set .@chk_urquest,checkquest(2143,PLAYTIME);
+	set .@chk_yourgdname$,getguildname(getcharid(2));
+	if ($@gdeventv_a1 == 0) {
+		if ($@gdevents_a$ == "") {
+			set $@gdeventv_a1,1;
+			set $@gdevents_a$,.@chk_yourgdname$;
+			mes "[Dwarf]";
+			mes "Help me!";
+			mes "Please, help me!";
+			next;
+			switch(select("What happened?:Nevermind.")) {
+			case 1:
+				mes "[Dwarf]";
+				mes "I am Morestone and I collect rare gems.";
+				next;
+				mes "[Morestone]";
+				mes "In my travels, I was told that there were alot of gems in Valfreyja and Nidhoggur, so I came down here.";
+				mes "But here, the soil is very hard to dig into. Fortunately, my ^3131FFPickaxe^000000 never lets me down!";
+				next;
+				select("Pickaxe!");
+				mes "[Morestone]";
+				mes "Yes, my beloved pickaxe!";
+				mes "I always carry it with me, you know?";
+				next;
+				mes "[Morestone]";
+				mes "We started working here together.";
+				mes "After a few days, we finally found something!";
+				next;
+				select("Something strange??");
+				mes "[Morestone]";
+				mes "No, but it was worth quite alot.";
+				mes "But we did not have much time to celebrate. Suddenly, a monster appeared that stole my pickaxe.";
+				mes "His name was^3131FFKublin^000000!";
+				next;
+				mes "[Morestone]";
+				mes "He stole my Pickaxe!";
+				mes "I can't live without it...";
+				next;
+				if (countitem(6010) > 0) {
+					mes "[" + strcharinfo(0) + "]";
+					mes "Is this the pickaxe that you've been looking for?";
+					next;
+					mes "[Morestone]";
+					mes "You found my Pickaxe?";
+					mes "Show me, please!";
+					next;
+					mes "[Morestone]";
+					mes "Oh, my! You've returned it to me!";
+					mes "My precious pickaxe, I thought I lost you forever.";
+					next;
+					mes "[Morestone]";
+					mes "You are great! What guild are you from?";
+					mes "Could it be Gravity or Mercury?";
+					next;
+					mes "[" + strcharinfo(0) + "]";
+					mes "I am a member of the ^3131FF"+.@chk_yourgdname$+"^.";
+					next;
+					mes "[Morestone]";
+					mes "Oh... That guild will receive my greatest respect.";
+					next;
+					mes "[Morestone]";
+					mes "Oh! My friend, I am very grateful for your help.";
+					mes "As a reward, I will tell you about a mysterious area I have discovered recently.";
+					next;
+					select("A mysterious area?");
+					mes "[Morestone]";
+					mes "That's right. I found it when I was digging around here.";
+					mes "It looks like it was made for some special purpose, but since there are no gems around there, I have no interest in it.";
+					next;
+					mes "[Morestone]";
+					mes "Instead of going there alone, I think it would be more fun to go with your friends...";
+					next;
+					mes "[Morestone]";
+					mes "If you want, I can take ^3131FFyou and your guild members^000000 to explore that area.";
+					mes "Do you want to go there now?";
+					next;
+					switch(select("Wait! I'm not ready yet.:Let's go!")) {
+					case 1:
+						set $@gdeventv_a1,0;
+						set $@gdevents_a$,"";
+						mes "[Morestone]";
+						mes "Take your time, and find a place to gather your friends.";
+						close;
+					case 2:
+						mes "[Morestone]";
+						mes "Alright! Let's go.";
+						mes "If your friends visit me again later, I will guide them to that area again.";
+						mes "Don't forget, dwarves are grateful beings! Hahaha!";
+						delitem 6010,1; //Pickaxe
+						set $@gdeventv_a1,1;
+						set $@gdevents_a$,.@chk_yourgdname$;
+						close2;
+						setquest 2144;
+						warp "arug_que01",103,133;
+						end;
+					}
+				}
+				else {
+					set $@gdeventv_a1,0;
+					set $@gdevents_a$,"";
+					mes "[Morestone]";
+					mes "I will tell you how to find him.";
+					mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that.";
+					close;
+				}
+			case 2:
+				set $@gdeventv_a1,0;
+				set $@gdevents_a$,"";
+				emotion e_sob;
+				mes "[Dwarf]";
+				mes "Ahhh...";
+				close;
+			}
+		}
+		else if ($@gdevents_a$ == .@chk_yourgdname$) {
+			set .@chk_urquest1,checkquest(2144);
+			if ((.@chk_urquest1 == 0) || (.@chk_urquest1 == 1)) {
+				mes "[Morestone]";
+				mes "I, Morestone, have made an alliance with the "+$@gdevents_a$+" guild.";
+				mes "Oh, you are a member.";
+				mes "Would you like to go to the mysterious area?";
+				next;
+				switch(select("Let's go.:No, thanks.")) {
+				case 1:
+					mes "[Morestone]";
+					mes "I hope you enjoy yourself, my friend.";
+					close2;
+					warp "arug_que01",103,133;
+					end;
+				case 2:
+					mes "[Morestone]";
+					mes "If you need my assistance, just ask.";
+					mes "Ah! Dont forget, I hate monsters! So I don't want to see them. It will be better if you ask for another favour.";
+					close;
+				}
+			}
+			else {
+				set $@gdeventv_a1,1;
+				set $@gdevents_a$,.@chk_yourgdname$;
+				mes "[Dwarf]";
+				mes "Help me!";
+				mes "Please, help me!";
+				next;
+				switch(select("What happened?:Nevermind.")) {
+				case 1:
+					mes "[Dwarf]";
+					mes "I am Morestone and I collect rare gems.";
+					next;
+					mes "[Morestone]";
+					mes "In my travels, I was told that there were alot of gems in Valfreyja and Nidhoggur, so I came down here.";
+					mes "But here, the soil is very hard to dig into. Fortunately, my ^3131FFPickaxe^000000 never lets me down!";
+					next;
+					select("Pickaxe!");
+					mes "[Morestone]";
+					mes "Yes, my beloved pickaxe!";
+					mes "I always carry it with me, you know?";
+					next;
+					mes "[Morestone]";
+					mes "We started working here together.";
+					mes "After a few days, we finally found something!";
+					next;
+					select("Something strange??");
+					mes "[Morestone]";
+					mes "No, but it was worth quite alot.";
+					mes "But we did not have much time to celebrate. Suddenly, a monster appeared that stole my pickaxe.";
+					mes "His name was^3131FFKublin^000000!";
+					next;
+					mes "[Morestone]";
+					mes "He stole my Pickaxe!";
+					mes "I can't live without it...";
+					next;
+					if (countitem(6010) > 0) {
+						mes "[" + strcharinfo(0) + "]";
+						mes "Is this the pickaxe that you've been looking for?";
+						next;
+						mes "[Morestone]";
+						mes "You found my Pickaxe?";
+						mes "Show me, please!";
+						next;
+						mes "[Morestone]";
+						mes "Oh, my! You've returned it to me!";
+						mes "My precious pickaxe, I thought I lost you forever.";
+						next;
+						mes "[Morestone]";
+						mes "You are great! What guild are you from?";
+						mes "Could it be Gravity or Mercury?";
+						next;
+						mes "[" + strcharinfo(0) + "]";
+						mes "I am a member of the ^3131FF"+.@chk_yourgdname$+"^.";
+						next;
+						mes "[Morestone]";
+						mes "Oh... That guild will receive my greatest respect.";
+						next;
+						mes "[Morestone]";
+						mes "Oh! My friend, I am very grateful for your help.";
+						mes "As a reward, I will tell you about a mysterious area I have discovered recently.";
+						next;
+						select("A mysterious area?");
+						mes "[Morestone]";
+						mes "That's right. I found it when I was digging around here.";
+						mes "It looks like it was made for some special purpose, but since there are no gems around there, I have no interest in it.";
+						next;
+						mes "[Morestone]";
+						mes "Instead of going there alone, I think it would be more fun to go with your friends...";
+						next;
+						mes "[Morestone]";
+						mes "If you want, I can take ^3131FFyou and your guild members^000000 to explore that area.";
+						mes "Do you want to go there now?";
+						next;
+						switch(select("Wait! I'm not ready yet.:Let's go!")) {
+						case 1:
+							set $@gdeventv_a1,0;
+							set $@gdevents_a$,"";
+							mes "[Morestone]";
+							mes "Take your time, and find a place to gather your friends.";
+							close;
+						case 2:
+							mes "[Morestone]";
+							mes "Alright! Let's go.";
+							mes "If your friends visit me again later, I will guide them to that area again.";
+							mes "Don't forget, dwarves are grateful beings! Hahaha!";
+							delitem 6010,1; //Pickaxe
+							set $@gdeventv_a1,1;
+							set $@gdevents_a$,.@chk_yourgdname$;
+							close2;
+							setquest 2144;
+							warp "arug_que01",103,133;
+							end;
+						}
+					}
+					else {
+						set $@gdeventv_a1,0;
+						set $@gdevents_a$,"";
+						mes "[Morestone]";
+						mes "I will tell you how to find him.";
+						mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that.";
+						close;
+					}
+				case 2:
+					set $@gdeventv_a1,0;
+					set $@gdevents_a$,"";
+					emotion e_sob;
+					mes "[Dwarf]";
+					mes "Ah....";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Morestone]";
+			mes "I, Morestone, have made an alliance with the "+$@gdevents_a$+" guild.";
+			mes "Hm, you're not a member.";
+			mes "Could you please give them my greetings?";
+			close;
+		}
+	}
+	else {
+		if ($@gdevents_a$ == .@chk_yourgdname$) {
+			set .@chk_urquest1,checkquest(2144);
+			if ((.@chk_urquest1 == 0) || (.@chk_urquest1 == 1)) {
+				mes "[Morestone]";
+				mes "[Morestone]";
+				mes "I, Morestone, have made an alliance with the "+$@gdevents_a$+" guild.";
+				mes "Oh, you are a member.";
+				mes "Would you like to go to the mysterious area?";
+				next;
+				switch(select("Let's go.:No, thanks.")) {
+				case 1:
+					mes "[Morestone]";
+					mes "I hope you enjoy yourself, my friend.";
+					close2;
+					warp "arug_que01",103,133;
+					end;
+				case 2:
+					mes "[Morestone]";
+					mes "If you need my assistance, just ask.";
+					mes "Ah! Dont forget, I hate monsters! So I don't want to see them. It will be better if you ask for another favour.";
+					close;
+				}
+			}
+			else {
+				set $@gdeventv_a1,1;
+				set $@gdevents_a$,.@chk_yourgdname$;
+				mes "[Dwarf]";
+				mes "Help me!";
+				mes "Please, help me!";
+				next;
+				switch(select("What happened?:Nevermind.")) {
+				case 1:
+					mes "[Dwarf]";
+					mes "I am Morestone and I collect rare gems.";
+					next;
+					mes "[Morestone]";
+					mes "In my travels, I was told that there were alot of gems in Valfreyja and Nidhoggur, so I came down here.";
+					mes "But here, the soil is very hard to dig into. Fortunately, my ^3131FFPickaxe^000000 never lets me down!";
+					next;
+					select("Pickaxe!");
+					mes "[Morestone]";
+					mes "Yes, my beloved pickaxe!";
+					mes "I always carry it with me, you know?";
+					next;
+					mes "[Morestone]";
+					mes "We started working here together.";
+					mes "After a few days, we finally found something!";
+					next;
+					select("Something strange??");
+					mes "[Morestone]";
+					mes "No, but it was worth quite alot.";
+					mes "But we did not have much time to celebrate. Suddenly, a monster appeared that stole my pickaxe.";
+					mes "His name was^3131FFKublin^000000!";
+					next;
+					mes "[Morestone]";
+					mes "He stole my Pickaxe!";
+					mes "I can't live without it...";
+					next;
+					if (countitem(6010) > 0) {
+						mes "[" + strcharinfo(0) + "]";
+						mes "Is this the pickaxe that you've been looking for?";
+						next;
+						mes "[Morestone]";
+						mes "You found my Pickaxe?";
+						mes "Show me, please!";
+						next;
+						mes "[Morestone]";
+						mes "Oh, my! You've returned it to me!";
+						mes "My precious pickaxe, I thought I lost you forever.";
+						next;
+						mes "[Morestone]";
+						mes "You are great! What guild are you from?";
+						mes "Could it be Gravity or Mercury?";
+						next;
+						mes "[" + strcharinfo(0) + "]";
+						mes "I am a member of the ^3131FF"+.@chk_yourgdname$+"^.";
+						next;
+						mes "[Morestone]";
+						mes "Oh... That guild will receive my greatest respect.";
+						next;
+						mes "[Morestone]";
+						mes "Oh! My friend, I am very grateful for your help.";
+						mes "As a reward, I will tell you about a mysterious area I have discovered recently.";
+						next;
+						select("A mysterious area?");
+						mes "[Morestone]";
+						mes "That's right. I found it when I was digging around here.";
+						mes "It looks like it was made for some special purpose, but since there are no gems around there, I have no interest in it.";
+						next;
+						mes "[Morestone]";
+						mes "Instead of going there alone, I think it would be more fun to go with your friends...";
+						next;
+						mes "[Morestone]";
+						mes "If you want, I can take ^3131FFyou and your guild members^000000 to explore that area.";
+						mes "Do you want to go there now?";
+						next;
+						switch(select("Wait! I'm not ready yet.:Let's go!")) {
+						case 1:
+							set $@gdeventv_a1,0;
+							set $@gdevents_a$,"";
+							mes "[Morestone]";
+							mes "Take your time, and find a place to gather you friends.";
+							close;
+						case 2:
+							mes "[Morestone]";
+							mes "Alright! Let's go.";
+							mes "If your friends visit me again later, I will guide them to that area again.";
+							mes "Don't forget, dwarves are grateful beings! Hahaha!";
+							delitem 6010,1; //Pickaxe
+							set $@gdeventv_a1,1;
+							set $@gdevents_a$,.@chk_yourgdname$;
+							close2;
+							setquest 2144;
+							warp "arug_que01",103,133;
+							end;
+						}
+					}
+					else {
+						set $@gdeventv_a1,0;
+						set $@gdevents_a$,"";
+						mes "[Morestone]";
+						mes "I will tell you how to find him.";
+						mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that.";
+						close;
+					}
+				case 2:
+					set $@gdeventv_a1,0;
+					set $@gdevents_a$,"";
+					emotion e_sob;
+					mes "[Dwarf]";
+					mes "Ah....";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Morestone]";
+			mes "I, Morestone, have made an alliance with the "+$@gdevents_a$+" guild.";
+			mes "Hm, you're not a member.";
+			mes "Could you please give them my greetings?";
+			close;
+		}
+	}
+	end;
+
+OnInit:
+	disablenpc "Dwarf#aru_gd";
+	set $@gdeventv_a1,0;
+	set $@gdevents_a$,"";
+	end;
+
+OnEnable:
+	enablenpc "Dwarf#aru_gd";
+	end;
+}
+
+arug_que01,100,81,3	script	Pierrot Pier#aru_gd	715,{
+	specialeffect EF_POISONHIT;
+	set .@sprchg_gd,rand(1,5);
+	if (.@sprchg_gd == 1) {
+		setnpcdisplay "Pierrot Pier#aru_gd",950;
+	}
+	else if (.@sprchg_gd == 2) {
+		setnpcdisplay "Pierrot Pier#aru_gd",715;
+	}
+	else if (.@sprchg_gd == 3) {
+		setnpcdisplay "Pierrot Pier#aru_gd",714;
+	}
+	else if (.@sprchg_gd == 4) {
+		setnpcdisplay "Pierrot Pier#aru_gd",785;
+	}
+	else {
+		setnpcdisplay "Pierrot Pier#aru_gd",876;
+	}
+	if (checkweight(1201,1) == 0) {
+		mes "- Wait!! -";
+		mes "- You're carrying too many items, -";
+		mes "- you can't receive the materials. -";
+		mes "- Please use the Kafra Services, -";
+		mes "- and come back later. -";
+		close;
+	}
+	if (strcharinfo(0) == getguildmaster(getcharid(2))) {
+		if ($@gdeventv_a2 == 0) {
+			set .@que_2143,checkquest(2143,PLAYTIME);
+			if (.@que_2143 == -1) {
+				setnpcdisplay "Pierrot Pier#aru_gd",715;
+				mes "A lonely clown is juggling.";
+				next;
+				mes "When looked at closely, the clown is just a puppet that looks like a human.";
+				next;
+				mes "The clown stops, then starts moving in accordance to your movements, noises start to emit from it's mouth.";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Beep beep beep.";
+				mes "Hello, my friends!";
+				mapannounce "arug_que01", "Pierrot Pier: Beep beep beep! Hello, my friends!",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "I am the loyal servant of Gergath, and I have finally received my orders.";
+				mes "I am happy to hear all the laughter, but without my master's permission, I can't do anything.";
+				mapannounce "arug_que01", "Pierrot Pier: I am happy to hear all the laughter, but without my master's permission, I can't do anything.",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Did you get permission from Gergath?";
+				mapannounce "arug_que01", "Pierrot Pier: Did you get permission from Gergath?",bc_map,"0x99CC00";
+				next;
+				switch(select("I need to check that.:No.")) {
+				case 1:
+					mes "[Pierrot Pier]";
+					mes "Please give me the palm of your hand.";
+					mapannounce "arug_que01", "Pierrot Pier: Please give me the palm of your hand.",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Let me see...";
+					mapannounce "arug_que01", "Pierrot Pier: Let me see...",bc_map,"0x99CC00";
+					next;
+					emotion e_dots;
+					mes "[Pierrot Pier]";
+					mes "Hm...";
+					mapannounce "arug_que01", "Pierrot Pier: Hm...",bc_map,"0x99CC00";
+					next;
+					emotion e_dots;
+					mes "[Pierrot Pier]";
+					mes "Okay, I see...";
+					mapannounce "arug_que01", "Pierrot Pier: Okay, I see...",bc_map,"0x99CC00";
+					next;
+					emotion e_dots;
+					mes "[Pierrot Pier]";
+					mes "Indeed...";
+					mapannounce "arug_que01", "Pierrot Pier: Indeed...",bc_map,"0x99CC00";
+					next;
+					emotion e_bzz;
+					mes "[Pierrot Pier]";
+					mes "Verification completed!";
+					mapannounce "arug_que01", "Pierrot Pier: Verification completed!",bc_map,"0x99CC00";
+					next;
+					break;
+				case 2:
+					mes "[Pierrot Pier]";
+					mes "Hm? that's right.";
+					mes "When is that person coming? I am very bored~!";
+					close;
+				}
+				mes "[Pierrot Pier]";
+				mes "^3131FF<You're someone who can only think about nonsense everyday, you have no focus at all.>^000000";
+				mapannounce "arug_que01", "Pierrot Pier: <You're someone who can only think about nonsense everyday, you have no focus at all.>",bc_map,"0x99CC00";
+				next;
+				emotion e_ho;
+				mes "[Pierrot Pier]";
+				mes "Hm? You don't think so?";
+				mapannounce "arug_que01", "Pierrot Pier: Hm? You don't think so?",bc_map,"0x99CC00";
+				next;
+				emotion e_heh;
+				mes "[Pierrot Pier]";
+				mes "Haha, I'm just kidding. Beep beep.";
+				mes "Ah, you are the one my master speaks of.";
+				mapannounce "arug_que01", "Pierrot Pier: Haha, I'm just kidding. Beep beep. You are the one my master speaks of.",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Come, the Gergath has left a message for you.";
+				mes "It's a bit old, but it should still be legible.";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Alright, let's begin!";
+				setquest 2143;
+				donpcevent "Gergath#aru_gd::OnEnable";
+				close;
+			}
+			else if ((.@que_2143 == 0) || (.@que_2143 == 1)) {
+				mes "[Pierrot Pier]";
+				mes "Let's talk after I finished reading my master's message. Beep beep.";
+				close;
+			}
+			else {
+				mes "[Pierrot Pier]";
+				mes "My master Gergath sincerely wishes you joy for you and your family everyday.";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Alright, would you like to play the game Gergath has prepared for you?";
+				next;
+				switch(select("Game instructions.:Skip instructions.:Refuse game.")) {
+				case 1:
+					mes "[Pierrot Pier]";
+					mes "The game prepared by my master is very unique, yet simple and fun!";
+					mapannounce "arug_que01", "Pierrot Pier: The game prepared by my lord is very unique, yet simple and fun!",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "It's called \"Find the Treasure Map\"!!";
+					mapannounce "arug_que01", "Pierrot Pier: It's called \"Find the Treasure Map\"!!",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Do you see this large and green field? Beep, beep?";
+					mes "I will show you the most incredible magic here.";
+					mes "I will turn this place very white. Veeery white!";
+					mapannounce "arug_que01", "Pierrot Pier: I will turn this place very white. Veeery white!",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "The game instruction is just to find the treasure map within the time limit.";
+					mes "Sounds easy, right?";
+					mapannounce "arug_que01", "Pierrot Pier: The game instruction is just to find the treasure map within the time limit. ounds easy, right?",bc_map,"0x99CC00";
+					next;
+					break;
+				case 2:
+					break;
+				case 3:
+					emotion e_sob;
+					mes "[Pierrot Pier]";
+					mes "Oh, you don't want to play?";
+					close;
+				}
+				mes "[Pierrot Pier]";
+				mes "Okay, I'm ready to begin.";
+				mes "Shall we start? Beep, beep?";
+				next;
+				switch(select("No.:Start.")) {
+				case 1:
+					mes "[Pierrot Pier]";
+					mes "Let me know when you are ready.";
+					close;
+				case 2:
+					mes "[Pierrot Pier]";
+					mes "Alright! Let us begin!";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Ladies, and gentlemen.";
+					mapannounce "arug_que01", "Pierrot Pier: Ladies, and gentlemen.",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Who will find the treasure map in this white world?";
+					mapannounce "arug_que01", "Pierrot Pier: Who will find the treasure map in this white world?",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Amongst all of you, who shall be the lucky one?";
+					mapannounce "arug_que01", "Pierrot Pier: Amongst all of you, who shall be the lucky one?",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Let the game.. Begin!";
+					mapannounce "arug_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00";
+					set $@gdeventv_a2,1;
+					donpcevent "Controller#gdevent_a::Ongame_start";
+					erasequest 2143;
+					close;
+				}
+			}
+		}
+		else if ($@gdeventv_a2 == 1) {
+			mes "[Pierrot Pier]";
+			mes "Did you find the treasure map?";
+			mes "Show me what you have in your hands! Beep, beep!";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Let me see...";
+			next;
+			if (countitem(6031) > 0) {
+				donpcevent "Controller#gdevent_a::Onstop";
+				set $@gdeventv_a2,3;
+				donpcevent "eff_mvp#aru_gd::Onmvp";
+				mes "[Pierrot Pier]";
+				mes "Wow~~!!";
+				mes "Success~!!";
+				mes "What a success~!!";
+				mapannounce "arug_que01", "Pierrot Pier: Wow~~!! Success~!! What a success~!!",bc_map,"0x99CC00";
+				delitem 6031,1; //Glitering_PaperB
+				close;
+			}
+			else {
+				if (countitem(6030) > 0) {
+					mes "[Pierrot Pier]";
+					mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
+					mes "Quickly! Your time is running out! Hurry up!";
+					close;
+				}
+				else {
+					mes "[Pierrot Pier]";
+					mes "I don't see anything. Have you even started yet? Beep?";
+					mes "Hehe, while you're talking to me, the time is slowly ticking away~";
+					close;
+				}
+			}
+		}
+		else if ($@gdeventv_a2 == 2) {
+			mes "[Pierrot Pier]";
+			mes "Wah, why is it like this~!!";
+			mes "Not enough? But this makes the game fun, no? Hahaha!";
+			next;
+			mes "[Pierrot Pier]";
+			mes "What did you think?";
+			next;
+			switch(select("It was pretty hard.:I should've been successful...")) {
+			case 1:
+				mes "[Pierrot Pier]";
+				mes "It's like trying to find a needle in a haystack!";
+				mes "It's hard, but if you find it, it's worth ten times the effort. Beep, beep.";
+				next;
+				break;
+			case 2:
+				mes "[Pierrot Pier]";
+				mes "Aaah~! Time is gold.";
+				mes "Precious time goes by so fast.";
+				next;
+				break;
+			}
+			mes "[Pierrot Pier]";
+			mes "I, Pierrot Piere, am not a heartless clown! Beep beep.";
+			mapannounce "arug_que01", "Pierrot Pier: I, Pierrot Piere, am not a heartless clown! Beep beep.",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Your success is my happiness!";
+			mes "I'll give you one more chance. How's that? Beep?";
+			mapannounce "arug_que01", "Pierrot Pier: I'll give you one more chance. How's that? Beep?",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Okay, I'm ready to begin.";
+			mes "Shall we start? Beep, beep?";
+			mapannounce "arug_que01", "Pierrot Pier: Okay, I'm ready to begin. Shall we start? Beep, beep?",bc_map,"0x99CC00";
+			next;
+			switch(select("No.:Start.")) {
+			case 1:
+				mes "[Pierrot Pier]";
+				mes "Let me know when you are ready.";
+				close;
+			case 2:
+				mes "[Pierrot Pier]";
+				mes "Alright! Let us begin!";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Ladies, and gentlemen.";
+				mapannounce "arug_que01", "Pierrot Pier: Ladies, and gentlemen.",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Who will find the treasure map in this white world?";
+				mapannounce "arug_que01", "Pierrot Pier: Who will find the treasure map in this white world?",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Amongst all of you, who shall be the lucky one?";
+				mapannounce "arug_que01", "Pierrot Pier: Amongst all of you, who shall be the lucky one?",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Let the game.. Begin!";
+				mapannounce "arug_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00";
+				set $@gdeventv_a2,10;
+				donpcevent "Controller#gdevent_a::Ongame_start";
+				close;
+			}
+		}
+		else if ($@gdeventv_a2 == 3) {
+			set .@que_2143,checkquest(2143);
+			if (.@que_2143 == 3) {
+				erasequest 2143;
+			}
+			mes "[Pierrot Pier]";
+			mes "How did you do it?";
+			mapannounce "arug_que01", "Pierrot Pier: How did you do it?",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "You managed to find a needle in a haystack!";
+			mes "Amazing!";
+			mapannounce "arug_que01", "Pierrot Pier: You managed to find a needle in a haystack! Amazing!!",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "You've completeled an unbelievable task, I will give you the wonderful gift master has prepared!! Ha!";
+			mapannounce "arug_que01", "Pierrot Pier: You've completeled an unbelievable task, I will give you the wonderful gift my master has prepared!! Ha!",bc_map,"0x99CC00";
+			mapannounce "arug_que01", "Pierrot Pier: Here, take Pierre's Treasure Boxes.",bc_map,"0x99CC00";
+			donpcevent "eff_mvp#aru_gd::Onmvp";
+			set $@gdeventv_a2,5;
+			getitem 14596,10; //Pierre_Treasurebox
+			close;
+		}
+		else if ($@gdeventv_a2 == 4) {
+			mes "[Pierrot Pier]";
+			mes "Incredible! Unbelievable! Beep beep!";
+			close;
+		}
+		else if ($@gdeventv_a2 == 5) {
+			mapannounce "arug_que01", "Pierrot Pier: Seeing your smiles, makes Pierrot feel very happy~ See you next time!",bc_map,"0x99CC00";
+			mes "[Pierrot Pier]";
+			mes "Did you have fun?";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Seeing your smiles, makes Pierrot feel very happy~";
+			next;
+			mes "[Pierrot Pier]";
+			mes "I hope to see you again very soon, I must go back to being a doll now.";
+			mes "See you next time!";
+			erasequest 2144;
+			close;
+		}
+		else {
+			mes "[Pierrot Pier]";
+			mes "Did you find the treasure map?";
+			mes "Show me what you have in your hands! Beep, beep!";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Let me see.";
+			next;
+			if (countitem(6031) > 0) {
+				donpcevent "Controller#gdevent_a::Onstop";
+				set $@gdeventv_a2,3;
+				donpcevent "eff_mvp#aru_gd::Onmvp";
+				mes "[Pierrot Pier]";
+				mes "Wow~~!!";
+				mes "Success~!!";
+				mes "What a success~!!";
+				delitem 6031,1; //Glitering_PaperB
+				close;
+			}
+			else {
+				if (countitem(6030) > 0) {
+					mes "[Pierrot Pier]";
+					mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
+					mes "Quickly! Your time is running out! Hurry up!";
+					close;
+				}
+				else {
+					mes "[Pierrot Pier]";
+					mes "I don't see anything. Have you even started yet? Beep?";
+					mes "Hehe, while you're talking to me, the time is slowly ticking away~";
+					close;
+				}
+			}
+		}
+	}
+	else {
+		if ($@gdeventv_a2 == 0) {
+			setnpcdisplay "Pierrot Pier#aru_gd",715;
+			mes "A lonely clown is juggling.";
+			next;
+			mes "When looked at closely, the clown is just a puppet that looks like a human.";
+			next;
+			mes "The clown stops, then starts moving in accordance to your movements, noises start to emit from it's mouth.";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Beep beep beep.";
+			mes "Hello, my friends!";
+			mapannounce "arug_que01", "Pierrot Pier: Beep beep beep! Hello, my friends!",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "I am the loyal servant of Gergath, and I have finally received my orders.";
+			mes "I am happy to hear all the laughter, but without my master's permission, I can't do anything.";
+			mapannounce "arug_que01", "Pierrot Pier: I am happy to hear all the laughter, but without my master's permission, I can't do anything.",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Did you get permission from the Gergath?";
+			mapannounce "arug_que01", "Pierrot Pier: Did you get permission from Gergath?",bc_map,"0x99CC00";
+			next;
+			switch(select("I need to check that.:No.")) {
+			case 1:
+				mes "[Pierrot Pier]";
+				mes "Please give me the palm of your hand.";
+				mapannounce "arug_que01", "Pierrot Pier: Please give me the palm of your hand.",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Let me see...";
+				mapannounce "arug_que01", "Pierrot Pier: Let me see...",bc_map,"0x99CC00";
+				next;
+				emotion e_dots;
+				mes "[Pierrot Pier]";
+				mes "Hm...";
+				mapannounce "arug_que01", "Pierrot Pier: Hm...",bc_map,"0x99CC00";
+				next;
+				emotion e_dots;
+				mes "[Pierrot Pier]";
+				mes "Okay, I see...";
+				mapannounce "arug_que01", "Pierrot Pier: Okay, I see...",bc_map,"0x99CC00";
+				next;
+				emotion e_dots;
+				mes "[Pierrot Pier]";
+				mes "Indeed...";
+				mapannounce "arug_que01", "Pierrot Pier: Indeed...",bc_map,"0x99CC00";
+				next;
+				emotion e_bzz;
+				mes "[Pierrot Pier]";
+				mes "Verification completed!";
+				mapannounce "arug_que01", "Pierrot Pier: Verification completed!",bc_map,"0x99CC00";
+				next;
+				break;
+			case 2:
+				mes "[Pierrot Pier]";
+				mes "Hm? that's right.";
+				mes "When is that person coming? I am very bored~!";
+				close;
+			}
+			emotion 18;
+			mes "[Pierrot Pier]";
+			mes "^3131FF<Although you're a weirdo, you seem to be very dedicated>^000000. Beep beep.";
+			next;
+			emotion e_swt2;
+			mes "[Pierrot Pier]";
+			mes "Hm? You don't think so?";
+			next;
+			mes "[Pierrot Pier]";
+			mes "The one my lord appointed is ^3131FF< someone who leads many people >^000000. Beep.";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Pierrot wants to be someone like that, too. Beep.";
+			close;
+		}
+		else if ($@gdeventv_a2 == 1) {
+			mes "[Pierrot Pier]";
+			mes "Did you find the treasure map?";
+			mes "Show me what you have in your hands! Beep, beep!";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Let me see...";
+			next;
+			if (countitem(6031) > 0) {
+				donpcevent "Controller#gdevent_a::Onstop";
+				set $@gdeventv_a2,3;
+				donpcevent "eff_mvp#aru_gd::Onmvp";
+				mes "[Pierrot Pier]";
+				mes "Wow~~!!";
+				mes "Success~!!";
+				mes "What a success~!!";
+				mapannounce "arug_que01", "Pierrot Pier: Wow~~!! Success~!! What a success~!!",bc_map,"0x99CC00";
+				delitem 6031,1; //Glitering_PaperB
+				close;
+			}
+			else {
+				if (countitem(6030) > 0) {
+					mes "[Pierrot Pier]";
+					mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
+					mes "Quickly! Your time is running out! Hurry up!";
+					close;
+				}
+				else {
+					mes "[Pierrot Pier]";
+					mes "I don't see anything. Have you even started yet? Beep?";
+					mes "Hehe, while you're talking to me, the time is slowly ticking away~";
+					close;
+				}
+			}
+		}
+		else if ($@gdeventv_a2 == 2) {
+			mes "[Pierrot Pier]";
+			mes "Wah, why is it like this~!!";
+			mes "Not enough? But this makes the game fun, no? Hahaha!";
+			close;
+		}
+		else if ($@gdeventv_a2 == 3) {
+			mes "[Pierrot Pier]";
+			mes "Congratulations, you have succeeded!";
+			mes "I will talk to your leader about other details.";
+			close;
+		}
+		else if ($@gdeventv_a2 == 4) {
+			mes "[Pierrot Pier]";
+			mes "Incredible! Unbelievable! Beep beep!";
+			close;
+		}
+		else if ($@gdeventv_a2 == 5) {
+			mes "[Pierrot Pier]";
+			mes "Did you have fun?";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Seeing your smiles, makes Pierrot feel very happy~";
+			next;
+			mes "[Pierrot Pier]";
+			mes "I hope to see you again very soon, I must go back to being a doll now.";
+			mes "See you next time!";
+			close;
+		}
+		else {
+			mes "[Pierrot Pier]";
+			mes "Você encontrou o tesouro?";
+			mes "Mostre-me o que você tem nas mãos agora.";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Deixe-me ver...";
+			next;
+			if (countitem(6031) > 0) {
+				donpcevent "Controller#gdevent_a::Onstop";
+				set $@gdeventv_a2,3;
+				donpcevent "eff_mvp#aru_gd::Onmvp";
+				mes "[Pierrot Pier]";
+				mes "Wow~~!!";
+				mes "Success~!!";
+				mes "What a success~!!";
+				delitem 6031,1; //Glitering_PaperB
+				close;
+			}
+			else {
+				if (countitem(6030) > 0) {
+					mes "[Pierrot Pier]";
+					mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
+					mes "Quickly! Your time is running out! Hurry up!";
+					close;
+				}
+				else {
+					mes "[Pierrot Pier]";
+					mes "I don't see anything. Have you even started yet? Beep?";
+					mes "Hehe, while you're talking to me, the time is slowly ticking away~";
+					close;
+				}
+			}
+		}
+	}
+}
+
+arug_que01,10,10,3	script	Controller#gdevent_a	81,{
+OnInit:
+	set $@gdeventv_a2,0;
+	end;
+
+Onwin:
+	donpcevent "treg#aru_gd::OnEnable";
+	end;
+
+Ongame_start:
+	initnpctimer;
+	donpcevent "paper_sp_1_a::OnEnable";
+	donpcevent "paper_sp_2_a::OnEnable";
+	donpcevent "paper_sp_3_a::OnEnable";
+	donpcevent "paper_sp_4_a::OnEnable";
+	donpcevent "paper_sp_5_a::OnEnable";
+	donpcevent "paper_sp_6_a::OnEnable";
+	donpcevent "paper_sp_7_a::OnEnable";
+	donpcevent "paper_sp_8_a::OnEnable";
+	donpcevent "paper_sp_9_a::OnEnable";
+	set .@roulette_where,rand(1,9);
+	if (.@roulette_where == 1) {
+		donpcevent "paper_sp_1_a::Onbingo";
+	}
+	else if (.@roulette_where == 2) {
+		donpcevent "paper_sp_2_a::Onbingo";
+	}
+	else if (.@roulette_where == 3) {
+		donpcevent "paper_sp_3_a::Onbingo";
+	}
+	else if (.@roulette_where == 4) {
+		donpcevent "paper_sp_4_a::Onbingo";
+	}
+	else if (.@roulette_where == 5) {
+		donpcevent "paper_sp_5_a::Onbingo";
+	}
+	else if (.@roulette_where == 6) {
+		donpcevent "paper_sp_6_a::Onbingo";
+	}
+	else if (.@roulette_where == 7) {
+		donpcevent "paper_sp_7_a::Onbingo";
+	}
+	else if (.@roulette_where == 8) {
+		donpcevent "paper_sp_8_a::Onbingo";
+	}
+	else {
+		donpcevent "paper_sp_9_a::Onbingo";
+	}
+	end;
+
+Onstop:
+	stopnpctimer;
+	end;
+
+OnTimer40000:
+	mapannounce "arug_que01", "Pierrot Pier: Time is running out, hurry up!",bc_map,"0x99CC00";
+	end;
+
+OnTimer60000:
+	mapannounce "arug_que01", "Pierrot Pier: Time is up!",bc_map,"0x99CC00";
+	mapwarp "arug_que01","arug_que01",100,79;
+	enablenpc "removepp_aru_gd";
+	set $@gdeventv_a2,2;
+	end;
+
+OnTimer63000:
+	stopnpctimer;
+	end;
+}
+
+arug_que01,87,93,0	script	paper_sp_1_a	139,{
+	end;
+
+OnEnable:
+	set .@paper_while1,0;
+	while(1) {
+		if (.@paper_while1 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while1,.@paper_while1+1;
+			set .@paper_x1,rand(81,95);
+			set .@paper_y1,rand(87,100);
+			makeitem 6030,1,"arug_que01",.@paper_x1,.@paper_y1; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x1,rand(81,95);
+	set .@paper_y1,rand(87,100);
+	makeitem 6031,1,"arug_que01",.@paper_x1,.@paper_y1; //Glitering_PaperB
+	end;
+}
+
+arug_que01,102,93,0	script	paper_sp_2_a	139,{
+	end;
+
+OnEnable:
+	set .@paper_while2,0;
+	while(1) {
+		if (.@paper_while2 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while2,.@paper_while2+1;
+			set .@paper_x2,rand(96,110);
+			set .@paper_y2,rand(87,100);
+			makeitem 6030,1,"arug_que01",.@paper_x2,.@paper_y2; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x2,rand(96,110);
+	set .@paper_y2,rand(87,100);
+	makeitem 6031,1,"arug_que01",.@paper_x2,.@paper_y2; //Glitering_PaperB
+	end;
+}
+
+arug_que01,117,93,0	script	paper_sp_3_a	139,{
+	end;
+
+OnEnable:
+	set .@paper_while3,0;
+	while(1) {
+		if (.@paper_while3 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while3,.@paper_while3+1;
+			set .@paper_x3,rand(111,124);
+			set .@paper_y3,rand(87,100);
+			makeitem 6030,1,"arug_que01",.@paper_x3,.@paper_y3; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x3,rand(111,124);
+	set .@paper_y3,rand(87,100);
+	makeitem 6031,1,"arug_que01",.@paper_x3,.@paper_y3; //Glitering_PaperB
+	end;
+}
+
+arug_que01,87,80,0	script	paper_sp_4_a	139,{
+	end;
+
+OnEnable:
+	set .@paper_while4,0;
+	while(1) {
+		if (.@paper_while4 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while4,.@paper_while4+1;
+			set .@paper_x4,rand(81,95);
+			set .@paper_y4,rand(73,86);
+			makeitem 6030,1,"arug_que01",.@paper_x4,.@paper_y4; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x4,rand(81,95);
+	set .@paper_y4,rand(73,86);
+	makeitem 6031,1,"arug_que01",.@paper_x4,.@paper_y4; //Glitering_PaperB
+	end;
+}
+
+arug_que01,102,80,0	script	paper_sp_5_a	139,{
+	end;
+
+OnEnable:
+	set .@paper_while5,0;
+	while(1) {
+		if (.@paper_while5 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while5,.@paper_while5+1;
+			set .@paper_x5,rand(96,110);
+			set .@paper_y5,rand(73,86);
+			makeitem 6030,1,"arug_que01",.@paper_x5,.@paper_y5; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x5,rand(96,110);
+	set .@paper_y5,rand(73,86);
+	makeitem 6031,1,"arug_que01",.@paper_x5,.@paper_y5; //Glitering_PaperB
+	end;
+}
+
+arug_que01,117,80,0	script	paper_sp_6_a	139,{
+	end;
+
+OnEnable:
+	set .@paper_while6,0;
+	while(1) {
+		if (.@paper_while6 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while6,.@paper_while6+1;
+			set .@paper_x6,rand(111,124);
+			set .@paper_y6,rand(73,86);
+			makeitem 6030,1,"arug_que01",.@paper_x6,.@paper_y6; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x6,rand(111,124);
+	set .@paper_y6,rand(73,86);
+	makeitem 6031,1,"arug_que01",.@paper_x6,.@paper_y6; //Glitering_PaperB
+	end;
+}
+
+arug_que01,87,65,0	script	paper_sp_7_a	139,{
+	end;
+
+OnEnable:
+	set .@paper_while7,0;
+	while(1) {
+		if (.@paper_while7 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while7,.@paper_while7+1;
+			set .@paper_x7,rand(81,95);
+			set .@paper_y7,rand(59,72);
+			makeitem 6030,1,"arug_que01",.@paper_x7,.@paper_y7; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x7,rand(81,95);
+	set .@paper_y7,rand(59,72);
+	makeitem 6031,1,"arug_que01",.@paper_x7,.@paper_y7; //Glitering_PaperB
+	end;
+}
+
+arug_que01,102,65,0	script	paper_sp_8_a	139,{
+	end;
+
+OnEnable:
+	set .@paper_while8,0;
+	while(1) {
+		if (.@paper_while8 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while8,.@paper_while8+1;
+			set .@paper_x8,rand(96,110);
+			set .@paper_y8,rand(59,72);
+			makeitem 6030,1,"arug_que01",.@paper_x8,.@paper_y8; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x8,rand(96,110);
+	set .@paper_y8,rand(59,72);
+	makeitem 6031,1,"arug_que01",.@paper_x8,.@paper_y8; //Glitering_PaperB
+	end;
+}
+
+arug_que01,117,65,0	script	paper_sp_9_a	139,{
+	end;
+
+OnEnable:
+	set .@paper_while9,0;
+	while(1) {
+		if (.@paper_while9 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while9,.@paper_while9+1;
+			set .@paper_x9,rand(111,124);
+			set .@paper_y9,rand(59,72);
+			makeitem 6030,1,"arug_que01",.@paper_x9,.@paper_y9; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x9,rand(111,124);
+	set .@paper_y9,rand(59,72);
+	makeitem 6031,1,"arug_que01",.@paper_x9,.@paper_y9; //Glitering_PaperB
+	end;
+}
+
+arug_que01,100,80,0	script	removepp_aru_gd	-1,5,5,{
+	end;
+
+OnInit:
+	disablenpc "removepp_aru_gd";
+	end;
+
+OnTouch2:
+	set .@paper_aru_gd,countitem(6030);
+	set .@spaper_aru_gd,countitem(6031);
+	if ((.@paper_aru_gd > 0) || (.@spaper_aru_gd > 0)) {
+		delitem 6030,.@paper_aru_gd; //Glitering_PaperA
+		delitem 6031,.@spaper_aru_gd; //Glitering_PaperB
+	}
+	end;
+}
+
+arug_que01,6,6,1	script	eff_mvp#aru_gd	844,{
+	end;
+
+Onmvp:
+	initnpctimer;
+	end;
+
+OnTimer1000:
+	donpcevent "paper_sp_1_a::Onmvp";
+	donpcevent "paper_sp_3_a::Onmvp";
+	donpcevent "paper_sp_5_a::Onmvp";
+	donpcevent "paper_sp_7_a::Onmvp";
+	donpcevent "paper_sp_9_a::Onmvp";
+	end;
+
+OnTimer2000:
+	donpcevent "paper_sp_2_a::Onmvp";
+	donpcevent "paper_sp_4_a::Onmvp";
+	donpcevent "paper_sp_6_a::Onmvp";
+	donpcevent "paper_sp_8_a::Onmvp";
+	end;
+
+OnTimer3000:
+	donpcevent "paper_sp_1_a::Onmvp";
+	donpcevent "paper_sp_3_a::Onmvp";
+	donpcevent "paper_sp_5_a::Onmvp";
+	donpcevent "paper_sp_7_a::Onmvp";
+	donpcevent "paper_sp_9_a::Onmvp";
+	end;
+
+OnTimer4000:
+	donpcevent "paper_sp_2_a::Onmvp";
+	donpcevent "paper_sp_4_a::Onmvp";
+	donpcevent "paper_sp_6_a::Onmvp";
+	donpcevent "paper_sp_8_a::Onmvp";
+	stopnpctimer;
+	end;
+}
+
+arug_que01,100,75,5	script	Gergath#aru_gd	412,{
+	end;
+
+OnInit:
+	disablenpc "Gergath#aru_gd";
+	end;
+
+OnEnable:
+	enablenpc "Gergath#aru_gd";
+	specialeffect EF_FORESTLIGHT;
+	initnpctimer;
+	end;
+
+OnTimer5000:
+	mapannounce "arug_que01", "Gergath : My dear friend, how have you been? This is something I prepared for you.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer10000:
+	mapannounce "arug_que01", "Gergath : Do you still remember when we were young? We fought everyday like we were sworn enemies.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer15000:
+	mapannounce "arug_que01", "Gergath : No matter how hard the adults tried, we had no intentions to change. Haha.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer20000:
+	mapannounce "arug_que01", "Gergath : But I believe that deep inside, we valued our friendship with each other.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer25000:
+	mapannounce "arug_que01", "Gergath : After I lost my mother's remnants in Mt. Mjolnir, you came to find me.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer30000:
+	mapannounce "arug_que01", "Gergath : When you, handed me my mother's remnants, I couldn't even say thank you.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer35000:
+	mapannounce "arug_que01", "Gergath : I couldn't say it even as I became an old man.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer40000:
+	mapannounce "arug_que01", "Gergath : I found out about your whereabouts not long ago. I heard you were taking care of orphaned children?",bc_map,"0xFFFF00";
+	end;
+
+OnTimer45000:
+	mapannounce "arug_que01", "Gergath : Please accept this as a gift from a useless friend to you and your beloved children. I hope you will like it, haha.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer50000:
+	mapannounce "arug_que01", "Gergath : Pierrot Pier will help you. I hope you can use this chance to return to the past and enjoy yourself with your children.",bc_map,"0xFFFF00";
+	disablenpc "Gergath#aru_gd";
+	stopnpctimer;
+	end;
+}
+
+arug_que01,104,140,0	warp	back#aru_gd	1,1,arug_dun01,199,192
+
+/*
+arug_que01,104,140,1	script	treg#aru_gd	844,{
+	end;
+
+OnEnable:
+	monster "arug_que01",87,93,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
+	monster "arug_que01",102,93,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
+	monster "arug_que01",117,93,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
+	monster "arug_que01",87,80,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
+	monster "arug_que01",102,80,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
+	monster "arug_que01",117,80,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
+	monster "arug_que01",87,65,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
+	monster "arug_que01",102,65,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
+	monster "arug_que01",117,65,"Poporing",1031,1,"treg#aru_gd::OnMyMobDead";
+	end;
+
+OnMyMobDead:
+	if (mobcount("arug_que01","treg#aru_gd::OnMyMobDead") == 0) {
+		mapannounce "arug_que01", "Pierrot Pier: Beep! Oh, you already opened the gift? You sure are fast now, beep!",bc_map,"0x99CC00";
+		set $@gdeventv_a2,5;
+	}
+	end;
+}
+*/
+
+arug_que01,98,105,3	script	#aru_flower_01::GD_Ev_Flower	978,{
+	end;
+}
+
+arug_que01,94,105,3	duplicate(GD_Ev_Flower)	#aru_flower_02	977
+arug_que01,90,105,3	duplicate(GD_Ev_Flower)	#aru_flower_03	978
+arug_que01,86,105,3	duplicate(GD_Ev_Flower)	#aru_flower_04	977
+arug_que01,82,105,3	duplicate(GD_Ev_Flower)	#aru_flower_05	978
+arug_que01,79,103,3	duplicate(GD_Ev_Flower)	#aru_flower_06	977
+arug_que01,79,100,3	duplicate(GD_Ev_Flower)	#aru_flower_07	978
+arug_que01,79,97,3	duplicate(GD_Ev_Flower)	#aru_flower_08	977
+arug_que01,79,97,3	duplicate(GD_Ev_Flower)	#aru_flower_09	978
+arug_que01,79,94,3	duplicate(GD_Ev_Flower)	#aru_flower_10	977
+arug_que01,79,91,3	duplicate(GD_Ev_Flower)	#aru_flower_11	978
+arug_que01,79,88,3	duplicate(GD_Ev_Flower)	#aru_flower_12	977
+arug_que01,79,85,3	duplicate(GD_Ev_Flower)	#aru_flower_13	978
+arug_que01,79,82,3	duplicate(GD_Ev_Flower)	#aru_flower_14	977
+arug_que01,79,79,3	duplicate(GD_Ev_Flower)	#aru_flower_15	978
+arug_que01,79,76,3	duplicate(GD_Ev_Flower)	#aru_flower_16	977
+arug_que01,79,73,3	duplicate(GD_Ev_Flower)	#aru_flower_17	978
+arug_que01,79,70,3	duplicate(GD_Ev_Flower)	#aru_flower_18	977
+arug_que01,79,67,3	duplicate(GD_Ev_Flower)	#aru_flower_19	978
+arug_que01,79,64,3	duplicate(GD_Ev_Flower)	#aru_flower_20	977
+arug_que01,79,61,3	duplicate(GD_Ev_Flower)	#aru_flower_21	978
+arug_que01,79,58,3	duplicate(GD_Ev_Flower)	#aru_flower_22	977
+arug_que01,84,58,3	duplicate(GD_Ev_Flower)	#aru_flower_23	978
+arug_que01,89,58,3	duplicate(GD_Ev_Flower)	#aru_flower_24	977
+arug_que01,94,58,3	duplicate(GD_Ev_Flower)	#aru_flower_25	978
+arug_que01,99,58,3	duplicate(GD_Ev_Flower)	#aru_flower_26	977
+arug_que01,104,58,3	duplicate(GD_Ev_Flower)	#aru_flower_27	978
+arug_que01,109,58,3	duplicate(GD_Ev_Flower)	#aru_flower_28	977
+arug_que01,114,58,3	duplicate(GD_Ev_Flower)	#aru_flower_29	978
+arug_que01,119,58,3	duplicate(GD_Ev_Flower)	#aru_flower_30	977
+arug_que01,124,58,3	duplicate(GD_Ev_Flower)	#aru_flower_31	978
+arug_que01,129,58,3	duplicate(GD_Ev_Flower)	#aru_flower_32	977
+arug_que01,129,105,3	duplicate(GD_Ev_Flower)	#aru_flower_33	978
+arug_que01,129,103,3	duplicate(GD_Ev_Flower)	#aru_flower_34	977
+arug_que01,129,100,3	duplicate(GD_Ev_Flower)	#aru_flower_35	978
+arug_que01,129,97,3	duplicate(GD_Ev_Flower)	#aru_flower_36	977
+arug_que01,129,97,3	duplicate(GD_Ev_Flower)	#aru_flower_37	978
+arug_que01,129,94,3	duplicate(GD_Ev_Flower)	#aru_flower_38	977
+arug_que01,129,91,3	duplicate(GD_Ev_Flower)	#aru_flower_39	978
+arug_que01,129,88,3	duplicate(GD_Ev_Flower)	#aru_flower_40	977
+arug_que01,129,85,3	duplicate(GD_Ev_Flower)	#aru_flower_41	978
+arug_que01,129,82,3	duplicate(GD_Ev_Flower)	#aru_flower_42	977
+arug_que01,129,79,3	duplicate(GD_Ev_Flower)	#aru_flower_43	978
+arug_que01,129,76,3	duplicate(GD_Ev_Flower)	#aru_flower_44	977
+arug_que01,129,73,3	duplicate(GD_Ev_Flower)	#aru_flower_45	978
+arug_que01,129,70,3	duplicate(GD_Ev_Flower)	#aru_flower_46	977
+arug_que01,129,67,3	duplicate(GD_Ev_Flower)	#aru_flower_47	978
+arug_que01,129,64,3	duplicate(GD_Ev_Flower)	#aru_flower_48	977
+arug_que01,129,61,3	duplicate(GD_Ev_Flower)	#aru_flower_49	978
+arug_que01,129,58,3	duplicate(GD_Ev_Flower)	#aru_flower_50	977
+arug_que01,124,105,3	duplicate(GD_Ev_Flower)	#aru_flower_51	978
+arug_que01,119,105,3	duplicate(GD_Ev_Flower)	#aru_flower_52	977
+arug_que01,114,105,3	duplicate(GD_Ev_Flower)	#aru_flower_53	978
+arug_que01,109,105,3	duplicate(GD_Ev_Flower)	#aru_flower_54	977
+arug_que01,104,105,3	duplicate(GD_Ev_Flower)	#aru_flower_55	976
+
+/*
+arug_dun01,5,5,1	script	Event controller#aru_gd	81,{
+	input .@input; //,0,9999;
+	if (input == 1854) {
+		mes "How can I help you?";
+		next;
+		switch(select("Reset.:No, thanks.")) {
+		case 1:
+			mes "Completed.";
+			donpcevent "Monster Controler1#aru::OnControler1#aru_gd";
+			donpcevent "Monster Controler1#aru::OnControler1#aru_gd";
+			disablenpc "Dwarf#aru_gd";
+			set $@gdeventv_a1,0;
+			set $@gdeventv_a2,0;
+			set $@gdevents_a$,"";
+			close;
+		case 2:
+			mes "Good bye~";
+			close;
+		}
+	}
+	else {
+		mes "Incorrect password.";
+		close;
+	}
+}
+*/
diff --git a/npc/events/gdevent_sch.txt b/npc/events/gdevent_sch.txt
new file mode 100644
index 000000000..92d2b7faf
--- /dev/null
+++ b/npc/events/gdevent_sch.txt
@@ -0,0 +1,1561 @@
+schg_dun01,1,1,1	script	Monster Controler#sch_gd	81,{
+OnInit:
+	donpcevent "Monster Controler1#sch::OnKill";
+	initnpctimer;
+	end;
+
+OnTimer10000:
+	donpcevent "Monster Controler1#sch::OnEnable";
+	mapannounce "schg_dun01", "Kublin: Aargh!",bc_map,"0x99CC00";
+	mapannounce "schg_dun01", "Morestone: Stop righ there! You thief!",bc_map,"0x99CC00";
+	stopnpctimer;
+	end;
+}
+
+schg_dun01,1,2,1	script	Monster Controler1#sch	81,{
+OnEnable:
+	set .@callwhere,rand(1,4);
+	if (.@callwhere == 1) {
+		monster "schg_dun01",164,236,"Kublin",1980,1,"Monster Controler1#sch::OnMyMobDead";
+	}
+	else if (.@callwhere == 2) {
+		monster "schg_dun01",172,122,"Kublin",1980,1,"Monster Controler1#sch::OnMyMobDead";
+	}
+	else if (.@callwhere == 3) {
+		monster "schg_dun01",247,159,"Kublin",1980,1,"Monster Controler1#sch::OnMyMobDead";
+	}
+	else {
+		monster "schg_dun01",250,224,"Kublin",1980,1,"Monster Controler1#sch::OnMyMobDead";
+	}
+	end;
+
+Onkill:
+	killmonster "schg_dun01","Monster Controler1#sch::OnMyMObDead";
+	end;
+
+OnMyMobDead:
+	if (mobcount("schg_dun01","Monster Controler1#sch::OnMyMObDead") == 0) {
+		mapannounce "schg_dun01", "Kublin: Aargh!",bc_map,"0x99CC00";
+		mapannounce "schg_dun01", "Morestone: I thought I heard Kublin screaming!! Who is there? What happened to Kublin? Hey you!",bc_map,"0x99CC00";
+		donpcevent "Dwarf#sch_gd::OnEnable";
+	}
+	end;
+}
+
+schg_dun01,194,148,5	script	Dwarf#sch_gd	826,{
+	if (getcharid(2) == 0) {
+		mes "[Dwarf]";
+		mes "Hey did you see an ugly Goblin come by? He stole something from me!";
+		close;
+	}
+	set .@chk_urquest,checkquest(2143,PLAYTIME);
+	set .@chk_yourgdname$,getguildname(getcharid(2));
+	if ($@gdeventv_s1 == 0) {
+		if ($@gdevents_s$ == "") {
+			set $@gdeventv_s1,1;
+			set $@gdevents_s$,.@chk_yourgdname$;
+			mes "[Dwarf]";
+			mes "Help me!";
+			mes "Please, help me!";
+			next;
+			switch(select("What happened?:Nevermind.")) {
+			case 1:
+				mes "[Dwarf]";
+				mes "I am Morestone and I collect rare gems.";
+				next;
+				mes "[Morestone]";
+				mes "In my travels, I was told that there were alot of gems in Valfreyja and Nidhoggur, so I came down here.";
+				mes "But here, the soil is very hard to dig into. Fortunately, my ^3131FFPickaxe^000000 never lets me down!";
+				next;
+				select("Pickaxe!");
+				mes "[Morestone]";
+				mes "Yes, my beloved pickaxe!";
+				mes "I always carry it with me, you know?";
+				next;
+				mes "[Morestone]";
+				mes "We started working here together.";
+				mes "After a few days, we finally found something!";
+				next;
+				select("Something strange??");
+				mes "[Morestone]";
+				mes "No, but it was worth quite alot.";
+				mes "But we did not have much time to celebrate. Suddenly, a monster appeared that stole my pickaxe.";
+				mes "His name was^3131FFKublin^000000!";
+				next;
+				mes "[Morestone]";
+				mes "He stole my Pickaxe!";
+				mes "I can't live without it...";
+				next;
+				if (countitem(6010) > 0) {
+					mes "[" + strcharinfo(0) + "]";
+					mes "Is this the pickaxe that you've been looking for?";
+					next;
+					mes "[Morestone]";
+					mes "You found my Pickaxe?";
+					mes "Show me, please!";
+					next;
+					mes "[Morestone]";
+					mes "Oh, my! You've returned it to me!";
+					mes "My precious pickaxe, I thought I lost you forever.";
+					next;
+					mes "[Morestone]";
+					mes "You are great! What guild are you from?";
+					mes "Could it be Gravity or Mercury?";
+					next;
+					mes "[" + strcharinfo(0) + "]";
+					mes "I am a member of the ^3131FF"+.@chk_yourgdname$+"^.";
+					next;
+					mes "[Morestone]";
+					mes "Oh... That guild will receive my greatest respect.";
+					next;
+					mes "[Morestone]";
+					mes "Oh! My friend, I am very grateful for your help.";
+					mes "As a reward, I will tell you about a mysterious area I have discovered recently.";
+					next;
+					select("A mysterious area?");
+					mes "[Morestone]";
+					mes "That's right. I found it when I was digging around here.";
+					mes "It looks like it was made for some special purpose, but since there are no gems around there, I have no interest in it.";
+					next;
+					mes "[Morestone]";
+					mes "Instead of going there alone, I think it would be more fun to go with your friends...";
+					next;
+					mes "[Morestone]";
+					mes "If you want, I can take ^3131FFyou and your guild members^000000 to explore that area.";
+					mes "Do you want to go there now?";
+					next;
+					switch(select("Wait! I'm not ready yet.:Let's go!")) {
+					case 1:
+						set $@gdeventv_s1,0;
+						set $@gdevents_s$,"";
+						mes "[Morestone]";
+						mes "Take your time, and find a place to gather your friends.";
+						close;
+					case 2:
+						mes "[Morestone]";
+						mes "Alright! Let's go.";
+						mes "If your friends visit me again later, I will guide them to that area again.";
+						mes "Don't forget, dwarves are grateful beings! Hahaha!";
+						delitem 6010,1; //Pickaxe
+						set $@gdeventv_s1,1;
+						set $@gdevents_s$,.@chk_yourgdname$;
+						close2;
+						setquest 2144;
+						warp "schg_que01",103,133;
+						end;
+					}
+				}
+				else {
+					set $@gdeventv_s1,0;
+					set $@gdevents_s$,"";
+					mes "[Morestone]";
+					mes "I will tell you how to find him.";
+					mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that.";
+					close;
+				}
+			case 2:
+				set $@gdeventv_s1,0;
+				set $@gdevents_s$,"";
+				emotion e_sob;
+				mes "[Dwarf]";
+				mes "Ahhh...";
+				close;
+			}
+		}
+		else if ($@gdevents_s$ == .@chk_yourgdname$) {
+			set .@chk_urquest1,checkquest(2144);
+			if ((.@chk_urquest1 == 0) || (.@chk_urquest1 == 1)) {
+				mes "[Morestone]";
+				mes "I, Morestone, have made an alliance with the "+$@gdevents_s$+" guild.";
+				mes "Oh, you are a member.";
+				mes "Would you like to go to the mysterious area?";
+				next;
+				switch(select("Let's go.:No, thanks.")) {
+				case 1:
+					mes "[Morestone]";
+					mes "I hope you enjoy yourself, my friend.";
+					close2;
+					warp "schg_que01",103,133;
+					end;
+				case 2:
+					mes "[Morestone]";
+					mes "If you need my assistance, just ask.";
+					mes "Ah! Dont forget, I hate monsters! So I don't want to see them. It will be better if you ask for another favour.";
+					close;
+				}
+			}
+			else {
+				set $@gdeventv_s1,1;
+				set $@gdevents_s$,.@chk_yourgdname$;
+				mes "[Dwarf]";
+				mes "Help me!";
+				mes "Please, help me!";
+				next;
+				switch(select("What happened?:Nevermind.")) {
+				case 1:
+					mes "[Dwarf]";
+					mes "I am Morestone and I collect rare gems.";
+					next;
+					mes "[Morestone]";
+					mes "In my travels, I was told that there were alot of gems in Valfreyja and Nidhoggur, so I came down here.";
+					mes "But here, the soil is very hard to dig into. Fortunately, my ^3131FFPickaxe^000000 never lets me down!";
+					next;
+					select("Pickaxe!");
+					mes "[Morestone]";
+					mes "Yes, my beloved pickaxe!";
+					mes "I always carry it with me, you know?";
+					next;
+					mes "[Morestone]";
+					mes "We started working here together.";
+					mes "After a few days, we finally found something!";
+					next;
+					select("Something strange??");
+					mes "[Morestone]";
+					mes "No, but it was worth quite alot.";
+					mes "But we did not have much time to celebrate. Suddenly, a monster appeared that stole my pickaxe.";
+					mes "His name was^3131FFKublin^000000!";
+					next;
+					mes "[Morestone]";
+					mes "He stole my Pickaxe!";
+					mes "I can't live without it...";
+					next;
+					if (countitem(6010) > 0) {
+						mes "[" + strcharinfo(0) + "]";
+						mes "Is this the pickaxe that you've been looking for?";
+						next;
+						mes "[Morestone]";
+						mes "You found my Pickaxe?";
+						mes "Show me, please!";
+						next;
+						mes "[Morestone]";
+						mes "Oh, my! You've returned it to me!";
+						mes "My precious pickaxe, I thought I lost you forever.";
+						next;
+						mes "[Morestone]";
+						mes "You are great! What guild are you from?";
+						mes "Could it be Gravity or Mercury?";
+						next;
+						mes "[" + strcharinfo(0) + "]";
+						mes "I am a member of the ^3131FF"+.@chk_yourgdname$+"^.";
+						next;
+						mes "[Morestone]";
+						mes "Oh... That guild will receive my greatest respect.";
+						next;
+						mes "[Morestone]";
+						mes "Oh! My friend, I am very grateful for your help.";
+						mes "As a reward, I will tell you about a mysterious area I have discovered recently.";
+						next;
+						select("A mysterious area?");
+						mes "[Morestone]";
+						mes "That's right. I found it when I was digging around here.";
+						mes "It looks like it was made for some special purpose, but since there are no gems around there, I have no interest in it.";
+						next;
+						mes "[Morestone]";
+						mes "Instead of going there alone, I think it would be more fun to go with your friends...";
+						next;
+						mes "[Morestone]";
+						mes "If you want, I can take ^3131FFyou and your guild members^000000 to explore that area.";
+						mes "Do you want to go there now?";
+						next;
+						switch(select("Wait! I'm not ready yet.:Let's go!")) {
+						case 1:
+							set $@gdeventv_s1,0;
+							set $@gdevents_s$,"";
+							mes "[Morestone]";
+							mes "Take your time, and find a place to gather your friends.";
+							close;
+						case 2:
+							mes "[Morestone]";
+							mes "Alright! Let's go.";
+							mes "If your friends visit me again later, I will guide them to that area again.";
+							mes "Don't forget, dwarves are grateful beings! Hahaha!";
+							delitem 6010,1; //Pickaxe
+							set $@gdeventv_s1,1;
+							set $@gdevents_s$,.@chk_yourgdname$;
+							close2;
+							setquest 2144;
+							warp "schg_que01",103,133;
+							end;
+						}
+					}
+					else {
+						set $@gdeventv_s1,0;
+						set $@gdevents_s$,"";
+						mes "[Morestone]";
+						mes "I will tell you how to find him.";
+						mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that.";
+						close;
+					}
+				case 2:
+					set $@gdeventv_s1,0;
+					set $@gdevents_s$,"";
+					emotion e_sob;
+					mes "[Dwarf]";
+					mes "Ah....";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Morestone]";
+			mes "I, Morestone, have made an alliance with the "+$@gdevents_s$+" guild.";
+			mes "Hm, you're not a member.";
+			mes "Could you please give them my greetings?";
+			close;
+		}
+	}
+	else {
+		if ($@gdevents_s$ == .@chk_yourgdname$) {
+			set .@chk_urquest1,checkquest(2144);
+			if ((.@chk_urquest1 == 0) || (.@chk_urquest1 == 1)) {
+				mes "[Morestone]";
+				mes "I, Morestone, have made an alliance with the "+$@gdevents_s$+" guild.";
+				mes "Oh, you are a member.";
+				mes "Would you like to go to the mysterious area?";
+				next;
+				switch(select("Let's go.:No, thanks.")) {
+				case 1:
+					mes "[Morestone]";
+					mes "I hope you enjoy yourself, my friend.";
+					close2;
+					warp "schg_que01",103,133;
+					end;
+				case 2:
+					mes "[Morestone]";
+					mes "If you need my assistance, just ask.";
+					mes "Ah! Dont forget, I hate monsters! So I don't want to see them. It will be better if you ask for another favour.";
+					close;
+				}
+			}
+			else {
+				set $@gdeventv_s1,1;
+				set $@gdevents_s$,.@chk_yourgdname$;
+				mes "[Dwarf]";
+				mes "Help me!";
+				mes "Please, help me!";
+				next;
+				switch(select("What happened?:Nevermind.")) {
+				case 1:
+					mes "[Dwarf]";
+					mes "I am Morestone and I collect rare gems.";
+					next;
+					mes "[Morestone]";
+					mes "In my travels, I was told that there were alot of gems in Valfreyja and Nidhoggur, so I came down here.";
+					mes "But here, the soil is very hard to dig into. Fortunately, my ^3131FFPickaxe^000000 never lets me down!";
+					next;
+					select("Pickaxe!");
+					mes "[Morestone]";
+					mes "Yes, my beloved pickaxe!";
+					mes "I always carry it with me, you know?";
+					next;
+					mes "[Morestone]";
+					mes "We started working here together.";
+					mes "After a few days, we finally found something!";
+					next;
+					select("Something strange??");
+					mes "[Morestone]";
+					mes "No, but it was worth quite alot.";
+					mes "But we did not have much time to celebrate. Suddenly, a monster appeared that stole my pickaxe.";
+					mes "His name was^3131FFKublin^000000!";
+					next;
+					mes "[Morestone]";
+					mes "He stole my Pickaxe!";
+					mes "I can't live without it...";
+					next;
+					if (countitem(6010) > 0) {
+						mes "[" + strcharinfo(0) + "]";
+						mes "Is this the pickaxe that you've been looking for?";
+						next;
+						mes "[Morestone]";
+						mes "You found my Pickaxe?";
+						mes "Show me, please!";
+						next;
+						mes "[Morestone]";
+						mes "Oh, my! You've returned it to me!";
+						mes "My precious pickaxe, I thought I lost you forever.";
+						next;
+						mes "[Morestone]";
+						mes "You are great! What guild are you from?";
+						mes "Could it be Gravity or Mercury?";
+						next;
+						mes "[" + strcharinfo(0) + "]";
+						mes "I am a member of the ^3131FF"+.@chk_yourgdname$+"^.";
+						next;
+						mes "[Morestone]";
+						mes "Oh... That guild will receive my greatest respect.";
+						next;
+						mes "[Morestone]";
+						mes "Oh! My friend, I am very grateful for your help.";
+						mes "As a reward, I will tell you about a mysterious area I have discovered recently.";
+						next;
+						select("A mysterious area?");
+						mes "[Morestone]";
+						mes "That's right. I found it when I was digging around here.";
+						mes "It looks like it was made for some special purpose, but since there are no gems around there, I have no interest in it.";
+						next;
+						mes "[Morestone]";
+						mes "Instead of going there alone, I think it would be more fun to go with your friends...";
+						next;
+						mes "[Morestone]";
+						mes "If you want, I can take ^3131FFyou and your guild members^000000 to explore that area.";
+						mes "Do you want to go there now?";
+						next;
+						switch(select("Wait! I'm not ready yet.:Let's go!")) {
+						case 1:
+							set $@gdeventv_s1,0;
+							set $@gdevents_s$,"";
+							mes "[Morestone]";
+							mes "Take your time, and find a place to gather you friends.";
+							close;
+						case 2:
+							mes "[Morestone]";
+							mes "Alright! Let's go.";
+							mes "If your friends visit me again later, I will guide them to that area again.";
+							mes "Don't forget, dwarves are grateful beings! Hahaha!";
+							delitem 6010,1; //Pickaxe
+							set $@gdeventv_s1,1;
+							set $@gdevents_s$,.@chk_yourgdname$;
+							close2;
+							setquest 2144;
+							warp "schg_que01",103,133;
+							end;
+						}
+					}
+					else {
+						set $@gdeventv_s1,0;
+						set $@gdevents_s$,"";
+						mes "[Morestone]";
+						mes "I will tell you how to find him.";
+						mes "Kublin wears a ridiculous golden hat, It should be easy to recognise him by that.";
+						close;
+					}
+				case 2:
+					set $@gdeventv_s1,0;
+					set $@gdevents_s$,"";
+					emotion e_sob;
+					mes "[Dwarf]";
+					mes "Ah....";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Morestone]";
+			mes "I, Morestone, have made an alliance with the "+$@gdevents_s$+" guild.";
+			mes "Hm, you're not a member.";
+			mes "Could you please give them my greetings?";
+			close;
+		}
+	}
+	end;
+
+OnInit:
+	disablenpc "Dwarf#sch_gd";
+	set $@gdeventv_s1,0;
+	set $@gdevents_s$,"";
+	end;
+
+OnEnable:
+	enablenpc "Dwarf#sch_gd";
+	end;
+}
+
+schg_que01,100,81,3	script	Pierrot Pier#sch_gd	715,{
+	specialeffect EF_POISONHIT;
+	set .@sprchg_gd,rand(1,5);
+	if (.@sprchg_gd == 1) {
+		setnpcdisplay "Pierrot Pier#sch_gd",950;
+	}
+	else if (.@sprchg_gd == 2) {
+		setnpcdisplay "Pierrot Pier#sch_gd",715;
+	}
+	else if (.@sprchg_gd == 3) {
+		setnpcdisplay "Pierrot Pier#sch_gd",714;
+	}
+	else if (.@sprchg_gd == 4) {
+		setnpcdisplay "Pierrot Pier#sch_gd",785;
+	}
+	else {
+		setnpcdisplay "Pierrot Pier#sch_gd",876;
+	}
+	if (checkweight(1201,1) == 0) {
+		mes "- Wait!! -";
+		mes "- You're carrying too many items, -";
+		mes "- you can't receive the materials. -";
+		mes "- Please use the Kafra Services, -";
+		mes "- and come back later. -";
+		close;
+	}
+	if (strcharinfo(0) == getguildmaster(getcharid(2))) {
+		if ($@gdeventv_s2 == 0) {
+			set .@que_2143,checkquest(2143,PLAYTIME);
+			if (.@que_2143 == -1) {
+				setnpcdisplay "Pierrot Pier#sch_gd",715;
+				mes "A lonely clown is juggling.";
+				next;
+				mes "When looked at closely, the clown is just a puppet that looks like a human.";
+				next;
+				mes "The clown stops, then starts moving in accordance to your movements, noises start to emit from it's mouth.";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Beep beep beep.";
+				mes "Hello, my friends!";
+				mapannounce "schg_que01", "Pierrot Pier: Beep beep beep! Hello, my friends!",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "I am the loyal servant of Gergath, and I have finally received my orders.";
+				mes "I am happy to hear all the laughter, but without my master's permission, I can't do anything.";
+				mapannounce "schg_que01", "Pierrot Pier: I am happy to hear all the laughter, but without my master's permission, I can't do anything.",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Did you get permission from Gergath?";
+				mapannounce "schg_que01", "Pierrot Pier: Did you get permission from Gergath?",bc_map,"0x99CC00";
+				next;
+				switch(select("I need to check that.:No.")) {
+				case 1:
+					mes "[Pierrot Pier]";
+					mes "Please give me the palm of your hand.";
+					mapannounce "schg_que01", "Pierrot Pier: Please give me the palm of your hand.",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Let me see...";
+					mapannounce "schg_que01", "Pierrot Pier: Let me see...",bc_map,"0x99CC00";
+					next;
+					emotion e_dots;
+					mes "[Pierrot Pier]";
+					mes "Hm...";
+					mapannounce "schg_que01", "Pierrot Pier: Hm...",bc_map,"0x99CC00";
+					next;
+					emotion e_dots;
+					mes "[Pierrot Pier]";
+					mes "Okay, I see...";
+					mapannounce "schg_que01", "Pierrot Pier: Okay, I see...",bc_map,"0x99CC00";
+					next;
+					emotion e_dots;
+					mes "[Pierrot Pier]";
+					mes "Indeed...";
+					mapannounce "schg_que01", "Pierrot Pier: Indeed...",bc_map,"0x99CC00";
+					next;
+					emotion e_bzz;
+					mes "[Pierrot Pier]";
+					mes "Verification completed!";
+					mapannounce "schg_que01", "Pierrot Pier: Verification completed!",bc_map,"0x99CC00";
+					next;
+					break;
+				case 2:
+					mes "[Pierrot Pier]";
+					mes "Hm? that's right.";
+					mes "When is that person coming? I am very bored~!";
+					close;
+				}
+				mes "[Pierrot Pier]";
+				mes "^3131FF<You're someone who can only think about nonsense everyday, you have no focus at all.>^000000";
+				mapannounce "schg_que01", "Pierrot Pier: <You're someone who can only think about nonsense everyday, you have no focus at all.>",bc_map,"0x99CC00";
+				next;
+				emotion e_ho;
+				mes "[Pierrot Pier]";
+				mes "Hm? You don't think so?";
+				mapannounce "schg_que01", "Pierrot Pier: Hm? You don't think so?",bc_map,"0x99CC00";
+				next;
+				emotion e_heh;
+				mes "[Pierrot Pier]";
+				mes "Haha, I'm just kidding. Beep beep.";
+				mes "Ah, you are the one my master speaks of.";
+				mapannounce "schg_que01", "Pierrot Pier: Haha, I'm just kidding. Beep beep. You are the one my master speaks of.",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Come, the Gergath has left a message for you.";
+				mes "It's a bit old, but it should still be legible.";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Alright, let's begin!";
+				setquest 2143;
+				donpcevent "Gergath#sch_gd::OnEnable";
+				close;
+			}
+			else if ((.@que_2143 == 0) || (.@que_2143 == 1)) {
+				mes "[Pierrot Pier]";
+				mes "Let's talk after I finished reading my master's message. Beep beep.";
+				close;
+			}
+			else {
+				mes "[Pierrot Pier]";
+				mes "My master Gergath sincerely wishes you joy for you and your family everyday.";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Alright, would you like to play the game Gergath has prepared for you?";
+				next;
+				switch(select("Game instructions.:Skip instructions.:Refuse game.")) {
+				case 1:
+					mes "[Pierrot Pier]";
+					mes "The game prepared by my master is very unique, yet simple and fun!";
+					mapannounce "schg_que01", "Pierrot Pier: The game prepared by my lord is very unique, yet simple and fun!",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "It's called \"Find the Treasure Map\"!!";
+					mapannounce "schg_que01", "Pierrot Pier: It's called \"Find the Treasure Map\"!!",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Do you see this large and green field? Beep, beep?";
+					mes "I will show you the most incredible magic here.";
+					mes "I will turn this place very white. Veeery white!";
+					mapannounce "schg_que01", "Pierrot Pier: I will turn this place very white. Veeery white!",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "The game instruction is just to find the treasure map within the time limit.";
+					mes "Sounds easy, right?";
+					mapannounce "schg_que01", "Pierrot Pier: The game instruction is just to find the treasure map within the time limit. ounds easy, right?",bc_map,"0x99CC00";
+					next;
+					break;
+				case 2:
+					break;
+				case 3:
+					emotion e_sob;
+					mes "[Pierrot Pier]";
+					mes "Oh, you don't want to play?";
+					close;
+				}
+				mes "[Pierrot Pier]";
+				mes "Okay, I'm ready to begin.";
+				mes "Shall we start? Beep, beep?";
+				next;
+				switch(select("No.:Start.")) {
+				case 1:
+					mes "[Pierrot Pier]";
+					mes "Let me know when you are ready.";
+					close;
+				case 2:
+					mes "[Pierrot Pier]";
+					mes "Alright! Let us begin!";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Ladies, and gentlemen.";
+					mapannounce "schg_que01", "Pierrot Pier: Ladies, and gentlemen.",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Who will find the treasure map in this white world?";
+					mapannounce "schg_que01", "Pierrot Pier: Who will find the treasure map in this white world?",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Amongst all of you, who shall be the lucky one?";
+					mapannounce "schg_que01", "Pierrot Pier: Amongst all of you, who shall be the lucky one?",bc_map,"0x99CC00";
+					next;
+					mes "[Pierrot Pier]";
+					mes "Let the game.. Begin!";
+					mapannounce "schg_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00";
+					set $@gdeventv_s2,1;
+					donpcevent "Controller#gdevent_s::Ongame_start";
+					erasequest 2143;
+					close;
+				}
+			}
+		}
+		else if ($@gdeventv_s2 == 1) {
+			mes "[Pierrot Pier]";
+			mes "Did you find the treasure map?";
+			mes "Show me what you have in your hands! Beep, beep!";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Let me see...";
+			next;
+			if (countitem(6031) > 0) {
+				donpcevent "Controller#gdevent_s::Onstop";
+				set $@gdeventv_s2,3;
+				donpcevent "eff_mvp#sch_gd::Onmvp";
+				mes "[Pierrot Pier]";
+				mes "Wow~~!!";
+				mes "Success~!!";
+				mes "What a success~!!";
+				mapannounce "schg_que01", "Pierrot Pier: Wow~~!! Success~!! What a success~!!",bc_map,"0x99CC00";
+				delitem 6031,1; //Glitering_PaperB
+				close;
+			}
+			else {
+				if (countitem(6030) > 0) {
+					mes "[Pierrot Pier]";
+					mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
+					mes "Quickly! Your time is running out! Hurry up!";
+					close;
+				}
+				else {
+					mes "[Pierrot Pier]";
+					mes "I don't see anything. Have you even started yet? Beep?";
+					mes "Hehe, while you're talking to me, the time is slowly ticking away~";
+					close;
+				}
+			}
+		}
+		else if ($@gdeventv_s2 == 2) {
+			mes "[Pierrot Pier]";
+			mes "Wah, why is it like this~!!";
+			mes "Not enough? But this makes the game fun, no? Hahaha!";
+			next;
+			mes "[Pierrot Pier]";
+			mes "What did you think?";
+			next;
+			switch(select("It was pretty hard.:I should've been successful...")) {
+			case 1:
+				mes "[Pierrot Pier]";
+				mes "It's like trying to find a needle in a haystack!";
+				mes "It's hard, but if you find it, it's worth ten times the effort. Beep, beep.";
+				next;
+				break;
+			case 2:
+				mes "[Pierrot Pier]";
+				mes "Aaah~! Time is gold.";
+				mes "Precious time goes by so fast.";
+				next;
+				break;
+			}
+			mes "[Pierrot Pier]";
+			mes "I, Pierrot Piere, am not a heartless clown! Beep beep.";
+			mapannounce "schg_que01", "Pierrot Pier: I, Pierrot Piere, am not a heartless clown! Beep beep.",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Your success is my happiness!";
+			mes "I'll give you one more chance. How's that? Beep?";
+			mapannounce "schg_que01", "Pierrot Pier: I'll give you one more chance. How's that? Beep?",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Okay, I'm ready to begin.";
+			mes "Shall we start? Beep, beep?";
+			mapannounce "schg_que01", "Pierrot Pier: Okay, I'm ready to begin. Shall we start? Beep, beep?",bc_map,"0x99CC00";
+			next;
+			switch(select("No.:Start.")) {
+			case 1:
+				mes "[Pierrot Pier]";
+				mes "Let me know when you are ready.";
+				close;
+			case 2:
+				mes "[Pierrot Pier]";
+				mes "Alright! Let us begin!";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Ladies, and gentlemen.";
+				mapannounce "schg_que01", "Pierrot Pier: Ladies, and gentlemen.",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Who will find the treasure map in this white world?";
+				mapannounce "schg_que01", "Pierrot Pier: Who will find the treasure map in this white world?",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Amongst all of you, who shall be the lucky one?";
+				mapannounce "schg_que01", "Pierrot Pier: Amongst all of you, who shall be the lucky one?",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Let the game.. Begin!";
+				mapannounce "schg_que01", "Pierrot Pier: Let the game.. Begin!",bc_map,"0x99CC00";
+				set $@gdeventv_s2,10;
+				donpcevent "Controller#gdevent_s::Ongame_start";
+				close;
+			}
+		}
+		else if ($@gdeventv_s2 == 3) {
+			set .@que_2143,checkquest(2143);
+			if (.@que_2143 == 3) {
+				erasequest 2143;
+			}
+			mes "[Pierrot Pier]";
+			mes "How did you do it?";
+			mapannounce "schg_que01", "Pierrot Pier: How did you do it?",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "You managed to find a needle in a haystack!";
+			mes "Amazing!";
+			mapannounce "schg_que01", "Pierrot Pier: You managed to find a needle in a haystack! Amazing!!",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "You've completeled an unbelievable task, I will give you the wonderful gift master has prepared!! Ha!";
+			mapannounce "schg_que01", "Pierrot Pier: You've completeled an unbelievable task, I will give you the wonderful gift my master has prepared!! Ha!",bc_map,"0x99CC00";
+			mapannounce "schg_que01", "Pierrot Pier: Here, take Pierre's Treasure Boxes.",bc_map,"0x99CC00";
+			donpcevent "eff_mvp#sch_gd::Onmvp";
+			set $@gdeventv_s2,5;
+			getitem 14596,10; //Pierre_Treasurebox
+			close;
+		}
+		else if ($@gdeventv_s2 == 4) {
+			mes "[Pierrot Pier]";
+			mes "Incredible! Unbelievable! Beep beep!";
+			close;
+		}
+		else if ($@gdeventv_s2 == 5) {
+			mapannounce "schg_que01", "Pierrot Pier: Seeing your smiles, makes Pierrot feel very happy~ See you next time!",bc_map,"0x99CC00";
+			mes "[Pierrot Pier]";
+			mes "Did you have fun?";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Seeing your smiles, makes Pierrot feel very happy~";
+			next;
+			mes "[Pierrot Pier]";
+			mes "I hope to see you again very soon, I must go back to being a doll now.";
+			mes "See you next time!";
+			erasequest 2144;
+			close;
+		}
+		else {
+			mes "[Pierrot Pier]";
+			mes "Did you find the treasure map?";
+			mes "Show me what you have in your hands! Beep, beep!";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Let me see.";
+			next;
+			if (countitem(6031) > 0) {
+				donpcevent "Controller#gdevent_s::Onstop";
+				set $@gdeventv_s2,3;
+				donpcevent "eff_mvp#sch_gd::Onmvp";
+				mes "[Pierrot Pier]";
+				mes "Wow~~!!";
+				mes "Success~!!";
+				mes "What a success~!!";
+				delitem 6031,1; //Glitering_PaperB
+				close;
+			}
+			else {
+				if (countitem(6030) > 0) {
+					mes "[Pierrot Pier]";
+					mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
+					mes "Quickly! Your time is running out! Hurry up!";
+					close;
+				}
+				else {
+					mes "[Pierrot Pier]";
+					mes "I don't see anything. Have you even started yet? Beep?";
+					mes "Hehe, while you're talking to me, the time is slowly ticking away~";
+					close;
+				}
+			}
+		}
+	}
+	else {
+		if ($@gdeventv_s2 == 0) {
+			setnpcdisplay "Pierrot Pier#sch_gd",715;
+			mes "A lonely clown is juggling.";
+			next;
+			mes "When looked at closely, the clown is just a puppet that looks like a human.";
+			next;
+			mes "The clown stops, then starts moving in accordance to your movements, noises start to emit from it's mouth.";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Beep beep beep.";
+			mes "Hello, my friends!";
+			mapannounce "schg_que01", "Pierrot Pier: Beep beep beep! Hello, my friends!",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "I am the loyal servant of Gergath, and I have finally received my orders.";
+			mes "I am happy to hear all the laughter, but without my master's permission, I can't do anything.";
+			mapannounce "schg_que01", "Pierrot Pier: I am happy to hear all the laughter, but without my master's permission, I can't do anything.",bc_map,"0x99CC00";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Did you get permission from the Gergath?";
+			mapannounce "schg_que01", "Pierrot Pier: Did you get permission from Gergath?",bc_map,"0x99CC00";
+			next;
+			switch(select("I need to check that.:No.")) {
+			case 1:
+				mes "[Pierrot Pier]";
+				mes "Please give me the palm of your hand.";
+				mapannounce "schg_que01", "Pierrot Pier: Please give me the palm of your hand.",bc_map,"0x99CC00";
+				next;
+				mes "[Pierrot Pier]";
+				mes "Let me see...";
+				mapannounce "schg_que01", "Pierrot Pier: Let me see...",bc_map,"0x99CC00";
+				next;
+				emotion e_dots;
+				mes "[Pierrot Pier]";
+				mes "Hm...";
+				mapannounce "schg_que01", "Pierrot Pier: Hm...",bc_map,"0x99CC00";
+				next;
+				emotion e_dots;
+				mes "[Pierrot Pier]";
+				mes "Okay, I see...";
+				mapannounce "schg_que01", "Pierrot Pier: Okay, I see...",bc_map,"0x99CC00";
+				next;
+				emotion e_dots;
+				mes "[Pierrot Pier]";
+				mes "Indeed...";
+				mapannounce "schg_que01", "Pierrot Pier: Indeed...",bc_map,"0x99CC00";
+				next;
+				emotion e_bzz;
+				mes "[Pierrot Pier]";
+				mes "Verification completed!";
+				mapannounce "schg_que01", "Pierrot Pier: Verification completed!",bc_map,"0x99CC00";
+				next;
+				break;
+			case 2:
+				mes "[Pierrot Pier]";
+				mes "Hm? that's right.";
+				mes "When is that person coming? I am very bored~!";
+				close;
+			}
+			emotion 18;
+			mes "[Pierrot Pier]";
+			mes "^3131FF<Although you're a weirdo, you seem to be very dedicated>^000000. Beep beep.";
+			next;
+			emotion e_swt2;
+			mes "[Pierrot Pier]";
+			mes "Hm? You don't think so?";
+			next;
+			mes "[Pierrot Pier]";
+			mes "The one my lord appointed is ^3131FF< someone who leads many people >^000000. Beep.";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Pierrot wants to be someone like that, too. Beep.";
+			close;
+		}
+		else if ($@gdeventv_s2 == 1) {
+			mes "[Pierrot Pier]";
+			mes "Did you find the treasure map?";
+			mes "Show me what you have in your hands! Beep, beep!";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Let me see...";
+			next;
+			if (countitem(6031) > 0) {
+				donpcevent "Controller#gdevent_s::Onstop";
+				set $@gdeventv_s2,3;
+				donpcevent "eff_mvp#sch_gd::Onmvp";
+				mes "[Pierrot Pier]";
+				mes "Wow~~!!";
+				mes "Success~!!";
+				mes "What a success~!!";
+				mapannounce "schg_que01", "Pierrot Pier: Wow~~!! Success~!! What a success~!!",bc_map,"0x99CC00";
+				delitem 6031,1; //Glitering_PaperB
+				close;
+			}
+			else {
+				if (countitem(6030) > 0) {
+					mes "[Pierrot Pier]";
+					mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
+					mes "Quickly! Your time is running out! Hurry up!";
+					close;
+				}
+				else {
+					mes "[Pierrot Pier]";
+					mes "I don't see anything. Have you even started yet? Beep?";
+					mes "Hehe, while you're talking to me, the time is slowly ticking away~";
+					close;
+				}
+			}
+		}
+		else if ($@gdeventv_s2 == 2) {
+			mes "[Pierrot Pier]";
+			mes "Wah, why is it like this~!!";
+			mes "Not enough? But this makes the game fun, no? Hahaha!";
+			close;
+		}
+		else if ($@gdeventv_s2 == 3) {
+			mes "[Pierrot Pier]";
+			mes "Congratulations, you have succeeded!";
+			mes "I will talk to your leader about other details.";
+			close;
+		}
+		else if ($@gdeventv_s2 == 4) {
+			mes "[Pierrot Pier]";
+			mes "Incredible! Unbelievable! Beep beep!";
+			close;
+		}
+		else if ($@gdeventv_s2 == 5) {
+			mes "[Pierrot Pier]";
+			mes "Did you have fun?";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Seeing your smiles, makes Pierrot feel very happy~";
+			next;
+			mes "[Pierrot Pier]";
+			mes "I hope to see you again very soon, I must go back to being a doll now.";
+			mes "See you next time!";
+			close;
+		}
+		else {
+			mes "[Pierrot Pier]";
+			mes "Você encontrou o tesouro?";
+			mes "Mostre-me o que você tem nas mãos agora.";
+			next;
+			mes "[Pierrot Pier]";
+			mes "Deixe-me ver...";
+			next;
+			if (countitem(6031) > 0) {
+				donpcevent "Controller#gdevent_s::Onstop";
+				set $@gdeventv_s2,3;
+				donpcevent "eff_mvp#sch_gd::Onmvp";
+				mes "[Pierrot Pier]";
+				mes "Wow~~!!";
+				mes "Success~!!";
+				mes "What a success~!!";
+				delitem 6031,1; //Glitering_PaperB
+				close;
+			}
+			else {
+				if (countitem(6030) > 0) {
+					mes "[Pierrot Pier]";
+					mes "Ahh, what a shame, it seems like you haven't found the treasure map yet.";
+					mes "Quickly! Your time is running out! Hurry up!";
+					close;
+				}
+				else {
+					mes "[Pierrot Pier]";
+					mes "I don't see anything. Have you even started yet? Beep?";
+					mes "Hehe, while you're talking to me, the time is slowly ticking away~";
+					close;
+				}
+			}
+		}
+	}
+}
+
+schg_que01,10,10,3	script	Controller#gdevent_s	81,{
+OnInit:
+	set $@gdeventv_s2,0;
+	end;
+
+Onwin:
+	donpcevent "treg#sch_gd::OnEnable";
+	end;
+
+Ongame_start:
+	initnpctimer;
+	donpcevent "paper_sp_1_s::OnEnable";
+	donpcevent "paper_sp_2_s::OnEnable";
+	donpcevent "paper_sp_3_s::OnEnable";
+	donpcevent "paper_sp_4_s::OnEnable";
+	donpcevent "paper_sp_5_s::OnEnable";
+	donpcevent "paper_sp_6_s::OnEnable";
+	donpcevent "paper_sp_7_s::OnEnable";
+	donpcevent "paper_sp_8_s::OnEnable";
+	donpcevent "paper_sp_9_s::OnEnable";
+	set .@roulette_where,rand(1,9);
+	if (.@roulette_where == 1) {
+		donpcevent "paper_sp_1_s::Onbingo";
+	}
+	else if (.@roulette_where == 2) {
+		donpcevent "paper_sp_2_s::Onbingo";
+	}
+	else if (.@roulette_where == 3) {
+		donpcevent "paper_sp_3_s::Onbingo";
+	}
+	else if (.@roulette_where == 4) {
+		donpcevent "paper_sp_4_s::Onbingo";
+	}
+	else if (.@roulette_where == 5) {
+		donpcevent "paper_sp_5_s::Onbingo";
+	}
+	else if (.@roulette_where == 6) {
+		donpcevent "paper_sp_6_s::Onbingo";
+	}
+	else if (.@roulette_where == 7) {
+		donpcevent "paper_sp_7_s::Onbingo";
+	}
+	else if (.@roulette_where == 8) {
+		donpcevent "paper_sp_8_s::Onbingo";
+	}
+	else {
+		donpcevent "paper_sp_9_s::Onbingo";
+	}
+	end;
+
+Onstop:
+	stopnpctimer;
+	end;
+
+OnTimer40000:
+	mapannounce "schg_que01", "Pierrot Pier: Time is running out, hurry up!",bc_map,"0x99CC00";
+	end;
+
+OnTimer60000:
+	mapannounce "schg_que01", "Pierrot Pier: Time is up!",bc_map,"0x99CC00";
+	mapwarp "schg_que01","schg_que01",100,79;
+	enablenpc "removepp_sch_gd";
+	set $@gdeventv_s2,2;
+	end;
+
+OnTimer63000:
+	stopnpctimer;
+	end;
+}
+
+schg_que01,87,93,0	script	paper_sp_1_s	139,{
+	end;
+
+OnEnable:
+	set .@paper_while1,0;
+	while(1) {
+		if (.@paper_while1 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while1,.@paper_while1+1;
+			set .@paper_x1,rand(81,95);
+			set .@paper_y1,rand(87,100);
+			makeitem 6030,1,"schg_que01",.@paper_x1,.@paper_y1; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x1,rand(81,95);
+	set .@paper_y1,rand(87,100);
+	makeitem 6031,1,"schg_que01",.@paper_x1,.@paper_y1; //Glitering_PaperB
+	end;
+}
+
+schg_que01,102,93,0	script	paper_sp_2_s	139,{
+	end;
+
+OnEnable:
+	set .@paper_while2,0;
+	while(1) {
+		if (.@paper_while2 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while2,.@paper_while2+1;
+			set .@paper_x2,rand(96,110);
+			set .@paper_y2,rand(87,100);
+			makeitem 6030,1,"schg_que01",.@paper_x2,.@paper_y2; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x2,rand(96,110);
+	set .@paper_y2,rand(87,100);
+	makeitem 6031,1,"schg_que01",.@paper_x2,.@paper_y2; //Glitering_PaperB
+	end;
+}
+
+schg_que01,117,93,0	script	paper_sp_3_s	139,{
+	end;
+
+OnEnable:
+	set .@paper_while3,0;
+	while(1) {
+		if (.@paper_while3 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while3,.@paper_while3+1;
+			set .@paper_x3,rand(111,124);
+			set .@paper_y3,rand(87,100);
+			makeitem 6030,1,"schg_que01",.@paper_x3,.@paper_y3; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x3,rand(111,124);
+	set .@paper_y3,rand(87,100);
+	makeitem 6031,1,"schg_que01",.@paper_x3,.@paper_y3; //Glitering_PaperB
+	end;
+}
+
+schg_que01,87,80,0	script	paper_sp_4_s	139,{
+	end;
+
+OnEnable:
+	set .@paper_while4,0;
+	while(1) {
+		if (.@paper_while4 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while4,.@paper_while4+1;
+			set .@paper_x4,rand(81,95);
+			set .@paper_y4,rand(73,86);
+			makeitem 6030,1,"schg_que01",.@paper_x4,.@paper_y4; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x4,rand(81,95);
+	set .@paper_y4,rand(73,86);
+	makeitem 6031,1,"schg_que01",.@paper_x4,.@paper_y4; //Glitering_PaperB
+	end;
+}
+
+schg_que01,102,80,0	script	paper_sp_5_s	139,{
+	end;
+
+OnEnable:
+	set .@paper_while5,0;
+	while(1) {
+		if (.@paper_while5 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while5,.@paper_while5+1;
+			set .@paper_x5,rand(96,110);
+			set .@paper_y5,rand(73,86);
+			makeitem 6030,1,"schg_que01",.@paper_x5,.@paper_y5; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x5,rand(96,110);
+	set .@paper_y5,rand(73,86);
+	makeitem 6031,1,"schg_que01",.@paper_x5,.@paper_y5; //Glitering_PaperB
+	end;
+}
+
+schg_que01,117,80,0	script	paper_sp_6_s	139,{
+	end;
+
+OnEnable:
+	set .@paper_while6,0;
+	while(1) {
+		if (.@paper_while6 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while6,.@paper_while6+1;
+			set .@paper_x6,rand(111,124);
+			set .@paper_y6,rand(73,86);
+			makeitem 6030,1,"schg_que01",.@paper_x6,.@paper_y6; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x6,rand(111,124);
+	set .@paper_y6,rand(73,86);
+	makeitem 6031,1,"schg_que01",.@paper_x6,.@paper_y6; //Glitering_PaperB
+	end;
+}
+
+schg_que01,87,65,0	script	paper_sp_7_s	139,{
+	end;
+
+OnEnable:
+	set .@paper_while7,0;
+	while(1) {
+		if (.@paper_while7 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while7,.@paper_while7+1;
+			set .@paper_x7,rand(81,95);
+			set .@paper_y7,rand(59,72);
+			makeitem 6030,1,"schg_que01",.@paper_x7,.@paper_y7; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x7,rand(81,95);
+	set .@paper_y7,rand(59,72);
+	makeitem 6031,1,"schg_que01",.@paper_x7,.@paper_y7; //Glitering_PaperB
+	end;
+}
+
+schg_que01,102,65,0	script	paper_sp_8_s	139,{
+	end;
+
+OnEnable:
+	set .@paper_while8,0;
+	while(1) {
+		if (.@paper_while8 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while8,.@paper_while8+1;
+			set .@paper_x8,rand(96,110);
+			set .@paper_y8,rand(59,72);
+			makeitem 6030,1,"schg_que01",.@paper_x8,.@paper_y8; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x8,rand(96,110);
+	set .@paper_y8,rand(59,72);
+	makeitem 6031,1,"schg_que01",.@paper_x8,.@paper_y8; //Glitering_PaperB
+	end;
+}
+
+schg_que01,117,65,0	script	paper_sp_9_s	139,{
+	end;
+
+OnEnable:
+	set .@paper_while9,0;
+	while(1) {
+		if (.@paper_while9 == 100) {
+			break;
+		}
+		else {
+			set .@paper_while9,.@paper_while9+1;
+			set .@paper_x9,rand(111,124);
+			set .@paper_y9,rand(59,72);
+			makeitem 6030,1,"schg_que01",.@paper_x9,.@paper_y9; //Glitering_PaperA
+		}
+	}
+	end;
+
+Onmvp:
+	specialeffect EF_MVP;
+	end;
+
+Onbingo:
+	set .@paper_x9,rand(111,124);
+	set .@paper_y9,rand(59,72);
+	makeitem 6031,1,"schg_que01",.@paper_x9,.@paper_y9; //Glitering_PaperB
+	end;
+}
+
+schg_que01,100,80,0	script	removepp_sch_gd	-1,5,5,{
+	end;
+
+OnInit:
+	disablenpc "removepp_sch_gd";
+	end;
+
+OnTouch2:
+	set .@paper_sch_gd,countitem(6030);
+	set .@spaper_sch_gd,countitem(6031);
+	if ((.@paper_sch_gd > 0) || (.@spaper_sch_gd > 0)) {
+		delitem 6030,.@paper_sch_gd; //Glitering_PaperA
+		delitem 6031,.@spaper_sch_gd; //Glitering_PaperB
+	}
+	end;
+}
+
+schg_que01,6,6,1	script	eff_mvp#sch_gd	844,{
+	end;
+
+Onmvp:
+	initnpctimer;
+	end;
+
+OnTimer1000:
+	donpcevent "paper_sp_1_s::Onmvp";
+	donpcevent "paper_sp_3_s::Onmvp";
+	donpcevent "paper_sp_5_s::Onmvp";
+	donpcevent "paper_sp_7_s::Onmvp";
+	donpcevent "paper_sp_9_s::Onmvp";
+	end;
+
+OnTimer2000:
+	donpcevent "paper_sp_2_s::Onmvp";
+	donpcevent "paper_sp_4_s::Onmvp";
+	donpcevent "paper_sp_6_s::Onmvp";
+	donpcevent "paper_sp_8_s::Onmvp";
+	end;
+
+OnTimer3000:
+	donpcevent "paper_sp_1_s::Onmvp";
+	donpcevent "paper_sp_3_s::Onmvp";
+	donpcevent "paper_sp_5_s::Onmvp";
+	donpcevent "paper_sp_7_s::Onmvp";
+	donpcevent "paper_sp_9_s::Onmvp";
+	end;
+
+OnTimer4000:
+	donpcevent "paper_sp_2_s::Onmvp";
+	donpcevent "paper_sp_4_s::Onmvp";
+	donpcevent "paper_sp_6_s::Onmvp";
+	donpcevent "paper_sp_8_s::Onmvp";
+	stopnpctimer;
+	end;
+}
+
+schg_que01,100,75,5	script	Gergath#sch_gd	412,{
+	end;
+
+OnInit:
+	disablenpc "Gergath#sch_gd";
+	end;
+
+OnEnable:
+	enablenpc "Gergath#sch_gd";
+	specialeffect EF_FORESTLIGHT;
+	initnpctimer;
+	end;
+
+OnTimer5000:
+	mapannounce "schg_que01", "Gergath : My dear friend, how have you been? This is something I prepared for you.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer10000:
+	mapannounce "schg_que01", "Gergath : Do you still remember when we were young? We fought everyday like we were sworn enemies.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer15000:
+	mapannounce "schg_que01", "Gergath : No matter how hard the adults tried, we had no intentions to change. Haha.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer20000:
+	mapannounce "schg_que01", "Gergath : But I believe that deep inside, we valued our friendship with each other.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer25000:
+	mapannounce "schg_que01", "Gergath : After I lost my mother's remnants in Mt. Mjolnir, you came to find me.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer30000:
+	mapannounce "schg_que01", "Gergath : When you, handed me my mother's remnants, I couldn't even say thank you.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer35000:
+	mapannounce "schg_que01", "Gergath : I couldn't say it even as I became an old man.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer40000:
+	mapannounce "schg_que01", "Gergath : I found out about your whereabouts not long ago. I heard you were taking care of orphaned children?",bc_map,"0xFFFF00";
+	end;
+
+OnTimer45000:
+	mapannounce "schg_que01", "Gergath : Please accept this as a gift from a useless friend to you and your beloved children. I hope you will like it, haha.",bc_map,"0xFFFF00";
+	end;
+
+OnTimer50000:
+	mapannounce "schg_que01", "Gergath : Pierrot Pier will help you. I hope you can use this chance to return to the past and enjoy yourself with your children.",bc_map,"0xFFFF00";
+	disablenpc "Gergath#sch_gd";
+	stopnpctimer;
+	end;
+}
+
+schg_que01,104,140,0	warp	back#sch_gd	1,1,schg_dun01,199,192
+
+/*
+schg_que01,104,140,1	script	treg#sch_gd	844,{
+	end;
+
+OnEnable:
+	monster "schg_que01",87,93,"Poporing",1031,1,"treg#sch_gd::OnMyMobDead";
+	monster "schg_que01",102,93,"Poporing",1031,1,"treg#sch_gd::OnMyMobDead";
+	monster "schg_que01",117,93,"Poporing",1031,1,"treg#sch_gd::OnMyMobDead";
+	monster "schg_que01",87,80,"Poporing",1031,1,"treg#sch_gd::OnMyMobDead";
+	monster "schg_que01",102,80,"Poporing",1031,1,"treg#sch_gd::OnMyMobDead";
+	monster "schg_que01",117,80,"Poporing",1031,1,"treg#sch_gd::OnMyMobDead";
+	monster "schg_que01",87,65,"Poporing",1031,1,"treg#sch_gd::OnMyMobDead";
+	monster "schg_que01",102,65,"Poporing",1031,1,"treg#sch_gd::OnMyMobDead";
+	monster "schg_que01",117,65,"Poporing",1031,1,"treg#sch_gd::OnMyMobDead";
+	end;
+
+OnMyMobDead:
+	if (mobcount("schg_que01","treg#sch_gd::OnMyMobDead") == 0) {
+		mapannounce "schg_que01", "Pierrot Pier: Beep! Oh, you already opened the gift? You sure are fast now, beep!",bc_map,"0x99CC00";
+		set $@gdeventv_s2,5;
+	}
+	end;
+}
+*/
+
+schg_que01,98,105,3	script	#sch_flower_01::GD_Ev_Flower2	978,{
+	end;
+}
+
+schg_que01,94,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_02	977
+schg_que01,90,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_03	978
+schg_que01,86,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_04	977
+schg_que01,82,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_05	978
+schg_que01,79,103,3	duplicate(GD_Ev_Flower2)	#sch_flower_06	977
+schg_que01,79,100,3	duplicate(GD_Ev_Flower2)	#sch_flower_07	978
+schg_que01,79,97,3	duplicate(GD_Ev_Flower2)	#sch_flower_08	977
+schg_que01,79,97,3	duplicate(GD_Ev_Flower2)	#sch_flower_09	978
+schg_que01,79,94,3	duplicate(GD_Ev_Flower2)	#sch_flower_10	977
+schg_que01,79,91,3	duplicate(GD_Ev_Flower2)	#sch_flower_11	978
+schg_que01,79,88,3	duplicate(GD_Ev_Flower2)	#sch_flower_12	977
+schg_que01,79,85,3	duplicate(GD_Ev_Flower2)	#sch_flower_13	978
+schg_que01,79,82,3	duplicate(GD_Ev_Flower2)	#sch_flower_14	977
+schg_que01,79,79,3	duplicate(GD_Ev_Flower2)	#sch_flower_15	978
+schg_que01,79,76,3	duplicate(GD_Ev_Flower2)	#sch_flower_16	977
+schg_que01,79,73,3	duplicate(GD_Ev_Flower2)	#sch_flower_17	978
+schg_que01,79,70,3	duplicate(GD_Ev_Flower2)	#sch_flower_18	977
+schg_que01,79,67,3	duplicate(GD_Ev_Flower2)	#sch_flower_19	978
+schg_que01,79,64,3	duplicate(GD_Ev_Flower2)	#sch_flower_20	977
+schg_que01,79,61,3	duplicate(GD_Ev_Flower2)	#sch_flower_21	978
+schg_que01,79,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_22	977
+schg_que01,84,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_23	978
+schg_que01,89,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_24	977
+schg_que01,94,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_25	978
+schg_que01,99,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_26	977
+schg_que01,104,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_27	978
+schg_que01,109,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_28	977
+schg_que01,114,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_29	978
+schg_que01,119,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_30	977
+schg_que01,124,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_31	978
+schg_que01,129,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_32	977
+schg_que01,129,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_33	978
+schg_que01,129,103,3	duplicate(GD_Ev_Flower2)	#sch_flower_34	977
+schg_que01,129,100,3	duplicate(GD_Ev_Flower2)	#sch_flower_35	978
+schg_que01,129,97,3	duplicate(GD_Ev_Flower2)	#sch_flower_36	977
+schg_que01,129,97,3	duplicate(GD_Ev_Flower2)	#sch_flower_37	978
+schg_que01,129,94,3	duplicate(GD_Ev_Flower2)	#sch_flower_38	977
+schg_que01,129,91,3	duplicate(GD_Ev_Flower2)	#sch_flower_39	978
+schg_que01,129,88,3	duplicate(GD_Ev_Flower2)	#sch_flower_40	977
+schg_que01,129,85,3	duplicate(GD_Ev_Flower2)	#sch_flower_41	978
+schg_que01,129,82,3	duplicate(GD_Ev_Flower2)	#sch_flower_42	977
+schg_que01,129,79,3	duplicate(GD_Ev_Flower2)	#sch_flower_43	978
+schg_que01,129,76,3	duplicate(GD_Ev_Flower2)	#sch_flower_44	977
+schg_que01,129,73,3	duplicate(GD_Ev_Flower2)	#sch_flower_45	978
+schg_que01,129,70,3	duplicate(GD_Ev_Flower2)	#sch_flower_46	977
+schg_que01,129,67,3	duplicate(GD_Ev_Flower2)	#sch_flower_47	978
+schg_que01,129,64,3	duplicate(GD_Ev_Flower2)	#sch_flower_48	977
+schg_que01,129,61,3	duplicate(GD_Ev_Flower2)	#sch_flower_49	978
+schg_que01,129,58,3	duplicate(GD_Ev_Flower2)	#sch_flower_50	977
+schg_que01,124,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_51	978
+schg_que01,119,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_52	977
+schg_que01,114,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_53	978
+schg_que01,109,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_54	977
+schg_que01,104,105,3	duplicate(GD_Ev_Flower2)	#sch_flower_55	976
+
+/*
+schg_dun01,5,5,1	script	Event controller#sch_gd	81,{
+	input .@input; //,0,9999;
+	if (input == 1854) {
+		mes "How can I help you?";
+		next;
+		switch(select("Reset.:No, thanks.")) {
+		case 1:
+			mes "Completed.";
+			donpcevent "Monster Controler1#sch::OnControler1#sch_gd";
+			donpcevent "Monster Controler1#sch::OnControler1#sch_gd";
+			disablenpc "Dwarf#sch_gd";
+			set $@gdeventv_s1,0;
+			set $@gdeventv_s2,0;
+			set $@gdevents_s$,"";
+			close;
+		case 2:
+			mes "Good bye~";
+			close;
+		}
+	}
+	else {
+		mes "Incorrect password.";
+		close;
+	}
+}
+*/
diff --git a/npc/instances/OrcsMemory.txt b/npc/instances/OrcsMemory.txt
index c16ed912a..acbfdad49 100644
--- a/npc/instances/OrcsMemory.txt
+++ b/npc/instances/OrcsMemory.txt
@@ -133,7 +133,7 @@ gef_fild10,242,202,0	script	Dimensional Gorge Piece	406,{
 					//else if (move_md == 0) {
 					else {
 						mapannounce "gef_fild10", .@p_reader$ + " of the party, " + .@p_name$ + " is entering the " + .@md_name$ + ".",bc_map,"0x00ff99";
-						warp	"1@orcs",179,15;
+						warp "1@orcs",179,15;
 						setquest 12059;
 						close;
 					}
diff --git a/npc/instances/SealedShrine.txt b/npc/instances/SealedShrine.txt
index 56087aa5d..152a87723 100644
--- a/npc/instances/SealedShrine.txt
+++ b/npc/instances/SealedShrine.txt
@@ -3,7 +3,7 @@
 //===== By: ================================================== 
 //= L0ne_W0lf
 //===== Current Version: ===================================== 
-//= 1.0
+//= 1.1
 //===== Compatible With: ===================================== 
 //= eAthena SVN
 //===== Description: ========================================= 
@@ -11,6 +11,7 @@
 //= Seal away the Great Demon Baphomet.
 //===== Additional Comments: ================================= 
 //= 1.0 First version. [L0ne_W0lf]
+//= 1.1 Added setquest for instance cooldown. [L0ne_W0lf]
 //============================================================ 
 
 // Sealed Catacomb Entrance
@@ -289,7 +290,6 @@ monk_test,306,151,3	script	Grave of Baphomet#edq	111,{
 			mes "It seems you have entered this grave recently... You cannot enter because Baphomet's Curse still remains. Baphomet's Curse disappears only after a certain amount of time has passed.";
 			close;
 		}
-
 		if (.@ins_bapho_check == -1) {
 			if (has_instance("1@cata") == "") {
 				mes "It's cold to the touch. But, there is no response.";
@@ -307,6 +307,7 @@ monk_test,306,151,3	script	Grave of Baphomet#edq	111,{
 			//else if (ret == 0) {
 			else {
 				mapannounce "monk_test","[" + strcharinfo(0) + "] member of [" + getpartyname(.@party_id) + "] party enters the Sealed catacombs.",bc_map,"0x00ff99";
+				setquest 3040;
 				warp "1@cata",100,224;
 				close;
 			}
diff --git a/npc/quests/quests_13_2.txt b/npc/quests/quests_13_2.txt
new file mode 100644
index 000000000..bbeb3ce2f
--- /dev/null
+++ b/npc/quests/quests_13_2.txt
@@ -0,0 +1,3871 @@
+//===== eAthena Script =======================================
+//= Collection of episode 13.2 quests.
+//===== By: ==================================================
+//= L0ne_W0lf
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= [Aegis Conversaion]
+//= Cat Hand Addition. (Leads to 13.2 areas)
+//= Otherworld language
+//===== Additional Comments: =================================
+//= 1.0 First version
+//============================================================ 
+
+// Cat Hand Addition. (Leads to 13.2 areas)
+//============================================================ 
+spl_fild02,25,211,4	script	Cat Hand Agent#spl	421,{
+	if (ep13_yong1 < 3) {
+		mes "[Cat Hand Agent]";
+		mes "Welcome to Cat Trading.";
+		mes "I guess you're a first-time customer, huh?";
+		next;
+		mes "[Cat Hand Agent]";
+		mes "For more details about our contract, you need to talk to our staff first.";
+		close;
+	}
+	else if ((ep13_yong1 > 2) && (ep13_yong1 < 20)) {
+		mes "[Cat Hand Agent]";
+		mes "Cat Trading's available services are as followed.";
+		mes "For additional services, please consult Agent Gyaruk.";
+		next;
+		switch(select("Save your location:Cancel")) {
+		case 1:
+			savepoint "spl_fild02",32,225;
+			mes "[Cat Hand Agent]";
+			mes "Thank you.";
+			mes "Your location has been saved.";
+			mes "You can now directly return to this camp.";
+			close;
+		case 2:
+			mes "[Cat Hand Agent]";
+			mes "Thank you for using our service.";
+			close;
+		}
+	}
+	else if ((ep13_yong1 > 19) && (ep13_yong1 < 40)) {
+		mes "[Cat Hand Agent]";
+		mes "Cat Trading's available services are as followed.";
+		mes "For additional services, please consult Agent Gyaruk.";
+		next;
+		switch(select("Save your location:Use Storage:Cancel")) {
+		case 1:
+			savepoint "spl_fild02",32,225;
+			mes "[Cat Hand Agent]";
+			mes "Thank you.";
+			mes "Your location has been saved.";
+			mes "You can now directly return to this camp.";
+			close;
+		case 2:
+			if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you";
+				mes "need the Novice's";
+				mes "Basic Skill Level 6 to";
+				mes "use the Storage Service.";
+				close;
+			}
+			else if (Zeny >= 60) {
+				set zeny,zeny-60;
+				mes "[Cat Hand Agent]";
+				mes "Thank you.";
+				mes "Your storage will be opened shortly.";
+				close2;
+				openstorage;
+				end;
+			}
+			else {
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you don't";
+				mes "have enough money?";
+				mes "Cat Trading's storage";
+				mes "service is 60 zeny.";
+				mes "It's cheap, isn't it?";
+				close;
+			}
+		case 3:
+			mes "[Cat Hand Agent]";
+			mes "Thank you for using our service.";
+			close;
+		}
+	}
+	else if ((ep13_yong1 > 39) && (ep13_yong1 < 100)) {
+		mes "[Cat Hand Agent]";
+		mes "Cat Trading's available services are as followed.";
+		mes "For additional services, please consult Agent Gyaruk.";
+		next;
+		switch(select("Save your location:Use Storage:Use Cat Warp (Midgard):Cancel")) {
+		case 1:
+			savepoint "spl_fild02",32,225;
+			mes "[Cat Hand Agent]";
+			mes "Thank you.";
+			mes "Your location has been saved.";
+			mes "You can now directly return to this camp.";
+			close;
+		case 2:
+			if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you";
+				mes "need the Novice's";
+				mes "Basic Skill Level 6 to";
+				mes "use the Storage Service.";
+				close;
+			}
+			else if (Zeny >= 60) {
+				set zeny,zeny-60;
+				mes "[Cat Hand Agent]";
+				mes "Thank you.";
+				mes "Your storage will be opened shortly.";
+				close2;
+				openstorage;
+				end;
+			}
+			else {
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you don't";
+				mes "have enough money?";
+				mes "Cat Trading's storage";
+				mes "service is 60 zeny.";
+				mes "It's cheap, isn't it?";
+				close;
+			}
+		case 3:
+			// Custom Translation.
+			mes "[Cat Hand Agent]";
+			mes "With " + ep13_yong1 + " credit points, we offer the following warp services. Please remember, you can't come back easily once you move to Midgard.";
+			next;
+			if ((ep13_yong1 > 39) && (ep13_yong1 < 49)) {
+				switch(select("Prontera -> 5500z:Cancel")) {
+				case 1:
+					if (Zeny >= 5500) {
+						set zeny,zeny-5500;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 49) && (ep13_yong1 < 59)) {
+				switch(select("Alberta -> 5500z:Prontera -> 5500z:Cancel")) {
+				case 1:
+					if (Zeny >= 5500) {
+						set zeny,zeny-5500;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 5500) {
+						set zeny,zeny-5500;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 59) && (ep13_yong1 < 69)) {
+				switch(select("Alberta -> 5025z:Prontera -> 5025z:Izlude -> 5025z:Cancel")) {
+				case 1:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 69) && (ep13_yong1 < 79)) {
+				switch(select("Alberta -> 5025z:Prontera -> 5025z:Izlude -> 5025z:Geffen -> 5025z:Cancel")) {
+				case 1:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 79) && (ep13_yong1 < 89)) {
+				switch(select("Alberta -> 4765z:Prontera -> 4765z:Izlude -> 4765z:Geffen -> 4765z:Payon -> 4765z:Cancel")) {
+				case 1:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 89) && (ep13_yong1 < 99)) {
+				switch(select("Alberta -> 4765z:Prontera -> 4765z:Izlude -> 4765z:Geffen -> 4765z:Payon -> 4765z:Morroc -> 4765z:Cancel")) {
+				case 1:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					close;
+				}
+			}
+			else if (ep13_yong1 > 99) {
+				switch(select("Alberta -> 4590z:Prontera -> 4590z:Izlude -> 4590z:Geffen -> 4590z:Payon -> 4590z:Morroc -> 4590z:Al De Baran -> 4590z:Cancel")) {
+				case 1:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					close;
+				}
+			}
+			else {
+				// Custom Translation.
+				mes "[Cat Hand Agent]";
+				mes "I am sorry, but you don't have enough credit points to use the warp service. Please come back when you have more points.";
+				close;
+			}
+		case 4:
+			mes "[Cat Hand Agent]";
+			mes "Thank you for using our service.";
+			close;
+		}
+	}
+	else if (ep13_yong1 > 99) {
+		mes "[Cat Hand Agent]";
+		mes "Cat Trading's available services are as followed.";
+		mes "For additional services, please consult Agent Gyaruk.";
+		next;
+		switch(select("Save your location:Use Storage:Use Cat Warp (Midgard):Use Cat Warp (Jottunheim):Cancel")) {
+		case 1:
+			savepoint "spl_fild02",32,225;
+			mes "[Cat Hand Agent]";
+			mes "Thank you.";
+			mes "Your location has been saved.";
+			mes "You can now directly return to this camp.";
+			close;
+		case 2:
+			if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you";
+				mes "need the Novice's";
+				mes "Basic Skill Level 6 to";
+				mes "use the Storage Service.";
+				close;
+			}
+			else if (Zeny >= 60) {
+				set zeny,zeny-60;
+				mes "[Cat Hand Agent]";
+				mes "Thank you.";
+				mes "Your storage will be opened shortly.";
+				close2;
+				openstorage;
+				end;
+			}
+			else {
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you don't";
+				mes "have enough money?";
+				mes "Cat Trading's storage";
+				mes "service is 60 zeny.";
+				mes "It's cheap, isn't it?";
+				close;
+			}
+		case 3:
+			// Custom Translation.
+			mes "[Cat Hand Agent]";
+			mes "With " + ep13_yong1 + " credit points, we offer the following warp services. Please remember, you can't come back easily once you move to Midgard.";
+			next;
+			if ((ep13_yong1 > 99) && (ep13_yong1 < 200)) {
+				switch(select("Alberta -> 4590z:Prontera -> 4590z:Izlude -> 4590z:Geffen -> 4590z:Payon -> 4590z:Morroc -> 4590z:Al De Baran -> 4590z:Cancel")) {
+				case 1:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 199) && (ep13_yong1 < 250)) {
+				switch(select("Alberta -> 4170z:Prontera -> 4170z:Izlude -> 4170z:Geffen -> 4170z:Payon -> 4170z:Morroc -> 4170z:Al De Baran -> 4170z:Juno -> 4170z:Cancel")) {
+				case 1:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "yuno",158,125;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 9:
+					close;
+				}
+				close;
+			}
+			else if ((ep13_yong1 > 249) && (ep13_yong1 < 300)) {
+				switch(select("Alberta -> 4025z:Prontera -> 4025z:Izlude -> 4025z:Geffen -> 4025z:Payon -> 4025z:Morroc -> 4025z:Al De Baran -> 4025z:Juno -> 4025z:Einbroch -> 4025z:Cancel")) {
+				case 1:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "yuno",158,125;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 9:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "einbroch",158,301;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 10:
+					close;
+				}
+				close;
+			}
+			else if (ep13_yong1 > 299) {
+				switch(select("Alberta -> 3970z:Prontera -> 3970z:Izlude -> 3970z:Geffen -> 3970z:Payon -> 3970z:Morroc -> 3970z:Al De Baran -> 3970z:Juno -> 3970z:Einbroch -> 3970z:Lighthalzen -> 3970z:Cancel")) {
+				case 1:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "yuno",158,125;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 9:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "einbroch",158,301;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 10:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "lighthalzen",163,64;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 11:
+					close;
+				}
+				close;
+			}
+			else {
+				// Custom Translation
+				mes "[Cat Hand Agent]";
+				mes "I am sorry, but you don't have enough credit points to use the warp service. Please come back when you have more points.";
+				close;
+			}
+		case 4:
+			switch(select("Alliance Forces Post -> 5500z:Manuk Camp -> 7500z:Cancel")) {
+			case 1:
+				if (Zeny >= 5500) {
+					set zeny,zeny-5500;
+					warp "mid_camp",62,127;
+					close;
+				}
+				else {
+					mes "[Cat Hand Agent]";
+					mes "Don't play with money.";
+					close;
+				}
+			case 2:
+				if (Zeny >= 7500) {
+					set zeny,zeny-7500;
+					warp "man_fild02",129,61;
+					close;
+				}
+				else {
+					mes "[Cat Hand Agent]";
+					mes "Don't play with money.";
+					close;
+				}
+			case 3:
+				mes "[Cat Hand Agent]";
+				mes "Thank you for using our service.";
+				close;
+			}
+		case 5:
+			mes "[Cat Hand Agent]";
+			mes "Thank you for using our service.";
+			close;
+		}
+	}
+	else {
+		mes "[Cat Hand Agent]";
+		mes "... ... ... ...";
+		mes "Please give me some Piece of Fish.";
+		close;
+	}
+}
+
+man_fild02,132,47,4	script	Cat Hand Agent#man	421,{
+	if (ep13_yong1 < 3) {
+		mes "[Cat Hand Agent]";
+		mes "Welcome to Cat Trading.";
+		mes "I guess you're a first-time customer, huh?";
+		next;
+		mes "[Cat Hand Agent]";
+		mes "For more details about our contract, you need to talk to our staff first.";
+		close;
+	}
+	else if ((ep13_yong1 > 2) && (ep13_yong1 < 20)) {
+		mes "[Cat Hand Agent]";
+		mes "Cat Trading's available services are as followed.";
+		mes "For additional services, please consult Agent Gyaruk.";
+		next;
+		switch(select("Save your location:Cancel")) {
+		case 1:
+			savepoint "man_fild02",129,61;
+			mes "[Cat Hand Agent]";
+			mes "Thank you.";
+			mes "Your location has been saved.";
+			mes "You can now directly return to this camp.";
+			close;
+		case 2:
+			mes "[Cat Hand Agent]";
+			mes "Thank you for using our service.";
+			close;
+		}
+	}
+	else if ((ep13_yong1 > 19) && (ep13_yong1 < 40)) {
+		mes "[Cat Hand Agent]";
+		mes "Cat Trading's available services are as followed.";
+		mes "For additional services, please consult Agent Gyaruk.";
+		next;
+		switch(select("Save your location:Use Storage:Cancel")) {
+		case 1:
+			savepoint "man_fild02",129,61;
+			mes "[Cat Hand Agent]";
+			mes "Thank you.";
+			mes "Your location has been saved.";
+			mes "You can now directly return to this camp.";
+			close;
+		case 2:
+			if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you";
+				mes "need the Novice's";
+				mes "Basic Skill Level 6 to";
+				mes "use the Storage Service.";
+				close;
+			}
+			else if (Zeny >= 60) {
+				set zeny,zeny-60;
+				mes "[Cat Hand Agent]";
+				mes "Thank you.";
+				mes "Your storage will be opened shortly.";
+				close2;
+				openstorage;
+				end;
+			}
+			else {
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you don't";
+				mes "have enough money?";
+				mes "Cat Trading's storage";
+				mes "service is 60 zeny.";
+				mes "It's cheap, isn't it?";
+				close;
+			}
+		case 3:
+			mes "[Cat Hand Agent]";
+			mes "Thank you for using our service.";
+			close;
+		}
+	}
+	else if ((ep13_yong1 > 39) && (ep13_yong1 < 100)) {
+		mes "[Cat Hand Agent]";
+		mes "Cat Trading's available services are as followed.";
+		mes "For additional services, please consult Agent Gyaruk.";
+		next;
+		switch(select("Save your location:Use Storage:Use Cat Warp (Midgard):Cancel")) {
+		case 1:
+			savepoint "man_fild02",129,61;
+			mes "[Cat Hand Agent]";
+			mes "Thank you.";
+			mes "Your location has been saved.";
+			mes "You can now directly return to this camp.";
+			close;
+		case 2:
+			if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you";
+				mes "need the Novice's";
+				mes "Basic Skill Level 6 to";
+				mes "use the Storage Service.";
+				close;
+			}
+			else if (Zeny >= 60) {
+				set zeny,zeny-60;
+				mes "[Cat Hand Agent]";
+				mes "Thank you.";
+				mes "Your storage will be opened shortly.";
+				close2;
+				openstorage;
+				end;
+			}
+			else {
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you don't";
+				mes "have enough money?";
+				mes "Cat Trading's storage";
+				mes "service is 60 zeny.";
+				mes "It's cheap, isn't it?";
+				close;
+			}
+		case 3:
+			// Custom Translation.
+			mes "[Cat Hand Agent]";
+			mes "With " + ep13_yong1 + " credit points, we offer the following warp services. Please remember, you can't come back easily once you move to Midgard.";
+			next;
+			if ((ep13_yong1 > 39) && (ep13_yong1 < 49)) {
+				switch(select("Prontera -> 5500z:Cancel")) {
+				case 1:
+					if (Zeny >= 5500) {
+						set zeny,zeny-5500;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 49) && (ep13_yong1 < 59)) {
+				switch(select("Alberta -> 5500z:Prontera -> 5500z:Cancel")) {
+				case 1:
+					if (Zeny >= 5500) {
+						set zeny,zeny-5500;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 5500) {
+						set zeny,zeny-5500;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 59) && (ep13_yong1 < 69)) {
+				switch(select("Alberta -> 5025z:Prontera -> 5025z:Izlude -> 5025z:Cancel")) {
+				case 1:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 69) && (ep13_yong1 < 79)) {
+				switch(select("Alberta -> 5025z:Prontera -> 5025z:Izlude -> 5025z:Geffen -> 5025z:Cancel")) {
+				case 1:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 5025) {
+						set zeny,zeny-5025;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 79) && (ep13_yong1 < 89)) {
+				switch(select("Alberta -> 4765z:Prontera -> 4765z:Izlude -> 4765z:Geffen -> 4765z:Payon -> 4765z:Cancel")) {
+				case 1:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 89) && (ep13_yong1 < 99)) {
+				switch(select("Alberta -> 4765z:Prontera -> 4765z:Izlude -> 4765z:Geffen -> 4765z:Payon -> 4765z:Morroc -> 4765z:Cancel")) {
+				case 1:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4765) {
+						set zeny,zeny-4765;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					close;
+				}
+			}
+			else if (ep13_yong1 > 99) {
+				switch(select("Alberta -> 4590z:Prontera -> 4590z:Izlude -> 4590z:Geffen -> 4590z:Payon -> 4590z:Morroc -> 4590z:Al De Baran -> 4590z:Cancel")) {
+				case 1:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					close;
+				}
+			}
+			else {
+				// Custom Translation.
+				mes "[Cat Hand Agent]";
+				mes "I am sorry, but you don't have enough credit points to use the warp service. Please come back when you have more points.";
+				close;
+			}
+		case 4:
+			mes "[Cat Hand Agent]";
+			mes "Thank you for using our service.";
+			close;
+		}
+	}
+	else if (ep13_yong1 > 99) {
+		mes "[Cat Hand Agent]";
+		mes "Cat Trading's available services are as followed.";
+		mes "For additional services, please consult Agent Gyaruk.";
+		next;
+		switch(select("Save your location:Use Storage:Use Cat Warp (Midgard):Use Cat Warp (Jottunheim):Cancel")) {
+		case 1:
+			savepoint "man_fild02",129,61;
+			mes "[Cat Hand Agent]";
+			mes "Thank you.";
+			mes "Your location has been saved.";
+			mes "You can now directly return to this camp.";
+			close;
+		case 2:
+			if(basicskillcheck() && getskilllv("NV_BASIC") < 6){
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you";
+				mes "need the Novice's";
+				mes "Basic Skill Level 6 to";
+				mes "use the Storage Service.";
+				close;
+			}
+			else if (Zeny >= 60) {
+				set zeny,zeny-60;
+				mes "[Cat Hand Agent]";
+				mes "Thank you.";
+				mes "Your storage will be opened shortly.";
+				close2;
+				openstorage;
+				end;
+			}
+			else {
+				mes "[Cat Hand Agent]";
+				mes "I'm sorry, but you don't";
+				mes "have enough money?";
+				mes "Cat Trading's storage";
+				mes "service is 60 zeny.";
+				mes "It's cheap, isn't it?";
+				close;
+			}
+		case 3:
+			// Custom Translation.
+			mes "[Cat Hand Agent]";
+			mes "With " + ep13_yong1 + " credit points, we offer the following warp services. Please remember, you can't come back easily once you move to Midgard.";
+			next;
+			if ((ep13_yong1 > 99) && (ep13_yong1 < 200)) {
+				switch(select("Alberta -> 4590z:Prontera -> 4590z:Izlude -> 4590z:Geffen -> 4590z:Payon -> 4590z:Morroc -> 4590z:Al De Baran -> 4590z:Cancel")) {
+				case 1:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 4590) {
+						set zeny,zeny-4590;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					close;
+				}
+			}
+			else if ((ep13_yong1 > 199) && (ep13_yong1 < 250)) {
+				switch(select("Alberta -> 4170z:Prontera -> 4170z:Izlude -> 4170z:Geffen -> 4170z:Payon -> 4170z:Morroc -> 4170z:Al De Baran -> 4170z:Juno -> 4170z:Cancel")) {
+				case 1:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					if (Zeny >= 4170) {
+						set zeny,zeny-4170;
+						warp "yuno",158,125;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 9:
+					close;
+				}
+				close;
+			}
+			else if ((ep13_yong1 > 249) && (ep13_yong1 < 300)) {
+				switch(select("Alberta -> 4025z:Prontera -> 4025z:Izlude -> 4025z:Geffen -> 4025z:Payon -> 4025z:Morroc -> 4025z:Al De Baran -> 4025z:Juno -> 4025z:Einbroch -> 4025z:Cancel")) {
+				case 1:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "yuno",158,125;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 9:
+					if (Zeny >= 4025) {
+						set zeny,zeny-4025;
+						warp "einbroch",158,301;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 10:
+					close;
+				}
+				close;
+			}
+			else if (ep13_yong1 > 299) {
+				switch(select("Alberta -> 3970z:Prontera -> 3970z:Izlude -> 3970z:Geffen -> 3970z:Payon -> 3970z:Morroc -> 3970z:Al De Baran -> 3970z:Juno -> 3970z:Einbroch -> 3970z:Lighthalzen -> 3970z:Cancel")) {
+				case 1:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "alberta",117,56;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 2:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "prontera",116,72;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 3:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "izlude",91,105;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 4:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "geffen",120,39;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 5:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "payon",161,58;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 6:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "morocc",156,46;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 7:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "aldebaran",168,112;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 8:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "yuno",158,125;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 9:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "einbroch",158,301;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 10:
+					if (Zeny >= 3970) {
+						set zeny,zeny-3970;
+						warp "lighthalzen",163,64;
+						close;
+					}
+					else {
+						mes "[Cat Hand Agent]";
+						mes "Don't play with money.";
+						close;
+					}
+				case 11:
+					close;
+				}
+				close;
+			}
+			else {
+				// Custom Translation
+				mes "[Cat Hand Agent]";
+				mes "I am sorry, but you don't have enough credit points to use the warp service. Please come back when you have more points.";
+				close;
+			}
+		case 4:
+			switch(select("Alliance Forces Post -> 5500z:Splendide Camp -> 7500z:Cancel")) {
+			case 1:
+				if (Zeny >= 5500) {
+					set zeny,zeny-5500;
+					warp "mid_camp",62,127;
+					close;
+				}
+				else {
+					mes "[Cat Hand Agent]";
+					mes "Don't play with money.";
+					close;
+				}
+			case 2:
+				if (Zeny >= 7500) {
+					set zeny,zeny-7500;
+					warp "spl_fild02",32,225;
+					close;
+				}
+				else {
+					mes "[Cat Hand Agent]";
+					mes "Don't play with money.";
+					close;
+				}
+			case 3:
+				mes "[Cat Hand Agent]";
+				mes "Thank you for using our service.";
+				close;
+			}
+		case 5:
+			mes "[Cat Hand Agent]";
+			mes "Thank you for using our service.";
+			close;
+		}
+	}
+	else {
+		mes "[Cat Hand Agent]";
+		mes "... ... ... ...";
+		mes "Please give me some Piece of Fish.";
+		close;
+	}
+}
+
+man_fild02,146,81,0	script	Mysterious Rock#31	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran > 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			getitem 6048,1; //Unidentified_Mineral
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#31";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#31";
+	stopnpctimer;
+	end;
+}
+
+man_fild02,140,148,0	script	Mysterious Rock#32	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran == 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			getitem 6048,1; //Unidentified_Mineral
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#32";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#32";
+	stopnpctimer;
+	end;
+}
+
+man_fild02,88,263,0	script	Mysterious Rock#33	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran == 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			getitem 6048,1; //Unidentified_Mineral
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#33";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#33";
+	stopnpctimer;
+	end;
+}
+
+man_fild02,146,365,0	script	Mysterious Rock#34	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran == 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			getitem 6048,1; //Unidentified_Mineral
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#34";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#34";
+	stopnpctimer;
+	end;
+}
+
+man_fild02,336,305,0	script	Mysterious Rock#35	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran == 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			getitem 6048,1; //Unidentified_Mineral
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#35";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#35";
+	stopnpctimer;
+	end;
+}
+
+man_fild02,248,124,0	script	Mysterious Rock#36	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran == 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			getitem 6048,1; //Unidentified_Mineral
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#36";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#36";
+	stopnpctimer;
+	end;
+}
+
+man_fild02,285,115,0	script	Mysterious Rock#37	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran == 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			getitem 6048,1; //Unidentified_Mineral
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#37";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#37";
+	stopnpctimer;
+	end;
+}
+
+man_fild02,346,116,0	script	Mysterious Rock#38	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran == 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			getitem 6048,1; //Unidentified_Mineral
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#38";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#38";
+	stopnpctimer;
+	end;
+}
+
+man_fild02,358,174,0	script	Mysterious Rock#39	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran == 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			getitem 6048,1; //Unidentified_Mineral
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#39";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#39";
+	stopnpctimer;
+	end;
+}
+
+man_fild02,241,227,0	script	Mysterious Rock#40	844,{
+	if ((countitem(6048) < 3) && (checkquest(12062,PLAYTIME) == -1)) {
+		specialeffect2 EF_REPAIRWEAPON;
+		progressbar "ffff00",10;
+		set .@rhea_ran,rand(1,20);
+		if (.@rhea_ran < 13) {
+			getitem 7049,1; //Stone
+		}
+		else if (.@rhea_ran == 13) {
+			getitem 990,1; //Boody_Red
+		}
+		else if (.@rhea_ran == 14) {
+			getitem 991,1; //Crystal_Blue
+		}
+		else if (.@rhea_ran == 15) {
+			getitem 992,1; //Wind_Of_Verdure
+		}
+		else if (.@rhea_ran == 16) {
+			getitem 993,1; //Yellow_Live
+		}
+		else if (.@rhea_ran == 17) {
+			getitem 6080,1; //Manuk_Coin
+		}
+		else if (.@rhea_ran > 18) {
+			set Unidentified_Coin,Unidentified_Coin+1;
+		}
+		initnpctimer;
+		disablenpc "Mysterious Rock#40";
+		end;
+	}
+	else {
+		mes "This rock contains unidentified minerals.";
+		mes "It's not possible to mine more than the limit.";
+		close;
+	}
+	end;
+
+OnTimer120000:
+	enablenpc "Mysterious Rock#40";
+	stopnpctimer;
+	end;
+}
+
+spl_fild03,226,151,0	script	School of Fish#5::FishingHole_spl3	844,{
+	if ((checkquest(12060,PLAYTIME) == -1) && (countitem(6039) < 20)) {
+		specialeffect2 EF_BUBBLE;
+		specialeffect2 EF_INVENOM;
+		set .@fcast,15;
+		if (isequipped(2550)) { //Fisher's_Muffler
+			set .@fcast,.@fcast - 2;
+		}
+		if (isequipped(2443)) { //Fish_Shoes
+			set .@fcast,.@fcast - 2;
+		}
+		if (isequipped(2764)) { //Small_Fishing_Rod
+			set .@fcast,.@fcast - 3;
+		}
+		if (isequipped(2775)) { //Lure
+			set .@fcast,.@fcast - 1;
+		}
+		if (isequipped(1599)) { //Ahura_Mazda
+			set .@fcast,.@fcast - 3;
+		}
+		if (isequipped(2199)) { //Angra_Manyu
+			set .@fcast,.@fcast - 4;
+		}
+		progressbar "ffff00",.@fcast;
+		if (ep13_1_rhea == 13) {
+			if (rand(1,20) == 2) {
+				getitem 6037,1; //Rough_File
+				set ep13_1_rhea,14;
+				specialeffect2 EF_BUBBLE;
+				mapannounce "spl_fild03","" + strcharinfo(0) + " has caught a Loose File.",bc_map,"0xff77ff";
+			}
+		}
+		set .@rhea_ran,rand(1,70);
+		if (.@rhea_ran < 20) {
+			getitem 6039,1; //Piece_Of_Fish
+		}
+		else if (.@rhea_ran == 20) {
+			getitem 908,1; //Spawn
+		}
+		else if (.@rhea_ran == 21) {
+			getitem 909,1; //Jellopy
+		}
+		else if (.@rhea_ran == 22) {
+			getitem 963,1; //Sharp_Scale
+		}
+		else if (.@rhea_ran == 23) {
+			getitem 956,1; //Gill
+		}
+		else if (.@rhea_ran == 24) {
+			getitem 6049,1; //Marlin
+		}
+		else if (.@rhea_ran == 25) {
+			getitem 918,1; //Sticky_Webfoot
+		}
+		else if (.@rhea_ran == 26) {
+			getitem 960,1; //Nipper
+		}
+		else if (.@rhea_ran == 27) {
+			getitem 910,1; //Garlet
+		}
+		else if (.@rhea_ran == 28) {
+			getitem 6081,1; //Splendide_Coin
+		}
+		else if ((.@rhea_ran > 28) && (.@rhea_ran < 40)) {
+			getitem 7049,1; //Stone
+		}
+		else {
+			mes "Nothing was caught.";
+			close;
+		}
+		set .@rhea_ran5,rand(1,200);
+		if (.@rhea_ran5 == 3) {
+			getitem 644,1; //Gift_Box
+			mapannounce "spl_fild03","" + strcharinfo(0) + " has caught a Gift Box.",bc_map,"0x00ffff";
+		}
+		set .@rhea_ran3,rand(1,500);
+		if (.@rhea_ran3 == 3) {
+			getitem 603,1; //Old_Blue_Box
+			mapannounce "spl_fild03","" + strcharinfo(0) + " has caught an Old Blue Box.",bc_map,"0x00ffff";
+		}
+		set .@rhea_ran4,rand(1,3000);
+		if (.@rhea_ran4 == 3) {
+			getitem 617,1; //Old_Violet_Box
+			mapannounce "spl_fild03","" + strcharinfo(0) + " has caught an Old Purple Box.",bc_map,"0x44ff44";
+		}
+	}
+	else {
+		mes "Fish are swimming in the water.";
+		close;
+	}
+	end;
+}
+
+spl_fild03,268,230,0	duplicate(FishingHole_spl3)	School of Fish#6	844
+spl_fild03,293,253,0	duplicate(FishingHole_spl3)	School of Fish#7	844
+spl_fild03,165,100,0	duplicate(FishingHole_spl3)	School of Fish#8	844
+spl_fild03,317,190,0	duplicate(FishingHole_spl3)	School of Fish#9	844
+
+spl_fild01,41,118,0	script	School of Fish#10::FishingHole_spl1	844,{
+	if ((checkquest(12060,PLAYTIME) == -1) && (countitem(6039) < 20)) {
+		specialeffect2 EF_BUBBLE;
+		specialeffect2 EF_INVENOM;
+		set .@fcast,15;
+		if (isequipped(2550)) { //Fisher's_Muffler
+			set .@fcast,.@fcast - 2;
+		}
+		if (isequipped(2443)) { //Fish_Shoes
+			set .@fcast,.@fcast - 2;
+		}
+		if (isequipped(2764)) { //Small_Fishing_Rod
+			set .@fcast,.@fcast - 3;
+		}
+		if (isequipped(2775)) { //Lure
+			set .@fcast,.@fcast - 1;
+		}
+		if (isequipped(1599)) { //Ahura_Mazda
+			set .@fcast,.@fcast - 3;
+		}
+		if (isequipped(2199)) { //Angra_Manyu
+			set .@fcast,.@fcast - 4;
+		}
+		progressbar "ffff00",.@fcast;
+		if (ep13_1_rhea == 13) {
+			if (rand(1,20) == 2) {
+				getitem 6037,1; //Rough_File
+				set ep13_1_rhea,14;
+				specialeffect2 EF_BUBBLE;
+				mapannounce "spl_fild01","" + strcharinfo(0) + " has caught a Loose File.",bc_map,"0xff77ff";
+			}
+		}
+		set .@rhea_ran,rand(1,70);
+		if (.@rhea_ran < 20) {
+			getitem 6039,1; //Piece_Of_Fish
+		}
+		else if (.@rhea_ran == 20) {
+			getitem 908,1; //Spawn
+		}
+		else if (.@rhea_ran == 21) {
+			getitem 909,1; //Jellopy
+		}
+		else if (.@rhea_ran == 22) {
+			getitem 963,1; //Sharp_Scale
+		}
+		else if (.@rhea_ran == 23) {
+			getitem 956,1; //Gill
+		}
+		else if (.@rhea_ran == 24) {
+			getitem 6049,1; //Marlin
+		}
+		else if (.@rhea_ran == 25) {
+			getitem 918,1; //Sticky_Webfoot
+		}
+		else if (.@rhea_ran == 26) {
+			getitem 960,1; //Nipper
+		}
+		else if (.@rhea_ran == 27) {
+			getitem 910,1; //Garlet
+		}
+		else if (.@rhea_ran == 28) {
+			getitem 6081,1; //Splendide_Coin
+		}
+		else if ((.@rhea_ran > 28) && (.@rhea_ran < 40)) {
+			getitem 7049,1; //Stone
+		}
+		else {
+			mes "Nothing was caught.";
+			close;
+		}
+		set .@rhea_ran5,rand(1,200);
+		if (.@rhea_ran5 == 3) {
+			getitem 644,1; //Gift_Box
+			mapannounce "spl_fild01","" + strcharinfo(0) + " has caught a Gift Box.",bc_map,"0x00ffff";
+		}
+		set .@rhea_ran3,rand(1,500);
+		if (.@rhea_ran3 == 3) {
+			getitem 603,1; //Old_Blue_Box
+			mapannounce "spl_fild01","" + strcharinfo(0) + " has caught a Old Blue Box.",bc_map,"0x00ffff";
+		}
+		set .@rhea_ran4,rand(1,3000);
+		if (.@rhea_ran4 == 3) {
+			getitem 617,1; //Old_Violet_Box
+			mapannounce "spl_fild01","" + strcharinfo(0) + " has caught a Old Purple Box.",bc_map,"0x44ff44";
+		}
+	}
+	else {
+		mes "Fish are swimming in the water.";
+		close;
+	}
+	end;
+}
+
+spl_fild01,317,361,0	duplicate(FishingHole_spl1)	School of Fish#11	844
+spl_fild01,55,269,0	duplicate(FishingHole_spl1)	School of Fish#12	844
+spl_fild01,332,131,0	duplicate(FishingHole_spl1)	School of Fish#13	844
+spl_fild01,170,74,0	duplicate(FishingHole_spl1)	School of Fish#14	844
+
+manuk,304,195,5	script	Soldier#ep13pa829	454,{
+	if (isequipped(2782) == 1) {
+		mes "[Food Provider]";
+		mes "The Manuk family subsists mostly on refining Gray Hollows that were burried a long time ago deep down under the ground.";
+		close;
+	}
+	else {
+		mes "[Food Provider]";
+		mes "Gdiios duuie Dssoas pogggd fdrul fdddoweet";
+		close;
+	}
+}
+
+manuk,274,239,5	script	Soldier#ep13_2	455,{
+	if (isequipped(2782) == 1) {
+		mes "[Injured Manuk Soldier]";
+		mes "I can't absorb Bradium Essence anymore because of my fatal injury.";
+		mes "Those wicked fairies attacked me and left me like this.";
+		close;
+		mes "[Injured Manuk Soldier]";
+		mes "I wish I could kill all the fairies...";
+		close;
+	}
+	else {
+		mes "[Injured Manuk Soldier";
+		mes "Bhiio aaas dgwer fdds rrrrrpppp Ee";
+		close;
+		mes "[Injured Manuk Soldier]";
+		mes "Foi dsddff gggeeeerr pqowe";
+		close;
+	}
+}
+
+manuk,107,233,5	script	Soldier#ep13_3	454,{
+	if (isequipped(2782) == 1) {
+		mes "[Anxious Soldier]";
+		mes "Hurry, I am in big trouble. I lost all the Manuk Coins. I think I dropped them somewhere on the snowfield. Gosh, I saw them right before I fell asleep!";
+		close;
+	}
+	else {
+		mes "[Anxious Soldier]";
+		mes "Qosi dhhui rffd poaner ouh.";
+		close;
+	}
+}
+
+splendide,218,193,3	script	Fairy#ep13_1	441,{
+	if (isequipped(2782) == 1) {
+		mes "[Exhausted Fairy]";
+		mes "Wait, don't come any closer. I can't stand your smell, it makes me feel dizzy.";
+		close;
+	}
+	else {
+		mes "[Exhausted Fairy]";
+		mes "OdesKoUor Ko NuffSharUden Ko CyaVenah An NudNuffser An KoRivehAdor Mu LarseorAnu O DorNe";
+		close;
+	}
+}
+
+splendide,180,223,3	script	Fairy#ep13_2	440,{
+	if (isequipped(2782) == 1) {
+		mes "[Kalua]";
+		mes "You don't look sophisticated, but I think you are better than those uncivilized guys who are around the snowfield.";
+		close;
+	}
+	else {
+		mes "[Kalua]";
+		mes "AlahCyamah U MeKoser Ir TimaurRiveh Di LarsRasTi Di AgolKones Or AlahUdenAndu Ee FusRe";
+		close;
+	}
+}
+
+splendide,125,227,3	script	Fairy#ep13_3	444,{
+	if (isequipped(2782) == 1) {
+		mes "[Flowa]";
+		mes "No offense, I was not looking at you with sympathy.";
+		mes "I just wondered how you could walk with that heavy body...";
+		close;
+	}
+	else {
+		mes "[Flowa]";
+		mes "AnuFuloUor Ko CyaWosnes Ha WosAnuAsh O WosDuAno O ";
+		mes "FuloAndueo Ie WosGothLars Ee Tinarmaur Or AlahnahVa Or narAnuFulo So KoCya";
+		close;
+	}
+}
+
+// Otherworld language
+//============================================================ 
+mid_camp,197,237,3	script	Schwartzvalt Mechanic#1	869,{
+	if (ep13_1_edq > 2) {
+		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.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "I don't know if it is a legend based on truth or not... but something like that would come in pretty handy.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Outside of the Expedition Camp, There's a race of animals which uses a mysterious language not used in Rune Midgard.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "We don't know if they are friend or foe, but it will be much easier for our research here if we could find out.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "So, the Triple Alliance Research Group is working together to find out. I would like to know how far the ^0000ff Arunafeltz Linguist^000000's decoding process is. Would you go and find out for me?";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "The ^0000ff Arunafeltz Linguist^000000 should be on the second floor of the Alliance Headquarters.";
+			setquest 8243;
+			set ep13_2_rhea,1;
+			close;
+		}
+		else if ((ep13_2_rhea > 0) && (ep13_2_rhea < 7)) {
+			mes "[Mechanic Engineer Dorance]";
+			mes "Outside of the Expedition Camp, There's a race who uses a mysterious language which is not used in Rune Midgard";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "We don't know if they are friend or foe, one thing for sure is it will be more easier for our research here.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "So, the Triple Alliance Research Group is working together to find out. I would like to know how far the ^0000ff Arunafeltz Linguist^000000's decoding process is. Would you go and find out for me?";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Go to a big building in center of the Expedition Camp and inside that building, meet ^0000ff Arunafeltz Linguist^000000 and ask him how far his progress is.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "The ^0000ff Arunafeltz Linguist^000000 should be on the second floor of the Alliance Headquarters.";
+			close;
+		}
+		else if (ep13_2_rhea == 7) {
+			mes "- He's making a grim face at a flooding pile of research documents. -";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Ah, You are here.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "t seems like you've done much for us. I thank you for that.";
+			mes "But...Sigh...";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Can you see this? The amount of these research documents?";
+			mes "It is a good thing that we finally decoded the other world's language... it's just too much.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "We can't always accompany a Linguist for an interpretion... We need to communicate with those other world races in order to explore this world...";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "To store this amount of information will need a super computer the size of this headquarter building and its processing speed will be very very slow.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Sigh... Anyways, If there's any way to store an enormous amount of data, I should be able to make a very-small portable translator.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "I heard that by using a Magical Spell of Rune-Midgart, you can transpose data to a magical power and lock it into a gem... I'd like some suggestions from the Rune-Midgarts Magician.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Would you be kind to ask them for help?";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "While you are gone, I be here organizing these documents.";
+			completequest 8248;
+			setquest 8249;
+			set ep13_2_rhea,8;
+			close;
+		}
+		else if ((ep13_2_rhea > 7) && (ep13_2_rhea < 11)) {
+			mes "[Mechanic Engineer Dorance]";
+			mes "To store this amount of information will need a super computer with a size of this headquarter building. and its processing speed will be very very slow...";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Sigh... Anyways, If there's any way to store an enormous amount of data, I could be able to make a very-small portable translator.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "I heard that by using the Magical Spell of Rune Midgarts, you could transpose a data to a magical power and lock it into a gem....I'd like to get some suggestion from the Magician of Rune Midgarts.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Would you be kind to ask them for help?";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "While you are gone, I be here organizing these documents.";
+			close;
+		}
+		else if (ep13_2_rhea == 11) {
+			mes "[Mechanic Engineer Dorance]";
+			mes "How'd it go?";
+			next;
+			select("Give him the Gem.");
+			mes "[Mechanic Engineer Dorance]";
+			mes "Ah, Looks like you've succeeded.";
+			mes "Inputting data into a gem with a magical power... It's something you can't do with a technology... It's a bit resentful to admit, but it's magnificent.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Well then, I should be working on making a machine to read the magical data in this Gem so we could use them right away.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "Hmm...";
+			mes "Fortunately, It won't be as hard as we thought.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "If we transform a magical power wave to an eletric signal and connect it to a human body, then transmit a data to a brain directly. That will allow us to receive and understand a data without any loading process.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "I don't have time to explain everything. I have to start the work right away.";
+			mes "With all preperation done, allow me about one hour to finish this thing.";
+			completequest 8252;
+			setquest 8253;
+			set ep13_2_rhea,12;
+			close;
+		}
+		else if (ep13_2_rhea == 12) {
+			set .@trs_time01,checkquest(8253,PLAYTIME);
+			if (.@trs_time01 == 2) {
+				mes "[Mechanic Engineer Dorance]";
+				mes "Sigh, What should I do now?!";
+				next;
+				mes "- Dorance is walking here and there -";
+				mes "- in a dither. -";
+				next;
+				mes "["+ strcharinfo(0) +"]";
+				mes "Is something wrong?!";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "What should I do?! Ain't I REALLY a genius?!";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "I've made it!!!";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "Convenient portable size!";
+				mes "Fashionable and practical design!";
+				mes "Features the Other World's Words / Idiom / Grammer / Phrases!!";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "Have you experienced the loading speed?";
+				mes "Don't you even mention it if you haven't.";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "That's not all!";
+				mes "For the Well-Being life, it will buff your strength and intelligence!!!!";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "With all these marvelous features, it's just 39,900 zeny....!!!";
+				next;
+				mes "["+ strcharinfo(0) +"]";
+				mes "...Just what are you trying to imitate...";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "Important thing is, I've made it!!";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "Well, Seeing is believing.";
+				mes "Take a look.";
+				next;
+				mes "- He handed over the small ring. -";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "The name is 'the Ring of Wise King'. I designed it after the Ring used by ancient king to communicate with animals.";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "Do not just look at it like any other rings. You see this small gem here? This socket which holds a gem and a ring part are precisely crafted, it will transform a magical power wave to electric signal and trasmit it directly to our brain.";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "Since this electric signal is same as the signal used by our body's nerve system, it will enable us to understand and use the language fluently.";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "Once this translator gets popularized, it'd be just a matter of time for us to advance into the other world. Well, the problem is...we don't have enough quantity yet...";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "Hmm...";
+				mes "Anyways, now we've got the idea, I will give you this first piece of work.";
+				next;
+				mes "[Mechanic Engineer Dorance]";
+				mes "Thank you for helping us out.";
+				mes "I hope this ring would be a big help for your journey through the other world.";
+				completequest 8253;
+				set ep13_2_rhea,100;
+				getexp 1000000,300000;
+				getitem 2782,1; //Ring_Of_Wise_King
+				close;
+			}
+			else {
+				mes "- He has scattered mechanical parts -";
+				mes "- all over the room and so wrapped up -";
+				mes "- in his work -";
+				next;
+				mes "- I might get bitten if I bother him -";
+				mes "- Let's leave him alone -";
+				close;
+			}
+		}
+		else {
+			mes "[Mechanic Engineer Dorance]";
+			mes "Thank you for your help.";
+			next;
+			mes "[Mechanic Engineer Dorance]";
+			mes "I hope this ring would be a big help for your journey through the other world.";
+			close;
+		}
+	}
+	else {
+		mes "[Mechanic Engineer Dorance]";
+		mes "Do you know about the Ring of Ancient Wise King? If you wear that Ring, you could talk to an animal.";
+		next;
+		mes "[Mechanic Engineer Dorance]";
+		mes "I don't know if it is a legend based on a truth or not... something like that will come in handy.";
+		next;
+		mes "[Mechanic Engineer Dorance]";
+		mes "By the way, Who are you? This building is under Commander's control. This place is not to be entered freely... Are you acquainted with our Commander?";
+		next;
+		mes "[Mechanic Engineer Dorance]";
+		mes "Are you looking for something to do? Perhaps I could use some help... Well, I don't know if you are trustworthy just yet.";
+		next;
+		mes "[Mechanic Engineer Dorance]";
+		mes "If you are good enough to solve some problems within the expedition camp, and carry out a mission given by Commander... then I think I could trust you.";
+		close;
+	}
+}
+
+mid_campin,168,82,3	script	Arunafeltz Linguist#1	935,{
+	if (ep13_2_rhea < 1) {
+		mes "[Linguist Dictionary]";
+		mes "Language distinguishes humans from animals. Every single intellectual life form has their own language.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "Language is a method / system which delievers one's feeling or thinking by voice or letters. Anyway, its purpose is to communicate.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "Difference between a language and a sound is that language is a socially implied promise by making common system of communication to make it possible to understand eachother.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "That Socially implied promise, if we could grasp the meaning of a system and structure, we will be able to understand other intellectual life form's language...";
+		mes "...................................And just who might you be?";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "This is a restricted place under control of our Commander. No one could enter here without proper approval... Are you acquainted with our Commander?";
+		close;
+	}
+	else if (ep13_2_rhea == 1) {
+		mes "[Linguist Dictionary]";
+		mes "Language is a distinctive feature of human race compared to animals. Every single intellectual life form has their own language.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "Language is a method / system which delievers one's feeling or thinking by voice or letters. Anyway, its purpose is to communicate.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "Difference between a language and a sound is that language is a socially implied promise by making common system of communication to make it possible to understand eachother.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "That Socially implied promise, if we could grasp the meaning of a system and structure, we will be able to understand other intellectual life form's language...";
+		mes "...................................And just who might you be?";
+		next;
+		switch(select("I am Me!:I don't have a name to tell you!")) {
+		case 1:
+			break;
+		case 2:
+			mes "[Linguist Dictionary]";
+			mes "What the heck?";
+			mes "If you are so bored, why don't you go fishing?";
+			close;
+		}
+		mes "[Linguist Dictionary]";
+		mes "Ah~ I've heard from our Commander about you. You've done much for the Midgard Alliance Camp. Anyways, what brings you here?";
+		next;
+		switch(select("I though I've confused you a bit...:What were you doing?")) {
+		case 1:
+			mes "[Linguist Dictionary]";
+			mes "Confusion is a feeling that comes from distraction of one's mind when something that couldn't be predicted happens. I'm not a person who easily gets confused.";
+			next;
+			break;
+		case 2:
+			break;
+		}
+		mes "[Linguist Dictionary]";
+		mes "I'm a linguist from Arunafeltz. I'm a scholor who studies a system and a structure of every kinds of language in the world.";
+		mes "And...don't you think the reason man like me is here is that there's a predictable cause?";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "From what I heard, you've done much for the Midgarts Alliance Research Group.";
+		mes "And while you were helping us, I believe you've seen and visited many places here in the other world.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "Have you met the other world's people by any chance?";
+		next;
+		set .@check_splque00,checkquest(2158);
+		set .@check_manque00,checkquest(2159);
+		if ((.@check_splque00 == 0) && (.@check_manque00 == 0)) {
+			// custom translation
+			mes "[Linguist Dictionary]";
+			mes "Looks like you haven't encountered them yet.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "Rumor here says that there's a fairy-looking and a giant wood people living out in the fields next to our camp here.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "Apparently these people are speaking in a strange languages that we humans can't understand...but no one seems to be able to remember how their languages sound like.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "A NEW language!! This is an exciting discovery for a linguist like myself, but as you know, there's dangerous monsters outside... It's not possible for a mere scholor to go out wandering around.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "I've said this much, I think you'd be able to guess what I'm going to ask you to do.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "The Alliance Research Group has great interest in other intelligent life. Each country's secret agents are making every effort to communicate with those two races, there's just not enough information.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "Do me a favor and go outside of the camp, find the fairies and wooden giants, and remember everything that they are saying, word for word so that I can hear what their language sounds like.";
+			completequest 8243;
+			setquest 8244;
+			set ep13_2_rhea,2;
+			close;
+		}
+		else {
+			mes "[Linguist Dictionary]";
+			mes "From the look on your face, I think you have something crossed in your mind.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "Rumor here says that there's a fairy-looking and a giant wood people living out in the fields next to our camp here.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "Apparently these people are speaking in a strange languages that we humans can't understand...but no one seems to be able to remember how their languages sound like.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "A NEW language!! This is an exciting discovery for a linguist like myself, but as you know, there's dangerous monsters outside... It's not possible for a mere scholor to go out wandering around.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "I've said this much, I think you'd be able to guess what I'm going to ask you to do.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "The Alliance Research Group has great interest in other intelligent life. Each country's secret agents are making every effort to communicate with those two races, there's just not enough information.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "Do me a favor and go outside of the camp, find the fairies and wooden giants, and remember everything that they are saying, word for word so that I can hear what their language sounds like.";
+			completequest 8243;
+			setquest 8244;
+			set ep13_2_rhea,2;
+			close;
+		}
+	}
+	else if (ep13_2_rhea == 2) {
+		set .@check_splque00,checkquest(2158);
+		set .@check_manque00,checkquest(2159);
+		if ((.@check_splque00 > 0) && (.@check_manque00 > 0)) {
+			mes "[Linguist Dictionary]";
+			mes "You are back!";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "So, What were they saying?";
+			mes "Of course you remember them exactly as what they've said, right?";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "Now, let's start with the Fairies! What is the fairy's language like? Please write them down here sentence by sentence!";
+			next;
+			set .@spl_score00,0;
+			input .@input$;
+			if (.@input$ == "TKANTLFDMS") {
+				mes "[Linguist Dictionary]";
+				mes ""+ .@input$ +"....";
+				mes "And?";
+				set .@spl_score01,.@spl_score00+1;
+				next;
+			}
+			else {
+				mes ""+ .@input$ +"....";
+				mes "Mmm... Hmm...?";
+				set .@spl_score01,.@spl_score00;
+				next;
+			}
+			input .@input$;
+			if (.@input$ == "TNAHRDNJSDMFH") {
+				mes ""+ .@input$ +"....";
+				mes "And?";
+				set .@spl_score02,.@spl_score01+1;
+				next;
+			}
+			else {
+				mes ""+ .@input$ +"....";
+				mes "I see...?";
+				set .@spl_score02,.@spl_score01;
+				next;
+			}
+			input .@input$;
+			if ((.@input$ == "!!") || (.@input$ == "WLSGHKWND")) {
+				mes ""+ .@input$ +"....";
+				mes "Is that all?";
+				set .@spl_score03,.@spl_score02+1;
+				next;
+			}
+			else {
+				mes ""+ .@input$ +"....";
+				mes "Is that all?";
+				set .@spl_score03,.@spl_score02;
+				next;
+			}
+			if (.@spl_score03 > 2) {
+				mes "[Linguist Dictionary]";
+				mes "So...If we put'em together,";
+				mes "RLGHLRXLA TKANTLFDMS";
+				mes "WJACK TNAHRDNJSDMFH";
+				mes "WLSGHKWND !!";
+				mes "It'd be like this.";
+				next;
+			}
+			else {
+				mes "[Linguist Dictionary]";
+				mes "Hmm...?";
+				next;
+				mes "[Linguist Dictionary]";
+				mes "You sure this is exactly what they've said?";
+				mes "I can't understand anything from this...";
+				next;
+				mes "[Linguist Dictionary]";
+				mes "Would you please go back again and check if it is exactly what they were saying?";
+				close;
+			}
+			mes "[Linguist Dictionary]";
+			mes "Good. then next is the Wooden Giants! What's their language like? Write them down sentence by sentence just as you did with the Fairy's.";
+			next;
+			set .@man_score00,0;
+			input .@input$;
+			if (.@input$ == "CJFDI") {
+				mes "[Linguist Dictionary]";
+				mes ""+ .@input$ +"....";
+				mes "And?";
+				set .@man_score01,.@man_score00+1;
+				next;
+			}
+			else {
+				mes ""+ .@input$ +"....";
+				mes "And?";
+				set .@man_score01,.@man_score00;
+				next;
+			}
+			input .@input$;
+			if (.@input$ == "QKATOS") {
+				mes ""+ .@input$ +"....";
+				mes "And?";
+				set .@man_score02,.@man_score01+1;
+				next;
+			}
+			else {
+				mes ""+ .@input$ +"....";
+				mes "And?";
+				set .@man_score02,.@man_score01;
+				next;
+			}
+			input .@input$;
+			if ((.@input$ == "DLFMADMS..") || (.@input$ == "DLFMADMS..")) {
+				mes ""+ .@input$ +"....";
+				mes "This is it?";
+				set .@man_score03,.@man_score02+1;
+				next;
+			}
+			else {
+				mes ""+ .@input$ +"....";
+				mes "Is that all?";
+				set .@man_score03,.@man_score02;
+				next;
+			}
+			if (.@man_score03 > 2) {
+				mes "[Linguist Dictionary]";
+				mes "So, If we put'em together,";
+				mes "TJDTMFJDNS CJFDI";
+				mes "TKADLFDMF QKATOS";
+				mes "EKDTLSDML DLFMADMS..";
+				mes "It will be like this.";
+				next;
+			}
+			else {
+				mes "[Linguist Dictionary]";
+				mes "Hmm...?";
+				next;
+				mes "[Linguist Dictionary]";
+				mes "You sure this is exactly what they've said?";
+				mes "Hmm...I don't get the idea...";
+				next;
+				mes "[Linguist Dictionary]";
+				mes "Would you please go back again and check if it is exactly what they were saying?";
+				close;
+			}
+			mes "[Linguist Dictionary]";
+			mes ".Hmm....Hm..I see...";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "....Ummmm...";
+			next;
+			mes "- Dictionary stared at the paper intently. -";
+			set ep13_2_rhea,3;
+			close;
+		}
+		else {
+			// custom translation
+			mes "[Linguist Dictionary]";
+			mes "According to the Expedition Camp's investigation, there is a different ethnic race that is similar to fairy's, along with a different ethnic race that is similar to giants.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "It is said that they are using a language that cannot be understood by people from Midgart... ...Although we all say this, nobody is able to remember their conversation / words.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "A New language!!! As a linguist, I cannot sit here. But outside, there are many different monsters, as a scholar, it is too dangerous to go outside.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "and as our conversation has reached this point, you should have an idea of my request, right?";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "The Tripple Alliance Research Group is very interested in other intelligent life. In order to try and talk to them, national officials have carried out secret effort in every possible way. However, because of lacking information, they are facing difficulties.";
+			next;
+			mes "[Linguist Dictionary]";
+			mes "If you've encountered those races around the Expedition Camp, you must memorize their conversation! Then report back to me!";
+			close;
+		}
+	}
+	else if (ep13_2_rhea == 3) {
+		mes "[Linguist Dictionary]";
+		mes "............................";
+		next;
+		mes "- Dictionary stared at the paper intently. -";
+		next;
+		switch(select("He looks serious, Let's leave him alone:Talk to him")) {
+		case 1:
+			mes "[Linguist Dictionary]";
+			mes "............................";
+			close;
+		case 2:
+			break;
+		}
+		mes "[Linguist Dictionary]";
+		mes "Ahhhhhhh!!!!!!!!";
+		next;
+		select("Have you figured something out?");
+		mes "[Linguist Dictionary]";
+		mes "I....CAN'T! UNDERSTAND IT!!!";
+		mes "Whaaaat~~iiis~~ thiiis~~~ Just how do you read thisssssss~~~ I can't understand a single rule in this~~~~ Huh?";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "..................................";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "Hmph!";
+		mes "Yes?";
+		next;
+		switch(select("He looks serious. Let's leave him alone.:Ask him what's going on.")) {
+		case 1:
+			mes "[Linguist Dictionary]";
+			mes "............................";
+			mes "...................Hmph...";
+			close;
+		case 2:
+			break;
+		}
+		mes "[Linguist Dictionary]";
+		mes "Ah! Well, It's not as easy as I thought. These languages can't be heard anywhere on the Midgard Continent. No known phonetic rules seem to apply here.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "It's hard to grasp their rule or system, and before everything else, I don't even know if this pronounciation is right. I've never heard of this kind of pronounciation.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "Ah, right, I heard that a ^0000ffRune-Midgarts Magician^000000 knows a way to conduct research based on a sample of language, would you go and ask him to help me?";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "The ^0000ffRune-Midgarts Magician^000000 is wandering inside of the Expedition Camp.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "It's difficult to continue on a research without some more samples of language. Please do my favor.";
+		completequest 8244;
+		setquest 8245;
+		set ep13_2_rhea,4;
+		close;
+	}
+	else if ((ep13_2_rhea > 3) && (ep13_2_rhea < 6)) {
+		mes "[Linguist Dictionary]";
+		mes "I heard that ^0000ffRune Midgarts Magician^000000 knows a way to conduct a research from a sample of language, would you go see him and ask him to help me?";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "The ^0000ff Rune Midgarts Magician^000000 is wandering inside of the Expedition Camp.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "It's difficult to continue this research without some more samples of language. Please do my favor.";
+		close;
+	}
+	else if (ep13_2_rhea == 6) {
+		mes "- The Linguist is writing on a paper as if he's obsessed by something -";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "...Oh, Hello there.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "I heard that you brought us a Gem with the other world's language recorded within it. Thanks to your help, decoding process is going well.";
+		mes "Actually, it's going TOO well...";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "It's a wonder that at the moment when I heard that language first-hand I could decode it flawlessly in spite of myself. It must be the blessing of Goddess Freya.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "But the problem is...";
+		mes "How are we going to put together this tremendous data and make it into a portable translator... I just can't figure out how.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "I wonder what the Mechanic Engineer from the Schwaltzvalt Republic would think... Would you be kind to go ask him?";
+		completequest 8247;
+		setquest 8248;
+		set ep13_2_rhea,7;
+		close;
+	}
+	else if ((ep13_2_rhea > 6) && (ep13_2_rhea < 13)) {
+		mes "[Linguist Dictionary]";
+		mes "Just how are we going to put together these tremendous data and make it into a portable translator...I just can't figure out how.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "I wonder what the Mechanic Engineer from the Republic of Schwartzwalt would think...Would you be kind to go ask him?";
+		close;
+	}
+	else if (ep13_2_rhea > 12) {
+		mes "[Linguist Dictionary]";
+		mes "So, Finally we were able to make a translator!";
+		mes "How is it working? Isn't there any problem with it?";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "I hope this translator would help you with your journey.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "However, Although using a translator is important, the basics of language and communication is that you should try to understand others.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "You should not just rely everything on a mere machine...don't forget to be understanding. Enjoy your journey in the otherworld with that translator.";
+		close;
+	}
+	else {
+		mes "[Linguist Dictionary]";
+		mes "So, Finally we were able to make a translator!";
+		mes "How is it working? Isn't there any problem with it?";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "I hope this translator would help you with your journey.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "However, Although using a translator is important, the basics of language and communication is that you should try to understand others.";
+		next;
+		mes "[Linguist Dictionary]";
+		mes "You should not just rely everything on a mere machine...don't forget to be understanding. Enjoy your journey in the otherworld with that translator.";
+		close;
+	}
+}
+
+mid_camp,147,256,3	script	Rune Midgarts Magician#1	735,{
+	if (ep13_2_rhea < 4) {
+		mes "[Magician Whisper]";
+		mes "To store a tremendous amount of information, well, it's impossible with existing technology.";
+		next;
+		mes "[Magician Whisper]";
+		mes "Ancient Rune Midgarts Kingdom used a some kind of magic onto a magical gem to store large information...Using a gem as a storage...";
+		next;
+		mes "[Magician Whisper]";
+		mes "Oh, pardon me, you have such a comfortable atmosphere and I involuntarily spoke to you. Who might you be?";
+		close;
+	}
+	else if (ep13_2_rhea == 4) {
+		mes "[Magician Whisper]";
+		mes "To store a tremendous amount of information, well, it's impossible with existing technology.";
+		next;
+		mes "[Magician Whisper]";
+		mes "The Ancient Rune-Midgarts Kingdom used some kind of magic on a magical gem to store large amounts of information... Using a gem as storage...";
+		next;
+		mes "[Magician Whisper]";
+		mes "Oh, pardon me, you have such a comfortable atmosphere and I involuntarily spoke to you. Who might you be?";
+		next;
+		select("Uh, Mr. Dictionary sent...");
+		mes "[Magician Whisper]";
+		mes "Oh? You mean that Linguist from the Arunafeltz. And that means we need a Recorded Language Sample.";
+		next;
+		mes "[Magician Whisper]";
+		mes "Hmmm... Actually, I've buried magical gems which records sound waves with its magical power, near their territory...to gather information about their language.";
+		next;
+		mes "[Magician Whisper]";
+		mes "But, Assassins who were in charge of burying those gems... They are working on some other mission, so they can't go and retrieve those gems.";
+		next;
+		mes "[Magician Whisper]";
+		mes "Without someone do us a favor and retrieve those gems, there's no way I could give you the sample.";
+		next;
+		switch(select("Then should I come back later?:What if I go and retrieve them?")) {
+		case 1:
+			mes "[Magician Whisper]";
+			mes ".............Sure, you could wait for 100 years...";
+			next;
+			mes "["+ strcharinfo(0) +"]";
+			mes "What?";
+			next;
+			mes "[Magician Whisper]";
+			mes "Ah, No, No, It's nothing.";
+			next;
+			break;
+		case 2:
+			break;
+		}
+		mes "[Magician Whisper]";
+		mes "If you could do that, it will save us whole lot of time and that'd be good for us! Wouldn't it? Don't you think so?";
+		next;
+		mes "[Magician Whisper]";
+		mes "I belive you've met those two alien races out there?";
+		mes "Assassins buried Magical Gems near their villages without them noticing.";
+		next;
+		mes "[Magician Whisper]";
+		mes "First Gem is buried under the Mushroom-like structure near Fairy's village.";
+		next;
+		mes "[Magician Whisper]";
+		mes "And the Second Gem is buried under the tree near Giant's village.";
+		next;
+		mes "[Magician Whisper]";
+		mes "Bring back those two gems and that would help me greatly.";
+		next;
+		mes "[Magician Whisper]";
+		mes "Well, I can't force you to do it if you are too busy with other matters...";
+		next;
+		mes "[Magician Whisper]";
+		mes "There's an old saying, The one who's thirsty will dig for a well...";
+		next;
+		mes "[Magician Whisper]";
+		mes "I almost forgot! You should be careful when you dig for the Gem.";
+		mes "Assassins installed a trap to protect Gems as they bury them.";
+		completequest 8245;
+		setquest 8246;
+		set ep13_2_rhea,5;
+		close;
+	}
+	else if (ep13_2_rhea == 5) {
+		set .@check_spljew00,checkquest(8241);
+		set .@check_manjew00,checkquest(8242);
+		if ((.@check_spljew00 > 0) && (.@check_manjew00 > 0)) {
+			if (countitem(7575) > 0) && (countitem(7576) > 0) {
+				mes "[Magician Whisper]";
+				mes "Wow, You are back already!";
+				mes "Well then, let me see them!";
+				next;
+				mes "- As you handed over the Gem, -";
+				mes "- he examined it throughly-";
+				next;
+				mes "[Magician Whisper]";
+				mes "Hmm...";
+				mes "There's lots of noises caught in, but I think I could extract a voice in no time.";
+				next;
+				mes "[Magician Whisper]";
+				mes "I will extract a voice recorded in this gem and send them to the Linguist from Arunafeltz.";
+				next;
+				mes "[Magician Whisper]";
+				mes "It looks like there's many kind of convenient machines. Voices I've extracted can be sent directly to the Linguist from Arunafeltz by using this recording machine.";
+				next;
+				mes "[Magician Whisper]";
+				mes "So I will be ok by on my own. Thank you for your trouble.";
+				completequest 8241;
+				completequest 8242;
+				completequest 8246;
+				setquest 8247;
+				delitem 7575,1; //Red_Jewel_
+				delitem 7576,1; //Blue_Jewel_
+				set ep13_2_rhea,6;
+				close;
+			}
+			else {
+				// custom translation
+				mes "[Magician Whisper]";
+				mes "Ah, that was quick.";
+				next;
+				mes "[Magician Whisper]";
+				mes "Please give meh the gem. I will extract the voice record inside the gem, then give it to the Linguist from Arunafeltz.";
+				next;
+				mes "[Magician Whisper]";
+				mes "...... But.... where's the gem?";
+				close;
+			}
+		}
+		else {
+			mes "[Magician Whisper]";
+			mes "First Gem is buried under the Mushroom-like structure near Fairy's village.";
+			next;
+			mes "[Magician Whisper]";
+			mes "And the Second Gem is buried under the tree near Giant's village.";
+			next;
+			mes "[Magician Whisper]";
+			mes "Bring back those two gems and that would help me greatly.";
+			next;
+			mes "[Magician Whisper]";
+			mes "Well, I can't force you to do it if you are too busy with other matters...";
+			next;
+			mes "[Magician Whisper]";
+			mes "There's an old saying, The one who's thirsty will dig for a well...";
+			next;
+			mes "[Magician Whisper]";
+			mes "I almost forgot! You should be careful when you dig for the Gem.";
+			mes "Assassins installed a trap to protect Gems as they bury them.";
+			close;
+		}
+	}
+	else if ((ep13_2_rhea > 5) && (ep13_2_rhea < 8)) {
+		mes "[Magician Whisper]";
+		mes "Well, if you are not busy at the time, please go check how's the Linguist from Arunafeltz's research is coming up.";
+		next;
+		mes "[Magician Whisper]";
+		mes "I should be working on extracting voice data and send them to the Linguist from Arunafeltz.";
+		close;
+	}
+	else if (ep13_2_rhea == 8) {
+		mes "[Magician Whisper]";
+		mes "Hmm...There's more data than we thought...";
+		next;
+		mes "[Magician Whisper]";
+		mes "Of course it is a piece of cake to turn data into magical power and put'em into a gem...Most important thing is, I don't know if there's a jewl that has enough storage space to store that much of data...";
+		next;
+		mes "[Magician Whisper]";
+		mes "I heard that cold side of a field outside of the Expedition Camp, ^0000ff Mysterious Ore that can't be found in the Midgart.";
+		next;
+		mes "[Magician Whisper]";
+		mes "Only if we could find that ore, it would make this work much easier... What do you think about that? Do you think you could go and find one for me?";
+		next;
+		mes "[Magician Whisper]";
+		mes "While you are gone, I will organize the data to put into the Gem.";
+		completequest 8249;
+		setquest 8250;
+		set ep13_2_rhea,9;
+		close;
+	}
+	else if (ep13_2_rhea == 9) {
+		if (countitem(6048) > 0) {
+			mes "[Magician Whisper]";
+			mes "Oh! Is this that ore?";
+			next;
+			mes "[Magician Whisper]";
+			mes "This sure is interesting. It has not been refined yet, but I can sense mysterious power from this ore.";
+			next;
+			mes "[Magician Whisper]";
+			mes "It's something like... the special wave with a life force.";
+			next;
+			mes "[Magician Whisper]";
+			mes "Let's test and see see how much magical power it could store.";
+			next;
+			mes "- He closed his eyes and chanted a spell -";
+			mes "- with the ore on his hand. -";
+			next;
+			mes "[Magician Whisper]";
+			mes "Lumos Nox Densaugeo Dissendium Diffindo Engorgio Mobiliarbus Expecto patronum!!!!";
+			next;
+			specialeffect EF_FLASHER; // 99 : "Rune Midgarts Magician#ep132_rhea03" EF_FLASHER
+			emotion e_gasp;
+			mes "[Magician Whisper]";
+			mes "Wow!!! Th, This is unbelievable!";
+			next;
+			mes "[Magician Whisper]";
+			mes "An ore with this much storage space, only a size of fingernail could store both of two languages!";
+			next;
+			mes "[Magician Whisper]";
+			mes "Could you wait for a minute?";
+			mes "Take some rest while I craft this ore into a gem and put the magical data into it. You look exhausted...";
+			completequest 8250;
+			setquest 8251;
+			delitem 6048,1; //Unidentified_Mineral
+			set ep13_2_rhea,10;
+			close;
+		}
+		else {
+			mes "[Magician Whisper]";
+			mes "I heard that the cold side of the field outside of the Expedition Camp has a Unidentified Mineral that can't be found in Rune Midgard.";
+			next;
+			mes "[Magician Whisper]";
+			mes "Only if we could find that ore, it would make this work much easier... What do you think about that? Do you think you could go and find one for me?";
+			next;
+			mes "[Magician Whisper]";
+			mes "While you are gone, I will organize the data to put into the Gem.";
+			close;
+		}
+	}
+	else if (ep13_2_rhea == 10) {
+		if (rand(1,5) == 3) {
+			mes "- His face turned a bit pale, -";
+			mes "- He looked pleased as he saw you -";
+			next;
+			mes "[Magician Whisper]";
+			mes "Ah! Just in time!";
+			next;
+			mes "[Magician Whisper]";
+			mes "I've just finished infusing the magical power.";
+			mes "From now on, it's up to the Mechanic Engineer from Schwartzwalt to combined this gem with a machine to make it work as a real-time translator.";
+			next;
+			mes "[Magician Whisper]";
+			mes "I will ask you one last favor.";
+			mes "Please deliver this crafted gem to the Mechanic Engineer from Schwartzwalt.";
+			next;
+			mes "[Magician Whisper]";
+			mes "I'm really sorry to ask you so many favors..., Ah...I've used up too much magical power...I should rest for a while.";
+			next;
+			mes "- ^0000ff Received the Crafted Gem ^000000 -";
+			mes "- ^0000ff from Whisper !!^000000 -";
+			completequest 8251;
+			setquest 8252;
+			set ep13_2_rhea,11;
+			close;
+		}
+		else {
+			mes "[Magician Whisper]";
+			mes "Could you wait for a minute?";
+			mes "Take some rest while I craft this ore into a gem and put the magical data into it. You look exhausted...";
+			close;
+		}
+	}
+	else if (ep13_2_rhea == 11) {
+		mes "[Magician Whisper]";
+		mes "Please deliver this crafted gem to the Mechanic Engineer from Schwartzwalt.";
+		next;
+		mes "[Magician Whisper]";
+		mes "I'm really sorry to ask you so many favors..., Ah...I've used up too much magical power...I should rest for a while.";
+		next;
+		mes "- He looks so sleepy and said -";
+		mes "- as he rubbing his closing eyes. -";
+		close;
+	}
+	else if (ep13_2_rhea == 12) {
+		mes "[Magician Whisper]";
+		mes "How's the translator making process going?";
+		close;
+	}
+	else if (ep13_2_rhea > 12) {
+		mes "[Magician Whisper]";
+		mes "I've just received a message that the translator is finished!";
+		next;
+		mes "[Magician Whisper]";
+		mes "We are short on the amount just yet, still it will make our advance to the other world easier!";
+		close;
+	}
+	else {
+		mes "[Magician Whisper]";
+		mes "I've just received a message that the translator is finished!";
+		next;
+		mes "[Magician Whisper]";
+		mes "We are short on the amount just yet, still it will make our advance to the other world easier!";
+		close;
+	}
+}
+
+spl_fild02,27,218,0	script	Half-buried Gem#1	844,{
+	if (ep13_2_rhea < 5) {
+		mes "- Under a round pile of earth, -";
+		mes "- there's a Red Gem -";
+		mes "- half-buried. -";
+		close;
+	}
+	else if (ep13_2_rhea == 5) {
+		set .@check_spljew00,checkquest(8241);
+		if (.@check_spljew00 == -1) {
+			mes "- Under a round pile of earth, -";
+			mes "- there's a Red Gem -";
+			mes "- half-buried. -";
+			next;
+			switch(select("Dig out the Gem:Leave it alone")) {
+			case 1:
+				break;
+			case 2:
+				mes "- You overspread some earth over the Gem -";
+				mes "- and left the Gem as it was. -";
+				next;
+				mes "["+ strcharinfo(0) +"]";
+				mes "...What the heck am I doing now...";
+				close;
+			}
+			if (rand(1,4) == 2) {
+				mes "- You dug up a pile of earth -";
+				mes "- and pulled out the Red Gem -";
+				setquest 8241;
+				getitem 7575,1; //Red_Jewel_
+				close;
+			}
+			else {
+				mes "- As you dug up a pile of earth, -";
+				mes "- a Thief Bug attacks you! -";
+				donpcevent "Half-buried Gem#1::OnDisable";
+				next;
+				mes "["+ strcharinfo(0) +"]";
+				mes "What the heck is this?!?!?!";
+				close;
+			}
+		}
+		else {
+			mes "- Small pile of earth -";
+			mes "- which you dug up the Red Gem -";
+			close;
+		}
+	}
+	else {
+		mes "- Small pile of earth -";
+		mes "- which you dug up the Red Gem -";
+		close;
+	}
+	end;
+
+
+OnInit:
+	hideoffnpc "Half-buried Gem#ep132_rhea04";
+	end;
+
+OnEnable:
+	hideoffnpc "Half-buried Gem#ep132_rhea04";
+	stopnpctimer;
+	end;
+
+OnDisable:
+	initnpctimer;
+	monster "spl_fild02",25,220,"Thief Bug",1051,10,"Half-buried Gem#1::OnMyMobDead";
+	hideonnpc "Half-buried Gem#1";
+	end;
+
+OnMyMobDead:
+	if (mobcount("spl_fild02","Half-buried Gem#1::OnMyMobDead") < 1) {
+		donpcevent "Half-buried Gem#1::OnEnable";
+		stopnpctimer;
+	}
+	end;
+
+OnTimer300000:
+	killmonster "spl_fild02","Half-buried Gem#1::OnMyMobDead";
+	donpcevent "Half-buried Gem#1::OnEnable";
+	stopnpctimer;
+	end;
+}
+
+man_fild03,227,109,0	script	Half-buried Gem#2	844,{
+	if (ep13_2_rhea < 5) {
+		mes "- Under a round pile of earth, -";
+		mes "- there's a Blue Gem -";
+		mes "- half-buried. -";
+		close;
+	}
+	else if (ep13_2_rhea == 5) {
+		set .@check_manjew00,checkquest(8242);
+		if (.@check_manjew00 == -1) {
+			mes "- Under a round pile of earth, -";
+			mes "- there's a Red Gem -";
+			mes "- half-buried. -";
+			next;
+			switch(select("Dig out the Gem:Leave it alone")) {
+			case 1:
+				break;
+			case 2:
+				mes "- You overspread some earth over the Gem -";
+				mes "- and left the Gem as it was. -";
+				next;
+				mes "["+ strcharinfo(0) +"]";
+				mes "...What the heck am I doing now...";
+				close;
+			}
+			if (rand(1,4) == 2) {
+				mes "- You dug up a pile of earth -";
+				mes "- and pulled out the Blue Gem -";
+				setquest 8242;
+				getitem 7576,1; //Blue_Jewel_
+				close;
+			}
+			else {
+				mes "- As you dug up a pile of earth, -";
+				mes "- a Thief Bug attacks you! -";
+				donpcevent "Half-buried Gem#2::OnDisable";
+				next;
+				mes "["+ strcharinfo(0) +"]";
+				mes "What the heck is this?!?!?!";
+				close;
+			}
+		}
+		else {
+			mes "- Small pile of earth -";
+			mes "- which you dug up the Blue Gem -";
+			close;
+		}
+	}
+	else {
+		mes "- Small pile of earth -";
+		mes "- which you dug up the Blue Gem -";
+		close;
+	}
+	end;
+
+OnInit:
+	hideoffnpc "Half-buried Gem#2";
+	end;
+
+OnEnable:
+	hideoffnpc "Half-buried Gem#2";
+	stopnpctimer;
+	end;
+
+OnDisable:
+	initnpctimer;
+	monster "man_fild03",227,109,"Thief Bug",1051,10,"Half-buried Gem#2::OnMyMobDead";
+	hideonnpc "Half-buried Gem#2";
+	end;
+
+OnMyMobDead:
+	if (mobcount("man_fild03","Half-buried Gem#2::OnMyMobDead") < 1) {
+		donpcevent "Half-buried Gem#2::OnEnable";
+		stopnpctimer;
+	}
+	end;
+
+OnTimer300000:
+	killmonster "man_fild03","Half-buried Gem#2::OnMyMobDead";
+	donpcevent "Half-buried Gem#2::OnEnable";
+	stopnpctimer;
+	end;
+}
+
+/*
+mid_camp,7,3,0	script	Translator Preparation#1	708,{
+	mes "[Plot13 Translator Quest Preparation]";
+	mes "Input password.";
+	next;
+	input .@input; //,0,2000;
+	if (.@input == 0) {
+		mes "[EP 13 Translator Quest Preparation]";
+		mes "Cancelled";
+		close;
+	}
+	else if (.@input == 1854) {
+		mes "[EP 13 Translator Quest Preparation]";
+		mes "I'm the provider of ep13.2 Translator Quest's quest item's NPC" <--Not my fault, they used bad chinese grammar in first place;
+		next;
+		mes "What you want?";
+		next;
+		switch(select("Finish quest:Accept fairy / giant meetup quest")) {
+		case 1:
+			mes "[EP 13 Translator Quest Preparation]";
+			mes "Acquired the report's quest completion item";
+			next;
+			mes "[EP 13 Translator Quest Preparation]";
+			mes "Current report quest's item is "+ ep13_1_edq +" ";
+			mes "Start Quest?;
+			next;
+			switch(select("Yes:No")) {
+			case 1:
+				mes "[EP 13 Translator Quest Preparation]";
+				mes "Cancelled";
+				close;
+			case 2:
+				break;
+			}
+			mes "[EP 13 Translator Quest Preparation]";
+			mes "Acquired the report's quest completion item";
+			set ep13_1_edq,14;
+			close;
+		case 2:
+			mes "[EP 13 Translator Quest Preparation]";
+			mes "Accept the fairy / giant meetup quest";
+			next;
+			mes "[EP 13 Translator Quest Preparation]";
+			mes "Start Quest?";
+			next;
+			switch(select("Yes:No")) {
+			case 1:
+				mes "[EP 13 Translator Quest Preparation]";
+				mes "Cancelled";
+				close;
+			case 2:
+				break;
+			}
+			mes "[EP 13 Translator Quest Preparation]";
+			mes "Acquired the report's quest completion item";
+			setquest 2158;
+			setquest 2159;
+			close;
+		}
+	}
+	else {
+		mes "[EP 13 Translator Quest Preparation]";
+		mes "Please try again";
+		close;
+	}
+}
+*/
\ No newline at end of file
diff --git a/npc/scripts_athena.conf b/npc/scripts_athena.conf
index 670a7e38a..1b7630037 100644
--- a/npc/scripts_athena.conf
+++ b/npc/scripts_athena.conf
@@ -19,14 +19,14 @@ npc: npc/cities/jawaii.txt
 npc: npc/cities/lighthalzen.txt
 npc: npc/cities/louyang.txt
 npc: npc/cities/lutie.txt
-//npc: npc/cities/manuk.txt
+npc: npc/cities/manuk.txt
 npc: npc/cities/morocc.txt
 npc: npc/cities/moscovia.txt
 npc: npc/cities/niflheim.txt
 npc: npc/cities/payon.txt
 npc: npc/cities/prontera.txt
 npc: npc/cities/rachel.txt
-//npc: npc/cities/splendide.txt
+npc: npc/cities/splendide.txt
 npc: npc/cities/umbala.txt
 npc: npc/cities/veins.txt
 npc: npc/cities/yuno.txt
@@ -158,7 +158,7 @@ npc: npc/quests/okolnir/godse_sch03.txt
 npc: npc/quests/okolnir/godse_sch04.txt
 npc: npc/quests/okolnir/godse_sch05.txt
 npc: npc/quests/quests_13_1.txt
-//npc: npc/quests/quests_13_2.txt
+npc: npc/quests/quests_13_2.txt
 // --------------------------------------------------------------
 // --------------------------- Guides ---------------------------
 npc: npc/guides/guides_alb.txt
@@ -233,8 +233,14 @@ npc: npc/kafras/dts_warper.txt
 //npc: npc/events/halloween_2008.txt
 //Official Halloween (2009) event (iRO)
 //npc: npc/events/halloween_2009.txt
+
+// God Item SE post-creation event.
 npc: npc/events/god_se_festival.txt
 
+//Events related to WoE SE Guild Dungeons.
+npc: npc/events/gdevent_aru.txt
+npc: npc/events/gdevent_sch.txt
+
 //Novice WoE is a kRO Event, after the event, the scripts were disabled.
 //Novice Castles don't have real dungeons. They're connected to the common ones.
 //So it's better not to uncomment this line.
diff --git a/npc/scripts_warps.conf b/npc/scripts_warps.conf
index 311e46394..ed4c0337d 100644
--- a/npc/scripts_warps.conf
+++ b/npc/scripts_warps.conf
@@ -17,6 +17,7 @@ npc: npc/warps/cities/izlude.txt
 npc: npc/warps/cities/lighthalzen.txt
 npc: npc/warps/cities/louyang.txt
 npc: npc/warps/cities/lutie.txt
+npc: npc/warps/cities/manuk.txt
 npc: npc/warps/cities/mid_camp.txt
 npc: npc/warps/cities/morroc.txt
 npc: npc/warps/cities/moscovia.txt
@@ -24,6 +25,8 @@ npc: npc/warps/cities/nameless.txt
 npc: npc/warps/cities/niflheim.txt
 npc: npc/warps/cities/payon.txt
 npc: npc/warps/cities/prontera.txt
+
+npc: npc/warps/cities/splendide.txt
 npc: npc/warps/cities/rachel.txt
 npc: npc/warps/cities/umbala.txt
 npc: npc/warps/cities/veins.txt
diff --git a/npc/warps/cities/manuk.txt b/npc/warps/cities/manuk.txt
new file mode 100644
index 000000000..c87656caa
--- /dev/null
+++ b/npc/warps/cities/manuk.txt
@@ -0,0 +1,53 @@
+//===== eAthena Script =======================================
+//= Manuk warp points.
+//===== By: ==================================================
+//= L0ne_W0lf
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= Any Athena Version; RO Episode 13.2+
+//===== Description: =========================================
+//= [Aegis Conversion]
+//= Warp Points for Manuk
+//===== Additional Comments: =================================
+//= First version.
+//============================================================
+
+manuk,311,142,0	warp	manuk1-1	1,1,man_in01,277,41
+man_in01,275,41,0	warp	manuk1-2	1,1,manuk,309,142
+manuk,310,201,0	warp	manuk2-1	1,1,man_in01,358,121
+man_in01,358,119,0	warp	manuk2-2	1,1,manuk,310,199
+manuk,255,110,0	warp	manuk3-1	1,1,man_in01,7,61
+man_in01,5,61,0	warp	manuk3-2	1,1,manuk,253,110
+man_in01,318,17,0	warp	manuk3-4	1,1,man_in01,388,16
+man_in01,390,16,0	warp	manuk3-5	1,1,man_in01,316,17
+man_in01,328,141,0	warp	manuk3-6	1,1,man_in01,324,220
+man_in01,324,222,0	warp	manuk3-7	1,1,man_in01,328,139
+man_in01,11,19,0	warp	manuk3-8	1,1,man_in01,182,32
+man_in01,182,34,0	warp	manuk3-9	1,1,man_in01,11,21
+manuk,257,228,0	warp	manuk4-1	1,1,man_in01,130,267
+man_in01,130,265,0	warp	manuk4-2	1,1,manuk,258,226
+manuk,265,237,0	warp	manuk5-1	1,1,man_in01,180,267
+man_in01,180,265,0	warp	manuk5-2	1,1,manuk,267,235
+manuk,276,247,0	warp	manuk6-1	1,1,man_in01,230,267
+man_in01,230,265,0	warp	manuk6-2	1,1,manuk,276,245
+manuk,288,249,0	warp	manuk7-1	1,1,man_in01,280,267
+man_in01,280,265,0	warp	manuk7-2	1,1,manuk,289,247
+manuk,302,243,0	warp	manuk8-1	1,1,man_in01,330,267
+man_in01,330,265,0	warp	mauk8-2	1,1,manuk,300,241
+manuk,311,234,0	warp	manuk9-1	1,1,man_in01,380,267
+man_in01,380,265,0	warp	manuk9-2	1,1,manuk,309,232
+manuk,253,195,0	warp	manuk10-1	1,1,man_in01,24,284
+man_in01,26,284,0	warp	manuk10-2	1,1,manuk,255,195
+manuk,235,124,0	warp	manuk11-1	1,1,man_in01,70,171
+man_in01,70,169,0	warp	manuk11-2	1,1,manuk,235,122
+manuk,279,115,0	warp	manuk12-1	1,1,man_in01,123,224
+man_in01,123,226,0	warp	manuk12-2	1,1,manuk,278,117
+man_in01,5,275,0	warp	manuk12-3	1,1,man_in01,7,221
+man_in01,7,219,0	warp	manuk12-4	1,1,man_in01,7,276
+man_in01,22,275,0	warp	manuk12-5	1,1,man_in01,76,279
+man_in01,74,279,0	warp	manuk12-6	1,1,man_in01,20,275
+man_in01,61,190,0	warp	manuk12-7	1,1,man_in01,63,238
+man_in01,61,238,0	warp	manuk12-8	1,1,man_in01,61,188
+man_in01,61,173,0	warp	manuk12-9	1,1,man_in01,20,173
+man_in01,20,175,0	warp	manuk12-10	1,1,man_in01,61,175
diff --git a/npc/warps/cities/splendide.txt b/npc/warps/cities/splendide.txt
new file mode 100644
index 000000000..55b610785
--- /dev/null
+++ b/npc/warps/cities/splendide.txt
@@ -0,0 +1,55 @@
+//===== eAthena Script =======================================
+//= Splendide warp points.
+//===== By: ==================================================
+//= L0ne_W0lf
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= Any Athena Version; RO Episode 13.2+
+//===== Description: =========================================
+//= [Aegis Conversion]
+//= Warp Points for Splendide
+//===== Additional Comments: =================================
+//= First version.
+//============================================================
+
+splendide,240,317,0	warp	splendide1-1	1,1,spl_in02,224,232
+spl_in02,222,232,0	warp	splendide1-2	1,1,splendide,238,317
+splendide,230,299,0	warp	splendide2-1	1,1,spl_in02,207,195
+spl_in02,207,193,0	warp	splendide2-2	1,1,splendide,228,299
+splendide,214,310,0	warp	splendide3-1	1,1,spl_in02,180,223
+spl_in02,180,221,0	warp	splendide3-2	1,1,splendide,214,308
+splendide,157,316,0	warp	splendide4-1	1,1,spl_in02,108,213
+spl_in02,108,211,0	warp	splendide4-2	1,1,splendide,157,314
+splendide,119,324,0	warp	splendide5-1	1,1,spl_in02,61,229
+spl_in02,62,227,0	warp	splendide5-2	1,1,splendide,119,322
+splendide,286,128,0	warp	splendide6-1	1,1,spl_in02,236,63
+spl_in02,234,64,0	warp	splendide6-2	1,1,splendide,284,129
+splendide,259,112,0	warp	splendide7-1	1,1,spl_in02,189,41
+spl_in02,187,42,0	warp	splendide7-2	1,1,splendide,259,114
+splendide,286,229,0	warp	splendide8-1	1,1,spl_in02,137,66
+spl_in02,135,66,0	warp	splendide8-2	1,1,splendide,284,228
+splendide,299,251,0	warp	splendide9-1	1,1,spl_in02,140,93
+spl_in02,139,91,0	warp	splendide9-2	1,1,splendide,297,250
+splendide,132,68,0	warp	splendide10-1	1,1,spl_in02,45,52
+spl_in02,44,54,0	warp	splendide10-2	1,1,splendide,133,70
+splendide,197,193,0	warp	splendide11-1	1,1,spl_in01,110,19
+spl_in01,110,17,0	warp	splendide11-2	1,1,splendide,197,191
+spl_in01,124,38,0	warp	splendide11-3	1,1,spl_in01,236,36
+spl_in01,238,36,0	warp	splendide11-4	1,1,spl_in01,126,38
+spl_in01,95,38,0	warp	splendide11-5	1,1,spl_in01,199,36
+spl_in01,197,36,0	warp	splendide11-6	1,1,spl_in01,93,38
+spl_in01,218,22,0	warp	splendide11-7	1,1,spl_in01,310,19
+spl_in01,310,17,0	warp	splendide11-8	1,1,spl_in01,218,20
+splendide,170,168,0	warp	splendide12-1	1,1,spl_in01,190,301
+spl_in01,190,299,0	warp	splendide12-2	1,1,splendide,170,166
+spl_in01,191,320,0	warp	splendide12-3	1,1,spl_in01,276,334
+spl_in01,276,336,0	warp	splendide12-4	1,1,spl_in01,190,322
+splendide,156,210,0	warp	splendide13-1	1,1,spl_in01,171,189
+spl_in01,171,187,0	warp	splendide13-2	1,1,splendide,156,208
+splendide,198,240,0	warp	splendide14-1	1,1,spl_in01,110,301
+spl_in01,110,299,0	warp	splendide14-2	1,1,splendide,198,238
+splendide,238,212,0	warp	splendide15-1	1,1,spl_in01,30,215
+spl_in01,30,213,0	warp	splendide15-2	1,1,splendide,237,210
+splendide,228,164,0	warp	splendide16-1	1,1,spl_in01,30,301
+spl_in01,30,299,0	warp	splendide16-2	1,1,splendide,228,162
diff --git a/npc/warps/fields/man_fild.txt b/npc/warps/fields/man_fild.txt
index d9f46d646..e7956da43 100644
--- a/npc/warps/fields/man_fild.txt
+++ b/npc/warps/fields/man_fild.txt
@@ -17,3 +17,8 @@
 man_fild01,35,232,0	warp	man_fild01-2	1,1,mid_camp,341,176
 man_fild01,103,55,0	warp	man_fild01-3	1,1,man_fild03,84,366
 man_fild03,84,369,0	warp	man_fild03-1	1,1,man_fild01,103,58
+
+man_fild01,372,230,0	warp	man_fild01-4	1,1,man_fild02,34,261
+man_fild02,32,261,0	warp	man_fild02-1	1,1,man_fild01,369,230
+man_fild02,139,41,0	warp	man_fild02-2	1,1,manuk,112,356
+manuk,114,357,0	warp	man_fild02-3	1,1,man_fild02,138,43
diff --git a/npc/warps/fields/spl_fild.txt b/npc/warps/fields/spl_fild.txt
index 66c7e7e4a..568735158 100644
--- a/npc/warps/fields/spl_fild.txt
+++ b/npc/warps/fields/spl_fild.txt
@@ -21,3 +21,8 @@ spl_fild02,310,10,0	warp	spl_fild02-5	1,1,spl_fild03,306,376
 spl_fild03,99,373,0	warp	spl_fild02-6	1,1,spl_fild02,102,32
 spl_fild03,306,379,0	warp	spl_fild03-1	1,1,spl_fild02,311,12
 spl_fild02,103,30,0	warp	spl_fild03-2	1,1,spl_fild03,99,370
+
+spl_fild01,289,28,0	warp	spl_fild01-1	1,1,spl_fild02,292,377
+spl_fild02,6,241,0	warp	spl_fild02-7	1,1,splendide,386,251
+splendide,388,252,0	warp	spl_fild02-8	1,1,spl_fild02,8,241
+spl_fild02,293,379,0	warp	spl_fild02-9	1,1,spl_fild01,289,30