From c8f56f307769f23b2a1d10cbdc8d8f15fd68c80e Mon Sep 17 00:00:00 2001
From: Humza Shahid <humzasaur@gmail.com>
Date: Sat, 25 Jan 2025 08:34:05 +0000
Subject: [PATCH] attempt at coding functionality to jump/drop when platform is
 to the right and not overlapping with current platform

---
 fcore/enemy-behaviour.sml | 28 ++++++++++++++++++++++++++--
 1 file changed, 26 insertions(+), 2 deletions(-)

diff --git a/fcore/enemy-behaviour.sml b/fcore/enemy-behaviour.sml
index e1eff96..06a9d86 100644
--- a/fcore/enemy-behaviour.sml
+++ b/fcore/enemy-behaviour.sml
@@ -313,9 +313,33 @@ struct
         (* platform is below or at same y coordinat as enemy 
          * so might possibly require dropping below rather than jumping. *)
         let
-
+          (* check if we can get to next platform without jumping.
+           * If we can, then simply move rightwards 
+           * and possibly drop below platform. 
+           * Else, jump and move rightwards *)
+          val yDiff = ey - platY
         in
-          EnemyPatch.W_X_AXIS MOVE_RIGHT :: acc
+          if yDiff >= xDiff then
+            (* can reach next platform by simply dropping and moving right *)
+            EnemyPatch.W_Y_AXIS DROP_BELOW_PLATFORM :: EnemyPatch.W_X_AXIS
+            MOVE_RIGHT :: acc
+          else
+            let
+              val jumpAmt =
+                case eyAxis of
+                  JUMPING amt => amt
+                | _ => 0
+              val apexY = ey - (Constants.jumpLimit - jumpAmt)
+              val yDiff = apexY - platY
+            in
+              if yDiff >= xDiff then
+                (* can reach if we jump and move right *)
+                EnemyPatch.W_Y_AXIS (JUMPING 0) :: EnemyPatch.W_X_AXIS
+                MOVE_RIGHT :: acc
+              else
+                (* cannot reach yet so move right until we can *)
+                EnemyPatch.W_X_AXIS MOVE_RIGHT :: acc
+            end
         end
     end