From 495a42de7692534a5ece735d5f49b782be818b17 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sat, 18 May 2019 23:15:36 -0300
Subject: Redesign some dialog in Halinarzo to “force” players to get magic.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 npc/009-2/librarian.txt |  9 +++++++--
 npc/009-2/scholar.txt   | 16 ++++++++++++++++
 npc/011-1/manastone.txt |  6 +++---
 3 files changed, 26 insertions(+), 5 deletions(-)

diff --git a/npc/009-2/librarian.txt b/npc/009-2/librarian.txt
index 1c742ddf8..72389d9b2 100644
--- a/npc/009-2/librarian.txt
+++ b/npc/009-2/librarian.txt
@@ -22,7 +22,7 @@ L_Advance:
     .@nt = getq2(General_Narrator);
     // Initial Value is 0.
     // .@nt tracks future value
-    if (!.@nt)
+    if (!.@nt || .@n == 6)
         goto L_Prologue;
 
     // If you wait 7 - instead of 3 - hours, you are abusing.
@@ -35,7 +35,12 @@ L_Advance:
     if (.@nt <= santime())
         goto L_Complete;
     mesn;
-    mesq l("Please help us with the bandits on the Canyon, and meanwhile, I'll seek the records for you. Just @@ more.", FuzzyTime(.@nt));
+    mesq l("Have you found out magic already? It should not be possible, but the girl reading the book says it is. I don't know in what to believe.");
+    next;
+    mesn;
+    mesq l("Anyway, I still need @@. You have plenty of time to do things at your own pace.", FuzzyTime(.@nt));
+    // Rule #99999999: Never tell players to grind for 3 hours you lazy dev
+    //mesq l("Please help us with the bandits on the Canyon, and meanwhile, I'll seek the records for you. Just @@ more.", FuzzyTime(.@nt));
     close;
 
 L_Prologue:
diff --git a/npc/009-2/scholar.txt b/npc/009-2/scholar.txt
index 64e5cb6c1..cade0342b 100644
--- a/npc/009-2/scholar.txt
+++ b/npc/009-2/scholar.txt
@@ -21,6 +21,8 @@
     mesc l("*sigh*");
     if (.@q < 1)
         goto L_Intro;
+    if (.@q && getq(General_Narrator) == 7)
+        goto L_NeedHelp;
     close;
 
 L_NotEnough:
@@ -32,6 +34,8 @@ L_NotEnough:
     }
     if (readparam(bInt) < $MANA_BINT+MAGIC_LVL*rand(10,13)) {
         mesq l("Out of my experience, your base intelligence may not be enough.");
+        if (!.@q)
+            mesc l("You should reset your stats and allocate some points at intelligence.");
     }
     if (.@q < 1)
         goto L_Intro;
@@ -65,6 +69,18 @@ L_Intro:
     getitem TrainingWand, 1;
     close;
 
+L_NeedHelp:
+    next;
+    mesn;
+    mesq l("Did you knew some crazy adventurers insists there is a Mana Stone on the danerous caves inside the town?");
+    next;
+    mesn;
+    mesq l("I mean, that's absurd! If there was one, it would have been taken already. Unless if grew some sencience or something.");
+    next;
+    mesn;
+    mesq l("Anyway, if you ever feel bored and wanna see what I mean by yourself, just leave the building and head west, then north. There's a small entrance there.");
+    close;
+
 OnInit:
     .sex=G_FEMALE;
     .distance=5;
diff --git a/npc/011-1/manastone.txt b/npc/011-1/manastone.txt
index 429d1a4f6..f468deedb 100644
--- a/npc/011-1/manastone.txt
+++ b/npc/011-1/manastone.txt
@@ -58,7 +58,7 @@ L_Level:
     if (MAGIC_LVL >= 7 || is_gm()) close;
 
 L_NotWorthy2:
-    if (is_gm()) movenpc .name$, 20+rand(160), 20+rand(160);
+    if (is_gm()) movenpc .name$, 20+rand(150), 20+rand(150);
     if (is_gm()) close;
     npctalk3 l("You are not worthy!");
     percentheal -20, -50;
@@ -80,7 +80,7 @@ L_LevelUp:
     close;
 
 OnInit:
-    movenpc .name$, 20+rand(160), 20+rand(160);
+    movenpc .name$, 20+rand(150), 20+rand(150);
     .sex = G_OTHER;
     .distance = 6;
     end;
@@ -110,7 +110,7 @@ OnClock2100:
 OnClock2250:
 OnClock2340:
     npctalk "Those who are worthy, may get my magic. For the others, death awaits!";
-    movenpc .name$, 20+rand(160), 20+rand(160);
+    movenpc .name$, 20+rand(150), 20+rand(150);
     end;
 
 }
-- 
cgit v1.2.3-70-g09d2