* Implemented repeatable EXP quests (with kill count and item gathering options) removed iRO_Exp.txt.

* Fixed missing slot on Power_of_Thor. (bugreport:4168)
* Fixed size for HELL_APOCALIPS and ZUKADAM. (bugreport:4293)
* Fixed mob modes on ANCIENT_TREE and RYNCHO. (bugreport:4294)
* Fixed HP and INT bonuses on the Kronos staff. (bugreport:4297)
* Fixed equip location and more on the Ruber sword. (bugreport:4298)
* Fixed typo in the Icecream_Hat giving the wrong skill. (bugreport:4299)

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

1 files changed, 233 insertions, 0 deletions

diff --git a/npc/quests/collection/quest_pupa.txt b/npc/quests/collection/quest_pupa.txt
new file mode 100644
index 000000000..e8821a8fe
--- /dev/null
+++ b/npc/quests/collection/quest_pupa.txt
@@ -0,0 +1,233 @@
+//===== eAthena Script =======================================
+//= iRO Repeatable EXP Quests.
+//===== By: ==================================================
+//= L0ne_W0lf
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= [Aegis Conversion]
+//= Added Monster Killing quests.
+//= Repeatable EXP Quest (Chrysalis)
+//===== Additional Comments: =================================
+//= 1.0 First version.
+//============================================================
+
+gef_fild04,191,54,3	script	Halgus#Pupa_Hunt	123,{
+	if (checkquest(60110) != -1) {
+		if (checkquest(60110,HUNTING) != 2 ) {
+			mes "[Halgus]";
+			mes "Have you gotten rid of the Pupa?";
+			next;
+			switch(select("Yes:No:I want to quit")) {
+			case 1:
+				mes "[Halgus]";
+				mes "Hmm, I don't think you've gotten rid of 50 Pupa yet...";
+				close;
+			case 2:
+				mes "[Halgus]";
+				mes "Remember, get rid of 50 of those Pupa from the field.";
+				close;
+			case 3:
+				mes "[Halgus]";
+				mes "Are you sure that you want to stop hunting?";
+				mes "Any progress that you've made will be erased";
+				next;
+				switch(select("Yes:No")) {
+				case 1:
+					mes "[Halgus]";
+					mes "Ok then, well come back here if you change your mind.";
+					erasequest 60110;
+					close;
+				case 2:
+					mes "[Halgus]";
+					mes "Remember, get rid of 50 of those Pupa from the field.";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Halgus]";
+			mes "Oh thank you so much.";
+			mes "I know that I could've probably done this myself but it's not easy to be standing here all of the time.";
+			getexp 385,30;
+			erasequest 60110;
+			close;
+		}
+	}
+	if (checkquest(60111) != -1) {
+		if (checkquest(60111,HUNTING) != 2 ) {
+			mes "[Halgus]";
+			mes "Have you gotten rid of the Pupa?";
+			next;
+			switch(select("Yes:No:I want to quit")) {
+			case 1:
+				mes "[Halgus]";
+				mes "Hmm, I don't think you've gotten rid of 100 Pupa yet...";
+				close;
+			case 2:
+				mes "[Halgus]";
+				mes "Remember, get rid of 100 of those Pupa from the field.";
+				close;
+			case 3:
+				mes "[Halgus]";
+				mes "Are you sure that you want to stop hunting?";
+				mes "Any progress that you've made will be erased";
+				next;
+				switch(select("Yes:No")) {
+				case 1:
+					mes "[Halgus]";
+					mes "Ok then, well come back here if you change your mind.";
+					erasequest 60111;
+					close;
+				case 2:
+					mes "[Halgus]";
+					mes "Remember, get rid of 100 of those Pupa from the field.";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Halgus]";
+			mes "Oh thank you so much.";
+			mes "I know that I could've probably done this myself but it's not easy to be standing here all of the time.";
+			getexp 385,30;
+			getexp 385,30;
+			erasequest 60111;
+			close;
+		}
+	}
+	if (checkquest(60112) != -1) {
+		if (checkquest(60112,HUNTING) != 2 ) {
+			mes "[Halgus]";
+			mes "Have you gotten rid of the Pupa?";
+			next;
+			switch(select("Yes:No:I want to quit")) {
+			case 1:
+				mes "[Halgus]";
+				mes "Hmm, I don't think you've gotten rid of 150 Pupa yet...";
+				close;
+			case 2:
+				mes "[Halgus]";
+				mes "Remember, get rid of 150 of those Pupa from the field.";
+				close;
+			case 3:
+				mes "[Halgus]";
+				mes "Are you sure that you want to stop hunting?";
+				mes "Any progress that you've made will be erased";
+				next;
+				switch(select("Yes:No")) {
+				case 1:
+					mes "[Halgus]";
+					mes "Ok then, well come back here if you change your mind.";
+					erasequest 60112;
+					close;
+				case 2:
+					mes "[Halgus]";
+					mes "Remember, get rid of 150 of those Pupa from the field.";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Halgus]";
+			mes "Oh thank you so much.";
+			mes "I know that I could've probably done this myself but it's not easy to be standing here all of the time.";
+			getexp 385,30;
+			getexp 385,30;
+			getexp 385,30;
+			erasequest 60112;
+			close;
+		}
+	}
+	//for minimum level
+	if (BaseLevel > 1) {
+		//for maximum level
+		if (BaseLevel < 21) {
+			mes "[Halgus]";
+			mes "New here are you?";
+			mes "Well look, I like helping new faces around here.";
+			mes "And lets be honest, you are not the prettiest looking face I've seen.";
+			next;
+			mes "[Halgus]";
+			mes "None-the-less my daughter thought it would be fun to gather pupa around this field and it's becoming unsightly.";
+			mes "Do you mind helping me get rid of some Pupa to clear out this field?";
+			next;
+			switch(select("Sure, I don't mind:No")) {
+			case 1:
+				mes "[Halgus]";
+				mes "Really? What would you like to do to help?";
+				next;
+				switch(select("Gather Items:Get rid of Pupa:Cancel")) {
+				case 1:
+					// Item turn in
+					mes "[Halgus]";
+					mes "Can you collect ^00CE0025 Chrysalis^000000 and return them to me, I promise to reward you well.";
+					next;
+					switch(select("I have Chrysalis:What did you need?")) {
+					case 1:
+						if (countitem(915) > 24) {
+							mes "[Halgus]";
+							mes "Amazing you found so many that fast.";
+							mes "Like I promised, give me the Chrysalis and I will reward you with my wisdom.";
+							delitem 915,25; //Chrysalis
+							getexp 385,30;
+							close;
+						}
+						else {
+							mes "[Halgus]";
+							mes "I need ^00CE0025 Chrysalis^000000 and no less please.";
+							close;
+						}
+					case 2:
+						mes "[Halgus]";
+						mes "I need ^00CE0025 Chrysalis^000000.";
+						close;
+					}
+				case 2:
+					// Kill Count Quest
+					mes "[Halgus]";
+					mes "Thank you so much!";
+					mes "How many would you like to get rid of?";
+					next;
+					switch(select("50 Pupa:100 Pupa:150 Pupa")) {
+					case 1:
+						mes "[Halgus]";
+						mes "If you can get rid of 50 of those Pupa from the field I will be grateful.";
+						setquest 60110;
+						close;
+					case 2:
+						mes "[Halgus]";
+						mes "If you can get rid of 100 of those Pupa from the field I will be grateful.";
+						setquest 60111;
+						close;
+					case 3:
+						mes "[Halgus]";
+						mes "If you can get rid of 150 of those Pupa from the field I will be grateful.";
+						setquest 60112;
+						close;
+					}
+				case 3:
+					mes "[Halgus]";
+					mes "If you change your mind, please come back.";
+					close;
+				}
+			case 2:
+				mes "[Halgus]";
+				mes "If you change your mind, please come back.";
+				close;
+			}
+		}
+		else {
+			mes "[Halgus]";
+			mes "You could probably easily help me out, but I want to give charity to those who are not as strong as you.";
+			close;
+		}
+	}
+	else {
+		mes "[Halgus]";
+		mes "Please return to me when you are a little stronger.";
+		close;
+	}
+}