From c33df0735147bf6e22f3ddea89006b02513a4a3b Mon Sep 17 00:00:00 2001
From: Tor Andersson <tor@ccxvii.net>
Date: Mon, 17 Jan 2022 00:47:53 +0100
Subject: Intrigues against Shirley.

---
 rules.js | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/rules.js b/rules.js
index d8cedb0..2d95b25 100644
--- a/rules.js
+++ b/rules.js
@@ -364,6 +364,7 @@ const JOHNSON = find_leader("Johnson");
 const MONTCALM = find_leader("Montcalm");
 const LEVIS = find_leader("Lévis");
 const BOUGAINVILLE = find_leader("Bougainville");
+const SHIRLEY = find_leader("Shirley");
 
 const HALIFAX = find_space("Halifax");
 const LOUISBOURG = find_space("Louisbourg");
@@ -5014,7 +5015,27 @@ events.royal_americans = TODO;
 events.acadians_expelled = TODO;
 events.william_pitt = TODO;
 events.diplomatic_revolution = TODO;
-events.intrigues_against_shirley = TODO;
+
+events.intrigues_against_shirley = {
+	can_play() {
+		return game.tracks.vp >= 1 && is_piece_on_map(SHIRLEY) && is_piece_unbesieged(SHIRLEY);
+	},
+	play() {
+		game.state = 'intrigues_against_shirley';
+	}
+}
+
+states.intrigues_against_shirley = {
+	prompt() {
+		view.prompt = "Eliminate Shirley.";
+		gen_action_piece(SHIRLEY);
+	},
+	piece(p) {
+		isolate_piece_from_force(SHIRLEY);
+		eliminate_piece(SHIRLEY);
+		end_action_phase();
+	},
+}
 
 // SETUP
 
-- 
cgit v1.2.3