Runtime broken level generation

2021-03-29 11:27:30 +02:00
parent e0570ed54c
commit c959b7d59c
9 changed files with 356 additions and 369 deletions
@@ -68,7 +68,7 @@ updateSoundQueue = set soundQueue []
 updateLightSources w = set tempLightSources (catMaybes tlss) w'
    where (w',tlss) = mapAccumR (\a b -> _tlsUpdate b a b) w $ _tempLightSources w

-updateProjectiles w = IM.foldr' _ptUpdate w $ _projectiles w
+updateProjectiles w = IM.foldr' _pjUpdate w $ _projectiles w

 updateParticles' :: World -> World
 updateParticles' w = set particles' (catMaybes ps) w'