Merge pull request #8011 from NBKelly/malia-vs-cupellation

hosting cards out of play calls leave-play fns

Author: NoahTheDuke

src/clj/game/core/hosting.clj

@@ -1,6 +1,6 @@
 (ns game.core.hosting
   (:require
-    [game.core.card :refer [assoc-host-zones corp? get-card program? rezzed? runner?]]
+    [game.core.card :refer [active? assoc-host-zones corp? get-card program? installed? rezzed? runner?]]
     [game.core.card-defs :refer [card-def]]
     [game.core.effects :refer [register-static-abilities unregister-static-abilities]]
     [game.core.eid :refer [make-eid]]
@@ -23,11 +23,21 @@
   [card target]
   (when (and card target) (or (same-card? card target) (has-ancestor? (:host card) target))))
 
+(defn handle-card-is-uninstalled
+  "If a card is hosted (uninstalled) from being installed and active, then call it's `leave-play` fn"
+  [state side card {:keys [installed] :as target}]
+  (when-let [leave-play (:leave-play (card-def target))]
+    (when (and (not installed)
+               (installed? (get-card state target))
+               (active? (get-card state target)))
+      (leave-play state (keyword (clojure.string/lower-case (:side target))) (make-eid state) target nil))))
+
 (defn host
   "Host the target onto the card."
   ([state side card target] (host state side card target nil))
   ([state side card {:keys [zone cid host installed] :as target} {:keys [facedown no-mu]}]
    (when (not= cid (:cid card))
+     (handle-card-is-uninstalled state side card target)
      (unregister-events state side target)
      (unregister-static-abilities state side target)
      (doseq [s [:runner :corp]]

test/clj/game/cards/assets_test.clj

@@ -3277,6 +3277,21 @@
         (click-prompt state :corp "8")
         (is (= (+ credits 8) (:credit (get-corp))) "Corp should gain 8 credits from Long-Term Investment ability")))))
 
+(deftest malia-icon-goes-away-with-cupellation
+  (do-game
+    (new-game {:corp {:hand ["Malia Z0L0K4"]}
+               :runner {:hand ["Daily Casts" "Cupellation"]}})
+    (play-from-hand state :corp "Malia Z0L0K4" "New remote")
+    (take-credits state :corp)
+    (play-from-hand state :runner "Daily Casts")
+    (rez state :corp (get-content state :remote1 0))
+    (click-card state :corp "Daily Casts")
+    (is (:icon (refresh (get-resource state 0))) "Daily Cast has an icon")
+    (play-from-hand state :runner "Cupellation")
+    (run-empty-server state :remote1)
+    (click-prompt state :runner "[Cupellation] 1 [Credits]: Host card")
+    (is (not (:icon (refresh (get-resource state 0)))) "Daily Cast does not have an icon anymore")))
+
 (deftest malia-z0l0k4
   ;; Malia Z0L0K4 - blank an installed non-virtual runner resource
   (do-game