From 7a714cc457323bff6b4a73ec9e7b58c7a63381ec Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 5 Mar 2023 14:55:25 +0000
Subject: Exit placement on the last battery

---
 src/Game/Entities/Pickup.hs | 2 +-
 src/Game/Entities/Types.hs  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Game/Entities')

diff --git a/src/Game/Entities/Pickup.hs b/src/Game/Entities/Pickup.hs
index 7c1937c..a933efc 100644
--- a/src/Game/Entities/Pickup.hs
+++ b/src/Game/Entities/Pickup.hs
@@ -27,7 +27,7 @@ mkBattery sprites x y playerCollision = do
 updateBattery :: Collision -> Entity -> IO Entity
 updateBattery touchedPlayer e = do
   touched <- touchedPlayer e
-  pure $ if touched then e {destroy = True, actions = [ActionAddBattery]} else updateBatteryFrame
+  pure $ if touched then e {destroy = True, actions = [ActionAddBattery e.x e.y]} else updateBatteryFrame
   where
     updateBatteryFrame :: Entity
     updateBatteryFrame
diff --git a/src/Game/Entities/Types.hs b/src/Game/Entities/Types.hs
index dce4ffa..64b4637 100644
--- a/src/Game/Entities/Types.hs
+++ b/src/Game/Entities/Types.hs
@@ -29,7 +29,7 @@ data Entities = Entities
 -- | The effect name must match the sprite name in the spritesheet.
 type EffectName = String
 
-data Action = ActionAddEffect Int Int EffectName | ActionAddBattery | ActionHitPlayer
+data Action = ActionAddEffect Int Int EffectName | ActionAddBattery Int Int | ActionHitPlayer
 
 data Entity = Entity
   { typ :: Type,
-- 
cgit v1.2.3