humza/sml-projects
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

a bit of additional refactoring

Browse Source
This commit is contained in:
Humza Shahid
2025-01-12 22:10:58 +00:00
parent 8052ad53f7
commit 3dddd096f7
2 changed files with 27 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
fcore/player-enemy.sml
View File

@@ -59,10 +59,10 @@ struct
let
val enemyCollisions = QuadTree.getCollisions
(x, y, size, size, 0, 0, 1920, 1080, 0, enemyTree)
val lst = [W_ATTACKED NOT_ATTACKED]
val player =
Player.enemyCollisionReaction
(player, enemies, enemyCollisions, lst)
Player.exitAttackedAndCheckEnemies
(player, enemies, enemyCollisions)
val enemies = Enemy.filterProjectileCollisions
(Vector.length enemies - 1, enemies, projectileTree, [])
@@ -74,10 +74,7 @@ struct
* allowing a brief invincibility period as is common in many games
* *)
let
val amt = amt + 1
val attacked = ATTACKED amt
val player = Player.withPatch (player, W_ATTACKED attacked)
val player = Player.incrementAttacked (player, amt)
val enemies = Enemy.filterProjectileCollisions
(Vector.length enemies - 1, enemies, projectileTree, [])
in