Add sounds, move data types out into separate folders

2022-07-16 17:06:51 +01:00
parent f8f4766012
commit e4a4766ddf
48 changed files with 658 additions and 496 deletions
@@ -19,7 +19,7 @@ import qualified Data.Map.Strict as M
 {- | The AI equivalent for your control. -}
 yourControl :: Creature -> World -> World
 yourControl cr w 
-    | inTermFocus w = w
+    | inTermFocus w = w & updateUsingInput
    | otherwise = w
        & creatures . ix (_crID cr) %~ 
            (wasdWithAiming w (_mvSpeed $ _crMvType cr) . mouseActionsCr (_mouseButtons w))