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

implement function to trace drop (while moving right)

Browse Source
This commit is contained in:
Humza Shahid
2025-01-29 19:35:40 +00:00
parent 97a638b54d
commit 89abab31ab
2 changed files with 25 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
fcore/trace-jump.sml
View File

@@ -27,7 +27,16 @@ struct
traceRightJumpDescent (nextX, nextY, nextPlatID, platTree)
end
fun traceRightJumpAscent (x, y, remainingJump, nextPlatID, platTree, nextPlatform) =
fun traceRightDrop (enemy, nextPlatID, platTree) =
let
open GameType
val {x, y, ...}: enemy = enemy
val x = x - Constants.enemySize
in
traceRightJumpDescent (x, y, nextPlatID, platTree)
end
fun traceRightJumpAscent (x, y, remainingJump, nextPlatID, platTree) =
if remainingJump >= Constants.jumpLimit then
traceRightJumpDescent (x, y, nextPlatID, platTree)
else
@@ -42,22 +51,23 @@ struct
val nextJump = remainingJump + Constants.moveEnemyBy
in
shouldJumpRight orelse
traceRightJumpAscent (nextX, nextY, nextJump, nextPlatID, platTree, nextPlatform)
traceRightJumpAscent (nextX, nextY, nextJump, nextPlatID, platTree)
end
fun traceRightJump (enemy, nextPlatID, platTree, nextPlat) =
fun traceRightJump (enemy, nextPlatID, platTree) =
let
open GameType
val {x, y, ...}: enemy = enemy
val x = x - Constants.enemySize
in
if EnemyPhysics.standingOnArea (x, y, platTree) then
traceRightJumpAscent (x, y, 0, nextPlatID, platTree, nextPlat)
traceRightJumpAscent (x, y, 0, nextPlatID, platTree)
else
case #yAxis enemy of
JUMPING amt =>
traceRightJumpAscent (x, y, amt, nextPlatID, platTree, nextPlat)
traceRightJumpAscent (x, y, amt, nextPlatID, platTree)
| ON_GROUND =>
traceRightJumpAscent (x, y, 0, nextPlatID, platTree, nextPlat)
traceRightJumpAscent (x, y, 0, nextPlatID, platTree)
| FALLING =>
traceRightJumpDescent (x, y, nextPlatID, platTree)
| DROP_BELOW_PLATFORM =>