GMs on MK Guild may opt to receive strange coins automatically

3 files changed, 27 insertions, 3 deletions

diff --git a/npc/003-2/lua.txt b/npc/003-2/lua.txt
index b487fd1bf..d86b30451 100644
--- a/npc/003-2/lua.txt
+++ b/npc/003-2/lua.txt
@@ -46,8 +46,8 @@ L_GMItems:
 L_GMEvent:
     #GMEVENT_T=gettimetick(2)+(60*60*24);
     getitem StrangeCoin, 30;
-    logmes(strcharinfo(0)+" just took thirty event coins.");
-    logmes(strcharinfo(0)+" just took thirty event coins.", LOGMES_ATCOMMAND);
+    #logmes(strcharinfo(0)+" just took thirty event coins.");
+    #logmes(strcharinfo(0)+" just took thirty event coins.", LOGMES_ATCOMMAND);
     mes "";
     mesn;
     mesq lg("Here they are, miss.", "Here they are, mister.");
diff --git a/npc/commands/ucp.txt b/npc/commands/ucp.txt
index d00523964..cb8ee34e2 100644
--- a/npc/commands/ucp.txt
+++ b/npc/commands/ucp.txt
@@ -137,11 +137,20 @@ function	script	UserCtrlPanel	{
                 else
                     mes l("Display daily reward screen: ") + col(l("Enabled"), 2);
 
+
+                // GSET_AUTORECEIVE_COINS
+                // Enables/Disable autoreceive strange coins
+                if (!GSET_AUTORECEIVE_COINS)
+                    mes l("Autoreceive Strange Coins: ") + col(l("Disabled"), 1);
+                else
+                    mes l("Autoreceive Strange Coins: ") + col(l("Enabled"), 2);
+
                 mes "";
                 select
                     l("Return to User Control Panel"),
                     l("Toggle Soul Menhir automatic saving"),
-                    l("Toggle Daily Reward screen");
+                    l("Toggle Daily Reward screen"),
+                    (strcharinfo(2) == "Monster King", ("Toggle Autoreceive Event Coins"));
                 mes "";
 
                 switch (@menu) {
@@ -150,6 +159,8 @@ function	script	UserCtrlPanel	{
                         if (!GSET_SOULMENHIR_MANUAL) savepoint "000-1", 22, 22; break;
                     case 3:
                         GSET_DAILYREWARD_SILENT=!GSET_DAILYREWARD_SILENT; break;
+                    case 4:
+                        GSET_AUTORECEIVE_COINS=!GSET_AUTORECEIVE_COINS; break;
                 }
                 clear;
               } while (@menu != 1);
diff --git a/npc/functions/daily.txt b/npc/functions/daily.txt
index b02a4c303..697f133a9 100644
--- a/npc/functions/daily.txt
+++ b/npc/functions/daily.txt
@@ -18,6 +18,18 @@ function	script	daily_login_bonus_handler	{
     //      Number of times you claimed the top prize (27 days streak)
     //debugmes "DLBH";
 
+    // GMs can receive Strange Coins
+    if (GSET_AUTORECEIVE_COINS) {
+        if (is_gm()) {
+            if (#GMEVENT_T <= gettimetick(2)) {
+                #GMEVENT_T=gettimetick(2)+(60*60*24);
+                getitem StrangeCoin, 30;
+            }
+        } else {
+            GSET_AUTORECEIVE_COINS=false;
+        }
+    }
+
     if (#LOGIN_DAY != gettime(5)) {
         // demure check: Are you on a start area?
         getmapxy(.@m$,.@x,.@y,0);
@@ -128,6 +140,7 @@ function	script	daily_login_bonus_handler	{
                 dispbottom "##B##2"+l("Merry Christmas!")+" "+l("You have gained a special login bonus!")+"##b##0";
             }
         }
+
         // We're almost done with daily logins, just the optional User Interface
         if (!GSET_DAILYREWARD_SILENT) {
             setnpcdialogtitle l("Daily Login Rewards");