Remove heading from terminal display
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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]
|
||||
|
||||
Reference in New Issue
Block a user