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

start implementing patches to follow player (basic; shouldn't use path finding like Dijkstra's algorithm)

Browse Source
This commit is contained in:
Humza Shahid
2025-01-17 11:43:49 +00:00
parent a05f211428
commit 67a4ad5664
4 changed files with 64 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
fcore/enemy.sml
View File

@@ -2,6 +2,12 @@ structure Enemy =
struct
open GameType
fun withDefaultYAxis (enemy: enemy) =
case #yAxis enemy of
ON_GROUND =>
EnemyPatch.withPatch (enemy, EnemyPatch.W_Y_AXIS FALLING)
| _ => enemy
fun helpExists (pos, id, collisions) =
if pos = Vector.length collisions then
false
@@ -40,8 +46,12 @@ struct
acc
else
let
val enemy =
EnemyPatch.withPatch (enemy, EnemyPatch.W_Y_AXIS FALLING)
val enemy = withDefaultYAxis enemy
(* get patches specific to this type of enemy *)
val patches = EnemyBehaviour.getVariantPatches
(enemy, walls, wallTree, platforms, platformTree, player, [])
val enemy = EnemyPatch.withPatches (enemy, patches)
val patches = EnemyPhysics.getPhysicsPatches enemy
val patches = EnemyPatch.W_HEALTH (health - 1) :: patches
@@ -49,18 +59,18 @@ struct
val patches = EnemyPhysics.getEnvironmentPatches
(enemy, walls, wallTree, platforms, platformTree)
(* get patches specific to this type of enemy *)
val patches = EnemyBehaviour.getVariantPatches
(enemy, walls, wallTree, platforms, platformTree, player, patches)
val enemy = EnemyPatch.withPatches (enemy, patches)
in
enemy :: acc
end
else
let
val enemy = EnemyPatch.withPatch (enemy, EnemyPatch.W_Y_AXIS FALLING)
val enemy = withDefaultYAxis enemy
(* get patches specific to this type of enemy *)
val patches = EnemyBehaviour.getVariantPatches
(enemy, walls, wallTree, platforms, platformTree, player, [])
val enemy = EnemyPatch.withPatches (enemy, patches)
val patches = EnemyPhysics.getPhysicsPatches enemy
val enemy = EnemyPatch.withPatches (enemy, patches)
@@ -68,10 +78,6 @@ struct
val patches = EnemyPhysics.getEnvironmentPatches
(enemy, walls, wallTree, platforms, platformTree)
(* get patches specific to this type of enemy *)
val patches = EnemyBehaviour.getVariantPatches
(enemy, walls, wallTree, platforms, platformTree, player, patches)
val enemy = EnemyPatch.withPatches (enemy, patches)
in
enemy :: acc