Uploading all files.

code/modules/modular_computers/file_system/programs/airestorer.dm

@@ -0,0 +1,121 @@
+/datum/computer_file/program/aidiag
+	filename = "aidiag"
+	filedesc = "AI Integrity Restorer"
+	program_icon_state = "generic"
+	extended_desc = "This program is capable of reconstructing damaged AI systems. Requires direct AI connection via intellicard slot."
+	size = 12
+	requires_ntnet = 0
+	usage_flags = PROGRAM_CONSOLE
+	transfer_access = ACCESS_HEADS
+	available_on_ntnet = 1
+	tgui_id = "ntos_ai_restorer"
+	ui_x = 600
+	ui_y = 400
+
+	var/restoring = FALSE
+
+/datum/computer_file/program/aidiag/proc/get_ai(cardcheck)
+
+	var/obj/item/computer_hardware/ai_slot/ai_slot
+
+	if(computer)
+		ai_slot = computer.all_components[MC_AI]
+
+	if(computer && ai_slot && ai_slot.check_functionality())
+		if(cardcheck == 1)
+			return ai_slot
+		if(ai_slot.enabled && ai_slot.stored_card)
+			if(cardcheck == 2)
+				return ai_slot.stored_card
+			if(ai_slot.stored_card.AI)
+				return ai_slot.stored_card.AI
+
+	return null
+
+/datum/computer_file/program/aidiag/ui_act(action, params)
+	if(..())
+		return TRUE
+
+	var/mob/living/silicon/ai/A = get_ai()
+	if(!A)
+		restoring = FALSE
+
+	switch(action)
+		if("PRG_beginReconstruction")
+			if(A && A.health < 100)
+				restoring = TRUE
+			return TRUE
+		if("PRG_eject")
+			if(computer.all_components[MC_AI])
+				var/obj/item/computer_hardware/ai_slot/ai_slot = computer.all_components[MC_AI]
+				if(ai_slot && ai_slot.stored_card)
+					ai_slot.try_eject(0,usr)
+					return TRUE
+
+/datum/computer_file/program/aidiag/process_tick()
+	..()
+	if(!restoring)	//Put the check here so we don't check for an ai all the time
+		return
+	var/obj/item/aicard/cardhold = get_ai(2)
+
+	var/obj/item/computer_hardware/ai_slot/ai_slot = get_ai(1)
+
+
+	var/mob/living/silicon/ai/A = get_ai()
+	if(!A || !cardhold)
+		restoring = FALSE	// If the AI was removed, stop the restoration sequence.
+		if(ai_slot)
+			ai_slot.locked = FALSE
+		return
+
+	if(cardhold.flush)
+		ai_slot.locked = FALSE
+		restoring = FALSE
+		return
+	ai_slot.locked =TRUE
+	A.adjustOxyLoss(-1, 0)
+	A.adjustFireLoss(-1, 0)
+	A.adjustToxLoss(-1, 0)
+	A.adjustBruteLoss(-1, 0)
+	A.updatehealth()
+	if(A.health >= 0 && A.stat == DEAD)
+		A.revive()
+	// Finished restoring
+	if(A.health >= 100)
+		ai_slot.locked = FALSE
+		restoring = FALSE
+
+	return TRUE
+
+
+/datum/computer_file/program/aidiag/ui_data(mob/user)
+	var/list/data = get_header_data()
+	var/mob/living/silicon/ai/AI
+	// A shortcut for getting the AI stored inside the computer. The program already does necessary checks.
+	AI = get_ai()
+
+	var/obj/item/aicard/aicard = get_ai(2)
+
+	if(!aicard)
+		data["nocard"] = TRUE
+		data["error"] = "Please insert an intelliCard."
+	else
+		if(!AI)
+			data["error"] = "No AI located"
+		else
+			var/obj/item/aicard/cardhold = AI.loc
+			if(cardhold.flush)
+				data["error"] = "Flush in progress"
+			else
+				data["name"] = AI.name
+				data["restoring"] = restoring
+				data["laws"] = AI.laws.get_law_list(include_zeroth = 1)
+				data["health"] = (AI.health + 100) / 2
+				data["isDead"] = AI.stat == DEAD
+				data["ai_laws"] = AI.laws.get_law_list(include_zeroth = 1)
+
+	return data
+
+/datum/computer_file/program/aidiag/kill_program(forced)
+	restoring = FALSE
+	return ..(forced)

code/modules/modular_computers/file_system/programs/alarm.dm

@@ -0,0 +1,101 @@
+/datum/computer_file/program/alarm_monitor
+	filename = "alarmmonitor"
+	filedesc = "Alarm Monitor"
+	ui_header = "alarm_green.gif"
+	program_icon_state = "alert-green"
+	extended_desc = "This program provides visual interface for station's alarm system."
+	requires_ntnet = 1
+	network_destination = "alarm monitoring network"
+	size = 5
+	tgui_id = "ntos_station_alert"
+	ui_x = 315
+	ui_y = 500
+
+	var/has_alert = 0
+	var/alarms = list("Fire" = list(), "Atmosphere" = list(), "Power" = list())
+
+/datum/computer_file/program/alarm_monitor/process_tick()
+	..()
+
+	if(has_alert)
+		program_icon_state = "alert-red"
+		ui_header = "alarm_red.gif"
+		update_computer_icon()
+	else
+		if(!has_alert)
+			program_icon_state = "alert-green"
+			ui_header = "alarm_green.gif"
+			update_computer_icon()
+	return 1
+
+/datum/computer_file/program/alarm_monitor/ui_data(mob/user)
+	var/list/data = get_header_data()
+
+	data["alarms"] = list()
+	for(var/class in alarms)
+		data["alarms"][class] = list()
+		for(var/area in alarms[class])
+			data["alarms"][class] += area
+
+	return data
+
+/datum/computer_file/program/alarm_monitor/proc/triggerAlarm(class, area/A, O, obj/source)
+	if(is_station_level(source.z))
+		if(!(A.type in GLOB.the_station_areas))
+			return
+	else if(!is_mining_level(source.z) || istype(A, /area/ruin))
+		return
+
+	var/list/L = alarms[class]
+	for(var/I in L)
+		if (I == A.name)
+			var/list/alarm = L[I]
+			var/list/sources = alarm[3]
+			if (!(source in sources))
+				sources += source
+			return 1
+	var/obj/machinery/camera/C = null
+	var/list/CL = null
+	if(O && istype(O, /list))
+		CL = O
+		if (CL.len == 1)
+			C = CL[1]
+	else if(O && istype(O, /obj/machinery/camera))
+		C = O
+	L[A.name] = list(A, (C ? C : O), list(source))
+
+	update_alarm_display()
+
+	return 1
+
+
+/datum/computer_file/program/alarm_monitor/proc/cancelAlarm(class, area/A, obj/origin)
+	var/list/L = alarms[class]
+	var/cleared = 0
+	for (var/I in L)
+		if (I == A.name)
+			var/list/alarm = L[I]
+			var/list/srcs  = alarm[3]
+			if (origin in srcs)
+				srcs -= origin
+			if (srcs.len == 0)
+				cleared = 1
+				L -= I
+
+	update_alarm_display()
+	return !cleared
+
+/datum/computer_file/program/alarm_monitor/proc/update_alarm_display()
+	has_alert = FALSE
+	for(var/cat in alarms)
+		var/list/L = alarms[cat]
+		if(L.len)
+			has_alert = TRUE
+
+/datum/computer_file/program/alarm_monitor/run_program(mob/user)
+	. = ..(user)
+	GLOB.alarmdisplay += src
+
+/datum/computer_file/program/alarm_monitor/kill_program(forced = FALSE)
+	GLOB.alarmdisplay -= src
+	..()

code/modules/modular_computers/file_system/programs/antagonist/dos.dm

@@ -0,0 +1,100 @@
+/datum/computer_file/program/ntnet_dos
+	filename = "ntn_dos"
+	filedesc = "DoS Traffic Generator"
+	program_icon_state = "hostile"
+	extended_desc = "This advanced script can perform denial of service attacks against NTNet quantum relays. The system administrator will probably notice this. Multiple devices can run this program together against same relay for increased effect"
+	size = 20
+	requires_ntnet = 1
+	available_on_ntnet = 0
+	available_on_syndinet = 1
+	tgui_id = "ntos_net_dos"
+	ui_style = "syndicate"
+	ui_x = 400
+	ui_y = 250
+
+	var/obj/machinery/ntnet_relay/target = null
+	var/dos_speed = 0
+	var/error = ""
+	var/executed = 0
+
+/datum/computer_file/program/ntnet_dos/process_tick()
+	dos_speed = 0
+	switch(ntnet_status)
+		if(1)
+			dos_speed = NTNETSPEED_LOWSIGNAL * 10
+		if(2)
+			dos_speed = NTNETSPEED_HIGHSIGNAL * 10
+		if(3)
+			dos_speed = NTNETSPEED_ETHERNET * 10
+	if(target && executed)
+		target.dos_overload += dos_speed
+		if(!target.is_operational())
+			target.dos_sources.Remove(src)
+			target = null
+			error = "Connection to destination relay lost."
+
+/datum/computer_file/program/ntnet_dos/kill_program(forced = FALSE)
+	if(target)
+		target.dos_sources.Remove(src)
+	target = null
+	executed = 0
+
+	..()
+
+/datum/computer_file/program/ntnet_dos/ui_act(action, params)
+	if(..())
+		return 1
+	switch(action)
+		if("PRG_target_relay")
+			for(var/obj/machinery/ntnet_relay/R in SSnetworks.station_network.relays)
+				if("[R.uid]" == params["targid"])
+					target = R
+			return 1
+		if("PRG_reset")
+			if(target)
+				target.dos_sources.Remove(src)
+				target = null
+			executed = 0
+			error = ""
+			return 1
+		if("PRG_execute")
+			if(target)
+				executed = 1
+				target.dos_sources.Add(src)
+				if(SSnetworks.station_network.intrusion_detection_enabled)
+					var/obj/item/computer_hardware/network_card/network_card = computer.all_components[MC_NET]
+					SSnetworks.station_network.add_log("IDS WARNING - Excess traffic flood targeting relay [target.uid] detected from device: [network_card.get_network_tag()]")
+					SSnetworks.station_network.intrusion_detection_alarm = 1
+			return 1
+
+/datum/computer_file/program/ntnet_dos/ui_data(mob/user)
+	if(!SSnetworks.station_network)
+		return
+
+	var/list/data = list()
+
+	data = get_header_data()
+
+	if(error)
+		data["error"] = error
+	else if(target && executed)
+		data["target"] = 1
+		data["speed"] = dos_speed
+
+		// This is mostly visual, generate some strings of 1s and 0s
+		// Probability of 1 is equal of completion percentage of DoS attack on this relay.
+		// Combined with UI updates this adds quite nice effect to the UI
+		var/percentage = target.dos_overload * 100 / target.dos_capacity
+		data["dos_strings"] = list()
+		for(var/j, j<10, j++)
+			var/string = ""
+			for(var/i, i<20, i++)
+				string = "[string][prob(percentage)]"
+			data["dos_strings"] += list(list("nums" = string))
+	else
+		data["relays"] = list()
+		for(var/obj/machinery/ntnet_relay/R in SSnetworks.station_network.relays)
+			data["relays"] += list(list("id" = R.uid))
+		data["focus"] = target ? target.uid : null
+
+	return data

