diff --git a/code/game/machinery/doppler_array.dm b/code/game/machinery/doppler_array.dm
index 527ed23639c..f06f7ac1b37 100644
--- a/code/game/machinery/doppler_array.dm
+++ b/code/game/machinery/doppler_array.dm
@@ -8,6 +8,20 @@ var/list/doppler_arrays = list()
 	density = 1
 	anchored = 1
 	atom_say_verb = "states coldly"
+	var/list/logged_explosions = list()
+
+/datum/explosion_log
+	var/logged_time
+	var/epicenter
+	var/actual_size_message
+	var/theoretical_size_message
+
+/datum/explosion_log/New(var/log_time, var/log_epicenter, var/log_actual_size_message, var/log_theoretical_size_message)
+	..()
+	logged_time = log_time
+	epicenter = log_epicenter
+	actual_size_message = log_actual_size_message
+	theoretical_size_message = log_theoretical_size_message
 
 /obj/machinery/doppler_array/New()
 	..()
@@ -15,6 +29,7 @@ var/list/doppler_arrays = list()
 
 /obj/machinery/doppler_array/Destroy()
 	doppler_arrays -= src
+	logged_explosions.Cut()
 	return ..()
 
 /obj/machinery/doppler_array/process()
@@ -34,53 +49,102 @@ var/list/doppler_arrays = list()
 	else
 		return ..()
 
-/obj/machinery/doppler_array/verb/rotate()
+/obj/machinery/doppler_array/attack_hand(mob/user)
+	if(..())
+		return
+	add_fingerprint(user)
+	ui_interact(user)
+
+/obj/machinery/doppler_array/attack_ghost(mob/user)
+	ui_interact(user)
+
+/obj/machinery/doppler_array/AltClick(mob/user)
+	rotate(user)
+
+/obj/machinery/doppler_array/verb/rotate(mob/user)
 	set name = "Rotate Tachyon-doppler Dish"
 	set category = "Object"
 	set src in oview(1)
 
-	if(!usr || !isturf(usr.loc))
+	if(user.incapacitated())
 		return
-	if(usr.stat || usr.restrained() || !usr.canmove)
+	if(!Adjacent(user))
 		return
-	src.dir = turn(src.dir, 90)
-	return
+	if(!user.IsAdvancedToolUser())
+		to_chat(user, "<span class='warning'>You don't have the dexterity to do that!</span>")
+		return
+	dir = turn(dir, 90)
+	to_chat(user, "<span class='notice'>You rotate [src].</span>")
+
+/obj/machinery/doppler_array/proc/print_explosive_logs(mob/user)
+	if(!logged_explosions.len)
+		atom_say("<span class='notice'>No logs currently stored in internal database.</span>")
+		return
+	if(active_timers)
+		to_chat(user, "<span class='notice'>[src] is already printing something, please wait.</span>")
+		return
+	atom_say("<span class='notice'>Printing explosive log. Standby...</span>")
+	addtimer(CALLBACK(src, .print), 50)
+
+/obj/machinery/doppler_array/proc/print()
+	visible_message("<span class='notice'>[src] prints a piece of paper!</span>")
+	playsound(loc, 'sound/goonstation/machines/printer_dotmatrix.ogg', 50, 1)
+	var/obj/item/paper/explosive_log/P = new(get_turf(src))
+	for(var/D in logged_explosions)
+		var/datum/explosion_log/E = D
+		P.info += "<tr>\
+		<td>[E.logged_time]</td>\
+		<td>[E.epicenter]</td>\
+		<td>[E.actual_size_message]</td>\
+		<td>[E.theoretical_size_message]</td>\
+		</tr>"
+	P.info += "</table><hr/>\
+	<em>Printed at [station_time_timestamp()].</em>"
 
 /obj/machinery/doppler_array/proc/sense_explosion(var/x0,var/y0,var/z0,var/devastation_range,var/heavy_impact_range,var/light_impact_range,
 												  var/took,var/orig_dev_range,var/orig_heavy_range,var/orig_light_range)
-	if(stat & NOPOWER)	return
-	if(z != z0)			return
+	if(stat & NOPOWER)
+		return
+	if(z != z0)
+		return
 
 	var/dx = abs(x0-x)
 	var/dy = abs(y0-y)
 	var/distance
 	var/direct
+	var/capped = FALSE
 
 	if(dx > dy)
 		distance = dx
-		if(x0 > x)	direct = EAST
-		else		direct = WEST
+		if(x0 > x)
+			direct = EAST
+		else
+			direct = WEST
 	else
 		distance = dy
-		if(y0 > y)	direct = NORTH
-		else		direct = SOUTH
-
-	if(distance > 100)		return
-	if(!(direct & dir))	return
+		if(y0 > y)
+			direct = NORTH
+		else
+			direct = SOUTH
 
+	if(distance > 100)
+		return
+	if(!(direct & dir))
+		return
 
 	var/list/messages = list("Explosive disturbance detected.", \
 							 "Epicenter at: grid ([x0],[y0]). Temporal displacement of tachyons: [took] seconds.", \
 							 "Factual: Epicenter radius: [devastation_range]. Outer radius: [heavy_impact_range]. Shockwave radius: [light_impact_range].")
 
