46 lines
1.1 KiB
Standard ML
46 lines
1.1 KiB
Standard ML
structure GameUpdate =
|
|
struct
|
|
fun update (game, input) =
|
|
let
|
|
val
|
|
{ player
|
|
, walls
|
|
, wallTree
|
|
, platforms
|
|
, platformTree
|
|
, enemies
|
|
, graph
|
|
, fallingEnemies
|
|
} = game
|
|
|
|
val player = Player.runPhysicsAndInput (game, input)
|
|
|
|
val enemyTree = Enemy.generateTree enemies
|
|
val player = Player.checkEnemyCollisions (player, enemies, enemyTree)
|
|
|
|
val (player, enemies) =
|
|
PlayerAttack.attackEnemies (player, enemies, enemyTree)
|
|
|
|
val enemies = Enemy.update
|
|
(enemies, walls, wallTree, platforms, platformTree, player, graph)
|
|
|
|
(* update state of falling enemies and possibly filter *)
|
|
(* todo: use enemy map
|
|
val fallingEnemies = FallingEnemies.updateList
|
|
(Vector.length fallingEnemies - 1, fallingEnemies, player, [])
|
|
|
|
val fallingEnemies = Vector.fromList fallingEnemies
|
|
*)
|
|
in
|
|
{ player = player
|
|
, walls = walls
|
|
, wallTree = wallTree
|
|
, platforms = platforms
|
|
, platformTree = platformTree
|
|
, enemies = enemies
|
|
, graph = graph
|
|
, fallingEnemies = fallingEnemies
|
|
}
|
|
end
|
|
end
|