85 lines
3.0 KiB
Standard ML
85 lines
3.0 KiB
Standard ML
structure PlayerEnemy =
|
|
struct
|
|
open GameType
|
|
open PlayerPatch
|
|
|
|
fun checkCollisions (player, enemies, enemyTree, projectiles, walls, wallTree,
|
|
platforms, platformTree) =
|
|
let
|
|
val {x, y, mainAttack, attacked, ...} = player
|
|
val size = Constants.playerSize
|
|
val projectileTree = Projectile.generateTree projectiles
|
|
in
|
|
case mainAttack of
|
|
MAIN_ATTACKING =>
|
|
let
|
|
(* filter enemies based on collisions *)
|
|
val enemyCollisions =
|
|
Player.getEnemyCollisionsWhenAttacking (x, y, enemyTree)
|
|
val enemies = Enemy.filterWhenAttacked
|
|
( Vector.length enemies - 1
|
|
, enemyCollisions
|
|
, enemies
|
|
, projectileTree
|
|
, []
|
|
, walls
|
|
, wallTree
|
|
, platforms
|
|
, platformTree
|
|
)
|
|
|
|
(* add collided enemies to player record,
|
|
* concatenating with the previous enemies defeated *)
|
|
val player = Player.concatAttackedEnemies (player, enemyCollisions)
|
|
in
|
|
(player, enemies)
|
|
end
|
|
| _ =>
|
|
(case attacked of
|
|
NOT_ATTACKED =>
|
|
let
|
|
val enemyCollisions = QuadTree.getCollisions
|
|
(x, y, size, size, 0, 0, 1920, 1080, 0, enemyTree)
|
|
|
|
val player =
|
|
Player.enemyCollisionReaction
|
|
(player, enemies, enemyCollisions, [])
|
|
|
|
val enemies = Enemy.filterProjectileCollisions
|
|
(Vector.length enemies - 1, enemies, projectileTree, [],
|
|
walls, wallTree, platforms, platformTree)
|
|
in
|
|
(player, enemies)
|
|
end
|
|
| ATTACKED amt =>
|
|
if amt = Constants.attackedLimit then
|
|
(* if reached limit, detect enemies again *)
|
|
let
|
|
val enemyCollisions = QuadTree.getCollisions
|
|
(x, y, size, size, 0, 0, 1920, 1080, 0, enemyTree)
|
|
|
|
val player =
|
|
Player.exitAttackedAndCheckEnemies
|
|
(player, enemies, enemyCollisions)
|
|
|
|
val enemies = Enemy.filterProjectileCollisions
|
|
(Vector.length enemies - 1, enemies, projectileTree, [],
|
|
walls, wallTree, platforms, platformTree)
|
|
in
|
|
(player, enemies)
|
|
end
|
|
else
|
|
(* if attacked, don't detect collisions,
|
|
* allowing a brief invincibility period as is common in many games
|
|
* *)
|
|
let
|
|
val player = Player.incrementAttacked (player, amt)
|
|
val enemies = Enemy.filterProjectileCollisions
|
|
(Vector.length enemies - 1, enemies, projectileTree, [],
|
|
walls, wallTree, platforms, platformTree)
|
|
in
|
|
(player, enemies)
|
|
end)
|
|
end
|
|
end
|