Sometimes crush creatures when doors close on them

src/Dodge/Debug.hs

@@ -42,6 +42,45 @@ overDebugEvent u = fromMaybe u $ do
 
 debugEvent :: DebugBool -> Universe -> Universe
 debugEvent db u = u & uvDebug . at db .~ debugItem db u
+    & debugEvent' db
+
+-- possibly don't want this running when the game is paused/not running normally
+-- note this happens before functionalUpdate
+debugEvent' :: DebugBool -> Universe -> Universe
+debugEvent' = \case
+    Collision_test -> id
+    Circ_collision_test -> id
+    Show_walls_near_point_cursor -> id
+    Show_walls_near_segment -> id
+    Display_debug -> id
+    Noclip -> id
+    Remove_LOS -> id
+    Cull_more_lights -> id
+    Close_shape_culling -> id
+    Bound_box_screen -> id
+    Show_ms_frame -> id
+    View_gr_boundaries -> id
+    View_rm_boundaries -> id
+    Show_bound_box -> id
+    Show_wall_search_rays -> id
+    Show_dda_test -> id
+    Show_far_wall_detect -> id
+    Show_walls_near_you -> id
+    Show_zone_near_point_cursor -> id
+    Show_zone_circ -> id
+    Inspect_wall -> id
+    Cr_awareness -> id
+    Show_sound -> id
+    Cr_status -> id
+    Mouse_position -> id
+    Walls_info -> id
+    Pathing -> id
+    Show_path_between -> id
+    Show_writable_values -> id
+    Show_mouse_click_pos -> id
+    Debug_get -> id
+    Debug_put -> id
+    Muzzle_positions -> id
 
 debugItem :: DebugBool -> Universe -> Maybe [DebugItem]
 debugItem = \case
@@ -109,7 +148,6 @@ doDebugGet u =
   where
     f s = DebugItem s (setClip s)
 
-
 debugShowPath :: Universe -> DebugItem
 debugShowPath u =
     DebugItem (u ^. uvDebugPathShowType . to show) f