summaryrefslogtreecommitdiff
path: root/npc/027-2_Caretakers_House/lover.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/027-2_Caretakers_House/lover.txt')
-rw-r--r--npc/027-2_Caretakers_House/lover.txt142
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;
+}