2-x quest skill update 2/2.

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

1 files changed, 355 insertions, 70 deletions

diff --git a/npc/quests/skills/priest_skills.txt b/npc/quests/skills/priest_skills.txt
index d5eb90990..279910b72 100644
--- a/npc/quests/skills/priest_skills.txt
+++ b/npc/quests/skills/priest_skills.txt
@@ -3,12 +3,364 @@
 //===== By: ================================================== 
 //= Lupus, Reddozen
 //===== Current Version: ===================================== 
-//= 1.3a
+//= 1.4
 //===== Compatible With: ===================================== 
-//= eAthena Revision 3800+
+//= eAthena SVN
 //===== Description: ========================================= 
-//= Temp quests for new skills for 2nd classes
+//= [Aegis Conversion]
+//= Quests for skills: Redempito
 //===== Additional Comments: ================================= 
+//= 1.4 Rescripted to Aegis 10.3 stadards. [L0ne_W0lf]
+//============================================================
+
+prt_church,111,112,1	script	Sister Linus	79,{
+	if (BaseJob == Job_Priest) {
+		if (PRIEST_SK == 100) {
+			if (getskilllv(1014) == 0) {
+				mes "[Sister Linus]";
+				mes "Hm? We've met before,";
+				mes "haven't we? Then again,";
+				mes "all Priests begin to look";
+				mes "the same after a while. Ah,";
+				mes "were you one of the ones";
+				mes "to whom I taught Redemptio?";
+				next;
+				mes "[Sister Linus]";
+				mes "Ah, you've forgotten, have";
+				mes "you? Well, it's no problem for";
+				mes "me to teach you again. This skill enables you to revive your fallen";
+				mes "Party Members by sacrificing";
+				mes "your own life for them.";
+				next;
+				mes "[Sister Linus]";
+				mes "^3131FFOh holy and venerable one,";
+				mes "we pray to you. Please show";
+				mes "us your mercy and guide us";
+				mes "with your light. Give us the";
+				mes "strength to walk the path of";
+				mes "love and sacrifice. Redemptio!^000000";
+				skill 1014,1,0;
+				next;
+				mes "[Sister Linus]";
+				mes "There...";
+				mes "You should be able";
+				mes "to perform Redemptio";
+				mes "now. I hope you use it";
+				mes "well on your adventures~";
+				close;
+			}
+			else {
+				mes "[Sister Linus]";
+				mes "I'll always be praying";
+				mes "for your safety. Be careful,";
+				mes "and I hope that you can bring";
+				mes "love and compassion to all";
+				mes "whom you meet in your travels.";
+				close;
+			}
+		}
+		else if (PRIEST_SK == 0) {
+			set redemp,1014;
+			if (getskilllv(1014)) {
+				mes "[Sister Linus]";
+				mes "I'll always be praying";
+				mes "for your safety. Be careful,";
+				mes "and I hope that you can bring";
+				mes "love and compassion to all";
+				mes "whom you meet in your travels.";
+				set PRIEST_SK,100;
+				close;
+			}
+			mes "[Sister Linus]";
+			mes "Please have mercy and";
+			mes "spread your light through";
+			mes "the world. Guide her with";
+			mes "your benevolent wisdom...";
+			mes "Bless her, and may she";
+			mes "be protected by your grace.";
+			next;
+			select("Whom are you praying for, sister?");
+			mes "[Sister Linus]";
+			mes "Oh! You startled me!";
+			mes "Whom am I praying for?";
+			mes "Well, I once knew a young,";
+			mes "playful and merry nun who was";
+			mes "also a bit brazen. But I have";
+			mes "many joyful memories of her.";
+			next;
+			mes "[Sister Linus]";
+			mes "One day, a group of adventurers";
+			mes "came to Prontera Church in hopes^FFFFFF ^000000 of hiring a Priest to accompany";
+			mes "them to ^3131DDGlast Heim^000000. It must have been fate that she was the only";
+			mes "Priest that was available.";
+			next;
+			mes "[Sister Linus]";
+			mes "I remember that she was";
+			mes "so determined to join those";
+			mes "adventurers, and we had no";
+			mes "choice but to let her go.";
+			mes "Still, many of us believed";
+			mes "that it was too dangerous...";
+			next;
+			mes "[Sister Linus]";
+			mes "I hear that, at first, their";
+			mes "ragtag team was able to";
+			mes "successfully exterminate";
+			mes "a great number of monsters.";
+			mes "But supporting them as a Priest";
+			mes "must have been tough for her...";
+			next;
+			mes "[Sister Linus]";
+			mes "Then, tragedy struck.";
+			mes "Surrounded by Wanderers,";
+			mes "the adventurers quickly fell";
+			mes "in defeat, one by one. Soon,";
+			mes "the young nun was the only^FFFFFF ^000000 one of the group still standing.";
+			next;
+			mes "[Sister Linus]";
+			mes "Alone against impossible";
+			mes "odds, that poor girl had no";
+			mes "choice but to try a desperate";
+			mes "gamble. She began to chant";
+			mes "the ancient holy spell...";
+			next;
+			select("Ancient spell...?");
+			mes "[Sister Linus]";
+			mes "Yes! ^FF0000Redemptio^000000!";
+			mes "A skill that only the";
+			mes "most talented Priests";
+			mes "can perform! And here she";
+			mes "was, a young nun with very";
+			mes "little experience, trying it!";
+			next;
+			mes "[Sister Linus]";
+			mes "Redemptio is the last";
+			mes "resort skill that can be";
+			mes "used to nobly save the";
+			mes "lives of others at the cost";
+			mes "of ^3131FFsacrificing your own life^000000.";
+			next;
+			mes "[Sister Linus]";
+			mes "Yes, I remember the days";
+			mes "she wasn't very interested";
+			mes "in studying the Priest and";
+			mes "Acolyte skills. Surprisingly,";
+			mes "she had learned enough to";
+			mes "attempt to cast Redemptio...";
+			next;
+			mes "[Sister Linus]";
+			mes "Miraculously, she succeeded";
+			mes "in reviving her party members.";
+			mes "They quickly used a Yggdrasil";
+			mes "Leaf to restore her life, and they defeated the Wanderers and";
+			mes "returned home safely.";
+			next;
+			mes "[Sister Linus]";
+			mes "Because of this success, she";
+			mes "was promoted to High Priest";
+			mes "despite the many mistakes she";
+			mes "made in the past. Now she travels the world, helping adventurers";
+			mes "in any way that she can.";
+			next;
+			mes "[Sister Linus]";
+			mes "But, well, she'll";
+			mes "always be that spunky";
+			mes "and joyful girl to me.";
+			next;
+			mes "["+ strcharinfo(0) +"]";
+			mes "Wait, you still haven't";
+			mes "answered my question.";
+			mes "Are you praying for this";
+			mes "nun? And if so, is she";
+			mes "in some kind of danger?";
+			next;
+			mes "[Sister Linus]";
+			mes "Well, a few months ago,";
+			mes "she went on a mission to";
+			mes "^3131FFLighthalzen^000000, a city in the";
+			mes "Schwaltzvalt Republic. I was";
+			mes "just worried since I haven't";
+			mes "heard from her in a while.";
+			next;
+			mes "[Sister Linus]";
+			mes "I come here to pray for";
+			mes "her everyday, and hope that";
+			mes "she'll come back safely and";
+			mes "share stories of her adventures";
+			mes "with me. Ooh, we'll talk all night long! It'll be so much fun!";
+			next;
+			mes "[Sister Linus]";
+			mes "Goodness, I've been";
+			mes "running my mouth! I'm";
+			mes "sorry to keep you, did you";
+			mes "have somewhere to go? Well,";
+			mes "I'll be praying for your safety~ ^FFFFFF ^000000";
+			next;
+			mes "["+ strcharinfo(0) +"]";
+			mes "Before I go, would you";
+			mes "please tell me the name";
+			mes "of that High Priest you were";
+			mes "talking about? If I see her,";
+			mes "I'll ask her to contact you.";
+			next;
+			mes "[Sister Linus]";
+			mes "Oh, thank you! Her name";
+			mes "is High Priest Sorin. Um,";
+			mes "^3131FFMargaretha Sorin^000000. If you";
+			mes "happen to find her, please";
+			mes "let her know that I am";
+			mes "praying for her safety.";
+			set PRIEST_SK,1;
+			close;
+		}
+		else if (PRIEST_SK == 1) {
+			mes "[Sister Linus]";
+			mes "Oh, hello~";
+			mes "How are you";
+			mes "doing today?";
+			next;
+			if (select("Please teach me ^3131FFRedemptio^000000.:Cancel") == 1) {
+				mes "[Sister Linus]";
+				mes "Ooh, Redemptio would be";
+				mes "a good skill for you to learn~";
+				mes "It's difficult to cast, but when you succeed, you can revive all";
+				mes "of your defeated Party Members.";
+				next;
+				mes "[Sister Linus]";
+				mes "Of course, the drawback";
+				mes "is that you must ^3131FFsacrifice";
+				mes "your own life^000000 in order to";
+				mes "use the skill. Now, to learn";
+				mes "Redemptio, you must first";
+				mes "learn ^3131FFLevel 1 Resurrection^000000.";
+				next;
+				mes "[Sister Linus]";
+				mes "Ah, you must";
+				mes "also bring me";
+				mes "^3131FF30 Holy Waters and";
+				mes "20 Blue Gemstones^000000";
+				mes "so you can attempt";
+				mes "to learn the skill.";
+				set PRIEST_SK,2;
+				next;
+				mes "[Sister Linus]";
+				mes "Um, but if you fail to";
+				mes "learn Redemptio, you'll";
+				mes "lose 1 Holy Water and";
+				mes "1 Blue Gemstone and";
+				mes "you'll have to try it again...";
+				close;
+			}
+			mes "[Sister Linus]";
+			mes "Praying gives me a";
+			mes "sense of peace and";
+			mes "comfort. Perhaps that";
+			mes "is one of the reasons";
+			mes "why I chose this job...";
+			close;
+		}
+		else if (PRIEST_SK == 2) {
+			if (getskilllv(54) > 0) {
+				if (countitem(523) > 29 && countitem(717) > 19) {
+					mes "[Sister Linus]";
+					mes "Ooh, it seems like you've";
+					mes "brought everything that you";
+					mes "need to learn Redemptio.";
+					mes "Are you ready to try it? If you";
+					mes "fail, you'll lose 1 Holy Water";
+					mes "and 1 Blue Gemstone, okay?";
+					next;
+					mes "[Sister Linus]";
+					mes "Now, please";
+					mes "concentrate and";
+					mes "repeat this special";
+					mes "prayer after me.";
+					next;
+					mes "[Sister Linus]";
+					mes "^3131FFOh holy and venerable one,";
+					mes "we pray to you. Please show";
+					mes "us your mercy and guide us";
+					mes "with your light. Give us the";
+					mes "strength to walk the path of";
+					mes "love and sacrifice. Redemptio!^000000";
+					next;
+					set .@redem_s,JobLevel+getskilllv(54);
+					set .@red_suc,rand(1,100);
+					if (.@redem_s < 31)
+						if (.@red_suc > 20 && .@red_suc < 41) set .@success,1;
+					else if (.@redem_s < 41)
+						if (.@red_suc > 10 && .@red_suc < 41) set .@success,1;
+					else
+						if (.@red_suc > 10 && .@red_suc < 51) set .@success,1;
+
+					if (.@success) {
+						specialeffect2 14; // EF_HEALSP
+						mes "[Sister Linus]";
+						mes "Congratulations!";
+						mes "You successfully";
+						mes "learned Redemptio!";
+						mes "Please remember to only";
+						mes "use this skill in the most";
+						mes "critical situations.";
+						delitem 717,20; //Blue_Gemstone
+						delitem 523,30; //Holy_Water
+						set PRIEST_SK,100;
+						skill 1014,1,0;
+						close;
+					}
+					else {
+						specialeffect2 53; // EF_POISONHIT
+						mes "[Sister Linus]";
+						mes "Oh no! I'm sorry,";
+						mes "but you failed to";
+						mes "learn Redemptio. Well,";
+						mes "I'll be waiting right here,";
+						mes "so we can try again when";
+						mes "you're ready, okay?";
+						delitem 717,1; //Blue_Gemstone
+						delitem 523,1; //Holy_Water
+						close;
+					}
+
+				}
+				else {
+					mes "[Sister Linus]";
+					mes "If you want to try to learn";
+					mes "Redemptio, please bring";
+					mes "^3131FF20 Blue Gemstones^000000 and";
+					mes "^3131FF30 Holy Waters^000000. Ah, and";
+					mes "you need to learn ^3131FFLevel 1";
+					mes "Resurrection^000000 beforehand.";
+					close;
+				}
+			}
+			else {
+				mes "[Sister Linus]";
+				mes "If you want to try to learn";
+				mes "Redemptio, please bring";
+				mes "^3131FF20 Blue Gemstones^000000 and";
+				mes "^3131FF30 Holy Waters^000000. Ah, and";
+				mes "you need to learn ^3131FFLevel 1";
+				mes "Resurrection^000000 beforehand.";
+				close;
+			}
+		}
+	}
+	else {
+		mes "[Sister Linus]";
+		mes "Please have mercy and";
+		mes "spread your light through";
+		mes "the world. Guide her with";
+		mes "your benevolent wisdom...";
+		mes "Bless her, and may she";
+		mes "be protected by your grace.";
+		close;
+	}
+}
+
+//============================================================ 
+// Old changelog
+//============================================================ 
 //= 1.0 for fully working skills only [Lupus]
 //= 1.1 Added more new skill quests for more classes [Lupus]
 //= Somehow eA engine doesn't let you keep learn't skill V_V'
