fcore/game-update.sml

structure GameUpdate =
struct
  fun update (game, input) =
    let
      val {player, walls, wallTree, platforms, platformTree, enemies, enemyTree} =
        game
      val player = Player.move (game, input)
    in
      { player = player
      , walls = walls
      , wallTree = wallTree
      , platforms = platforms
      , platformTree = platformTree
      , enemies = enemies
      , enemyTree = enemyTree
      }
    end
end
add GameType.game_type which stores player and wall types, add GameUpdate.update function which takes a game type and returns a new game type, and refactor player/wall files, and gl-draw file, in light of these changes 2024-12-15 09:10:19 +00:00			`structure GameUpdate =`
			`struct`
			`fun update (game, input) =`
			`let`
begin coding enemy 2024-12-19 03:08:26 +00:00			`val {player, walls, wallTree, platforms, platformTree, enemies, enemyTree} =`
			`game`
add GameType.game_type which stores player and wall types, add GameUpdate.update function which takes a game type and returns a new game type, and refactor player/wall files, and gl-draw file, in light of these changes 2024-12-15 09:10:19 +00:00			`val player = Player.move (game, input)`
			`in`
add platform vector and platform quadtree to game type 2024-12-17 21:42:06 +00:00			`{ player = player`
			`, walls = walls`
			`, wallTree = wallTree`
			`, platforms = platforms`
			`, platformTree = platformTree`
begin coding enemy 2024-12-19 03:08:26 +00:00			`, enemies = enemies`
			`, enemyTree = enemyTree`
add platform vector and platform quadtree to game type 2024-12-17 21:42:06 +00:00			`}`
add GameType.game_type which stores player and wall types, add GameUpdate.update function which takes a game type and returns a new game type, and refactor player/wall files, and gl-draw file, in light of these changes 2024-12-15 09:10:19 +00:00			`end`
			`end`