Add more debug info for selected creatures

src/Dodge/Data/Universe.hs

@@ -41,11 +41,12 @@ data Universe = Universe
     , _uvFrameTicks :: Word32
     , _uvRAMSave :: Maybe World
     , _uvDebug :: M.Map DebugBool DebugItem
+    , _uvDebugMessageOffset :: Int
     }
 
 data DebugItem = DebugItem
-    { _debugPic :: Picture
-    , _debugMessage :: [String]
+    { _debugPic :: Universe -> Picture
+    , _debugMessage :: Universe -> [String]
     , _debugInfo :: DebugInfo
     }
 
@@ -54,6 +55,7 @@ data DebugInfo
     | DebugV3 { _debugV3 :: V3 Float}
     | DebugV2 { _debugV2 :: V2 Float}
     | DebugMInt { _debugMInt :: Maybe Int}
+    | DebugIntMInt {_debugInt :: Int, _debugMInt :: Maybe Int}
 
 data SideEffect
     = NewSideEffect
@@ -113,3 +115,5 @@ makeLenses ''SideEffect
 makeLenses ''MenuOptionDisplay
 makeLenses ''MenuOption
 makeLenses ''PositionedMenuOption
+makeLenses ''DebugItem
+makeLenses ''DebugInfo