X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=generate-plag;h=28b4437993e07feceaa23b43d0c667e011825b2d;hb=80d5c2f420e30982360cd7398e63898e05111c9f;hp=1868acf4ed17e989d8fc52393b8dc1913d21a3e9;hpb=54c00d6f0dbc61c34836fd227a935a50f6508799;p=pandemic-rising-tide.git
diff --git a/generate-plag b/generate-plag
index 1868acf..28b4437 100755
--- a/generate-plag
+++ b/generate-plag
@@ -1,4 +1,41 @@
#!/usr/bin/perl -w
+#
+# generate-plag - program for processing game board definitions
+#
+# Copyright (C) 2019 Ian Jackson
+#
+# This program is dual licensed, GPv3+ or CC-BY-SA 4.0+.
+# Only to the Pandemic Rising Tide folks, it is permissively licensed.
+#
+# This program is free software.
+#
+# You can redistribute it and/or modify it under the terms of the
+# GNU General Public License as published by the Free Software
+# Foundation, either version 3 of the License, or (at your option)
+# any later version; or (at your option), under the terms of the
+# Creative Commons Attribution-ShareAlike International License,
+# version 4.0 of that License, or (at your option), any later
+# version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# General Public License Creative Commons Attribution-ShareAlike
+# License or the for more details.
+#
+# You should have received a copy of these licenses along with this
+# program. If not, see and
+# .
+#
+# Pandemic and Pandemic Rising Tide are (I think) trademarks of Z-Man
+# games and I use them without permission.
+#
+# For the avoidance of doubt, I do not consider this program to be a
+# derivative work of the game Pandemic Rising Tide. However, it is
+# not very useful without a pair of game description files and the
+# only nontrivial game description files I know of are indeed such
+# derivatives.
+
use strict;
use Carp;
@@ -10,7 +47,7 @@ use Parse;
sub output_planar_graph () {
foreach my $ra (sort keys %region) {
o(plag_prs($ra), "\n");
- if ($ra eq 'NZ' || $ra =~ m/^L2?$/) { o(" :outer\n"); }
+ if ($ra eq $c{Sea} || $ra =~ m/^L2?$/) { o(" :outer\n"); }
my $adjs = $region{$ra}{Adj};
foreach my $adj (reverse @$adjs) {
o(" ", plag_prs($adj->{Name}), "\n");