Add fix bug in terminal destruction effects

2022-06-07 01:25:36 +01:00
parent 1fe41889fe
commit d42538e3c0
13 changed files with 111 additions and 93 deletions
@@ -48,7 +48,7 @@ analyser
 analyser upf pslight psmc = extTrigLitPos pslight $ \tp ->
    Just $ plSpot .~ psmc $ putTerminal' aquamarine tparams (termupdate tp)
  where
-    tparams = defaultTermParams & tmScrollCommands .:~ sensorCommand
+    tparams = basicTerminal & tmScrollCommands .:~ sensorCommand
    termupdate tp _ mc = upf mc . (triggers . ix (fromJust $ _plMID tp) .~ const (_sensToggle $ _mcSensor mc))

 analyserTest :: (World -> Bool) -> Machine -> World -> World