From 8793430061a3e409cf9a0138d77005b236c22447 Mon Sep 17 00:00:00 2001
From: dg <dg@51575b47-30f0-44d4-a5cc-537603b46e54>
Date: Sun, 6 Nov 2011 10:53:59 +0000
Subject: [PATCH] Auto Explore! Press shift+a (or rebind it) and your character
will try to explore all unseen space in the level. For now this is a ToME
feature but it'll be backported to the engine
git-svn-id: http://svn.net-core.org/repos/t-engine4@4606 51575b47-30f0-44d4-a5cc-537603b46e54
---
.../default/engine/interface/PlayerRun.lua | 65 +-
game/engines/default/engine/utils.lua | 4 +-
game/modules/tome/class/Actor.lua | 1 +
game/modules/tome/class/Game.lua | 9 +
game/modules/tome/class/Player.lua | 2 +
.../tome/class/interface/PlayerExplore.lua | 703 ++++++++++++++++++
game/modules/tome/data/keybinds/tome.lua | 8 +
.../tome/data/zones/abashed-expanse/zone.lua | 1 +
.../tome/data/zones/eidolon-plane/zone.lua | 1 +
.../tome/data/zones/sandworm-lair/zone.lua | 1 +
src/fov.c | 4 +-
11 files changed, 765 insertions(+), 34 deletions(-)
create mode 100644 game/modules/tome/class/interface/PlayerExplore.lua
diff --git a/game/engines/default/engine/interface/PlayerRun.lua b/game/engines/default/engine/interface/PlayerRun.lua
index 6ba97df96d..d509be9591 100644
--- a/game/engines/default/engine/interface/PlayerRun.lua
+++ b/game/engines/default/engine/interface/PlayerRun.lua
@@ -135,8 +135,13 @@ function _M:runStep()
local oldx, oldy = self.x, self.y
local dir_is_cardinal = self.running.dir == 2 or self.running.dir == 4 or self.running.dir == 6 or self.running.dir == 8
if self.running.path then
- if not self.running.path[self.running.cnt] then self:runStop()
- else self:move(self.running.path[self.running.cnt].x, self.running.path[self.running.cnt].y) end
+ if self.running.explore and self.checkAutoExplore and not self:checkAutoExplore() then
+ self:runStop()
+ elseif not self.running.path[self.running.cnt] then
+ self:runStop()
+ else
+ self:move(self.running.path[self.running.cnt].x, self.running.path[self.running.cnt].y)
+ end
else
-- Try to move around known traps if possible
local dx, dy = dir_to_coord[self.running.dir][1], dir_to_coord[self.running.dir][2]
@@ -177,6 +182,34 @@ function _M:runStep()
end
-- Move!
self:moveDir(self.running.dir)
+
+ if self.running.block_left then self.running.ignore_left = nil end
+ if self.running.ignore_left then
+ self.running.ignore_left = self.running.ignore_left - 1
+ if self.running.ignore_left <= 0 then
+ self.running.ignore_left = nil
+ -- We do this check here because it is path/time dependent, not terrain configuration dependent
+ if dir_is_cardinal and checkDir(self, sides[self.running.dir].soft_left) and checkDir(self, self.running.dir, 2) then
+ self:runStop("terrain change on the left")
+ return false
+ end
+ end
+ if checkDir(self, sides[self.running.dir].soft_left) and (not checkDir(self, self.running.dir) or not dir_is_cardinal) then self.running.block_left = true end
+ end
+ if self.running.block_right then self.running.ignore_right = nil end
+ if self.running.ignore_right then
+ self.running.ignore_right = self.running.ignore_right - 1
+ if self.running.ignore_right <= 0 then
+ self.running.ignore_right = nil
+ -- We do this check here because it is path/time dependent, not terrain configuration dependent
+ if dir_is_cardinal and checkDir(self, sides[self.running.dir].soft_right) and checkDir(self, self.running.dir, 2) then
+ self:runStop("terrain change on the right")
+ return false
+ end
+ end
+ if checkDir(self, sides[self.running.dir].soft_right) and (not checkDir(self, self.running.dir) or not dir_is_cardinal) then self.running.block_right = true end
+ end
+
end
self:runMoved()
@@ -185,34 +218,6 @@ function _M:runStep()
if not self.running then return false end
self.running.cnt = self.running.cnt + 1
-
- if self.running.block_left then self.running.ignore_left = nil end
- if self.running.ignore_left then
- self.running.ignore_left = self.running.ignore_left - 1
- if self.running.ignore_left <= 0 then
- self.running.ignore_left = nil
- -- We do this check here because it is path/time dependent, not terrain configuration dependent
- if dir_is_cardinal and checkDir(self, sides[self.running.dir].soft_left) and checkDir(self, self.running.dir, 2) then
- self:runStop("terrain change on the left")
- return false
- end
- end
- if checkDir(self, sides[self.running.dir].soft_left) and (not checkDir(self, self.running.dir) or not dir_is_cardinal) then self.running.block_left = true end
- end
- if self.running.block_right then self.running.ignore_right = nil end
- if self.running.ignore_right then
- self.running.ignore_right = self.running.ignore_right - 1
- if self.running.ignore_right <= 0 then
- self.running.ignore_right = nil
- -- We do this check here because it is path/time dependent, not terrain configuration dependent
- if dir_is_cardinal and checkDir(self, sides[self.running.dir].soft_right) and checkDir(self, self.running.dir, 2) then
- self:runStop("terrain change on the right")
- return false
- end
- end
- if checkDir(self, sides[self.running.dir].soft_right) and (not checkDir(self, self.running.dir) or not dir_is_cardinal) then self.running.block_right = true end
- end
-
return true
end
end
diff --git a/game/engines/default/engine/utils.lua b/game/engines/default/engine/utils.lua
index fad6c5f3a1..40b5ce302a 100644
--- a/game/engines/default/engine/utils.lua
+++ b/game/engines/default/engine/utils.lua
@@ -1084,8 +1084,8 @@ function core.fov.set_corner_block(l, block_corner)
block_corner = type(block_corner) == "function" and block_corner or
block_corner == false and function(_, x, y) return end or
type(block_corner) == "string" and function(_, x, y) return game.level.map:checkAllEntities(x, y, what) end or
- function(_, x, y) return game.level.map:checkEntity(lx, ly, engine.Map.TERRAIN, "block_move") and
- not game.level.map:checkEntity(lx, ly, engine.Map.TERRAIN, "pass_projectile") end
+ function(_, x, y) return game.level.map:checkEntity(x, y, engine.Map.TERRAIN, "block_move") and
+ not game.level.map:checkEntity(x, y, engine.Map.TERRAIN, "pass_projectile") end
l.block = block_corner
return block_corner
end
diff --git a/game/modules/tome/class/Actor.lua b/game/modules/tome/class/Actor.lua
index 515a84f7ba..ac1e7a48b9 100644
--- a/game/modules/tome/class/Actor.lua
+++ b/game/modules/tome/class/Actor.lua
@@ -1529,6 +1529,7 @@ function _M:die(src, death_note)
o.droppedBy = self.name
self:removeObject(inven, i, true)
game.level.map:addObject(self.x, self.y, o)
+ if game.level.map.attrs(self.x, self.y, "obj_seen") then game.level.map.attrs(self.x, self.y, "obj_seen", false) end
else
o:removed()
end
diff --git a/game/modules/tome/class/Game.lua b/game/modules/tome/class/Game.lua
index 28e0a97702..6163f456af 100644
--- a/game/modules/tome/class/Game.lua
+++ b/game/modules/tome/class/Game.lua
@@ -1153,6 +1153,15 @@ function _M:setupCommands()
local ok, err = coroutine.resume(co)
if not ok and err then print(debug.traceback(co)) error(err) end
end,
+
+ RUN_AUTO = function()
+ if self.zone and self.zone.no_autoexplore or self.level and self.level.no_autoexplore then
+ self.log("You may not auto-explore this level.")
+ elseif not self.player:autoExplore() then
+ self.log("There is nowhere left to explore.")
+ end
+ end,
+
RUN_LEFT = function() self.player:runInit(4) end,
RUN_RIGHT = function() self.player:runInit(6) end,
RUN_UP = function() self.player:runInit(8) end,
diff --git a/game/modules/tome/class/Player.lua b/game/modules/tome/class/Player.lua
index b617ac0835..39b82339dc 100644
--- a/game/modules/tome/class/Player.lua
+++ b/game/modules/tome/class/Player.lua
@@ -27,6 +27,7 @@ require "engine.interface.PlayerMouse"
require "mod.class.interface.PlayerStats"
require "mod.class.interface.PlayerLore"
require "mod.class.interface.PlayerDumpJSON"
+require "mod.class.interface.PlayerExplore"
require "mod.class.interface.PartyDeath"
local Map = require "engine.Map"
local Dialog = require "engine.ui.Dialog"
@@ -46,6 +47,7 @@ module(..., package.seeall, class.inherit(
mod.class.interface.PlayerStats,
mod.class.interface.PlayerLore,
mod.class.interface.PlayerDumpJSON,
+ mod.class.interface.PlayerExplore,
mod.class.interface.PartyDeath
))
diff --git a/game/modules/tome/class/interface/PlayerExplore.lua b/game/modules/tome/class/interface/PlayerExplore.lua
new file mode 100644
index 0000000000..7fd539fd8c
--- /dev/null
+++ b/game/modules/tome/class/interface/PlayerExplore.lua
@@ -0,0 +1,703 @@
+-- TE4 - T-Engine 4
+-- Copyright (C) 2009, 2010, 2011 Nicolas Casalini
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with this program. If not, see <http://www.gnu.org/licenses/>.
+--
+-- Nicolas Casalini "DarkGod"
+-- darkgod@te4.org
+
+--- This file implements auto-explore whereby a single command can explore unseen tiles and objects,
+-- go to unexplored doors, and go to the level exit all while avoiding known traps and water if possible.
+-- Implemented hastily by "tiger_eye", so please direct all complaints and code criticisms to the ToME
+-- forum where they can be promptly ignored ;) (I jest--compliments and suggestions will be most welcome!)
+
+require "engine.class"
+local Map = require "engine.Map"
+local Dialog = require "engine.ui.Dialog"
+
+module(..., package.seeall, class.make)
+
+local function toSingle(x, y)
+ return x + y * game.level.map.w
+end
+
+local function toDouble(c)
+ local y = math.floor(c / game.level.map.w)
+ return c - y * game.level.map.w, y
+end
+
+local function listAdjacentTiles(node, no_diagonal, no_cardinal)
+ local tiles = {}
+ local x, y, c, val
+ if type(node) == "table" then
+ x, y, c, val = unpack(node)
+ val = val + 1
+ elseif type(node) == "number" then
+ x, y = toDouble(node)
+ c = node
+ val = 1
+ else
+ return tiles
+ end
+
+ local left_okay = x > 0
+ local right_okay = x < game.level.map.w - 1
+ local lower_okay = y > 0
+ local upper_okay = y < game.level.map.h - 1
+
+ if not no_cardinal then
+ if upper_okay then tiles[1] = {x, y + 1, c + game.level.map.w, val, 2 } end
+ if left_okay then tiles[#tiles+1] = {x - 1, y, c - 1, val, 4 } end
+ if right_okay then tiles[#tiles+1] = {x + 1, y, c + 1, val, 6 } end
+ if lower_okay then tiles[#tiles+1] = {x, y - 1, c - game.level.map.w, val, 8 } end
+ end
+ if not no_diagonal then
+ if left_okay and upper_okay then tiles[#tiles+1] = {x - 1, y + 1, c - 1 + game.level.map.w, val, 1 } end
+ if right_okay and upper_okay then tiles[#tiles+1] = {x + 1, y + 1, c + 1 + game.level.map.w, val, 3 } end
+ if left_okay and lower_okay then tiles[#tiles+1] = {x - 1, y - 1, c - 1 - game.level.map.w, val, 7 } end
+ if right_okay and lower_okay then tiles[#tiles+1] = {x + 1, y - 1, c + 1 - game.level.map.w, val, 9 } end
+ end
+ return tiles
+end
+
+-- Performing a flood-fill algorithm in lua with robust logic is going to be relatively slow, so we
+-- need to make things more efficient wherever we can. "adjacentTiles" below is an example of this.
+-- Every node knows from which direction it was explored, and it only explores adjacent tiles that
+-- may not have previously been explored. Nodes that were explored from a cardinal direction only
+-- have three new adjacent tiles to iterate over, and diagonal directions have five new tiles.
+-- Therefore, we should favor cardinal direction tile propagation for speed whenever possible.
+local adjacentTiles = {
+ -- Dir 1
+ function(node, cardinal_tiles, diagonal_tiles)
+ local x, y, c, val = node[1], node[2], node[3], node[4]+1
+
+ if y < game.level.map.h - 1 then
+ cardinal_tiles[#cardinal_tiles+1] = {x, y + 1, c + game.level.map.w, val, 2 }
+ diagonal_tiles[#diagonal_tiles+1] = {x + 1, y + 1, c + 1 + game.level.map.w, val, 3 }
+ if x > 0 then
+ diagonal_tiles[#diagonal_tiles+1] = {x - 1, y + 1, c - 1 + game.level.map.w, val, 1 }
+ cardinal_tiles[#cardinal_tiles+1] = {x - 1, y, c - 1, val, 4 }
+ diagonal_tiles[#diagonal_tiles+1] = {x - 1, y - 1, c - 1 - game.level.map.w, val, 7 }
+ end
+ elseif x > 0 then
+ cardinal_tiles[#cardinal_tiles+1] = {x - 1, y, c - 1, val, 4 }
+ diagonal_tiles[#diagonal_tiles+1] = {x - 1, y - 1, c - 1 - game.level.map.w, val, 7 }
+ end
+ end,
+ --Dir 2
+ function(node, cardinal_tiles, diagonal_tiles)
+ local x, y, c, val = node[1], node[2], node[3], node[4]+1
+ if y > game.level.map.h - 2 then return end
+
+ if x > 0 then diagonal_tiles[#diagonal_tiles+1] = {x - 1, y + 1, c - 1 + game.level.map.w, val, 1 } end
+ cardinal_tiles[#cardinal_tiles+1] = {x, y + 1, c + game.level.map.w, val, 2 }
+ if x < game.level.map.w - 1 then diagonal_tiles[#diagonal_tiles+1] = {x + 1, y + 1, c + 1 + game.level.map.w, val, 3 } end
+ end,
+ -- Dir 3
+ function(node, cardinal_tiles, diagonal_tiles)
+ local x, y, c, val = node[1], node[2], node[3], node[4]+1
+
+ if y < game.level.map.h - 1 then
+ diagonal_tiles[#diagonal_tiles+1] = {x - 1, y + 1, c - 1 + game.level.map.w, val, 1 }
+ cardinal_tiles[#cardinal_tiles+1] = {x, y + 1, c + game.level.map.w, val, 2 }
+ if x < game.level.map.w - 1 then
+ diagonal_tiles[#diagonal_tiles+1] = {x + 1, y + 1, c + 1 + game.level.map.w, val, 3 }
+ cardinal_tiles[#cardinal_tiles+1] = {x + 1, y, c + 1, val, 6 }
+ diagonal_tiles[#diagonal_tiles+1] = {x + 1, y - 1, c + 1 - game.level.map.w, val, 9 }
+ end
+ elseif x < game.level.map.w - 1 then
+ cardinal_tiles[#cardinal_tiles+1] = {x + 1, y, c + 1, val, 6 }
+ diagonal_tiles[#diagonal_tiles+1] = {x + 1, y - 1, c + 1 - game.level.map.w, val, 9 }
+ end
+ end,
+ --Dir 4
+ function(node, cardinal_tiles, diagonal_tiles)
+ local x, y, c, val = node[1], node[2], node[3], node[4]+1
+ if x < 1 then return end
+
+ if y < game.level.map.h - 1 then diagonal_tiles[#diagonal_tiles+1] = {x - 1, y + 1, c - 1 + game.level.map.w, val, 1 } end
+ cardinal_tiles[#cardinal_tiles+1] = {x - 1, y, c - 1, val, 4 }
+ if y > 0 then diagonal_tiles[#diagonal_tiles+1] = {x - 1, y - 1, c - 1 - game.level.map.w, val, 7 } end
+ end,
+ --Dir 5 (all adjacent, slow)
+ function(node, cardinal_tiles, diagonal_tiles)
+ local x, y, c, val = node[1], node[2], node[3], node[4]+1
+
+ local left_okay = x > 0
+ local right_okay = x < game.level.map.w - 1
+ local lower_okay = y > 0
+ local upper_okay = y < game.level.map.h - 1
+
+ if upper_okay then cardinal_tiles[#cardinal_tiles+1] = {x, y + 1, c + game.level.map.w, val, 2 } end
+ if left_okay then cardinal_tiles[#cardinal_tiles+1] = {x - 1, y, c - 1, val, 4 } end
+ if right_okay then cardinal_tiles[#cardinal_tiles+1] = {x + 1, y, c + 1, val, 6 } end
+ if lower_okay then cardinal_tiles[#cardinal_tiles+1] = {x, y - 1, c - game.level.map.w, val, 8 } end
+
+ if left_okay and upper_okay then diagonal_tiles[#diagonal_tiles+1] = {x - 1, y + 1, c - 1 + game.level.map.w, val, 1 } end
+ if right_okay and upper_okay then diagonal_tiles[#diagonal_tiles+1] = {x + 1, y + 1, c + 1 + game.level.map.w, val, 3 } end
+ if left_okay and lower_okay then diagonal_tiles[#diagonal_tiles+1] = {x - 1, y - 1, c - 1 - game.level.map.w, val, 7 } end
+ if right_okay and lower_okay then diagonal_tiles[#diagonal_tiles+1] = {x + 1, y - 1, c + 1 - game.level.map.w, val, 9 } end
+ end,
+ --Dir 6
+ function(node, cardinal_tiles, diagonal_tiles)
+ local x, y, c, val = node[1], node[2], node[3], node[4]+1
+ if x > game.level.map.w - 2 then return end
+
+ if y < game.level.map.h - 1 then diagonal_tiles[#diagonal_tiles+1] = {x + 1, y + 1, c + 1 + game.level.map.w, val, 3 } end
+ cardinal_tiles[#cardinal_tiles+1] = {x + 1, y, c + 1, val, 6 }
+ if y > 0 then diagonal_tiles[#diagonal_tiles+1] = {x + 1, y - 1, c + 1 - game.level.map.w, val, 9 } end
+ end,
+ -- Dir 7
+ function(node, cardinal_tiles, diagonal_tiles)
+ local x, y, c, val = node[1], node[2], node[3], node[4]+1
+
+ if x > 0 then
+ diagonal_tiles[#diagonal_tiles+1] = {x - 1, y + 1, c - 1 + game.level.map.w, val, 1 }
+ cardinal_tiles[#cardinal_tiles+1] = {x - 1, y, c - 1, val, 4 }
+ if y > 0 then
+ diagonal_tiles[#diagonal_tiles+1] = {x - 1, y - 1, c - 1 - game.level.map.w, val, 7 }
+ cardinal_tiles[#cardinal_tiles+1] = {x, y - 1, c - game.level.map.w, val, 8 }
+ diagonal_tiles[#diagonal_tiles+1] = {x + 1, y - 1, c + 1 - game.level.map.w, val, 9 }
+ end
+ elseif y > 0 then
+ cardinal_tiles[#cardinal_tiles+1] = {x, y - 1, c - game.level.map.w, val, 8 }
+ diagonal_tiles[#diagonal_tiles+1] = {x + 1, y - 1, c + 1 - game.level.map.w, val, 9 }
+ end
+ end,
+ --Dir 8
+ function(node, cardinal_tiles, diagonal_tiles)
+ local x, y, c, val = node[1], node[2], node[3], node[4]+1
+ if y < 1 then return end
+
+ if x > 0 then diagonal_tiles[#diagonal_tiles+1] = {x - 1, y - 1, c - 1 - game.level.map.w, val, 7 } end
+ cardinal_tiles[#cardinal_tiles+1] = {x, y - 1, c - game.level.map.w, val, 8 }
+ if x < game.level.map.w - 1 then diagonal_tiles[#diagonal_tiles+1] = {x + 1, y - 1, c + 1 - game.level.map.w, val, 9 } end
+ end,
+ -- Dir 9
+ function(node, cardinal_tiles, diagonal_tiles)
+ local x, y, c, val = node[1], node[2], node[3], node[4]+1
+
+ if x < game.level.map.w - 1 then
+ diagonal_tiles[#diagonal_tiles+1] = {x + 1, y + 1, c + 1 + game.level.map.w, val, 3 }
+ cardinal_tiles[#cardinal_tiles+1] = {x + 1, y, c + 1, val, 6 }
+ if y > 0 then
+ diagonal_tiles[#diagonal_tiles+1] = {x - 1, y - 1, c - 1 - game.level.map.w, val, 7 }
+ cardinal_tiles[#cardinal_tiles+1] = {x, y - 1, c - game.level.map.w, val, 8 }
+ diagonal_tiles[#diagonal_tiles+1] = {x + 1, y - 1, c + 1 - game.level.map.w, val, 9 }
+ end
+ elseif y > 0 then
+ diagonal_tiles[#diagonal_tiles+1] = {x - 1, y - 1, c - 1 - game.level.map.w, val, 7 }
+ cardinal_tiles[#cardinal_tiles+1] = {x, y - 1, c - game.level.map.w, val, 8 }
+ end
+ end
+}
+
+function _M:autoExplore()
+ local node = { self.x, self.y, toSingle(self.x, self.y), 0, 5 }
+ local current_tiles = { node }
+ local unseen_tiles = {}
+ local unseen_singlets = {}
+ local unseen_items = {}
+ local unseen_doors = {}
+ local exits = {}
+ local values = {}
+ values[node[3]] = 0
+ local slow_values = {}
+ local slow_tiles = {}
+ local iter = 1
+ local running = true
+ local minval = 999999999999999
+ local minval_items = 999999999999999
+ local minval_doors = 999999999999999
+ local val, _, anode, tile_list
+
+ -- a few tunable parameters
+ local extra_iters = 5 -- number of extra iterations to do after we found an item or unseen tile
+ local singlet_greed = 12 -- number of additional moves we're willing to do to explore a single unseen tile
+ local item_greed = 5 -- number of additional moves we're willing to do to visit an unseen item rather than an unseen tile
+
+ -- Create a distance map array via flood-fill to locate unseen tiles, unvisited items, closed doors, and exits
+ while running do
+ -- construct lists of adjacent tiles to iterate over, and iterate in cardinal directions first
+ local current_tiles_next = {}
+ local cardinal_tiles = {}
+ local diagonal_tiles = {}
+ -- Nearly half the time is spent here. This could be implemented in C if desired, but I think it's fast enough
+ for _, node in ipairs(current_tiles) do
+ adjacentTiles[node[5]](node, cardinal_tiles, diagonal_tiles)
+ end
+
+ -- The other half of the time is spent in this loop
+ for _, tile_list in ipairs({cardinal_tiles, diagonal_tiles}) do
+ for _, node in ipairs(tile_list) do
+ local x, y, c, move_cost = unpack(node)
+
+ if not game.level.map.has_seens(x, y) then
+ if not values[c] or values[c] > move_cost then
+ unseen_tiles[#unseen_tiles + 1] = c
+ values[c] = move_cost
+ if move_cost < minval then
+ minval = move_cost
+ end
+ -- Try to not abandon lone unseen tiles
+ local is_singlet = true
+ for _, anode in ipairs(listAdjacentTiles(node)) do
+ if not game.level.map.has_seens(anode[1], anode[2]) then
+ is_singlet = false
+ break
+ end
+ end
+ if is_singlet then
+ unseen_singlets[#unseen_singlets+1] = c
+ end
+ end
+ else
+ -- Increase move cost for known traps and terrain that drains air or deals damage
+ -- These could stack if we want--such as a trap in poisonous water--but this way is slightly faster and "good enough"
+ -- "slow" terrain will be avoided if at all possible
+ local trap = game.level.map(x, y, Map.TRAP)
+ local terrain = game.level.map(x, y, Map.TERRAIN)
+ local is_slow = false
+ if trap and trap:knownBy(self) then
+ move_cost = move_cost + 31
+ is_slow = true
+ elseif terrain.mindam or terrain.maxdam then
+ move_cost = move_cost + 15
+ is_slow = true
+ elseif terrain.air_level and terrain.air_level < 0 and not self.can_breath.water then
+ move_cost = move_cost + 7
+ is_slow = true
+ end
+ -- propagate "current_tiles" for next iteration
+ if (not values[c] or values[c] > move_cost or is_slow) and (not is_slow or not slow_values[c] or slow_values[c] > move_cost) then
+-- if not game.level.map:checkEntity(x, y, Map.TERRAIN, "block_move", self, nil, true) then
+-- if not game.level.map:checkAllEntities(x, y, "block_move", self) then
+-- if not (terrain.does_block_move or terrain.is_door and terrain.door_opened then
+
+ -- This is a sinful man's "block_move". If it messes up, then players can explore the level themselves!
+ -- (and they can always interrupt running if something terrible happens)
+ if not (terrain.does_block_move or terrain.door_opened) then
+ if is_slow then
+ node[4] = move_cost
+ slow_values[c] = move_cost
+ slow_tiles[#slow_tiles + 1] = node
+ else
+ values[c] = move_cost
+ current_tiles_next[#current_tiles_next + 1] = node
+ end
+ end
+ -- only go to objects we haven't walked over yet
+ local obj = game.level.map:getObject(x, y, 1)
+ if obj and not game.level.map.attrs(x, y, "obj_seen") then
+ unseen_items[#unseen_items + 1] = c
+ values[c] = move_cost
+ if move_cost < minval_items then
+ minval_items = move_cost
+ end
+ -- default to reasonable targets if there are no accessible unseen tiles or objects left on the map
+ elseif #unseen_tiles == 0 and #unseen_items == 0 then
+ -- only go to closed doors with unseen grids behind them
+ if terrain.door_opened then
+ local is_unexplored = false
+ for _, anode in ipairs(listAdjacentTiles(node)) do
+ if not game.level.map.has_seens(anode[1], anode[2]) then
+ is_unexplored = true
+ break
+ end
+ end
+ if is_unexplored then
+ unseen_doors[#unseen_doors + 1] = c
+ values[c] = move_cost
+ if move_cost < minval_doors then
+ minval_doors = move_cost
+ end
+ end
+ -- go to next level, exit, or previous level (in that order of precedence)
+ elseif terrain.change_level then
+ exits[#exits + 1] = c
+ values[c] = move_cost
+ end
+ end
+ end
+ end
+ end
+ end
+ -- Continue the loop if we haven't found any destination tiles or if lower cost paths to the destination tiles may exist
+ running = #unseen_tiles == 0 and #unseen_items == 0
+ for _, c in ipairs(unseen_tiles) do
+ if values[c] > iter then
+ running = true
+ break
+ end
+ end
+ if not running then
+ for _, c in ipairs(unseen_items) do
+ if values[c] > iter then
+ running = true
+ break
+ end
+ end
+ end
+ -- performing a few extra iteration will help us conveniently handle a few fringe cases
+ if not running and extra_iters > 0 then
+ running = true
+ extra_iters = extra_iters - 1
+ end
+
+ -- if we need to continue running but have no more tiles to iterate over, propagate from "slow_tiles" such as traps
+ if running and #current_tiles_next == 0 and #slow_tiles > 0 then
+ current_tiles = slow_tiles
+ for _, node in ipairs(slow_tiles) do
+ local c, val = node[3], node[4]
+ if not values[c] or val < values[c] then
+ values[c] = val
+ end
+ end
+ slow_tiles = {}
+ -- otherwise, stop the loop if there are no more tiles to iterate over
+ else
+ running = running and #current_tiles_next > 0
+ current_tiles = current_tiles_next
+ end
+
+ iter = iter + 1
+ end
+
+ -- Negligible time is spent below
+ -- Choose target
+ if #unseen_tiles > 0 or #unseen_items > 0 or #unseen_doors > 0 or #exits > 0 then
+ local target_type
+ local choices = {}
+ local distances = {}
+ local mindist = 999999999999999
+ -- try to explore cleanly--don't leave single unseen tiles by themselves
+ for _, c in ipairs(unseen_singlets) do
+ if values[c] <= minval + singlet_greed then
+ target_type = "unseen"
+ choices[#choices + 1] = c
+ local x, y = toDouble(c)
+ local dist = core.fov.distance(self.x, self.y, x, y, true)
+ distances[c] = dist
+ if dist < mindist then
+ mindist = dist
+ end
+ end
+ end
+ -- go to closest items first
+ if #choices == 0 and minval_items <= minval + item_greed then
+ for _, c in ipairs(unseen_items) do
+ if values[c] == minval_items then
+ target_type = "item"
+ choices[#choices + 1] = c
+ local x, y = toDouble(c)
+ local dist = core.fov.distance(self.x, self.y, x, y, true)
+ distances[c] = dist
+ if dist < mindist then
+ mindist = dist
+ end
+ end
+ end
+ end
+
+ -- hack! temporary hack to explore large unseen areas more reasonably and carefully (but not very efficiently)
+ local min_hack_dist = 999999999999999
+ local min_hack_val = 999999999999999
+ local hack_greed = 5
+ local hack_distances = {}
+ local hack_tiles = {}
+ if #choices == 0 and self.running and self.running.ave_x and self.running.ave_N % 6 == 0 then
+ for _, c in ipairs(unseen_tiles) do
+ if values[c] <= minval + hack_greed then
+ hack_tiles[#hack_tiles + 1] = c
+ local x, y = toDouble(c)
+ local hack_dist = x*(x - 2*self.running.ave_x) + y*(y - 2*self.running.ave_y) + values[c]*(values[c] - 0.5)
+ hack_distances[c] = hack_dist
+ if hack_dist < min_hack_dist then
+ min_hack_dist = hack_dist
+ end
+ end
+ end
+ for _, c in ipairs(hack_tiles) do
+ if hack_distances[c] == min_hack_dist then
+ if values[c] < min_hack_val then
+ min_hack_val = values[c]
+ end
+ end
+ end
+ for _, c in ipairs(hack_tiles) do
+ if hack_distances[c] == min_hack_dist and values[c] == min_hack_val then
+ target_type = "unseen"
+ choices[#choices + 1] = c
+ local x, y = toDouble(c)
+ local dist = core.fov.distance(self.x, self.y, x, y, true)
+ distances[c] = dist
+ if dist < mindist then
+ mindist = dist
+ end
+ end
+ end
+ end
+ -- end hack!
+
+ -- if no nearby items, go to nearest unseen tile
+ if #choices == 0 then
+ for _, c in ipairs(unseen_tiles) do
+ if values[c] == minval then
+ target_type = "unseen"
+ choices[#choices + 1] = c
+ local x, y = toDouble(c)
+ local dist = core.fov.distance(self.x, self.y, x, y, true)
+ distances[c] = dist
+ if dist < mindist then
+ mindist = dist
+ end
+ end
+ end
+ end
+ -- if no destination yet, go to nearest unexplored closed door
+ if #choices == 0 then
+ for _, c in ipairs(unseen_doors) do
+ if values[c] == minval_doors then
+ target_type = "door"
+ choices[#choices + 1] = c
+ local x, y = toDouble(c)
+ local dist = core.fov.distance(self.x, self.y, x, y, true)
+ distances[c] = dist
+ if dist < mindist then
+ mindist = dist
+ end
+ end
+ end
+ end
+ -- if still no destination, then the accessible parts of the level are fully explored and we can go to the next level
+ if #choices == 0 then
+ for _, c in ipairs(exits) do
+ local x, y = toDouble(c)
+ local terrain = game.level.map(x, y, Map.TERRAIN)
+ if terrain.change_level > 0 and not terrain.change_zone then
+ target_type = "exit"
+ choices[#choices + 1] = c
+ local dist = core.fov.distance(self.x, self.y, x, y, true) + 10*values[c]
+ distances[c] = dist
+ if dist < mindist then
+ mindist = dist
+ end
+ end
+ end
+ end
+ -- ...or next zone
+ if #choices == 0 then
+ for _, c in ipairs(exits) do
+ local x, y = toDouble(c)
+ local terrain = game.level.map(x, y, Map.TERRAIN)
+ if terrain.change_zone then
+ target_type = "exit"
+ choices[#choices + 1] = c
+ local dist = core.fov.distance(self.x, self.y, x, y, true) + 10*values[c]
+ distances[c] = dist
+ if dist < mindist then
+ mindist = dist
+ end
+ end
+ end
+ end
+ -- ...or previous level
+ if #choices == 0 then
+ for _, c in ipairs(exits) do
+ local x, y = toDouble(c)
+ local terrain = game.level.map(x, y, Map.TERRAIN)
+ if terrain.change_level < 0 then
+ target_type = "exit"
+ choices[#choices + 1] = c
+ local dist = core.fov.distance(self.x, self.y, x, y, true) + 10*values[c]
+ distances[c] = dist
+ if dist < mindist then
+ mindist = dist
+ end
+ end
+ end
+ end
+
+ -- if multiple choices, then choose nearest one based on fov distance metric
+ if #choices > 1 then
+ local choices2 = {}
+ for _, c in ipairs(choices) do
+ if distances[c] == mindist then
+ choices2[#choices2 + 1] = c
+ end
+ end
+ choices = choices2
+ end
+ -- if still multiple choices, then choose one randomly
+ local target = #choices > 0 and rng.table(choices) or nil
+ local target_x, target_y = toDouble(target)
+
+ -- Now create the path to the target (constructed from target to source)
+ if target then
+ local x, y = toDouble(target)
+ local path = {{x=x, y=y}}
+ local current_val = values[target]
+ -- the idiot check condition should NEVER occur, but, well, if it does, it'll save us from being stuck in an infinite loop
+ local idiot_counter = 0
+ local idiot_check = current_val + 2
+ while (path[#path].x ~= self.x or path[#path].y ~= self.y) and idiot_counter <= idiot_check do
+ idiot_counter = idiot_counter + 1
+ -- perform a greedy minimization that prefers cardinal directions
+ local cardinals = {}
+ local min_cardinal = current_val
+ for _, node in ipairs(listAdjacentTiles(target, true)) do
+ local c = node[3]
+ if values[c] and values[c] < min_cardinal then
+ min_cardinal = values[c]
+ cardinals[#cardinals + 1] = node
+ end
+ end
+ local diagonals = {}
+ local min_diagonal = current_val
+ for _, node in ipairs(listAdjacentTiles(target, false, true)) do
+ local c = node[3]
+ if values[c] and values[c] < min_diagonal then
+ min_diagonal = values[c]
+ diagonals[#diagonals + 1] = node
+ end
+ end
+
+ -- Favor cardinal directions since we are constructing the path in reverse.
+ -- This results in dog-leg (or hockey stick)-like movement. If desired, we could try adding an A*-like heuristic
+ -- to favor straighter line movement (i.e., alternate between diagonal and cardinal moves), but, meh, whatever ;)
+ if min_diagonal < min_cardinal or #cardinals == 0 then
+ current_val = min_diagonal
+ for _, node in ipairs(diagonals) do
+ if values[node[3]] == min_diagonal then
+ path[#path + 1] = {x=node[1], y=node[2]}
+ target = node[3]
+ break
+ end
+ end
+ else
+ current_val = min_cardinal
+ for _, node in ipairs(cardinals) do
+ if values[node[3]] == min_cardinal then
+ path[#path + 1] = {x=node[1], y=node[2]}
+ target = node[3]
+ break
+ end
+ end
+ end
+ end
+
+ -- sanity check. This should NEVER occur, but if it does by freak accident, let's be prepared
+ if path[#path].x ~= self.x or path[#path].y ~= self.y then
+ path = {}
+ else
+ -- un-reverse the path
+ local temp_path = {}
+ -- never attempt to open a door, so don't include doors or the player in the path
+ if target_type == "door" then
+ for i = #path-1, 2, -1 do temp_path[#temp_path+1] = path[i] end
+ else
+ for i = #path-1, 1, -1 do temp_path[#temp_path+1] = path[i] end
+ end
+ path = temp_path
+ end
+
+ if #path > 0 then
+ if self.running and self.running.explore then
+ self.running.path = path
+ self.running.cnt = 1
+ self.running.explore = target_type
+ -- hack!
+ self.running.ave_x = (self.running.ave_x*self.running.ave_N + 2*(target_x + self.x)) / (self.running.ave_N + 4)
+ self.running.ave_y = (self.running.ave_y*self.running.ave_N + 2*(target_y + self.y)) / (self.running.ave_N + 4)
+ self.running.ave_N = self.running.ave_N + 2
+ else
+ self.running = {
+ path = path,
+ cnt = 1,
+ dialog = Dialog:simplePopup("Running...", "You are exploring, press any key to stop.", function()
+ self:runStop()
+ end, false, true),
+ explore = target_type,
+ -- hack!
+ ave_x = 0.5*(target_x + self.x),
+ ave_y = 0.5*(target_y + self.y),
+ ave_N = 2,
+ }
+ self.running.dialog.__showup = nil
+ self.running.dialog.__hidden = true
+
+ self:runStep()
+ end
+ return true
+ end
+ end
+ end
+ return false
+end
+
+function _M:checkAutoExplore()
+ if not self.running or not self.running.explore then return false end
+
+ -- if the next spot in the path is blocked, explore a new path if we don't have a specific target (such as an item, door, or exit)
+ local node = self.running.path[self.running.cnt]
+ if not node or game.level.map.has_seens(node.x, node.y) and game.level.map:checkAllEntities(node.x, node.y, "block_move", self) then
+ if self.running.explore == "unseen" then
+ return self:autoExplore()
+ else
+ return false
+ end
+ end
+
+ -- One more kindness to the player: take advantage of asymmetric LoS in this one specific case.
+ -- If an enemy is at '?', the player is able to prevent an ambush by moving to 'x' instead of 't'.
+ -- This is the only sensibly preventable ambush (that I know of) in which the player can move
+ -- in a way to see the would-be ambusher and the would-be ambusher can't see the player.
+ --
+ -- .tx Moving onto 't' puts us adjacent to an unseen tile, '?'
+ -- ?#@ --> Pick 'x' instead
+ if math.abs(self.x - node.x) == 1 and math.abs(self.y - node.y) == 1 then
+ if game.level.map:checkAllEntities(self.x, node.y, "block_move", self) and not game.level.map:checkAllEntities(node.x, self.y, "block_move", self) and
+ game.level.map:isBound(self.x, 2*node.y - self.y) and not game.level.map.has_seens(self.x, 2*node.y - self.y) then
+ table.insert(self.running.path, self.running.cnt, {x=node.x, y=self.y})
+ elseif game.level.map:checkAllEntities(node.x, self.y, "block_move", self) and not game.level.map:checkAllEntities(self.x, node.y, "block_move", self) and
+ game.level.map:isBound(2*node.x - self.x, self.y) and not game.level.map.has_seens(2*node.x - self.x, self.y) then
+ table.insert(self.running.path, self.running.cnt, {x=self.x, y=node.y})
+ end
+ end
+
+ -- continue current path if we haven't seen the target tile or object yet
+ local x, y = self.running.path[#self.running.path].x, self.running.path[#self.running.path].y
+ if not game.level.map.has_seens(x, y) then return true end
+
+ local obj = game.level.map:getObject(x, y, 1)
+ if obj and not game.level.map.attrs(x, y, "obj_seen") then return true end
+
+ -- if we have explored the unseen node or auto-picked up the unseen item, then continue auto-exploring somewhere else
+ if self.running.explore == "unseen" then
+ -- To explore large unseen areas reasonably and efficiently (and not helter skelter randomly), I am going to create
+ -- a "front"--the boundary between seen tiles and unseen tiles--which we'll propagate to get the "front depth".
+ -- This will allow us to apply logic to explore shallow depths first (i.e., near the seen/unseen boundary) while also
+ -- penetrating the depth as much as possible so we can explore efficiently (often with a zig-zag pattern).
+-- if not self.running.front_depth then
+ --TODO. There is a temporary hack in-place until this gets implemented
+-- end
+ return self:autoExplore()
+ elseif self.running.explore == "item" and not obj then
+ return self:autoExplore()
+ else
+ -- otherwise, try to continue running on the current path to reach our target
+ return true
+ end
+end
+
diff --git a/game/modules/tome/data/keybinds/tome.lua b/game/modules/tome/data/keybinds/tome.lua
index 5e589c5f69..3363ef887b 100644
--- a/game/modules/tome/data/keybinds/tome.lua
+++ b/game/modules/tome/data/keybinds/tome.lua
@@ -198,3 +198,11 @@ defineAction{
group = "movement",
name = "Attack diagonally right and down",
}
+
+defineAction{
+ default = { "sym:_a:false:true:false:false" },
+ type = "RUN_AUTO",
+ group = "movement",
+ name = "Auto-explore",
+}
+
diff --git a/game/modules/tome/data/zones/abashed-expanse/zone.lua b/game/modules/tome/data/zones/abashed-expanse/zone.lua
index d806bb0d2a..a6971a6d9b 100644
--- a/game/modules/tome/data/zones/abashed-expanse/zone.lua
+++ b/game/modules/tome/data/zones/abashed-expanse/zone.lua
@@ -33,6 +33,7 @@ return {
no_level_connectivity = true,
force_controlled_teleport = true,
projectile_speed_mod = 0.3,
+ no_autoexplore = true,
generator = {
map = {
diff --git a/game/modules/tome/data/zones/eidolon-plane/zone.lua b/game/modules/tome/data/zones/eidolon-plane/zone.lua
index dcecadc15f..c1a3acb90b 100644
--- a/game/modules/tome/data/zones/eidolon-plane/zone.lua
+++ b/game/modules/tome/data/zones/eidolon-plane/zone.lua
@@ -29,6 +29,7 @@ return {
is_eidolon_plane = true,
no_anomalies = true,
zero_gravity = true,
+ no_autoexplore = true,
ambient_music = "Anne_van_Schothorst_-_Passed_Tense.ogg",
generator = {
map = {
diff --git a/game/modules/tome/data/zones/sandworm-lair/zone.lua b/game/modules/tome/data/zones/sandworm-lair/zone.lua
index 5911101002..63a4f8acb0 100644
--- a/game/modules/tome/data/zones/sandworm-lair/zone.lua
+++ b/game/modules/tome/data/zones/sandworm-lair/zone.lua
@@ -29,6 +29,7 @@ return {
-- all_remembered = true,
-- all_lited = true,
persistent = "zone",
+ no_autoexplore = true,
ambient_music = "Suspicion.ogg",
min_material_level = function() return game.state:isAdvanced() and 3 or 2 end,
max_material_level = function() return game.state:isAdvanced() and 4 or 3 end,
diff --git a/src/fov.c b/src/fov.c
index ef7fad9bfa..0bd5f21081 100644
--- a/src/fov.c
+++ b/src/fov.c
@@ -750,8 +750,8 @@ static int lua_fov_line_last_open_xy(lua_State *L)
val = (float)line->dest_t * line->step_y - line->eps;
y = (val < 0.0f) ? -(int)(0.5f - val) : (int)(0.5f + val);
}
- lua_pushnumber(L, line->source_x);
- lua_pushnumber(L, line->source_y);
+ lua_pushnumber(L, line->source_x + x);
+ lua_pushnumber(L, line->source_y + y);
return 2;
}
--
GitLab