require attack button to be pressed twice in order to trigger throwing of defeated enemies

fcore/game-type.sml

@@ -19,7 +19,11 @@ sig
 
   datatype facing = FACING_LEFT | FACING_RIGHT
 
-  datatype main_attack = MAIN_NOT_ATTACKING | MAIN_ATTACKING | MAIN_CHARGING
+  datatype main_attack =
+    MAIN_NOT_ATTACKING
+  | MAIN_ATTACKING
+  | MAIN_CHARGING
+  | MAIN_THROWING
 
   type defeated_enemies = {angle: int}
 
@@ -94,7 +98,11 @@ struct
 
   datatype facing = FACING_LEFT | FACING_RIGHT
 
-  datatype main_attack = MAIN_NOT_ATTACKING | MAIN_ATTACKING | MAIN_CHARGING
+  datatype main_attack =
+    MAIN_NOT_ATTACKING
+  | MAIN_ATTACKING
+  | MAIN_CHARGING
+  | MAIN_THROWING
 
   type defeated_enemies = {angle: int}
 

fcore/player.sml

@@ -546,22 +546,7 @@ struct
         defeatedEnemiesToProjectiles (pos + 1, defeteadEnemies, player, acc)
       end
 
-  fun getMainAttackPatches
+  fun getThrowPatches (defeteadEnemies, projectiles, player, acc) =
-    ( prevAttack
-    , defeteadEnemies
-    , projectiles
-    , attackHeld
-    , chargeHeld
-    , charge
-    , player
-    , acc
-    ) =
-    if attackHeld then
-      if
-        prevWasNotAttacking prevAttack andalso Vector.length defeteadEnemies > 0
-      then
-        (* shoot projectiles if player was not attacking previously, 
-         * and there is more than one enemy *)
     let
       val newProjectiles =
         defeatedEnemiesToProjectiles (0, defeteadEnemies, player, [])
@@ -572,8 +557,26 @@ struct
       (* remove defeated enemies from player record *)
       val enemies = Vector.fromList []
     in
-          W_PROJECTILES allProjectiles :: W_ENEMIES enemies :: acc
+      W_MAIN_ATTACK MAIN_THROWING :: W_PROJECTILES allProjectiles
+      :: W_ENEMIES enemies :: acc
     end
+
+  fun getMainAttackPatches
+    ( prevAttack
+    , defeteadEnemies
+    , projectiles
+    , attackHeld
+    , chargeHeld
+    , charge
+    , player
+    , acc
+    ) =
+    case prevAttack of
+      MAIN_NOT_ATTACKING =>
+        if attackHeld andalso Vector.length defeteadEnemies > 0 then
+          (* shoot projectiles if player was not attacking previously, 
+           * and there is more than one enemy *)
+          getThrowPatches (defeteadEnemies, projectiles, player, acc)
         else
           let
             val mainAttack =
@@ -581,6 +584,26 @@ struct
           in
             mainAttack :: acc
           end
+    | MAIN_CHARGING =>
+        if attackHeld andalso Vector.length defeteadEnemies > 0 then
+          getThrowPatches (defeteadEnemies, projectiles, player, acc)
+        else
+          let
+            val mainAttack =
+              helpGetMainAttackPatches (attackHeld, chargeHeld, charge)
+          in
+            mainAttack :: acc
+          end
+    | MAIN_ATTACKING =>
+        let
+          val mainAttack =
+            helpGetMainAttackPatches (attackHeld, chargeHeld, charge)
+        in
+          mainAttack :: acc
+        end
+    | MAIN_THROWING =>
+        if attackHeld then
+          acc
         else
           let
             val mainAttack =
@@ -615,7 +638,7 @@ struct
         case mainAttack of
           MAIN_CHARGING => Int.min (charge + 1, maxCharge)
         | MAIN_ATTACKING => Int.max (charge - 1, 0)
-        | MAIN_NOT_ATTACKING => charge
+        | _ => charge
 
       val acc = [W_X_AXIS xAxis, W_FACING facing, W_CHARGE charge]
 
@@ -738,6 +761,15 @@ struct
                Block.lerp (x, y, size, size, width, height, 0.9, 0.9, 0.9)
              else
                Block.lerp (x, y, size, size, width, height, 0.5, 0.5, 0.5))
+    | MAIN_THROWING =>
+        (case attacked of
+           NOT_ATTACKED =>
+             Block.lerp (x, y, size, size, width, height, 0.5, 0.5, 0.5)
+         | ATTACKED amt =>
+             if amt mod 5 = 0 then
+               Block.lerp (x, y, size, size, width, height, 0.9, 0.9, 0.9)
+             else
+               Block.lerp (x, y, size, size, width, height, 0.5, 0.5, 0.5))
     | MAIN_ATTACKING =>
         (case attacked of
            NOT_ATTACKED =>