Merge pull request #8104 from NBKelly/transfer-of-wealth-enforces-server

transfer-of-wealth and illumination enforce server

Author: NBKelly

src/clj/game/cards/events.clj

@@ -1830,7 +1830,8 @@
      :events [(assoc (install-fn 3)
                      :event :successful-run
                      :interactive (req true)
-                     :req (req this-card-run))]}))
+                     :req (req (and this-card-run
+                                    (= :rd (target-server context)))))]}))
 
 (defcard "Immolation Script"
   {:makes-run true
@@ -4023,7 +4024,8 @@
    :events [{:event :successful-run
              :interactive (req true)
              :automatic :drain-credits
-             :req (req this-card-run)
+             :req (req (and this-card-run
+                            (= :hq (target-server context))))
              :msg "take 1 tag"
              :async true
              :effect (req (wait-for (gain-tags state :runner 1)

test/clj/game/cards/events_test.clj

@@ -7490,6 +7490,23 @@
         "Siphoned bigly")
     (click-prompt state :runner "No action")))
 
+(deftest transfer-of-wealth-vs-redirect
+  (do-game
+    (new-game {:runner {:hand ["Transfer of Wealth"]}
+               :corp {:hand ["Proprionegation"]}})
+    (play-and-score state "Proprionegation")
+    (take-credits state :corp)
+    (play-from-hand state :runner "Transfer of Wealth")
+    (card-ability state :corp (get-scored state :corp 0) 0)
+    (run-continue state)
+    (is (changed? [(:credit (get-corp)) 0
+                   (:credit (get-runner)) 0
+                   (count-tags state) 0
+                   (:click (get-runner)) 0]
+          (run-continue-until state :success))
+        "Not siphoned")
+    (is (no-prompt? state :runner))))
+
 (deftest trade-in
   ;; Trade-in - trash an installed Hardware, gain credits equal to half of install cost,
   ;;            search stack for Hardware and add to grip