From 764a0fab9961460f04f38de432a8cb84cec093e5 Mon Sep 17 00:00:00 2001
From: Lynn <kjarli@gmail.com>
Date: Mon, 8 Oct 2018 22:57:29 +0200
Subject: [PATCH] Show a popup on the first mine explaining cave-ins

---
 map_gen/Diggy/Feature/DiggyCaveCollapse.lua | 22 ++++++++++++++++++---
 1 file changed, 19 insertions(+), 3 deletions(-)

diff --git a/map_gen/Diggy/Feature/DiggyCaveCollapse.lua b/map_gen/Diggy/Feature/DiggyCaveCollapse.lua
index 532feead..ac23ee2f 100644
--- a/map_gen/Diggy/Feature/DiggyCaveCollapse.lua
+++ b/map_gen/Diggy/Feature/DiggyCaveCollapse.lua
@@ -40,6 +40,9 @@ local on_surface_created = nil
 
 local stress_threshold_causing_collapse = 0.9
 
+global.deconstruction_alert_message_shown = {}
+local deconstruction_alert_message_shown = global.deconstruction_alert_message_shown
+
 global.stress_map_storage = {}
 local stress_map_storage = global.stress_map_storage
 
@@ -297,6 +300,20 @@ function DiggyCaveCollapse.register(cfg)
         end
     end)
 
+    Event.add(defines.events.on_pre_player_mined_item, function(event)
+        if (nil ~= deconstruction_alert_message_shown[event.player_index]) then
+            return
+        end
+
+        if (nil ~= support_beam_entities[event.entity.name]) then
+            require 'popup'.player(
+                game.players[event.player_index],
+                'Mining entities such as walls, stone paths, concrete and rocks, can cause a cave-in, be careful miner!'
+            )
+            deconstruction_alert_message_shown[event.player_index] = true
+        end
+    end)
+
     enable_stress_grid = config.enable_stress_grid
 
     on_surface_created({surface_index = 1})
@@ -305,9 +322,8 @@ function DiggyCaveCollapse.register(cfg)
     if (config.enable_mask_debug) then
         local surface = game.surfaces.nauvis
         mask_disc_blur(0, 0, 10,  function(x, y, fraction)
-                    Debug.print_grid_value(fraction, surface, {x = x, y = y})
-                end
-        )
+            Debug.print_grid_value(fraction, surface, {x = x, y = y})
+        end)
     end
 end