Film Fatale

Author: halogenandtoast

backend/arkham-api/arkham-api.cabal

@@ -239,6 +239,9 @@ restrict = flip withCriteria
 haunted :: (HasCardCode a, Sourceable a) => Text -> a -> Int -> Ability
 haunted tooltip a n = withTooltip tooltip $ mkAbility a n Haunted
 
+hauntedI :: (HasI18n, HasCardCode a, Sourceable a) => Scope -> a -> Int -> Ability
+hauntedI tooltip a n = withI18nTooltip tooltip $ mkAbility a n Haunted
+
 cosmos :: (HasCardCode a, Sourceable a) => a -> Int -> Ability
 cosmos a n = mkAbility a n Cosmos
 

backend/arkham-api/library/Arkham/Ability.hs

@@ -354,4 +354,16 @@ allActs =
     , -- The Midwinter Gala
       SomeActCard meetAndGreet
     , SomeActCard findingTheJewel
+    , -- Film Fatale
+      --- Film Fatale
+      SomeActCard andresRequest
+    , --- Cosmic Journey
+      SomeActCard aCosmicJourney
+    , SomeActCard fromWhenceTheyCame
+    , --- Forgotten Island
+      SomeActCard theForgottenIsland
+    , SomeActCard destroyTheSource
+    , --- Abominable Contessa
+      SomeActCard theAbominableContessa
+    , SomeActCard bloodbath
     ]

backend/arkham-api/library/Arkham/Act.hs

