begin adding variant for STRAIGHT_BAT enemy

fcore/enemy/enemy-behaviour.sml

@@ -528,7 +528,7 @@ struct
             , enemyList
             , fallingList
             )
-      | FOLLOW_SIME =>
+      | FOLLOW_SLIME =>
           updateFollowState
             ( player
             , enemy

fcore/enemy/enemy-patch.sml

@@ -25,7 +25,8 @@ struct
   | W_PLAT_ID of int
   | W_NEXT_PLAT_ID of int
 
-  fun mkEnemy (id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID) =
+  fun mkEnemy
+    (id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID, batRest) =
     { id = id
     , health = health
     , x = x
@@ -35,27 +36,106 @@ struct
     , variant = variant
     , platID = platID
     , nextPlatID = nextPlatID
+    , batRest = batRest
     }
 
   fun withPatch (enemy, patch) =
     let
-      val {id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID} = enemy
+      val {id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID, batRest} =
+        enemy
     in
       case patch of
         W_HEALTH health =>
-          mkEnemy (id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID)
+          mkEnemy
+            ( id
+            , health
+            , x
+            , y
+            , xAxis
+            , yAxis
+            , variant
+            , platID
+            , nextPlatID
+            , batRest
+            )
       | W_X x =>
-          mkEnemy (id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID)
+          mkEnemy
+            ( id
+            , health
+            , x
+            , y
+            , xAxis
+            , yAxis
+            , variant
+            , platID
+            , nextPlatID
+            , batRest
+            )
       | W_X_AXIS xAxis =>
-          mkEnemy (id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID)
+          mkEnemy
+            ( id
+            , health
+            , x
+            , y
+            , xAxis
+            , yAxis
+            , variant
+            , platID
+            , nextPlatID
+            , batRest
+            )
       | W_Y y =>
-          mkEnemy (id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID)
+          mkEnemy
+            ( id
+            , health
+            , x
+            , y
+            , xAxis
+            , yAxis
+            , variant
+            , platID
+            , nextPlatID
+            , batRest
+            )
       | W_Y_AXIS yAxis =>
-          mkEnemy (id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID)
+          mkEnemy
+            ( id
+            , health
+            , x
+            , y
+            , xAxis
+            , yAxis
+            , variant
+            , platID
+            , nextPlatID
+            , batRest
+            )
       | W_PLAT_ID platID =>
-          mkEnemy (id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID)
+          mkEnemy
+            ( id
+            , health
+            , x
+            , y
+            , xAxis
+            , yAxis
+            , variant
+            , platID
+            , nextPlatID
+            , batRest
+            )
       | W_NEXT_PLAT_ID nextPlatID =>
-          mkEnemy (id, health, x, y, xAxis, yAxis, variant, platID, nextPlatID)
+          mkEnemy
+            ( id
+            , health
+            , x
+            , y
+            , xAxis
+            , yAxis
+            , variant
+            , platID
+            , nextPlatID
+            , batRest
+            )
     end
 
   fun withPatches (enemy, lst) =

fcore/enemy/enemy-variants.sml

@@ -1,7 +1,7 @@
 signature ENEMY_VARIANTS =
 sig
-  datatype t = PATROL_SLIME | FOLLOW_SLIME
+  datatype t = PATROL_SLIME | FOLLOW_SLIME | STRAIGHT_BAT
 end
 
 structure EnemyVariants: ENEMY_VARIANTS =
-struct datatype t = PATROL_SLIME | FOLLOW_SLIME end
+struct datatype t = PATROL_SLIME | FOLLOW_SLIME | STRAIGHT_BAT end