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

add 'facing' field to player projectiles, so it is known which direction projectile should travel in

Browse Source
This commit is contained in:
Humza Shahid
2025-01-08 20:26:53 +00:00
parent bd946bf635
commit a2dc00704c
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
fcore/game-type.sml
View File

@@ -27,7 +27,7 @@ sig
type defeated_enemies = {angle: int} type defeated_enemies = {angle: int}
type player_projectile = {x: int, y: int} type player_projectile = {x: int, y: int, facing: facing}
type player = type player =
{ yAxis: player_y_axis { yAxis: player_y_axis
@@ -106,7 +106,7 @@ struct
type defeated_enemies = {angle: int} type defeated_enemies = {angle: int}
type player_projectile = {x: int, y: int} type player_projectile = {x: int, y: int, facing: facing}
type player = type player =
{ yAxis: player_y_axis { yAxis: player_y_axis

4
fcore/player.sml
View File

@@ -523,7 +523,7 @@ struct
fun degreesToRadians degrees = Real32.fromInt degrees * defeatedPi fun degreesToRadians degrees = Real32.fromInt degrees * defeatedPi
fun defeatedEnemiesToProjectiles fun defeatedEnemiesToProjectiles
(pos, defeteadEnemies, player as {x, y, ...}, acc) = (pos, defeteadEnemies, player as {x, y, facing, ...}, acc) =
if pos = Vector.length defeteadEnemies then if pos = Vector.length defeteadEnemies then
Vector.fromList acc Vector.fromList acc
else else
@@ -541,7 +541,7 @@ struct
val x = Real32.toInt IEEEReal.TO_NEAREST x val x = Real32.toInt IEEEReal.TO_NEAREST x
val y = Real32.toInt IEEEReal.TO_NEAREST y val y = Real32.toInt IEEEReal.TO_NEAREST y
val acc = {x = x, y = y} :: acc val acc = {x = x, y = y, facing = facing} :: acc
in in
defeatedEnemiesToProjectiles (pos + 1, defeteadEnemies, player, acc) defeatedEnemiesToProjectiles (pos + 1, defeteadEnemies, player, acc)
end end