Merge pull request #6745 from NBKelly/parhelion-patch-2

Parhelion patch 2

Author: NoahTheDuke

src/clj/game/cards/agendas.clj

@@ -14,6 +14,7 @@
                            get-card get-counters get-title get-zone has-subtype? ice? in-discard? in-hand?
                            in-scored? installed? operation? program? resource? rezzed? runner? upgrade?]]
    [game.core.card-defs :refer [card-def]]
+   [game.core.cost-fns :refer [rez-cost install-cost]]
    [game.core.damage :refer [damage damage-bonus]]
    [game.core.def-helpers :refer [corp-recur defcard do-net-damage
                                   offer-jack-out reorder-choice x-fn]]
@@ -801,6 +802,9 @@
               :async true
               :effect (req (gain-tags state :runner eid 1))}})
 
+(defcard "Freedom of Information"
+  {:advancement-requirement (req (- (count-tags state)))})
+
 (defcard "Genetic Resequencing"
   {:on-score {:choices {:card in-scored?}
               :msg (msg "place 1 agenda counter on " (:title target))
@@ -955,6 +959,17 @@
                 :once :per-run
                 :effect (effect (damage eid :net 1 {:card card}))}]})
 
+(defcard "Hybrid Release"
+  {:on-score {:prompt "Choose a facedown card in Archives to install"
+               :show-discard true
+               :async true
+               :choices {:card #(and (corp-installable-type? %)
+                                     (in-discard? %)
+                                     (not (faceup? %)))}
+               :effect (effect (corp-install (make-eid state {:source card :source-type :corp-install}) target nil nil))
+               :cancel-effect (effect (system-msg "declines to use Hybrid Release"))
+               :msg (msg "install " (card-str state target))}})
+
 (defcard "Hyperloop Extension"
   (let [he {:msg "gain 3 [Credits]"
             :async true
@@ -1013,6 +1028,30 @@
      :msg (msg "place 2 advancement token on " (card-str state target))
      :effect (effect (add-prop :corp target :advance-counter 2 {:placed true}))}]})
 
+(defcard "Kimberlite Field"
+  {:on-score
+   {:interactive (req true)
+    :async true
+    :waiting-prompt "Corp to make a decision"
+    :prompt "Choose a card to trash"
+    :req (req (some rezzed? (all-installed state :corp)))
+    :choices {:card #(rezzed? %)}
+    :cancel-effect (effect (system-msg :runner "declines to use Kimberlite Field to trash a card")
+                           (effect-completed eid))
+    :effect (req (let [target-cost (rez-cost state :corp target)
+                       prompt-str (str "trash a runner card that costs " target-cost " or less")]
+                   (wait-for (trash state side target {:cause-card card})
+                             (continue-ability
+                               state side
+                               {:prompt prompt-str
+                                :choices {:card #(and (installed? %)
+                                                      (runner? %)
+                                                      (<= (install-cost state :runner %) target-cost))}
+                                :msg (str "trash " (card-str state target))
+                                :async true
+                                :effect (effect (trash eid target))}
+                               card nil))))}})
+
 (defcard "Labyrinthine Servers"
   {:on-score {:silent (req true)
               :effect (effect (add-counter card :power 2))}
@@ -1224,6 +1263,9 @@
     :msg "gain 7 [Credits]"
     :effect (effect (gain-credits :corp eid 7))}})
 
+(defcard "Ontological Dependence"
+  {:advancement-requirement (req (- (or (get-in @state [:runner :brain-damage]) 0)))})
+
 (defcard "Orbital Superiority"
   {:on-score
    {:msg (msg (if (is-tagged? state) "do 4 meat damage" "give the Runner 1 tag"))
@@ -1263,6 +1305,16 @@
               :msg (msg "do " (count (:scored runner)) " net damage")
               :effect (effect (damage eid :net (count (:scored runner)) {:card card}))}})
 
+(defcard "Post-Truth Dividend"
+  {:on-score {:optional
+              {:prompt "Draw 1 card?"
+               :yes-ability
+               {:msg "draw 1 card"
+                :async true
+                :effect (effect (draw eid 1))}
+               :no-ability
+               {:effect (effect (system-msg :corp "declines to use Post-Truth Dividend to draw 1 card"))}}}})
+
 (defcard "Posted Bounty"
   {:on-score {:optional
               {:prompt "Forfeit this agenda to give the Runner 1 tag and take 1 bad publicity?"
@@ -1549,6 +1601,10 @@
                            (check-win-by-agenda state side))
               :cancel-effect (effect (system-msg (str "declines to use " (:title card) " to reveal an agenda in Archives")))}})
 
