Ported Uplinks, Door stuff, Hacktools, Compressed Matter implant.

code/WorkInProgress/Ported/Abi79/uplink_kits.dm

@@ -0,0 +1,53 @@
+/obj/item/weapon/storage/syndie_kit
+	name = "Box"
+	desc = "A sleek, sturdy box"
+	icon_state = "box_of_doom"
+	item_state = "syringe_kit"
+
+/obj/item/weapon/storage/syndie_kit/imp_freedom
+	name = "Freedom Implant (with injector)"
+
+/obj/item/weapon/storage/syndie_kit/imp_freedom/New()
+	var/obj/item/weapon/implanter/O = new /obj/item/weapon/implanter(src)
+	O.imp = new /obj/item/weapon/implant/freedom(O)
+	O.update()
+	..()
+	return
+
+/obj/item/weapon/storage/syndie_kit/imp_compress
+	name = "Compressed Matter Implant (with injector)"
+
+/obj/item/weapon/storage/syndie_kit/imp_compress/New()
+	new /obj/item/weapon/implanter/compressed(src)
+	..()
+	return
+
+/obj/item/weapon/storage/syndie_kit/imp_explosive
+	name = "Explosive Implant (with injector)"
+
+/obj/item/weapon/storage/syndie_kit/imp_explosive/New()
+	var/obj/item/weapon/implanter/O = new /obj/item/weapon/implanter(src)
+	O.imp = new /obj/item/weapon/implant/explosive(O)
+	O.name = "(BIO-HAZARD) BIO-detpack"
+	O.update()
+	..()
+	return
+
+/obj/item/weapon/storage/syndie_kit/imp_uplink
+	name = "Uplink Implant (with injector)"
+
+/obj/item/weapon/storage/syndie_kit/imp_uplink/New()
+	var/obj/item/weapon/implanter/O = new /obj/item/weapon/implanter(src)
+	O.imp = new /obj/item/weapon/implant/uplink(O)
+	O.update()
+	..()
+	return
+
+/obj/item/weapon/storage/syndie_kit/space
+	name = "Space Suit and Helmet"
+
+/obj/item/weapon/storage/syndie_kit/space/New()
+	new /obj/item/clothing/suit/space/syndicate(src)
+	new /obj/item/clothing/head/helmet/space/syndicate(src)
+	..()
+	return

code/WorkInProgress/Ported/Abi79/uplinks.dm

