Fix enemy stride/footsteps

src/Dodge/Humanoid.hs

@@ -179,26 +179,8 @@ updateHumanoid cr = case cr ^?! crType of
 --        , WaitThen 1 $  (DoImpulses [ChangeStrategy WatchAndWait])
 --        ]
 
-humanoidAIList ::
-    [World -> Creature -> Creature] ->
-    Creature ->
-    World ->
-    World
-humanoidAIList
-    = impulsiveAIBefore . chainCreatureUpdates
-
----- bit of a hack to get new random generators after each creature's update
---defaultImpulsive ::
---    [World -> Creature -> Creature] ->
---    Creature ->
---    World ->
---    World
---defaultImpulsive
---    = fmap (fmap updateRandGen) . crUpdate . impulsiveAIBefore . chainCreatureUpdates
---  where
---    updateRandGen w =
---        let (_, g) = randomR (0, 1 :: Int) (_randGen w)
---         in w & randGen .~ g
+humanoidAIList :: [World -> Creature -> Creature] -> Creature -> World -> World
+humanoidAIList = impulsiveAIBefore . chainCreatureUpdates
 
 chooseMovementPistol :: Creature -> World -> Action
 chooseMovementPistol cr w =