Refactor event/input

2021-03-26 14:52:25 +01:00
parent 420cf7fc4b
commit 07d84cc1c6
14 changed files with 91 additions and 63 deletions
@@ -5,6 +5,7 @@ import Dodge.Base
 import Dodge.WallCreatureCollisions
 import Dodge.LevelGen.Block
 import Dodge.Update.Camera
+import Dodge.Update.UsingInput
 import Dodge.SoundLogic
 import Dodge.Inventory

@@ -34,6 +35,7 @@ update w
                                      . updateBlocks -- . zoning 
                                      . updateSeenWalls 
                                      . updateSoundQueue
+                                      . updateUsingInput
                                      $ updateCloseObjects w
            in  checkEndGame . ppEvents 
                             . updateCamera
@@ -172,4 +174,4 @@ collidePointFindWalls p1 p2 ws
                              in  ys ++ tf zs
                where tf (x:_) = [x]
                      tf _ = []
-          
+