@@ -0,0 +1,337 @@
+/*
+
+SYNDICATE UPLINKS
+
+TO-DO:
+	Once wizard is fixed, make sure the uplinks work correctly for it. wizard.dm is right now uncompiled and with broken code in it.
+
+	Clean the code up and comment it. Part of it is right now copy-pasted, with the general Topic() and modifications by Abi79.
+
+		I should take a more in-depth look at both the copy-pasted code for the individual uplinks below, and at each gamemode's code
+		to see how uplinks are assigned and if there are any bugs with those.
+
+
+A list of items and costs is stored under the datum of every game mode, alongside the number of crystals, and the welcoming message.
+
+*/
+
+/obj/item/device/uplink
+	var/welcome 					// Welcoming menu message
+	var/menu_message = "" 			// The actual menu text
+	var/items						// List of items
+	var/list/ItemList				// Parsed list of items
+	var/uses 						// Numbers of crystals
+
+	New()
+		welcome = ticker.mode.uplink_welcome
+		items = dd_replacetext(ticker.mode.uplink_items, "\n", "")	// Getting the text string of items
+		ItemList = dd_text2list(src.items, ";")	// Parsing the items text string
+		uses = ticker.mode.uplink_uses
+
+//Let's build a menu!
+	proc/generate_menu()
+		src.menu_message = "<B>[src.welcome]</B><BR>"
+		src.menu_message += "Tele-Crystals left: [src.uses]<BR>"
+		src.menu_message += "<HR>"
+		src.menu_message += "<B>Request item:</B><BR>"
+		src.menu_message += "<I>Each item costs a number of tele-crystals as indicated by the number following their name.</I><BR>"
+
+		var/cost
+		var/item
+		var/name
+		var/path_obj
+		var/path_text
+		var/category_items = 1 //To prevent stupid :P
+
+		for(var/D in ItemList)
+			var/list/O = stringsplit(D, ":")
+			if(O.len != 3)	//If it is not an actual item, make a break in the menu.
+				if(category_items < 1)	//If there were no itens in the last category...
+					src.menu_message += "<i>We apologize, as you could not afford anything from this category.</i><br>"
+				if(O.len == 1)	//If there is one item, it's probably a title
+					src.menu_message += "<b>[O[1]]</b><br>"
+					category_items = 0
+				else	//Else, it's a white space.
+					src.menu_message += "<br>"
+				continue
+
+			path_text = O[1]
+			cost = text2num(O[2])
+
+			if(cost>uses)
+				continue
+
+			path_obj = text2path(path_text)
+			item = new path_obj()
+			name = O[3]
+			del item
+
+			src.menu_message += "<A href='byond://?src=\ref[src];buy_item=[path_text];cost=[cost]'>[name]</A> ([cost])<BR>"
+			category_items++
+
+		src.menu_message += "<HR>"
+		return
+
+	Topic(href, href_list)
+		if (href_list["buy_item"])
+			if(text2num(href_list["cost"]) > uses) // Not enough crystals for the item
+				return 0
+
+			if(usr:mind && ticker.mode.traitors[usr:mind])
+				var/datum/traitorinfo/info = ticker.mode.traitors[usr:mind]
+				info.spawnlist += href_list["buy_item"]
+
+			uses -= text2num(href_list["cost"])
+
+			return 1
+
+
+/*
+ *PDA uplink
+ */
+
+//Syndicate uplink hidden inside a traitor PDA
+//Communicate with traitor through the PDA's note function.
+
+/obj/item/device/uplink/pda
+	name = "uplink module"
+	desc = "An electronic uplink system of unknown origin."
+	icon = 'module.dmi'
+	icon_state = "power_mod"
+	var/obj/item/device/pda/hostpda = null
+
+	var/orignote = null 		//Restore original notes when locked.
+	var/active = 0 				//Are we currently active?
+	var/lock_code = "" 	//The unlocking password.
+
+	proc
+		unlock()
+			if ((isnull(src.hostpda)) || (src.active))
+				return
+
+			src.orignote = src.hostpda.note
+			src.active = 1
+			src.hostpda.mode = 1 //Switch right to the notes program
+
+			src.generate_menu()
+			print_to_host(menu_message)
+
+			for (var/mob/M in viewers(1, src.hostpda.loc))
+				if (M.client && M.machine == src.hostpda)
+					src.hostpda.attack_self(M)
+
+			return
+
+		print_to_host(var/text)
+			if (isnull(hostpda))
+				return
+			hostpda.note = text
+
+			for (var/mob/M in viewers(1, hostpda.loc))
+				if (M.client && M.machine == hostpda)
+					hostpda.attack_self(M)
+			return
+
+		shutdown_uplink()
+			if (isnull(src.hostpda))
+				return
+			active = 0
+			hostpda.note = orignote
+			if (hostpda.mode==1)
+				hostpda.mode = 0
+				hostpda.updateDialog()
+			return
+
+	attack_self(mob/user as mob)
+		src.generate_menu()
+		src.hostpda.note = src.menu_message
+
+
+	Topic(href, href_list)
+		if ((isnull(src.hostpda)) || (!src.active))
+			return
+
+		if (usr.stat || usr.restrained() || !in_range(src.hostpda, usr))
+			return
+
+		if(..() == 1) // We can afford the item
+			var/path_obj = text2path(href_list["buy_item"])
+			var/mob/A = src.hostpda.loc
+			var/item = new path_obj(get_turf(src.hostpda))
+			if(ismob(A)) //&& !istype(item, /obj/spawner))
+				if(!A.r_hand)
+					item:loc = A
+					A.r_hand = item
+					item:layer = 20
+				else if(!A.l_hand)
+					item:loc = A
+					A.l_hand = item
+					item:layer = 20
+			usr.update_clothing()
+	//		usr.client.onBought("[item:name]")	When we have the stats again, uncomment.
+	/*		if(istype(item, /obj/spawner)) // Spawners need to have del called on them to avoid leaving a marker behind
+				del item*/
+	//HEADFINDBACK
+		src.attack_self(usr)
+		src.hostpda.attack_self(usr)
+		return
+
+
+/*
+ *Portable radio uplink
+ */
+
+//A Syndicate uplink disguised as a portable radio
+/obj/item/device/uplink/radio/implanted
+	uses = 5
+
+/obj/item/device/uplink/radio
+	name = "ship bounced radio"
+	icon = 'device.dmi'
+	icon_state = "radio"
+	var/temp = null 			//Temporary storage area for a message offering the option to destroy the radio
+	var/selfdestruct = 0		//Set to 1 while the radio is self destructing itself.
+	var/obj/item/device/radio/origradio = null
+	flags = FPRINT | TABLEPASS | CONDUCT | ONBELT
+	w_class = 2.0
+	item_state = "radio"
+	throwforce = 5
+	throw_speed = 4
+	throw_range = 20
+	m_amt = 100
+
+	attack_self(mob/user as mob)
+		var/dat
+
+		if (src.selfdestruct)
+			dat = "Self Destructing..."
+		else
+			if (src.temp)
+				dat = "[src.temp]<BR><BR><A href='byond://?src=\ref[src];clear_selfdestruct=1'>Clear</A>"
+			else
+				src.generate_menu()
+				dat = src.menu_message
+				if (src.origradio) // Checking because sometimes the radio uplink may be spawned by itself, not as a normal unlockable radio
+					dat += "<A href='byond://?src=\ref[src];lock=1'>Lock</A><BR>"
+					dat += "<HR>"
+				dat += "<A href='byond://?src=\ref[src];selfdestruct=1'>Self-Destruct</A>"
+
+		user << browse(dat, "window=radio")
+		onclose(user, "radio")
+		return
+
+	Topic(href, href_list)
+		if (usr.stat || usr.restrained())
+			return
+
+		var/mob/living/carbon/human/H = usr
+
+		if (!( istype(H, /mob/living/carbon/human)))
+			return 1
+
+		if ((usr.contents.Find(src) || (in_range(src, usr) && istype(src.loc, /turf))))
+			usr.machine = src
+
+			if(href_list["buy_item"])
+				if(..() == 1) // We can afford the item
+					var/path_obj = text2path(href_list["buy_item"])
+					var/item = new path_obj(get_turf(src.loc))
+					var/mob/A = src.loc
+					if(ismob(A)) //&& !istype(item, /obj/spawner))
+						if(!A.r_hand)
+							item:loc = A
+							A.r_hand = item
+							item:layer = 20
+					else if(!A.l_hand)
+						item:loc = A
+						A.l_hand = item
+						item:layer = 20
+	/*				if(istype(item, /obj/spawner)) // Spawners need to have del called on them to avoid leaving a marker behind
+						del item*/
+	//				usr.client.onBought("[item:name]")	When we have the stats again, uncomment.
+				src.attack_self(usr)
+				return
+
+			else if (href_list["lock"] && src.origradio)
+				// presto chango, a regular radio again! (reset the freq too...)
+				usr.machine = null
+				usr << browse(null, "window=radio")
+				var/obj/item/device/radio/T = src.origradio
+				var/obj/item/device/uplink/radio/R = src
+				R.loc = T
+				T.loc = usr
+				// R.layer = initial(R.layer)
+				R.layer = 0
+				if (usr.client)
+					usr.client.screen -= R
+				if (usr.r_hand == R)
+					usr.u_equip(R)
+					usr.r_hand = T
+
+				else
+					usr.u_equip(R)
+					usr.l_hand = T
+				R.loc = T
+				T.layer = 20
+				T.set_frequency(initial(T.frequency))
+				T.attack_self(usr)
+				return
+
+			else if (href_list["selfdestruct"])
+				src.temp = "<A href='byond://?src=\ref[src];selfdestruct2=1'>Self-Destruct</A>"
+
+			else if (href_list["selfdestruct2"])
+				src.selfdestruct = 1
+				spawn (100)
+					explode()
+					return
+
+			else if (href_list["clear_selfdestruct"])
+				src.temp = null
+
+			if (istype(src.loc, /mob))
+				attack_self(src.loc)
+			else
+				for(var/mob/M in viewers(1, src))
+					if (M.client)
+						src.attack_self(M)
+		return
+
+	proc/explode()
+		var/turf/location = get_turf(src.loc)
+		if(location)
+			location.hotspot_expose(700,125)
+			explosion(location, 0, 0, 2, 4, 1)
+
+		del(src.master)
+		del(src)
+		return
+
+	proc/shutdown_uplink()
+		if (!src.origradio)
+			return
+		var/list/nearby = viewers(1, src)
+		for(var/mob/M in nearby)
+			if (M.client && M.machine == src)
+				M << browse(null, "window=radio")
+				M.machine = null
+
+		var/obj/item/device/radio/T = src.origradio
+		var/obj/item/weapon/syndicate_uplink/R = src
+		var/mob/L = src.loc
+		R.loc = T
+		T.loc = L
+		// R.layer = initial(R.layer)
+		R.layer = 0
+		if (istype(L))
+			if (L.client)
+				L.client.screen -= R
+			if (L.r_hand == R)
+				L.u_equip(R)
+				L.r_hand = T
+			else
+				L.u_equip(R)
+				L.l_hand = T
+			T.layer = 20
+		T.set_frequency(initial(T.frequency))
+		return

