Allow more debug interaction

src/Dodge/Data/Config.hs

@@ -91,6 +91,8 @@ data DebugBool
     | Show_zone_circ
     | Inspect_wall
     | Show_path_between
+    | Show_writable_values
+    | Show_mouse_click_pos
     deriving (Eq, Ord, Bounded, Enum, Show)
 
 data ResFactor = DoubleRes | FullRes | HalfRes | QuarterRes | EighthRes | SixteenthRes

src/Dodge/Data/Universe.hs

@@ -13,6 +13,7 @@ module Dodge.Data.Universe (
     module Loop.Data,
 ) where
 
+import Geometry.Data
 import Sound.Data
 import qualified Data.Map.Strict as M
 import GHC.Word (Word32)
@@ -43,10 +44,18 @@ data Universe = Universe
     , _uvDebug :: M.Map DebugBool [DebugItem]
     , _uvDebugFloat1 :: Float
     , _uvDebugFloat2 :: Float
+    , _uvDebugV2_1 :: Point2
+    , _uvDebugV2_2 :: Point2
+    , _uvDebugPathShowType :: PathShowType
     , _uvDebugMessageOffset :: Int
     , _uvSoundQueue :: [SoundID]  -- sounds without a position, to be played once
     }
 
+data PathShowType
+    = PathBetweenLeftRightClick
+    | PathBetweenDebugV2s
+    deriving (Show,Eq,Ord,Enum,Bounded)
+
 data DebugItem = DebugItem
     { _debugMessage :: String
     , _debugFunction :: Universe -> Universe