Rework Nard. Lazy people will get only 250 discount, but now it can go up

to a whooping 1000 GP discount. Requirements subject to change later.

2 files changed, 66 insertions, 5 deletions

diff --git a/npc/002-4/nard.txt b/npc/002-4/nard.txt
index aefa1f066..9ff46c1a1 100644
--- a/npc/002-4/nard.txt
+++ b/npc/002-4/nard.txt
@@ -164,12 +164,14 @@ L_NotYet:
     close;
 
 L_Travel:
-    if (getq(CandorQuest_Barrel) >= 4 &&
-        getq(CandorQuest_HAS) >= 4 &&
-        getq(CandorQuest_Sailors) >= 3 &&
-        getq(CandorQuest_Vincent) >= 2 &&
-        getq(CandorQuest_Trainer) >= 12)
+    if (nard_reputation() >= 11)
+            .@price-=1000;
+    else if (nard_reputation() >= 9)
+            .@price-=750;
+    else if (nard_reputation() >= 7)
             .@price-=500;
+    else if (nard_reputation() >= 5)
+            .@price-=250;
     mesn;
     mesq l("Hi @@.", strcharinfo(0));
     next;
diff --git a/npc/functions/util.txt b/npc/functions/util.txt
index ae70b233d..10c9fbbfa 100644
--- a/npc/functions/util.txt
+++ b/npc/functions/util.txt
@@ -1,6 +1,8 @@
+// TMW2 Script.
 // Evol functions.
 // Authors:
 //    Reid
+//    Jesusalva
 // Description:
 //    Util functions
 
@@ -33,3 +35,60 @@ function	script	season_direction	{
 
     return (.@current_month / 3 + .@is_after_season_day) % 4;
 }
+
+// Returns Nard reputation for discounts
+// Currently ranges from 0 to 11.
+function	script	nard_reputation	{
+    .@nr=0; // Base reputation
+
+    // Valon Quest (+1 rep)
+    if (getq(CandorQuest_Trainer) >= 14)
+        .@nr=.@nr+1;
+
+    // Zegas Quest (+1 rep)
+    if (getq(CandorQuest_Barrel) >= 4)
+        .@nr=.@nr+1;
+
+    // Hide And Seek Quest (+1 rep)
+    if (getq(CandorQuest_HAS) >= 4)
+        .@nr=.@nr+1;
+
+    // Sailors Quest (+1 rep)
+    if (getq(CandorQuest_Sailors) >= 3)
+        .@nr=.@nr+1;
+
+    // Vincent Quest (+1 rep)
+    if (getq(CandorQuest_Vincent) >= 2)
+        .@nr=.@nr+1;
+
+    // Tolchi Quest (+1 rep)
+    if (getq(CandorQuest_Tolchi) >= 4)
+        .@nr=.@nr+1;
+
+    // Maya Quest (+1 rep)
+    if (getq(CandorQuest_Maya) >= 4)
+        .@nr=.@nr+1;
+
+    // Dan Quest (+1 rep)
+    if (getq(ShipQuests_Dan) >= 3)
+        .@nr=.@nr+1;
+
+    // Chef Gado Quest (+1 rep)
+    if (getq(ShipQuests_ChefGado) >= 2)
+        .@nr=.@nr+1;
+
+    // Peter Quest (+1 rep)
+    if (getq(ShipQuests_Peter) == 3 || getq(ShipQuests_Peter) == 5)
+        .@nr=.@nr+1;
+
+    // Swezanne Quest (+1 rep)
+    if (getq(TulimsharQuest_Swezanne) >= 1)
+        .@nr=.@nr+1;
+
+    //debugmes "Reputation: "+str(.@nr);
+    return .@nr;
+
+}
+
+
+