gy inn: adding lover and golbanez

1 files changed, 142 insertions, 0 deletions

diff --git a/npc/027-2_Caretakers_House/lover.txt b/npc/027-2_Caretakers_House/lover.txt
new file mode 100644
index 00000000..960217a3
--- /dev/null
+++ b/npc/027-2_Caretakers_House/lover.txt
@@ -0,0 +1,142 @@
+027-2.gat,43,73,0	script	Savaric	317,{
+
+	set @Graveyard_Inn_MASK, NIBBLE_1_MASK;
+	set @Graveyard_Inn_SHIFT, NIBBLE_1_SHIFT;
+
+	set @state, ((QUEST_Graveyard_Inn & @Graveyard_Inn_MASK) >> @Graveyard_Inn_SHIFT);
+
+	set @Graveyard_Inn_Woman_MASK, NIBBLE_0_MASK;
+	set @Graveyard_Inn_Woman_SHIFT, NIBBLE_0_SHIFT;
+
+	set @woman, ((QUEST_Graveyard_Inn & @Graveyard_Inn_Woman_MASK) >> @Graveyard_Inn_Woman_SHIFT);
+
+	set @Graveyard_Inn_Golbanez_MASK, NIBBLE_4_MASK;
+	set @Graveyard_Inn_Golbanez_SHIFT, NIBBLE_4_SHIFT;
+
+	set @golbanez, ((QUEST_Graveyard_Inn & @Graveyard_Inn_Golbanez_MASK) >> @Graveyard_Inn_Golbanez_SHIFT);
+
+	//TODO: determine sane values
+	set @CRYSTAL_AMOUNT, 500;
+	set @CRYSTAL_EXP, 100000;
+
+	if (@state == 2) goto L_News;
+	if (@state == 1) goto L_Crystals;
+
+	mes "You see a dead man hanging. This place is creepy!";
+	next;
+	mes "Suddenly the man opens his eyes and look at you.";
+	next;
+	mes "[Hanged Man]";
+	mes "\"Oh, hello. Nice to see you - I seem to be dead, but I don't know why and why I'm still consciousness. This is very interesting.\"";
+	menu
+		"INTERESTING? Are you crazy?",-;
+	mes "[Hanged Man]";
+	mes "\"Well, as you mention it, it is quite annyoing and uncomfortable. Would you mind to help me coming down on the floor?\"";
+	next;
+	mes "You take a step towards him, but some invisible force holds you back.";
+	next;
+	mes "[Hanged Man]";
+	mes "\"Oh, someone is holding you back with magic! I sense a really dark and mighty power. What has happened!?\"";
+	next;
+	mes "\"Can I ask you for a favor? Can you bring me lots of dark crystals? You might need to ask a dark mage for it. I want to try to break the barrier.\"";
+	set @state, 1;
+	callsub S_Update_Mask;
+	close;
+
+L_Crystals:
+	mes "[Hanged Man]";
+	mes "\"Ah, you're back! Did you get the dark crystals?\"";
+
+	if (countitem("DarkCrystal") == 0)
+		menu
+			"Not yet.", L_Close;
+
+	if (countitem("DarkCrystal") < @CRYSTAL_AMOUNT)
+		goto L_Not_Enough_Crystals;
+
+	delitem "DarkCrystal", countitem("DarkCrystal");
+	getexp @CRYSTAL_EXP, 0;
+	next;
+	mes "\"Oh, I can feel them! Please lay them down on the floor.\"";
+	next;
+	mes "You lay your dark crystals down on the floor and step back, nervously expecting the coming.";
+	next;
+	mes "The hanged man seems very concentrated now, which looks absurdly with him hanging there.";
+	next;
+	mes "The dark crystals start to glow and buzz. You take another step back.";
+	next;
+	mes "The buzzing turns louder and louder, so you can't hear the word, the hanged man is calling now.";
+	next;
+	heal -300, 0;
+	mes "The crystals explode and hit you!";
+	//TODO: try this!
+	if (hp <= 0)
+		close;
+	next;
+	mes "You fall down on the floor and blink hectically to regain your eyesight again.";
+	next;
+	mes "[Hanged Man]";
+	mes "\"Hello? You're ok? I'm sorry, something went wrong. It seems, not only there is a magical barrier, but also my manaflow is blocked. I don't know, if this is because I'm dead or part of the barrier spell.\"";
+	next;
+	mes "\"I never was dead before, so I can't be sure. But I was able to access my magic - it just got out of control in the critical moment.\"";
+	next;
+	mes "\"This is fascinating!\"";
+	menu
+		"Ok, you are crazy!",-,
+		"Yes, it is very fascinating to be blown up!",-,
+		"I NEARLY DIED! AND YOU THINK, THIS IS FASCINATING?!",-;
+	mes "[Hanged Man]";
+	mes "\"I sometimes forget the fact, not everybody is fascinated by the riddles of magic. Please forgive me.\"";
+	next;
+	mes "\"And I even didn't introduced myself! I am very sorry for my rude behaviour!\"";
+	next;
+	mes "\"My name is Savaric, first apprentice of the Great Demon Summoner Ymbert.\"";
+	next;
+	mes "\"If you can forgive me my behaviour, may I ask you for another favor? Can you please search for someone or something in this inn, that could be the source of this dark magic?\"";
+	set @state, 2;
+	callsub S_Update_Mask;
+	close;
+
+L_News:
+	mes "[Savaric]";
+	mes "\"Welcome back. Did you find a possible source for the dark magic?\"";
+	if ((@woman < 6) && (@golbanez == 0))
+		menu
+			"Not yet, I'm still searching.",L_Close;
+
+	if ((@woman < 6) && (@golbanez > 0))
+		menu
+			"Yes, let me tell you.",L_Golbanez,
+			"I don't think so",L_Close;
+
+	if ((@woman >=  6) && (@golbanez == 0))
+		menu
+			"Can you tell me about your relationship to Reid?",L_Reid,
+			"Not yet, I'm still searching.",L_Close;
+
+	if ((@woman >=  6) && (@golbanez >= 0))
+		menu
+			"Can you tell me about your relationship to Reid?",L_Reid,
+			"Yes, let me tell you.",L_Golbanez,
+			"I don't think so",L_Close;
+
+L_Golbanez:
+	mes "TODO: add story";
+	close;
+
+L_Reid:
+	mes "TODO: add story";
+	close;
+
+L_Not_Enough_Crystals:
+	mes "It seems, you managed to get some, but not enough. Can you bring me more?";
+	close;
+L_Close:
+	close;
+
+S_Update_Mask:
+        set QUEST_Graveyard_Inn,
+        	(QUEST_Graveyard_Inn & ~(@Graveyard_Inn_MASK))
+                | (@state << @Graveyard_Inn_SHIFT);
+        return;
+}