Update to last rAthena npc.

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

1 files changed, 116 insertions, 98 deletions

diff --git a/npc/quests/quests_prontera.txt b/npc/quests/quests_prontera.txt
index fba2043f3..9d207c088 100644
--- a/npc/quests/quests_prontera.txt
+++ b/npc/quests/quests_prontera.txt
@@ -1,27 +1,25 @@
-//===== rAthena Script ======================================= 
+//===== Hercules Script ======================================
 //= Quest NPCs related to Prontera
-//===== By: ================================================== 
+//===== By: ==================================================
 //= kobra_k88; L0ne_W0lf
-//===== Current Version: ===================================== 
-//= 2.8
-//===== Compatible With: ===================================== 
-//= rAthena SVN
-//===== Description: ========================================= 
+//===== Current Version: =====================================
+//= 2.9
+//===== Description: =========================================
 //= Collection of Prontera-based quests.
 //= * Culvert Access
 //= * Ph.D Hat Quest
 //= * Gaebolg Family Curse
 //===== Comments: ============================================
 //= Culvert Access:
-//= - [Aegis Conversion]
+//= - [Official Conversion]
 //= - Variable in use: MISC_QUEST (bit 8)
 //= Ph.D Hat Quest:
-//= - [Aegis Conversion]
+//= - [Official Conversion]
 //= - n/a
 //= Gaebolg Family Curse:
-//= - [Aegis Conversion]
+//= - [Official Conversion]
 //= - Variable in use: prt_curse (max 61)
-//===== Additional Comments: ================================= 
+//===== Additional Comments: =================================
 //= Fixed flower name Dreamy -> Illusion
 //= 1.2 Fixed exploit [Lupus]
 //= 1.3 Removed Duplicates [Silent]
@@ -47,11 +45,12 @@
 //= 2.5a Fixed requirements for PH D. Hat agian lol. [L0ne_W0lf]
 //= 2.6 Replaced effect numerics with constants. [L0ne_W0lf]
 //= 2.7 Corrected 'IProntera' typo. (bugreport:4522) [L0ne_W0lf]
-//= 2.8 Added renewal checks for exp distribution [Streusel]
-//============================================================ 
+//= 2.8 Updated RE/Pre-RE EXP. [Euphy]
+//= 2.9 Updated Nameless Island addition and added questlog support. [Euphy]
+//============================================================
 
