Version 1.0

modules/game_bot/functions/map.lua

@@ -51,42 +51,145 @@ context.getPlayerByName = function(name, multifloor)
   return nil
 end
 
-context.findPath = function(startPos, destPos, maxDist, ignoreFields, ignoreCreatures)
+context.findAllPaths = function(start, maxDist, params)
+  --[[
+    Available params:
+      ignoreLastCreature
+      ignoreCreatures
+      ignoreNonPathable
+      ignoreNonWalkable
+      ignoreStairs
+      ignoreCost
+      allowUnseen
+  ]]--
+  if type(params) ~= 'table' then
+    params = {}
+  end
+  for key, value in pairs(params) do
+    if value == nil or value == false then
+      params[key] = 0
+    elseif value == true then
+      params[key] = 1    
+    end
+  end
+  return g_map.findEveryPath(start, maxDist, params)
+end
+context.findEveryPath = context.findAllPaths
+
+context.translateAllPathsToPath = function(paths, destPos)
+  local predirections = {}
+  local directions = {}
+  local destPosStr = destPos
+  if type(destPos) ~= 'string' then
+    destPosStr = destPos.x .. "," .. destPos.y .. "," .. destPos.z
+  end
+  
+  while destPosStr:len() > 0 do
+    local node = paths[destPosStr]
+    if not node then
+      break
+    end
+    if node[3] < 0 then
+      break
+    end
+    table.insert(predirections, node[3])
+    destPosStr = node[4]
+  end
+  -- reverse
+  for i=#predirections,1,-1 do
+    table.insert(directions, predirections[i])
+  end
+  return directions
+end
+context.translateEveryPathToPath = context.translateAllPathsToPath
+
+
+context.findPath = function(startPos, destPos, maxDist, params)
+  --[[
+    Available params:
+      ignoreLastCreature
+      ignoreCreatures
+      ignoreNonPathable
+      ignoreNonWalkable
+      ignoreStairs
+      ignoreCost
+      allowUnseen
+      precision
+      marginMin
+      marginMax
+  ]]--
+  if startPos.z ~= destPos.z then
+    return
+  end
   if type(maxDist) ~= 'number' then
     maxDist = 100
   end
-  local complexity = math.min(10000, maxDist * maxDist)
-  local flags = 0
-  if ignoreFields then
-    flags = flags + 4
+  if type(params) ~= 'table' then
+    params = {}
   end
-  if ignoreCreatures then
-    flags = flags + 16
+  local destPosStr = destPos.x .. "," .. destPos.y .. "," .. destPos.z
+  params["destination"] = destPosStr
+  local paths = context.findAllPaths(startPos, maxDist, params)
+  
+  local marginMin = params.marginMin or params.minMargin
+  local marginMax = params.marginMax or params.maxMargin
+  if type(marginMin) == 'number' and type(marginMax) == 'number' then
+    local bestCandidate = nil
+    local bestCandidatePos = nil    
+    for x = -marginMax, marginMax do
+      for y = -marginMax, marginMax do
+        if math.abs(x) >= marginMin or math.abs(y) >= marginMin then
+          local dest = (destPos.x + x) .. "," .. (destPos.y + y) .. "," .. destPos.z
+          local node = paths[dest]
+          if node and (not bestCandidate or bestCandidate[1] > node[1]) then
+            bestCandidate = node
+            bestCandidatePos = dest
+          end          
+        end
+      end
+    end
+    if bestCandidate then
+      return context.translateAllPathsToPath(paths, bestCandidatePos)      
+    end
+    return
   end
-  return g_map.findPath(startPos, destPos, complexity, flags)
+
+  if not paths[destPosStr] then  
+    local precision = params.precision
+    if type(precision) == 'number' then
+      for p = 1, precision do
+        local bestCandidate = nil
+        local bestCandidatePos = nil
+        for x = -p, p do
+          for y = -p, p do
+            local dest = (destPos.x + x) .. "," .. (destPos.y + y) .. "," .. destPos.z
+            local node = paths[dest]
+            if node and (not bestCandidate or bestCandidate[1] > node[1]) then
+              bestCandidate = node
+              bestCandidatePos = dest
+            end
+          end
+        end
+        if bestCandidate then
+          return context.translateAllPathsToPath(paths, bestCandidatePos)      
+        end
+      end
+    end
+    return nil
+  end
+  
+  return context.translateAllPathsToPath(paths, destPos)
+end
+context.getPath = context.findPath
+
+context.autoWalk = function(destination, maxDist, params) 
+  -- Available params same as for findPath
+  local path = context.findPath(context.player:getPosition(), destination, maxDist, params)
+  if not path then
+    return false
+  end
+  -- autowalk without prewalk animation
+  g_game.autoWalk(path, {x=0,y=0,z=0})
+  return true
 end
 
-context.autoWalk = function(destination, maxDist, ignoreFields, ignoreCreatures)
-  if maxDist == nil then
-    maxDist = 100
-  end
-  if ignoreFields == nil then
-    ignoreFields = false
-  end
-  if ignoreCreatures == nil then
-    ignoreCreatures = false
-  end
-  if context.player:getPosition().z ~= destination.z then
-    return false
-  end
-  local path = context.findPath(context.player:getPosition(), destination, maxDist, ignoreFields, ignoreCreatures)
-  if #path < 1 then
-    return false
-  end
-  if g_game.getFeature(GameNewWalking) then
-    g_game.autoWalk(path, context.player:getPosition())
-  else
-    g_game.autoWalk(path, {x=0,y=0,z=0})
-  end
-  return true
-end