From cc830bb124306304a13ec97279220055b75ac90b Mon Sep 17 00:00:00 2001
From: Thomas Troeger <tstroege@glenfiddich.dnsalias.org>
Date: Fri, 7 Feb 2014 19:35:30 +0100
Subject: [PATCH] - added `build.lua' script published by Enno.

---
 support/build.lua | 74 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 74 insertions(+)
 create mode 100644 support/build.lua

diff --git a/support/build.lua b/support/build.lua
new file mode 100644
index 000000000..2f50f6679
--- /dev/null
+++ b/support/build.lua
@@ -0,0 +1,74 @@
+function size()
+  return 16
+end
+
+function island(pl, x, y, r)
+  gmtool.make_block(pl, x, y, r)
+  gmtool.make_island(pl, x+r/2+2, y+r/2, size() * 3)
+  gmtool.make_island(pl, x-r-2, y+r/2, size() * 3)
+  gmtool.make_island(pl, x-r/2-2, y-r/2, size() * 3)
+  gmtool.make_island(pl, x+r+2, y-r/2, size() * 3)
+  gmtool.make_island(pl, x+r/2+2, y-r-2, size() * 3)
+  gmtool.make_island(pl, x-r/2-2, y+r+2, size() * 3)
+end
+
+function cross(pl, x, y, r)
+  gmtool.make_block(pl, x-r, y+r*2, r)
+  gmtool.make_block(pl, x+r*4/3, y, r)
+  gmtool.make_block(pl, x-r*4/3, y, r)
+  gmtool.make_block(pl, x+r, y-r*2, r)
+
+  gmtool.make_island(pl, x, y, size() * 3)
+  gmtool.make_island(pl, x, y-r*4/3, size() * 3)
+  gmtool.make_island(pl, x, y+r*4/3, size() * 3)
+  gmtool.make_island(pl, x+r*4/3, y-r*4/3, size() * 3)
+  gmtool.make_island(pl, x-r*4/3, y+r*4/3, size() * 3)
+end
+
+function count()
+  local i = 0
+  for f in factions() do i = i + 1 end
+  print(i)
+end
+
+function line(pl)
+  local m = 0
+  local x, y
+  local i = 0
+  x = 0
+  y = i
+  local r = get_region(x, y, pl)
+  while true do
+    if r==nil then
+      if m==0 and (i>=0 or i<-10) then
+        local s = size()
+        gmtool.make_island(pl, x, y, s*3, s)
+      else
+        gmtool.make_block(pl, x, y, 6)
+      end
+      r = get_region(x, y, pl)
+      if r==nil then
+        r = region.create(x, y, "ocean", pl)
+      end
+      m = 1 - m
+    end
+    i = r.y + 1
+    x = 0
+    y = i
+    r = get_region(x, y, pl)
+    if r~=nil and r.y==0 then break end
+  end
+end
+
+function build(pl)
+  cross(pl, -28, -20, 6)
+  island(pl, 28, -20, 11)
+  island(pl, -28, 20, 11)
+  island(pl, 28, 20, 11)
+  -- line(pl)
+end
+
+eressea.free_game()
+pl = plane.create(0, -50, -40, 90, 80)
+
+build(pl)