Rewrite Referral System

4 files changed, 50 insertions, 4 deletions

diff --git a/db/re/item_db.conf b/db/re/item_db.conf
index ca3354d9d..0e4db6fe4 100644
--- a/db/re/item_db.conf
+++ b/db/re/item_db.conf
@@ -2192,7 +2192,8 @@ item_db: (
 			}
 			getitem .@it, rand(2,3);
 			dispbottom l("Dear @@, I send you this gift in hopes you do well in TMW2.", strcharinfo(0));
-			rodex_sendmail_acc(#REFERRAL_PROG, "TMW2 Team", "Invite Accepted", "Your friend accepted your invite and got level 5!\nThe one who invites most will win the recruitment event!", rand(50,150));
+			//rodex_sendmail_acc(#REFERRAL_PROG, "TMW2 Team", "Invite Accepted", strcharinfo(0)+" accepted your invite and got level 5!\nThe one who invites most will win the recruitment event!", rand(50,150));
+            $REFERRAL_IDS[#REFERRAL_PROG]=$REFERRAL_IDS[#REFERRAL_PROG]+1;
 		}
 	">
 },
diff --git a/npc/003-1/michel.txt b/npc/003-1/michel.txt
index 4fe22308d..03893dfbe 100644
--- a/npc/003-1/michel.txt
+++ b/npc/003-1/michel.txt
@@ -12,13 +12,13 @@
     HallOfCoins();
 
     // Anyone with GM Level, staff or not, is allowed to latest GM logs
-    if (!getgmlevel()) close;
+    if (!getgmlevel()) goto L_Main;
 
     next;
     HallOfGMLog();
 
     // Only Admins are allowed to change the HoF Scoreboard
-    if (!is_admin()) close;
+    if (!is_admin()) goto L_Main;
 
     next;
     mes "##BGM Information##b";
@@ -35,8 +35,45 @@
     mes "##B Technical Notes ##b";
     mes "In future we may start Fame field directly (but it is not displayed on client, thus, we decided to use Karma).";
     //set Karma, Karma + 5;
+    if (is_admin()) goto L_GM;
     close;
 
+L_Main:
+    if (!$REFERRAL_IDS[#REFERRAL_PROG])
+        close;
+    next;
+    mesn;
+    mesq l("Hey, I see you have appointed @@ players to this game. Good job!", $REFERRAL_IDS[#REFERRAL_PROG]);
+    close;
+
+L_GM:
+    .@nb = query_sql("SELECT SUM(value) FROM `mapreg` WHERE varname='$REFERRAL_IDS' LIMIT 2", .@value);
+    @total=.@value[0];
+    mesc "Referral Event status: " + ($REFERRAL_ENABLED ? "##2ACTIVE##0" : "##1INACTIVE##0");
+    mesc "Total refers count: "+@total;
+    mes "";
+    select
+        "Close",
+        "Toggle Referral Event",
+        "Scoreboard",
+        "CLEAR REFERRAL ID ARRAY",
+        "Close";
+    mes "";
+    switch (@menu) {
+        case 2:
+            $REFERRAL_ENABLED=!$REFERRAL_ENABLED; break;
+        case 3:
+            HallOfReferral(); break;
+        case 4:
+            mesc "Are you sure?", 1;
+            next;
+            if (askyesno() == ASK_YES)
+                deletearray($REFERRAL_IDS);
+        default: close;
+    }
+    next;
+    goto L_GM;
+
 OnInit:
     .sex = G_MALE;
     .distance = 5;
diff --git a/npc/003-3/malindou.txt b/npc/003-3/malindou.txt
index 338062eaa..6c0e46d8d 100644
--- a/npc/003-3/malindou.txt
+++ b/npc/003-3/malindou.txt
@@ -119,6 +119,14 @@ OnInit:
         query_sql("UPDATE `quest` SET `count2` = `count1` WHERE `quest`.`quest_id`="+HalinarzoQuest_LifeDelight);
         query_sql("UPDATE `quest` SET `count1` = '1' WHERE `quest`.`quest_id`="+HalinarzoQuest_LifeDelight+" AND `count1` > '1'");
     }
+    // Current UPDATE value: Seg Set 17 16:02:27 -03 2018
+    if ($UPDATE < 1537210947) {
+        $UPDATE=1537210947;
+        debugmes "";
+        debugmes "* Referral Hack System";
+        debugmes "";
+        setarray $REFERRAL_IDS, 0;
+    }
 
 
 
diff --git a/npc/functions/scoreboards.txt b/npc/functions/scoreboards.txt
index e91645b84..3fb44e14a 100644
--- a/npc/functions/scoreboards.txt
+++ b/npc/functions/scoreboards.txt
@@ -115,7 +115,7 @@ function	script	HallOfGMLog	{
 
 function	script	HallOfReferral	{
     mes "";
-    .@nb = query_sql("SELECT l.userid, COUNT(a.value) FROM `acc_reg_num_db` AS a, `login` AS l WHERE a.key='#REFERRAL_PROG' AND l.account_id=a.value ORDER BY COUNT(a.value) DESC LIMIT 20", .@name$, .@value);
+    .@nb = query_sql("SELECT l.userid, COUNT(a.value) FROM `mapreg` AS a, `login` AS l WHERE a.varname='$REFERRAL_IDS' AND l.account_id=a.index ORDER BY COUNT(a.value) DESC LIMIT 20", .@name$, .@value);
 	mes "Referral Program Report - pg. 1";
 	mes("1."+.@name$[0]+" ("+.@value[0]+")");
 	mes("2."+.@name$[1]+" ("+.@value[1]+")");