Work towards unifying all in game input

2023-02-21 00:37:26 +00:00
parent 7b9b1d1799
commit dee7472d31
5 changed files with 127 additions and 37 deletions
@@ -19,7 +19,7 @@ import qualified SDL
 -- | The AI equivalent for your control.
 yourControl :: Creature -> World -> World
 yourControl cr w
-    | inputFocus w = w
+    | inInputFocus w = w
    | not intopinv = w & cWorld . lWorld . creatures . ix (_crID cr)
                %~ wasdWithAiming w (_mvSpeed $ _crMvType cr)    
    | otherwise =