code/WorkInProgress/Ported/Bureaucracy/copier.dm

@@ -0,0 +1,156 @@
+// Contains: copy machine
+
+/obj/machinery/copier
+	name = "Copy Machine"
+	icon = 'bureaucracy.dmi'
+	icon_state = "copier"
+	density = 1
+	anchored = 1
+	var/num_copies = 1		// number of copies selected, will be maintained between jobs
+	var/copying = 0			// are we copying
+	var/job_num_copies = 0	// number of copies remaining
+	var/top_open = 1		// the top is open
+	var/obj/item/weapon/template // the paper OR photo being scanned
+	var/copy_wait = 0		// wait for current page to finish
+	var/max_copies = 10		// MAP EDITOR: can set the number of max copies, possibly to 5 or something for public, more for QM, robutist, etc.
+
+/obj/machinery/copier/New()
+	..()
+	update()
+
+/obj/machinery/copier/attackby(obj/item/weapon/O as obj, mob/user as mob)
+	if(!top_open)
+		return
+
+	if (istype(O, /obj/item/weapon/paper) || istype(O, /obj/item/weapon/photo))
+		// put it inside
+		template = O
+		usr.drop_item()
+		O.loc = src
+		top_open = 0
+		update()
+		updateDialog()
+
+/obj/machinery/copier/attack_paw(user as mob)
+	return src.attack_hand(user)
+
+/obj/machinery/copier/attack_ai(user as mob)
+	return src.attack_hand(user)
+
+/obj/machinery/copier/attack_hand(user as mob)
+	// da UI
+	var/dat
+	if(..())
+		return
+
+	if(src.stat)
+		user << "[name] does not seem to be responding to your button mashing."
+		return
+
+	/*
+	if(top_open)
+		user << "[name] beeps, \"Please place a paper on top and close the lid.\""
+		return
+	*/
+
+	dat = "<HEAD><TITLE>Copy Machine</TITLE></HEAD><TT><b>Xeno Corp. Copying Machine</b><hr>"
+
+	if(copying)
+		dat += "[job_num_copies] copies remaining.<br><br>"
+		dat += "<A href='?src=\ref[src];cancel=1'>Cancel</a>"
+	else
+		if(!top_open)
+			dat += "<A href='?src=\ref[src];open=1'>Open Top</a><br><br>"
+
+		dat += "Number of Copies: "
+
+		dat += "<A href='?src=\ref[src];num=-10'>-</a>"
+		dat += "<A href='?src=\ref[src];num=-1'>-</a>"
+		dat += " [num_copies] "
+		dat += "<A href='?src=\ref[src];num=1'>+</a>"
+		dat += "<A href='?src=\ref[src];num=10'>+</a><br><br>"
+
+		if(template)
+			dat += "<A href='?src=\ref[src];copy=1'>Copy</a>"
+		else
+			dat += "<b>No paper to be copied.<br>"
+			dat += "Please place a paper or photograph on top and close the lid.</b>"
+
+	dat += "<hr></TT>"
+
+	user << browse(dat, "window=copy_machine")
+	onclose(user, "copy_machine")
+
+/obj/machinery/copier/proc/update()
+	if(top_open)
+		icon_state = "copier_o"
+	else if(copying)
+		icon_state = "copier_s"
+	else
+		icon_state = "copier"
+
+/obj/machinery/copier/Topic(href, href_list)
+	if(..())
+		return
+	usr.machine = src
+	src.add_fingerprint(usr)
+
+	if(href_list["num"])
+		num_copies += text2num(href_list["num"])
+		if(num_copies < 1)
+			num_copies = 1
+		else if(num_copies > max_copies)
+			num_copies = max_copies
+		updateDialog()
+	if(href_list["open"])
+		template.loc = src.loc
+		template = null
+		top_open = 1
+		updateDialog()
+		update()
+	if(href_list["copy"])
+		copying = 1
+		job_num_copies = num_copies
+		update()
+		updateDialog()
+	if(href_list["cancel"])
+		copying = 0
+		job_num_copies = 0
+		update()
+		updateDialog()
+
+/obj/machinery/copier/process()
+	if(src.stat)
+		usr << "[name] does not seem to be responding to your button mashing."
+		return
+
+	if(copying && !copy_wait)
+		copy_wait = 1
+		// make noise
+		playsound(src, 'polaroid1.ogg', 50, 1)
+		spawn(5)
+			if(!copying)
+				return // user cancelled
+
+			if(istype(template, /obj/item/weapon/paper))
+				// make duplicate paper
+				var/obj/item/weapon/paper/P = new(src.loc)
+				P.name = template.name
+				P.info = template:info
+				P.stamped = template:stamped
+				P.icon_state = template.icon_state
+			else if(istype(template, /obj/item/weapon/photo))
+				// make duplicate photo
+				var/obj/item/weapon/photo/P = new(src.loc)
+				P.name = template.name
+				P.desc = template.desc
+				P.icon = template.icon
+
+			// copy counting stuff
+			job_num_copies -= 1
+			if(job_num_copies == 0)
+				usr << "[name] beeps happily."
+				copying = 0
+				update()
+			updateDialog()
+			copy_wait = 0

code/WorkInProgress/Ported/Bureaucracy/filing.dm

