Start diggin

src/Draw.pbi

@@ -43,4 +43,4 @@ Procedure DrawRunningGame()
   DrawPlayer()
   
   DrawHUD()  
-EndProcedure
+EndProcedure

src/Events.pbi

@@ -99,4 +99,42 @@ Procedure HandleEventRunningGame()
       Cam\Y + 1
     EndIf
   EndIf
+  
+  
+  ; Digging!
+  If KeyboardReleased(#PB_Key_Escape)
+    Define TargetX.i, TargetY.i
+    
+    ; Determine the pixel to destroy
+    If Player\Direction = #PLAYER_DIR_LEFT And Player\X < #MAP_WIDTH
+      TargetX = Player\X + 1
+      TargetY = Player\Y
+    EndIf
+    
+    If Player\Direction = #PLAYER_DIR_RIGHT And Player\X > 0
+      TargetX = Player\X - 1
+      TargetY = Player\Y
+    EndIf
+    
+    If Player\Direction = #PLAYER_DIR_UP And Player\Y > 0
+      TargetX = Player\X
+      TargetY = Player\Y -1
+    EndIf
+    
+    If Player\Direction = #PLAYER_DIR_DOWN And Player\X < #MAP_HEIGHT
+      TargetX = Player\X
+      TargetY = Player\Y + 1
+    EndIf
+      
+    ; Do something with the block
+    If TileIsType(#TILESET_TYPE_WALL, TargetX, TargetY)
+      TileMap(TargetX, TargetY)\Health - 1
+      
+      If TileMap(TargetX, TargetY)\Health = -1
+        TileMap(TargetX, TargetY)\TileNumber = #TILESET_TYPE_FLOOR
+      EndIf
+      
+      DrawNoiseWave(TargetX, TargetY)
+    EndIf
+  EndIf
 EndProcedure

src/Structs.pbi

@@ -50,6 +50,8 @@ Structure Player
   Direction.i
 EndStructure
 
+
+
 Structure Shadow
   X.i
   Y.i