From d0c98e038a9652be3b3a6fcaeb0e255b08e322b1 Mon Sep 17 00:00:00 2001
From: Jesusaves <cpntb1@ymail.com>
Date: Sun, 17 Jun 2018 21:56:29 -0300
Subject: Rewards for Contributors, and some rules. @Saulc please review.

---
 db/re/item_db.conf     |  4 ++--
 npc/003-2/lua.txt      | 33 +++++++++++++++++++++++++++++++++
 npc/003-3/malindou.txt |  8 ++++++--
 3 files changed, 41 insertions(+), 4 deletions(-)

diff --git a/db/re/item_db.conf b/db/re/item_db.conf
index f0233c866..a42db5a26 100644
--- a/db/re/item_db.conf
+++ b/db/re/item_db.conf
@@ -5788,10 +5788,10 @@ item_db: (
 	Buy: 1000000
 	Sell: 100
 	Weight: 120
-	Def: 40
+	Def: 10
 	Loc: "EQP_HEAD_MID"
 	WeaponLv: 0
-	EquipLv: 127
+	EquipLv: 1
 	Refine: false
 	ViewSprite: 1335
 	BuyingStore: true
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;
 
diff --git a/npc/003-3/malindou.txt b/npc/003-3/malindou.txt
index 564c7ed3a..968fcf856 100644
--- a/npc/003-3/malindou.txt
+++ b/npc/003-3/malindou.txt
@@ -34,8 +34,12 @@ OnInit:
 
 
     // This mensures Contributors Credits, and changes only during updates.
-    // All names in lower case. Max value is 1'000'000. Non-TMW2 contributors
+    // All names in lower case. standard: 100 points. Non-TMW2 contributors
     // should be disregarded if they're not involved with the project.
+
+    // You may get more points for complexity, difficulty, usability, etc.
+    // You may get less points if you don't do it yourself, eg. a bug report.
+
     // See 003-2/lua.txt for rewards
 
     $@CONTRIBUTORS = htnew;
@@ -44,7 +48,7 @@ OnInit:
     htput($@CONTRIBUTORS, "lawncable", 1020);
     htput($@CONTRIBUTORS, "polaczka", 500);
     htput($@CONTRIBUTORS, "soren", 500);
-    htput($@CONTRIBUTORS, "crazyfefe", 120);
+    htput($@CONTRIBUTORS, "crazyfefe", 420);
     htput($@CONTRIBUTORS, "ayruss", 120);
     htput($@CONTRIBUTORS, "rakinorf", 100);
     htput($@CONTRIBUTORS, "ichigoblack", 100);
-- 
cgit v1.2.3-60-g2f50