Files
sml-projects/fcore/game-update.sml

54 lines
1.3 KiB
Standard ML
Raw Normal View History

structure GameUpdate =
struct
fun update (game, input) =
let
val
{ player
, walls
, wallTree
, platforms
, platformTree
, enemies
, graph
, fallingEnemies
} = game
val enemyTree = Enemy.generateTree enemies
val player = Player.runPhysicsAndInput (game, input, enemyTree)
val projectiles = #projectiles player
val projectileTree = Projectile.generateTree projectiles
(* update state of falling enemies and possibly filter *)
val fallingEnemies = FallingEnemies.updateList
(Vector.length fallingEnemies - 1, fallingEnemies, player, [])
val (enemies, fallingEnemies) = Enemy.updateEnemyList
( Vector.length enemies - 1
, enemies
, projectiles
, projectileTree
, walls
, wallTree
, platforms
, platformTree
, player
, graph
, []
, fallingEnemies
)
val fallingEnemies = Vector.fromList fallingEnemies
in
{ player = player
, walls = walls
, wallTree = wallTree
, platforms = platforms
, platformTree = platformTree
2024-12-19 03:08:26 +00:00
, enemies = enemies
, graph = graph
, fallingEnemies = fallingEnemies
}
end
end