--
-- cora's defensive combat hax



local karange=14

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 checkbadblocks(pos)
    local n=minetest.find_node_near(pos, 2, {'mcl_core:gravel','mcl_core:sand','mcl_core:lava_source','mcl_core:lava_flowing','mcl_core:water_source','mcl_core:water_flowing',
    'mcl_core:obsidian','mcl_core:bedrock'}, true)
    if n == nil then return false end
    return true
end
local function checktrap()
    local lp=minetest.localplayer:get_pos()
    local air,nd=minetest.line_of_sight(vector.add(lp,{x=0,y=-2,z=0}), vector.add(lp,{x=0,y=50,z=0}))
    if(not air) then
	local tn=minetest.get_node_or_nil(nd)
	if(tn == nil) then return false end
	for k,v in ipairs({'mcl_core:lava_source','mcl_core:lava_flowing','mcl_core:water_source','mcl_core:water_flowing'}) do
		if tn.name == v then return true end
	end
    end
    return false
end

local function checkhead()
	local ppos=vector.add(minetest.localplayer:get_pos(),{x=0,y=1,z=0})
	if (checkair(ppos)) then return true end
	return false
end


local function checkprojectile()
    for k, v in ipairs(minetest.localplayer.get_nearby_objects(karange)) do
		if ( v:get_item_textures():sub(-9) == "arrow_box") or ( v:get_item_textures():sub(-7) == "_splash")  then
			local vel=v:get_velocity()
			if (vel.x == 0 and vel.y == 0 and vel.z ==0 ) then return false end
			return true
        end
    end
	return false
end


local function amautotool(pos)
	local node=minetest.get_node_or_nil(pos)
	if node == nil then return end
	local player = minetest.localplayer
	local inventory = minetest.get_inventory("current_player")
	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 = autotool.check_tool(player:get_wielded_item(), node_groups, best_time)
	for index, stack in pairs(inventory.main) do
		is_better, best_time = autotool.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 get_2dpos_from_yaw(r,yaw)
	local tg={x=0,y=0,z=0}
	tg.x= r * math.sin(yaw)
	tg.z= r * math.cos(yaw)
	return tg
end
local function get_3dpos_from_yaw_and_pitch(r,yaw,pitch)
	local tg={x=0,y=0,z=0}
	tg.x= r * math.sin(yaw)
	tg.y= r * math.sin(pitch)
	tg.z= r * math.cos(yaw)
	return tg
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})
	    local nd=minetest.get_node_or_nil(n)
	    if nd == nil then return end
	    while nd.name ~= "air" do
		amautotool(n)
		minetest.dig_node(n)
		minetest.dig_node(vector.add(n,{x=0,y=-1,z=0}))
		nd=minetest.get_node_or_nil(n)
		end
end
local lastwrp=0
local function mwarp(pos)
	if os.time() < lastwrp+1 then return end
	lastwrp=os.time();
	minetest.after("0.1",function() dhfree() end)
	minetest.localplayer:set_pos(pos)
end

local function get_target(epos)
	math.randomseed(os.time())
	local t=vector.add(epos,get_3dpos_from_yaw_and_pitch(karange+1,math.random(90,240),math.random(90,135)))
	if (checkbadblocks(t)) then
		return get_target(epos)
	elseif checkair(t) then
		return t
	else
		amautotool(t)
	end
	return t
end


local function evade(ppos)
	mwarp(get_target(ppos))
end

local function rro() -- reverse restraining order

    for k, v in ipairs(minetest.localplayer.get_nearby_objects(karange+5)) do
	local name=v:get_name()
        if (v:is_player() and  name ~= minetest.localplayer:get_name()) then
	    if fren.is_friend(name) then
		minetest.settings:set_bool("killaura",false)
		return end
            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
				local trg=get_target(pos)
				mwarp(trg)
				minetest.after("0.2",function() autofly.aim(pos) end)
				return
			end
        end
    end
end

minetest.register_globalstep(function()
    if minetest.settings:get_bool("goddess") then
	local ppos=minetest.localplayer:get_pos()
        rro()
        if(checkprojectile()) then evade(ppos)  end
        if(checktrap()) then evade(ppos)  end
        if(not checkhead()) then dhfree()  end
    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