queue GOW at start of turn

mtgred · Nov 29, 2024 · 6fdb058 · 6fdb058
1 parent d9dfc0b
commit 6fdb058
Showing 1 changed file with 23 additions and 13 deletions.
diff --git 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")