From 9ca7fe72868a501e35b4e0545280cbef4aac5c4f Mon Sep 17 00:00:00 2001
From: masao87 <masao87@54d463be-8e91-2dee-dedb-b68131a5f0ec>
Date: Sat, 14 Jul 2012 15:52:49 +0000
Subject: - Added new script command hommutate which changes an Homunculus into
 an Homunculus S Class. Super special thanks to Xantara for doing the command!
 - Added 2 new configs to homunc.conf to set the Max. Level for Homunculus and
 homunculus. - Updated homun_exp.txt table with values from Lvl. 99 to 150 for
 Homnunculus S. - Updated script_commands.txt with description of the new
 script command. - Added Homunculus S Quest. bugreport:5641

git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@16427 54d463be-8e91-2dee-dedb-b68131a5f0ec
---
 npc/re/quests/homu_s.txt   | 236 +++++++++++++++++++++++++++++++++++++++++++++
 npc/re/scripts_athena.conf |   1 +
 2 files changed, 237 insertions(+)
 create mode 100644 npc/re/quests/homu_s.txt

(limited to 'npc')

diff --git a/npc/re/quests/homu_s.txt b/npc/re/quests/homu_s.txt
new file mode 100644
index 000000000..dda0ad7ee
--- /dev/null
+++ b/npc/re/quests/homu_s.txt
@@ -0,0 +1,236 @@
+//===== rAthena Script ======================================= 
+//= Homunculus S Quest
+//===== By: ================================================== 
+//= Masao
+//===== Current Version: ===================================== 
+//= 1.0
+//===== Compatible With: ===================================== 
+//= rAthena SVN
+//===== Description: ========================================= 
+//= Evolves an Homunculus which is at least Level 99 to the
+//= new Homunculus S Class.
+//===== Additional Comments: ================================= 
+//= 1.0 First Version. The actual changing dialog is currently
+//=     customized. [Masao]
+//============================================================ 
+
+job3_gen01,12,44,4	script	Viorel#job3_gen01	542,{
+
+	if((Class != Job_Genetic) && (Class != Job_Genetic_T) && (Class != Job_Baby_Genetic)){
+		mes "[Viorel]";
+		mes "^FF4800Homunculus^000000 research requires a lot of time and funding.";
+		mes "However, I believe passion is the most important factor.";
+		next;
+		switch(select("End conversation.:What are you talking about?:Why are you always standing there?")) {
+		case 1:
+			mes "[Viorel]";
+			mes "So long~!";
+			close;
+		case 2:
+			mes "[Viorel]";
+			mes "You see, ^006400Alchemists^000000 have an inquisitive nature.";
+			mes "People like me, especially, even think of creating life itself.";
+			next;
+			mes "[Viorel]";
+			mes "You'd have to research ^FF4800Homunculus^000000 to understand.";
+			mes "Now, if you'll excuse me~!";
+			close;
+		case 3:
+			emotion 4,0;
+			mes "[Viorel]";
+			mes "What, is it so strange to see an Alchemist in their own lab?";
+			mes "How so?";
+			close;
+		}
+	}
+	mes "[Viorel]";
+	mes "Hello "+strcharinfo(0)+",";
+	mes "what can I do for an fellow Alchemist like you?";
+	next;
+	switch(select("I want to evolve my Homunculus:About Homunculus S:Cancel")){
+	case 1:
+		mes "[Viorel]";
+		if(!getskilllv("AM_BIOETHICS")){
+			mes "I'm sorry but you must know the Skill Bioethics! Otherwise I can't let your Homunculus evolve into an Homunculus S.";
+			close;
+		}
+		if(gethominfo(1) < 6009){
+			mes "I'm sorry but you must have an evolved Homunculus, otherwise you can't let it evolve to the new Homunculus S.";
+			close;
+		}
+		if(gethominfo(6) < 99){
+			mes "I'm sorry but to evolve your Homunculus to the next level it must be Level 99!";
+			mes "Come back after you've trained your Homunculus a little bit more.";
+			close;
+		}
+		if(gethominfo(1) == 6048 || gethominfo(1) == 6049 || gethominfo(1) == 6050 || gethominfo(1) == 6051 || gethominfo(1) == 6052){
+			mes "Your Homunculus S looks great!";
+			mes "I hope you wil experience many great adventures with it!";
+			close;
+		}
+		mes "Great, it seems like you're all ready to get your Homunculus to the next level!";
+		next;
+		mes "[Viorel]";
+		mes "Now if you want to you can either directly change your Homunculus to an new random Homunculus S Form or you can donate a little fee";
+		mes "of 50'000 zeny to the Alchemist Guild and for this you'll be able to change your Homunculus into your desired Homunculus S Class!";
+		mes "So, what do you think?";
+		next;
+		switch(Select("I want to Donate:I don't want to Donate:Cancel")){
+		case 1:
+			if(Zeny < 50000){
+				mes "[Viorel]";
+				mes "Haha, nice try my friend! But you don't even have the 50'000 zeny to donate!";
+				mes "Come back if you have the zeny, thanks.";
+				close;
+			}
+			mes "[Viorel]";
+			mes "Allright, now please tell me which Homunculus you'd like to have:";
+			next;
+			switch(select("Eira:Bayeri:Sera:Dieter:Elanor:Cancel")){
+			case 1:
+				mes "[Viorel]";
+				mes "Ok, it's all set! Now just give me a moment!";
+				next;
+				mes "[Viorel]";
+				mes "Abra...";
+				next;
+				mes "[Viorel]";
+				mes "Kadabra...";
+				next;
+				mes "[Viorel]";
+				mes "Simsala!";
+				mes "...";
+				mes "Oh sorry.. wrong game!";
+				next;
+				mes "[Viorel]";
+				mes "Here you go! Your new Homunculus S!";
+				hommutate 6048;
+				set Zeny,Zeny - 50000;
+				close;
+			case 2:
+				mes "[Viorel]";
+				mes "Ok, it's all set! Now just give me a moment!";
+				next;
+				mes "[Viorel]";
+				mes "Abra...";
+				next;
+				mes "[Viorel]";
+				mes "Kadabra...";
+				next;
+				mes "[Viorel]";
+				mes "Simsala!";
+				mes "...";
+				mes "Oh sorry.. wrong game!";
+				next;
+				mes "[Viorel]";
+				mes "Here you go! Your new Homunculus S!";
+				hommutate 6049;
+				set Zeny,Zeny - 50000;
+				close;
+			case 3:
+				mes "[Viorel]";
+				mes "Ok, it's all set! Now just give me a moment!";
+				next;
+				mes "[Viorel]";
+				mes "Abra...";
+				next;
+				mes "[Viorel]";
+				mes "Kadabra...";
+				next;
+				mes "[Viorel]";
+				mes "Simsala!";
+				mes "...";
+				mes "Oh sorry.. wrong game!";
+				next;
+				mes "[Viorel]";
+				mes "Here you go! Your new Homunculus S!";
+				hommutate 6050;
+				set Zeny,Zeny - 50000;
+				close;
+			case 4:
+				mes "[Viorel]";
+				mes "Ok, it's all set! Now just give me a moment!";
+				next;
+				mes "[Viorel]";
+				mes "Abra...";
+				next;
+				mes "[Viorel]";
+				mes "Kadabra...";
+				next;
+				mes "[Viorel]";
+				mes "Simsala!";
+				mes "...";
+				mes "Oh sorry.. wrong game!";
+				next;
+				mes "[Viorel]";
+				mes "Here you go! Your new Homunculus S!";
+				hommutate 6051;
+				set Zeny,Zeny - 50000;
+				close;
+			case 5:
+				mes "[Viorel]";
+				mes "Ok, it's all set! Now just give me a moment!";
+				next;
+				mes "[Viorel]";
+				mes "Abra...";
+				next;
+				mes "[Viorel]";
+				mes "Kadabra...";
+				next;
+				mes "[Viorel]";
+				mes "Simsala!";
+				mes "...";
+				mes "Oh sorry.. wrong game!";
+				next;
+				mes "[Viorel]";
+				mes "Here you go! Your new Homunculus S!";
+				hommutate 6052;
+				set Zeny,Zeny - 50000;
+				close;
+			case 6:
+				mes "[Viorel]";
+				mes "So long~!";
+				close;
+			}
+		case 2:
+			mes "[Viorel]";
+			mes "Ok, it's all set! Now just give me a moment!";
+			next;
+			mes "[Viorel]";
+			mes "Abra...";
+			next;
+			mes "[Viorel]";
+			mes "Kadabra...";
+			next;
+			mes "[Viorel]";
+			mes "Simsala!";
+			mes "...";
+			mes "Oh sorry.. wrong game!";
+			next;
+			mes "[Viorel]";
+			mes "Here you go! Your new Homunculus S!";
+			hommutate;
+			close;
+		case 3:
+			mes "[Viorel]";
+			mes "So long~!";
+			close;
+		}
+	case 2:
+		mes "[Viorel]";
+		mes "The Homunculus S are the new and improved Versions of the current Homunculus you know.";
+		mes "These new Homunculus have been made since the Monsters in our World keep getting stronger and stronger";
+		mes "and our current loyal Homunculus are just not able to keep up with them anymore so they can't";
+		mes "protect their Masters anymore!";
+		next;
+		mes "[Viorel]";
+		mes "But since we're Alchemists and we don't want to abandon our precious Homunculus we found a Way to improve their";
+		mes "skills and strength in order to keep them by our side and joining us once more in battle!";
+		mes "Isn't that great?";
+		close;
+	case 3:
+		mes "[Viorel]";
+		mes "So long~!";
+		close;
+	}
+}
\ No newline at end of file
diff --git a/npc/re/scripts_athena.conf b/npc/re/scripts_athena.conf
index bdca69bcb..4e02ec6b3 100644
--- a/npc/re/scripts_athena.conf
+++ b/npc/re/scripts_athena.conf
@@ -214,6 +214,7 @@ npc: npc/re/quests/eden/56-70.txt
 npc: npc/re/quests/eden/71-85.txt
 npc: npc/re/quests/eden/86-90.txt
 npc: npc/re/quests/eden/91-99.txt
+npc: npc/re/quests/homu_s.txt
 // --------------------------------------------------------------
 // --------------------------- Guides ---------------------------
 npc: npc/re/guides/guides_alberta.txt
-- 
cgit v1.2.3-70-g09d2