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

add fields to enemy which are relevant to bat's state

Browse Source
This commit is contained in:
Humza Shahid
2025-02-11 23:54:13 +00:00
parent 3db27a4107
commit 1dc3116b77
3 changed files with 124 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
fcore/constants.sml
View File

@@ -30,7 +30,7 @@ struct
val enemySize = 35
val enemySizeReal: Real32.real = 35.0
val moveEnemyBy = 3
val batRestLimit = 75
val batRestLimit = 55
val moveProjectileBy = 11
end

113
fcore/enemy/enemy-patch.sml
View File

@@ -9,6 +9,9 @@ sig
| W_PLAT_ID of int
| W_NEXT_PLAT_ID of int
| W_BAT_REST of int
| W_BAT_MAX_Y of int
| W_BAT_MIN_Y of int
| W_BAT_DIR_Y of GameType.bat_dir_y
val withPatch: GameType.enemy * enemy_patch -> GameType.enemy
@@ -26,9 +29,25 @@ struct
| W_PLAT_ID of int
| W_NEXT_PLAT_ID of int
| W_BAT_REST of int
| W_BAT_MAX_Y of int
| W_BAT_MIN_Y of int
| W_BAT_DIR_Y of GameType.bat_dir_y
fun mkEnemy
(id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID, batRest) =
( id
, health
, x
, y
, xAxis
, yAxis
, variant
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
) =
{ id = id
, health = health
, x = x
@@ -39,12 +58,28 @@ struct
, platID = platID
, nextPlatID = nextPlatID
, batRest = batRest
, batDirY = batDirY
, batMaxY = batMaxY
, batMinY = batMinY
}
fun withPatch (enemy, patch) =
let
val {id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID, batRest} =
enemy
val
{ id
, health
, x
, y
, xAxis
, yAxis
, variant
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
} = enemy
in
case patch of
W_HEALTH health =>
@@ -59,6 +94,9 @@ struct
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_X x =>
mkEnemy
@@ -72,6 +110,9 @@ struct
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_X_AXIS xAxis =>
mkEnemy
@@ -85,6 +126,9 @@ struct
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_Y y =>
mkEnemy
@@ -98,6 +142,9 @@ struct
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_Y_AXIS yAxis =>
mkEnemy
@@ -111,6 +158,9 @@ struct
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_PLAT_ID platID =>
mkEnemy
@@ -124,6 +174,9 @@ struct
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_NEXT_PLAT_ID nextPlatID =>
mkEnemy
@@ -137,6 +190,9 @@ struct
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_BAT_REST batRest =>
mkEnemy
@@ -150,6 +206,57 @@ struct
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_BAT_MAX_Y batMaxY =>
mkEnemy
( id
, health
, x
, y
, xAxis
, yAxis
, variant
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_BAT_MIN_Y batMinY =>
mkEnemy
( id
, health
, x
, y
, xAxis
, yAxis
, variant
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
| W_BAT_DIR_Y batDirY =>
mkEnemy
( id
, health
, x
, y
, xAxis
, yAxis
, variant
, platID
, nextPlatID
, batRest
, batDirY
, batMaxY
, batMinY
)
end

13
fcore/game-type.sml
View File

@@ -46,6 +46,8 @@ sig
, platID: int
}
datatype bat_dir_y = UP | DOWN
type enemy =
{ id: int
, health: int
@@ -57,6 +59,9 @@ sig
, platID: int
, nextPlatID: int
, batRest: int
, batDirY: bat_dir_y
, batMaxY: int
, batMinY: int
}
type falling_enemy = {x: int, y: int, variant: EnemyVariants.t}
@@ -124,6 +129,8 @@ struct
, platID: int
}
datatype bat_dir_y = UP | DOWN
type enemy =
{ id: int
, health: int
@@ -135,6 +142,9 @@ struct
, platID: int
, nextPlatID: int
, batRest: int
, batDirY: bat_dir_y
, batMaxY: int
, batMinY: int
}
type falling_enemy = {x: int, y: int, variant: EnemyVariants.t}
@@ -223,6 +233,9 @@ struct
, platID = ~1
, nextPlatID = ~1
, batRest = 0
, batDirY = UP
, batMaxY = 635
, batMinY = 475
}
val enemies = Vector.fromList [enemy1]
val graph = Graph.fromPlatforms (platforms, platformTree)