add platform vector and platform quadtree to game type

2024-12-17 21:42:06 +00:00
parent 507c1c331c
commit ddd58fd534
4 changed files with 132 additions and 7 deletions
--- a/fcore/game-update.sml
+++ b/fcore/game-update.sml
@@ -2,9 +2,14 @@ structure GameUpdate =
 struct
  fun update (game, input) =
    let
-      val {player, walls, wallTree} = game
+      val {player, walls, wallTree, platforms, platformTree} = game
      val player = Player.move (game, input)
    in
-      {player = player, walls = walls, wallTree = wallTree}
+      { player = player
+      , walls = walls
+      , wallTree = wallTree
+      , platforms = platforms
+      , platformTree = platformTree
+      }
    end
 end