justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Remove heading from terminal display

Browse Source
This commit is contained in:
justin
2025-12-26 11:48:41 +00:00
parent 98c411c581
commit 589cfd6d79
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Render/HUD.hs
+2 -1
View File
@@ -353,7 +353,8 @@ drawTerminalDisplay w cfig tid = fold $ do
tm <- w ^? cWorld . lWorld . terminals . ix tid tm <- w ^? cWorld . lWorld . terminals . ix tid
let toselitm (str, col) = SelItem [str] 1 55 True col 0 Nothing NoSIDisplayMod let toselitm (str, col) = SelItem [str] 1 55 True col 0 Nothing NoSIDisplayMod
f = f =
toselitm ("TERMINAL " ++ show tid, white) --toselitm ("TERMINAL " ++ show tid, white)
toselitm ("", white)
: ( map (toselitm . (_1 %~ (" " <>))) : ( map (toselitm . (_1 %~ (" " <>)))
. displayTermInput . displayTermInput
. reverse . reverse
src/Dodge/Room/Room.hs
+1 -1
View File
@@ -447,7 +447,7 @@ distributerRoom atype aamount = do
& rmInPmnt <>~ [(0,dst),(1,thepipe)] & rmInPmnt <>~ [(0,dst),(1,thepipe)]
tmDistributeLines :: [TerminalLine] tmDistributeLines :: [TerminalLine]
tmDistributeLines = [TLine 1 [TerminalLineConst "DISTRIBUTING..." white] TmDistributeAmmo] tmDistributeLines = [TLine 1 [TerminalLineConst "ATTEMPTING TO DISTRIBUTE MATERIAL..." white] TmDistributeAmmo]
-- cor <- shuffleLinks corridor -- cor <- shuffleLinks corridor
-- return $ tToBTree "corDoor" $ treePost [door,cor,cleatOnward door] -- return $ tToBTree "corDoor" $ treePost [door,cor,cleatOnward door]