Fatal Mirage stuff

halogenandtoast · Dec 20, 2024 · dd44d2e · dd44d2e
1 parent d244f5e
commit dd44d2e
Show file tree

Hide file tree

Showing 191 changed files with 4,041 additions and 591 deletions.
diff --git a/backend/.projections.json b/backend/.projections.json
@@ -226,7 +226,7 @@
     "type": "enemy",
     "alternate": "arkham-api/tests/Arkham/Enemy/Cards/{}Spec.hs",
     "template": [
-      "module Arkham.Enemy.Cards.{dot} ({dot|snakecase|camelcase})  where",
+      "module Arkham.Enemy.Cards.{dot} ({dot|snakecase|camelcase}) where",
       "",
       "import Arkham.Enemy.Cards qualified as Cards",
       "import Arkham.Enemy.Import.Lifted",
@@ -268,11 +268,7 @@
     "type": "event",
     "alternate": "arkham-api/tests/Arkham/Event/Events/{}Spec.hs",
     "template": [
-      "module Arkham.Event.Events.{dot}",
-      "  ( {dot|snakecase|camelcase}",
-      "  , {dot}(..)",
-      "  )",
-      "where",
+      "module Arkham.Event.Events.{dot} ({dot|snakecase|camelcase}) where",
       "",
       "import Arkham.Event.Cards qualified as Cards",
       "import Arkham.Event.Import.Lifted",
@@ -295,11 +291,7 @@
     "type": "location",
     "alternate": "arkham-api/tests/Arkham/Location/Cards/{}Spec.hs",
     "template": [
-      "module Arkham.Location.Cards.{dot}",
-      "  ( {dot|snakecase|camelcase}",
-      "  , {dot}(..)",
-      "  )",
-      "where",
+      "module Arkham.Location.Cards.{dot} ({dot|snakecase|camelcase}) where",
       "",
       "import Arkham.Location.Cards qualified as Cards",
       "import Arkham.Location.Import.Lifted",
@@ -349,10 +341,7 @@
     "type": "story",
     "alternate": "arkham-api/tests/Arkham/Story/Cards/{}Spec.hs",
     "template": [
-       "module Arkham.Story.Cards.{dot}",
-       "  ( {dot}(..)",
-       "  , {dot|snakecase|camelcase}",
-       "  ) where",
+       "module Arkham.Story.Cards.{dot} ({dot|snakecase|camelcase}) where",
        "",
        "import Arkham.Story.Cards qualified as Cards",
        "import Arkham.Story.Import.Lifted",

diff --git a/backend/:sp b/backend/:sp
@@ -0,0 +1,15 @@
+module Arkham.Enemy.Cards.MemoryOfAHuntGoneAwry (memoryOfAHuntGoneAwry) where
+
+import Arkham.Enemy.Cards qualified as Cards
+import Arkham.Enemy.Import.Lifted
+
+newtype MemoryOfAHuntGoneAwry = MemoryOfAHuntGoneAwry EnemyAttrs
+  deriving anyclass (IsEnemy, HasModifiersFor)
+  deriving newtype (Show, Eq, ToJSON, FromJSON, Entity, HasAbilities)
+
+memoryOfAHuntGoneAwry :: EnemyCard MemoryOfAHuntGoneAwry
+memoryOfAHuntGoneAwry = enemy MemoryOfAHuntGoneAwry Cards.memoryOfAHuntGoneAwry (5, PerPlayer 3, 2) (1, 1)
+
+instance RunMessage MemoryOfAHuntGoneAwry where
+  runMessage msg (MemoryOfAHuntGoneAwry attrs) = runQueueT $ case msg of
+    _ -> MemoryOfAHuntGoneAwry <$> liftRunMessage msg attrs