@@ -24,11 +24,13 @@ allActCards =
     $ map
       (toCardCode &&& id)
       [ aCircleUnbroken
+      , aCosmicJourney
       , aFamiliarPattern
       , afterHours
       , alejandrosPlight
       , alejandrosPrison
       , allIn
+      , andresRequest
       , arkhamAsylum
       , ascendTheMountain
       , ascendingTheHillV1
@@ -48,6 +50,7 @@ allActCards =
       , beyondTheMistV3
       , beyondTheMistV4
       , beyondTheWitchHouse
+      , bloodbath
       , breakingAndEntering
       , campusSafety
       , cavernOfTheForgottenAge
@@ -62,6 +65,7 @@ allActCards =
       , darkKnowledgeV1
       , darkKnowledgeV2
       , descentIntoDark
+      , destroyTheSource
       , discoverTheTruth
       , discoveringTheTruth
       , disruptingTheRitual
@@ -85,6 +89,7 @@ allActCards =
       , followingLeads
       , friendsInHighPlacesHenryDeveau
       , friendsInHighPlacesHenrysInformation
+      , fromWhenceTheyCame
       , getTheEngineRunning
       , getToTheBoats
       , harlanIsInDanger
@@ -176,6 +181,7 @@ allActCards =
       , strangeOccurences
       , strangeRelicsMariaDeSilva
       , strangeRelicsMariasInformation
+      , theAbominableContessa
       , theBarrier
       , theBindingRite
       , theBlackExpanse
@@ -196,6 +202,7 @@ allActCards =
       , theFinalDescent
       , theFinalMirage
       , theFirstOath
+      , theForgottenIsland
       , theFourKeys
       , theGateOpens
       , theGreatSeal
@@ -982,3 +989,24 @@ meetAndGreet = act "71005" "Meet and Greet" 1 TheMidwinterGala
 
 findingTheJewel :: CardDef
 findingTheJewel = act "71006" "Finding the Jewel" 2 TheMidwinterGala
+
+andresRequest :: CardDef
+andresRequest = act "72004" "Andres' Request" 1 FilmFatale
+
+aCosmicJourney :: CardDef
+aCosmicJourney = act "72025" "A Cosmic Journey" 2 CosmicJourney
+
+fromWhenceTheyCame :: CardDef
+fromWhenceTheyCame = act "72026" "From Whence They Came" 3 CosmicJourney
+
+theForgottenIsland :: CardDef
+theForgottenIsland = act "72037" "The Forgotten Island" 2 ForgottenIsland
+
+destroyTheSource :: CardDef
+destroyTheSource = act "72038" "Destroy the Source" 3 ForgottenIsland
+
+theAbominableContessa :: CardDef
+theAbominableContessa = act "72048" "The Abominable Contessa" 2 AbominableContessa
+
+bloodbath :: CardDef
+bloodbath = act "72049" "Bloodbath" 3 AbominableContessa

backend/arkham-api/library/Arkham/Act/Cards.hs

@@ -0,0 +1,80 @@
+module Arkham.Act.Cards.ACosmicJourney (aCosmicJourney) where
+
+import Arkham.Ability hiding (Cosmos)
+import Arkham.Act.Cards qualified as Cards
+import Arkham.Act.Import.Lifted
+import Arkham.Asset.Cards qualified as Assets
+import Arkham.Asset.Uses
+import Arkham.Deck qualified as Deck
+import Arkham.Enemy.Cards qualified as Enemies
+import Arkham.Helpers.Modifiers (ModifierType (..), modifySelect)
+import Arkham.Helpers.Scenario
+import Arkham.Location.Cards qualified as Locations
+import Arkham.Matcher
+import Arkham.Message.Lifted.Choose
+import Arkham.Message.Lifted.Move
+import Arkham.Scenario.Deck
+import Arkham.Scenarios.FilmFatale.Helpers (initialLayout)
+import Arkham.Trait (Trait (Cosmos, RitualSite))
+
+newtype ACosmicJourney = ACosmicJourney ActAttrs
+  deriving anyclass IsAct
+  deriving newtype (Show, Eq, ToJSON, FromJSON, Entity)
+
+aCosmicJourney :: ActCard ACosmicJourney
+aCosmicJourney = act (2, A) ACosmicJourney Cards.aCosmicJourney Nothing
+
+instance HasModifiersFor ACosmicJourney where
+  getModifiersFor (ACosmicJourney a) = do
+    modifySelect a (EnemyWithTitle "Possessed Extra") [HealthModifier 2]
+
+instance HasAbilities ACosmicJourney where
+  getAbilities = actAbilities \a ->
+    [ restricted
+        a
+        1
+        (exists $ assetIs Assets.heliosTelescopeGateToTheCosmos <> AssetWithUseCount Shard (atLeast 3))
+        $ Objective
+        $ forced (RoundEnds #when)
+    ]
+
+instance RunMessage ACosmicJourney where
+  runMessage msg a@(ACosmicJourney attrs) = runQueueT $ case msg of
+    UseThisAbility _ (isSource attrs -> True) 1 -> do
+      advancedWithOther attrs
+      pure a
+    AdvanceAct (isSide B attrs -> True) _ _ -> do
+      discardEach attrs AnyEnemy
+      spaceSet <- selectJust $ locationIs Locations.spaceSet
+      eachInvestigator \iid -> do
+        moveTo attrs iid spaceSet
+        discardAllClues attrs iid
+
+      selectEach (mapOneOf LocationWithTrait [Cosmos, RitualSite]) removeLocation
+      selectEach (AssetWithTrait Cosmos) removeAsset
+
+      placeSetAsideLocations_ [Locations.jungleSet, Locations.gothicSet]
+      push $ SetLayout initialLayout
+      lead <- getLead
+      centralLot <- placeSetAsideLocation Locations.centralLotQuietOnSet
+      flipOverBy lead attrs centralLot
+      monarchCard <-
+        selectJust $ VictoryDisplayCardMatch $ basic $ cardIs Enemies.saturniteMonarchGraciousHost
+      monarch <- createEnemyAt monarchCard centralLot
+      flipOverBy lead attrs monarch
+
+      reelDeck <- take 2 <$> getScenarioDeck ReelDeck
+      shuffleCardsIntoDeck Deck.EncounterDeck reelDeck
+      shuffleEncounterDiscardBackIn
+
+      addChaosToken #cultist
+      addChaosToken #tablet
+      addChaosToken #elderthing
+
+      investigators <- select UneliminatedInvestigator
+      heliosTelescope <- selectJust $ assetIs Assets.heliosTelescopeGateToTheCosmos
+      leadChooseOneM $ targets investigators (`takeControlOfAsset` heliosTelescope)
+
+      advanceActDeck attrs
+      pure a
+    _ -> ACosmicJourney <$> liftRunMessage msg attrs