-// Prontera Culvert
-//============================================================ 
+// Prontera Culvert :: prt_npc
+//============================================================
 prt_in,88,105,2	script	Recruiter	105,{
 	if (MISC_QUEST & 8) {
 		mes "[Recruiter]";
@@ -145,7 +144,7 @@ S_Volunteer:
 }
 
 prt_fild05,270,212,5	script	Culvert Guardian	105,{
-	if(MISC_QUEST & 8) {
+	if (MISC_QUEST & 8) {
 		mes "[Culvert Guardian]";
 		mes "Ah, you're one of our volunteers. This is the entrance of the Prontera Culvert.";
 		mes "Do you wish to";
@@ -165,8 +164,8 @@ prt_fild05,270,212,5	script	Culvert Guardian	105,{
 	close;
 }
 
-// Ph.D Hat Quest
-//============================================================ 
+// Ph.D Hat Quest :: npc_6cript
+//============================================================
 prt_in,38,108,4	script	Teacher	53,{
 	if ((countitem(710) > 0) && (countitem(703) > 0) && (countitem(704) > 0) && (countitem(708) > 0)) {
 		mes "[Teacher]";
@@ -249,8 +248,8 @@ prt_in,38,108,4	script	Teacher	53,{
 	}
 }
 
-// Gaebolg Family Curse
-//============================================================ 
+// Gaebolg Family Curse :: prt_curse
+//============================================================
 prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 	callsub S_CheckWeight; //Check Player's weight
 	if (BaseLevel > 59) {
@@ -280,7 +279,7 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 				mes ".........?";
 				next;
 				mes "[Busy-Looking Boy]";
-				if (sex) {
+				if (Sex) {
 					mes "Ack! You're that clumsy";
 					mes "dude who made me drop";
 				}
@@ -291,7 +290,7 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 				mes "all of those books earlier!";
 				mes "Wait, you ditched me before,";
 				mes "so why act all concerned now?";
-				Emotion e_gasp;
+				emotion e_gasp;
 			}
 			else {
 				mes "[Busy-Looking Boy]";
@@ -306,7 +305,7 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 			next;
 			select("Well, I, um...");
 			mes "[Busy-Looking Boy]";
-			if (sex) {
+			if (Sex) {
 				mes "Yeah... A real";
 				mes "man wouldn't have";
 				mes "ditched back then";
@@ -329,10 +328,10 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 			mes "it was a natural reflex!^000000";
 			next;
 			Specialeffect EF_HITDARK;
-			Emotion e_omg;
+			emotion e_omg;
 			mes "^3355FF*BAM!*^000000";
 			next;
-			Emotion e_omg;
+			emotion e_omg;
 			mes "[Busy-Looking Boy]";
 			mes "Ack! Those books...!";
 			mes "It took me so long to";
@@ -344,13 +343,13 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 			mes "arrange these nicely";
 			mes "out of the bottom of";
 			mes "my freakin' heart.";
-			Emotion e_lv,1;
+			emotion e_lv,1;
 			next;
 			mes "[Busy-Looking Boy]";
 			mes "...";
 			mes "......";
 			mes ".........";
-			Emotion e_dots;
+			emotion e_dots;
 			next;
 			mes "[Busy-Looking Boy]";
 			mes "Huh...?";
@@ -372,7 +371,7 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 			mes "easily, so it scares me to";
 			mes "death to ride the Airship";
 			mes "all the way to Juno.";
-			Emotion e_dots;
+			emotion e_dots;
 			next;
 			mes "[Busy-Looking Boy]";
 			mes "Now I'm in trouble!";
@@ -380,7 +379,7 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 			mes "time I just can't help it.";
 			mes "There's nothing I can do!";
 			mes "Oh, I'm gonna lose this job!";
-			Emotion e_sob;
+			emotion e_sob;
 			next;
 			mes "[Busy-Looking Boy]";
 			mes "Wait... You adventurers";
@@ -396,7 +395,7 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 			mes "It's none of your ";
 			mes "business, I know, but";
 			mes "I'm just so desperate...";
-			Emotion e_sob;
+			emotion e_sob;
 			set prt_curse,2;
 			close;
 		}
@@ -408,7 +407,7 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 			mes "Summon all my courage...";
 			mes "and b-board that Airship!";
 			mes "Argh! No, I can't do it!";
-			Emotion e_dots;
+			emotion e_dots;
 			next;
 			callsub S_GetBooks;
 			mes "[Busy-Looking Boy]";
@@ -417,7 +416,7 @@ prontera,248,212,3	script	Busy Boy#prt	706,3,3,{
 			mes "That guy's been waiting";
 			mes "for me to deliver his books";
 			mes "for quite a while now...";
-			Emotion e_sob;
+			emotion e_sob;
 			close;
 		}
 		else if (prt_curse == 3) {
@@ -457,7 +456,7 @@ OnTouch:
 			mes "Hey, look out!";
 			mes "Can't you be more";
 			mes "careful?! Geeeeez!";
-			Emotion e_ag;
+			emotion e_ag;
 			next;
 			mes "["+strcharinfo(0)+"]";
 			mes "Oops, I'm so sorry.";
@@ -506,7 +505,7 @@ OnTouch:
 			mes "easily, so it scares me to";
 			mes "death to ride the Airship";
 			mes "all the way to Juno.";
-			Emotion e_dots;
+			emotion e_dots;
 			next;
 			mes "[Busy-Looking Boy]";
 			mes "Now I'm in trouble!";
@@ -514,7 +513,7 @@ OnTouch:
 			mes "time I just can't help it.";
 			mes "There's nothing I can do!";
 			mes "Oh, I'm gonna lose this job!";
-			Emotion e_sob;
+			emotion e_sob;
 			next;
 			mes "[Busy-Looking Boy]";
 			mes "Wait... You adventurers";
@@ -530,7 +529,7 @@ OnTouch:
 			mes "It's none of your ";
 			mes "business, I know, but";
 			mes "I'm just so desperate...";
-			Emotion e_sob;
+			emotion e_sob;
 			set prt_curse,2;
 			close;
 		}
@@ -624,7 +623,7 @@ yuno,311,195,3	script	Historian#prt01	754,{
 		mes "[Historian]";
 		mes "GRRRRRRRRR!";
 		mes "Where are my books?!";
-		Emotion e_ag;
+		emotion e_ag;
 		next;
 		select("Are you alright?");
 		mes "[Historian]";
@@ -655,7 +654,7 @@ yuno,311,195,3	script	Historian#prt01	754,{
 		}
 		else {
 			select("Oh, I'm delivering the books for him.");
-			Emotion e_what;
+			emotion e_what;
 			mes "[Historian]";
 			mes "Ah, really?";
 			mes "Great, you're here!";
@@ -812,7 +811,7 @@ yuno,311,195,3	script	Historian#prt01	754,{
 		mes "ruling the kingdom, the 7 warriors agreed to hold a contest amongst";
 		mes "their families each generation to prevent royal corruption.";
 		next;
-		Emotion e_swt2;
+		emotion e_swt2;
 		mes "[Historian]";
 		mes "Oh... Not too excited";
 		mes "about history, huh? Well,";
@@ -957,7 +956,7 @@ morocc_in,45,126,3	script	Historian#prt02	702,{
 		mes "can't be good for my skin...";
 		mes "Ooh, I wish I were back home";
 		mes "in the Schwaltzvalt Republic~";
-		Emotion e_sob;
+		emotion e_sob;
 		next;
 		mes "[Historian Rodafrian]";
 		mes "Hello there.";
@@ -1208,11 +1207,11 @@ morocc_in,45,126,3	script	Historian#prt02	702,{
 			mes "that you have learned to";
 			mes "Rodafrian, choosing not";
 			mes "to withhold any secrets.^000000";
-			Emotion e_ic;
+			emotion e_ic;
 			next;
 			mes "[Historian Rodafrian]";
 			mes ".....................!";
-			Emotion e_gasp;
+			emotion e_gasp;
 			next;
 			mes "[Historian Rodafrian]";
 			mes "Thank you for sharing that";
@@ -1251,10 +1250,13 @@ morocc_in,45,126,3	script	Historian#prt02	702,{
 			mes "that she might spread around!";
 			mes "Oh well, I guess I better head";
 			mes "back to the priests...)^000000";
-			if (prt_curse == 30) 
+			if (prt_curse == 30)  {
 				set prt_curse,31;
-			else 
+				changequest 18042,18044;
+			} else {
 				set prt_curse,60;
+				changequest 18051,18052;
+			}
 			close;
 		}
 
@@ -1279,10 +1281,13 @@ morocc_in,45,126,3	script	Historian#prt02	702,{
 		mes "through Karlomoff's report.";
 		mes "For now, it would be best";
 		mes "to return to Father Bamph.^000000";
-		if (prt_curse == 30)
+		if (prt_curse == 30) {
 			set prt_curse,40;
-		else
+			changequest 18042,18045;
+		} else {
 			set prt_curse,56;
+			completequest 18051;
+		}
 		close;
 	}
 	else if (prt_curse == 31 || prt_curse == 40) {
@@ -1294,7 +1299,7 @@ morocc_in,45,126,3	script	Historian#prt02	702,{
 		close;
 	}
 	else if (prt_curse == 56) {
-		Emotion e_an;
+		emotion e_an;
 		mes "[Historian Rodafrian]";
 		mes "I just paid a visit to";
 		mes "Karlomoff and gave him";
@@ -1305,7 +1310,7 @@ morocc_in,45,126,3	script	Historian#prt02	702,{
 		close;
 	}
 	else if (prt_curse == 60) {
-		Emotion e_an;
+		emotion e_an;
 		mes "[Historian Rodafrian]";
 		mes "I just aid a visit to";
 		mes "Karlomoff and gave him";
@@ -1357,6 +1362,7 @@ S_GiveName:
 	mes "for the sake of my research...";
 	if (getarg(0) == 1) delitem 7342,1; //File01
 	set prt_curse,8;
+	changequest 18031,18032;
 	close;
 }
 
@@ -1495,6 +1501,7 @@ mjolnir_01,135,168,3	script	Historian#prt03	754,{
 		mes "for. Good luck in your";
 		mes "travels, adventurer.";
 		set prt_curse,11;
+		changequest 18032,18033;
 		close;
 	}
 	else {
@@ -1935,8 +1942,9 @@ mjolnir_01,316,268,3	script	Exhausted-Looking Woman	879,{
 		mes "I should deliver these";
 		mes "herbs to Prontera Church";
 		mes "before I talk to Rodafrian.)^000000";
-		getitem 7432,1;
+		getitem 7432,1; //Leather_Pouch
 		set prt_curse,13;
+		changequest 18033,18034;
 		close;
 	}
 	else if (prt_curse > 12 && prt_curse < 16) {
@@ -1988,7 +1996,7 @@ mjolnir_01,316,268,3	script	Exhausted-Looking Woman	879,{
 		mes "with death. But the royal family and the Prontera Church took";
 		mes "mercy on me, and allowed";
 		mes "me to live here in exile.";
-		Emotion e_dots;
+		emotion e_dots;
 		next;
 		mes "[Bonnie Imbullea]";
 		mes "I began to sing this song";
@@ -2003,7 +2011,7 @@ mjolnir_01,316,268,3	script	Exhausted-Looking Woman	879,{
 		mes "a maid found a fragment of a";
 		mes "Red Gemstone while cleaning";
 		mes "the secret ceremonial grounds.";
-		Emotion e_gasp,1;
+		emotion e_gasp,1;
 		next;
 		mes "[Bonnie Imbullea]";
 		mes "I always thought it";
@@ -2035,6 +2043,7 @@ mjolnir_01,316,268,3	script	Exhausted-Looking Woman	879,{
 		mes "and let Father Bamph";
 		mes "know about this information.)^000000";
 		set prt_curse,17;
+		changequest 18035,18036;
 		close;
 	}
 	else if (prt_curse == 17) {
@@ -2109,14 +2118,19 @@ mjolnir_01,316,268,3	script	Exhausted-Looking Woman	879,{
 		mes "I can finally free myself from";
 		mes "this burdensome guilt...";
 		mes "Thank you, kind adventurer~";
-		if (prt_curse == 35) set prt_curse,36;
-		else if (prt_curse == 44) set prt_curse,45;
-		else {
+		if (prt_curse == 35) {
+			set prt_curse,36;
+			completequest 18050;
+		} else if (prt_curse == 44) {
+			set prt_curse,45;
+			completequest 18049;
+		} else {
 			next;
 			mes "^3355FFNow, you can return to";
 			mes "Rodafrian, the historian";
 			mes "stationed in Morroc.^000000";
 			set prt_curse,55;
+			changequest 18049,18051;
 		}
 
 		close;
@@ -2246,7 +2260,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "sent this adventurer here";
 		mes "for a favor, it probably means";
 		mes "she trusts this person. Besides, we need somebody to carry out";
-		if (sex)
+		if (Sex)
 			mes "this task for us. Why not him?";
 		else
 			mes "this task for us. Why not her?";
@@ -2299,7 +2313,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "at a young age^000000. That is";
 		mes "Jormungand's curse and";
 		mes "the royal family's secret.";
-		Emotion e_omg,1;
+		emotion e_omg,1;
 		next;
 		mes "["+strcharinfo(0)+"]";
 		mes "What...?!";
@@ -2362,7 +2376,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "complicated. Please";
 		mes "listen to what we have";
 		mes "to ask from here on...";
-		Emotion e_dots;
+		emotion e_dots;
 		set prt_curse,15;
 		close;
 	}
@@ -2374,7 +2388,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "looking marks on their bodies.";
 		mes "It almost looked as if they";
 		mes "were growing snake scales.";
-		Emotion e_gasp,1;
+		emotion e_gasp,1;
 		next;
 		mes "["+strcharinfo(0)+"]";
 		mes "Wait, they grew snake";
@@ -2443,6 +2457,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "remember anything that happened";
 		mes "after the exorcism failed...";
 		set prt_curse,16;
+		changequest 18034,18035;
 		close;
 	}
 	else if (prt_curse == 16) {
@@ -2483,6 +2498,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "within the bookshelf and";
 		mes "I will meet you there.";
 		set prt_curse,18;
+		changequest 18036,18037;
 		close;
 	}
 	else if (prt_curse > 17 && prt_curse < 22) {
@@ -2519,6 +2535,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "we can verify whether poison";
 		mes "was used to kill the princes?";
 		set prt_curse,23;
+		changequest 18039,18040;
 		close;
 	}
 	else if (prt_curse == 23) {
@@ -2552,6 +2569,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "to the secret ceremonial grounds as soon as you can? I will wait";
 		mes "over there for you once again.";
 		set prt_curse,32;
+		changequest 18044,18046;
 		close;
 	}
 	else if (prt_curse == 32 || prt_curse == 33 || prt_curse == 41 || prt_curse == 42 || prt_curse == 51 || prt_curse == 52) {
@@ -2592,6 +2610,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "you for all of your help. I'm very grateful for what you have done,";
 		mes "adventurer. May safety accompany you on all of your journeys.";
 		set prt_curse,35;
+		changequest 18047,18050;
 		close;
 	}
 	else if (prt_curse > 34 && prt_curse < 40 && !aru_monas) {
@@ -2624,6 +2643,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "to the secret ceremonial grounds as soon as you can? I will wait";
 		mes "over there for you once again.";
 		set prt_curse,41;
+		changequest 18045,18046;
 		close;
 	}
 	else if (prt_curse == 43 || prt_curse == 53) {
@@ -2661,12 +2681,12 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "that I cannot personally thank";
 		mes "you for all of your help. I'm very grateful for what you have done,";
 		mes "adventurer. May safety accompany you on all of your journeys.";
-		if (prt_curse == 43) set prt_curse,44;
-		else set prt_curse,54;
-		if(checkre(0))
-			getexp 160000,0;
+		if (prt_curse == 43)
+			set prt_curse,44;
 		else
-			getexp 1600000,0;
+			set prt_curse,54;
+		changequest 18047,18049;
+		getexp (checkre(3))?90000:1600000,0;
 		close;
 	}
 	else if (prt_curse > 43 && prt_curse < 50 && !aru_monas) {
@@ -2701,6 +2721,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "to the secret ceremonial grounds as soon as you can? I will wait";
 		mes "over there for you once again.";
 		set prt_curse,51;
+		changequest 18043,18046;
 		close;
 	}
 	else if (prt_curse == 60) {
@@ -2755,12 +2776,20 @@ prt_church,185,106,3	script	Father Bamph	60,{
 		mes "secret ceremonial grounds";
 		mes "from now on. Thanks again for your help, "+strcharinfo(0)+".";
 		set prt_curse,61;
+		completequest 18052;
 		close;
 	}
 	else {
 		if (prt_curse == 36 || prt_curse == 45 || prt_curse == 56 || prt_curse == 61) {
 // Begin Nameless Island Access Quest Addition
-			if (aru_monas == 1) {
+			if (aru_monas == 0) {
+				mes "[Father Bamph]";
+				mes "I'm sorry, but would it";
+				mes "be alright if we talked";
+				mes "later? I have to handle";
+				mes "a very important task now...";
+				close;
+			} else if (aru_monas == 1) {
 				mes "[Father Bamph]";
 				mes "Oh, I've been waiting for";
 				mes "you, adventurer. I'm sorry";
@@ -2791,6 +2820,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 				mes "and he will assist you in your";
 				mes "search for the lost official.";
 				set aru_monas,2;
+				changequest 17000,17001;
 				close;
 			}
 			else if (aru_monas == 2 || aru_monas == 3) {
@@ -2823,7 +2853,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 				close;
 			}
 			else if (aru_monas == 5) {
-				if (rand(1,10) == 10) {
+				if (rand(1,5) == 4) {
 					mes "[Father Bamph]";
 					mes "Well, I've considered all";
 					mes "possible scenarios. I think";
@@ -2863,8 +2893,9 @@ prt_church,185,106,3	script	Father Bamph	60,{
 					mes "Please accept this money";
 					mes "to cover your Airship fee.";
 					mes "Thank you, and good luck.";
-					set zeny,zeny+1500;
 					set aru_monas,6;
+					set Zeny, Zeny + (checkre(0)?5000:1500);
+					changequest 17002,17003;
 					close;
 				}
 				else {
@@ -2888,7 +2919,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 				mes "Everything is tied to religion.";
 				close;
 			}
-			else if (aru_monas > 6 && aru_monas < 24) {
+			else if (aru_monas > 6 && aru_monas < 25) {
 				mes "[Father Bamph]";
 				mes "Thank you so much for all";
 				mes "of your hard work. Our agents";
@@ -2898,25 +2929,7 @@ prt_church,185,106,3	script	Father Bamph	60,{
 				mes "know what we've been doing.";
 				close;
 			}
-			else if (aru_monas == 24) {
-				mes "[Father Bamph]";
-				mes "Thank you for bring us such";
-				mes "important information. With";
-				mes "your help, we were able to";
-				mes "clear a few unsolved cases.";
-				mes "We expected something like";
-				mes "this, but not this soon.";
-				next;
-				mes "[Father Bamph]";
-				mes "I fear that the Royal Court";
-				mes "has been bickering over their";
-				mes "own selfish needs. I pray that";
-				mes "it does not grow worse, devolve";
-				mes "into chaos. ^666666*Sigh*^000000 We'll see...";
-				set aru_monas,25;
-				close;
-			}
-			else if (aru_monas >= 25) {
+			else if (aru_monas == 25 || aru_monas == 26) {
 				mes "[Father Bamph]";
 				mes "Thank you for bring us such";
 				mes "important information. With";
@@ -2933,15 +2946,16 @@ prt_church,185,106,3	script	Father Bamph	60,{
 				mes "into chaos. ^666666*Sigh*^000000 We'll see...";
 				close;
 			}
-// End Nameless Island Access Quest Addition
 			else {
 				mes "[Father Bamph]";
-				mes "I'm sorry, but would it";
-				mes "be alright if we talked";
-				mes "later? I have to handle";
-				mes "a very important task now...";
+				mes "It's upsetting to me that";
+				mes "Arunafeltz has been so quiet";
+				mes "lately. You know the expression";
+				mes "about there being a quiet lull";
+				mes "before a raging storm, right?";
 				close;
 			}
+// End Nameless Island Access Quest Addition
 		}
 	}
 }
@@ -2997,10 +3011,8 @@ prt_church,184,110,3	script	Father Biscuss	60,{
 		mes "Church, I want to thank";
 		mes "you for all of your help.";
 		set prt_curse,36;
-		if(checkre(0))
-			getexp 160000,0;
-		else
-			getexp 1600000,0;
+		completequest 18048;
+		getexp (checkre(3))?90000:1600000,0;
 		close;
 	}
 	else if (prt_curse == 36) {
@@ -3158,6 +3170,7 @@ prt_church,19,111,5	script	#prince1	887,{
 		mes "note that the mark resembles";
 		mes "the scales of a serpent.^000000";
 		set prt_curse,20;
+		changequest 18037,18038;
 		close;
 	}
 	else if (prt_curse == 33 || prt_curse > 41 && prt_curse < 51 || prt_curse == 52) {
@@ -3193,7 +3206,7 @@ prt_church,21,111,5	script	#prince2	887,{
 		mes "curse, we all failed. Those";
 		mes "involved have begun to believe";
 		mes "that Odin may have abandoned us... ";
-		Emotion e_omg,1;
+		emotion e_omg,1;
 		next;
 		mes "^3355FFYou examine the body of";
 		mes "the second prince and notice";
@@ -3218,6 +3231,7 @@ prt_church,21,111,5	script	#prince2	887,{
 		mes "involved. Let's go check";
 		mes "the body of the third prince.";
 		set prt_curse,21;
+		changequest 18038,18039;
 		close;
 	}
 	else if (prt_curse == 33 || prt_curse > 41 && prt_curse < 51 || prt_curse == 52) {
@@ -3328,6 +3342,7 @@ prt_church,24,111,5	script	#prince3	887,{
 			if (prt_curse == 32) set prt_curse,33;
 			else if (prt_curse == 41) set prt_curse,42;
 			else set prt_curse,52;
+			changequest 18046,18047;
 			close;
 		}
 		mes "^3355FFYou'll need to have";
@@ -3387,6 +3402,7 @@ moc_fild16,201,295,5	script	Assassin Guildsman#poiso	884,{
 			mes "in Morroc. Go find someone";
 			mes "named ^3131FFMarjana^000000 inside.";
 			set prt_curse,24;
+			changequest 18040,18041;
 			close;
 		}
 		mes "[Assassin Guildsman]";
@@ -3573,6 +3589,7 @@ OnTouch:
 			mes "Father Bamph, so I guess";
 			mes "that I'll go talk to her first.";
 			set prt_curse,30;
+			changequest 18041,18042;
 			close;
 		}
 		mes "["+strcharinfo(0)+"]";
@@ -3582,6 +3599,7 @@ OnTouch:
 		mes "bodies. I better head over";
 		mes "to Prontera right away.";
 		set prt_curse,50;
+		changequest 18041,18043;
 		close;
 	}
 }
@@ -3614,14 +3632,14 @@ prt_in,162,99,4	script	Librarian#curse	67,{
 				mes "we will provide you with";
 				mes "replacement copies.";
 				next;
-				if (zeny > 699) {
+				if (Zeny > 699) {
 					mes "[Librarian]";
 					mes "Ah, here you are.";
 					mes "Please take these";
 					mes "replacement copies,";
 					mes "and try not to lose";
 					mes "them again. Thank you.";
-					set zeny,zeny-700;
+					set Zeny, Zeny-700;
 					getitem 7431,1; //Books
 					close;
 				}