diff --git a/src/clj/game/cards/programs.clj b/src/clj/game/cards/programs.clj index 750bb34072..52aea17711 100644 --- a/src/clj/game/cards/programs.clj +++ b/src/clj/game/cards/programs.clj @@ -13,7 +13,7 @@ [game.core.cost-fns :refer [install-cost rez-cost]] [game.core.costs :refer [total-available-credits]] [game.core.damage :refer [damage damage-prevent]] - [game.core.def-helpers :refer [breach-access-bonus defcard offer-jack-out trash-on-empty get-x-fn rfg-on-empty]] + [game.core.def-helpers :refer [breach-access-bonus choose-one-helper defcard offer-jack-out trash-on-empty get-x-fn rfg-on-empty]] [game.core.drawing :refer [draw]] [game.core.effects :refer [any-effects is-disabled-reg? register-lingering-effect unregister-effects-for-card update-disabled-cards]] [game.core.eid :refer [effect-completed make-eid]] @@ -1498,18 +1498,28 @@ (strength-pump 2 3)]})) (defcard "God of War" - (auto-icebreaker {:flags {:runner-phase-12 (req true)} - :abilities [(break-sub [(->c :virus 1)] 1) - (strength-pump 2 1) - {:label "Take 1 tag to place 2 virus counters (start of turn)" - :once :per-turn - :effect (req (wait-for (gain-tags state :runner 1) - (if (not (get-in @state [:tag :tag-prevent])) - (do (add-counter state side card :virus 2) - (system-msg state side - (str "takes 1 tag to place 2 virus counters on God of War")) - (effect-completed state side eid)) - (effect-completed state side eid))))}]})) + (auto-icebreaker + (let [abi {:label "Take 1 tag to place 2 virus counters (start of turn)" + :once :per-turn + :effect (req (wait-for (gain-tags state :runner 1) + (if (not (get-in @state [:tag :tag-prevent])) + (do (add-counter state side card :virus 2) + (system-msg state side + (str "takes 1 tag to place 2 virus counters on God of War")) + (effect-completed state side eid)) + (effect-completed state side eid))))}] + {:flags {:runner-phase-12 (req true)} + :events [(choose-one-helper + {:event :runner-turn-begins + :interactive (req true) + :prompt "Take 1 tag: Place 2 virus counters on God of War" + :req (req (not-used-once? state {:once :per-turn} card))} + [{:option "Yes" + :ability abi} + {:option "No"}])] + :abilities [(break-sub [(->c :virus 1)] 1) + (strength-pump 2 1) + abi]}))) (defcard "Golden" (return-and-derez (break-sub 2 2 "Sentry")