Added forensic scanner wipe verb

It clutters up scanner console very much after each update, and selective deletion sounds like too much effort (can do it on console anyway).

code/modules/detectivework/scanner.dm

@@ -104,4 +104,12 @@
 	if(old)
 		fresh.merge(old)
 		. = 1
-	stored["\ref [A]"] = fresh
+	stored["\ref [A]"] = fresh
+
+/obj/item/device/detective_scanner/verb/wipe()
+	set name = "Wipe Forensic Data"
+	set category = "Object"
+	set src in view(1)
+	if (alert("Are you sure you want to wipe all data from [src]?",,"Yes","No") == "Yes")
+		stored = list()
+		usr << "<span class='notice'>Forensic data erase complete.</span>"