add defeated enemies to player record

2025-01-01 09:53:30 +00:00
parent f7f9b1e29b
commit 8e75d09fc1
1 changed files with 10 additions and 0 deletions
--- a/fcore/game-update.sml
+++ b/fcore/game-update.sml
@@ -95,6 +95,16 @@ struct
            val enemyCollisions = Vector.fromList enemyCollisions
            val enemies = filterEnemyCollisions
              (Vector.length enemies - 1, enemyCollisions, enemies, [])
+
+            (* add collided enemies to player record, 
+             * concatenating with the previous enemies defeated *)
+            val newDefeated = 
+              Vector.map (fn id => {angle = (id * 5) mod 360}) enemyCollisions
+
+            val oldDefeated = #enemies player
+            val allDefeated = Vector.concat [oldDefeated, newDefeated]
+
+            val player = Player.withPatches (player, [W_ENEMIES allDefeated])
          in
            (player, enemies)
          end