local fnd=false
local cpos={x=0,y=0,z=0}
local crange=500
local hud_wp=nil
local zz={x=0,y=64,z=0}
local badnodes={'mcl_tnt:tnt','mcl_fire:basic_flame','mcl_fire:eternal_fire','mcl_fire:fire','mcl_fire:fire_charge'}
--'mcl_sponges:sponge','mcl_sponges:sponge_wet'
local searchheight=64

local function set_kwp(name,pos)
    if hud_wp then
        minetest.localplayer:hud_change(hud_wp, 'world_pos', pos)
        minetest.localplayer:hud_change(hud_wp, 'name', name)
    else
        hud_wp = minetest.localplayer:hud_add({
            hud_elem_type = 'waypoint',
            name          = name,
            text          = 'm',
            number        = 0x00ff00,
            world_pos     = pos
        })
    end
end
local nextzz=0
local function randomzz()
    if nextzz > os.clock() then return false end
    math.randomseed(os.time())
    zz.x=math.random(-128,128)
    zz.y=math.random(64,searchheight)
    zz.z=math.random(-128,128)
    nextzz=os.clock()+ 15
end

local function find_bad_things()
    if fnd then return true end
    local obs=minetest.localplayer.get_nearby_objects(crange)
    local lp=minetest.localplayer:get_pos()

    for k, v in ipairs(obs) do -- look for crystals first
		if ( v:get_item_textures():find("mcl_end_crystal") ) then
                cpos=v:get_pos()
                set_kwp(v:get_item_textures(),v:get_pos())
                fnd=true
                return true
        end
    end

    for k, v in ipairs(obs) do
		if ( v:get_item_textures():find("arrow_box") ) then
                cpos=v:get_pos()
                set_kwp(v:get_item_textures(),v:get_pos())
                fnd=true
                return true
        end
    end

    local epos=minetest.find_nodes_in_area(vector.add(lp,{x=79,y=79,z=79}), vector.add(lp,{x=-79,y=-79,z=-79}), badnodes, true)
    local odst=500
    if epos then
        for k,v in pairs(epos) do for kk,vv in pairs(v) do
            lp=minetest.localplayer:get_pos()
            local dst=vector.distance(lp,vv)
            if odst > dst then odst=dst cpos=vv fnd=true end
        end end
        if fnd then set_kwp('badnode',cpos) return true end
    end

    set_kwp('nothing found',zz)
    randomzz()
    fnd=false
    return false
end



local function flythere()
    minetest.settings:set_bool('noclip',true)
    minetest.settings:set_bool("pitch_move",true)
    minetest.settings:set_bool("continuous_forward",true)
    autofly.aim(cpos)
    core.set_keypress("special1", true)
end

local function stopflight()
            minetest.settings:set_bool("continuous_forward",false)
            minetest.settings:set_bool("noclip",false)
            minetest.settings:set_bool("pitch_move",false)
            core.set_keypress("special1", false)
            minetest.after("0",function()
                minetest.interact("start_digging")
                minetest.dig_node(cpos)
                fnd=false
            end)
end

minetest.register_globalstep(function()
    if not minetest.settings:get_bool("kamikaze") and not minetest.localplayer:get_name():find("kamikaze") then
        if hud_wp then
            minetest.localplayer:hud_remove(hud_wp) hud_wp=nil
            minetest.settings:set_bool("continuous_forward",false)
            minetest.settings:set_bool("noclip",false)
            minetest.settings:set_bool("pitch_move",false)
            core.set_keypress("special1", false)
            fnd=false
        end
        return
    end

    local lp = minetest.localplayer:get_pos()
    if not find_bad_things() then
        if vector.distance(lp,zz) < 1 then
            stopflight()
            return
        else
            cpos=zz
        end
    elseif vector.distance(lp,cpos) < 1 then
        stopflight()
        return
    end
    flythere()
end)

minetest.register_on_death(function()
    if not minetest.settings:get_bool("kamikaze") then return end
    fnd=false
end)

minetest.register_cheat("Kamikaze", "Combat", "kamikaze")