Merge branch 'livio/galimatia' into 'master'

Galimatia Quest

See merge request evol/serverdata!271

6 files changed, 503 insertions, 24 deletions

diff --git a/db/quest_db.conf b/db/quest_db.conf
index 8e36f5ec..794d6e80 100644
--- a/db/quest_db.conf
+++ b/db/quest_db.conf
@@ -195,6 +195,10 @@ quest_db: (
 	Id: 57
 	Name: "HurnscaldQuests_Kfahr"
 },
+{
+	Id: 58
+	Name: "ArgaesQuest_Galimatia"
+},
 
 // Event and General Quests (100~149)
 {
diff --git a/db/re/item_db.conf b/db/re/item_db.conf
index f3519779..49a35b5c 100644
--- a/db/re/item_db.conf
+++ b/db/re/item_db.conf
@@ -1114,9 +1114,11 @@ item_db: (
 	Delay: 1000
 	KeepAfterUse: true
 	Script: <"
-		sc_start SC_CURSE, 30000, 100;
-		sc_start SC_POISON, 30000, 100;
-		dispbottom l("Yuck! I won't drink this!");
+		if (!callfunc("useFertilityPotion")) {
+			sc_start SC_CURSE, 30000, 100;
+			sc_start SC_POISON, 30000, 100;
+			dispbottom l("Yuck! I won't drink this!");
+		}
 	">
 },
 {
@@ -1193,9 +1195,11 @@ item_db: (
 	Delay: 1000
 	KeepAfterUse: true
 	Script: <"
-		sc_start SC_CURSE, 30000, 100;
-		sc_start SC_POISON, 30000, 100;
-		dispbottom l("Yuck! I won't drink this!");
+		if (!callfunc("usePurificationPotion")) {
+			sc_start SC_CURSE, 30000, 100;
+			sc_start SC_POISON, 30000, 100;
+			dispbottom l("Yuck! I won't drink this!");
+		}
 	">
 },
 {
@@ -3135,7 +3139,7 @@ item_db: (
 	EquipLv: 45
 	Refine: false
 	ViewSprite: 1202
-	BindOnEquip: false // TODO: Add Buff. 
+	BindOnEquip: false // TODO: Add Buff.
 },
 {
 	Id: 1203
@@ -3153,7 +3157,7 @@ item_db: (
 	EquipLv: 30
 	Refine: false
 	ViewSprite: 1203
-	BindOnEquip: false // TODO: Add Buff. 
+	BindOnEquip: false // TODO: Add Buff.
 },
 {
 	Id: 1204
@@ -3171,7 +3175,7 @@ item_db: (
 	EquipLv: 70
 	Refine: false
 	ViewSprite: 1204
-	BindOnEquip: false // TODO: Add Buff. 
+	BindOnEquip: false // TODO: Add Buff.
 },
 {
 	Id: 1205
@@ -3189,7 +3193,7 @@ item_db: (
 	EquipLv: 50
 	Refine: false
 	ViewSprite: 1205
-	BindOnEquip: false // TODO: Add Buff. 
+	BindOnEquip: false // TODO: Add Buff.
 },
 {
 	Id: 1206
@@ -3207,7 +3211,7 @@ item_db: (
 	EquipLv: 20
 	Refine: false
 	ViewSprite: 1206
-	BindOnEquip: false // TODO: Add Buff. 
+	BindOnEquip: false // TODO: Add Buff.
 },
 // Armor
 {
@@ -4813,8 +4817,8 @@ item_db: (
 },
 {
 	Id: 2915
-	AegisName: "Rosehat"
-	Name: "Rosehat"
+	AegisName: "RoseHat"
+	Name: "Rose Hat"
 	Type: "IT_ARMOR"
 	Buy: 12000
 	Sell: 4100
diff --git a/npc/008-1-1/galimatia.txt b/npc/008-1-1/galimatia.txt
index a6a7aaf7..6197d3bf 100644
--- a/npc/008-1-1/galimatia.txt
+++ b/npc/008-1-1/galimatia.txt
@@ -1,20 +1,457 @@
 // Evol scripts.
 // Author:
-//    Micksha
+//	Micksha
+//	The other player I've forgot the name
+//	Livio
+//  Jesusalva
 // Description:
-//    Galmatia the beekeeper.
+//	Galimatia the beekeeper.
 // THIS IS A PLACEHOLDER!
 
+// KEEP item_db.conf updated as well
+
+function	script	usePurificationPotion	{
+	// Check quest status, if not in a quest provide default item behaviour
+    if (getq(ArgaesQuest_Galimatia) == 1) {
+		// Do as requested by quest
+		if (isin("008-1-1", 95, 45, 99, 48)) {
+			setq(ArgaesQuest_Galimatia, 2);
+			message strcharinfo(0), l("Done. Maybe it's time to ask Galimatia what to do now.");
+			delitem PurificationPotion, 1;
+		} else {
+			message strcharinfo(0), l("Hmm... I'm sure that is not the right place to put it.");
+			return true;
+		}
+	} else return false;
+}
+
+function	script	useFertilityPotion	{
+	// Check quest status, if not in a quest provide default item behaviour
+    if (getq(ArgaesQuest_Galimatia) == 3) {
+		// Do as requested by quest
+		if (isin("008-1-1", 95, 45, 99, 48)) {
+			setq(ArgaesQuest_Galimatia, 4);
+			message strcharinfo(0), l("All right! I've poured even this one..");
+			delitem FertilityPotion, 1;
+		} else {
+			message strcharinfo(0), l("Hmm... This one is supposed to be poured where the other one were.");
+			return true;
+		}
+	} else return false;
+}
+
+// ------------------------------------
 008-1-1,113,59,0	script	Galimatia	NPC_GALIMATIA,{
-    speech
-        l("Hello."),
-        l("If only someone could help me to make my flowers bloom again."),
-        l("I just dont know what to do. Perhaps all gets better when I stay here, whining and waiting. Please, leave me alone.");
+    function advanceQuest;
+    function printIngredients;
+
+    function QuestPart0;
+    function QuestPart1;
+    function QuestPart2;
+    function QuestPart3;
+    function QuestPart4;
+    function QuestPart5;
+    function QuestPart6;
+
+    // TODO FIXME remove this once ready
+    if (!debug) {
+        speech
+            l("Hello."),
+            l("If only someone could help me to make my flowers bloom again."),
+            l("I just dont know what to do. Perhaps all gets better when I stay here, whining and waiting. Please, leave me alone.");
+        close;
+    }
+
+	switch(getq(ArgaesQuest_Galimatia)) {
+		case 0: QuestPart0(); break;
+		case 1: QuestPart1(); break;
+		case 2: QuestPart2(); break;
+		case 3: QuestPart3(); break;
+		case 4: QuestPart4(); break;
+		case 5: QuestPart5(); break;
+		case 6: QuestPart6(); break;
+		default:
+			mesq l("[Invalid quest status: %d, check script]", getq(ArgaesQuest_Galimatia));
+	}
+	close;
+
+// ----------------
+/*
+	@brief Prints the list of quest ingredients on the NPC window
+	@param Array with items IDs
+	@param Array with relative amount required
+	@returns nothing
+*/
+function printIngredients {
+	for (.@i = 0; .@i < getarraysize(getarg(0)); .@i++) {
+		mesf(" - %d %s", getelementofarray(getarg(1), .@i), getitemlink(getelementofarray(getarg(0), .@i)));
+	}
+	return;
+}
+
+/*
+	@brief Checks if player has items required
+	@param Array with required items IDs
+	@param Array with relative amount required
+	@returns false if player doesn't have required items
+*/
+function checkForItems {
+	for (.@i = 0; .@i < getarraysize(getarg(0)); .@i++) {
+		// If even a single thing is missing abort immediately
+		if(getelementofarray(getarg(1), .@i) > countitem(getelementofarray(getarg(0), .@i))) {
+			return false;
+		}
+	}
+	return true;
+}
+
+/*
+	@brief Craft an item from some other items. All input items got deleted.
+	@param Array with required items IDs
+	@param Array with relative amount required
+	@param output item IDs
+	@param output amount
+	@returns 0 if successful, 1 if player lack ingredients, 2 if overburdened, 255 code error
+*/
+function craftFromPlayer {
+	// Check input parameter amount
+	if (getargcount() != 4) return 255;
+
+	// Check item amounts
+	if (!checkForItems(getarg(0), getarg(1))) return 1;
+
+	// Check if player is able to carry output from crafting
+	if (!checkweight(getarg(2), getarg(3))) return 2;
+	else getitem(getarg(2), getarg(3));
+
+	// Delete Items from player inventory
+	for (.@i = getarrayindex(getarg(0)); .@i < getarraysize(getarg(0)); .@i++) {
+		delitem(getelementofarray(getarg(0), .@i), getelementofarray(getarg(1), .@i));
+	}
+
+	return 0;
+}
+
+/*
+	@brief Craft an item from some other items. All input items will be deleted in case of success.
+	@param Array with required items IDs
+	@param Array with relative amount required
+	@param output item IDs
+	@param output amount
+	@param NPC question about ingredients
+	@param NPC answer if successful
+	@param NPC answer if player lacks ingredients
+	@param NPC answer if player is overburdened
+	@returns true if successful
+*/
+function NPCcrafting {
+	speech
+		getarg(4);
+	if (askyesno() == ASK_NO) {
+		mesq l("Come on, move!");
+		close();
+	} else {
+		switch(craftFromPlayer(getarg(0), getarg(1), getarg(2), getarg(3))) {
+			case 0:
+				mesq getarg(5);
+				return true;
+				break;
+
+			case 1:
+				mesq getarg(6);
+				printIngredients(.REQ0_INGREDIENTS, .REQ0_INGREDIENTS_AMOUNT);
+				break;
+
+			case 2:
+				mesq getarg(7);
+				break;
+
+			case 255:
+				mesq l("[BUG ENCOUNTERED] Dammit...");
+				break;
+
+			default:
+		}
+	}
+	return false;
+}
+
+// FIXME comment better
+// Makes NPC to ask for ingredients
+function NPCdemandsIngredients {
+	mesq l("Fine. The land is healthy now but nothing will grow yet. This time I need you to get:");
+	printIngredients(.REQ1_INGREDIENTS, .REQ1_INGREDIENTS_AMOUNT);
+	mesq l("So making a %s will make things easier.", getitemlink(.REQ1_OUTPUT));
+	if (NPCcrafting(
+			.REQ0_INGREDIENTS, .REQ0_INGREDIENTS_AMOUNT,
+			.REQ0_OUTPUT, .REQ0_OUTPUT_AMOUNT,
+			l("Okay. Give me a second..."),
+			l("Nope. You don't have enough ingredients for that."),
+			l("I can't give you nothing if you don't leave some room for it!")
+			)
+		) {
+		advanceQuest();
+		mesq l("You must now pour it over the land again in the same spot.");
+	}
+	close;
+	return;
+}
+
+
+//-----------------
+
+function advanceQuest {
+	setq(ArgaesQuest_Galimatia, getq(ArgaesQuest_Galimatia) + 1);
+	return;
+}
+
+/*
+You arrive and get off the boat and walk down a path to a farm where there is a Bee farmer named Galimatia.
+Her Bees have moved to somewhere else, because his field of flowers has died from a blight. He needs some way to still gather honey to earn his living.
+Galimatia needs to tend to other work and can’t get away, so she asks player for some help. She sends player after 5 Pink Petals and 1 Bottle of Water.
+*/
+
+function QuestPart0 {
+	speech
+		l("Hello."),
+		l("If only someone could help me to make my flowers bloom again."),
+		l("I just dont know what to do. Perhaps all gets better when I stay here, whining and waiting. Please, leave me alone.");
+
+	select(
+		l("What about making some fertilizing-something?"),
+		l("I don't have time to spend on flowers.")
+	);
+
+	switch(@menu) {
+		case 1:
+			mesq l("All right! I need you to get:");
+			printIngredients(.REQ0_INGREDIENTS, .REQ0_INGREDIENTS_AMOUNT);
+			mesq l("So I can make a %s out of it.", getitemlink(.REQ0_OUTPUT));
+			if (NPCcrafting(
+				.REQ0_INGREDIENTS, .REQ0_INGREDIENTS_AMOUNT,
+				.REQ0_OUTPUT, .REQ0_OUTPUT_AMOUNT,
+				l("Have you got those things with you?"),
+				l("Okay. Give me a second..."),
+				l("Nope. You don't have enough ingredients for that."),
+				l("I can't give you nothing if you don't leave some room for it!")
+				)
+			) {
+				advanceQuest();
+				mesq l("You must now pour it over the land.");
+			}
+			close;
+			break;
+		default:
+			// FIXME This got to be improved in other script parts as well
+			mesq
+				any(
+					l("Gave up already?"),
+					l("Okay..."),
+					l("Go stay afk in TMW Legacy if you don't want to make yourself useful."),
+					l("Hehe, hehe. Well, come back if you change your mind."
+				)
+			);
+			close;
+	}
+	return;
+}
+
+/*
+She made a Purification Potion out of ingredients to heal the land and gives it to the player and says it must be poured over the land (marked in some way. Like in the Orum and Waric follow-up quest).
+*/
+function QuestPart1 {
+	if(checkForItems(.REQ0_OUTPUT, .REQ0_OUTPUT_AMOUNT)) {
+		speech
+			l("What's up? You want me to show how to open a bottle and pour its content on the ground?");
+	} else {
+		speech
+			l("Why you don't have a %s with you? You need me to make another one?", getitemlink(.REQ0_OUTPUT));
+		if (askyesno() == ASK_NO) {
+			mesq l("Come on, stop wasting my time!");
+			close();
+		} else{
+			if (NPCcrafting(
+				.REQ0_INGREDIENTS, .REQ0_INGREDIENTS_AMOUNT,
+				.REQ0_OUTPUT, .REQ0_OUTPUT_AMOUNT,
+				l("Again, do you have what I need to make that?"),
+				l("Here we go again..."),
+				l("No! Have you already forgot what I need for it?"),
+				l("You don't even have the space in your inventory to carry it!!! Oh, man you are a disaster...")
+				)
+			) {
+				// FIXME Put some messages about making again the potion so the NPC can look different and react like it was somewhat disturbed by player failure
+				mesq l("Remember: you must pour it over the land.");
+			}
+		}
+	}
+	close;
+	return;
+}
+
+/*
+If you weren't able to trash the potion, the land is now healed, but nothing grows. Galimatia is happy the land is well and wants to help. She sends player to get 1 Bottle of Water, 10 Maggot Slime and 5 Mauve Herb. From this she makes a Fertility Potion. Again she gives it to the player and says it must be poured in the same place. Player uses it and the effect comes again.
+*/
+
+
+function QuestPart2 {
+	mesq l("Fine. The land is healthy now but nothing will grow yet. This time I need you to get:");
+	printIngredients(.REQ1_INGREDIENTS, .REQ1_INGREDIENTS_AMOUNT);
+	mesq l("So making a %s will make things easier.", getitemlink(.REQ1_OUTPUT));
+	if (NPCcrafting(
+			.REQ1_INGREDIENTS, .REQ1_INGREDIENTS_AMOUNT,
+			.REQ1_OUTPUT, .REQ1_OUTPUT_AMOUNT,
+			l("Have you got what we need?"),
+			l("Here it is!"),
+			l("No! You haven't!"),
+			l("I can't give you nothing if you don't leave some room for it!")
+			)
+	) {
+		advanceQuest();
+		mesq l("You must now pour it over the land again in the same spot.");
+	}
+	close;
+	return;
+}
+
+
+function QuestPart3 {
+	if(checkForItems(.REQ1_OUTPUT, .REQ1_OUTPUT_AMOUNT)) {
+		speech
+			l("Come on pal, what's the matter?");
+	} else {
+		speech
+			l("Got drunk with the %s? You need me to make another one?", getitemlink(.REQ1_OUTPUT));
+		if (askyesno() == ASK_NO) {
+			mesq l("Come on, stop wasting my time!");
+			close();
+		} else{
+			if (NPCcrafting(
+				.REQ1_INGREDIENTS, .REQ1_INGREDIENTS_AMOUNT,
+				.REQ1_OUTPUT, .REQ1_OUTPUT_AMOUNT,
+				l("Again, do you have what I need to make that?"),
+				l("Here we go again..."),
+				l("No! Have you already forgot what I need for it?"),
+				l("I can't give you nothing if you don't leave some room for it!")
+				)
+			) {
+				// FIXME Put some messages about making again the potion so the NPC can look different and react like it was somewhat disturbed by player failure
+				mesq l("Remember: you must now pour it over the land.");
+			}
+		}
+	}
+	close;
+	return;
+}
 
-    close;
+/*
+Part 3
+Flowers now can be planted. Therefore Galimatia needs help of Blossom. She sends the player to her to get 5 packages of flower seeds.
+NOTE: Flower seeds are dropped directly from Clover Patches, however grass seeds are more common.
+*/
+
+function QuestPart4 {
+	speech
+			l("Now I need %d %s.", .REQ2_INGREDIENTS_AMOUNT, getitemlink(.REQ2_INGREDIENTS));
+	// We take player items without asking
+	if(checkForItems(.REQ2_INGREDIENTS, .REQ2_INGREDIENTS_AMOUNT)) {
+		speech
+			l("Nice, gimme that!");
+		advanceQuest();
+	} else {
+		speech
+			l("Go get some!");
+	}
+	close;
+	return;
+}
+
+/*
+The fields are in bloom and the Bees hard at work bringing stuff to the Beehives.
+Galimatia is thankful for your help and offers to pay you a larger reward if you help her collect honey as well.
+Honey is dropped by Beehives. To gather honey from Beehives you must defeat the bees protecting it, which will attack you when you attack their hive. When you kill a hive, 2 - 3 aggro bees spawn. The player must kill them (which is not so easy). (Some hives don't have Honey and some do - 50% drop rate should do the trick). The hive is a mob just like the pink flowers. Four honey jars complete the quest.
+Galimatia reassures you that these are giant bees and they will rebuild their hives quickly so it's not all as cruel as it may seem.
+
+Galimatia gives the player their reward: Player must select a simple Magic Wand (provides Healing Spell) or a Mana Torch (provides Fire Attack Spell), both can be used as a torch to keep angry bees away and a Jar of Honey.
+*/
+
+function QuestPart5 {
+	speech
+		l("Nice job."),
+		l("What do you want?"),
+		l("A %s or a %s?", getitemlink(.QUESTPRIZES[0]) , getitemlink(.QUESTPRIZES[1]));
+	select(
+		l("I want the %s!",     getitemname(.QUESTPRIZES[0])),
+		l("A %s?!? Cool!!!",    getitemname(.QUESTPRIZES[1]))
+	);
+	if (!checkweight(.QUESTPRIZES[@menu-1], .QUESTPRIZES_AMOUNT[@menu-1])) {
+		mesq l("I can't give you a prize if you are overburdened. Make room in your inventory!");
+	}
+	else{
+		getitem(.QUESTPRIZES[@menu-1], .QUESTPRIZES_AMOUNT[@menu-1]);
+		advanceQuest();
+		mesq l("Use those wisely and use safety glasses.");
+	}
+	close;
+	return;
+}
+
+/*
+Part 6 (Extra Quest)
+This enables the player to receive a Rose Hat. Fighting the flowers that were just planted, the player will receive roses and / or tulips as a drop. in Part 3 Blossom may mention that she always is happy about receiving the rare Blue Rose. She trades the Rose Hat for 10 Blue Roses and a preparation fee of 1.000 GP. She offer this only after everything before is finished.
+*/
+
+function QuestPart6 {
+	mesq l("Hello again! Do you want me to exchange %d %s and %d GP for a %s?",
+			.REQ3_INGREDIENTS_AMOUNT[0], getitemlink(.REQ3_INGREDIENTS[0]),
+			.REQ3_COST, getitemlink(.REQ3_OUTPUT)
+	);
+	if (askyesno() == ASK_NO) {
+		mesq l("As you wish.");
+		close();
+	} else {
+		if(Zeny>=.REQ3_COST) {
+			if(NPCcrafting(
+				.REQ3_INGREDIENTS, .REQ3_INGREDIENTS_AMOUNT,
+				.REQ3_OUTPUT, .REQ3_OUTPUT_AMOUNT,
+				l("Do you have what I need?"),
+				l("Have fun!"),
+				l("Nope. I wont exchange for such less."),
+				l("I can't give you nothing if you don't leave some room for it!")
+			)) Zeny-=(.REQ3_COST);
+		} else {
+			mesq l("Ain't working for free, pal!");
+		}
+	}
+	close;
+	return;
+}
 
 OnInit:
-    .bodytype = BODYTYPE_2;
-    .distance = 2;
-    end;
+	// NPC ITEM REQUESTS
+	setarray(.REQ0_INGREDIENTS          , BottleOfWater , PinkPetal );
+	setarray(.REQ0_INGREDIENTS_AMOUNT   , 1             , 5         );
+	.REQ0_OUTPUT            = PurificationPotion;
+	.REQ0_OUTPUT_AMOUNT     = 1 ;
+
+	// FIXME ingredients are wrong (because I'm tired of use /createitems everytime)
+	setarray(.REQ1_INGREDIENTS          , BottleOfWater, MaggotSlime, MauveHerb);
+	setarray(.REQ1_INGREDIENTS_AMOUNT   , 1            , 10         , 5);
+	.REQ1_OUTPUT            = FertilityPotion;
+	.REQ1_OUTPUT_AMOUNT     = 1;
+
+	setarray(.REQ2_INGREDIENTS          , FlowerSeeds);
+	setarray(.REQ2_INGREDIENTS_AMOUNT   , 5);
+
+	setarray(.QUESTPRIZES               , TrainingWand  , RubberBat );
+	setarray(.QUESTPRIZES_AMOUNT        , 1             , 1         );
+
+	setarray(.REQ3_INGREDIENTS          , ABlueRose);
+	setarray(.REQ3_INGREDIENTS_AMOUNT   , 10       );
+	.REQ3_COST              = 1000;
+	.REQ3_OUTPUT            = RoseHat;
+	.REQ3_OUTPUT_AMOUNT     = 1;
+
+	.bodytype = BODYTYPE_2;
+	.distance = 4;
+	end;
 }
diff --git a/npc/commands/debug-quest.txt b/npc/commands/debug-quest.txt
index 890a7a8b..8ec18fae 100644
--- a/npc/commands/debug-quest.txt
+++ b/npc/commands/debug-quest.txt
@@ -108,7 +108,8 @@ function	script	GlobalQuestDebug	{
                 l("Inspector"), HurnscaldQuests_Inspector,
                 l("Forest bow"), HurnscaldQuests_ForestBow,
                 l("Wooden shield"), HurnscaldQuests_WoodenShield,
-                "Kfahr",HurnscaldQuests_Kfahr;
+                "Kfahr",HurnscaldQuests_Kfahr,
+                "Galimatia",ArgaesQuest_Galimatia;
 
             switch (@menuret)
             {
diff --git a/npc/functions/quest-debug/058-ArgaesQuest_Galimatia.txt b/npc/functions/quest-debug/058-ArgaesQuest_Galimatia.txt
new file mode 100644
index 00000000..01a058e7
--- /dev/null
+++ b/npc/functions/quest-debug/058-ArgaesQuest_Galimatia.txt
@@ -0,0 +1,32 @@
+// Galimatia quest debug
+// Author:
+//    Livio
+//    Someone else I've forgot the name
+
+function	script	QuestDebug58	{
+	do
+	{
+		clear;
+		setnpcdialogtitle l("Quest debug");
+		mes "ArgaesQuest_Galimatia";
+		mes "---";
+		mes l("Quest state: @@", getq(ArgaesQuest_Galimatia));
+		next;
+
+		GenericQuestDebug ArgaesQuest_Galimatia,
+			l("[RESET QUEST] Does not have the quest"), 0,
+			l("PC have to pour chemicals on dirt"), 1,
+			l("Galimatia needs Fertility Potion ingredients"), 2,
+			l("PC have to pour Fertility Potion on the same spot"), 3,
+			l("Something grows or it should be"), 4,
+			l("Galimatia offers a reward"), 5,
+			l("Galimatia offers to exchange flower things"), 6;
+
+		if (@menuret < 0)
+		{
+			return;
+		}
+
+	} while (1);
+	return;
+}
\ No newline at end of file
diff --git a/npc/scripts.conf b/npc/scripts.conf
index 9701efce..1ce33c7e 100644
--- a/npc/scripts.conf
+++ b/npc/scripts.conf
@@ -117,6 +117,7 @@
 "npc/functions/quest-debug/055-General_Cooking.txt",
 "npc/functions/quest-debug/056-General_Brotherhood.txt",
 "npc/functions/quest-debug/057-HurnscaldQuests_Kfahr.txt",
+"npc/functions/quest-debug/058-ArgaesQuest_Galimatia.txt",
 
 // Event and General Quests
 "npc/functions/quest-debug/100-General_Narrator.txt",