+
+(defcard "Regulatory Capture"
+  {:advancement-requirement (req (- (min 4 (count-bad-pub state))))})
+
 (defcard "Remastered Edition"
   {:on-score {:effect (effect (add-counter card :agenda 1))
               :silent (req true)}

src/clj/game/cards/assets.clj

@@ -59,7 +59,7 @@
    [game.core.to-string :refer [card-str]]
    [game.core.toasts :refer [toast]]
    [game.core.update :refer [update!]]
-   [game.core.winning :refer [check-win-by-agenda]]
+   [game.core.winning :refer [check-win-by-agenda win]]
    [game.macros :refer [continue-ability effect msg req wait-for]]
    [game.utils :refer :all]
    [jinteki.utils :refer :all]))
@@ -700,6 +700,15 @@
                        " by " (get-counters card :power) " [Credits]")
              :effect (req (swap! state assoc-in [:per-turn (:cid card)] true))}]})
 
+(defcard "Dr. Vientiane Keeling"
+  {:constant-effects [(runner-hand-size+ (req (- (get-counters card :power))))]
+   :events [{:event :rez
+             :msg "add 1 power counter to itself"
+             :effect (effect (add-counter card :power 1))}
+            {:event :corp-turn-begins
+             :msg "add 1 power counter to itself"
+             :effect (effect (add-counter card :power 1))}]})
+
 (defcard "Drago Ivanov"
   {:advanceable :always
    :abilities [{:cost [:advancement 2]
@@ -919,6 +928,40 @@
              :msg "do 1 meat damage"
              :effect (effect (damage eid :meat 1 {:card card}))}]})
 
+(defcard "Gaslight"
+  (let [search-for-operation {:prompt "Choose an operation to add to HQ"
+                              :msg (msg (if (= target "No action")
+                                          "search R&D, but does not find an operation"
+                                          (str "add " (get-title target) " to HQ")))
+                              :choices (req (conj (vec (sort-by :title (filter operation? (:deck corp)))) "No action"))
+                              :async true
+                              :effect (req (if (= target "No action")
+                                             (do (shuffle! state :corp :deck)
+                                                 (effect-completed state side eid))
+                                             (wait-for
+                                               (reveal state side target)
+                                               (shuffle! state :corp :deck)
+                                               (move state :corp target :hand)
+                                               (effect-completed state side eid))))}
+        ability {:once :per-turn
+                 :async true
+                 :label "Trash this asset to search R&D for an operation (start of turn)"
+                 :req (req (:corp-phase-12 @state))
+                 :effect
+                 (effect
+                   (continue-ability
+                     {:optional
+                      {:prompt "Trash Gaslight to search R&D for an operation?"
+                       :yes-ability
+                       {:async true
+                        :effect (req (wait-for (trash state side card {:cause-card card})
+                                               (continue-ability state side search-for-operation card nil)))}}}
+                     card nil))}]
+    {:derezzed-events [corp-rez-toast]
+     :flags {:corp-phase-12 (req true)}
+     :events [(assoc ability :event :corp-turn-begins)]
+     :abilities [ability]}))
+
 (defcard "Gene Splicer"
   {:advanceable :always
    :access {:req (req (pos? (get-counters (get-card state card) :advancement)))
@@ -969,6 +1012,20 @@
             :async true
             :effect (effect (lose-credits :runner eid 1))}})
 
