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

add falling sprites

Browse Source
This commit is contained in:
Humza Shahid
2025-08-30 00:55:58 +01:00
parent cc2eb419ab
commit a6d84f093f
4 changed files with 10654 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
fcore/level/player/player-vec.sml
View File

@@ -119,22 +119,34 @@ struct
FACING_RIGHT => getWhenJumpingRight (player, amt, rx, ry, ww, wh) FACING_RIGHT => getWhenJumpingRight (player, amt, rx, ry, ww, wh)
| FACING_LEFT => getWhenJumpingLeft (player, amt, rx, ry, ww, wh) | FACING_LEFT => getWhenJumpingLeft (player, amt, rx, ry, ww, wh)
fun getWhenFalling (player, rx, ry, ww, wh) = fun getWhenFloating (player, rx, ry, ww, wh) =
case #facing player of case #facing player of
FACING_RIGHT => PlayerJumpRight5.lerp (rx, ry, 3.0, ww, wh) FACING_RIGHT => PlayerJumpRight5.lerp (rx, ry, 3.0, ww, wh)
| FACING_LEFT => PlayerJumpLeft5.lerp (rx, ry, 3.0, ww, wh) | FACING_LEFT => PlayerJumpLeft5.lerp (rx, ry, 3.0, ww, wh)
fun getWhenFalling (player, rx, ry, ww, wh) =
case #facing player of
FACING_RIGHT => PlayerFallRight.lerp (rx, ry, 3.0, ww, wh)
| FACING_LEFT => PlayerFallLeft.lerp (rx, ry, 3.0, ww, wh)
fun getWhenDropping (player, rx, ry, ww, wh) = fun getWhenDropping (player, rx, ry, ww, wh) =
let val animTimer = #animTimer player let
in getWhenJumping (player, animTimer, rx, ry, ww, wh) val animTimer = #animTimer player
in
if animTimer < 15 then
getWhenJumping (player, animTimer, rx, ry, ww, wh)
else
case #facing player of
FACING_RIGHT => PlayerFallRight.lerp (rx, ry, 3.0, ww, wh)
| FACING_LEFT => PlayerFallLeft.lerp (rx, ry, 3.0, ww, wh)
end end
fun getWhenNotAttacked (player, rx, ry, ww, wh) = fun getWhenNotAttacked (player, rx, ry, ww, wh) =
case #yAxis player of case #yAxis player of
ON_GROUND => getWhenOnGround (player, rx, ry, ww, wh) ON_GROUND => getWhenOnGround (player, rx, ry, ww, wh)
| JUMPING amt => getWhenJumping (player, amt, rx, ry, ww, wh) | JUMPING amt => getWhenJumping (player, amt, rx, ry, ww, wh)
| FLOATING _ => getWhenFloating (player, rx, ry, ww, wh)
| FALLING => getWhenFalling (player, rx, ry, ww, wh) | FALLING => getWhenFalling (player, rx, ry, ww, wh)
| FLOATING _ => getWhenFalling (player, rx, ry, ww, wh)
| DROP_BELOW_PLATFORM => getWhenDropping (player, rx, ry, ww, wh) | DROP_BELOW_PLATFORM => getWhenDropping (player, rx, ry, ww, wh)
fun getWhenAttacked (player, amt, rx, ry, ww, wh) = fun getWhenAttacked (player, amt, rx, ry, ww, wh) =
@@ -146,7 +158,18 @@ struct
(* todo: hurt sprite/animation if amt mod 5 = 0 then *) (* todo: hurt sprite/animation if amt mod 5 = 0 then *)
PlayerStandingLeft.lerp (rx, ry, 3.0, ww, wh) PlayerStandingLeft.lerp (rx, ry, 3.0, ww, wh)
fun helpGet (player: player, x, y, xOffset, yOffset, ratio, rx, ry, windowWidth, windowHeight) = fun helpGet
( player: player
, x
, y
, xOffset
, yOffset
, ratio
, rx
, ry
, windowWidth
, windowHeight
) =
case #mainAttack player of case #mainAttack player of
MAIN_ATTACKING {animTimer = amt, ...} => MAIN_ATTACKING {animTimer = amt, ...} =>
(case #facing player of (case #facing player of

5327
fcore/level/player/sprites/jump/player-fall-left.sml Normal file
View File

File diff suppressed because it is too large Load Diff

5297
fcore/level/player/sprites/jump/player-fall-right.sml Normal file
View File

File diff suppressed because it is too large Load Diff

2
oms.mlb
View File

@@ -139,12 +139,14 @@ in
fcore/level/player/sprites/jump/player-jump-right-3.sml fcore/level/player/sprites/jump/player-jump-right-3.sml
fcore/level/player/sprites/jump/player-jump-right-4.sml fcore/level/player/sprites/jump/player-jump-right-4.sml
fcore/level/player/sprites/jump/player-jump-right-5.sml fcore/level/player/sprites/jump/player-jump-right-5.sml
fcore/level/player/sprites/jump/player-fall-right.sml
fcore/level/player/sprites/jump/player-jump-left-1.sml fcore/level/player/sprites/jump/player-jump-left-1.sml
fcore/level/player/sprites/jump/player-jump-left-2.sml fcore/level/player/sprites/jump/player-jump-left-2.sml
fcore/level/player/sprites/jump/player-jump-left-3.sml fcore/level/player/sprites/jump/player-jump-left-3.sml
fcore/level/player/sprites/jump/player-jump-left-4.sml fcore/level/player/sprites/jump/player-jump-left-4.sml
fcore/level/player/sprites/jump/player-jump-left-5.sml fcore/level/player/sprites/jump/player-jump-left-5.sml
fcore/level/player/sprites/jump/player-fall-left.sml
fcore/level/player/player-vec.sml fcore/level/player/player-vec.sml
end end