-	// If the bomb was capped, say it's theoretical size.
+	// If the bomb was capped, say its theoretical size.
 	if(devastation_range < orig_dev_range || heavy_impact_range < orig_heavy_range || light_impact_range < orig_light_range)
+		capped = TRUE
 		messages += "Theoretical: Epicenter radius: [orig_dev_range]. Outer radius: [orig_heavy_range]. Shockwave radius: [orig_light_range]."
-
+	logged_explosions.Insert(1, new /datum/explosion_log(station_time_timestamp(), "[x0],[y0]", "[devastation_range], [heavy_impact_range], [light_impact_range]", capped ? "[orig_dev_range], [orig_heavy_range], [orig_light_range]" : "n/a")) //Newer logs appear first
+	messages += "Event successfully logged in internal database."
 	for(var/message in messages)
 		atom_say(message)
 
-
 /obj/machinery/doppler_array/power_change()
 	if(stat & BROKEN)
 		icon_state = "[initial(icon_state)]-broken"
@@ -90,4 +154,55 @@ var/list/doppler_arrays = list()
 			stat &= ~NOPOWER
 		else
 			icon_state = "[initial(icon_state)]-off"
-			stat |= NOPOWER
\ No newline at end of file
+			stat |= NOPOWER
+
+/obj/machinery/doppler_array/ui_interact(mob/user, ui_key = "main", var/datum/nanoui/ui = null, var/force_open = 1)
+	ui = SSnanoui.try_update_ui(user, src, ui_key, ui, force_open)
+	if(!ui)
+		ui = new(user, src, ui_key, "doppler_array.tmpl", "Tachyon-doppler array", 500, 650)
+		ui.open()
+		ui.set_auto_update(1)
+
+/obj/machinery/doppler_array/ui_data(mob/user, ui_key = "main", datum/topic_state/state = default_state)
+	var/data[0]
+	var/list/explosion_data = list()
+	for(var/D in logged_explosions)
+		var/datum/explosion_log/E = D
+		explosion_data += list(list(
+			"logged_time" = E.logged_time,
+			"epicenter" = E.epicenter,
+			"actual_size_message" = E.actual_size_message,
+			"theoretical_size_message" = E.theoretical_size_message,
+			"unique_datum_id" = E.UID()))
+	data["explosion_data"] = explosion_data
+	data["printing"] = active_timers
+	return data
+
+/obj/machinery/doppler_array/Topic(href, href_list)
+	if(..())
+		return
+	if(href_list["log_to_delete"])
+		var/log_to_delete = sanitize(href_list["log_to_delete"])
+		for(var/D in logged_explosions)
+			var/datum/explosion_log/E = D
+			if(E.UID() == log_to_delete)
+				logged_explosions -= E
+				qdel(E)
+				to_chat(usr, "<span class='notice'>Log deletion successful.</span>")
+				break
+	else if(href_list["print_logs"])
+		print_explosive_logs(usr)
+	else
+		return
+	SSnanoui.update_uis(src)
+
+/obj/item/paper/explosive_log
+	name = "explosive log"
+	info = "<h3>Explosive Log Report</h3>\
+	<table style='width:380px;text-align:left;'>\
+	<tr>\
+	<th>Time logged</th>\
+	<th>Epicenter</th>\
+	<th>Actual</th>\
+	<th>Theoretical</th>\
+	</tr>" //NB: the <table> tag is left open, it is closed later on, when the doppler array adds its data
diff --git a/nano/templates/doppler_array.tmpl b/nano/templates/doppler_array.tmpl
new file mode 100644
index 00000000000..d3bb40744b2
--- /dev/null
+++ b/nano/templates/doppler_array.tmpl
@@ -0,0 +1,25 @@
+<h2>Logged explosions:</h2>
+{{if data.explosion_data == 0}}
+	<p>No explosions logged this shift.</p>
+{{else}}
+	<div>
+		<span style="display:inline-block;width:20%;">Time logged</span>
+		<span style="display:inline-block;width:20%;">Epicenter</span>
+		<span style="display:inline-block;width:20%;">Actual size</span>
+		<span style="display:inline-block;width:25%;">Theoretical size<span>
+	</div>
+	<hr/>
+	{{for data.explosion_data}}
+		<div style = "min-height:30px;">
+			<span>
+				<span style="display:inline-block;width:20%;">{{:value.logged_time}}</span>
+				<span style="display:inline-block;width:20%;">{{:value.epicenter}}</span>
+				<span style="display:inline-block;width:20%;">{{:value.actual_size_message}}</span>
+				<span style="display:inline-block;width:25%;">{{:value.theoretical_size_message}}</span>
+				<span style="display:inline-block;width:15%;vertical-align:middle;">{{:helper.link("Delete", "trash", {"log_to_delete": value.unique_datum_id})}}</span>
+			</span>
+		</div>
+	{{/for}}
+	<br/>
+	{{:helper.link("Print all logs", "print", {"print_logs": 'yes'}, data.printing ? 'disabled' : null)}}
+{{/if}}