 
 (defn derez [state side {:keys [card]}]
   (system-msg state side (str "derez " (:title card)))
-  (update! state side (dissoc card :rezzed))
-  (desactivate state side card))
+  (update! state side (desactivate state side card)))
 
 (defn advance [state side {:keys [card]}]
   (when (pay state side :click 1 :credit 1)

    (swap! state update-in [side (first r)] #(+ % (last r)))))

(defn desactivate [state side card]
  (let [c (dissoc card :counter :advance-counter :current-strength :abilities)
        cdef (card-def card)]
    (when-let [leave-effect (:leave-play (card-def card))]
      (leave-effect state side card nil))


(defn forfeit [state side {:keys [card]}]
  (system-msg state side (str "forfeits " (:title card)))
  (move state side (desactivate state side card) :rfg)
  (gain state side :agenda-point (- (:agendapoints card))))

(defn move-card [state side {:keys [card server]}]
