local block = ...
local scanSpeed = 0.5
local doHighLight = true
local findDamage =  ({...})[2]
local damage = ({...})[4]
local highlighter = colors.green
local customDisplay = ({...})[3]
if customDisplay == "nil" then customDisplay = block end
if not block or block == "" then error("use: find blockname",0) end
if type(damage) == "string" then damage = tonumber(damage) end
local findDamage = tonumber(findDamage)
if type(customDisplay) ~= "string" or customDisplay == "" then customDisplay = nil end
if not damage or damage == "" then damage = nil end
local per = peripheral.wrap("back")
if not per then error("missing modules! (glasses,scanner)",0) end
if not per.scan or not per.canvas then error("missing modules! (glasses,scanner)",0) end
local c = per.canvas()
local c3d = per.canvas3d()
local obj
c.clear()
local main = function()
    local rec = c.addRectangle(0,0,60,20)
    local text = c.addText({3,6},"")
    rec.setAlpha(122)
    rec.setColor(0,0,0)
    local function getClosest(tbl)
        local pyth = function(x,y,z)
            return math.sqrt(x^2+y^2+z^2)  
        end
        local result = {}
        for k,v in pairs(tbl) do
            result[k] = pyth(v.x,v.y,v.z)
        end
        local minv = math.min(table.unpack(result))
        local resultFinal
		local resIndex
        for k,v in pairs(tbl) do
            if pyth(v.x,v.y,v.z) == minv then
                resultFinal = v
				resIndex = k
                break
            end
        end
        return resultFinal, resIndex
	end
	local function conv(ins)
        local r,g,b = term.getPaletteColor(ins)
        return r*255,g*255,b*255
    end
    local blc
    local offset
	local stabilize = function()
		local x, y, z = gps.locate(0.2)
		if x then
			offset = {
				-((x%1)-0.5),
                -((y%1)-0.5),
				-((z%1)-0.5)
			}
		else
			offset = nil
		end
	end
	local scanBlocks = function()
		blc = per.scan()
	end
    while true do
        parallel.waitForAll(stabilize,scanBlocks)
		c3d.clear()
        local matches = {}
        for k,v in pairs(blc) do
			if type(findDamage) == "number" then
            	if v.name == block and v.metadata == findDamage then
                	table.insert(matches,v)
            	end
			else
				if v.name == block then
                	table.insert(matches,v)
            	end
			end
        end
		if not next(matches) then matches = 'no block "'..block..'" was found' end
		do
			local v,xs,ys,zs,c,str,usedIndex
			if type(matches) ~= "string" then
                local obj
                if offset then
                obj = c3d.create(offset)
                else
                obj = c3d.create()
                end
                local frame = obj.addFrame(vector.new())
                v, usedIndex = getClosest(matches)
                xs,ys,zs = tostring(v.x),tostring(v.y),tostring(v.z)
                c = xs.." "..ys.." "..zs   
                str = block.." found at: "..c
				for k,v in pairs(matches) do
					if k ~= usedIndex or not doHighLight then
                        
                        local item = frame.addItem({v.x,v.y,v.z},customDisplay or block)
                        
					end
				end
				local item = frame.addItem({v.x,v.y,v.z},customDisplay or block)
				if doHighLight then
                    local highlight = obj.addBox(v.x-0.6,v.y-0.6,v.z-0.6,1.2,1.2,1.2)
                    highlight.setDepthTested(false)
                    highlight.setColor(conv(highlighter))
                    highlight.setAlpha(64)
				end
				frame.setDepthTested(false)
			else
				str = matches
			end
            rec.setSize(#str*5+2,20)
            text.setText(str)
		end
        sleep(scanSpeed or 0.5)
    end
end
local ok,err = pcall(main)
local clear = function()
	if c then c.clear() end
	if c3d then c3d.clear() end
end
clear()
if not ok then
	error(err,0)
end