Shuffle functions

2023-02-19 11:57:45 +00:00
parent 2b0b54f1cd
commit 9109841658
3 changed files with 105 additions and 95 deletions
@@ -20,7 +20,7 @@ import qualified SDL
 yourControl :: Creature -> World -> World
 yourControl cr w
    | inputFocus w = w
-    | intopinv = w & cWorld . lWorld . creatures . ix (_crID cr)
+    | not intopinv = w & cWorld . lWorld . creatures . ix (_crID cr)
                %~ wasdWithAiming w (_mvSpeed $ _crMvType cr)    
    | otherwise =
        w