otclientv8/modules/game_bot/default_configs/vBot/cavebot/inbox_withdraw.lua

CaveBot.Extensions.InWithdraw = {}

comparePosition = function(pPos, tPos)
	return (getDistanceBetween(pPos, tPos) <= 1)
end

local depotIDs = {3497, 3498, 3499, 3500}
storage.stopSearch = false
storage.inboxContainerOpen = false
local i = 1


CaveBot.Extensions.InWithdraw.setup = function()
	CaveBot.registerAction("inwithdraw", "#002FFF", function(value, retries)
		local data = string.split(value, ",")
		local withdrawId
		local count
		local itemCount = 0
		local depotAmount = 0
		if #data ~= 2 then
			warn("CaveBot[InboxWithdraw]: incorrect withdraw value")
			return false
		else
			withdrawId = tonumber(data[1])
			count = tonumber(data[2])
		end

		for i, container in pairs(getContainers()) do
			if not string.find(container:getName():lower(), "inbox") then
				for j, item in pairs(container:getItems()) do
					if item:getId() == withdrawId then
						itemCount = itemCount + item:getCount()
					end
				end
			end
		end

		if itemCount >= count then
			for i, container in pairs(getContainers()) do
				if string.find(container:getName():lower(), "your inbox") then
					g_game.close(container)
				end
			end
			print("CaveBot[InboxWithdraw]: enough items, proceeding")
			return true
		end

		if retries > 400 then
			print("CaveBot[InboxWithdraw]: actions limit reached, proceeding")
			return true
		end

		delay(200)
		local tileList = {}
		local tPos
		local depotClear = false
		local depotOpen = false
		local depotBoxOpen = false
		for _,tile in pairs(g_map.getTiles(posz())) do
			for i,thing in pairs(tile:getThings()) do
				if table.find(depotIDs, thing:getId()) then
					table.insert(tileList, {tileObj = tile, distance = getDistanceBetween(pos(), tile:getPosition()), depotID = thing:getId()})
				end
			end
		end
		table.sort(tileList, function(a,b) return a.distance < b.distance end)
		::findEmptyDP::
		if tileList[i] and not storage.stopSearch then
			if tileList[i].depotID == 3498 then
				tPos = {x = tileList[i].tileObj:getPosition().x + 1, y = tileList[i].tileObj:getPosition().y, z = tileList[i].tileObj:getPosition().z}
			elseif tileList[i].depotID == 3499 then
				tPos = {x = tileList[i].tileObj:getPosition().x, y = tileList[i].tileObj:getPosition().y + 1, z = tileList[i].tileObj:getPosition().z}
			elseif tileList[i].depotID == 3500 then
				tPos = {x = tileList[i].tileObj:getPosition().x - 1, y = tileList[i].tileObj:getPosition().y, z = tileList[i].tileObj:getPosition().z}
			elseif tileList[i].depotID == 3497 then
				tPos = {x = tileList[i].tileObj:getPosition().x, y = tileList[i].tileObj:getPosition().y - 1, z = tileList[i].tileObj:getPosition().z}
			end
			if tPos then
				local dest = g_map.getTile(tPos)
				if not comparePosition(pos(), dest:getPosition()) then
					if not dest:getCreatures()[1] and dest:isWalkable() then
						if CaveBot.walkTo(dest:getPosition(), {ignoreNonPathable=true}) then
							storage.stopSearch = true
							delay(100)
						end
					else
						i = i + 1
						goto findEmptyDP
					end
				end
			end
		end
		if tileList[i].tileObj and not table.find(depotIDs, tileList[i].tileObj:getTopLookThing():getId()) and comparePosition(pos(), tileList[i].tileObj:getPosition()) then
			for j=1,table.getn(tileList[i].tileObj:getThings()),1 do
				if not tileList[i].tileObj:getThings()[j]:isNotMoveable() then
					delay(500)
					g_game.move(tileList[i].tileObj:getThings()[j], pos(), tileList[i].tileObj:getThings()[j]:getCount())
				end
			end
			if table.find(depotIDs, tileList[i].tileObj:getTopLookThing():getId()) then
				depotClear = true
			end
		else
			depotClear = true
		end
		if depotClear then
			for _, container in pairs(g_game.getContainers()) do
				if container:getName():lower() == "locker" then
					depotOpen = true
				end
			end
		end
		if tileList[i].tileObj and depotClear and not depotOpen and not storage.inboxContainerOpen then
			delay(500)
			g_game.use(tileList[i].tileObj:getTopUseThing())
			depotOpen = true
		end
		i = 1
		for _, container in pairs(g_game.getContainers()) do
			if container:getName():lower() == "your inbox" then
				depotBoxOpen = true
			end
		end
		if depotOpen and not depotBoxOpen then
			if findItem(12902) then
				delay(500)
				g_game.use(findItem(12902))
				depotBoxOpen = true
			end
		end

		if depotBoxOpen and not storage.inboxContainerOpen then
			for _, container in pairs(g_game.getContainers()) do
				if container:getName():lower() == "your" then
					storage.inboxContainerOpen = true
				end
			end
		end
		delay(500)
		for i, container in pairs(getContainers()) do
			if string.find(container:getName():lower(), "your") then
				for j, item in pairs(container:getItems()) do
					if item:getId() == withdrawId then
						depotAmount = depotAmount + item:getCount()
					end
				end
				break
			end
		end

		local destination
		for i, container in pairs(getContainers()) do
			if container:getCapacity() > #container:getItems() and not string.find(container:getName():lower(), "depot") and not string.find(container:getName():lower(), "loot") and not string.find(container:getName():lower(), "inbox") then
				destination = container 
			end
		end

		if itemCount < count and destination then
			for i, container in pairs(getContainers()) do
				if string.find(container:getName():lower(), "your inbox") then
					for j, item in pairs(container:getItems()) do
						if item:getId() == withdrawId then
							if item:isStackable() then
								g_game.move(item, destination:getSlotPosition(destination:getItemsCount()), math.min(item:getCount(), (count - itemCount)))
								return "retry"
							else
								g_game.move(item, destination:getSlotPosition(destination:getItemsCount()), 1)
								return "retry"
							end
							return "retry"
						end
					end
				end
			end
		end
		return "retry"
  end)

 CaveBot.Editor.registerAction("inwithdraw", "in withdraw", {
  value="id,amount",
  title="Withdraw Items",
  description="insert item id and amount",
 })
end