Allow for inventory item bolding

src/Dodge/Data/CWorld.hs

@@ -32,6 +32,7 @@ data CWorld = CWorld
     , _numberFloorVerxs :: Int
     , _chasms :: [[Point2]]
     , _numberChasmVerxs :: Int
+    , _highlightItems :: IM.IntMap Int
     }
 
 data CWGen = CWGen

src/Dodge/Data/SelectionList.hs

@@ -38,16 +38,20 @@ type IMSS a = IntMap (SelSection a)
 
 data SelectionWidth = FixedSelectionWidth Int | UseItemWidth
 
-data SelectionItem a
-    = SelItem
-        { _siPictures :: [String]
-        , _siHeight :: Int
-        , _siWidth :: Int
-        , _siIsSelectable :: Bool
-        , _siColor :: Color
-        , _siOffX :: Int
-        , _siPayload :: Maybe a
-        }
+data SelectionItem a = SelItem
+    { _siPictures :: [String]
+    , _siHeight :: Int
+    , _siWidth :: Int
+    , _siIsSelectable :: Bool
+    , _siColor :: Color
+    , _siOffX :: Int
+    , _siPayload :: Maybe a
+    , _siDisplayMod :: SIDisplayMod
+    }
+
+data SIDisplayMod
+    = NoSIDisplayMod
+    | HighlightSI
 
 makeLenses ''ListDisplayParams
 makeLenses ''SelectionItem

src/Dodge/Data/Terminal.hs

@@ -58,6 +58,7 @@ data TmWdWd
     | TmWdWdDoDeathTriggers
     | TmTmClearDisplayedLines
     | TmTmSetStatus TerminalStatus
+    | TmDistributeAmmo
 
 makeLenses ''Terminal
 makeLenses ''TerminalLine