@@ -19,70 +371,3 @@
 //= 1.3a fixed an item ID typo, thx 2Spiritual Kid
 //= 1.3b Splitted into different files [DracoRPG]
 //============================================================
-
-
-//============================================================
-// PRIEST - REDEMPTIO
-//============================================================
-prt_church,111,112,3	script	Nun Linus	79,{
-	mes "[Nun Linus]";
-	if(BaseJob!=Job_Priest) goto L_nopriest;
-	if(getskilllv(1014)) goto L_alreadyhave;
-	if(getskilllv(54)<1) goto L_norez;
-
-	mes "I can teach you the mercy of God";
-	mes "if you bring me a couple things,";
-	mes "and if God finds you worthy!";
-	mes "1 Blue Gemstone";
-	mes "1 Holy Water";
-	next;
-	
-	mes "[Nun Linus]";
-	mes "Let me check your items.";
-	next;
-	
-	if(countitem(717)<1 || countitem(523)<1) goto L_noitems;//Items: Blue_Gemstone, Holy_Water,
-	delitem 717, 1;//Items: Blue_Gemstone,
-	delitem 523, 1;//Items: Holy_Water,
-	
-	mes "[Nun Linus]";
-	mes "I see you have what you need,";
-	mes "so we shall see if God finds";
-	mes "you worthy yet!";
-	next;
-	if(rand(100)<JobLevel+25) goto L_bless;
-	mes "[Nun Linus]";
-	mes "Sorry, but God has not";
-	mes "shined on you as of yet.";
-	mes "Try again when you are a";
-	mes "stronger Priest.";
-	close;
-	
-L_bless:
-	mes "[Nun Linus]";
-	mes "Hum... I see God has shined on you this time";
-	skill 1014,1,0;
-	close;
-	
-L_noitems:
-	mes "[Nun Linus]";
-	mes "You don't have enough items.";
-	mes "Come back when you have all";
-	mes "the required items for me.";
-	close;
-		
-L_nopriest:
-	mes "Sorry, you need to have some faith in God.";
-	emotion e_gasp;
-	close;
-
-L_alreadyhave:
-	mes "I've already taught you";
-	mes "everything I know...";
-	close;
-
-L_norez:
-	mes "Come back when you've learned";
-	mes "more about priest and God.";
-	close;
-}