sml-projects/fcore/game-update.sml

structure GameUpdate =
struct
  fun update (game, input) =
    let
      val {player, walls, wallTree, platforms, platformTree, enemies} = game

      val player = Player.runPhysicsAndInput (game, input)

      val enemyTree = Enemy.generateTree enemies

      (* check player-enemy collisions and react *)
      val (player, enemies) = PlayerEnemy.checkCollisions
        ( player
        , enemies
        , enemyTree
        , #projectiles player
        , walls
        , wallTree
        , platforms
        , platformTree
        )
    in
      { player = player
      , walls = walls
      , wallTree = wallTree
      , platforms = platforms
      , platformTree = platformTree
      , enemies = enemies
      }
    end
end