commits for 7.5.0 pre-release tarball

[xconq] / lib / valhalla-beach.g

diff --git a/lib/valhalla-beach.g b/lib/valhalla-beach.g
new file mode 100755 (executable)
index 0000000..535dcdf
--- /dev/null
+++ b/lib/valhalla-beach.g
@@ -0,0 +1,103 @@
+(game-module "valhalla-beach"\r
+  (title "Invasion")\r
+  (version ".1")\r
+\r
+;; From .1: Glen\r
+\r
+  (blurb "A three-pronged amphibious assault.")\r
+  (base-module "valhalla")\r
+  (variants\r
+     (sequential true)\r
+     (world-seen true)\r
+     (see-all false)\r
+\r
+\r
+("6 Sides" add-pacfleet\r
+           "All split up." false\r
+           (true\r
+\r
+(set sides-min 6)\r
+(set sides-max 6)\r
+\r
+\r
+(side 1 inva (name "Invasion Group North") (adjective "Northern Invasion")\r
+)\r
+\r
+(side 2 defa (name "Defense Group North") (adjective "Northern Defender")\r
+)\r
+\r
+(side 3 invb (name "Invasion Group Central") (adjective "Central Invasion")\r
+)\r
+\r
+(side 4 defb (name "Defense Group Central") (adjective "Central Defender")\r
+)\r
+\r
+(side 5 invc (name "Invasion Group South") (adjective "Southern Invasion")\r
+)\r
+\r
+(side 6 defc (name "Defense Group South") (adjective "Southern Defender")\r
+)\r
+\r
+\r
+\r
+(side 1 (trusts (3 1) (5 1)))\r
+(side 2 (trusts (4 1) (6 1)))\r
+(side 3 (trusts (1 1) (5 1)))\r
+(side 4 (trusts (2 1) (6 1)))\r
+(side 5 (trusts (1 1) (3 1)))\r
+(side 6 (trusts (2 1) (4 1)))\r
+\r
+(include "u-val-beach")\r
+\r
+               )\r
+\r
+          (false\r
+(set sides-min 2)\r
+(set sides-max 2)\r
+\r
+\r
+(side 1 inv (name "Invasion Group") (adjective "Invasion")\r
+)\r
+\r
+(side 2 def (name "Defense Group") (adjective "Defender")\r
+)\r
+\r
+(include "u-val-beach-2")\r
+\r
+               )\r
+        )\r
+\r
+;; SIXER\r
+\r
+\r
+\r
+\r
+)\r
+  (instructions (\r
+   "Invading player must control at least six Victory Points by turn 20."\r
+   "After that, control of ten Victory Points gives victory."\r
+   "Recon flights are no different than normal Fighters."\r
+\r
+   ))\r
+  )\r
+\r
+\r
+\r
+(add hanger see-always false) \r
+\r
+;;; Define basic terrain.\r
+\r
+(include "t-val-beach")\r
+\r
+(set synthesis-methods '(name-units-randomly))\r
+\r
+(scorekeeper \r
+   (title "Test Baby")\r
+   (when (after-turn 20))\r
+   (do (if (>= (sum-uprop active-vp point-value) 250) win))\r
+)\r
+\r
+(set scorefile-name "Test Baby")\r
+\r
+\r
+\r