@@ -0,0 +1,23 @@
+/obj/structure/filingcabinet
+	name = "Filing Cabinet"
+	desc = "A large cabinet with drawers."
+	icon = 'computer.dmi'
+	icon_state = "messyfiles"
+	density = 1
+	anchored = 1
+
+/obj/structure/filingcabinet/attackby(obj/item/weapon/paper/P,mob/M)
+	if(istype(P))
+		M << "You put the [P] in the [src]."
+		M.drop_item()
+		P.loc = src
+	else
+		M << "You can't put a [P] in the [src]!"
+
+/obj/structure/filingcabinet/attack_hand(mob/user)
+	if(src.contents.len <= 0)
+		user << "The [src] is empty."
+		return
+	var/obj/item/weapon/paper/P = input(user,"Choose a sheet to take out.","[src]", "Cancel") as null|obj in src.contents
+	if(in_range(src,user))
+		P.loc = user.loc

code/WorkInProgress/Ported/Spawners/spawner.dm

@@ -0,0 +1,208 @@
+/obj/spawner
+	name = "object spawner"
+
+/obj/spawner/bomb
+	name = "bomb"
+	icon = 'screen1.dmi'
+	icon_state = "x"
+	var/btype = 0  //0 = radio, 1= prox, 2=time
+	var/explosive = 1	// 0= firebomb
+	var/btemp = 500	// bomb temperature (degC)
+	var/active = 0
+
+/obj/spawner/bomb/radio
+	btype = 0
+
+/obj/spawner/bomb/proximity
+	btype = 1
+
+/obj/spawner/bomb/timer
+	btype = 2
+
+/obj/spawner/bomb/timer/syndicate
+	btemp = 450
+
+/obj/spawner/bomb/suicide
+	btype = 3
+
+/obj/spawner/newbomb
+	// Remember to delete it if you use it for anything else other than uplinks. See the commented line in its New() - Abi
+	// Going in depth: the reason we do not do a Del() in its New()is because then we cannot access its properties.
+	// I might be doing this wrong / not knowing of a Byond function. If I'm doing it wrong, let me know please.
+	name = "bomb"
+	icon = 'screen1.dmi'
+	icon_state = "x"
+	var/btype = 0 // 0=radio, 1=prox, 2=time
+	var/btemp1 = 1500
+	var/btemp2 = 1000	// tank temperatures
+
+/obj/spawner/newbomb/timer
+	btype = 2
+
+/obj/spawner/newbomb/timer/syndicate
+	name = "Low-Yield Bomb"
+	btemp1 = 1500
+	btemp2 = 1000
+
+/obj/spawner/newbomb/proximity
+	btype = 1
+
+/obj/spawner/newbomb/radio
+	btype = 0
+
+/obj/spawner/bomb/New()
+	..()
+
+	switch (src.btype)
+		// radio
+		if (0)
+			var/obj/item/assembly/r_i_ptank/R = new /obj/item/assembly/r_i_ptank(src.loc)
+			var/obj/item/weapon/tank/plasma/p3 = new /obj/item/weapon/tank/plasma(R)
+			var/obj/item/device/radio/signaler/p1 = new /obj/item/device/radio/signaler(R)
+			var/obj/item/device/igniter/p2 = new /obj/item/device/igniter(R)
+			R.part1 = p1
+			R.part2 = p2
+			R.part3 = p3
+			p1.master = R
+			p2.master = R
+			p3.master = R
+			R.status = explosive
+			p1.b_stat = 0
+			p2.status = 1
+			p3.air_contents.temperature = btemp + T0C
+
+		// proximity
+		if (1)
+			var/obj/item/assembly/m_i_ptank/R = new /obj/item/assembly/m_i_ptank(src.loc)
+			var/obj/item/weapon/tank/plasma/p3 = new /obj/item/weapon/tank/plasma(R)
+			var/obj/item/device/prox_sensor/p1 = new /obj/item/device/prox_sensor(R)
+			var/obj/item/device/igniter/p2 = new /obj/item/device/igniter(R)
+			R.part1 = p1
+			R.part2 = p2
+			R.part3 = p3
+			p1.master = R
+			p2.master = R
+			p3.master = R
+			R.status = explosive
+
+			p3.air_contents.temperature = btemp + T0C
+			p2.status = 1
+
+			if(src.active)
+				R.part1.state = 1
+				R.part1.icon_state = text("motion[]", 1)
+				R.c_state(1, src)
+
+		// timer
+		if (2)
+			var/obj/item/assembly/t_i_ptank/R = new /obj/item/assembly/t_i_ptank(src.loc)
+			var/obj/item/weapon/tank/plasma/p3 = new /obj/item/weapon/tank/plasma(R)
+			var/obj/item/device/timer/p1 = new /obj/item/device/timer(R)
+			var/obj/item/device/igniter/p2 = new /obj/item/device/igniter(R)
+			R.part1 = p1
+			R.part2 = p2
+			R.part3 = p3
+			p1.master = R
+			p2.master = R
+			p3.master = R
+			R.status = explosive
+
+			p3.air_contents.temperature = btemp + T0C
+			p2.status = 1
+		//bombvest
+		if(3)
+			var/obj/item/clothing/suit/armor/a_i_a_ptank/R = new /obj/item/clothing/suit/armor/a_i_a_ptank(src.loc)
+			var/obj/item/weapon/tank/plasma/p4 = new /obj/item/weapon/tank/plasma(R)
+			var/obj/item/device/healthanalyzer/p1 = new /obj/item/device/healthanalyzer(R)
+			var/obj/item/device/igniter/p2 = new /obj/item/device/igniter(R)
+			var/obj/item/clothing/suit/armor/vest/p3 = new /obj/item/clothing/suit/armor/vest(R)
+			R.part1 = p1
+			R.part2 = p2
+			R.part3 = p3
+			R.part4 = p4
+			p1.master = R
+			p2.master = R
+			p3.master = R
+			p4.master = R
+			R.status = explosive
+
+			p4.air_contents.temperature = btemp + T0C
+			p2.status = 1
+
+	del(src)
+
+
+/obj/spawner/newbomb/New()
+	..()
+
+	switch (src.btype)
+		// radio
+		if (0)
+
+			var/obj/item/device/transfer_valve/V = new(src.loc)
+			var/obj/item/weapon/tank/plasma/PT = new(V)
+			var/obj/item/weapon/tank/oxygen/OT = new(V)
+
+			var/obj/item/device/radio/signaler/S = new(V)
+
+			V.tank_one = PT
+			V.tank_two = OT
+			V.attached_device = S
+
+			S.master = V
+			PT.master = V
+			OT.master = V
+
+			S.b_stat = 0
+
+			PT.air_contents.temperature = btemp1 + T0C
+			OT.air_contents.temperature = btemp2 + T0C
+
+			V.update_icon()
+
+		// proximity
+		if (1)
+
+			var/obj/item/device/transfer_valve/V = new(src.loc)
+			var/obj/item/weapon/tank/plasma/PT = new(V)
+			var/obj/item/weapon/tank/oxygen/OT = new(V)
+
+			var/obj/item/device/prox_sensor/P = new(V)
+
+			V.tank_one = PT
+			V.tank_two = OT
+			V.attached_device = P
+
+			P.master = V
+			PT.master = V
+			OT.master = V
+
+
+			PT.air_contents.temperature = btemp1 + T0C
+			OT.air_contents.temperature = btemp2 + T0C
+
+			V.update_icon()
+
+
+		// timer
+		if (2)
+			var/obj/item/device/transfer_valve/V = new(src.loc)
+			var/obj/item/weapon/tank/plasma/PT = new(V)
+			var/obj/item/weapon/tank/oxygen/OT = new(V)
+
+			var/obj/item/device/timer/T = new(V)
+
+			V.tank_one = PT
+			V.tank_two = OT
+			V.attached_device = T
+
+			T.master = V
+			PT.master = V
+			OT.master = V
+			T.time = 30
+
+			PT.air_contents.temperature = btemp1 + T0C
+			OT.air_contents.temperature = btemp2 + T0C
+
+			V.update_icon()
+	//del(src)