code/modules/modular_computers/file_system/programs/antagonist/revelation.dm

@@ -0,0 +1,71 @@
+/datum/computer_file/program/revelation
+	filename = "revelation"
+	filedesc = "Revelation"
+	program_icon_state = "hostile"
+	extended_desc = "This virus can destroy hard drive of system it is executed on. It may be obfuscated to look like another non-malicious program. Once armed, it will destroy the system upon next execution."
+	size = 13
+	requires_ntnet = 0
+	available_on_ntnet = 0
+	available_on_syndinet = 1
+	tgui_id = "ntos_revelation"
+	ui_style = "syndicate"
+	ui_x = 400
+	ui_y = 250
+
+	var/armed = 0
+
+/datum/computer_file/program/revelation/run_program(var/mob/living/user)
+	. = ..(user)
+	if(armed)
+		activate()
+
+/datum/computer_file/program/revelation/proc/activate()
+	if(computer)
+		computer.visible_message("<span class='notice'>\The [computer]'s screen brightly flashes and loud electrical buzzing is heard.</span>")
+		computer.enabled = 0
+		computer.update_icon()
+		var/obj/item/computer_hardware/hard_drive/hard_drive = computer.all_components[MC_HDD]
+		var/obj/item/computer_hardware/battery/battery_module = computer.all_components[MC_CELL]
+		var/obj/item/computer_hardware/recharger/recharger = computer.all_components[MC_CHARGE]
+		qdel(hard_drive)
+		computer.take_damage(25, BRUTE, 0, 0)
+		if(battery_module && prob(25))
+			qdel(battery_module)
+			computer.visible_message("<span class='notice'>\The [computer]'s battery explodes in rain of sparks.</span>")
+			var/datum/effect_system/spark_spread/spark_system = new /datum/effect_system/spark_spread
+			spark_system.start()
+
+		if(recharger && prob(50))
+			qdel(recharger)
+			computer.visible_message("<span class='notice'>\The [computer]'s recharger explodes in rain of sparks.</span>")
+			var/datum/effect_system/spark_spread/spark_system = new /datum/effect_system/spark_spread
+			spark_system.start()
+
+
+/datum/computer_file/program/revelation/ui_act(action, params)
+	if(..())
+		return 1
+	switch(action)
+		if("PRG_arm")
+			armed = !armed
+		if("PRG_activate")
+			activate()
+		if("PRG_obfuscate")
+			var/mob/living/user = usr
+			var/newname = sanitize(input(user, "Enter new program name: "))
+			if(!newname)
+				return
+			filedesc = newname
+
+
+/datum/computer_file/program/revelation/clone()
+	var/datum/computer_file/program/revelation/temp = ..()
+	temp.armed = armed
+	return temp
+
+/datum/computer_file/program/revelation/ui_data(mob/user)
+	var/list/data = get_header_data()
+
+	data["armed"] = armed
+
+	return data

code/modules/modular_computers/file_system/programs/card.dm

