Partially successful change of terminals to external entities

2022-06-06 12:49:14 +01:00
parent 597336499c
commit eb38874102
12 changed files with 141 additions and 167 deletions
@@ -15,8 +15,8 @@ import qualified Data.Set as S
 import Data.Maybe
 {- | The AI equivalent for your control. -}
 yourControl :: Creature -> World -> World
-yourControl cr w = case w ^? hud . hudElement . subInventory . termParams . termInput . _Just of
-    Just _ -> w
+yourControl cr w = case w ^? hud . hudElement . subInventory . onInputLine of
+    Just True -> w
    _ -> w
        & creatures . ix (_crID cr) %~ 
            (wasdWithAiming w (_mvSpeed $ _crMvType cr) . mouseActionsCr (_mouseButtons w))