code/WorkInProgress/Ported/ZeroPoint/Laser2.dm

@@ -0,0 +1,128 @@
+/obj/machinery/engine/laser
+	name = "Zero-point laser"
+	desc = "A super-powerful laser"
+	var/visible = 1
+	var/state = 1.0
+	var/obj/beam/e_beam/first
+	var/power = 500
+	icon = 'engine.dmi'
+	icon_state = "laser"
+	anchored = 1
+	var/id
+	var/on = 0
+	var/freq = 50000
+	var/phase = 0
+	var/phase_variance = 0
+
+/obj/machinery/engine/laser/process()
+	if(on)
+		if(!first)
+			src.first = new /obj/beam/e_beam(src.loc)
+			src.first.master = src
+			src.first.dir = src.dir
+			src.first.power = src.power
+			src.first.freq = src.freq
+			src.first.phase = src.phase
+			src.first.phase_variance = src.phase_variance
+			step(first, dir)
+			if(first)
+				src.first.updatebeam()
+		else
+			src.first.updatebeam()
+	else
+		if(first)
+			del first
+
+/obj/machinery/engine/laser/proc/setpower(var/powera)
+	src.power = powera
+	if(first)
+		first.setpower(src.power)
+
+
+/obj/beam/e_beam
+	name = "Laser beam"
+	icon = 'projectiles.dmi'
+	icon_state = "u_laser"
+	var/obj/machinery/engine/laser/master = null
+	var/obj/beam/e_beam/next = null
+	var/power
+	var/freq = 50000
+	var/phase = 0
+	var/phase_variance = 0
+	anchored = 1
+
+/obj/beam/e_beam/New()
+	src.sd_SetLuminosity(4)
+
+/obj/beam/e_beam/proc/updatebeam()
+	if(!next)
+		if(get_step(src.loc,src.dir))
+			var/obj/beam/e_beam/e = new /obj/beam/e_beam(src.loc)
+			e.dir = src.dir
+			src.next = e
+			e.master = src.master
+			e.power = src.power
+			e.phase = src.phase
+			src.phase+=src.phase_variance
+			e.freq = src.freq
+			e.phase_variance = src.phase_variance
+			if(src.loc.density == 0)
+				for(var/atom/o in src.loc.contents)
+					if(o.density || o == src.master || (ismob(o) && !istype(o, /mob/dead)) )
+						o.laser_act(src)
+						del src
+						return
+			else
+				src.loc.laser_act(src)
+				del e
+				return
+			step(e,e.dir)
+			if(e)
+				e.updatebeam()
+	else
+		next.updatebeam()
+
+/atom/proc/laser_act(var/obj/beam/e_beam/b)
+	return
+
+/mob/living/carbon/laser_act(var/obj/beam/e_beam/b)
+	for(var/t in organs)
+		var/datum/organ/external/affecting = organs["[t]"]
+		if (affecting.take_damage(0, b.power/400,0,0))
+			UpdateDamageIcon()
+		else
+			UpdateDamage()
+
+/obj/beam/e_beam/Bump(atom/Obstacle)
+	Obstacle.laser_act(src)
+	del(src)
+	return
+
+
+/obj/beam/e_beam/proc/setpower(var/powera)
+	src.power = powera
+	if(src.next)
+		src.next.setpower(powera)
+
+/obj/beam/e_beam/Bumped()
+	src.hit()
+	return
+
+/obj/beam/e_beam/HasEntered(atom/movable/AM as mob|obj)
+	if (istype(AM, /obj/beam))
+		return
+	spawn( 0 )
+		AM.laser_act(src)
+		src.hit()
+		return
+	return
+
+/obj/beam/e_beam/Del()
+	if(next)
+		del(next)
+	..()
+	return
+
+/obj/beam/e_beam/proc/hit()
+	del src
+	return

code/WorkInProgress/Ported/ZeroPoint/LaserComputer.dm

