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.

1 files changed, 59 insertions, 0 deletions

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;
+
+}
+
+
+