async fixes

Author: NBKelly

src/clj/game/core/commands.clj

@@ -324,6 +324,7 @@
                                (or (installed? target)
                                    (in-hand? target))))}
       :msg (msg "score " (card-str state target {:visible true}) ", ignoring all restrictions")
+      :async true
       :effect (effect (score eid target {:no-req true :ignore-turn true}))}
      (make-card {:title "the '/score' command"}) nil)))
 
@@ -408,6 +409,7 @@
       state side
       {:prompt "Choose a card to trash"
        :choices {:card #(f %)}
+       :async true
        :effect (effect (trash eid target {:unpreventable true}))}
       nil nil)))
 

src/clj/game/core/costs.clj

@@ -1000,6 +1000,7 @@
      :choices {:card #(and (agenda? %)
                            (is-scored? state side %)
                            (pos? (get-counters % :agenda)))}
+     :async true
      :effect (req (let [title (:title target)
                         target (update! state side (update-in target [:counter :agenda] - (value cost)))]
                     (wait-for (trigger-event-sync state side :agenda-counter-spent target)

src/clj/game/core/pick_counters.clj

@@ -111,8 +111,8 @@
                            pay-function (if (= :custom pay-credits-type)
                                           (-> target card-def :interactions :pay-credits :custom)
                                           (take-counters-of-type pay-credits-type))
-                           custom-ability {:async true
-                                           :effect pay-function}
+                           custom-ability ^:ignore-async-check  {:async true
+                                                                 :effect pay-function}
                            neweid (make-eid state outereid)
                            providing-card target]
                        (wait-for (resolve-ability state side neweid custom-ability providing-card [card])
@@ -169,8 +169,8 @@
      (if (or (not (pos? target-count))        ; there is a limit
              (<= target-count counter-count)  ; paid everything
              (zero? (count provider-cards)))  ; no more additional credit sources found
-         {:async true
-          :effect pay-rest}
+       {:async true
+        :effect pay-rest}
          {:async true
           :prompt (str "Choose a credit providing card ("
                       counter-count (when (and target-count (pos? target-count))
@@ -185,8 +185,8 @@
                              pay-function (if (= :custom pay-credits-type)
                                             (-> target card-def :interactions :pay-credits :custom)
                                             (take-counters-of-type pay-credits-type))
-                             custom-ability {:async true
-                                             :effect pay-function}
+                             custom-ability ^:ignore-async-check {:async true
+                                                                  :effect pay-function}
                              neweid (make-eid state outereid)
                              providing-card target]
                          (wait-for (resolve-ability state side neweid custom-ability providing-card [card])

src/clj/game/core/prompts.clj

@@ -28,15 +28,15 @@
     {:keys [waiting-prompt prompt-type show-discard cancel-effect end-effect targets]}]
    (let [prompt (if (string? message) message (message state side eid card targets))
          choices (choice-parser choices)
-         newitem {:eid eid
-                  :msg prompt
-                  :choices choices
-                  :effect f
-                  :card card
-                  :prompt-type (or prompt-type :other)
-                  :show-discard show-discard
-                  :cancel-effect cancel-effect
-                  :end-effect end-effect}]
+         newitem ^:ignore-async-check {:eid eid
+                                       :msg prompt
+                                       :choices choices
+                                       :effect f
+                                       :card card
+                                       :prompt-type (or prompt-type :other)
+                                       :show-discard show-discard
+                                       :cancel-effect cancel-effect
+                                       :end-effect end-effect}]
      (when (or (#{:waiting :run} prompt-type)
                (:number choices)
                (:card-title choices)

src/clj/game/core/runs.clj

@@ -593,6 +593,7 @@
         state :runner
         {:prompt "Choose a breach replacement ability"
          :choices (if mandatory titles (conj titles (str "Breach " (zone->name (:server (:run @state))))))
+         :async true
          :effect (req (let [chosen (some #(when (= target (get-in % [:card :title])) %) handlers)
                             ability (:ability chosen)
                             card (:card chosen)]
@@ -630,6 +631,7 @@
             state :runner eid
             {:prompt (str "You are prevented from breaching " (zone->name server) " this run.")
              :choices ["OK"]
+             :async true
              :effect (effect (system-msg :runner (str "is prevented from breaching " (zone->name server) " this run."))
                              (handle-end-run eid))}
             nil nil)

src/clj/game/core/sabotage.clj

@@ -42,6 +42,7 @@
 (defn sabotage-ability
   [n]
   (let [choosing-ab (fn [forced-hq]
+                      ^:ignore-async-check
                       {:waiting-prompt true
                        :player :corp
                        :prompt (choosing-prompt-req n)

src/clj/game/core/turns.clj

@@ -117,6 +117,7 @@
              :choices {:card in-hand?
                        :max (- cur-hand-size (max (hand-size state side) 0))
                        :all true}
+             :async true
              :effect (req (system-msg state side
                                       (str "discards "
                                            (if (= :runner side)