@@ -0,0 +1,130 @@
+//The laser control computer
+//Used to control the lasers
+/obj/machinery/computer/lasercon
+	name = "Laser control computer"
+	var/obj/machinery/engine/laser/laser = null
+	icon_state = "atmos"
+	var/id
+	var/advanced = 0
+
+/obj/machinery/computer/lasercon/New()
+	spawn(1)
+		if(istype(src.id,/list))
+			laser = list()
+			for(var/obj/machinery/engine/laser/las in world)
+				if(las.id in src.id)
+					laser += las
+		else
+			for(var/obj/machinery/engine/laser/las in world)
+				if(las.id == src.id)
+					laser = list(las)
+
+
+
+/obj/machinery/computer/lasercon/attack_ai(mob/user)
+	add_fingerprint(user)
+
+	if(stat & (BROKEN|NOPOWER))
+		return
+	interact(user)
+
+/obj/machinery/computer/lasercon/attack_hand(mob/user)
+	add_fingerprint(user)
+
+	if(stat & (BROKEN|NOPOWER))
+		return
+	interact(user)
+
+
+/obj/machinery/computer/lasercon/proc/interact(mob/user)
+
+	if ( (get_dist(src, user) > 1 ) || (stat & (BROKEN|NOPOWER)) )
+		if (!istype(user, /mob/living/silicon))
+			user.machine = null
+			user << browse(null, "window=powcomp")
+			return
+
+
+	user.machine = src
+	var/t = "<TT><B>Laser status monitor</B><HR>"
+
+	var/obj/machinery/engine/laser/laser = src.laser[1]
+
+	if(!laser)
+		t += "\red No laser found"
+	else
+
+
+		t += "Power level:  <A href = '?src=\ref[src];input=-4'>-</A> <A href = '?src=\ref[src];input=-3'>-</A> <A href = '?src=\ref[src];input=-2'>-</A> <A href = '?src=\ref[src];input=-1'>-</A> [add_lspace(laser.power,5)] <A href = '?src=\ref[src];input=1'>+</A> <A href = '?src=\ref[src];input=2'>+</A> <A href = '?src=\ref[src];input=3'>+</A> <A href = '?src=\ref[src];input=4'>+</A><BR>"
+		if(advanced)
+			t += "Frequency:  <A href = '?src=\ref[src];freq=-10000'>-</A> <A href = '?src=\ref[src];freq=-1000'>-</A> [add_lspace(laser.freq,5)] <A href = '?src=\ref[src];freq=1000'>+</A> <A href = '?src=\ref[src];freq=10000'>+</A><BR>"
+
+		t += "Output: [laser.on ? "<B>Online</B> <A href = '?src=\ref[src];online=1'>Offline</A>" : "<A href = '?src=\ref[src];online=1'>Online</A> <B>Offline</B> "]<BR>"
+
+		t += "<BR><HR><A href='?src=\ref[src];close=1'>Close</A></TT>"
+
+	user << browse(t, "window=lascomp;size=420x700")
+	onclose(user, "lascomp")
+
+
+/obj/machinery/computer/lasercon/Topic(href, href_list)
+	..()
+	if( href_list["close"] )
+		usr << browse(null, "window=lascomp")
+		usr.machine = null
+		return
+
+	else if( href_list["input"] )
+		var/i = text2num(href_list["input"])
+		var/d = 0
+		switch(i)
+			if(-4)
+				d = -1000
+			if(4)
+				d = 1000
+			if(1)
+				d = 1
+			if(-1)
+				d = -1
+			if(2)
+				d = 10
+			if(-2)
+				d = -10
+			if(3)
+				d = 100
+			if(-3)
+				d = -100
+		for(var/obj/machinery/engine/laser/laser in src.laser)
+			laser.power += d
+			laser.setpower(max(1, min(3000, laser.power)))// clamp to range
+			src.updateDialog()
+	else if( href_list["online"] )
+		for(var/obj/machinery/engine/laser/laser in src.laser)
+			laser.on = !laser.on
+			src.updateDialog()
+	else if( href_list["freq"] )
+		var/amt = text2num(href_list["freq"])
+		for(var/obj/machinery/engine/laser/laser in src.laser)
+			if(laser.freq+amt>0)
+				laser.freq+=amt
+				src.updateDialog()
+/obj/machinery/computer/lasercon/process()
+	if(!(stat & (NOPOWER|BROKEN)) )
+		use_power(250)
+
+	//src.updateDialog()
+
+
+/obj/machinery/computer/lasercon/power_change()
+
+	if(stat & BROKEN)
+		icon_state = "broken"
+	else
+		if( powered() )
+			icon_state = initial(icon_state)
+			stat &= ~NOPOWER
+		else
+			spawn(rand(0, 15))
+				src.icon_state = "c_unpowered"
+				stat |= NOPOWER
+

code/WorkInProgress/Ported/ZeroPoint/SuperMatter.dm

