From a627d87a57e8741ecdf85963f7e3b375654ae1ae Mon Sep 17 00:00:00 2001
From: Emi Simpson <emi@alchemi.dev>
Date: Tue, 5 Dec 2023 19:09:43 -0500
Subject: [PATCH] Add "Baton" attack to gunwight

---
 src/Units/Carcass.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/Units/Carcass.hs b/src/Units/Carcass.hs
index c985efb..a6e5d75 100644
--- a/src/Units/Carcass.hs
+++ b/src/Units/Carcass.hs
@@ -19,7 +19,7 @@ import GameModel
 import Units.Components
   ( AttackT(..)
   , anyTarget
-  , buildAttack, inflictTokens
+  , buildAttack, inflictTokens, push
   )
 
 gunwight :: BaseStats
@@ -52,6 +52,16 @@ gunwightActions =
     , tHeadshotEffects = [inflictTokens VitalVulnr (-1)]
     , tStandardEffects = []
     }
+  , buildAttack $ AttackT
+    { tName            = "Baton"
+    , tRange           = (1, 1)
+    , tValidTargets    = anyTarget
+    , tMelee           = True
+    , tDamageType      = BasicDamage
+    , tDamageAmount    = 0
+    , tStandardEffects = [push 1]
+    , tHeadshotEffects = []
+    }
   ]
 
 gunwightStatBonuses :: BoardState -> CharacterIdentifier -> Stat a -> a