0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

SotBE S6: unload units from galleons preferentially onto land hexes

Browse source 
This is done in Lua, so that it can easily be integrated into the AI
once the AI functionality for synced commands has been committed.
This commit is contained in:
mattsc 2013-11-19 08:38:08 -08:00
parent 4bfd2240e2
commit 1532d8f2b6
2 changed files with 62 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
data/campaigns/Son_Of_The_Black_Eye/ai/unload.lua Normal file
View file

@ -0,0 +1,53 @@
local H = wesnoth.require "lua/helper.lua"
local LS = wesnoth.require "lua/location_set.lua"
local unload = {}
-- Unload units from transports preferentially onto land tiles. Second priority are
-- water hexes next to land tiles. Units are unloaded with 2 MP.
-- Unload location is around the hex given by WML variables x1, y1
-- Parameters:
-- side: the side of the unloaded units
-- unit_types: array of unit types. Units are created in the order in which types
-- are listed in this table
function unload:unload(side, unit_types)
-- Do not unload units onto hexes occupied by units of any side
local units = wesnoth.get_units {}
local unit_map = LS.create()
for i,u in ipairs(units) do unit_map:insert(u.x, u.y) end
local x1, y1 = wesnoth.get_variable('x1'), wesnoth.get_variable('y1')
local adj_tiles = {}
for xa,ya in H.adjacent_tiles(x1, y1) do
if (not unit_map:get(xa, ya)) then
if wesnoth.match_location(xa, ya, { terrain = "!, W*" }) then
table.insert(adj_tiles, { xa, ya, 1. } )
elseif wesnoth.match_location(xa, ya,
{
terrain = "W*",
{ "filter_adjacent_location", { terrain = "!, W*" } }
}
)
then
table.insert(adj_tiles, { xa, ya, 0.1 } )
else
table.insert(adj_tiles, { xa, ya, 0.0 } )
end
end
end
table.sort(adj_tiles, function(a, b) return a[3] > b[3] end)
for i,utype in ipairs(unit_types) do
if adj_tiles[i] then
wesnoth.put_unit(adj_tiles[i][1], adj_tiles[i][2], { side = side, type = utype, moves = 2 })
else -- just in case there are more units to create than available adjacent tiles
local xv, yv = wesnoth.find_vacant_tile(x1, y1)
wesnoth.put_unit(xv, yv, { side = side, type = utype })
end
end
end
return unload

18
data/campaigns/Son_Of_The_Black_Eye/scenarios/06_Black_Flag.cfg
View file

@ -365,25 +365,25 @@
[case]
value=0
{UNIT 3 Fencer $x1 $y1 (moves=2)}
{UNIT 3 Swordsman $x1 $y1 (moves=2)}
{UNIT 3 Mage $x1 $y1 (moves=2)}
[lua]
code=<< wesnoth.require("campaigns/Son_Of_The_Black_Eye/ai/unload.lua"):unload(3, { 'Fencer', 'Swordsman', 'Mage' }) >>
[/lua]
[/case]
[case]
value=1
{UNIT 3 Cavalryman $x1 $y1 (moves=2)}
{UNIT 3 Javelineer $x1 $y1 (moves=2)}
{UNIT 3 Bowman $x1 $y1 (moves=2)}
[lua]
code=<< wesnoth.require("campaigns/Son_Of_The_Black_Eye/ai/unload.lua"):unload(3, { 'Cavalryman', 'Javelineer', 'Bowman' }) >>
[/lua]
[/case]
[case]
value=2
{UNIT 3 Pikeman $x1 $y1 (moves=2)}
{UNIT 3 Bowman $x1 $y1 (moves=2)}
{UNIT 3 Fencer $x1 $y1 (moves=2)}
[lua]
code=<< wesnoth.require("campaigns/Son_Of_The_Black_Eye/ai/unload.lua"):unload(3, { 'Pikeman', 'Bowman', 'Fencer' }) >>
[/lua]
[/case]
[/switch]