@@ -0,0 +1,120 @@
+#define NITROGEN_RETARDATION_FACTOR 4	//Higher == N2 slows reaction more
+#define THERMAL_RELEASE_MODIFIER 50		//Higher == less heat released during reaction
+#define PLASMA_RELEASE_MODIFIER 750		//Higher == less plasma released by reaction
+#define OXYGEN_RELEASE_MODIFIER 1500	//Higher == less oxygen released at high temperature/power
+#define REACTION_POWER_MODIFIER 1.1		//Higher == more overall power
+
+/obj/machinery/engine/supermatter
+	name = "Supermatter"
+	desc = "A strangely translucent and iridescent crystal.  \red You get headaches just from looking at it."
+	icon = 'engine.dmi'
+	icon_state = "darkmatter"
+	density = 1
+	anchored = 1
+
+	var/gasefficency = 0.25
+
+	var/det = 0
+	var/previousdet = 0
+	var/const/explosiondet = 3500
+
+	var/const/warningtime = 50 	// Make the CORE OVERLOAD message repeat only every aprox. ?? seconds
+	var/lastwarning = 0			// Time in 1/10th of seconds since the last sent warning
+
+/obj/machinery/engine/klaxon
+	name = "Emergency Klaxon"
+	icon = 'engine.dmi'
+	icon_state = "darkmatter"
+	density = 1
+	anchored = 1
+	var/obj/machinery/engine/supermatter/sup
+
+/obj/machinery/engine/klaxon/process()
+	if(!sup)
+		for(var/obj/machinery/engine/supermatter/T in world)
+			sup = T
+			break
+	if(sup.det >= 1)
+		return
+
+/obj/machinery/engine/supermatter/process()
+
+	var/turf/simulated/L = loc
+
+	//Ok, get the air from the turf
+	var/datum/gas_mixture/env = L.return_air()
+
+	//Remove gas from surrounding area
+	var/transfer_moles = gasefficency * env.total_moles()
+	var/datum/gas_mixture/removed = env.remove(transfer_moles)
+
+	previousdet = det
+	det += (removed.temperature - 1000) / 150
+	det = max(det, 0)
+
+	if(det > 0 && removed.temperature > 1000) // while the core is still damaged and it's still worth noting its status
+		if((world.realtime - lastwarning) / 10 >= warningtime)
+			lastwarning = world.realtime
+			if(explosiondet - det <= 300)
+				radioalert("CORE EXPLOSION IMMINENT","Core control computer")
+			else if(det >= previousdet)   // The damage is still going up
+				radioalert("CORE OVERLOAD","Core control computer")
+			else						  // Phew, we're safe
+				radioalert("Core returning to safe operating levels.","Core control computer")
+
+	if(det > explosiondet)
+		roundinfo.core = 1
+		//proc/explosion(turf/epicenter, devastation_range, heavy_impact_range, light_impact_range, flash_range, force = 0)
+		explosion(src.loc,8,15,20,30,1)
+		det = 0
+
+	if (!removed)
+		return 1
+
+	var/power = max(round((removed.temperature - T0C) / 20), 0) //Total laser power plus an overload factor
+
+	//Get the collective laser power
+	for(var/dir in cardinal)
+		var/turf/T = get_step(L, dir)
+		for(var/obj/beam/e_beam/item in T)
+			power += item.power
+
+	//Ok, 100% oxygen atmosphere = best reaction
+	//Maxes out at 100% oxygen pressure
+	var/oxygen = max(min((removed.oxygen - (removed.nitrogen * NITROGEN_RETARDATION_FACTOR)) / MOLES_CELLSTANDARD, 1), 0)
+
+	var/device_energy = oxygen * power
+
+	device_energy *= removed.temperature / T0C
+
+	device_energy = round(device_energy * REACTION_POWER_MODIFIER)
+
+	//To figure out how much temperature to add each tick, consider that at one atmosphere's worth
+	//of pure oxygen, with all four lasers firing at standard energy and no N2 present, at room temperature
+	//that the device energy is around 2140.  At that stage, we don't want too much heat to be put out
+	//Since the core is effectively "cold"
+
+	//Also keep in mind we are only adding this temperature to (efficiency)% of the one tile the rock
+	//is on.  An increase of 4*C @ 25% efficiency here results in an increase of 1*C / (#tilesincore) overall.
+	removed.temperature += max((device_energy / THERMAL_RELEASE_MODIFIER), 0)
+
+	removed.temperature = min(removed.temperature, 1500)
+
+	//Calculate how much gas to release
+	removed.toxins += max(round(device_energy / PLASMA_RELEASE_MODIFIER), 0)
+
+	removed.oxygen += max(round((device_energy + removed.temperature - T0C) / OXYGEN_RELEASE_MODIFIER), 0)
+
+	env.merge(removed)
+
+//Not functional currently. -- SkyMarshal
+/*
+	for(var/mob/living/carbon/l in view(src, 6)) // you have to be seeing the core to get hallucinations
+		if(prob(10) && !(l.glasses && istype(l.glasses, /obj/item/clothing/glasses/meson)))
+			l.hallucination = 50
+*/
+	for(var/mob/living/l in view(src,3))
+		l.bruteloss += 50
+		l.updatehealth()
+
+	return 1

code/WorkInProgress/Ported/head.dm

@@ -0,0 +1,54 @@
+//This looks to be the traitor win tracker code.  Gonna comment it out as we lack it currently.
+/*
+client/proc/add_roundsjoined()
+	if(!makejson)
+		return
+	var/DBQuery/cquery = dbcon.NewQuery("INSERT INTO `roundsjoined` (`ckey`) VALUES ('[ckey(src.key)]')")
+	if(!cquery.Execute()) message_admins(cquery.ErrorMsg())
+client/proc/add_roundssurvived()
+	if(!makejson)
+		return
+	var/DBQuery/cquery = dbcon.NewQuery("INSERT INTO `roundsurvived` (`ckey`) VALUES ('[ckey(src.key)]')")
+	if(!cquery.Execute()) message_admins(cquery.ErrorMsg())
+client/proc/onDeath(var/mob/A = src.mob)
+	if(!makejson)
+		return
+	roundinfo.deaths++
+	if(!ismob(A))
+		return
+	var/ckey = src.ckey
+	var/area
+	var/attacker
+	var/tod = time2text(world.realtime)
+	var/health
+	var/last
+	if(isturf(A.loc))
+		area = A.loc:loc:name
+	else
+		area = A.loc:name
+	if(ishuman(A.lastattacker))
+		attacker = A.lastattacker:name
+	else
+		attacker = "None"
+	health = "Oxy:[A.oxyloss]Brute:[A.bruteloss]Burn:[A.fireloss]Toxins:[A.toxloss]"
+	if(A.logs.len >= 1)
+		last = A.logs[A.logs.len]
+	else
+		last = "None"
+	var/DBQuery/cquery = dbcon.NewQuery("INSERT INTO `deathlog` (`ckey`,`location`,`lastattacker`,`ToD`,`health`,`lasthit`) VALUES ('[ckey]',[dbcon.Quote(area)],[dbcon.Quote(attacker)],'[tod]','[health]',[dbcon.Quote(last)])")
+	if(!cquery.Execute()) message_admins(cquery.ErrorMsg())
+client/proc/onBought(names)
+	if(!makejson) return
+	if(!names) return
+	var/DBQuery/cquery = dbcon.NewQuery("INSERT INTO `traitorbuy` (`type`) VALUES ([dbcon.Quote(names)])")
+	if(!cquery.Execute()) message_admins(cquery.ErrorMsg())
+*/
+
+datum/roundinfo
+	var/core = 0
+	var/deaths = 0
+	var/revies = 0
+	var/starttime = 0
+	var/endtime = 0
+	var/lenght = 0
+	var/mode = 0

code/WorkInProgress/Ported/policetape.dm

