            :msg (msg "make the Runner lose 1 [Credits] by rezzing an advertisement")}}}
 
    "Strategic Innovations: Future Forward"
-   {:effect draft-points-target
-    :events {:runner-turn-ends
+   {:events {:pre-start-game {:effect draft-points-target}
+             :runner-turn-ends
              {:req (req (let [facs (frequencies (map :faction (filter :rezzed (all-installed state :corp))))
                               hb (get facs "Haas-Bioroid" 0)
                               ji (get facs "Jinteki" 0)
                               nb (get facs "NBN" 0)
                               we (get facs "Weyland Consortium" 0)]
-                          (and (> hb ji) (> hb nb) (> hb we) (pos? (count (:discard corp))))))
+                          (and (not (:disabled card))
+                               (> hb ji) (> hb nb) (> hb we) (pos? (count (:discard corp))))))
               :prompt "Choose a card in Archives to shuffle into R&D"
               :choices {:req #(and (card-is? % :side :corp) (= (:zone %) [:discard]))}
               :player :corp :show-discard true :priority true

                       :msg (msg "shuffle " (:title (last (:discard runner))) " into their Stack")
                       :effect (effect (move :runner (last (:discard runner)) :deck)
                                       (shuffle! :runner :deck))}]
              {:runner-trash wyv})}})

                       :prompt "Choose a piece of ICE to place 1 advancement token on it" :player :corp
                       :choices {:req #(and (installed? %) (ice? %))}
                       :effect (req (add-prop state :corp target :advance-counter 1 {:placed true}))}]
              {:runner-turn-begins fap
               :pre-start-game {:effect draft-points-target})}

   "Gabriel Santiago: Consummate Professional"
   {:events {:successful-run {:msg "gain 2 [Credits]" :once :per-turn
                              :effect (effect (gain :credit 2)) :req (req (= target :hq))}}}

   "Gagarin Deep Space: Expanding the Horizon"
   {:flags {:slow-remote-access (req (not (:disabled card)))}
    :events {:pre-access-card {:req (req (is-remote? (second (:zone target))))
                               :effect (effect (access-cost-bonus [:credit 1]))
                               :msg "make the Runner spend 1 [Credits] to access"}}}

   "GRNDL: Power Unleashed"
   {:events {:pre-start-game {:req (req (= :corp side))
                              :effect (req (gain state :corp :credit 5)
                                           (when (= 0 (:bad-publicity corp))
                                             (gain state :corp :bad-publicity 1)))}}}

   "Haarpsichord Studios: Entertainment Unleashed"
   (let [haarp (fn [state side card]
                 (if (is-type? card "Agenda")
                   ((constantly false)
                     (toast state :runner "Cannot steal due to Haarpsichord Studios." "warning"))
                   true))]
   {:events {:agenda-stolen
             {:effect (effect (register-turn-flag! card :can-steal haarp))}}
    :effect (req (when-not (first-event state side :agenda-stolen)
                   (register-turn-flag! state side card :can-steal haarp)))
    :leave-play (effect (clear-turn-flag! card :can-steal))})

   "Haas-Bioroid: Engineering the Future"
   {:events {:corp-install {:once :per-turn :msg "gain 1 [Credits]"
