Rewards for Contributors, and some rules. @Saulc please review.

1 files changed, 33 insertions, 0 deletions

diff --git a/npc/003-2/lua.txt b/npc/003-2/lua.txt
index e3e78e021..7edae28c4 100644
--- a/npc/003-2/lua.txt
+++ b/npc/003-2/lua.txt
@@ -20,6 +20,7 @@ L_Menu:
         rif(is_gm() && #GMEVENT_T <= gettimetick(2), l("I plan in doing an event! Give me the coins!")), L_GMEvent,
         rif(is_staff(), l("Tell people the name of a new hero.")), L_NewHero,
         rif((getgmlevel() == 1 || is_admin()) && #T_SPONSOR <= gettimetick(2), l("I want a Sponsor Necklace.")), L_Sponsor,
+        l("I am a contributor, and I want contributor stuff."), L_Contributor,
         l("What alliance?"),-;
     mes "";
     mesn;
@@ -106,6 +107,38 @@ L_Info:
     setq General_Narrator, 2;
     close;
 
+L_Contributor:
+    mes "";
+    .@m = htget($@CONTRIBUTORS, strtolower(strcharinfo(0)), 0);
+    if (!.@m) {
+        mesn;
+        mesq l("Ah... Sorry, your name is not on the contributor list.");
+        next;
+        mesn;
+        mesq l("You can colaborate with our project though! Just ask on #tmw2-dev, be it on Discord or IRC!");
+        close;
+    }
+    mesn;
+    mesq l("Ah, welcome @@. You have @@ Contributor Points.", strcharinfo(0), .@m);
+    mesq l("Let's see if you can pick a reward!");
+    select
+        //rif(#CRW < 5, l("Dev Cap")),
+        //rif(#CRW < 4, l("Dev Cap")),
+        rif(#CRW & 4 && .@m >= 2500, l("Developer Cap")),
+        rif(#CRW & 2 && .@m >= 500, l("Contributor Sweater")),
+        rif(#CRW & 1 && .@m >= 100, l("Community Shirt")),
+        l("Ok, thanks.");
+
+    switch (@menu) {
+        case 1:
+            getitembound "DEVCap", 1, 1; #CRW=#CRW|4 ; break;
+        case 2:
+            getitembound "ContributorSweater", 1, 1; #CRW=#CRW|2 ; break;
+        case 3:
+            getitembound "CommunityShirt", 1, 1; #CRW=#CRW|1 ; break;
+    }
+    close;
+
 L_Close:
     close;