@@ -0,0 +1,481 @@
+/datum/computer_file/program/card_mod
+	filename = "cardmod"
+	filedesc = "ID Card Modification"
+	program_icon_state = "id"
+	extended_desc = "Program for programming employee ID cards to access parts of the station."
+	transfer_access = ACCESS_HEADS
+	requires_ntnet = 0
+	size = 8
+	tgui_id = "ntos_card"
+	ui_x = 600
+	ui_y = 700
+
+	var/mod_mode = 1
+	var/is_centcom = 0
+	var/show_assignments = 0
+	var/minor = 0
+	var/authenticated = 0
+	var/list/reg_ids = list()
+	var/list/region_access = null
+	var/list/head_subordinates = null
+	var/target_dept = 0 //Which department this computer has access to. 0=all departments
+	var/change_position_cooldown = 30
+	//Jobs you cannot open new positions for
+	var/list/blacklisted = list(
+		"AI",
+		"Assistant",
+		"Cyborg",
+		"Captain",
+		"Head of Personnel",
+		"Head of Security",
+		"Chief Engineer",
+		"Research Director",
+		"Chief Medical Officer")
+
+	//The scaling factor of max total positions in relation to the total amount of people on board the station in %
+	var/max_relative_positions = 30 //30%: Seems reasonable, limit of 6 @ 20 players
+
+	//This is used to keep track of opened positions for jobs to allow instant closing
+	//Assoc array: "JobName" = (int)<Opened Positions>
+	var/list/opened_positions = list();
+
+/datum/computer_file/program/card_mod/New()
+	..()
+	addtimer(CALLBACK(src, .proc/SetConfigCooldown), 0)
+
+/datum/computer_file/program/card_mod/proc/SetConfigCooldown()
+	change_position_cooldown = CONFIG_GET(number/id_console_jobslot_delay)
+
+/datum/computer_file/program/card_mod/event_idremoved(background, slot)
+	if(!slot || slot == 2)// slot being false means both are removed
+		minor = 0
+		authenticated = 0
+		head_subordinates = null
+		region_access = null
+
+
+/datum/computer_file/program/card_mod/proc/job_blacklisted(jobtitle)
+	return (jobtitle in blacklisted)
+
+
+//Logic check for if you can open the job
+/datum/computer_file/program/card_mod/proc/can_open_job(datum/job/job)
+	if(job)
+		if(!job_blacklisted(job.title))
+			if((job.total_positions <= GLOB.player_list.len * (max_relative_positions / 100)))
+				var/delta = (world.time / 10) - GLOB.time_last_changed_position
+				if((change_position_cooldown < delta) || (opened_positions[job.title] < 0))
+					return 1
+				return -2
+			return 0
+	return 0
+
+//Logic check for if you can close the job
+/datum/computer_file/program/card_mod/proc/can_close_job(datum/job/job)
+	if(job)
+		if(!job_blacklisted(job.title))
+			if(job.total_positions > job.current_positions)
+				var/delta = (world.time / 10) - GLOB.time_last_changed_position
+				if((change_position_cooldown < delta) || (opened_positions[job.title] > 0))
+					return 1
+				return -2
+			return 0
+	return 0
+
+/datum/computer_file/program/card_mod/proc/format_jobs(list/jobs)
+	var/obj/item/computer_hardware/card_slot/card_slot = computer.all_components[MC_CARD]
+	var/obj/item/card/id/id_card = card_slot.stored_card
+	var/list/formatted = list()
+	for(var/job in jobs)
+		formatted.Add(list(list(
+			"display_name" = replacetext(job, "&nbsp", " "),
+			"target_rank" = id_card && id_card.assignment ? id_card.assignment : "Unassigned",
+			"job" = job)))
+
+	return formatted
+
+/datum/computer_file/program/card_mod/ui_act(action, params)
+	if(..())
+		return 1
+
+	var/obj/item/computer_hardware/card_slot/card_slot
+	var/obj/item/computer_hardware/printer/printer
+	if(computer)
+		card_slot = computer.all_components[MC_CARD]
+		printer = computer.all_components[MC_PRINT]
+		if(!card_slot)
+			return
+
+	var/obj/item/card/id/user_id_card = null
+	var/mob/user = usr
+
+	var/obj/item/card/id/id_card = card_slot.stored_card
+	var/obj/item/card/id/auth_card = card_slot.stored_card2
+
+	if(auth_card)
+		user_id_card = auth_card
+	else
+		if(ishuman(user))
+			var/mob/living/carbon/human/h = user
+			user_id_card = h.get_idcard()
+
+	switch(action)
+		if("PRG_switchm")
+			if(params["target"] == "mod")
+				mod_mode = 1
+			else if (params["target"] == "manifest")
+				mod_mode = 0
+			else if (params["target"] == "manage")
+				mod_mode = 2
+		if("PRG_togglea")
+			if(show_assignments)
+				show_assignments = 0
+			else
+				show_assignments = 1
+		if("PRG_print")
+			if(computer && printer) //This option should never be called if there is no printer
+				if(mod_mode)
+					if(authorized())
+						var/contents = {"<h4>Access Report</h4>
+									<u>Prepared By:</u> [user_id_card && user_id_card.registered_name ? user_id_card.registered_name : "Unknown"]<br>
+									<u>For:</u> [id_card.registered_name ? id_card.registered_name : "Unregistered"]<br>
+									<hr>
+									<u>Assignment:</u> [id_card.assignment]<br>
+									<u>Access:</u><br>
+								"}
+
+						var/known_access_rights = get_all_accesses()
+						for(var/A in id_card.access)
+							if(A in known_access_rights)
+								contents += "  [get_access_desc(A)]"
+
+						if(!printer.print_text(contents,"access report"))
+							to_chat(usr, "<span class='notice'>Hardware error: Printer was unable to print the file. It may be out of paper.</span>")
+							return
+						else
+							computer.visible_message("<span class='notice'>\The [computer] prints out paper.</span>")
+				else
+					var/contents = {"<h4>Crew Manifest</h4>
+									<br>
+									[GLOB.data_core ? GLOB.data_core.get_manifest(0) : ""]
+									"}
+					if(!printer.print_text(contents,text("crew manifest ([])", STATION_TIME_TIMESTAMP("hh:mm:ss"))))
+						to_chat(usr, "<span class='notice'>Hardware error: Printer was unable to print the file. It may be out of paper.</span>")
+						return
+					else
+						computer.visible_message("<span class='notice'>\The [computer] prints out paper.</span>")
+		if("PRG_eject")
+			if(computer && card_slot)
+				var/select = params["target"]
+				switch(select)
+					if("id")
+						if(id_card)
+							GLOB.data_core.manifest_modify(id_card.registered_name, id_card.assignment)
+							card_slot.try_eject(1, user)
+						else
+							var/obj/item/I = usr.get_active_held_item()
+							if (istype(I, /obj/item/card/id))
+								if(!usr.transferItemToLoc(I, computer))
+									return
+								card_slot.stored_card = I
+					if("auth")
+						if(auth_card)
+							if(id_card)
+								GLOB.data_core.manifest_modify(id_card.registered_name, id_card.assignment)
+							head_subordinates = null
+							region_access = null
+							authenticated = 0
+							minor = 0
+							card_slot.try_eject(2, user)
+						else
+							var/obj/item/I = usr.get_active_held_item()
+							if (istype(I, /obj/item/card/id))
+								if(!usr.transferItemToLoc(I, computer))
+									return
+								card_slot.stored_card2 = I
+		if("PRG_terminate")
+			if(computer && ((id_card.assignment in head_subordinates) || id_card.assignment == "Assistant"))
+				id_card.assignment = "Unassigned"
+				remove_nt_access(id_card)
+
+		if("PRG_edit")
+			if(computer && authorized())
+				if(params["name"])
+					var/temp_name = reject_bad_name(input("Enter name.", "Name", id_card.registered_name))
+					if(temp_name)
+						id_card.registered_name = temp_name
+					else
+						computer.visible_message("<span class='notice'>[computer] buzzes rudely.</span>")
+				//else if(params["account"])
+				//	var/account_num = text2num(input("Enter account number.", "Account", id_card.associated_account_number))
+				//	id_card.associated_account_number = account_num
+		if("PRG_assign")
+			if(computer && authorized() && id_card)
+				var/t1 = params["assign_target"]
+				if(t1 == "Custom")
+					var/temp_t = reject_bad_text(input("Enter a custom job assignment.","Assignment", id_card.assignment), 45)
+					//let custom jobs function as an impromptu alt title, mainly for sechuds
+					if(temp_t)
+						id_card.assignment = temp_t
+				else
+					var/list/access = list()
+					if(is_centcom)
+						access = get_centcom_access(t1)
+					else
+						var/datum/job/jobdatum
+						for(var/jobtype in typesof(/datum/job))
+							var/datum/job/J = new jobtype
+							if(ckey(J.title) == ckey(t1))
+								jobdatum = J
+								break
+						if(!jobdatum)
+							to_chat(usr, "<span class='warning'>No log exists for this job: [t1]</span>")
+							return
+
+						access = jobdatum.get_access()
+
+					remove_nt_access(id_card)
+					apply_access(id_card, access)
+					id_card.assignment = t1
+
+		if("PRG_access")
+			if(params["allowed"] && computer && authorized())
+				var/access_type = text2num(params["access_target"])
+				var/access_allowed = text2num(params["allowed"])
+				if(access_type in (is_centcom ? get_all_centcom_access() : get_all_accesses()))
+					id_card.access -= access_type
+					if(!access_allowed)
+						id_card.access += access_type
+		if("PRG_open_job")
+			var/edit_job_target = params["target"]
+			var/datum/job/j = SSjob.GetJob(edit_job_target)
+			if(!j)
+				return 0
+			if(can_open_job(j) != 1)
+				return 0
+			if(opened_positions[edit_job_target] >= 0)
+				GLOB.time_last_changed_position = world.time / 10
+			j.total_positions++
+			opened_positions[edit_job_target]++
+		if("PRG_close_job")
+			var/edit_job_target = params["target"]
+			var/datum/job/j = SSjob.GetJob(edit_job_target)
+			if(!j)
+				return 0
+			if(can_close_job(j) != 1)
+				return 0
+			//Allow instant closing without cooldown if a position has been opened before
+			if(opened_positions[edit_job_target] <= 0)
+				GLOB.time_last_changed_position = world.time / 10
+			j.total_positions--
+			opened_positions[edit_job_target]--
+		if("PRG_regsel")
+			if(!reg_ids)
+				reg_ids = list()
+			var/regsel = text2num(params["region"])
+			if(regsel in reg_ids)
+				reg_ids -= regsel
+			else
+				reg_ids += regsel
+
+	if(id_card)
+		id_card.name = text("[id_card.registered_name]'s ID Card ([id_card.assignment])")
+
+	return 1
+
+/datum/computer_file/program/card_mod/proc/remove_nt_access(obj/item/card/id/id_card)
+	id_card.access -= get_all_accesses()
+	id_card.access -= get_all_centcom_access()
+
+/datum/computer_file/program/card_mod/proc/apply_access(obj/item/card/id/id_card, list/accesses)
+	id_card.access |= accesses
+
+/datum/computer_file/program/card_mod/ui_data(mob/user)
+
+	var/list/data = get_header_data()
+
+	var/obj/item/computer_hardware/card_slot/card_slot
+	var/obj/item/computer_hardware/printer/printer
+
+	if(computer)
+		card_slot = computer.all_components[MC_CARD]
+		printer = computer.all_components[MC_PRINT]
+
+	data["mmode"] = mod_mode
+
+	var/authed = 0
+	if(computer)
+		if(card_slot)
+			var/obj/item/card/id/auth_card = card_slot.stored_card2
+			data["auth_name"] = auth_card ? strip_html_simple(auth_card.name) : "-----"
+			authed = authorized()
+
+
+	if(mod_mode == 2)
+		data["slots"] = list()
+		var/list/pos = list()
+		for(var/datum/job/job in SSjob.occupations)
+			if(job.title in blacklisted)
+				continue
+
+			var/list/status_open = build_manage(job,1)
+			var/list/status_close = build_manage(job,0)
+
+			pos.Add(list(list(
+				"title" = job.title,
+				"current" = job.current_positions,
+				"total" = job.total_positions,
+				"status_open" = (authed && !minor) ? status_open["enable"]: 0,
+				"status_close" = (authed && !minor) ? status_close["enable"] : 0,
+				"desc_open" = status_open["desc"],
+				"desc_close" = status_close["desc"])))
+		data["slots"] = pos
+
+	data["src"] = "[REF(src)]"
+	data["station_name"] = station_name()
+
+
+	if(!mod_mode)
+		data["manifest"] = list()
+		var/list/crew = list()
+		for(var/datum/data/record/t in sortRecord(GLOB.data_core.general))
+			crew.Add(list(list(
+				"name" = t.fields["name"],
+				"rank" = t.fields["rank"])))
+
+		data["manifest"] = crew
+	data["assignments"] = show_assignments
+	if(computer)
+		data["have_id_slot"] = !!card_slot
+		data["have_printer"] = !!printer
+		if(!card_slot && mod_mode == 1)
+			mod_mode = 0 //We can't modify IDs when there is no card reader
+	else
+		data["have_id_slot"] = 0
+		data["have_printer"] = 0
+
+	data["centcom_access"] = is_centcom
+
+
+	data["authenticated"] = authed
+
+
+	if(mod_mode == 1 && computer)
+		if(card_slot)
+			var/obj/item/card/id/id_card = card_slot.stored_card
+
+			data["has_id"] = !!id_card
+			data["id_rank"] = id_card && id_card.assignment ? html_encode(id_card.assignment) : "Unassigned"
+			data["id_owner"] = id_card && id_card.registered_name ? html_encode(id_card.registered_name) : "-----"
+			data["id_name"] = id_card ? strip_html_simple(id_card.name) : "-----"
+
+			if(show_assignments)
+				data["engineering_jobs"] = format_jobs(GLOB.engineering_positions)
+				data["medical_jobs"] = format_jobs(GLOB.medical_positions)
+				data["science_jobs"] = format_jobs(GLOB.science_positions)
+				data["security_jobs"] = format_jobs(GLOB.security_positions)
+				data["cargo_jobs"] = format_jobs(GLOB.supply_positions)
+				data["civilian_jobs"] = format_jobs(GLOB.civilian_positions)
+				data["centcom_jobs"] = format_jobs(get_all_centcom_jobs())
+
+
+		if(card_slot.stored_card)
+			var/obj/item/card/id/id_card = card_slot.stored_card
+			if(is_centcom)
+				var/list/all_centcom_access = list()
+				for(var/access in get_all_centcom_access())
+					all_centcom_access.Add(list(list(
+						"desc" = replacetext(get_centcom_access_desc(access), "&nbsp", " "),
+						"ref" = access,
+						"allowed" = (access in id_card.access) ? 1 : 0)))
+				data["all_centcom_access"] = all_centcom_access
+			else
+				var/list/regions = list()
+				for(var/i = 1; i <= 7; i++)
+					if((minor || target_dept) && !(i in region_access))
+						continue
+
+					var/list/accesses = list()
+					if(i in reg_ids)
+						for(var/access in get_region_accesses(i))
+							if (get_access_desc(access))
+								accesses.Add(list(list(
+								"desc" = replacetext(get_access_desc(access), "&nbsp", " "),
+								"ref" = access,
+								"allowed" = (access in id_card.access) ? 1 : 0)))
+
+					regions.Add(list(list(
+						"name" = get_region_accesses_name(i),
+						"regid" = i,
+						"selected" = (i in reg_ids) ? 1 : null,
+						"accesses" = accesses)))
+				data["regions"] = regions
+
+	data["minor"] = target_dept || minor ? 1 : 0
+
+
+	return data
+
+
+/datum/computer_file/program/card_mod/proc/build_manage(datum/job,open = FALSE)
+	var/out = "Denied"
+	var/can_change= 0
+	if(open)
+		can_change = can_open_job(job)
+	else
+		can_change = can_close_job(job)
+	var/enable = 0
+	if(can_change == 1)
+		out = "[open ? "Open Position" : "Close Position"]"
+		enable = 1
+	else if(can_change == -2)
+		var/time_to_wait = round(change_position_cooldown - ((world.time / 10) - GLOB.time_last_changed_position), 1)
+		var/mins = round(time_to_wait / 60)
+		var/seconds = time_to_wait - (60*mins)
+		out = "Cooldown ongoing: [mins]:[(seconds < 10) ? "0[seconds]" : "[seconds]"]"
+	else
+		out = "Denied"
+
+	return list("enable" = enable, "desc" = out)
+
+
+/datum/computer_file/program/card_mod/proc/authorized()
+	if(!authenticated && computer)
+		var/obj/item/computer_hardware/card_slot/card_slot = computer.all_components[MC_CARD]
+		if(card_slot)
+			var/obj/item/card/id/auth_card = card_slot.stored_card2
+			if(auth_card)
+				region_access = list()
+				if(ACCESS_CHANGE_IDS in auth_card.GetAccess())
+					minor = 0
+					authenticated = 1
+					return 1
+				else
+					if((ACCESS_HOP in auth_card.access) && ((target_dept==1) || !target_dept))
+						region_access |= 1
+						region_access |= 6
+						get_subordinates("Head of Personnel")
+					if((ACCESS_HOS in auth_card.access) && ((target_dept==2) || !target_dept))
+						region_access |= 2
+						get_subordinates("Head of Security")
+					if((ACCESS_CMO in auth_card.access) && ((target_dept==3) || !target_dept))
+						region_access |= 3
+						get_subordinates("Chief Medical Officer")
+					if((ACCESS_RD in auth_card.access) && ((target_dept==4) || !target_dept))
+						region_access |= 4
+						get_subordinates("Research Director")
+					if((ACCESS_CE in auth_card.access) && ((target_dept==5) || !target_dept))
+						region_access |= 5
+						get_subordinates("Chief Engineer")
+					if(region_access.len)
+						minor = 1
+						authenticated = 1
+						return 1
+	else
+		return authenticated
+
+/datum/computer_file/program/card_mod/proc/get_subordinates(rank)
+	head_subordinates = list()
+	for(var/datum/job/job in SSjob.occupations)
+		if(rank in job.department_head)
+			head_subordinates += job.title

code/modules/modular_computers/file_system/programs/configurator.dm

@@ -0,0 +1,67 @@
+// This is special hardware configuration program.
+// It is to be used only with modular computers.
+// It allows you to toggle components of your device.
+
+/datum/computer_file/program/computerconfig
+	filename = "compconfig"
+	filedesc = "Hardware Configuration Tool"
+	extended_desc = "This program allows configuration of computer's hardware"
+	program_icon_state = "generic"
+	unsendable = 1
+	undeletable = 1
+	size = 4
+	available_on_ntnet = 0
+	requires_ntnet = 0
+	tgui_id = "ntos_configuration"
+
+	var/obj/item/modular_computer/movable = null
+
+
+/datum/computer_file/program/computerconfig/ui_data(mob/user)
+	movable = computer
+	var/obj/item/computer_hardware/hard_drive/hard_drive = movable.all_components[MC_HDD]
+	var/obj/item/computer_hardware/battery/battery_module = movable.all_components[MC_CELL]
+	if(!istype(movable))
+		movable = null
+
+	// No computer connection, we can't get data from that.
+	if(!movable)
+		return 0
+
+	var/list/data = get_header_data()
+
+	data["disk_size"] = hard_drive.max_capacity
+	data["disk_used"] = hard_drive.used_capacity
+	data["power_usage"] = movable.last_power_usage
+	data["battery_exists"] = battery_module ? 1 : 0
+	if(battery_module && battery_module.battery)
+		data["battery_rating"] = battery_module.battery.maxcharge
+		data["battery_percent"] = round(battery_module.battery.percent())
+
+	if(battery_module && battery_module.battery)
+		data["battery"] = list("max" = battery_module.battery.maxcharge, "charge" = round(battery_module.battery.charge))
+
+	var/list/all_entries[0]
+	for(var/I in movable.all_components)
+		var/obj/item/computer_hardware/H = movable.all_components[I]
+		all_entries.Add(list(list(
+		"name" = H.name,
+		"desc" = H.desc,
+		"enabled" = H.enabled,
+		"critical" = H.critical,
+		"powerusage" = H.power_usage
+		)))
+
+	data["hardware"] = all_entries
+	return data
+
+
+/datum/computer_file/program/computerconfig/ui_act(action,params)
+	if(..())
+		return
+	switch(action)
+		if("PC_toggle_component")
+			var/obj/item/computer_hardware/H = movable.find_hardware_by_name(params["name"])
+			if(H && istype(H))
+				H.enabled = !H.enabled
+			. = TRUE

code/modules/modular_computers/file_system/programs/file_browser.dm

@@ -0,0 +1,232 @@
+/datum/computer_file/program/filemanager
+	filename = "filemanager"
+	filedesc = "File Manager"
+	extended_desc = "This program allows management of files."
+	program_icon_state = "generic"
+	size = 8
+	requires_ntnet = 0
+	available_on_ntnet = 0
+	undeletable = 1
+	tgui_id = "ntos_file_manager"
+
+	var/open_file
+	var/error
+
+/datum/computer_file/program/filemanager/ui_act(action, params)
+	if(..())
+		return 1
+
+	var/obj/item/computer_hardware/hard_drive/HDD = computer.all_components[MC_HDD]
+	var/obj/item/computer_hardware/hard_drive/RHDD = computer.all_components[MC_SDD]
+	var/obj/item/computer_hardware/printer/printer = computer.all_components[MC_PRINT]
+
+	switch(action)
+		if("PRG_openfile")
+			. = 1
+			open_file = params["name"]
+		if("PRG_newtextfile")
+			. = 1
+			var/newname = stripped_input(usr, "Enter file name or leave blank to cancel:", "File rename", max_length=50)
+			if(!newname)
+				return 1
+			if(!HDD)
+				return 1
+			var/datum/computer_file/data/F = new/datum/computer_file/data()
+			F.filename = newname
+			F.filetype = "TXT"
+			HDD.store_file(F)
+		if("PRG_deletefile")
+			. = 1
+			if(!HDD)
+				return 1
+			var/datum/computer_file/file = HDD.find_file_by_name(params["name"])
+			if(!file || file.undeletable)
+				return 1
+			HDD.remove_file(file)
+		if("PRG_usbdeletefile")
+			. = 1
+			if(!RHDD)
+				return 1
+			var/datum/computer_file/file = RHDD.find_file_by_name(params["name"])
+			if(!file || file.undeletable)
+				return 1
+			RHDD.remove_file(file)
+		if("PRG_closefile")
+			. = 1
+			open_file = null
+			error = null
+		if("PRG_clone")
+			. = 1
+			if(!HDD)
+				return 1
+			var/datum/computer_file/F = HDD.find_file_by_name(params["name"])
+			if(!F || !istype(F))
+				return 1
+			var/datum/computer_file/C = F.clone(1)
+			HDD.store_file(C)
+		if("PRG_rename")
+			. = 1
+			if(!HDD)
+				return 1
+			var/datum/computer_file/file = HDD.find_file_by_name(params["name"])
+			if(!file || !istype(file))
+				return 1
+			var/newname = stripped_input(usr, "Enter new file name:", "File rename", file.filename, max_length=50)
+			if(file && newname)
+				file.filename = newname
+		if("PRG_edit")
+			. = 1
+			if(!open_file)
+				return 1
+			if(!HDD)
+				return 1
+			var/datum/computer_file/data/F = HDD.find_file_by_name(open_file)
+			if(!F || !istype(F))
+				return 1
+			if(F.do_not_edit && (alert("WARNING: This file is not compatible with editor. Editing it may result in permanently corrupted formatting or damaged data consistency. Edit anyway?", "Incompatible File", "No", "Yes") == "No"))
+				return 1
+			// 16384 is the limit for file length in characters. Currently, papers have value of 2048 so this is 8 times as long, since we can't edit parts of the file independently.
+			var/newtext = stripped_multiline_input(usr, "Editing file [open_file]. You may use most tags used in paper formatting:", "Text Editor", html_decode(F.stored_data), 16384, TRUE)
+			if(!newtext)
+				return
+			if(F)
+				var/datum/computer_file/data/backup = F.clone()
+				HDD.remove_file(F)
+				F.stored_data = newtext
+				F.calculate_size()
+				// We can't store the updated file, it's probably too large. Print an error and restore backed up version.
+				// This is mostly intended to prevent people from losing texts they spent lot of time working on due to running out of space.
+				// They will be able to copy-paste the text from error screen and store it in notepad or something.
+				if(!HDD.store_file(F))
+					error = "I/O error: Unable to overwrite file. Hard drive is probably full. You may want to backup your changes before closing this window:<br><br>[F.stored_data]<br><br>"
+					HDD.store_file(backup)
+		if("PRG_printfile")
+			. = 1
+			if(!open_file)
+				return 1
+			if(!HDD)
+				return 1
+			var/datum/computer_file/data/F = HDD.find_file_by_name(open_file)
+			if(!F || !istype(F))
+				return 1
+			if(!printer)
+				error = "Missing Hardware: Your computer does not have required hardware to complete this operation."
+				return 1
+			if(!printer.print_text("<font face=\"[(computer.obj_flags & EMAGGED) ? CRAYON_FONT : PRINTER_FONT]\">" + prepare_printjob(F.stored_data) + "</font>", open_file))
+				error = "Hardware error: Printer was unable to print the file. It may be out of paper."
+				return 1
+		if("PRG_copytousb")
+			. = 1
+			if(!HDD || !RHDD)
+				return 1
+			var/datum/computer_file/F = HDD.find_file_by_name(params["name"])
+			if(!F || !istype(F))
+				return 1
+			var/datum/computer_file/C = F.clone(0)
+			RHDD.store_file(C)
+		if("PRG_copyfromusb")
+			. = 1
+			if(!HDD || !RHDD)
+				return 1
+			var/datum/computer_file/F = RHDD.find_file_by_name(params["name"])
+			if(!F || !istype(F))
+				return 1
+			var/datum/computer_file/C = F.clone(0)
+			HDD.store_file(C)
+
+/datum/computer_file/program/filemanager/proc/parse_tags(t)
+	t = replacetext(t, "\[center\]", "<center>")
+	t = replacetext(t, "\[/center\]", "</center>")
+	t = replacetext(t, "\[br\]", "<BR>")
+	t = replacetext(t, "\n", "<BR>")
+	t = replacetext(t, "\[b\]", "<B>")
+	t = replacetext(t, "\[/b\]", "</B>")
+	t = replacetext(t, "\[i\]", "<I>")
+	t = replacetext(t, "\[/i\]", "</I>")
+	t = replacetext(t, "\[u\]", "<U>")
+	t = replacetext(t, "\[/u\]", "</U>")
+	t = replacetext(t, "\[time\]", "[STATION_TIME_TIMESTAMP("hh:mm:ss")]")
+	t = replacetext(t, "\[date\]", "[time2text(world.realtime, "MMM DD")] [GLOB.year_integer+540]")
+	t = replacetext(t, "\[large\]", "<font size=\"4\">")
+	t = replacetext(t, "\[/large\]", "</font>")
+	t = replacetext(t, "\[h1\]", "<H1>")
+	t = replacetext(t, "\[/h1\]", "</H1>")
+	t = replacetext(t, "\[h2\]", "<H2>")
+	t = replacetext(t, "\[/h2\]", "</H2>")
+	t = replacetext(t, "\[h3\]", "<H3>")
+	t = replacetext(t, "\[/h3\]", "</H3>")
+	t = replacetext(t, "\[*\]", "<li>")
+	t = replacetext(t, "\[hr\]", "<HR>")
+	t = replacetext(t, "\[small\]", "<font size = \"1\">")
+	t = replacetext(t, "\[/small\]", "</font>")
+	t = replacetext(t, "\[list\]", "<ul>")
+	t = replacetext(t, "\[/list\]", "</ul>")
+	t = replacetext(t, "\[table\]", "<table border=1 cellspacing=0 cellpadding=3 style='border: 1px solid black;'>")
+	t = replacetext(t, "\[/table\]", "</td></tr></table>")
+	t = replacetext(t, "\[grid\]", "<table>")
+	t = replacetext(t, "\[/grid\]", "</td></tr></table>")
+	t = replacetext(t, "\[row\]", "</td><tr>")
+	t = replacetext(t, "\[tr\]", "</td><tr>")
+	t = replacetext(t, "\[td\]", "<td>")
+	t = replacetext(t, "\[cell\]", "<td>")
+	t = replacetext(t, "\[tab\]", "&nbsp;&nbsp;&nbsp;&nbsp;")
+
+	t = parsemarkdown_basic(t)
+
+	return t
+
+/datum/computer_file/program/filemanager/proc/prepare_printjob(t) // Additional stuff to parse if we want to print it and make a happy Head of Personnel. Forms FTW.
+	t = replacetext(t, "\[field\]", "<span class=\"paper_field\"></span>")
+	t = replacetext(t, "\[sign\]", "<span class=\"paper_field\"></span>")
+
+	t = parse_tags(t)
+
+	t = replacetext(t, regex("(?:%s(?:ign)|%f(?:ield))(?=\\s|$)", "ig"), "<span class=\"paper_field\"></span>")
+
+	return t
+
+/datum/computer_file/program/filemanager/ui_data(mob/user)
+	var/list/data = get_header_data()
+
+	var/obj/item/computer_hardware/hard_drive/HDD = computer.all_components[MC_HDD]
+	var/obj/item/computer_hardware/hard_drive/portable/RHDD = computer.all_components[MC_SDD]
+	if(error)
+		data["error"] = error
+	if(open_file)
+		var/datum/computer_file/data/file
+
+		if(!computer || !HDD)
+			data["error"] = "I/O ERROR: Unable to access hard drive."
+		else
+			file = HDD.find_file_by_name(open_file)
+			if(!istype(file))
+				data["error"] = "I/O ERROR: Unable to open file."
+			else
+				data["filedata"] = parse_tags(file.stored_data)
+				data["filename"] = "[file.filename].[file.filetype]"
+	else
+		if(!computer || !HDD)
+			data["error"] = "I/O ERROR: Unable to access hard drive."
+		else
+			var/list/files[0]
+			for(var/datum/computer_file/F in HDD.stored_files)
+				files.Add(list(list(
+					"name" = F.filename,
+					"type" = F.filetype,
+					"size" = F.size,
+					"undeletable" = F.undeletable
+				)))
+			data["files"] = files
+			if(RHDD)
+				data["usbconnected"] = 1
+				var/list/usbfiles[0]
+				for(var/datum/computer_file/F in RHDD.stored_files)
+					usbfiles.Add(list(list(
+						"name" = F.filename,
+						"type" = F.filetype,
+						"size" = F.size,
+						"undeletable" = F.undeletable
+					)))
+				data["usbfiles"] = usbfiles
+
+	return data

code/modules/modular_computers/file_system/programs/ntdownloader.dm

@@ -0,0 +1,171 @@
+/datum/computer_file/program/ntnetdownload
+	filename = "ntndownloader"
+	filedesc = "Software Download Tool"
+	program_icon_state = "generic"
+	extended_desc = "This program allows downloads of software from official NT repositories"
+	unsendable = 1
+	undeletable = 1
+	size = 4
+	requires_ntnet = 1
+	requires_ntnet_feature = NTNET_SOFTWAREDOWNLOAD
+	available_on_ntnet = 0
+	ui_header = "downloader_finished.gif"
+	tgui_id = "ntos_net_downloader"
+
+	var/datum/computer_file/program/downloaded_file = null
+	var/hacked_download = 0
+	var/download_completion = 0 //GQ of downloaded data.
+	var/download_netspeed = 0
+	var/downloaderror = ""
+	var/obj/item/modular_computer/my_computer = null
+
+/datum/computer_file/program/ntnetdownload/proc/begin_file_download(filename)
+	if(downloaded_file)
+		return 0
+
+	var/datum/computer_file/program/PRG = SSnetworks.station_network.find_ntnet_file_by_name(filename)
+
+	if(!PRG || !istype(PRG))
+		return 0
+
+	// Attempting to download antag only program, but without having emagged computer. No.
+	if(PRG.available_on_syndinet && !(computer.obj_flags & EMAGGED))
+		return 0
+
+	var/obj/item/computer_hardware/hard_drive/hard_drive = computer.all_components[MC_HDD]
+
+	if(!computer || !hard_drive || !hard_drive.can_store_file(PRG))
+		return 0
+
+	ui_header = "downloader_running.gif"
+
+	if(PRG in SSnetworks.station_network.available_station_software)
+		generate_network_log("Began downloading file [PRG.filename].[PRG.filetype] from NTNet Software Repository.")
+		hacked_download = 0
+	else if(PRG in SSnetworks.station_network.available_antag_software)
+		generate_network_log("Began downloading file **ENCRYPTED**.[PRG.filetype] from unspecified server.")
+		hacked_download = 1
+	else
+		generate_network_log("Began downloading file [PRG.filename].[PRG.filetype] from unspecified server.")
+		hacked_download = 0
+
+	downloaded_file = PRG.clone()
+
+/datum/computer_file/program/ntnetdownload/proc/abort_file_download()
+	if(!downloaded_file)
+		return
+	generate_network_log("Aborted download of file [hacked_download ? "**ENCRYPTED**" : "[downloaded_file.filename].[downloaded_file.filetype]"].")
+	downloaded_file = null
+	download_completion = 0
+	ui_header = "downloader_finished.gif"
+
+/datum/computer_file/program/ntnetdownload/proc/complete_file_download()
+	if(!downloaded_file)
+		return
+	generate_network_log("Completed download of file [hacked_download ? "**ENCRYPTED**" : "[downloaded_file.filename].[downloaded_file.filetype]"].")
+	var/obj/item/computer_hardware/hard_drive/hard_drive = computer.all_components[MC_HDD]
+	if(!computer || !hard_drive || !hard_drive.store_file(downloaded_file))
+		// The download failed
+		downloaderror = "I/O ERROR - Unable to save file. Check whether you have enough free space on your hard drive and whether your hard drive is properly connected. If the issue persists contact your system administrator for assistance."
+	downloaded_file = null
+	download_completion = 0
+	ui_header = "downloader_finished.gif"
+
+/datum/computer_file/program/ntnetdownload/process_tick()
+	if(!downloaded_file)
+		return
+	if(download_completion >= downloaded_file.size)
+		complete_file_download()
+	// Download speed according to connectivity state. NTNet server is assumed to be on unlimited speed so we're limited by our local connectivity
+	download_netspeed = 0
+	// Speed defines are found in misc.dm
+	switch(ntnet_status)
+		if(1)
+			download_netspeed = NTNETSPEED_LOWSIGNAL
+		if(2)
+			download_netspeed = NTNETSPEED_HIGHSIGNAL
+		if(3)
+			download_netspeed = NTNETSPEED_ETHERNET
+	download_completion += download_netspeed
+
+/datum/computer_file/program/ntnetdownload/ui_act(action, params)
+	if(..())
+		return 1
+	switch(action)
+		if("PRG_downloadfile")
+			if(!downloaded_file)
+				begin_file_download(params["filename"])
+			return 1
+		if("PRG_reseterror")
+			if(downloaderror)
+				download_completion = 0
+				download_netspeed = 0
+				downloaded_file = null
+				downloaderror = ""
+			return 1
+	return 0
+
+/datum/computer_file/program/ntnetdownload/ui_data(mob/user)
+	my_computer = computer
+
+	if(!istype(my_computer))
+		return
+
+	var/list/data = get_header_data()
+
+	// This IF cuts on data transferred to client, so i guess it's worth it.
+	if(downloaderror) // Download errored. Wait until user resets the program.
+		data["error"] = downloaderror
+	else if(downloaded_file) // Download running. Wait please..
+		data["downloadname"] = downloaded_file.filename
+		data["downloaddesc"] = downloaded_file.filedesc
+		data["downloadsize"] = downloaded_file.size
+		data["downloadspeed"] = download_netspeed
+		data["downloadcompletion"] = round(download_completion, 0.1)
+	else // No download running, pick file.
+		var/obj/item/computer_hardware/hard_drive/hard_drive = my_computer.all_components[MC_HDD]
+		data["disk_size"] = hard_drive.max_capacity
+		data["disk_used"] = hard_drive.used_capacity
+		var/list/all_entries[0]
+		for(var/A in SSnetworks.station_network.available_station_software)
+			var/datum/computer_file/program/P = A
+			// Only those programs our user can run will show in the list
+			if(!P.can_run(user,transfer = 1) || hard_drive.find_file_by_name(P.filename))
+				continue
+			all_entries.Add(list(list(
+			"filename" = P.filename,
+			"filedesc" = P.filedesc,
+			"fileinfo" = P.extended_desc,
+			"compatibility" = check_compatibility(P),
+			"size" = P.size
+			)))
+		data["hackedavailable"] = 0
+		if(computer.obj_flags & EMAGGED) // If we are running on emagged computer we have access to some "bonus" software
+			var/list/hacked_programs[0]
+			for(var/S in SSnetworks.station_network.available_antag_software)
+				var/datum/computer_file/program/P = S
+				if(hard_drive.find_file_by_name(P.filename))
+					continue
+				data["hackedavailable"] = 1
+				hacked_programs.Add(list(list(
+				"filename" = P.filename,
+				"filedesc" = P.filedesc,
+				"fileinfo" = P.extended_desc,
+				"size" = P.size
+				)))
+			data["hacked_programs"] = hacked_programs
+
+		data["downloadable_programs"] = all_entries
+
+	return data
+
+/datum/computer_file/program/ntnetdownload/proc/check_compatibility(datum/computer_file/program/P)
+	var/hardflag = computer.hardware_flag
+
+	if(P && P.is_supported_by_hardware(hardflag,0))
+		return "Compatible"
+	return "Incompatible!"
+
+/datum/computer_file/program/ntnetdownload/kill_program(forced)
+	abort_file_download()
+	return ..(forced)

code/modules/modular_computers/file_system/programs/ntmonitor.dm

@@ -0,0 +1,81 @@
+/datum/computer_file/program/ntnetmonitor
+	filename = "ntmonitor"
+	filedesc = "NTNet Diagnostics and Monitoring"
+	program_icon_state = "comm_monitor"
+	extended_desc = "This program monitors stationwide NTNet network, provides access to logging systems, and allows for configuration changes"
+	size = 12
+	requires_ntnet = 1
+	required_access = ACCESS_NETWORK	//NETWORK CONTROL IS A MORE SECURE PROGRAM.
+	available_on_ntnet = 1
+	tgui_id = "ntos_net_monitor"
+
+/datum/computer_file/program/ntnetmonitor/ui_act(action, params)
+	if(..())
+		return 1
+	switch(action)
+		if("resetIDS")
+			. = 1
+			if(SSnetworks.station_network)
+				SSnetworks.station_network.resetIDS()
+			return 1
+		if("toggleIDS")
+			. = 1
+			if(SSnetworks.station_network)
+				SSnetworks.station_network.toggleIDS()
+			return 1
+		if("toggleWireless")
+			. = 1
+			if(!SSnetworks.station_network)
+				return 1
+
+			// NTNet is disabled. Enabling can be done without user prompt
+			if(SSnetworks.station_network.setting_disabled)
+				SSnetworks.station_network.setting_disabled = 0
+				return 1
+
+			// NTNet is enabled and user is about to shut it down. Let's ask them if they really want to do it, as wirelessly connected computers won't connect without NTNet being enabled (which may prevent people from turning it back on)
+			var/mob/user = usr
+			if(!user)
+				return 1
+			var/response = alert(user, "Really disable NTNet wireless? If your computer is connected wirelessly you won't be able to turn it back on! This will affect all connected wireless devices.", "NTNet shutdown", "Yes", "No")
+			if(response == "Yes")
+				SSnetworks.station_network.setting_disabled = 1
+			return 1
+		if("purgelogs")
+			. = 1
+			if(SSnetworks.station_network)
+				SSnetworks.station_network.purge_logs()
+		if("updatemaxlogs")
+			. = 1
+			var/mob/user = usr
+			var/logcount = text2num(input(user,"Enter amount of logs to keep in memory ([MIN_NTNET_LOGS]-[MAX_NTNET_LOGS]):"))
+			if(SSnetworks.station_network)
+				SSnetworks.station_network.update_max_log_count(logcount)
+		if("toggle_function")
+			. = 1
+			if(!SSnetworks.station_network)
+				return 1
+			SSnetworks.station_network.toggle_function(text2num(params["id"]))
+
+/datum/computer_file/program/ntnetmonitor/ui_data(mob/user)
+	if(!SSnetworks.station_network)
+		return
+	var/list/data = get_header_data()
+
+	data["ntnetstatus"] = SSnetworks.station_network.check_function()
+	data["ntnetrelays"] = SSnetworks.station_network.relays.len
+	data["idsstatus"] = SSnetworks.station_network.intrusion_detection_enabled
+	data["idsalarm"] = SSnetworks.station_network.intrusion_detection_alarm
+
+	data["config_softwaredownload"] = SSnetworks.station_network.setting_softwaredownload
+	data["config_peertopeer"] = SSnetworks.station_network.setting_peertopeer
+	data["config_communication"] = SSnetworks.station_network.setting_communication
+	data["config_systemcontrol"] = SSnetworks.station_network.setting_systemcontrol
+
+	data["ntnetlogs"] = list()
+
+	for(var/i in SSnetworks.station_network.logs)
+		data["ntnetlogs"] += list(list("entry" = i))
+	data["ntnetmaxlogs"] = SSnetworks.station_network.setting_maxlogcount
+
+	return data

code/modules/modular_computers/file_system/programs/ntnrc_client.dm

@@ -0,0 +1,224 @@
+/datum/computer_file/program/chatclient
+	filename = "ntnrc_client"
+	filedesc = "Chat Client"
+	program_icon_state = "command"
+	extended_desc = "This program allows communication over NTNRC network"
+	size = 8
+	requires_ntnet = 1
+	requires_ntnet_feature = NTNET_COMMUNICATION
+	network_destination = "NTNRC server"
+	ui_header = "ntnrc_idle.gif"
+	available_on_ntnet = 1
+	tgui_id = "ntos_net_chat"
+
+	var/last_message = null				// Used to generate the toolbar icon
+	var/username
+	var/datum/ntnet_conversation/channel = null
+	var/operator_mode = 0		// Channel operator mode
+	var/netadmin_mode = 0		// Administrator mode (invisible to other users + bypasses passwords)
+
+/datum/computer_file/program/chatclient/New()
+	username = "DefaultUser[rand(100, 999)]"
+
+/datum/computer_file/program/chatclient/ui_act(action, params)
+	if(..())
+		return 1
+
+	switch(action)
+		if("PRG_speak")
+			. = 1
+			if(!channel)
+				return 1
+			var/mob/living/user = usr
+			var/message = reject_bad_text(input(user, "Enter message or leave blank to cancel: "))
+			if(!message || !channel)
+				return
+			channel.add_message(message, username)
+			user.log_talk(message, LOG_CHAT, tag="as [username] to channel [channel.title]")
+
+		if("PRG_joinchannel")
+			. = 1
+			var/datum/ntnet_conversation/C
+			for(var/datum/ntnet_conversation/chan in SSnetworks.station_network.chat_channels)
+				if(chan.id == text2num(params["id"]))
+					C = chan
+					break
+
+			if(!C)
+				return 1
+
+			if(netadmin_mode)
+				channel = C		// Bypasses normal leave/join and passwords. Technically makes the user invisible to others.
+				return 1
+
+			if(C.password)
+				var/mob/living/user = usr
+				var/password = reject_bad_text(input(user,"Access Denied. Enter password:"))
+				if(C && (password == C.password))
+					C.add_client(src)
+					channel = C
+				return 1
+			C.add_client(src)
+			channel = C
+		if("PRG_leavechannel")
+			. = 1
+			if(channel)
+				channel.remove_client(src)
+			channel = null
+		if("PRG_newchannel")
+			. = 1
+			var/mob/living/user = usr
+			var/channel_title = reject_bad_text(input(user,"Enter channel name or leave blank to cancel:"))
+			if(!channel_title)
+				return
+			var/datum/ntnet_conversation/C = new/datum/ntnet_conversation()
+			C.add_client(src)
+			C.operator = src
+			channel = C
+			C.title = channel_title
+		if("PRG_toggleadmin")
+			. = 1
+			if(netadmin_mode)
+				netadmin_mode = 0
+				if(channel)
+					channel.remove_client(src) // We shouldn't be in channel's user list, but just in case...
+					channel = null
+				return 1
+			var/mob/living/user = usr
+			if(can_run(usr, 1, ACCESS_NETWORK))
+				if(channel)
+					var/response = alert(user, "Really engage admin-mode? You will be disconnected from your current channel!", "NTNRC Admin mode", "Yes", "No")
+					if(response == "Yes")
+						if(channel)
+							channel.remove_client(src)
+							channel = null
+					else
+						return
+				netadmin_mode = 1
+		if("PRG_changename")
+			. = 1
+			var/mob/living/user = usr
+			var/newname = sanitize(input(user,"Enter new nickname or leave blank to cancel:"))
+			if(!newname)
+				return 1
+			if(channel)
+				channel.add_status_message("[username] is now known as [newname].")
+			username = newname
+
+		if("PRG_savelog")
+			. = 1
+			if(!channel)
+				return
+			var/mob/living/user = usr
+			var/logname = stripped_input(user,"Enter desired logfile name (.log) or leave blank to cancel:")
+			if(!logname || !channel)
+				return 1
+			var/datum/computer_file/data/logfile = new/datum/computer_file/data/logfile()
+			// Now we will generate HTML-compliant file that can actually be viewed/printed.
+			logfile.filename = logname
+			logfile.stored_data = "\[b\]Logfile dump from NTNRC channel [channel.title]\[/b\]\[BR\]"
+			for(var/logstring in channel.messages)
+				logfile.stored_data += "[logstring]\[BR\]"
+			logfile.stored_data += "\[b\]Logfile dump completed.\[/b\]"
+			logfile.calculate_size()
+			var/obj/item/computer_hardware/hard_drive/hard_drive = computer.all_components[MC_HDD]
+			if(!computer || !hard_drive || !hard_drive.store_file(logfile))
+				if(!computer)
+					// This program shouldn't even be runnable without computer.
+					CRASH("Var computer is null!")
+					return 1
+				if(!hard_drive)
+					computer.visible_message("\The [computer] shows an \"I/O Error - Hard drive connection error\" warning.")
+				else	// In 99.9% cases this will mean our HDD is full
+					computer.visible_message("\The [computer] shows an \"I/O Error - Hard drive may be full. Please free some space and try again. Required space: [logfile.size]GQ\" warning.")
+		if("PRG_renamechannel")
+			. = 1
+			if(!operator_mode || !channel)
+				return 1
+			var/mob/living/user = usr
+			var/newname = reject_bad_text(input(user, "Enter new channel name or leave blank to cancel:"))
+			if(!newname || !channel)
+				return
+			channel.add_status_message("Channel renamed from [channel.title] to [newname] by operator.")
+			channel.title = newname
+		if("PRG_deletechannel")
+			. = 1
+			if(channel && ((channel.operator == src) || netadmin_mode))
+				qdel(channel)
+				channel = null
+		if("PRG_setpassword")
+			. = 1
+			if(!channel || ((channel.operator != src) && !netadmin_mode))
+				return 1
+
+			var/mob/living/user = usr
+			var/newpassword = sanitize(input(user, "Enter new password for this channel. Leave blank to cancel, enter 'nopassword' to remove password completely:"))
+			if(!channel || !newpassword || ((channel.operator != src) && !netadmin_mode))
+				return 1
+
+			if(newpassword == "nopassword")
+				channel.password = ""
+			else
+				channel.password = newpassword
+
+/datum/computer_file/program/chatclient/process_tick()
+	..()
+	if(program_state != PROGRAM_STATE_KILLED)
+		ui_header = "ntnrc_idle.gif"
+		if(channel)
+			// Remember the last message. If there is no message in the channel remember null.
+			last_message = channel.messages.len ? channel.messages[channel.messages.len - 1] : null
+		else
+			last_message = null
+		return 1
+	if(channel && channel.messages && channel.messages.len)
+		ui_header = last_message == channel.messages[channel.messages.len - 1] ? "ntnrc_idle.gif" : "ntnrc_new.gif"
+	else
+		ui_header = "ntnrc_idle.gif"
+
+/datum/computer_file/program/chatclient/kill_program(forced = FALSE)
+	if(channel)
+		channel.remove_client(src)
+		channel = null
+	..()
+
+/datum/computer_file/program/chatclient/ui_data(mob/user)
+	if(!SSnetworks.station_network || !SSnetworks.station_network.chat_channels)
+		return
+
+	var/list/data = list()
+
+	data = get_header_data()
+
+
+	data["adminmode"] = netadmin_mode
+	if(channel)
+		data["title"] = channel.title
+		var/list/messages[0]
+		for(var/M in channel.messages)
+			messages.Add(list(list(
+				"msg" = M
+			)))
+		data["messages"] = messages
+		var/list/clients[0]
+		for(var/C in channel.clients)
+			var/datum/computer_file/program/chatclient/cl = C
+			clients.Add(list(list(
+				"name" = cl.username
+			)))
+		data["clients"] = clients
+		operator_mode = (channel.operator == src) ? 1 : 0
+		data["is_operator"] = operator_mode || netadmin_mode
+
+	else // Channel selection screen
+		var/list/all_channels[0]
+		for(var/C in SSnetworks.station_network.chat_channels)
+			var/datum/ntnet_conversation/conv = C
+			if(conv && conv.title)
+				all_channels.Add(list(list(
+					"chan" = conv.title,
+					"id" = conv.id
+				)))
+		data["all_channels"] = all_channels
+
+	return data

code/modules/modular_computers/file_system/programs/nttransfer.dm

@@ -0,0 +1,183 @@
+/datum/computer_file/program/nttransfer
+	filename = "nttransfer"
+	filedesc = "P2P Transfer Client"
+	extended_desc = "This program allows for simple file transfer via direct peer to peer connection."
+	program_icon_state = "comm_logs"
+	size = 7
+	requires_ntnet = 1
+	requires_ntnet_feature = NTNET_PEERTOPEER
+	network_destination = "other device via P2P tunnel"
+	available_on_ntnet = 1
+	tgui_id = "ntos_net_transfer"
+
+	var/error = ""										// Error screen
+	var/server_password = ""							// Optional password to download the file.
+	var/datum/computer_file/provided_file = null		// File which is provided to clients.
+	var/datum/computer_file/downloaded_file = null		// File which is being downloaded
+	var/list/connected_clients = list()					// List of connected clients.
+	var/datum/computer_file/program/nttransfer/remote	// Client var, specifies who are we downloading from.
+	var/download_completion = 0							// Download progress in GQ
+	var/download_netspeed = 0							// Our connectivity speed in GQ/s
+	var/actual_netspeed = 0								// Displayed in the UI, this is the actual transfer speed.
+	var/unique_token 									// UID of this program
+	var/upload_menu = 0									// Whether we show the program list and upload menu
+	var/static/nttransfer_uid = 0
+
+/datum/computer_file/program/nttransfer/New()
+	unique_token = nttransfer_uid++
+	..()
+
+/datum/computer_file/program/nttransfer/process_tick()
+	// Server mode
+	update_netspeed()
+	if(provided_file)
+		for(var/datum/computer_file/program/nttransfer/C in connected_clients)
+			// Transfer speed is limited by device which uses slower connectivity.
+			// We can have multiple clients downloading at same time, but let's assume we use some sort of multicast transfer
+			// so they can all run on same speed.
+			C.actual_netspeed = min(C.download_netspeed, download_netspeed)
+			C.download_completion += C.actual_netspeed
+			if(C.download_completion >= provided_file.size)
+				C.finish_download()
+	else if(downloaded_file) // Client mode
+		if(!remote)
+			crash_download("Connection to remote server lost")
+
+/datum/computer_file/program/nttransfer/kill_program(forced = FALSE)
+	if(downloaded_file) // Client mode, clean up variables for next use
+		finalize_download()
+
+	if(provided_file) // Server mode, disconnect all clients
+		for(var/datum/computer_file/program/nttransfer/P in connected_clients)
+			P.crash_download("Connection terminated by remote server")
+		downloaded_file = null
+	..(forced)
+
+/datum/computer_file/program/nttransfer/proc/update_netspeed()
+	download_netspeed = 0
+	switch(ntnet_status)
+		if(1)
+			download_netspeed = NTNETSPEED_LOWSIGNAL
+		if(2)
+			download_netspeed = NTNETSPEED_HIGHSIGNAL
+		if(3)
+			download_netspeed = NTNETSPEED_ETHERNET
+
+// Finishes download and attempts to store the file on HDD
+/datum/computer_file/program/nttransfer/proc/finish_download()
+	var/obj/item/computer_hardware/hard_drive/hard_drive = computer.all_components[MC_HDD]
+	if(!computer || !hard_drive || !hard_drive.store_file(downloaded_file))
+		error = "I/O Error:  Unable to save file. Check your hard drive and try again."
+	finalize_download()
+
+//  Crashes the download and displays specific error message
+/datum/computer_file/program/nttransfer/proc/crash_download(var/message)
+	error = message ? message : "An unknown error has occurred during download"
+	finalize_download()
+
+// Cleans up variables for next use
+/datum/computer_file/program/nttransfer/proc/finalize_download()
+	if(remote)
+		remote.connected_clients.Remove(src)
+	downloaded_file = null
+	remote = null
+	download_completion = 0
+
+/datum/computer_file/program/nttransfer/ui_act(action, params)
+	if(..())
+		return 1
+	switch(action)
+		if("PRG_downloadfile")
+			for(var/datum/computer_file/program/nttransfer/P in SSnetworks.station_network.fileservers)
+				if("[P.unique_token]" == params["id"])
+					remote = P
+					break
+			if(!remote || !remote.provided_file)
+				return
+			if(remote.server_password)
+				var/pass = reject_bad_text(input(usr, "Code 401 Unauthorized. Please enter password:", "Password required"))
+				if(pass != remote.server_password)
+					error = "Incorrect Password"
+					return
+			downloaded_file = remote.provided_file.clone()
+			remote.connected_clients.Add(src)
+			return 1
+		if("PRG_reset")
+			error = ""
+			upload_menu = 0
+			finalize_download()
+			if(src in SSnetworks.station_network.fileservers)
+				SSnetworks.station_network.fileservers.Remove(src)
+			for(var/datum/computer_file/program/nttransfer/T in connected_clients)
+				T.crash_download("Remote server has forcibly closed the connection")
+			provided_file = null
+			return 1
+		if("PRG_setpassword")
+			var/pass = reject_bad_text(input(usr, "Enter new server password. Leave blank to cancel, input 'none' to disable password.", "Server security", "none"))
+			if(!pass)
+				return
+			if(pass == "none")
+				server_password = ""
+				return
+			server_password = pass
+			return 1
+		if("PRG_uploadfile")
+			var/obj/item/computer_hardware/hard_drive/hard_drive = computer.all_components[MC_HDD]
+			for(var/datum/computer_file/F in hard_drive.stored_files)
+				if("[F.uid]" == params["id"])
+					if(F.unsendable)
+						error = "I/O Error: File locked."
+						return
+					if(istype(F, /datum/computer_file/program))
+						var/datum/computer_file/program/P = F
+						if(!P.can_run(usr,transfer = 1))
+							error = "Access Error: Insufficient rights to upload file."
+					provided_file = F
+					SSnetworks.station_network.fileservers.Add(src)
+					return
+			error = "I/O Error: Unable to locate file on hard drive."
+			return 1
+		if("PRG_uploadmenu")
+			upload_menu = 1
+
+
+/datum/computer_file/program/nttransfer/ui_data(mob/user)
+
+	var/list/data = get_header_data()
+
+	if(error)
+		data["error"] = error
+	else if(downloaded_file)
+		data["downloading"] = 1
+		data["download_size"] = downloaded_file.size
+		data["download_progress"] = download_completion
+		data["download_netspeed"] = actual_netspeed
+		data["download_name"] = "[downloaded_file.filename].[downloaded_file.filetype]"
+	else if (provided_file)
+		data["uploading"] = 1
+		data["upload_uid"] = unique_token
+		data["upload_clients"] = connected_clients.len
+		data["upload_haspassword"] = server_password ? 1 : 0
+		data["upload_filename"] = "[provided_file.filename].[provided_file.filetype]"
+	else if (upload_menu)
+		var/list/all_files[0]
+		var/obj/item/computer_hardware/hard_drive/hard_drive = computer.all_components[MC_HDD]
+		for(var/datum/computer_file/F in hard_drive.stored_files)
+			all_files.Add(list(list(
+			"uid" = F.uid,
+			"filename" = "[F.filename].[F.filetype]",
+			"size" = F.size
+			)))
+		data["upload_filelist"] = all_files
+	else
+		var/list/all_servers[0]
+		for(var/datum/computer_file/program/nttransfer/P in SSnetworks.station_network.fileservers)
+			all_servers.Add(list(list(
+			"uid" = P.unique_token,
+			"filename" = "[P.provided_file.filename].[P.provided_file.filetype]",
+			"size" = P.provided_file.size,
+			"haspassword" = P.server_password ? 1 : 0
+			)))
+		data["servers"] = all_servers
+
+	return data

code/modules/modular_computers/file_system/programs/powermonitor.dm

@@ -0,0 +1,104 @@
+//normal computer version is located in code\modules\power\monitor.dm, /obj/machinery/computer/monitor
+
+/datum/computer_file/program/power_monitor
+	filename = "powermonitor"
+	filedesc = "Power Monitor"
+	program_icon_state = "power_monitor"
+	extended_desc = "This program connects to sensors around the station to provide information about electrical systems"
+	ui_header = "power_norm.gif"
+	transfer_access = ACCESS_ENGINE
+	usage_flags = PROGRAM_CONSOLE
+	requires_ntnet = 0
+	network_destination = "power monitoring system"
+	size = 9
+	tgui_id = "ntos_power_monitor"
+	ui_x = 1200
+	ui_y = 1000
+
+	var/has_alert = 0
+	var/obj/structure/cable/attached_wire
+	var/obj/machinery/power/apc/local_apc
+	var/list/history = list()
+	var/record_size = 60
+	var/record_interval = 50
+	var/next_record = 0
+
+
+/datum/computer_file/program/power_monitor/run_program(mob/living/user)
+	. = ..(user)
+	search()
+	history["supply"] = list()
+	history["demand"] = list()
+
+
+/datum/computer_file/program/power_monitor/process_tick()
+	if(!get_powernet())
+		search()
+	else
+		record()
+
+/datum/computer_file/program/power_monitor/proc/search() //keep in sync with /obj/machinery/computer/monitor's version
+	var/turf/T = get_turf(computer)
+	attached_wire = locate(/obj/structure/cable) in T
+	if(attached_wire)
+		return
+	var/area/A = get_area(computer) //if the computer isn't directly connected to a wire, attempt to find the APC powering it to pull it's powernet instead
+	if(!A)
+		return
+	local_apc = A.get_apc()
+	if(!local_apc)
+		return
+	if(!local_apc.terminal) //this really shouldn't happen without badminnery.
+		local_apc = null
+
+/datum/computer_file/program/power_monitor/proc/get_powernet() //keep in sync with /obj/machinery/computer/monitor's version
+	if(attached_wire || (local_apc && local_apc.terminal))
+		return attached_wire ? attached_wire.powernet : local_apc.terminal.powernet
+	return FALSE
+
+/datum/computer_file/program/power_monitor/proc/record() //keep in sync with /obj/machinery/computer/monitor's version
+	if(world.time >= next_record)
+		next_record = world.time + record_interval
+
+		var/datum/powernet/connected_powernet = get_powernet()
+
+		var/list/supply = history["supply"]
+		if(connected_powernet)
+			supply += connected_powernet.viewavail
+		if(supply.len > record_size)
+			supply.Cut(1, 2)
+
+		var/list/demand = history["demand"]
+		if(connected_powernet)
+			demand += connected_powernet.viewload
+		if(demand.len > record_size)
+			demand.Cut(1, 2)
+
+/datum/computer_file/program/power_monitor/ui_data()
+	var/datum/powernet/connected_powernet = get_powernet()
+	var/list/data = get_header_data()
+	data["stored"] = record_size
+	data["interval"] = record_interval / 10
+	data["attached"] = connected_powernet ? TRUE : FALSE
+	if(connected_powernet)
+		data["supply"] = DisplayPower(connected_powernet.viewavail)
+		data["demand"] = DisplayPower(connected_powernet.viewload)
+	data["history"] = history
+
+	data["areas"] = list()
+	if(connected_powernet)
+		for(var/obj/machinery/power/terminal/term in connected_powernet.nodes)
+			var/obj/machinery/power/apc/A = term.master
+			if(istype(A))
+				data["areas"] += list(list(
+					"name" = A.area.name,
+					"charge" = A.cell ? A.cell.percent() : 0,
+					"load" = DisplayPower(A.lastused_total),
+					"charging" = A.charging,
+					"eqp" = A.equipment,
+					"lgt" = A.lighting,
+					"env" = A.environ
+				))
+
+	return data
+

code/modules/modular_computers/file_system/programs/sm_monitor.dm

@@ -0,0 +1,126 @@
+/datum/computer_file/program/supermatter_monitor
+	filename = "smmonitor"
+	filedesc = "Supermatter Monitoring"
+	ui_header = "smmon_0.gif"
+	program_icon_state = "smmon_0"
+	extended_desc = "This program connects to specially calibrated supermatter sensors to provide information on the status of supermatter-based engines."
+	requires_ntnet = TRUE
+	transfer_access = ACCESS_CONSTRUCTION
+	network_destination = "supermatter monitoring system"
+	size = 5
+	tgui_id = "ntos_supermatter_monitor"
+	ui_x = 600
+	ui_y = 400
+	var/last_status = SUPERMATTER_INACTIVE
+	var/list/supermatters
+	var/obj/machinery/power/supermatter_crystal/active		// Currently selected supermatter crystal.
+
+
+/datum/computer_file/program/supermatter_monitor/process_tick()
+	..()
+	var/new_status = get_status()
+	if(last_status != new_status)
+		last_status = new_status
+		ui_header = "smmon_[last_status].gif"
+		program_icon_state = "smmon_[last_status]"
+		if(istype(computer))
+			computer.update_icon()
+
+/datum/computer_file/program/supermatter_monitor/run_program(mob/living/user)
+	. = ..(user)
+	refresh()
+
+/datum/computer_file/program/supermatter_monitor/kill_program(forced = FALSE)
+	active = null
+	supermatters = null
+	..()
+
+// Refreshes list of active supermatter crystals
+/datum/computer_file/program/supermatter_monitor/proc/refresh()
+	supermatters = list()
+	var/turf/T = get_turf(ui_host())
+	if(!T)
+		return
+	for(var/obj/machinery/power/supermatter_crystal/S in GLOB.machines)
+		// Delaminating, not within coverage, not on a tile.
+		if (!isturf(S.loc) || !(is_station_level(S.z) || is_mining_level(S.z) || S.z == T.z))
+			continue
+		supermatters.Add(S)
+
+	if(!(active in supermatters))
+		active = null
+
+/datum/computer_file/program/supermatter_monitor/proc/get_status()
+	. = SUPERMATTER_INACTIVE
+	for(var/obj/machinery/power/supermatter_crystal/S in supermatters)
+		. = max(., S.get_status())
+
+/datum/computer_file/program/supermatter_monitor/ui_data()
+	var/list/data = get_header_data()
+
+	if(istype(active))
+		var/turf/T = get_turf(active)
+		if(!T)
+			active = null
+			refresh()
+			return
+		var/datum/gas_mixture/air = T.return_air()
+		if(!air)
+			active = null
+			return
+
+		data["active"] = TRUE
+		data["SM_integrity"] = active.get_integrity()
+		data["SM_power"] = active.power
+		data["SM_ambienttemp"] = air.temperature
+		data["SM_ambientpressure"] = air.return_pressure()
+		//data["SM_EPR"] = round((air.total_moles / air.group_multiplier) / 23.1, 0.01)
+		var/list/gasdata = list()
+
+
+		if(air.total_moles())
+			for(var/gasid in air.gases)
+				gasdata.Add(list(list(
+				"name"= GLOB.meta_gas_names[gasid],
+				"amount" = round(100*air.gases[gasid]/air.total_moles(),0.01))))
+
+		else
+			for(var/gasid in air.gases)
+				gasdata.Add(list(list(
+					"name"= GLOB.meta_gas_names[gasid],
+					"amount" = 0)))
+
+		data["gases"] = gasdata
+	else
+		var/list/SMS = list()
+		for(var/obj/machinery/power/supermatter_crystal/S in supermatters)
+			var/area/A = get_area(S)
+			if(A)
+				SMS.Add(list(list(
+				"area_name" = A.name,
+				"integrity" = S.get_integrity(),
+				"uid" = S.uid
+				)))
+
+		data["active"] = FALSE
+		data["supermatters"] = SMS
+
+	return data
+
+/datum/computer_file/program/supermatter_monitor/ui_act(action, params)
+	if(..())
+		return TRUE
+
+	switch(action)
+		if("PRG_clear")
+			active = null
+			return TRUE
+		if("PRG_refresh")
+			refresh()
+			return TRUE
+		if("PRG_set")
+			var/newuid = text2num(params["target"])
+			for(var/obj/machinery/power/supermatter_crystal/S in supermatters)
+				if(S.uid == newuid)
+					active = S
+			return TRUE