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

verify that getMoveRightPatches works as intended through manual testing and platform placement adjustments

Browse Source
This commit is contained in:
Humza Shahid
2025-01-25 09:53:54 +00:00
parent 4cf1afb8cd
commit 616d97e6fd
2 changed files with 17 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
fcore/enemy-behaviour.sml
View File

@@ -300,10 +300,10 @@ struct
if yDiff > xDiff then if yDiff > xDiff then
let let
val acc = val acc =
case eyAxis of if standingOnArea (enemy, platformTree) then
ON_GROUND => EnemyPatch.W_Y_AXIS (JUMPING 0) :: acc EnemyPatch.W_Y_AXIS (JUMPING 0) :: acc
| FALLING => EnemyPatch.W_Y_AXIS (JUMPING 0) :: acc else
| _ => acc acc
in in
EnemyPatch.W_X_AXIS MOVE_RIGHT :: acc EnemyPatch.W_X_AXIS MOVE_RIGHT :: acc
end end
@@ -331,12 +331,19 @@ struct
JUMPING amt => amt JUMPING amt => amt
| _ => 0 | _ => 0
val apexY = ey - (Constants.jumpLimit - jumpAmt) val apexY = ey - (Constants.jumpLimit - jumpAmt)
val yDiff = apexY - platY val yDiff = platY - apexY
in in
if yDiff >= xDiff then if yDiff >= xDiff then
(* can reach if we jump and move right *) (* can reach if we jump and move right *)
EnemyPatch.W_Y_AXIS (JUMPING 0) :: EnemyPatch.W_X_AXIS let
MOVE_RIGHT :: acc val acc =
if standingOnArea (enemy, platformTree) then
EnemyPatch.W_Y_AXIS (JUMPING 0) :: acc
else
acc
in
EnemyPatch.W_X_AXIS MOVE_RIGHT :: acc
end
else else
(* cannot reach yet so move right until we can *) (* cannot reach yet so move right until we can *)
EnemyPatch.W_X_AXIS MOVE_RIGHT :: acc EnemyPatch.W_X_AXIS MOVE_RIGHT :: acc

5
fcore/game-type.sml
View File

@@ -174,9 +174,10 @@ struct
val plat6 = {id = 6, x = 155, y = 710, width = 199} val plat6 = {id = 6, x = 155, y = 710, width = 199}
val plat7 = {id = 7, x = 301, y = 855, width = 99} val plat7 = {id = 7, x = 301, y = 855, width = 99}
val plat8 = {id = 8, x = 970, y = 815, width = 303} val plat8 = {id = 8, x = 970, y = 815, width = 303}
val plat9 = {id = 9, x = 970, y = 655, width = 303} val plat9 = {id = 9, x = 959, y = 705, width = 303}
val plat10 = {id = 10, x = 970, y = 759, width = 303}
val platforms = Vector.fromList val platforms = Vector.fromList
[plat1, plat2, plat3, plat4, plat5, plat6, plat7, plat8, plat9] [plat1, plat2, plat3, plat4, plat5, plat6, plat7, plat8, plat9, plat10]
val platformTree = Platform.generateTree platforms val platformTree = Platform.generateTree platforms
val enemy1 = val enemy1 =