       (aset input "value" "")
       (.focus input))))
 
-(defn action-list [{:keys [type zone rezzed advanceable advance-counter advancementcost] :as card}]
+(defn action-list [{:keys [type zone rezzed advanceable advance-counter advancementcost current-cost] :as card}]
   (-> []
-      (#(if (and (= type "Agenda") (>= advance-counter advancementcost))
+      (#(if (and (= type "Agenda") (>= advance-counter current-cost))
           (cons "score" %) %))
       (#(if (or (and (= type "Agenda") (= (first zone) "servers"))
                 (= advanceable "always")

        side (if (#{"HQ" "R&D" "Archives"} server) "Corp" "Runner")]
    (send-command "move" {:card card :server server})))

(defn card-view [{:keys [zone code type abilities counter advance-counter advancementcost subtype
                         advanceable rezzed strength current-strength title remotes selected hosted]
                  :as cursor}
                 owner {:keys [flipped] :as opts}]

              abilities)]))
        (when (= (first zone) "servers")
          (cond
            (and (= type "Agenda") (>= advance-counter (or current-cost advancementcost)))
            [:div.blue-shade.panel.menu.abilities {:ref "agenda"}
             [:div {:on-click #(send-command "advance" {:card @cursor})} "Advance"]
             [:div {:on-click #(send-command "score" {:card @cursor})} "Score"]]
