   (:require-macros [game.macros :refer [effect req msg]])
   (:require [game.core :refer [pay gain lose draw move damage shuffle-into-deck trash purge add-prop
                                set-prop resolve-ability system-msg end-run unregister-event mill run
-                               gain-agenda-point pump access-bonus shuffle! runner-install
+                               gain-agenda-point pump access-bonus shuffle! runner-install prompt!
                                play-instant] :as core]
             [clojure.string :refer [join]]
             [game.utils :refer [has?]]))

   {:effect (effect (gain :runner :max-hand-size 1))
    :leave-play (effect (lose :runner :max-hand-size 1))
    :events {:corp-turn-begins {:msg "gain 1 [Credits]" :effect (effect (gain :credit 1))}}}

   "NAPD Contract"
   {:steal-cost [:credit 4]}

    [{:cost [:click 1] :msg "make run on HQ"
      :effect (effect (run :hq {:replace-access
                                {:msg (msg "reveal all cards in HQ: " (map :title (:hand corp)))}}))}]}

   "Express Delivery"
   {:prompt "Choose a card to add to your Grip" :choices (req (take 4 (:deck runner)))
    :effect (effect (move target :hand) (shuffle! :deck))}

   "Fast Track"
   {:prompt "Choose an Agenda" :choices (req (filter #(has? % :type "Agenda") (:deck corp)))
