e2k9 lua script

race-limited weapons

src/res/e2k9.xml

@@ -108,7 +108,7 @@
 
     <param name="modules.astralspace" value="0"/>
     <param name="modules.wormholes" value="0"/>
-    <param name="modules.markets" value="1/>
+    <param name="modules.markets" value="1"/>
 
     <param name="skills.cost" value="500"/>
     <param name="entertain.base" value="0"/>

src/res/e2k9/items.xml

@@ -3,11 +3,14 @@
 
   <resource name="towershield">
     <item weight="200" score="60">
+      <function name="canuse" value="lua_canuse_item"/>
       <construction skill="armorer" minskill="6" reqsize="1">
         <modifier function="mod_dwarves_only"/>
         <requirement type="iron" quantity="2"/>
       </construction>
-      <armor ac="2" projectile="0.30" penalty="-0.10" magres="0.0" shield="yes" />
+      <armor ac="2" projectile="0.30" penalty="-0.10" magres="0.0" shield="yes">
+        <modifier type="canuse" function="mod_elves_only"/>
+      </armor>
     </item>
   </resource>
 

src/res/e2k9/races.xml

@@ -42,6 +42,7 @@
     <skill name="quarrying" modifier="1"/>
     <skill name="riding" modifier="-99"/>
     <skill name="sailing" modifier="-1"/>
+    <skill name="spear" speed="+5"/>
     <skill name="stamina" speed="0"/>
     <skill name="shipcraft" modifier="-1"/>
     <skill name="tactics" modifier="1"/>

src/res/e2k9/weapons.xml

@@ -5,7 +5,7 @@
   <xi:include href="../weapons/catapult.xml"/>
   <xi:include href="../weapons/crossbow.xml"/>
   <xi:include href="../weapons/firesword.xml"/>
-  <xi:include href="../weapons/greatbow.xml"/>
+  <xi:include href="../weapons/greatbow-2.xml"/>
   <xi:include href="../weapons/greatsword-2.xml"/>
   <xi:include href="../weapons/halberd-2.xml"/>
   <xi:include href="../weapons/laensword.xml"/>

src/res/weapons/greatbow-2.xml

@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+<!-- this has a lua canuse function -->
+<resource name="greatbow">
+  <item weight="100">
+    <function name="canuse" value="lua_canuse_item"/>
+    <construction skill="weaponsmithing" minskill="5" reqsize="1">
+      <modifier function="mod_elves_only"/>
+      <requirement type="mallorn" quantity="2"/>
+    </construction>
+    <weapon pierce="true" missile="true" skill="bow" offmod="0" defmod="0" reload="0" magres="0.0">
+      <damage type="rider" value="2d6+4"/>
+      <damage type="footman" value="2d6+4"/>
+      <modifier type="missile_target" value="2"/>
+      <modifier type="damage" value="1">
+        <race name="elf"/>
+      </modifier>
+    </weapon>
+  </item>
+</resource>

src/scripts/e2k9.lua

@@ -0,0 +1,107 @@
+-- the locales that this gameworld supports.
+local locales = { "de", "en" }
+
+function loadscript(name)
+  local script = scriptpath .. "/" .. name
+  print("- loading " .. script)
+  if pcall(dofile, script)==0 then
+    print("Could not load " .. script)
+  end
+end
+
+loadscript("default.lua")
+
+function change_locales()
+  -- local localechange = { }
+  local localechange = { de = { "rtph" } }
+  
+  for loc, flist in pairs(localechange) do
+    for index, name in pairs(flist) do
+      f = get_faction(atoi36(name))
+      if f ~= nil then
+        f.locale = loc
+        print("LOCALECHANGE ", f, loc)
+      end
+    end
+  end
+end
+
+function load_scripts()
+  scripts = { 
+    "spells.lua",
+    "extensions.lua",
+    "e2k9/items.lua"
+  }
+  for index, value in pairs(scripts) do
+    loadscript(value)
+  end
+end
+
+function process(orders)
+  -- initialize starting equipment for new players
+
+  if open_game(get_turn())~=0 then
+    print("could not read game")
+    return -1
+  end
+  init_summary()
+
+  -- kill multi-players (external script)
+  -- loadscript("eressea/multis.lua")
+
+  -- run the turn:
+  if read_orders(orders) ~= 0 then
+    print("could not read " .. orders)
+    return -1
+  end
+
+  plan_monsters()
+
+  local nmrs = get_nmrs(1)
+  if nmrs >= 80 then
+    print("Shit. More than 80 factions with 1 NMR (" .. nmrs .. ")")
+    write_summary()
+    return -1
+  end
+  print (nmrs .. " Factions with 1 NMR")
+
+  process_orders()
+
+  -- create new monsters:
+  spawn_dragons()
+  spawn_undead()
+  spawn_braineaters(0.25)
+  spawn_ents()
+
+  -- post-turn updates:
+  update_xmas2006()
+  update_embassies()
+  update_guards()
+  update_scores()
+
+  change_locales()
+
+  -- use newfactions file to place out new players
+  autoseed(basepath .. "/newfactions", false)
+
+  write_files(locales)
+
+  file = "" .. get_turn() .. ".dat"
+  if write_game(file, "binary")~=0 then
+    print("could not write game")
+    return -1
+  end
+end
+
+--
+-- main body of script
+--
+
+-- orderfile: contains the name of the orders.
+load_scripts()
+if orderfile==nil then
+  print "you must specify an orderfile"
+else
+  process(orderfile)
+end
+

src/scripts/e2k9/items.lua

@@ -0,0 +1,10 @@
+-- used internally to check greatbow and towershield
+function item_canuse(u, iname)
+  if iname=="towershield" then
+    return u.race=="dwarf"
+  end
+  if iname=="greatbow" then
+    return u.race=="elf"
+  end
+  return true
+end