Add more debug info for selected creatures

src/Dodge/Data/ActionPlan.hs

@@ -174,8 +174,8 @@ data Action
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Strategy
-    = Flank Int
-    | Ambush Int
+    = Flank {_flankTarget :: Int}
+    | Ambush {_ambushTarget :: Int}
     | Lure Int Point2
     | Patrol [Point2]
     | ShootAt Int
@@ -183,7 +183,7 @@ data Strategy
     | WatchAndWait
     | WarningCry
     | LookAround
-    | CloseToMelee Int
+    | CloseToMelee {_meleeTarget :: Int}
     | StrategyActions Strategy [Action]
     | GetTo Point2
     | Reload
@@ -194,8 +194,8 @@ data Strategy
 
 data Goal
     = LiveLongAndProsper
-    | Kill Int
-    | SentinelAt Point2 Float
+    | Kill {_killTarget :: Int}
+    | SentinelAt {_sentinelPos :: Point2, _sentinelDir :: Float}
     deriving (Eq, Ord, Show) --Generic, Flat)
     --deriving (Eq, Ord, Show, Read) --Generic, Flat)
 

src/Dodge/Data/Config.hs

@@ -89,7 +89,7 @@ data DebugBool
     | Inspect_wall
     | Show_nodes_near_select
     | Show_path_between
-    | Pacify_enemies
+    | Select_creature
     deriving (Eq, Ord, Bounded, Enum, Show)
 
 data ResFactor = DoubleRes | FullRes | HalfRes | QuarterRes | EighthRes | SixteenthRes

src/Dodge/Data/Input.hs

@@ -26,6 +26,7 @@ data Input = Input
     , _clickPos :: M.Map MouseButton Point2 -- updates on initial mouse button press
     , _heldPos :: M.Map MouseButton Point2 -- updates while mouse button is held, lags one frame
     , _clickWorldPos :: M.Map MouseButton Point2 -- updates on initial mouse button press
+    , _heldWorldPos :: M.Map MouseButton Point2 -- updates while mouse button is held, lags one frame
     , _textInput :: [Either TermSignal Char]
     , _scrollTestFloat :: Float
     , _scrollTestInt :: Int

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