                                     (+ c (count (filter (fn [ice] (and (has? ice :subtype "Code Gate")
                                                                       (:rezzed ice))) (:ices server)))))
                                   0 (flatten (seq (:servers corp))))))}
+
+   "Enhanced Vision"
+   {:events {:successful-run {:msg (msg "force the Corp to reveal " (:title (first (shuffle (:hand corp)))))
+                              :once :per-turn}}}
 
    "Eve Campaign"
    {:data {:counter 16}

   {:msg (msg "draw " (- (:max-hand-size runner) (count (:hand runner))) " cards")
    :effect (effect (draw (- (:max-hand-size runner) (count (:hand runner)))))}

   "Geothermal Fracking"
   {:data {:counter 2}
    :abilities [{:cost [:click 1] :counter-cost 1 :msg "gain 7 [Credits] and take 1 bad publicity"


   "Invasion of Privacy"
   {:trace {:base 2 :msg (msg "reveal the Runner's Grip")
            :effect (req (doseq [c (:hand runner)]
                           (move state side c :play-area)))
            :unsuccessful {:msg "take 1 bad publicity" :effect (effect (gain :corp :bad-publicity 1))}}}

   "Isabel McGuire"
