* 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, 248 insertions, 0 deletions

diff --git a/npc/quests/collection/quest_creamy.txt b/npc/quests/collection/quest_creamy.txt
new file mode 100644
index 000000000..6e7eb2d0f
--- /dev/null
+++ b/npc/quests/collection/quest_creamy.txt
@@ -0,0 +1,248 @@
+//===== eAthena Script =======================================
+//= iRO Repeatable EXP Quests.
+//===== By: ==================================================
+//= L0ne_W0lf
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= [Aegis Conversion]
+//= Added Monster Killing quests. (Dialog is semi-custom)
+//= Repeatable EXP Quest (Powder of Butterfly)
+//===== Additional Comments: =================================
+//= 1.0 First version.
+//============================================================
+
+prt_fild04,356,148,3	script	Laertes#Creamy_Hunt	798,{
+	if (checkquest(60122) != -1) {
+		if (checkquest(60122,HUNTING) != 2 ) {
+			mes "[Laertes]";
+			mes "Have you finished hunting the 50 Creamys?";
+			next;
+			switch(select("Yes:No:I want to quit")) {
+			case 1:
+				mes "[Laertes]";
+				mes "Hmm, I don't think you've hunted 50 yet...";
+				close;
+			case 2:
+				mes "[Laertes]";
+				mes "Remember, I need help hunting Creamys so go and hunt 50 of them.";
+				close;
+			case 3:
+				mes "[Laertes]";
+				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 "[Laertes]";
+					mes "Ok then, well come back here if you change your mind.";
+					erasequest 60122;
+					close;
+				case 2:
+					mes "[Laertes]";
+					mes "Please kill 50 Creamys.";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Laertes]";
+			mes "Amazing, you did that with speed.";
+			getexp 2950,1125;
+			erasequest 60122;
+			close;
+		}
+	}
+	if (checkquest(60123) != -1) {
+		if (checkquest(60123,HUNTING) != 2 ) {
+			mes "[Laertes]";
+			mes "Have you finished hunting the 50 Creamys?";
+			next;
+			switch(select("Yes:No:I want to quit")) {
+			case 1:
+				mes "[Laertes]";
+				mes "Hmm, I don't think you've hunted 100 yet...";
+				close;
+			case 2:
+				mes "[Laertes]";
+				mes "Remember, I need help hunting Creamys so go and hunt 100 of them.";
+				close;
+			case 3:
+				mes "[Laertes]";
+				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 "[Laertes]";
+					mes "Ok then, well come back here if you change your mind.";
+					erasequest 60123;
+					close;
+				case 2:
+					mes "[Laertes]";
+					mes "Please kill 100 Creamys.";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Laertes]";
+			mes "Amazing, you did that with speed.";
+			getexp 2950,1125;
+			getexp 2950,1125;
+			erasequest 60123;
+			close;
+		}
+	}
+	if (checkquest(60124) != -1) {
+		if (checkquest(60124,HUNTING) != 2 ) {
+			mes "[Laertes]";
+			mes "Have you finished hunting the 150 Creamys?";
+			next;
+			switch(select("Yes:No:I want to quit")) {
+			case 1:
+				mes "[Laertes]";
+				mes "Hmm, I don't think you've hunted 150 yet...";
+				close;
+			case 2:
+				mes "[Laertes]";
+				mes "Remember, I need help hunting Creamys so go and hunt 150 of them.";
+				close;
+			case 3:
+				mes "[Laertes]";
+				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 "[Laertes]";
+					mes "Ok then, well come back here if you change your mind.";
+					erasequest 60124;
+					close;
+				case 2:
+					mes "[Laertes]";
+					mes "Please kill 150 Creamys.";
+					close;
+				}
+			}
+		}
+		else {
+			mes "[Laertes]";
+			mes "Amazing, you did that with speed.";
+			getexp 2950,1125;
+			getexp 2950,1125;
+			getexp 2950,1125;
+			erasequest 60124;
+			close;
+		}
+	}
+	//for minimum level
+	if (BaseLevel > 14) {
+		//for maximum level
+		if (BaseLevel < 45) {
+			mes "[Laertes]";
+			mes "Good Morning!";
+			mes "Perhaps you could help me?";
+			next;
+			switch(select("Sure:No")) {
+			case 1:
+				mes "[Laertes]";
+				mes "I work for an apothecary in Prontera.";
+				mes "I come here to collect materials for medicine.";
+				next;
+				switch(select("Gather Items:Hunt Creamys:Cancel")) {
+				case 1:
+					// Item turn in
+					mes "[Laertes]";
+					mes "I need to have a good supply of ^FF0000Powder of Butterfly^000000";
+					next;
+					switch(select("I have Powder of Butterfly:What did you need?")) {
+					case 1:
+						/*
+						if (checkweight(502,5) == 0) {
+							mes "[Laertes]";
+							mes "Hey, it looks like that the weight on";
+							mes "your back will crush you. Come back";
+							mes "after you have lost some weight.";
+							close;
+						}
+						*/
+						if (countitem(924) > 24) {
+							mes "[Laertes]";
+							mes "Hey, thank you again.";
+							mes "Here you go, as promised.";
+							delitem 924,25; //Powder_Of_Butterfly
+							getexp 2950,1125;
+							//getitem 502,5; //Orange_Potion
+							close;
+						}
+						else {
+							mes "[Laertes]";
+							mes "It doesn't look like you have enough.";
+							next;
+							mes "[Laertes]";
+							mes "If you bring me ^FF000025 Powder of Butterfly^000000,";
+							mes "I will give you some medical supplies.";
+							close;
+						}
+					case 2:
+						mes "[Laertes]";
+						mes "If you bring me ^FF000025 Powder of Butterfly^000000,";
+						mes "I will give you some medical supplies.";
+						close;
+					}
+				case 2:
+					// Kill Count Quest
+					mes "[Laertes]";
+					mes "Ah, ok I think you can help me out by hunting some Creamys.";
+					mes "How many would you like to hunt?";
+					next;
+					switch(select("50 Creamys:100 Creamys:150 Creamys")) {
+					case 1:
+						mes "[Laertes]";
+						mes "Come back when you've finished your task and I will give you a small reward.";
+						setquest 60122;
+						close;
+					case 2:
+						mes "[Laertes]";
+						mes "Come back when you've finished your task and I will give you a small reward.";
+						setquest 60123;
+						close;
+					case 3:
+						mes "[Laertes]";
+						mes "Come back when you've finished your task and I will give you a small reward.";
+						setquest 60124;
+						close;
+					}
+				case 3:
+					mes "[Laertes]";
+					mes "If you change your mind, please come back.";
+					close;
+				}
+			case 2:
+				mes "[Laertes]";
+				mes "If you change your mind, please come back.";
+				close;
+			}
+		}
+		else {
+			mes "[Laertes]";
+			mes "Good Morning!";
+			next;
+			mes "[Laertes]";
+			mes "I work for an apothecary in Prontera";
+			mes "I come here to collect materials for medicine.";
+			close;
+		}
+	}
+	else {
+		mes "[Laertes]";
+		mes "Your level is too low!";
+		next;
+		mes "[Laertes]";
+		mes "Go kill more Porings!";
+		close;
+	}
+}