Elder Chamber

backend/arkham-api/library/Arkham/Location/Cards/ElderChamber.hs

@@ -1,7 +1,14 @@
 module Arkham.Location.Cards.ElderChamber (elderChamber) where
 
+import Arkham.Ability
+import Arkham.Campaigns.EdgeOfTheEarth.Helpers
+import Arkham.Card.CardDef
 import Arkham.Location.Cards qualified as Cards
 import Arkham.Location.Import.Lifted
+import Arkham.Matcher
+import Arkham.Scenario.Deck
+import Arkham.Scenarios.FatalMirage.Helpers
+import Arkham.Story.Cards qualified as Stories
 
 newtype ElderChamber = ElderChamber LocationAttrs
   deriving anyclass (IsLocation, HasModifiersFor)
@@ -10,10 +17,22 @@ newtype ElderChamber = ElderChamber LocationAttrs
 elderChamber :: LocationCard ElderChamber
 elderChamber = location ElderChamber Cards.elderChamber 1 (PerPlayer 2)
 
+mirageCards :: [CardDef]
+mirageCards = [Cards.clutteredDormitory]
+
 instance HasAbilities ElderChamber where
-  getAbilities (ElderChamber attrs) =
-    extendRevealed attrs []
+  getAbilities (ElderChamber a) =
+    extendRevealed
+      a
+      [ mirage a 2 mirageCards
+      , restricted a 1 (ScenarioDeckWithCard TekeliliDeck)
+          $ forced
+          $ DiscoverClues #after You (be a) (atLeast 2)
+      ]
 
 instance RunMessage ElderChamber where
-  runMessage msg (ElderChamber attrs) = runQueueT $ case msg of
-    _ -> ElderChamber <$> liftRunMessage msg attrs
+  runMessage msg l@(ElderChamber attrs) = runQueueT $ case msg of
+    UseThisAbility iid (isSource attrs -> True) 1 -> do
+      addTekelili iid =<< getTekelili 1
+      pure l
+    _ -> ElderChamber <$> mirageRunner Stories.elderChamber mirageCards msg attrs