+(defcard "Hostile Architecture"
+  (let [valid-trash (fn [target] (and (corp? (:card target)) (installed? (:card target))))
+        ability
+        {:event :runner-trash
+         :async true
+         :once-per-instance false
+         :req (req (and (valid-trash target)
+                        (first-event? state side :runner-trash #(valid-trash (first %)))))
+         :msg "do 2 meat damage"
+         :effect (effect (damage :corp eid :meat 2 {:card card}))}]
+    {:on-trash ability
+     :events [ability]}))
+
+
 (defcard "Hostile Infrastructure"
   (let [ability
         {:event :runner-trash
@@ -1611,6 +1668,20 @@
      :abilities [ability]
      :events [(assoc ability :event :corp-turn-begins)]}))
 
+(defcard "Nightmare Archive"
+  {:flags {:rd-reveal (req true)}
+   :access {:async true
+            :msg (msg "force the Runner to " (decapitalize target))
+            :player :runner
+            :prompt "Choose one"
+            :choices ["Take 1 Core Damage" "Add Nightmare Archive to score area"]
+            :effect (req (if (= target (str "Add Nightmare Archive to score area"))
+                           (do (as-agenda state :runner card -1)
+                               (effect-completed state side eid))
+                           (do (wait-for (damage state :corp :brain 1 {:card card})
+                                         (move state :corp card :rfg)
+                                         (effect-completed state side eid)))))}})
+
 (defcard "Open Forum"
   {:events [{:event :corp-mandatory-draw
              :interactive (req true)
@@ -1901,6 +1972,27 @@
      :events [(assoc ability :event :corp-turn-begins)]
      :abilities [ability]}))
 
+(defcard "Reaper Function"
+  (let [ability {:async true
+                 :once :per-turn
+                 :label "Trash this asset to do 2 net damage (start of turn)"
+                 :req (req (:corp-phase-12 @state))
+                 :effect
+                 (effect
+                  (continue-ability
+                    {:optional
+                     {:prompt "Trash Reaper Function to do 2 net damage?"
+                      :yes-ability
+                      {:msg "do 2 net damage"
+                       :async true
+                       :effect (req (wait-for (trash state side card {:cause-card card})
+                                              (damage state side eid :net 2 {:card card})))}}}
+                    card nil))}]
+    {:derezzed-events [corp-rez-toast]
+     :flags {:corp-phase-12 (req true)}
+     :events [(assoc ability :event :corp-turn-begins)]
+     :abilities [ability]}))
+
 (defcard "Reconstruction Contract"
   {:events [{:event :damage
              :req (req (and (pos? (:amount context))
@@ -2235,6 +2327,22 @@
                                       (seq (filter #(= (:title %) (:title target)) (:discard runner)))))
                        :value [:credit 2]}]})
 
+(defcard "Superdeep Borehole"
+  ;; the "when it is empty" text is reliant on the card being loaded
+  {:on-rez {:effect (req (update! state side (assoc-in (get-card state card) [:special :borehole-valid] true))
+                         (add-counter state side card :bad-publicity 6))}
+   :events [{:event :corp-turn-begins
+             :msg (msg "take 1 bad publicity from " (:title card))
+             :async true
+             :effect (req (add-counter state side card :bad-publicity -1 nil)
+                          (gain-bad-publicity state :corp eid 1))}
+            {:event :counter-added
+             :req (req (and (same-card? card target)
+                            (not (pos? (get-counters card :power)))
+                            (:borehole-valid (:special card))))
+             :msg "win the game"
+             :effect (req (win state :corp "Superdeep Borehole extinction event"))}]})
+
 (defcard "Sundew"
   ; If this a run event then handle in :begin-run as we do not know the server
   ; being run on in :runner-spent-click.
@@ -2505,6 +2613,35 @@
                 :msg (msg (corp-install-msg target))
                 :effect (effect (corp-install eid target nil {:ignore-all-cost true}))}]})
 
+(defcard "Vera Ivanovna Shuyskaya"
+  (let [select-and-trash {:async true
+                          :prompt "Choose a card to trash"
+                          :choices (req (cancellable (:hand runner) :sorted))
+                          :msg (msg "trash " (:title target) " from the grip")
+                          :effect (effect (trash eid target {:cause-card card}))}
+        ability {:interactive (req true)
+                 :optional {:prompt "Reveal the grip and trash a card?"
+                            :player :corp
+                            :autoresolve (get-autoresolve :auto-fire)
+                            :yes-ability
+                            {:async true
+                             :effect (req (wait-for (reveal state side (:hand runner))
+                                                    (system-msg state :corp (str "reveal "
+                                                                (quantify (count (:hand runner)) "card")
+                                                                " from grip: "
+                                                                (enumerate-str (map :title (:hand runner)))))
+                                                    (continue-ability state side select-and-trash card nil)))}
+                            :no-ability {:effect (effect (system-msg "declines to use Vera Ivanovna Shuyskaya"))}}}]
+    {:events [{:event :agenda-scored
+               :interactive (req true)
+               :async true
+               :effect (effect (continue-ability ability card nil))}
+              {:event :agenda-stolen
+               :interactive (req true)
+               :async true
+               :effect (effect (continue-ability ability card nil))}]
+     :abilities [(set-autoresolve :auto-fire "Vera Ivanovna Shuyskaya")]}))
+
 (defcard "Victoria Jenkins"
   {:on-rez {:effect (req (lose state :runner :click-per-turn 1))}
    :leave-play (req (gain state :runner :click-per-turn 1))