Add support for one time sounds, crashes if more than 8 play at once

2021-02-23 15:50:02 +01:00
parent c188512abb
commit 93ab10e77e
4 changed files with 107 additions and 6 deletions
@@ -33,6 +33,7 @@ update w
                     $ updateCreatures 
                     $ updateBlocks -- $ zoning 
                     $ updateSeenWalls 
+                     $ updateSoundQueue
                                                     w
                w2 = -- updateWeaponCounters $
                 simpleCrSprings 
@@ -61,6 +62,8 @@ update w
            where (x,y) = zoneOfPoint $ _clPos cr
                  cid = _clID cr

+updateSoundQueue = set soundQueue []
+
 --updateSound :: World -> World
 --updateSound = set soundQueue [] . stepSoundTimers
 --stepSoundTimers :: World -> IO World