function createRoads(from, to)
-- from から to までの最短経路の Grid 配列を受け取る。
local route = world:route(from, to)
-- from の位置まで移動する。
character:move(from)
--- from から to までで、道がない場所を探す。
for k, to in ipairs(route) do
-- 道がなければ、道ができるまで往復させる。
while not world:roadExists(from, to) do
character:move(to)
character:move(from)
end
end
end
return function()
local keep = world:keep()
local kitchen = world:buildings(Buildings.Kitchen)[1]
-- 要塞とキッチンとの間に道を作らせる。
createRoads(keep:grid(), kitchen:grid())
end