Updated to OTCv8 3.1 rev 157

modules/game_bot/default_configs/vBot_4.5/cavebot/imbuing.lua

@@ -0,0 +1,112 @@
+-- imbuing window should be handled separatly
+-- reequiping should be handled separatly (ie. equipment manager)
+
+CaveBot.Extensions.Imbuing = {}
+
+local SHRINES = {25060, 25061, 25182, 25183}
+local currentIndex = 1
+local shrine = nil
+local item = nil
+local currentId = 0
+local triedToTakeOff = false
+local destination = nil
+
+local function reset()
+  EquipManager.setOn()
+  shrine = nil
+  currentIndex = 1
+  item = nil
+  currentId = 0
+  triedToTakeOff = false
+  destination = nil
+end
+
+CaveBot.Extensions.Imbuing.setup = function()
+  CaveBot.registerAction("imbuing", "red", function(value, retries)
+    local data = string.split(value, ",")
+    local ids = {}
+
+    if #data == 0 then
+      warn("CaveBot[Imbuing] no items added, proceeding")
+      reset()
+      return false
+    end
+
+    -- setting of equipment manager so it wont disturb imbuing process
+    EquipManager.setOff()
+
+    -- convert to number
+    for i, id in ipairs(data) do
+      id = tonumber(id)
+      if not table.find(ids, id) then
+        table.insert(ids, id)
+      end
+    end
+ 
+    -- all items imbued, can proceed
+    if currentIndex > #ids then
+      warn("CaveBot[Imbuing] used shrine on all items, proceeding")
+      reset()
+      return true
+    end
+
+    for _, tile in ipairs(g_map.getTiles(posz())) do
+      for _, item in ipairs(tile:getItems()) do
+          local id = item:getId()
+          if table.find(SHRINES, id) then
+            shrine = item
+            break
+          end
+      end
+    end
+
+    -- if not shrine
+    if not shrine then
+      warn("CaveBot[Imbuing] shrine not found! proceeding")
+      reset()
+      return false
+    end
+
+    destination = shrine:getPosition()
+
+    currentId = ids[currentIndex]
+    item = findItem(currentId)
+    
+    -- maybe equipped? try to take off
+    if not item then
+      -- did try before, still not found so item is unavailable
+      if triedToTakeOff then
+        warn("CaveBot[Imbuing] item not found! skipping: "..currentId)
+        triedToTakeOff = false
+        currentIndex = currentIndex + 1
+        return "retry"
+      end
+      triedToTakeOff = true
+      g_game.equipItemId(currentId)
+      delay(1000)
+      return "retry"
+    end
+
+    -- we are past unequiping so just in case we were forced before, reset var
+    triedToTakeOff = false
+
+    -- reaching shrine
+    if not CaveBot.MatchPosition(destination, 1) then
+      CaveBot.GoTo(destination, 1)
+      delay(200)
+      return "retry"
+    end
+
+    useWith(shrine, item)
+    currentIndex = currentIndex + 1
+    warn("CaveBot[Imbuing] Using shrine on item: "..currentId)
+    delay(4000)
+    return "retry"
+  end)
+
+ CaveBot.Editor.registerAction("imbuing", "imbuing", {
+  value="item id 1, item id 2",
+  title="Auto Imbuing",
+  description="insert below item ids to be imbued, separated by comma",
+ })
+end