From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 14 Jun 2015 09:34:48 +0000 (+0200)
Subject: sc: indicate buildings by size "B"
X-Git-Tag: v1.8~157
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/75b9efa8a00eadba5aa4d4f3cc6c659050ccbf78

sc: indicate buildings by size "B"
---

diff --git a/sc-units-hots.inc.pl b/sc-units-hots.inc.pl
index 022b69c..8ce7d2c 100644
--- a/sc-units-hots.inc.pl
+++ b/sc-units-hots.inc.pl
@@ -40,7 +40,6 @@ use strict;
 	race => 'protoss',
 	cat => 'base',
 	name => 'Photon Cannon',
-	unit => 0,
 	min => 150,
 	gas => 0,
 	build => 40,
@@ -50,8 +49,8 @@ use strict;
 	shield => 150,
 	attr => {
 		armored => 1,
+		structure => 1,
 	},
-	structure => 1,
 	attack => {
 		ground => {
 			damage => 20,
@@ -132,7 +131,6 @@ use strict;
 	race => 'protoss',
 	cat => 'base',
 	name => 'Nexus',
-	unit => 0,
 	min => 400,
 	gas => 0,
 	build => 100,
@@ -143,8 +141,8 @@ use strict;
 	shield => 1000,
 	attr => {
 		armored => 1,
+		structure => 1,
 	},
-	structure => 1,
 	attack => {
 		ground => {
 			damage => 20,
@@ -710,7 +708,6 @@ use strict;
 	race => 'terran',
 	cat => 'base',
 	name => 'Missile Turret',
-	unit => 0,
 	min => 100,
 	gas => 0,
 	build => 25,
@@ -721,8 +718,8 @@ use strict;
 	attr => {
 		armored => 1,
 		mech => 1,
+		structure => 1,
 	},
-	structure => 1,
 	attack => {
 		air => {
 			damage => 12,
@@ -748,7 +745,7 @@ use strict;
 	cat => 'base',
 	name => 'Planetary Fortress',
 	base => ['Command Center'],
-	unit => 0,
+	unit => -11,
 	min => 150,
 	gas => 150,
 	build => 50,
@@ -759,8 +756,8 @@ use strict;
 	attr => {
 		armored => 1,
 		mech => 1,
+		structure => 1,
 	},
-	structure => 1,
 	attack => {
 		ground => {
 			damage => 40,
@@ -1256,8 +1253,8 @@ use strict;
 			attr => {
 				armored => 1,
 				mech => 1,
+				structure => 1,
 			},
-			structure => 1,
 			attack => {
 				ground => {
 					damage => 8,
@@ -1286,8 +1283,8 @@ use strict;
 			attr => {
 				light => 1,
 				mech => 1,
+				structure => 1,
 			},
-			structure => 1,
 			cooldown => 0,
 			attack => {
 				range => 8,
@@ -1501,7 +1498,6 @@ use strict;
 	race => 'zerg',
 	cat => 'creep',
 	name => 'Spine Crawler',
-	unit => 0,
 	min => 100,
 	gas => 0,
 	build => 50,
@@ -1512,8 +1508,8 @@ use strict;
 	attr => {
 		armored => 1,
 		organic => 1,
+		structure => 1,
 	},
-	structure => 1,
 	attack => {
 		ground => {
 			damage => 25,
@@ -1532,7 +1528,6 @@ use strict;
 	race => 'zerg',
 	cat => 'creep',
 	name => 'Spore Crawler',
-	unit => 0,
 	min => 75,
 	gas => 0,
 	build => 30,
@@ -1543,8 +1538,8 @@ use strict;
 	attr => {
 		armored => 1,
 		organic => 1,
+		structure => 1,
 	},
-	structure => 1,
 	attack => {
 		air => {
 			damage => 15,
@@ -1764,7 +1759,6 @@ use strict;
 	race => 'zerg',
 	cat => 'lair',
 	name => 'Nydus Worm',
-	unit => 0,
 	min => 100,
 	gas => 100,
 	build => 20,
@@ -1775,8 +1769,8 @@ use strict;
 	attr => {
 		armored => 1,
 		organic => 1,
+		structure => 1,
 	},
-	structure => 1,
 	speed => 0,
 	sight => 10,
 },
diff --git a/sc.plp b/sc.plp
index 59ef95c..88459de 100644
--- a/sc.plp
+++ b/sc.plp
@@ -180,7 +180,10 @@ sub showval {
 		local $_ = $row;
 		$_->{hp} += $_->{shield} if $_->{shield};
 		my $suitchar = '';
-		if ($_->{suit}) {
+		if ($_->{attr}->{structure}) {
+			$suitchar = 'b';
+		}
+		elsif ($_->{suit}) {
 			$suitchar = [qw/? s m l/]->[$_->{suit}];
 		}
 		elsif ($_->{cargo} > 0) {