From 90815ace59d635e27e6d10d507dce17bb2bad237 Mon Sep 17 00:00:00 2001
From: Paul Chote <pchote@users.noreply.github.com>
Date: Tue, 28 Apr 2020 16:51:21 +0100
Subject: [PATCH] Add a decoration glyph for friendly units in tunnels.

---
 mods/ts/bits/typeglyphs.shp        | Bin 0 -> 1031 bytes
 mods/ts/rules/defaults.yaml        |  14 ++++++++++++++
 mods/ts/rules/nod-vehicles.yaml    |   4 ++++
 mods/ts/rules/shared-vehicles.yaml |   2 ++
 mods/ts/sequences/misc.yaml        |  11 +++++++++++
 5 files changed, 31 insertions(+)
 create mode 100644 mods/ts/bits/typeglyphs.shp

diff --git a/mods/ts/bits/typeglyphs.shp b/mods/ts/bits/typeglyphs.shp
new file mode 100644
index 0000000000000000000000000000000000000000..b16d524eb1117dc65d32f681bc288f19997d5984
GIT binary patch
literal 1031
zcma)5%TB{U4D><^rBpS=5_{!ifGd9k*EFRCRXl|F91h(1s1-BzCZQ4%t<tO?<JWjI
z7XB{e%+DK<hQdcZzf<U+2XWpW#(6w)c>gN*B4s4HOa+OS3fWpsMfXz>Q={)txJ*S>
zis*BZwVFX%^wKGyW6_O-10rgo8`K<&ZItFJCbZ|BJZW;YE6?h7V_rAByB8YaVLcLi
zt1)2&aw7JsiT-~~h#XL?foxHu3+*bS6%?!)JIcUf8;xxO&$*WDw9ZIgp^ycn_H%`v
znsPGG_P{}aO5~Er){F<Zn)G>6s;Lp^7&mB{_he%)FTtn}jlvO)iNI-)${x@j=y@a*
z(;ycu^SA=hw{kb01Z^U?gN7Hu$X8by`EY@@K>ey4Gnq(>1><5h<r;l2M7Ivg*({e?
zt)m$iF-nHGW-0~T{*t~}T`gP2Yj|MHIcv6^hly12A0EH1SM2F>SVFzKJ0AqN1vTK0
oTby;wQNg0%nT985#xV2*A(c*UT(Q?cR5%tm#O|-4f%^3{KX>21cK`qY

literal 0
HcmV?d00001

diff --git a/mods/ts/rules/defaults.yaml b/mods/ts/rules/defaults.yaml
index 28490e78fe..40d5fbee5a 100644
--- a/mods/ts/rules/defaults.yaml
+++ b/mods/ts/rules/defaults.yaml
@@ -625,6 +625,13 @@
 		Categories: Infantry
 	GrantConditionOnTunnelLayer:
 		Condition: inside-tunnel
+	WithDecoration@UNDERGROUND:
+		RequiresCondition: inside-tunnel
+		Position: Center
+		Image: typeglyphs
+		Sequence: infantry
+		Palette: player
+		IsPlayerPalette: true
 
 ^RegularInfantryDeath:
 	WithDeathAnimation@normal:
@@ -820,6 +827,13 @@
 		Categories: Vehicle
 	GrantConditionOnTunnelLayer:
 		Condition: inside-tunnel
+	WithDecoration@UNDERGROUND:
+		RequiresCondition: inside-tunnel
+		Position: Center
+		Image: typeglyphs
+		Sequence: vehicle
+		Palette: player
+		IsPlayerPalette: true
 
 ^Tank:
 	Inherits: ^Vehicle
diff --git a/mods/ts/rules/nod-vehicles.yaml b/mods/ts/rules/nod-vehicles.yaml
index f4079ad8dd..ed13b8e4bc 100644
--- a/mods/ts/rules/nod-vehicles.yaml
+++ b/mods/ts/rules/nod-vehicles.yaml
@@ -439,6 +439,8 @@ SAPC:
 		SubterraneanTransitionSound: subdril1.aud
 	Carryable:
 		RequiresCondition: !submerged
+	WithDecoration@UNDERGROUND:
+		RequiresCondition: inside-tunnel || submerged
 
 SUBTANK:
 	Inherits: ^Tank
@@ -487,6 +489,8 @@ SUBTANK:
 		SubterraneanTransitionSound: subdril1.aud
 	Carryable:
 		RequiresCondition: !submerged
+	WithDecoration@UNDERGROUND:
+		RequiresCondition: inside-tunnel || submerged
 
 STNK:
 	Inherits: ^Tank
diff --git a/mods/ts/rules/shared-vehicles.yaml b/mods/ts/rules/shared-vehicles.yaml
index d66e6a658c..d6cd4c5b45 100644
--- a/mods/ts/rules/shared-vehicles.yaml
+++ b/mods/ts/rules/shared-vehicles.yaml
@@ -107,6 +107,8 @@ HARV:
 		ResourceSequences:
 			Tiberium: pip-green
 			BlueTiberium: pip-blue
+	WithDecoration@UNDERGROUND:
+		Sequence: harvester
 
 LPST:
 	Inherits: ^Tank
diff --git a/mods/ts/sequences/misc.yaml b/mods/ts/sequences/misc.yaml
index b2c62b59f8..6a36ce28b0 100644
--- a/mods/ts/sequences/misc.yaml
+++ b/mods/ts/sequences/misc.yaml
@@ -644,3 +644,14 @@ dig:
 		Length: *
 		ZOffset: 511
 		Offset: 0, 0, 24
+
+typeglyphs:
+	infantry:
+	vehicle:
+		Start: 1
+	helicopter:
+		Start: 2
+	harvester:
+		Start: 3
+	structure:
+		Start: 4