@@ -0,0 +1,167 @@
+/obj/item/policetaperoll/attack_self(mob/user as mob)
+	if(icon_state == "rollstart")
+		tapestartx = src.loc.x
+		tapestarty = src.loc.y
+		tapestartz = src.loc.z
+		usr << "\blue You place the first end of the police tape."
+		icon_state = "rollstop"
+	else
+		tapeendx = src.loc.x
+		tapeendy = src.loc.y
+		tapeendz = src.loc.z
+		var/tapetest = 0
+		if(tapestartx == tapeendx && tapestarty > tapeendy && tapestartz == tapeendz)
+			for(var/Y=tapestarty,Y>=tapeendy,Y--)
+				var/turf/T = get_turf(locate(tapestartx,Y,tapestartz))
+				if(T.density == 1)
+					usr << "\blue You can't run police tape through a wall!"
+					icon_state = "rollstart"
+					return
+			for(var/Y=tapestarty,Y>=tapeendy,Y--)
+				var/turf/T = get_turf(locate(tapestartx,Y,tapestartz))
+				for(var/obj/item/policetape/Ptest in T)
+					if(Ptest.icon_state == "vertical")
+						tapetest = 1
+				if(tapetest != 1)
+					var/obj/item/policetape/P = new/obj/item/policetape(tapestartx,Y,tapestartz)
+					P.loc = locate(tapestartx,Y,tapestartz)
+					P.icon_state = "vertical"
+			usr << "\blue You finish placing the police tape."	//Git Test
+
+		if(tapestartx == tapeendx && tapestarty < tapeendy && tapestartz == tapeendz)
+			for(var/Y=tapestarty,Y<=tapeendy,Y++)
+				var/turf/T = get_turf(locate(tapestartx,Y,tapestartz))
+				if(T.density == 1)
+					usr << "\blue You can't run police tape through a wall!"
+					icon_state = "rollstart"
+					return
+			for(var/Y=tapestarty,Y<=tapeendy,Y++)
+				var/turf/T = get_turf(locate(tapestartx,Y,tapestartz))
+				for(var/obj/item/policetape/Ptest in T)
+					if(Ptest.icon_state == "vertical")
+						tapetest = 1
+				if(tapetest != 1)
+					var/obj/item/policetape/P = new/obj/item/policetape(tapestartx,Y,tapestartz)
+					P.loc = locate(tapestartx,Y,tapestartz)
+					P.icon_state = "vertical"
+			usr << "\blue You finish placing the police tape."
+
+		if(tapestarty == tapeendy && tapestartx > tapeendx && tapestartz == tapeendz)
+			for(var/X=tapestartx,X>=tapeendx,X--)
+				var/turf/T = get_turf(locate(X,tapestarty,tapestartz))
+				if(T.density == 1)
+					usr << "\blue You can't run police tape through a wall!"
+					icon_state = "rollstart"
+					return
+			for(var/X=tapestartx,X>=tapeendx,X--)
+				var/turf/T = get_turf(locate(X,tapestarty,tapestartz))
+				for(var/obj/item/policetape/Ptest in T)
+					if(Ptest.icon_state == "horizontal")
+						tapetest = 1
+				if(tapetest != 1)
+					var/obj/item/policetape/P = new/obj/item/policetape(X,tapestarty,tapestartz)
+					P.loc = locate(X,tapestarty,tapestartz)
+					P.icon_state = "horizontal"
+			usr << "\blue You finish placing the police tape."
+
+		if(tapestarty == tapeendy && tapestartx < tapeendx && tapestartz == tapeendz)
+			for(var/X=tapestartx,X<=tapeendx,X++)
+				var/turf/T = get_turf(locate(X,tapestarty,tapestartz))
+				if(T.density == 1)
+					usr << "\blue You can't run police tape through a wall!"
+					icon_state = "rollstart"
+					return
+			for(var/X=tapestartx,X<=tapeendx,X++)
+				var/turf/T = get_turf(locate(X,tapestarty,tapestartz))
+				for(var/obj/item/policetape/Ptest in T)
+					if(Ptest.icon_state == "horizontal")
+						tapetest = 1
+				if(tapetest != 1)
+					var/obj/item/policetape/P = new/obj/item/policetape(X,tapestarty,tapestartz)
+					P.loc = locate(X,tapestarty,tapestartz)
+					P.icon_state = "horizontal"
+			usr << "\blue You finish placing the police tape."
+
+		if(tapestarty != tapeendy && tapestartx != tapeendx)
+			usr << "\blue Police tape can only be laid horizontally or vertically."
+		icon_state = "rollstart"
+
+/obj/item/policetape/Bumped(M as mob)
+	if(src.allowed(M))
+		var/turf/T = get_turf(src)
+		M:loc = T
+
+/obj/item/policetape/CanPass(atom/movable/mover, turf/target, height=0, air_group=0)
+	if(air_group || (height==0)) return 1
+
+	if ((mover.flags & 2 || istype(mover, /obj/effect/meteor) || mover.throwing == 1) )
+		return 1
+	else
+		return 0
+
+/obj/item/policetape/attackby(obj/item/weapon/W as obj, mob/user as mob)
+	breaktape(W, user)
+
+/obj/item/policetape/attack_hand(mob/user as mob)
+	breaktape(null, user)
+
+/obj/item/policetape/attack_paw(mob/user as mob)
+	breaktape(/obj/item/weapon/wirecutters,user)
+
+/obj/item/policetape/proc/breaktape(obj/item/weapon/W as obj, mob/user as mob)
+	if(user.a_intent == "help" && ((!is_sharp(W) && src.allowed(user)) ||(!is_cut(W) && !src.allowed(user))))
+		user << "You can't break the tape with that!"
+		return
+	user.show_viewers(text("\blue [] breaks the police tape!", user))
+	var/OX = src.x
+	var/OY = src.y
+	if(src.icon_state == "horizontal")
+		var/N = 0
+		var/X = OX + 1
+		var/turf/T = src.loc
+		while(N != 1)
+			N = 1
+			T = locate(X,T.y,T.z)
+			for (var/obj/item/policetape/P in T)
+				N = 0
+				if(P.icon_state == "horizontal")
+					del(P)
+			X += 1
+
+		X = OX - 1
+		N = 0
+		while(N != 1)
+			N = 1
+			T = locate(X,T.y,T.z)
+			for (var/obj/item/policetape/P in T)
+				N = 0
+				if(P.icon_state == "horizontal")
+					del(P)
+			X -= 1
+
+	if(src.icon_state == "vertical")
+		var/N = 0
+		var/Y = OY + 1
+		var/turf/T = src.loc
+		while(N != 1)
+			N = 1
+			T = locate(T.x,Y,T.z)
+			for (var/obj/item/policetape/P in T)
+				N = 0
+				if(P.icon_state == "vertical")
+					del(P)
+			Y += 1
+
+		Y = OY - 1
+		N = 0
+		while(N != 1)
+			N = 1
+			T = locate(T.x,Y,T.z)
+			for (var/obj/item/policetape/P in T)
+				N = 0
+				if(P.icon_state == "vertical")
+					del(P)
+			Y -= 1
+
+	del(src)
+	return