update some cards to use contexts

Author: NBKelly

src/clj/game/cards/assets.clj

@@ -1982,7 +1982,7 @@
                    :effect (effect (draw :corp eid 1))}}}]
     {:events [(-> ability
                   (assoc :event :runner-lose-tag)
-                  (assoc-in [:optional :req] (req (= side :runner))))
+                  (assoc-in [:optional :req] (req (= (:side context) :runner))))
               (-> ability
                   (assoc :event :runner-prevent)
                   (assoc-in [:optional :req] (req (= :tag (:type context)))))]

src/clj/game/cards/ice.clj

@@ -1608,13 +1608,15 @@
                                      state side card
                                      [{:event :corp-reveal
                                        :duration :end-of-encounter
-                                       :req (req (and
+                                       :req (req
+                                              (and
                                                    ; all revealed cards are in grip
-                                                   (every? in-hand? targets)
+                                                   (every? in-hand? (:cards context))
                                                    ; entire grip was revealed
-                                                   (= (count targets) (count (:hand runner)))
+                                                   (= (count (:cards context))
+                                                      (count (:hand runner)))
                                                    ; there are cards with the named card type
-                                                   (some #(is-type? % cardtype) targets)))
+                                                   (some #(is-type? % cardtype) (:cards context))))
                                        :async true
                                        :effect (req (continue-ability
                                                       state side

src/clj/game/cards/identities.clj

@@ -931,9 +931,9 @@
 
 (defcard "Hyoubu Institute: Absolute Clarity"
   {:events [{:event :corp-reveal
-             :req (req (and
-                         (pos? (count targets))
-                         (first-event? state side :corp-reveal #(pos? (count %)))))
+             :req (req (letfn [(valid-ctx? [[{:keys [cards] :as ctx}]] (pos? (count cards)))]
+                         (and (valid-ctx? [context])
+                              (first-event? state side :corp-reveal valid-ctx?))))
              :msg "gain 1 [Credits]"
              :async true
              :effect (effect (gain-credits eid 1))}]

src/clj/game/cards/resources.clj

@@ -3774,7 +3774,8 @@
                                                                                                 " to " (decapitalize target))))
                                :else (effect-completed state side eid)))}
    :events [{:event :runner-lose-tag
-             :req (req (= :runner (:side context)))
+             :req (req
+                    (= :runner (:side context)))
              :player :runner
              :msg "gain 1 [Credits]"
              :async true