Cleanup

src/Dodge/Update.hs

@@ -490,7 +490,6 @@ pbFlicker pt =
 
 zoneClouds :: World -> World
 zoneClouds w = w & clZoning .~ foldl' (flip zoneCloud) mempty (w ^. cWorld . lWorld . clouds)
-
 zoneDusts :: World -> World
 zoneDusts w = w & dsZoning .~ foldl' (flip zoneDust) mempty (w ^. cWorld . lWorld . dusts)
 
@@ -506,24 +505,16 @@ tmUpdate tm w = fromMaybe w $ do
         (TLine _ tls g) ->
             w & pointTermParams
                 %~ ( (tmFutureLines %~ tail)
-                        . (tmDisplayedLines %~ (map displayTerminalLineString tls ++))
+                        . (tmDisplayedLines %~ take getMaxLinesTM . (map displayTerminalLineString tls ++))
+--                        . (tmDisplayedLines %~ (map displayTerminalLineString tls ++))
                    )
                 & doTmWdWd g tm
   where
-    --    Just (TerminalLineEffect _ eff) ->
-    --        w
-    --            & pointTermParams . tmFutureLines %~ tail
-    --            & doTmWdWd eff tm
-
     pointTermParams = cWorld . lWorld . terminals . ix (_tmID tm)
 
 setOldPos :: Creature -> Creature
 setOldPos cr = cr & crOldPos .~ _crPos cr
 
--- hack
---updateRandGen :: World -> World
---updateRandGen = randGen %~ (snd . (uniform :: StdGen -> (Int,StdGen)))
-
 --doRewind :: World -> World
 --doRewind w = case w ^. cwTime .  maybeWorld of
 --    Just' cw ->