/obj/item/mining_scanner
	name = "deep scan device"
	desc = "A complex device used to locate ore deep underground."
	icon = 'icons/obj/device.dmi'
	icon_state = "deep_scan_device"
	item_state = "electronic"
	origin_tech = list(TECH_MAGNET = 1, TECH_ENGINEERING = 1)
	matter = list(MAT_STEEL = 150)
	var/scan_time = 2 SECONDS
	var/range = 2
	var/exact = FALSE

/obj/item/mining_scanner/attack_self(mob/user as mob)
	to_chat(user, span_notice("You begin sweeping \the [src] about, scanning for metal deposits."))
	playsound(src, 'sound/items/goggles_charge.ogg', 50, 1, -6)

	if(!do_after(user, scan_time))
		return

	ScanTurf(get_turf(user), user)

/obj/item/mining_scanner/proc/ScanTurf(var/atom/target, var/mob/user)
	var/list/metals = list(
		"surface minerals" = 0,
		"industrial metals" = 0,
		"precious metals" = 0,
		"precious gems" = 0,
		"nuclear fuel" = 0,
		"exotic matter" = 0,
		"anomalous matter" = 0
		)

	var/turf/Turf = get_turf(target)

	for(var/turf/simulated/T in range(range, Turf))

		if(!(T.turf_resource_types & TURF_HAS_MINERALS))
			continue

		for(var/metal in T.resources)
			var/ore_type

			switch(metal)
				if(ORE_SAND, ORE_CARBON, ORE_MARBLE, /*ORE_QUARTZ*/)	ore_type = "surface minerals"
				if(ORE_HEMATITE, /*ORE_TIN, ORE_COPPER, ORE_BAUXITE,*/ ORE_LEAD)	ore_type = "industrial metals"
				if(ORE_GOLD, ORE_SILVER, ORE_RUTILE)					ore_type = "precious metals"
				if(ORE_DIAMOND, /*ORE_PAINITE*/)	ore_type = "precious gems"
				if(ORE_URANIUM)									ore_type = "nuclear fuel"
				if(ORE_PHORON, ORE_PLATINUM, ORE_MHYDROGEN)				ore_type = "exotic matter"
				if(ORE_VERDANTIUM, /*ORE_VOPAL*/)				ore_type = "anomalous matter"

			if(ore_type) metals[ore_type] += T.resources[metal]

	var/message = "[icon2html(src, user.client)] " + span_notice("The scanner beeps and displays a readout.")

	for(var/ore_type in metals)
		var/result = "no sign"

		if(!exact)
			switch(metals[ore_type])
				if(1 to 25) result = "trace amounts"
				if(26 to 75) result = "significant amounts"
				if(76 to INFINITY) result = "huge quantities"

		else
			result = metals[ore_type]

		message += "<br>" + span_notice("- [result] of [ore_type].")

	to_chat(user, message)

/obj/item/mining_scanner/advanced
	name = "advanced ore detector"
	desc = "An advanced device used to locate ore deep underground."
	description_info = "This scanner has variable range, you can use the Set Scanner Range verb, or alt+click the device. Drills dig in 5x5."
	origin_tech = list(TECH_MAGNET = 4, TECH_ENGINEERING = 4)
	matter = list(MAT_STEEL = 150)
	scan_time = 0.5 SECONDS
	exact = TRUE

/obj/item/mining_scanner/advanced/AltClick(mob/user)
	change_size()

/obj/item/mining_scanner/advanced/verb/change_size()
	set name = "Set Scanner Range"
	set category = "Object"
	var/custom_range = tgui_input_list(usr, "Scanner Range","Pick a range to scan. ", list(0,1,2,3,4,5,6,7))
	if(custom_range)
		range = custom_range
		to_chat(usr, span_notice("Scanner will now look up to [range] tile(s) away."))