Adds randomlly spawning rooms to the mining asteroid that contain various goodies. (Among them are a modified traitor beacon, a cloaking device and a closet full of resources so you can go build your own honk.)

These rooms will spawn at least out of range of space and the explored pathways, so at the very least some mining is required to even detect them with mesons.
Adds a borg upgrade system. Right now, it just contians a borg reset module that allows the borg to choose their module again.  Adds some support code to borgs to suppot flashproofing and renaming.
Adds a few various admin commands like a quick-list of objects (which is hardcoded) and a command to break the local air group.

git-svn-id: http://tgstation13.googlecode.com/svn/trunk@3415 316c924e-a436-60f5-8080-3fe189b3f50e

code/modules/admin/admin.dm

@@ -1273,11 +1273,19 @@ var/global/BSACooldown = 0
 		else
 			alert("You are not a high enough administrator! Sorry!!!!")
 
+	if (href_list["quick_create_object"])
+		if (src.rank in list("Admin Candidate", "Trial Admin", "Badmin", "Game Admin", "Game Master"))
+			return quick_create_object(usr)
+		else
+			alert("You are not a high enough administrator! Sorry!!!!")
+
+
 	if (href_list["create_turf"])
 		if (src.rank in list("Admin Candidate", "Trial Admin", "Badmin", "Game Admin", "Game Master"))
 			return create_turf(usr)
 		else
 			alert("You are not a high enough administrator! Sorry!!!!")
+
 	if (href_list["create_mob"])
 		if (src.rank in list("Badmin", "Game Admin", "Game Master"))
 			return create_mob(usr)
@@ -2309,6 +2317,7 @@ var/global/BSACooldown = 0
 
 	if(lvl >= 3 )
 		dat += "<A href='?src=\ref[src];create_object=1'>Create Object</A><br>"
+		dat += "<A href='?src=\ref[src];quick_create_object=1'>Quick Create Object</A><br>"
 		dat += "<A href='?src=\ref[src];create_turf=1'>Create Turf</A><br>"
 	if(lvl >= 5)
 		dat += "<A href='?src=\ref[src];create_mob=1'>Create Mob</A><br>"

code/modules/admin/admin_verbs.dm

@@ -235,6 +235,7 @@
 			verbs += /client/proc/drop_bomb
 			verbs += /client/proc/cmd_admin_grantfullaccess
 			verbs += /client/proc/jump_to_dead_group
+			verbs += /client/proc/kill_airgroup
 			verbs += /client/proc/cmd_admin_drop_everything
 			verbs += /client/proc/make_sound
 			verbs += /client/proc/play_local_sound
@@ -411,6 +412,7 @@
 	//verbs -= /obj/admins/proc/unprison 								--Merged with player panel
 	//verbs -= /client/proc/cmd_switch_radio							--removed because tcommsat is staying
 	//verbs -= /client/proc/togglebuildmodeself							--removed due to runtimes
+	verbs -= /client/proc/kill_airgroup
 	return
 
 

code/modules/admin/create_object.dm

@@ -1,4 +1,5 @@
 /var/create_object_html = null
+
 /obj/admins/proc/create_object(var/mob/user)
 	if (!create_object_html)
 		var/objectjs = null
@@ -7,3 +8,21 @@
 		create_object_html = dd_replacetext(create_object_html, "null /* object types */", "\"[objectjs]\"")
 
 	user << browse(dd_replacetext(create_object_html, "/* ref src */", "\ref[src]"), "window=create_object;size=425x475")
+
+
+/obj/admins/proc/quick_create_object(var/mob/user)
+
+	var/quick_create_object_html = null
+	var/pathtext = null
+
+	pathtext = input("Select the path of the object you wish to create.", "Path", "/obj") in list("/obj","/obj/structure","/obj/item","/obj/machinery")
+
+	var path = text2path(pathtext)
+
+	if (!quick_create_object_html)
+		var/objectjs = null
+		objectjs = dd_list2text(typesof(path), ";")
+		quick_create_object_html = file2text('create_object.html')
+		quick_create_object_html = dd_replacetext(quick_create_object_html, "null /* object types */", "\"[objectjs]\"")
+
+	user << browse(dd_replacetext(quick_create_object_html, "/* ref src */", "\ref[src]"), "window=quick_create_object;size=425x475")

code/modules/admin/verbs/diagnostics.dm

@@ -195,6 +195,27 @@
 		usr.loc = pick(dest_group.members)
 		return
 
+	kill_airgroup()
+		set name = "Kill Local Airgroup"
+		set desc = "Use this to allow manual manupliation of atmospherics."
+		set category = "Debug"
+		if(!authenticated || !holder)
+			src << "Only administrators may use this command."
+			return
+
+		if(!air_master)
+			usr << "Cannot find air_system"
+			return
+
+		var/turf/T = get_turf(usr)
+		if(istype(T, /turf/simulated))
+			var/datum/air_group/AG = T:parent
+			AG.next_check = 30
+			AG.group_processing = 0
+		else
+			usr << "Local airgroup is unsimulated!"
+
+
 	tension_report()
 		set category = "Debug"
 		set name = "Show Tension Report"