Refactor Nard

1 files changed, 16 insertions, 25 deletions

diff --git a/npc/002-3/nard.txt b/npc/002-3/nard.txt
index fedaf75fb..df8bc3780 100644
--- a/npc/002-3/nard.txt
+++ b/npc/002-3/nard.txt
@@ -37,37 +37,24 @@ L_Checker:
         mesn;
         mesq l("Good to know.");
         next;
-        mesq l("We have made a stop at a little island, before making it on to the port of Tulimshar.");
-        next;
-        mes l("I know that you are just starting to feel better, but I'd like you to explore the island we're currently at.");
-        mes l("It would be good for you to do some exercise, and the ship isn't big enough for that.");
-        next;
         break;
     case 2:
         mesn;
-        mesq l("You have an awful case of amnesia. She is the nurse and shipkeeper of this ship.");
-        next;
-        mesq lg("But most important, she is the one who took care of you when you were unconscious.");
-        next;
-        mesq l("I know that you are just starting to feel better, but I'd like you to explore the island we're currently at.");
+        mesq lg("You have an awful case of amnesia. She is the nurse and shipkeeper of this ship, and took care of you when you were unconscious.");
         next;
         break;
     case 3:
         mesn;
-        mesq l("Oh, I was going to ask you if you wanted to help the crew search for some food and explore the island out there.");
+        mesq l("Well, you'll need to get used to. Being seasick is annoying, so you might want to leave the ship as soon as possible.");
         next;
         break;
     }
 
-L_MenuQuest:
-    menu
-        l("What do you need?"), -,
-        l("Is there a reward?"), L_NeedHead,
-        l("Wait, you never came here before?"), L_CandorIsland;
-
-    mes "";
     mesn;
-    mesq l("Ship travels are not free. See if you can gather some money, and I'll bring you to Tulimshar!");
+    mesq l("We have made a stop at a little island, before making it on to the port of Tulimshar.");
+    next;
+    mesn;
+    mesq l("Ship travels are not free. Also, I have a few friends on the Island, and I would like you to check out on them.");
     next;
     showavatar NPC_ELMO;
     setcamnpc "Elmo";
@@ -77,7 +64,10 @@ L_MenuQuest:
     next;
     showavatar NPC_NARD;
     mesn;
-    mesq l("Why we're going Tulimshar, you may ask? Because well, believe me, if you want to find out anything, the best place to ask around is Tulim!");
+    mesq l("After that, we're going to Tulimshar. Tulim is the most important city on the world, and the Alliance have an office there.");
+    next;
+    mesn;
+    mesq l("The Alliance can help you in finding out about who you are, why you are here, or from where you came from. So, about the tasks I want completed.");
     LOCATION$ = "Candor";
     setq ShipQuests_Julia, 3;
     next;
@@ -153,20 +143,18 @@ L_NeedHead:
     next;
     mesq l("Also, I believe hard work always pay off.");
     next;
-    goto L_MenuQuest;
+    goto L_NotYet;
 
 L_CandorIsland:
     mes "";
     mesn;
-    mesq l("I never said that. I come here frequently to trade. It is you who should explore the island.");
+    mesq l("I come here frequently to trade. It is not deserted nor boring.");
     next;
     mesq l("This is ##BCandor Island##b. A very small rich community lives here.");
     next;
     mesq l("If they were any bigger, monsters would come and kill everyone.");
     next;
-    if (getq(ShipQuests_Julia) < 3)
-        goto L_MenuQuest;
-    close;
+    goto L_NotYet;
 
 L_NotYet:
     .@price=1200;
@@ -181,6 +169,7 @@ L_NotYet:
         rif(#REFERRAL_PROG == 0 && $REFERRAL_ENABLED && BaseLevel <= 10,
             l("I forgot to say earlier, but indeed, I was invited by someone!")),
         l("Captain, why have you brought me to a deserted boring island?!"),
+        l("I don't want to help your \"friends\", bring me to somewhere useful!"),
         l("Please excuse me, captain.");
 
     mes "";
@@ -188,6 +177,8 @@ L_NotYet:
         goto L_Referral;
     if (@menu == 3)
         goto L_CandorIsland;
+    if (@menu == 4)
+        goto L_NeedHelp;
 
     mesn;
     if (getq(CandorQuest_HAS)     < 4 ||