--
-- cora's defensive combat hax

local tprange=50


local function sleep(n)  -- seconds
  local t0 = os.clock()
  while os.clock() - t0 <= n do end
end


local function mwarp(pos)
	minetest.localplayer:set_pos(pos)
end


local tprangeh=20
local tprangepy=50
local tprangeny=60
local karange=10



local function checkair(pos)
	local n=minetest.get_node_or_nil(pos)
	if n==nil or n['name'] == 'air' then return true end
    return false
end
local function checklava(pos)
    local n=minetest.find_node_near(pos, 2, {'mcl_core:lava_source','mcl_core:lava_flowing'}, true)
    if n == nil then return false end
    return true
end
local function checkgravel(pos)
    local n=minetest.find_node_near(pos, 1, {'mcl_core:gravel','mcl_core:sand'}, true)
    if n == nil then return false end
    return true
end



local function check_tool(stack, node_groups, old_best_time)
	local toolcaps = stack:get_tool_capabilities()
	if not toolcaps then return end
	local best_time = old_best_time
	for group, groupdef in pairs(toolcaps.groupcaps) do
		local level = node_groups[group]
		if level then
			local this_time = groupdef.times[level]
			if this_time < best_time then
				best_time = this_time
			end
		end
	end
	return best_time < old_best_time, best_time
end

local function amautotool(pos)
	local player = minetest.localplayer
	local inventory = minetest.get_inventory("current_player")
    local node=minetest.get_node_or_nil(pos)
	local node_groups = minetest.get_node_def(node.name).groups
	local new_index = player:get_wield_index()
	local is_better, best_time = false, math.huge
	is_better, best_time = check_tool(player:get_wielded_item(), node_groups, best_time)
	is_better, best_time = check_tool(inventory.hand[1], node_groups, best_time)
	for index, stack in pairs(inventory.main) do
		is_better, best_time = check_tool(stack, node_groups, best_time)
		if is_better then
			new_index = index - 1
		end
	end
	player:set_wield_index(new_index)
end
local function dhfree()
            if not minetest.localplayer then return end
            local n=vector.add(minetest.localplayer:get_pos(),{x=0,y=2,z=0})
            --if n==nil or n['name'] == 'air' then return end
            amautotool(n)
            minetest.dig_node(n)
            minetest.dig_node(vector.add(n,{x=0,y=-1,z=0}))
end
local function get_target(epos)
	math.randomseed(os.time())
	local angle=math.random(110,250)
	local tg={x=0,y=0,z=0}
	tg.x=( karange + 2 ) * math.sin(angle)
	tg.z=( karange + 2 ) * math.cos(angle)
	local t=vector.add(epos,tg)
	if (checklava(t) or checkgravel(t)) then
		return get_target(epos)
	elseif checkair(t) then
		return t
	else
		amautotool(t)
	end
	return t
end
local function rro() -- reverse restraining order
    for k, v in ipairs(minetest.localplayer.get_nearby_objects(karange+5)) do
        if (v:is_player() and v:get_name() ~= minetest.localplayer:get_name()) then
       -- if (v:is_player() and v:get_name() == "antigone" then
            local pos = v:get_pos()
            pos.y = pos.y - 1
			local mpos=minetest.localplayer:get_pos()
            local distance=vector.distance(mpos,pos)
            if distance < karange then
				mwarp(get_target(pos))
				minetest.after(0.2,function() autofly.aim(pos) end)
				minetest.after(0.1,function() dhfree() end)
				return
			end
        end
    end
end

minetest.register_globalstep(function()
    if minetest.settings:get_bool("goddess") then
        rro()
    end
end)
minetest.register_chatcommand("dhf", {	description = "",	func = dhfree })


-- REG cheats on DF
if (_G["minetest"]["register_cheat"] ~= nil) then
	 minetest.register_cheat("Goddess Mode", "Combat", "goddess")
else
	 minetest.settings:set_bool('goddess',true)
end