diff --git a/src/Dodge/Render/HUD.hs b/src/Dodge/Render/HUD.hs index da7fb5de6..4e5c35003 100644 --- a/src/Dodge/Render/HUD.hs +++ b/src/Dodge/Render/HUD.hs @@ -353,7 +353,8 @@ drawTerminalDisplay w cfig tid = fold $ do tm <- w ^? cWorld . lWorld . terminals . ix tid let toselitm (str, col) = SelItem [str] 1 55 True col 0 Nothing NoSIDisplayMod f = - toselitm ("TERMINAL " ++ show tid, white) + --toselitm ("TERMINAL " ++ show tid, white) + toselitm ("", white) : ( map (toselitm . (_1 %~ (" " <>))) . displayTermInput . reverse diff --git a/src/Dodge/Room/Room.hs b/src/Dodge/Room/Room.hs index 114d02e42..7ff4175ce 100644 --- a/src/Dodge/Room/Room.hs +++ b/src/Dodge/Room/Room.hs @@ -447,7 +447,7 @@ distributerRoom atype aamount = do & rmInPmnt <>~ [(0,dst),(1,thepipe)] tmDistributeLines :: [TerminalLine] -tmDistributeLines = [TLine 1 [TerminalLineConst "DISTRIBUTING..." white] TmDistributeAmmo] +tmDistributeLines = [TLine 1 [TerminalLineConst "ATTEMPTING TO DISTRIBUTE MATERIAL..." white] TmDistributeAmmo] -- cor <- shuffleLinks corridor -- return $ tToBTree "corDoor" $ treePost [door,cor,cleatOnward door]