Mid implementation

mtgred · Jun 15, 2019 · aa60776 · aa60776
1 parent aa512d7
commit aa60776
Show file tree

Hide file tree

Showing 6 changed files with 516 additions and 165 deletions.
diff --git a/src/clj/game/cards/agendas.clj b/src/clj/game/cards/agendas.clj
@@ -1026,8 +1026,23 @@
  "Project Kusanagi"
  {:silent (req true)
  :effect (effect (add-counter card :agenda (- (get-counters card :advancement) 2)))
- :abilities [{:counter-cost [:agenda 1]
- :msg "make a piece of ICE gain \"[Subroutine] Do 1 net damage\" after all its other subroutines for the remainder of the run"}]}
+ :events {:run-ends
+ {:effect (req (let [cid (:cid card)
+ ices (get-in card [:special :kusanagi])]
+ (doseq [i ices]
+ (when-let [ice (get-card state i)]
+ (remove-sub! state side ice #(= cid (:from-cid %))))))
+ (update! state side (dissoc-in card [:special :kusanagi])))}}
+ :abilities [{:req (req (and (ice? current-ice)
+ (rezzed? current-ice)
+ (has-subtype? current-ice "Bioroid")))
+ :counter-cost [:agenda 1]
+ :msg (str "make a piece of ICE gain \"[Subroutine] Do 1 net damage\" "
+ "after all its other subroutines for the remainder of the run")
+ :effect (effect (add-extra-sub! (get-card state current-ice)
+ (do-net-damage 1)
+ (:cid card) {:back true})
+ (update! (update-in card [:special :kusanagi] #(conj % current-ice))))}]}
 
  "Project Vitruvius"
  {:silent (req true)
@@ -1047,12 +1062,26 @@
  "Project Wotan"
  {:silent (req true)
  :effect (effect (add-counter card :agenda 3))
+ :events {:run-ends
+ {:effect (req (let [cid (:cid card)
+ ices (get-in card [:special :wotan])]
+ (doseq [i ices]
+ (when-let [ice (get-card state i)]
+ (remove-sub! state side ice #(= cid (:from-cid %))))))
+ (update! state side (dissoc-in card [:special :wotan])))}}
  :abilities [{:req (req (and (ice? current-ice)
  (rezzed? current-ice)
  (has-subtype? current-ice "Bioroid")))
  :counter-cost [:agenda 1]
  :msg (str "make the approached piece of Bioroid ICE gain \"[Subroutine] End the run\""
- "after all its other subroutines for the remainder of this run")}]}
+ "after all its other subroutines for the remainder of this run")
+ :effect (effect (add-extra-sub! (get-card state current-ice)
+ {:label "End the run"
+ :msg "end the run"
+ :async true
+ :effect (effect (end-run eid card))}
+ (:cid card) {:back true})
+ (update! (update-in card [:special :wotan] #(conj % current-ice))))}]}
 
  "Project Yagi-Uda"
  (letfn [(put-back-counter [state side card]