New shovel option (to make up with low bury rates) - Autodigging.

Once you enable this with @ucp > Game Settings, you'll always try to dig.

2 files changed, 27 insertions, 2 deletions

diff --git a/npc/commands/ucp.txt b/npc/commands/ucp.txt
index 99257da16..e1dc87d3e 100644
--- a/npc/commands/ucp.txt
+++ b/npc/commands/ucp.txt
@@ -143,6 +143,15 @@ function	script	UserCtrlPanel	{
                     mes l("Display daily reward screen: ") + col(l("Enabled"), 2);
 
 
+                // GSET_SHOVEL_AUTODIG
+                // Enables/Disable menu options for shovelling
+                // (if enabled, you'll always dig)
+                if (GSET_SHOVEL_AUTODIG)
+                    mes l("Display Shovel Menu: ") + col(l("Disabled"), 1);
+                else
+                    mes l("Display Shovel Menu: ") + col(l("Enabled"), 2);
+
+
                 if (strcharinfo(2) == "Monster King") {
                     // GSET_AUTORECEIVE_COINS
                     // Enables/Disable autoreceive strange coins
@@ -162,6 +171,7 @@ function	script	UserCtrlPanel	{
                     l("Return to User Control Panel"),
                     l("Toggle Soul Menhir automatic saving"),
                     l("Toggle Daily Reward screen"),
+                    l("Toggle Shovel automatic digging"),
                     rif(strcharinfo(2) == "Monster King", ("Toggle Autoreceive Event Coins"));
                 mes "";
 
@@ -180,6 +190,8 @@ function	script	UserCtrlPanel	{
                     case 3:
                         GSET_DAILYREWARD_SILENT=!GSET_DAILYREWARD_SILENT; break;
                     case 4:
+                        GSET_SHOVEL_AUTODIG=!GSET_SHOVEL_AUTODIG; break;
+                    case 5:
                         GSET_AUTORECEIVE_COINS=!GSET_AUTORECEIVE_COINS; break;
                 }
                 clear;
diff --git a/npc/items/shovel.txt b/npc/items/shovel.txt
index 63480fb98..b0a45b4f1 100644
--- a/npc/items/shovel.txt
+++ b/npc/items/shovel.txt
@@ -104,8 +104,12 @@ function	script	shovel_scatter	{
         }
 
         if (@ShovelLastUsed + max(5, .@playertick) > .@tick) {
-            mes "";
-            mesc lg("You are exhausted, you should rest a bit.");
+            if (!GSET_SHOVEL_AUTODIG) {
+                mes "";
+                mesc lg("You are exhausted, you should rest a bit.");
+            } else {
+                dispbottom lg("You are exhausted, you should rest a bit.");
+            }
             return 1;
         }
         @ShovelLastUsed = .@tick;
@@ -237,6 +241,15 @@ OnUse:
         close;
     }
 
+    // SHOVEL_AUTODIG - Skip menu and outright try to dig
+    if (GSET_SHOVEL_AUTODIG) {
+        if (PlayerIsTired())
+            end;
+        if (!ShovelQuests())
+            Dig();
+        end;
+    }
+
     narrator S_LAST_BLANK_LINE,
         l("You hold the shovel in your hands. What are you going to do?");