multi-punisher

src/scripts/e3a/build.lua

@@ -0,0 +1,194 @@
+function size()
+  return 16
+end
+
+function make_island(pl, x, y, a, b)
+  if b==nil then b = a/3 end
+  local nx, ny = plane.normalize(pl, x, y)
+  gmtool.make_island(nx, ny, a, b)
+end
+
+function make_block(pl, x, y, r)
+  local nx, ny = plane.normalize(pl, x, y)
+  gmtool.make_block(nx, ny, r)
+end
+
+function find(email)
+  for f in factions() do if f.email==email then return f end end
+  return nil
+end
+
+function give_item(email, id, uname, iname)
+  f = find(email)
+  for u in f.units do
+    u.id=atoi36(id)
+    u.name=uname
+    u:add_item(iname, 1)
+    break
+  end
+end
+
+function give_items()
+  give_item("hongeldongel@web.de", "boss", "Drollitz", "rpg_item_1")
+  give_item("zangerl.helmut@chello.at", "holb", "Holbard", "rpg_item_2")
+  give_item("r.lang@chello.at", "brtL", "Bertl", "rpg_item_2")
+  give_item("schlaustauch@gmx.de", "bert", "Bertram", "rpg_item_3")
+end
+
+function island(pl, x, y, r)
+  make_block(pl, x, y, r)
+  make_island(pl, x+r/2+2, y+r/2, size() * 3)
+  make_island(pl, x-r-2, y+r/2, size() * 3)
+  make_island(pl, x-r/2-2, y-r/2, size() * 3)
+  make_island(pl, x+r+2, y-r/2, size() * 3)
+  make_island(pl, x+r/2+2, y-r-2, size() * 3)
+  make_island(pl, x-r/2-2, y+r+2, size() * 3)
+end
+
+function cross(pl, x, y, r)
+  make_block(pl, x-r, y+r*2, r)
+  make_block(pl, x+r*4/3, y, r)
+  make_block(pl, x-r*4/3, y, r)
+  make_block(pl, x+r, y-r*2, r)
+
+  make_island(pl, x, y, size() * 3)
+  make_island(pl, x, y-r*4/3, size() * 3)
+  make_island(pl, x, y+r*4/3, size() * 3)
+  make_island(pl, x+r*4/3, y-r*4/3, size() * 3)
+  make_island(pl, x-r*4/3, y+r*4/3, size() * 3)
+end
+
+function clean()
+  for r in regions() do
+    if r.terrain=="ocean" then
+      -- print(r)
+      region.destroy(r)
+    end
+  end
+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 i = 0
+  local x, y = plane.normalize(pl, 0, i)
+  local r = get_region(x, y)
+  while true do
+    if r==nil then
+      if m==0 and (i>=0 or i<-10) then
+        local s = size()
+        gmtool.make_island(x, y, s*3, s)
+      else
+        gmtool.make_block(x, y, 6)
+      end
+      r = get_region(x, y)
+      if r==nil then
+        r = region.create(x, y, "ocean")
+      end
+      m = 1 - m
+    end
+    i = r.y + 1
+    x, y = plane.normalize(pl, 0, i)
+    r = get_region(x, y)
+    if r~=nil and r.y==0 then break end
+  end
+end
+
+function build(pl)
+  local d = 28
+  local h = 20
+  line(pl)
+  island(pl, d+15, -6, 11)
+  island(pl, -d, -h-10, 11)
+  cross(pl, -d, h-10, 6)
+  island(pl, d, 2*h, 11)
+end
+
+function fill(pl, w, h)
+  local x, y
+  for x=0,w do
+    for y=0,h do
+      local nx, ny = plane.normalize(pl, x, y)
+      local r = get_region(nx, ny)
+      if r==nil then
+        r = region.create(nx, ny, "ocean")
+      end
+    end
+  end
+end
+
+function seed()
+  local input = io.open(basepath .. "/parteien.txt")
+  for f in factions() do
+    if f.race=="vampunicorn" then
+      local str = input:read("*line")
+      if str==nil then break end
+      local race, lang, email = str:match("([^ ]*) ([^ ]*) ([^ ]*)")
+      f.race = race:lower()
+      f.options = f.options + 4096
+      f.email = email
+      f.locale = lang
+      for u in f.units do
+        u.race = race:lower()
+        u.hp = u.hp_max
+        local b = building.create(u.region, "castle")
+        if lang=="de" then
+          u.name = "Entdecker"
+          b.name = "Heimat"
+        else
+          u.name = "Explorer"
+          b.name = "Home"
+        end
+        b.size = 10
+        u.building = b
+      end
+    end
+  end
+  for r in regions() do
+    r:set_resource("sapling", r:get_resource("tree")/4)
+    r:set_resource("seed", 0)
+  end
+  update_owners()
+end
+
+function select()
+  for f in factions() do
+    if f.email=="enno@eressea.de" then
+      for u in f.units do
+        gmtool.select(u.region, true)
+        u.number = 0
+      end
+    end
+  end
+end
+
+function justWords(str)
+  local t = {}
+  local function helper(word) table.insert(t, word) return "" end
+  if not str:gsub("%w+", helper):find"%S" then return t end
+end
+
+function rebuild()
+  free_game()
+  local w = 110
+  local h = 80
+  local pl = plane.create(0, -w/2, -h/2, w+1, h+1)
+  build(pl)
+  fill(pl, w, h)
+  write_map("export.cr")
+end
+
+function testwelt()
+  free_game()
+  local w = 10
+  local h = 10
+  local pl = plane.create(0, -w/2, -h/2, w+1, h+1)
+  gmtool.make_island(0, 0, 30, 3)
+  fill(pl, w, h)
+  write_map("export.cr")
+end

src/scripts/e3a/multi.lua

@@ -0,0 +1,21 @@
+function multi(f)
+  f.password = "doppelspieler"
+  f.email = "doppelspieler@eressea.de"
+  f.banner = "Diese Partei steht wegen vermuteten Doppelspiels unter Beobachtung."
+  for u in f.units do
+    u.race_name = "toad"
+    if u.building~=nil then
+      local found = False
+      for u2 in u.region.units do
+        if u2.faction~=u.faction then
+          found = true
+          break
+        end
+      end
+      if not found then
+        u.region.terrain_name = "firewall"
+        u.region:set_flag(2) -- RF_BLOCKED
+      end
+    end
+  end
+end

src/scripts/run-e3a.lua

@@ -1,5 +1,22 @@
 -- the locales that this gameworld supports.
 local locales = { "de", "en" }
+local multis = { 
+   "agve", "dbgi", "7jfa", "qbki",
+   "gu8y", "wgxe", "iwp0", "r8vz",
+   "78xt", "34fu", "z33r", "fLkr",
+   "yuok"
+}
+
+function kill_multis()
+  if multi~=nil and multis~=nil then
+    for idx, fno in ipairs(multis) do
+      local f = get_faction(fno)
+      if f~=nil and f.email~="doppelspieler@eressea.de" then
+        multi(f)
+      end
+    end
+  end
+end
 
 function loadscript(name)
   local script = scriptpath .. "/" .. name
@@ -28,6 +45,7 @@ function load_scripts()
   scripts = { 
     "spells.lua",
     "extensions.lua",
+    "e3a/multi.lua",
   }
   for index, value in pairs(scripts) do
     loadscript(value)
@@ -70,6 +88,7 @@ function process(orders)
   -- spawn_braineaters(0.25)
   -- spawn_ents()
 
+  kill_multis()
   -- post-turn updates:
   update_guards()
   update_scores()