From df8a83b155abb4e1faa21430bc0b22655c2d1bce Mon Sep 17 00:00:00 2001
From: Tor Andersson <tor@ccxvii.net>
Date: Sat, 20 Apr 2024 17:36:58 +0200
Subject: Forbid intercept when moving to locale with another friendly lord.

---
 rules.ts | 13 ++++++++++++-
 1 file changed, 12 insertions(+), 1 deletion(-)

diff --git a/rules.ts b/rules.ts
index 31cbf7d..9f73421 100644
--- a/rules.ts
+++ b/rules.ts
@@ -4786,8 +4786,19 @@ states.march_confirm_intercept = {
 
 // === 4.3.4 INTERCEPT ===
 
+function has_unmoving_friendly_lord(here) {
+	for (let lord of all_friendly_lords()) {
+		if (get_lord_locale(lord) === here)
+			if (!set_has(game.group, lord))
+				return true
+	}
+	return false
+}
+
 function can_intercept_to(to: Locale) {
-	// TODO: forbid lancaster intercept into york moving to york, and vice versa
+	// forbid lancaster intercept into york moving to york, and vice versa
+	if (has_unmoving_friendly_lord(to))
+		return false
 	if (is_truce_in_effect())
 		return false
 	if (is_wales_forbidden_to_enemy(to))
-- 
cgit v1.2.3