Allow for inventory item bolding

src/Dodge/Room/Room.hs

@@ -428,8 +428,8 @@ distributerRoom atype aamount = do
         store = sps (unusedOffPathAwayFromLink 50) 
             (PutMachine (reverse $ polyCirc 4 20) mcstore Nothing) & plExternalID ?~ i
         dst gw = let mj = gw ^? genPmnt . ix i . plMID . _Just
-            in  sps (unusedOffPathAwayFromLink 50)
-                    (PutMachine (reverse $ square 10) (mcdist mj) Nothing)
+            in  putTerminal (mcdist mj) (defaultTerminal & tmBootLines .~ tmDistributeLines)
+                    & plSpot .~ (unusedOffPathAwayFromLink 50)
                     & plExternalID ?~ i1
         thepipe gw = 
             let p1 = gw ^?! genPmnt . ix i . plSpot . psPos
@@ -446,5 +446,8 @@ distributerRoom atype aamount = do
     return $ r & rmPmnts .:~ store
         & rmInPmnt <>~ [(0,dst),(1,thepipe)]
 
+tmDistributeLines :: [TerminalLine]
+tmDistributeLines = [TLine 1 [TerminalLineConst "DISTRIBUTING AMMO" white] TmDistributeAmmo]
+
 --    cor <- shuffleLinks corridor
 --    return $ tToBTree "corDoor" $ treePost [door,cor,cleatOnward door]