NanoUI PDAs made Modular (lazy commit)

code/modules/pda/app.dm

@@ -5,7 +5,7 @@
 	var/notify_silent = 0
 	var/hidden = 0				// program not displayed in main menu
 	var/category = "General"	// the category to list it in on the main menu
-	var/obj/item/pda/pda	// if this is null, and the app is running code, something's gone wrong
+	var/obj/item/device/pda/pda	// if this is null, and the app is running code, something's gone wrong
 
 /datum/data/pda/Destroy()
 	pda = null
@@ -84,7 +84,7 @@
 	var/base_name
 	category = "Scanners"
 
-/datum/data/pda/utility/scanmode/New(obj/item/cartridge/C)
+/datum/data/pda/utility/scanmode/New(obj/item/weapon/cartridge/C)
 	..(C)
 	name = "Enable [base_name]"
 

code/modules/pda/cart.dm

@@ -80,9 +80,13 @@ var/list/civilian_cartridges = list(
 	var/message1	// used for status_displays
 	var/message2
 	var/list/stored_data = list()
+	var/list/programs = list()
+	var/list/messenger_plugins = list()
 
 /obj/item/weapon/cartridge/Destroy()
 	QDEL_NULL(radio)
+	QDEL_LIST(programs)
+	QDEL_LIST(messenger_plugins)
 	return ..()
 
 /obj/item/weapon/cartridge/engineering
@@ -234,14 +238,25 @@ var/list/civilian_cartridges = list(
 	name = "\improper Value-PAK cartridge"
 	desc = "Now with 200% more value!"
 	icon_state = "cart-c"
-	access_quartermaster = 1
-	access_janitor = 1
-	access_engine = 1
-	access_security = 1
-	access_medical = 1
-	access_reagent_scanner = 1
-	access_status_display = 1
-	access_atmos = 1
+	programs = list(
+		new/datum/data/pda/app/power,
+		new/datum/data/pda/utility/scanmode/halogen,
+
+		new/datum/data/pda/utility/scanmode/gas,
+
+		new/datum/data/pda/app/crew_records/medical,
+		new/datum/data/pda/utility/scanmode/medical,
+
+		new/datum/data/pda/utility/scanmode/reagent,
+
+		new/datum/data/pda/app/crew_records/security,
+		new/datum/data/pda/app/secbot_control,
+
+		new/datum/data/pda/app/janitor,
+
+		new/datum/data/pda/app/supply,
+
+		new/datum/data/pda/app/status_display)
 
 /obj/item/weapon/cartridge/syndicate
 	name = "\improper Detomatix cartridge"
@@ -276,6 +291,13 @@ var/list/civilian_cartridges = list(
 
 	frequency.post_signal(src, status_signal)
 
+/obj/item/weapon/cartridge/frame
+	name = "F.R.A.M.E. cartridge"
+	icon_state = "cart"
+	charges = 5
+	var/telecrystals = 0
+	messenger_plugins = list(new/datum/data/pda/messenger_plugin/virus/frame)
+
 
 /*
 	This generates the nano values of the cart menus.

code/modules/pda/cart_apps.dm

@@ -0,0 +1,410 @@
+/datum/data/pda/app/status_display
+	name = "Status Display"
+	icon = "list-alt"
+	template = "pda_status_display"
+	category = "Utilities"
+
+	var/message1	// used for status_displays
+	var/message2
+
+/datum/data/pda/app/status_display/update_ui(mob/user as mob, list/data)
+	data["records"] = list(
+		"message1" = message1 ? message1 : "(none)",
+		"message2" = message2 ? message2 : "(none)")
+
+/datum/data/pda/app/status_display/Topic(href, list/href_list)
+	switch(href_list["choice"])
+		if("Status")
+			switch(href_list["statdisp"])
+				if("message")
+					post_status("message", message1, message2)
+				if("alert")
+					post_status("alert", href_list["alert"])
+				if("setmsg1")
+					message1 = clean_input("Line 1", "Enter Message Text", message1)
+				if("setmsg2")
+					message2 = clean_input("Line 2", "Enter Message Text", message2)
+				else
+					post_status(href_list["statdisp"])
+
+/datum/data/pda/app/status_display/proc/post_status(var/command, var/data1, var/data2)
+	var/datum/radio_frequency/frequency = radio_controller.return_frequency(1435)
+	if(!frequency)
+		return
+
+	var/datum/signal/status_signal = new
+	status_signal.source = src
+	status_signal.transmission_method = 1
+	status_signal.data["command"] = command
+
+	switch(command)
+		if("message")
+			status_signal.data["msg1"] = data1
+			status_signal.data["msg2"] = data2
+			var/mob/user = pda.fingerprintslast
+			if(istype(pda.loc, /mob/living))
+				name = pda.loc
+			log_admin("STATUS: [user] set status screen with [pda]. Message: [data1] [data2]")
+			message_admins("STATUS: [user] set status screen with [pda]. Message: [data1] [data2]")
+
+		if("alert")
+			status_signal.data["picture_state"] = data1
+
+	spawn(0)
+		frequency.post_signal(src, status_signal)
+
+
+/datum/data/pda/app/signaller
+	name = "Signaler System"
+	icon = "rss"
+	template = "pda_signaller"
+	category = "Utilities"
+
+/datum/data/pda/app/signaller/update_ui(mob/user as mob, list/data)
+	if(pda.cartridge && istype(pda.cartridge.radio, /obj/item/radio/integrated/signal))
+		var/obj/item/radio/integrated/signal/R = pda.cartridge.radio
+		data["signal_freq"] = format_frequency(R.frequency)
+		data["signal_code"] = R.code
+
+/datum/data/pda/app/signaller/Topic(href, list/href_list)
+	if(pda.cartridge && istype(pda.cartridge.radio, /obj/item/radio/integrated/signal))
+		var/obj/item/radio/integrated/signal/R = pda.cartridge.radio
+
+		switch(href_list["choice"])
+			if("Send Signal")
+				spawn(0)
+					R.send_signal("ACTIVATE")
+
+			if("Signal Frequency")
+				var/new_frequency = sanitize_frequency(R.frequency + text2num(href_list["sfreq"]))
+				R.set_frequency(new_frequency)
+
+			if("Signal Code")
+				R.code += text2num(href_list["scode"])
+				R.code = round(R.code)
+				R.code = min(100, R.code)
+				R.code = max(1, R.code)
+
+/datum/data/pda/app/power
+	name = "Power Monitor"
+	icon = "exclamation-triangle"
+	template = "pda_power"
+	category = "Engineering"
+	update = PDA_APP_UPDATE_SLOW
+
+// 	var/obj/machinery/computer/monitor/powmonitor = null
+
+// /datum/data/pda/app/power/update_ui(mob/user as mob, list/data)
+// 	update = PDA_APP_UPDATE_SLOW
+
+// 	if(powmonitor && !isnull(powmonitor.powernet))
+// 		data["records"] = list(
+// 			"powerconnected" = 1,
+// 			"poweravail" = powmonitor.powernet.avail,
+// 			"powerload" = num2text(powmonitor.powernet.viewload, 10),
+// 			"powerdemand" = powmonitor.powernet.load,
+// 			"apcs" = GLOB.apc_repository.apc_data(powmonitor.powernet))
+// 		has_back = 1
+// 	else
+// 		data["records"] = list(
+// 			"powerconnected" = 0,
+// 			"powermonitors" = GLOB.powermonitor_repository.powermonitor_data())
+// 		has_back = 0
+
+// /datum/data/pda/app/power/Topic(href, list/href_list)
+// 	switch(href_list["choice"])
+// 		if("Power Select")
+// 			var/pref = href_list["target"]
+// 			powmonitor = locate(pref)
+// 			update = PDA_APP_UPDATE
+// 		if("Back")
+// 			powmonitor = null
+// 			update = PDA_APP_UPDATE
+
+/datum/data/pda/app/crew_records
+	var/datum/data/record/general_records = null
+
+/datum/data/pda/app/crew_records/update_ui(mob/user as mob, list/data)
+	var/list/records[0]
+
+	if(general_records && (general_records in data_core.general))
+		data["records"] = records
+		records["general"] = general_records.fields
+		return records
+	else
+		for(var/A in sortRecord(data_core.general))
+			var/datum/data/record/R = A
+			if(R)
+				records += list(list(Name = R.fields["name"], "ref" = "\ref[R]"))
+		data["recordsList"] = records
+		return null
+
+/datum/data/pda/app/crew_records/Topic(href, list/href_list)
+	switch(href_list["choice"])
+		if("Records")
+			var/datum/data/record/R = locate(href_list["target"])
+			if(R && (R in data_core.general))
+				load_records(R)
+		if("Back")
+			general_records = null
+			has_back = 0
+
+/datum/data/pda/app/crew_records/proc/load_records(datum/data/record/R)
+	general_records = R
+	has_back = 1
+
+/datum/data/pda/app/crew_records/medical
+	name = "Medical Records"
+	icon = "heartbeat"
+	template = "pda_medical"
+	category = "Medical"
+
+	var/datum/data/record/medical_records = null
+
+/datum/data/pda/app/crew_records/medical/update_ui(mob/user as mob, list/data)
+	var/list/records = ..()
+	if(!records)
+		return
+
+	if(medical_records && (medical_records in data_core.medical))
+		records["medical"] = medical_records.fields
+
+	return records
+
+/datum/data/pda/app/crew_records/medical/load_records(datum/data/record/R)
+	..(R)
+	for(var/A in data_core.medical)
+		var/datum/data/record/E = A
+		if(E && (E.fields["name"] == R.fields["name"] || E.fields["id"] == R.fields["id"]))
+			medical_records = E
+			break
+
+/datum/data/pda/app/crew_records/security
+	name = "Security Records"
+	icon = "tags"
+	template = "pda_security"
+	category = "Security"
+
+	var/datum/data/record/security_records = null
+
+/datum/data/pda/app/crew_records/security/update_ui(mob/user as mob, list/data)
+	var/list/records = ..()
+	if(!records)
+		return
+
+	if(security_records && (security_records in data_core.security))
+		records["security"] = security_records.fields
+
+	return records
+
+/datum/data/pda/app/crew_records/security/load_records(datum/data/record/R)
+	..(R)
+	for(var/A in data_core.security)
+		var/datum/data/record/E = A
+		if(E && (E.fields["name"] == R.fields["name"] || E.fields["id"] == R.fields["id"]))
+			security_records = E
+			break
+
+/datum/data/pda/app/secbot_control
+	name = "Security Bot Access"
+	icon = "rss"
+	template = "pda_secbot"
+	category = "Security"
+
+/datum/data/pda/app/secbot_control/update_ui(mob/user as mob, list/data)
+	var/botsData[0]
+	var/beepskyData[0]
+	if(pda.cartridge && istype(pda.cartridge.radio, /obj/item/radio/integrated/beepsky))
+		var/obj/item/radio/integrated/beepsky/SC = pda.cartridge.radio
+		beepskyData["active"] = SC.active ? sanitize(SC.active.name) : null
+		has_back = SC.active ? 1 : 0
+		if(SC.active && !isnull(SC.botstatus))
+			var/area/loca = SC.botstatus["loca"]
+			var/loca_name = sanitize(loca.name)
+			beepskyData["botstatus"] = list("loca" = loca_name, "mode" = SC.botstatus["mode"])
+		else
+			beepskyData["botstatus"] = list("loca" = null, "mode" = -1)
+		var/botsCount=0
+		if(SC.botlist && SC.botlist.len)
+			for(var/mob/living/bot/B in SC.botlist)
+				botsCount++
+				if(B.loc)
+					botsData[++botsData.len] = list("Name" = sanitize(B.name), "Location" = sanitize(B.loc.loc.name), "ref" = "\ref[B]")
+
+		if(!botsData.len)
+			botsData[++botsData.len] = list("Name" = "No bots found", "Location" = "Invalid", "ref"= null)
+
+		beepskyData["bots"] = botsData
+		beepskyData["count"] = botsCount
+
+	else
+		beepskyData["active"] = 0
+		botsData[++botsData.len] = list("Name" = "No bots found", "Location" = "Invalid", "ref"= null)
+		beepskyData["botstatus"] = list("loca" = null, "mode" = null)
+		beepskyData["bots"] = botsData
+		beepskyData["count"] = 0
+		has_back = 0
+
+	data["beepsky"] = beepskyData
+
+/datum/data/pda/app/secbot_control/Topic(href, list/href_list)
+	switch(href_list["choice"])
+		if("Back")
+			if(pda.cartridge && istype(pda.cartridge.radio, /obj/item/radio/integrated/beepsky))
+				pda.cartridge.radio.Topic(null, list(radiomenu = "1", op = "botlist"))
+
+/datum/data/pda/app/mule_control
+	name = "Delivery Bot Control"
+	icon = "truck"
+	template = "pda_mule"
+	category = "Quartermaster"
+
+// /datum/data/pda/app/mule_control/update_ui(mob/user as mob, list/data)
+// 	var/muleData[0]
+// 	var/mulebotsData[0]
+// 	if(pda.cartridge && istype(pda.cartridge.radio, /obj/item/radio/integrated/mule))
+// 		var/obj/item/radio/integrated/mule/QC = pda.cartridge.radio
+// 		muleData["active"] = QC.active ? sanitize(QC.active.name) : null
+// 		has_back = QC.active ? 1 : 0
+// 		if(QC.active && !isnull(QC.botstatus))
+// 			var/area/loca = QC.botstatus["loca"]
+// 			var/loca_name = sanitize(loca.name)
+// 			muleData["botstatus"] =  list("loca" = loca_name, "mode" = QC.botstatus["mode"],"home"=QC.botstatus["home"],"powr" = QC.botstatus["powr"],"retn" =QC.botstatus["retn"], "pick"=QC.botstatus["pick"], "load" = QC.botstatus["load"], "dest" = sanitize(QC.botstatus["dest"]))
+
+// 		else
+// 			muleData["botstatus"] = list("loca" = null, "mode" = -1,"home"=null,"powr" = null,"retn" =null, "pick"=null, "load" = null, "dest" = null)
+
+
+// 		var/mulebotsCount=0
+// 		for(var/mob/living/bot/B in QC.botlist)
+// 			mulebotsCount++
+// 			if(B.loc)
+// 				mulebotsData[++mulebotsData.len] = list("Name" = sanitize(B.name), "Location" = sanitize(B.loc.loc.name), "ref" = "\ref[B]")
+
+// 		if(!mulebotsData.len)
+// 			mulebotsData[++mulebotsData.len] = list("Name" = "No bots found", "Location" = "Invalid", "ref"= null)
+
+// 		muleData["bots"] = mulebotsData
+// 		muleData["count"] = mulebotsCount
+
+// 	else
+// 		muleData["botstatus"] =  list("loca" = null, "mode" = -1,"home"=null,"powr" = null,"retn" =null, "pick"=null, "load" = null, "dest" = null)
+// 		muleData["active"] = 0
+// 		mulebotsData[++mulebotsData.len] = list("Name" = "No bots found", "Location" = "Invalid", "ref"= null)
+// 		muleData["bots"] = mulebotsData
+// 		muleData["count"] = 0
+// 		has_back = 0
+
+// 	data["mulebot"] = muleData
+
+// /datum/data/pda/app/mule_control/Topic(href, list/href_list)
+// 	switch(href_list["choice"])
+// 		if("Back")
+// 			if(pda.cartridge && istype(pda.cartridge.radio, /obj/item/radio/integrated/mule))
+// 				pda.cartridge.radio.Topic(null, list(radiomenu = "1", op = "botlist"))
+
+/datum/data/pda/app/supply
+	name = "Supply Records"
+	icon = "file-text-o"
+	template = "pda_supply"
+	category = "Quartermaster"
+	update = PDA_APP_UPDATE_SLOW
+
+// /datum/data/pda/app/supply/update_ui(mob/user as mob, list/data)
+// 	var/supplyData[0]
+
+// 	if(SSshuttle.supply.mode == SHUTTLE_CALL)
+// 		supplyData["shuttle_moving"] = 1
+
+// 	if(is_station_level(SSshuttle.supply.z))
+// 		supplyData["shuttle_loc"] = "Station"
+// 	else
+// 		supplyData["shuttle_loc"] = "CentCom"
+
+// 	supplyData["shuttle_time"] = "([SSshuttle.supply.timeLeft(600)] Mins)"
+
+// 	var/supplyOrderCount = 0
+// 	var/supplyOrderData[0]
+// 	for(var/S in SSshuttle.shoppinglist)
+// 		var/datum/supply_order/SO = S
+// 		supplyOrderCount++
+// 		supplyOrderData[++supplyOrderData.len] = list("Number" = SO.ordernum, "Name" = html_encode(SO.object.name), "ApprovedBy" = SO.orderedby, "Comment" = html_encode(SO.comment))
+
+// 	if(!supplyOrderData.len)
+// 		supplyOrderData[++supplyOrderData.len] = list("Number" = null, "Name" = null, "OrderedBy"=null)
+
+// 	supplyData["approved"] = supplyOrderData
+// 	supplyData["approved_count"] = supplyOrderCount
+
+// 	var/requestCount = 0
+// 	var/requestData[0]
+// 	for(var/S in SSshuttle.requestlist)
+// 		var/datum/supply_order/SO = S
+// 		requestCount++
+// 		requestData[++requestData.len] = list("Number" = SO.ordernum, "Name" = html_encode(SO.object.name), "OrderedBy" = SO.orderedby, "Comment" = html_encode(SO.comment))
+
+// 	if(!requestData.len)
+// 		requestData[++requestData.len] = list("Number" = null, "Name" = null, "orderedBy" = null, "Comment" = null)
+
+// 	supplyData["requests"] = requestData
+// 	supplyData["requests_count"] = requestCount
+
+// 	data["supply"] = supplyData
+
+/datum/data/pda/app/janitor
+	name = "Custodial Locator"
+	icon = "trash-o"
+	template = "pda_janitor"
+	category = "Utilities"
+	update = PDA_APP_UPDATE_SLOW
+
+/datum/data/pda/app/janitor/update_ui(mob/user as mob, list/data)
+	var/JaniData[0]
+	var/turf/cl = get_turf(pda)
+
+	if(cl)
+		JaniData["user_loc"] = list("x" = cl.x, "y" = cl.y)
+	else
+		JaniData["user_loc"] = list("x" = 0, "y" = 0)
+
+	var/MopData[0]
+	for(var/obj/item/weapon/mop/M in all_mops)//GLOB.janitorial_equipment)
+		var/turf/ml = get_turf(M)
+		if(ml)
+			if(ml.z != cl.z)
+				continue
+			var/direction = get_dir(pda, M)
+			MopData[++MopData.len] = list ("x" = ml.x, "y" = ml.y, "dir" = uppertext(dir2text(direction)), "status" = M.reagents.total_volume ? "Wet" : "Dry")
+
+	var/BucketData[0]
+	for(var/obj/structure/mopbucket/B in all_mopbuckets)//GLOB.janitorial_equipment)
+		var/turf/bl = get_turf(B)
+		if(bl)
+			if(bl.z != cl.z)
+				continue
+			var/direction = get_dir(pda,B)
+			BucketData[++BucketData.len] = list ("x" = bl.x, "y" = bl.y, "dir" = uppertext(dir2text(direction)), "volume" = B.reagents.total_volume, "max_volume" = B.reagents.maximum_volume)
+
+	var/CbotData[0]
+	for(var/mob/living/bot/cleanbot/B in mob_list)
+		var/turf/bl = get_turf(B)
+		if(bl)
+			if(bl.z != cl.z)
+				continue
+			var/direction = get_dir(pda,B)
+			CbotData[++CbotData.len] = list("x" = bl.x, "y" = bl.y, "dir" = uppertext(dir2text(direction)), "status" = B.on ? "Online" : "Offline")
+
+	var/CartData[0]
+	for(var/obj/structure/janitorialcart/B in all_janitorial_carts)//GLOB.janitorial_equipment)
+		var/turf/bl = get_turf(B)
+		if(bl)
+			if(bl.z != cl.z)
+				continue
+			var/direction = get_dir(pda,B)
+			CartData[++CartData.len] = list("x" = bl.x, "y" = bl.y, "dir" = uppertext(dir2text(direction)), "volume" = B.reagents.total_volume, "max_volume" = B.reagents.maximum_volume)
+
+	JaniData["mops"] = MopData.len ? MopData : null
+	JaniData["buckets"] = BucketData.len ? BucketData : null
+	JaniData["cleanbots"] = CbotData.len ? CbotData : null
+	JaniData["carts"] = CartData.len ? CartData : null
+	data["janitor"] = JaniData

code/modules/pda/core_apps.dm

@@ -0,0 +1,111 @@
+/datum/data/pda/app/main_menu
+	icon = "home"
+	template = "pda_main_menu"
+	hidden = 1
+
+/datum/data/pda/app/main_menu/update_ui(mob/user as mob, list/data)
+	title = pda.name
+
+	data["app"]["is_home"] = 1
+
+	data["apps"] = pda.shortcut_cache
+	data["categories"] = pda.shortcut_cat_order
+	data["pai"] = !isnull(pda.pai)				// pAI inserted?
+
+	var/list/notifying[0]
+	for(var/P in pda.notifying_programs)
+		notifying["\ref[P]"] = 1
+	data["notifying"] = notifying
+
+/datum/data/pda/app/main_menu/Topic(href, list/href_list)
+	switch(href_list["choice"])
+		if("UpdateInfo")
+			pda.ownjob = pda.id.assignment
+			pda.ownrank = pda.id.rank
+			pda.name = "PDA-[pda.owner] ([pda.ownjob])"
+		if("pai")
+			if(pda.pai)
+				if(pda.pai.loc != pda)
+					pda.pai = null
+				else
+					switch(href_list["option"])
+						if("1")		// Configure pAI device
+							pda.pai.attack_self(usr)
+						if("2")		// Eject pAI device
+							var/turf/T = get_turf_or_move(pda.loc)
+							if(T)
+								pda.pai.loc = T
+								pda.pai = null
+
+/datum/data/pda/app/notekeeper
+	name = "Notekeeper"
+	icon = "sticky-note-o"
+	template = "pda_notekeeper"
+
+	var/note = null
+	var/notehtml = ""
+
+/datum/data/pda/app/notekeeper/start()
+	. = ..()
+	if(!note)
+		note = "Congratulations, your station has chosen the [pda.model_name]!"
+
+/datum/data/pda/app/notekeeper/update_ui(mob/user as mob, list/data)
+	data["note"] = note									// current pda notes
+
+/datum/data/pda/app/notekeeper/Topic(href, list/href_list)
+	switch(href_list["choice"])
+		if("Edit")
+			var/n = input("Please enter message", name, notehtml) as message
+			if(pda.loc == usr)
+				note = adminscrub(n)
+				notehtml = html_decode(note)
+				note = replacetext(note, "\n", "<br>")
+			else
+				pda.close(usr)
+
+/datum/data/pda/app/manifest
+	name = "Crew Manifest"
+	icon = "user"
+	template = "pda_manifest"
+	update = PDA_APP_UPDATE_SLOW
+
+// /datum/data/pda/app/manifest/update_ui(mob/user as mob, list/data)
+	// data_core.get_manifest_json()
+	// data["manifest"] = PDA_Manifest
+
+/datum/data/pda/app/manifest/Topic(href, list/href_list)
+
+/datum/data/pda/app/atmos_scanner
+	name = "Atmospheric Scan"
+	icon = "fire"
+	template = "pda_atmos_scan"
+	category = "Utilities"
+	update = PDA_APP_UPDATE_SLOW
+
+// /datum/data/pda/app/atmos_scanner/update_ui(mob/user as mob, list/data)
+// 	var/turf/T = get_turf(user.loc)
+// 	if(!isnull(T))
+// 		var/datum/gas_mixture/environment = T.return_air()
+
+// 		var/pressure = environment.return_pressure()
+// 		var/total_moles = environment.total_moles
+
+// 		if(total_moles)
+// 			var/o2_level = environment.oxygen/total_moles
+// 			var/n2_level = environment.nitrogen/total_moles
+// 			var/co2_level = environment.carbon_dioxide/total_moles
+// 			var/plasma_level = environment.toxins/total_moles
+// 			var/unknown_level =  1-(o2_level+n2_level+co2_level+plasma_level)
+// 			data["aircontents"] = list(
+// 				"pressure" = pressure,
+// 				"nitrogen" = n2_level*100,
+// 				"oxygen" = o2_level*100,
+// 				"carbon_dioxide" = co2_level*100,
+// 				"plasma" = plasma_level*100,
+// 				"other" = unknown_level,
+// 				"temp" = environment.temperature-T0C,
+// 				"reading" = 1
+// 				)
+// 	if(isnull(data["aircontents"]))
+// 		data["aircontents"] = list("reading" = 0)

code/modules/pda/messenger.dm

@@ -0,0 +1,215 @@
+/datum/data/pda/app/messenger
+	name = "Messenger"
+	icon = "comments-o"
+	notify_icon = "comments"
+	title = "SpaceMessenger V4.1.0"
+	template = "pda_messenger"
+
+	var/toff = 0 //If 1, messenger disabled
+	var/list/tnote[0]  //Current Texts
+	var/last_text //No text spamming
+
+	var/m_hidden = 0 // Is the PDA hidden from the PDA list?
+	var/active_conversation = null // New variable that allows us to only view a single conversation.
+	var/list/conversations = list()    // For keeping up with who we have PDA messsages from.
+	var/latest_post = 0
+	var/auto_scroll = 1
+
+/datum/data/pda/app/messenger/start()
+	. = ..()
+	unnotify()
+	latest_post = 0
+
+/datum/data/pda/app/messenger/update_ui(mob/user as mob, list/data)
+	data["silent"] = notify_silent						// does the pda make noise when it receives a message?
+	data["toff"] = toff									// is the messenger function turned off?
+	data["active_conversation"] = active_conversation	// Which conversation are we following right now?
+
+	has_back = active_conversation
+	if(active_conversation)
+		data["messages"] = tnote
+		for(var/c in tnote)
+			if(c["target"] == active_conversation)
+				data["convo_name"] = sanitize(c["owner"])
+				data["convo_job"] = sanitize(c["job"])
+				break
+		data["auto_scroll"] = auto_scroll
+		data["latest_post"] = latest_post
+		latest_post = tnote.len
+	else
+		var/convopdas[0]
+		var/pdas[0]
+		for(var/A in PDAs)
+			var/obj/item/device/pda/P = A
+			var/datum/data/pda/app/messenger/PM = P.find_program(/datum/data/pda/app/messenger)
+
+			if(!P.owner || PM.toff || P == pda || PM.m_hidden)
+				continue
+			if(conversations.Find("\ref[P]"))
+				convopdas.Add(list(list("Name" = "[P]", "Reference" = "\ref[P]", "Detonate" = "[P.detonate]", "inconvo" = "1")))
+			else
+				pdas.Add(list(list("Name" = "[P]", "Reference" = "\ref[P]", "Detonate" = "[P.detonate]", "inconvo" = "0")))
+
+		data["convopdas"] = convopdas
+		data["pdas"] = pdas
+
+		var/list/plugins = list()
+		if(pda.cartridge)
+			for(var/A in pda.cartridge.messenger_plugins)
+				var/datum/data/pda/messenger_plugin/P = A
+				plugins += list(list(name = P.name, icon = P.icon, ref = "\ref[P]"))
+		data["plugins"] = plugins
+
+		if(pda.cartridge)
+			data["charges"] = pda.cartridge.charges ? pda.cartridge.charges : 0
+
+/datum/data/pda/app/messenger/Topic(href, list/href_list)
+	if(!pda.can_use())
+		return
+	unnotify()
+
+	switch(href_list["choice"])
+		if("Toggle Messenger")
+			toff = !toff
+		if("Toggle Ringer")//If viewing texts then erase them, if not then toggle silent status
+			notify_silent = !notify_silent
+		if("Clear")//Clears messages
+			if(href_list["option"] == "All")
+				tnote.Cut()
+				conversations.Cut()
+			if(href_list["option"] == "Convo")
+				var/new_tnote[0]
+				for(var/i in tnote)
+					if(i["target"] != active_conversation)
+						new_tnote[++new_tnote.len] = i
+				tnote = new_tnote
+				conversations.Remove(active_conversation)
+
+			active_conversation = null
+			latest_post = 0
+		if("Message")
+			var/obj/item/device/pda/P = locate(href_list["target"])
+			create_message(usr, P)
+			if(href_list["target"] in conversations)            // Need to make sure the message went through, if not welp.
+				active_conversation = href_list["target"]
+				latest_post = 0
+		if("Select Conversation")
+			var/P = href_list["convo"]
+			for(var/n in conversations)
+				if(P == n)
+					active_conversation = P
+					latest_post = 0
+		if("Messenger Plugin")
+			if(!href_list["target"] || !href_list["plugin"])
+				return
+
+			var/obj/item/device/pda/P = locate(href_list["target"])
+			if(!P)
+				to_chat(usr, "PDA not found.")
+
+			var/datum/data/pda/messenger_plugin/plugin = locate(href_list["plugin"])
+			if(plugin && (plugin in pda.cartridge.messenger_plugins))
+				plugin.messenger = src
+				plugin.user_act(usr, P)
+		if("Back")
+			active_conversation = null
+			latest_post = 0
+		if("Autoscroll")
+			auto_scroll = !auto_scroll
+
+/datum/data/pda/app/messenger/proc/create_message(var/mob/living/U, var/obj/item/device/pda/P)
+	var/t = input(U, "Please enter message", name, null) as text|null
+	if(!t)
+		return
+	t = sanitize(copytext(t, 1, MAX_MESSAGE_LEN))
+	t = readd_quotes(t)
+	if(!t || !istype(P))
+		return
+	if(!in_range(pda, U) && pda.loc != U)
+		return
+
+	var/datum/data/pda/app/messenger/PM = P.find_program(/datum/data/pda/app/messenger)
+
+	if(!PM || PM.toff || toff)
+		return
+
+	if(last_text && world.time < last_text + 5)
+		return
+
+	if(!pda.can_use())
+		return
+
+	last_text = world.time
+	// check if telecomms I/O route 1459 is stable
+	//var/telecomms_intact = telecomms_process(P.owner, owner, t)
+	var/obj/machinery/message_server/useMS = null
+	if(message_servers)
+		for(var/A in message_servers)
+			var/obj/machinery/message_server/MS = A
+		//PDAs are now dependent on the Message Server.
+			if(MS.active)
+				useMS = MS
+				break
+
+	var/datum/signal/signal = pda.telecomms_process()
+
+	var/useTC = 0
+	if(signal)
+		if(signal.data["done"])
+			useTC = 1
+			var/turf/pos = get_turf(P)
+			// TODO: Make the radio system cooperate with the space manager
+			if(pos.z in signal.data["level"])
+				useTC = 2
+				//Let's make this barely readable
+				if(signal.data["compression"] > 0)
+					t = Gibberish(t, signal.data["compression"] + 50)
+
+	if(useMS && useTC) // only send the message if it's stable
+		if(useTC != 2) // Does our recipient have a broadcaster on their level?
+			to_chat(U, "ERROR: Cannot reach recipient.")
+			return
+		useMS.send_pda_message("[P.owner]","[pda.owner]","[t]")
+		tnote.Add(list(list("sent" = 1, "owner" = "[P.owner]", "job" = "[P.ownjob]", "message" = "[t]", "target" = "\ref[P]")))
+		PM.tnote.Add(list(list("sent" = 0, "owner" = "[pda.owner]", "job" = "[pda.ownjob]", "message" = "[t]", "target" = "\ref[pda]")))
+		pda.investigate_log("<span class='game say'>PDA Message - <span class='name'>[U.key] - [pda.owner]</span> -> <span class='name'>[P.owner]</span>: <span class='message'>[t]</span></span>", "pda")
+		if(!conversations.Find("\ref[P]"))
+			conversations.Add("\ref[P]")
+		if(!PM.conversations.Find("\ref[pda]"))
+			PM.conversations.Add("\ref[pda]")
+
+		SSnanoui.update_user_uis(U, P) // Update the sending user's PDA UI so that they can see the new message
+		PM.notify("<b>Message from [pda.owner] ([pda.ownjob]), </b>\"[t]\" (<a href='?src=[REF(PM)];choice=Message;target=\ref[pda]'>Reply</a>)")
+		log_pda("(PDA: [src.name]) sent \"[t]\" to [P.name]", usr)
+	else
+		to_chat(U, "<span class='notice'>ERROR: Messaging server is not responding.</span>")
+
+/datum/data/pda/app/messenger/proc/available_pdas()
+	var/list/names = list()
+	var/list/plist = list()
+	var/list/namecounts = list()
+
+	if(toff)
+		to_chat(usr, "Turn on your receiver in order to send messages.")
+		return
+
+	for(var/A in PDAs)
+		var/obj/item/device/pda/P = A
+		var/datum/data/pda/app/messenger/PM = P.find_program(/datum/data/pda/app/messenger)
+
+		if(!P.owner || !PM || PM.hidden || P == pda || PM.toff)
+			continue
+
+		var/name = P.owner
+		if(name in names)
+			namecounts[name]++
+			name = text("[name] ([namecounts[name]])")
+		else
+			names.Add(name)
+			namecounts[name] = 1
+
+		plist[text("[name]")] = P
+	return plist
+
+/datum/data/pda/app/messenger/proc/can_receive()
+	return pda.owner && !toff && !hidden

code/modules/pda/messenger_plugins.dm

@@ -0,0 +1,91 @@
+/datum/data/pda/messenger_plugin
+	var/datum/data/pda/app/messenger/messenger
+
+/datum/data/pda/messenger_plugin/proc/user_act(mob/user as mob, obj/item/device/pda/P)
+
+
+/datum/data/pda/messenger_plugin/virus
+	name = "*Send Virus*"
+
+/datum/data/pda/messenger_plugin/virus/user_act(mob/user as mob, obj/item/device/pda/P)
+	var/datum/data/pda/app/messenger/M = P.find_program(/datum/data/pda/app/messenger)
+
+	if(M && !M.toff && pda.cartridge.charges > 0)
+		pda.cartridge.charges--
+		return 1
+	return 0
+
+
+/datum/data/pda/messenger_plugin/virus/clown
+	icon = "star"
+
+/datum/data/pda/messenger_plugin/virus/clown/user_act(mob/user as mob, obj/item/device/pda/P)
+	. = ..(user, P)
+	if(.)
+		user.show_message("<span class='notice'>Virus sent!</span>", 1)
+		P.honkamt = (rand(15,20))
+		P.ttone = "honk"
+
+
+/datum/data/pda/messenger_plugin/virus/mime
+	icon = "arrow-circle-down"
+
+/datum/data/pda/messenger_plugin/virus/mime/user_act(mob/user as mob, obj/item/device/pda/P)
+	. = ..(user, P)
+	if(.)
+		user.show_message("<span class='notice'>Virus sent!</span>", 1)
+		var/datum/data/pda/app/M = P.find_program(/datum/data/pda/app/messenger)
+		if(M)
+			M.notify_silent = 1
+		P.ttone = "silence"
+
+
+/datum/data/pda/messenger_plugin/virus/detonate
+	name = "*Detonate*"
+	icon = "exclamation-circle"
+
+/datum/data/pda/messenger_plugin/virus/detonate/user_act(mob/user as mob, obj/item/device/pda/P)
+	. = ..(user, P)
+	if(.)
+		var/difficulty = 0
+
+		if(pda.cartridge)
+			difficulty += pda.cartridge.programs.len / 2
+		else
+			difficulty += 2
+
+		if(!P.detonate || P.hidden_uplink)
+			user.show_message("<span class='warning'>The target PDA does not seem to respond to the detonation command.</span>", 1)
+			pda.cartridge.charges++
+		else if(prob(difficulty * 12))
+			user.show_message("<span class='warning'>An error flashes on your [pda].</span>", 1)
+		else if(prob(difficulty * 3))
+			user.show_message("<span class='danger'>Energy feeds back into your [pda]!</span>", 1)
+			pda.close(user)
+			pda.explode()
+			log_admin("[key_name(user)] just attempted to blow up [P] with the Detomatix cartridge but failed, blowing themselves up")
+			message_admins("[key_name_admin(user)] just attempted to blow up [P] with the Detomatix cartridge but failed, blowing themselves up", 1)
+		else
+			user.show_message("<span class='notice'>Success!</span>", 1)
+			log_admin("[key_name(user)] just attempted to blow up [P] with the Detomatix cartridge and succeded")
+			message_admins("[key_name_admin(user)] just attempted to blow up [P] with the Detomatix cartridge and succeded", 1)
+			P.explode()
+
+/datum/data/pda/messenger_plugin/virus/frame
+	icon = "exclamation-circle"
+
+/datum/data/pda/messenger_plugin/virus/frame/user_act(mob/user, obj/item/device/pda/P)
+	. = ..(user, P)
+	if(.)
+		var/lock_code = "[rand(100,999)] [pick("Alpha","Bravo","Charlie","Delta","Echo","Foxtrot","Golf","Hotel","India","Juliet","Kilo","Lima","Mike","November","Oscar","Papa","Quebec","Romeo","Sierra","Tango","Uniform","Victor","Whiskey","X-ray","Yankee","Zulu")]"
+		user.show_message("<span class='notice'>Virus Sent!  The unlock code to the target is: [lock_code]</span>")
+		if(!P.hidden_uplink)
+			var/obj/item/device/uplink/hidden/uplink = new(P)
+			P.hidden_uplink = uplink
+			P.lock_code = lock_code
+		// else
+			// P.hidden_uplink.hidden_crystals += P.hidden_uplink.uses //Temporarially hide the PDA's crystals, so you can't steal telecrystals.
+		var/obj/item/weapon/cartridge/frame/parent_cart = pda.cartridge
+		P.hidden_uplink.uses = parent_cart.telecrystals
+		parent_cart.telecrystals = 0
+		P.hidden_uplink.active = TRUE

code/modules/pda/pda.dm

@@ -18,14 +18,10 @@ var/global/list/obj/item/device/pda/PDAs = list()
 	var/owner = null
 	var/default_cartridge = 0 // Access level defined by cartridge
 	var/obj/item/weapon/cartridge/cartridge = null //current cartridge
-	var/mode = 0 //Controls what menu the PDA will display. 0 is hub; the rest are either built in or based on cartridge.
-
-	var/lastmode = 0
 	var/ui_tick = 0
-	var/nanoUI[0]
 
 	//Secondary variables
-	var/scanmode = 0 //1 is medical scanner, 2 is forensics, 3 is reagent scanner.
+	// var/scanmode = 0 //1 is medical scanner, 2 is forensics, 3 is reagent scanner.
 	var/fon = 0 //Is the flashlight function on?
 	var/f_lum = 2 //Luminosity for the flashlight function
 	var/message_silent = 0 //To beep or not to beep, that is the question
@@ -34,7 +30,14 @@ var/global/list/obj/item/device/pda/PDAs = list()
 	var/tnote[0]  //Current Texts
 	var/last_text //No text spamming
 	var/last_honk //Also no honk spamming that's bad too
-	var/ttone = "beep" //The PDA ringtone!
+	var/ttone = "beep" //The ringtone!
+	var/list/ttone_sound = list("beep" = 'sound/machines/twobeep.ogg',
+								"boom" = 'sound/effects/explosionfar.ogg',
+								"slip" = 'sound/misc/slip.ogg',
+								"honk" = 'sound/items/bikehorn.ogg',
+								"SKREE" = 'sound/voice/shriek1.ogg',
+								// "holy" = 'sound/items/PDA/ambicha4-short.ogg',
+								"xeno" = 'sound/voice/hiss1.ogg')
 	var/newstone = "beep, beep" //The news ringtone!
 	var/lock_code = "" // Lockcode to unlock uplink
 	var/honkamt = 0 //How many honks left when infected with honk.exe
@@ -67,6 +70,24 @@ var/global/list/obj/item/device/pda/PDAs = list()
 
 	var/spam_proof = FALSE // If true, it can't be spammed by random events.
 
+	// App-based PDAs
+	var/model_name = "Thinktronic 5230 Personal Data Assistant"
+	var/datum/data/pda/utility/scanmode/scanmode = null
+	var/datum/data/pda/app/current_app = null
+	var/datum/data/pda/app/lastapp = null
+	var/list/programs = list(
+		new/datum/data/pda/app/main_menu,
+		new/datum/data/pda/app/notekeeper,
+		new/datum/data/pda/app/messenger,
+		new/datum/data/pda/app/manifest,
+		new/datum/data/pda/app/atmos_scanner,
+		new/datum/data/pda/utility/scanmode/notes,
+		new/datum/data/pda/utility/flashlight)
+	var/list/shortcut_cache = list()
+	var/list/shortcut_cat_order = list()
+	var/list/notifying_programs = list()
+	var/retro_mode = 0
+
 /obj/item/device/pda/examine(mob/user)
 	. = ..()
 	if(Adjacent(user))
@@ -97,6 +118,32 @@ var/global/list/obj/item/device/pda/PDAs = list()
 	if(iscarbon(user) && !touch_silent)
 		playsound(src, 'sound/machines/pda_click.ogg', 20)
 
+/obj/item/device/pda/proc/play_ringtone()
+	var/S
+
+	if(ttone in ttone_sound)
+		S = ttone_sound[ttone]
+	else
+		S = 'sound/machines/twobeep.ogg'
+	playsound(loc, S, 50, 1)
+	for(var/mob/O in hearers(3, loc))
+		O.show_message(text("[bicon(src)] *[ttone]*"))
+
+/obj/item/device/pda/proc/set_ringtone()
+	var/t = input("Please enter new ringtone", name, ttone) as text
+	if(in_range(src, usr) && loc == usr)
+		if(t)
+			if(hidden_uplink && hidden_uplink.check_trigger(usr, lowertext(t), lowertext(lock_code)))
+				to_chat(usr, "The PDA softly beeps.")
+				close(usr)
+			else
+				t = sanitize(copytext(t, 1, 20))
+				ttone = t
+			return 1
+	else
+		close(usr)
+	return 0
+
 /obj/item/device/pda/medical
 	default_cartridge = /obj/item/weapon/cartridge/medical
 	icon_state = "pda-m"
@@ -442,6 +489,7 @@ var/global/list/obj/item/device/pda/PDAs = list()
 	..()
 	PDAs += src
 	PDAs = sortAtom(PDAs)
+	update_programs()
 	if(default_cartridge)
 		cartridge = new default_cartridge(src)
 	new /obj/item/weapon/pen(src)
@@ -469,6 +517,7 @@ var/global/list/obj/item/device/pda/PDAs = list()
 		else
 			icon = 'icons/obj/pda_old.dmi'
 			log_debug("Invalid switch for PDA, defaulting to old PDA icons. [pdachoice] chosen.")
+	start_program(find_program(/datum/data/pda/app/main_menu))
 
 
 /obj/item/device/pda/proc/can_use()
@@ -499,17 +548,25 @@ var/global/list/obj/item/device/pda/PDAs = list()
 		return attack_self(M)
 	return
 
+/obj/item/device/pda/proc/close(mob/user)
+	var/datum/nanoui/ui = SSnanoui.get_open_ui(user, src, "main")
+	ui.close()
+
+	SStgui.close_uis(src)
 
 /obj/item/device/pda/ui_interact(mob/user, ui_key = "main", var/datum/nanoui/ui = null, var/force_open = 1)
 	ui_tick++
 	var/datum/nanoui/old_ui = SSnanoui.get_open_ui(user, src, "main")
 	var/auto_update = 1
-	if(mode in no_auto_update)
-		auto_update = 0
-	if(old_ui && (mode == lastmode && ui_tick % 5 && mode in update_every_five))
+	if(!current_app)
 		return
 
-	lastmode = mode
+	if(current_app.update == PDA_APP_NOUPDATE && current_app == lastapp)
+		auto_update = 0
+	if(old_ui && (current_app == lastapp && ui_tick % 5 && current_app.update == PDA_APP_UPDATE_SLOW))
+		return
+
+	lastapp = current_app
 
 	var/title = "Personal Data Assistant"
 
@@ -518,156 +575,57 @@ var/global/list/obj/item/device/pda/PDAs = list()
 	data["owner"] = owner					// Who is your daddy...
 	data["ownjob"] = ownjob					// ...and what does he do?
 
-	data["mode"] = mode					// The current view
-	data["scanmode"] = scanmode				// Scanners
-	data["fon"] = fon					// Flashlight on?
-	data["pai"] = (isnull(pai) ? 0 : 1)			// pAI inserted?
-	data["note"] = note					// current pda notes
-	data["message_silent"] = message_silent					// does the pda make noise when it receives a message?
-	data["news_silent"] = news_silent					// does the pda make noise when it receives news?
-	data["touch_silent"] = touch_silent					// does the pda make noise when it receives news?
-	data["toff"] = toff					// is the messenger function turned off?
-	data["active_conversation"] = active_conversation	// Which conversation are we following right now?
+	// update list of shortcuts, only if they changed
+	if(!shortcut_cache.len)
+		shortcut_cache = list()
+		shortcut_cat_order = list()
+		var/prog_list = programs.Copy()
+		if(cartridge)
+			prog_list |= cartridge.programs
 
+		for(var/A in prog_list)
+			var/datum/data/pda/P = A
+
+			if(P.hidden)
+				continue
+			var/list/cat
+			if(P.category in shortcut_cache)
+				cat = shortcut_cache[P.category]
+			else
+				cat = list()
+				shortcut_cache[P.category] = cat
+				shortcut_cat_order += P.category
+			cat |= list(list(name = P.name, icon = P.icon, notify_icon = P.notify_icon, ref = "\ref[P]"))
+
+		// force the order of a few core categories
+		shortcut_cat_order = list("General") \
+			+ sortList(shortcut_cat_order - list("General", "Scanners", "Utilities")) \
+			+ list("Scanners", "Utilities")
 
 	data["idInserted"] = (id ? 1 : 0)
 	data["idLink"] = (id ? text("[id.registered_name], [id.assignment]") : "--------")
 
-	data["cart_loaded"] = cartridge ? 1:0
-	if(cartridge)
-		var/cartdata[0]
-		cartdata["access"] = list(\
-					"access_security" = cartridge.access_security,\
-					"access_engine" = cartridge.access_engine,\
-					"access_atmos" = cartridge.access_atmos,\
-					"access_medical" = cartridge.access_medical,\
-					"access_clown" = cartridge.access_clown,\
-					"access_mime" = cartridge.access_mime,\
-					"access_janitor" = cartridge.access_janitor,\
-					"access_quartermaster" = cartridge.access_quartermaster,\
-					"access_hydroponics" = cartridge.access_hydroponics,\
-					"access_reagent_scanner" = cartridge.access_reagent_scanner,\
-					"access_remote_door" = cartridge.access_remote_door,\
-					"access_status_display" = cartridge.access_status_display,\
-					"access_detonate_pda" = cartridge.access_detonate_pda\
-			)
+	data["useRetro"] = retro_mode
 
-		if(mode in cartmodes)
-			data["records"] = cartridge.create_NanoUI_values()
+	data["cartridge_name"] = cartridge ? cartridge.name : ""
+	data["stationTime"] = worldtime2stationtime(world.time)
 
-		if(mode == 0)
-			cartdata["name"] = cartridge.name
-			if(isnull(cartridge.radio))
-				cartdata["radio"] = 0
-			else
-				if(istype(cartridge.radio, /obj/item/radio/integrated/beepsky))
-					cartdata["radio"] = 1
-				if(istype(cartridge.radio, /obj/item/radio/integrated/signal))
-					cartdata["radio"] = 2
-				//if(istype(cartridge.radio, /obj/item/radio/integrated/mule))
-				//	cartdata["radio"] = 3
+	data["app"] = list()
+	current_app.update_ui(user, data)
+	data["app"] |= list(
+		"name" = current_app.title,
+		"icon" = current_app.icon,
+		"template" = current_app.template,
+		"has_back" = current_app.has_back)
 
-		if(mode == 2)
-			cartdata["charges"] = cartridge.charges ? cartridge.charges : 0
-		data["cartridge"] = cartdata
-
-	data["stationTime"] = stationtime2text()
-	data["new_Message"] = new_message
-	data["new_News"] = new_news
-
-	var/datum/reception/reception = get_reception(src, do_sleep = 0)
-	var/has_reception = reception.telecomms_reception & TELECOMMS_RECEPTION_SENDER
-	data["reception"] = has_reception
-
-	if(mode==2)
-		var/convopdas[0]
-		var/pdas[0]
-		var/count = 0
-		for (var/obj/item/device/pda/P in PDAs)
-			if (!P.owner||P.toff||P == src||P.hidden)       continue
-			if(conversations.Find("\ref[P]"))
-				convopdas.Add(list(list("Name" = "[P]", "Reference" = "\ref[P]", "Detonate" = "[P.detonate]", "inconvo" = "1")))
-			else
-				pdas.Add(list(list("Name" = "[P]", "Reference" = "\ref[P]", "Detonate" = "[P.detonate]", "inconvo" = "0")))
-			count++
-
-		data["convopdas"] = convopdas
-		data["pdas"] = pdas
-		data["pda_count"] = count
-
-	if(mode==21)
-		data["messagescount"] = tnote.len
-		data["messages"] = tnote
-	else
-		data["messagescount"] = null
-		data["messages"] = null
-
-	if(active_conversation)
-		for(var/c in tnote)
-			if(c["target"] == active_conversation)
-				data["convo_name"] = sanitize(c["owner"])
-				data["convo_job"] = sanitize(c["job"])
-				break
-	if(mode==41)
-		data_core.get_manifest_list()
-
-
-	if(mode==3)
-		data["aircontents"] = src.analyze_air()
-	if(mode==6)
-		if(has_reception)
-			feeds.Cut()
-			for(var/datum/feed_channel/channel in news_network.network_channels)
-				feeds[++feeds.len] = list("name" = channel.channel_name, "censored" = channel.censored)
-		data["feedChannels"] = feeds
-	if(mode==61)
-		var/datum/feed_channel/FC
-		for(FC in news_network.network_channels)
-			if(FC.channel_name == active_feed["name"])
-				break
-
-		var/list/feed = feed_info[active_feed]
-		if(!feed)
-			feed = list()
-			feed["channel"] = FC.channel_name
-			feed["author"]	= "Unknown"
-			feed["censored"]= 0
-			feed["updated"] = -1
-			feed_info[active_feed] = feed
-
-		if(FC.updated > feed["updated"] && has_reception)
-			feed["author"]	= FC.author
-			feed["updated"]	= FC.updated
-			feed["censored"] = FC.censored
-
-			var/list/messages = list()
-			if(!FC.censored)
-				var/index = 0
-				for(var/datum/feed_message/FM in FC.messages)
-					index++
-					if(FM.img)
-						usr << browse_rsc(FM.img, "pda_news_tmp_photo_[feed["channel"]]_[index].png")
-					// News stories are HTML-stripped but require newline replacement to be properly displayed in NanoUI
-					var/body = replacetext(FM.body, "\n", "<br>")
-					messages[++messages.len] = list("author" = FM.author, "body" = body, "message_type" = FM.message_type, "time_stamp" = FM.time_stamp, "has_image" = (FM.img != null), "caption" = FM.caption, "index" = index)
-			feed["messages"] = messages
-
-		data["feed"] = feed
-
-	data["manifest"] = PDA_Manifest
-
-	nanoUI = data
 	// update the ui if it exists, returns null if no ui is passed/found
-
 	ui = SSnanoui.try_update_ui(user, src, ui_key, ui, data, force_open)
 
-	if (!ui)
+	if(!ui)
 		// the ui does not exist, so we'll create a new() one
-	        // for a list of parameters and their descriptions see the code docs in \code\modules\nano\nanoui.dm
+		// for a list of parameters and their descriptions see the code docs in \code\modules\nano\nanoui.dm
 		ui = new(user, src, ui_key, "pda.tmpl", title, 520, 400, state = inventory_state)
-		// add templates for screens in common with communicator.
-		ui.add_template("atmosphericScan", "atmospheric_scan.tmpl")
-		ui.add_template("crewManifest", "crew_manifest.tmpl")
+		ui.set_state_key("pda")
 		// when the ui is first opened this is the data it will use
 		ui.set_initial_data(data)
 		// open the new ui window
@@ -682,24 +640,42 @@ var/global/list/obj/item/device/pda/PDAs = list()
 		return
 
 	ui_interact(user) //NanoUI requires this proc
+	tgui_interact(user)
 	return
 
+/obj/item/device/pda/proc/start_program(datum/data/pda/P)
+	if(P && ((P in programs) || (cartridge && (P in cartridge.programs))))
+		return P.start()
+	return 0
+
+/obj/item/device/pda/proc/find_program(type)
+	var/datum/data/pda/A = locate(type) in programs
+	if(A)
+		return A
+	if(cartridge)
+		A = locate(type) in cartridge.programs
+		if(A)
+			return A
+	return null
+
+// force the cache to rebuild on update_ui
+/obj/item/device/pda/proc/update_shortcuts()
+	shortcut_cache.Cut()
+
+/obj/item/device/pda/proc/update_programs()
+	for(var/A in programs)
+		var/datum/data/pda/P = A
+		P.pda = src
+
 /obj/item/device/pda/Topic(href, href_list)
-	if(href_list["cartmenu"] && !isnull(cartridge))
-		cartridge.Topic(href, href_list)
-		return 1
-	if(href_list["radiomenu"] && !isnull(cartridge) && !isnull(cartridge.radio))
-		cartridge.radio.Topic(href, href_list)
-		return 1
+	. = ..()
+	if(.)
+		return
 
-
-	..()
 	var/mob/user = usr
 	var/datum/nanoui/ui = SSnanoui.get_open_ui(user, src, "main")
 	var/mob/living/U = usr
-	//Looking for master was kind of pointless since PDAs don't appear to have one.
-	//if ((src in U.contents) || ( istype(loc, /turf) && in_range(src, U) ) )
-	if (usr.stat == DEAD)
+	if(usr.stat == DEAD)
 		return 0
 	if(!can_use()) //Why reinvent the wheel? There's a proc that does exactly that.
 		U.unset_machine()
@@ -710,293 +686,56 @@ var/global/list/obj/item/device/pda/PDAs = list()
 	add_fingerprint(U)
 	U.set_machine(src)
 
+	if(href_list["radiomenu"] && !isnull(cartridge) && !isnull(cartridge.radio))
+		cartridge.radio.Topic(href, href_list)
+		return 1
+
+	. = 1
+
 	switch(href_list["choice"])
-
-//BASIC FUNCTIONS===================================
-
-		if("Close")//Self explanatory
-			U.unset_machine()
-			ui.close()
-			return 0
-		if("Refresh")//Refresh, goes to the end of the proc.
-		if("Return")//Return
-			if(mode<=9)
-				mode = 0
-			else
-				mode = round(mode/10)
-				if(mode==2)
-					active_conversation = null
-				if(mode==4)//Fix for cartridges. Redirects to hub.
-					mode = 0
-				else if(mode >= 40 && mode <= 49)//Fix for cartridges. Redirects to refresh the menu.
-					cartridge.mode = mode
-		if ("Authenticate")//Checks for ID
-			id_check(U, 1)
-		if("UpdateInfo")
-			ownjob = id.assignment
-			ownrank = id.rank
-			name = "PDA-[owner] ([ownjob])"
+		if("Home")//Go home, largely replaces the old Return
+			var/datum/data/pda/app/main_menu/A = find_program(/datum/data/pda/app/main_menu)
+			if(A)
+				start_program(A)
+		if("StartProgram")
+			if(href_list["program"])
+				var/datum/data/pda/app/A = locate(href_list["program"])
+				if(A)
+					start_program(A)
 		if("Eject")//Ejects the cart, only done from hub.
-			verb_remove_cartridge()
-
-//MENU FUNCTIONS===================================
-
-		if("0")//Hub
-			mode = 0
-		if("1")//Notes
-			mode = 1
-		if("2")//Messenger
-			mode = 2
-		if("21")//Read messages
-			mode = 21
-		if("3")//Atmos scan
-			mode = 3
-		if("4")//Redirects to hub
-			mode = 0
-		if("chatroom") // chatroom hub
-			mode = 5
-		if("41") //Manifest
-			mode = 41
-
-
-//MAIN FUNCTIONS===================================
-
-		if("Light")
-			if(fon)
-				fon = 0
-				set_light(0)
-			else
-				fon = 1
-				set_light(f_lum)
-		if("Medical Scan")
-			if(scanmode == 1)
-				scanmode = 0
-			else if((!isnull(cartridge)) && (cartridge.access_medical))
-				scanmode = 1
-		if("Reagent Scan")
-			if(scanmode == 3)
-				scanmode = 0
-			else if((!isnull(cartridge)) && (cartridge.access_reagent_scanner))
-				scanmode = 3
-		if("Halogen Counter")
-			if(scanmode == 4)
-				scanmode = 0
-			else if((!isnull(cartridge)) && (cartridge.access_engine))
-				scanmode = 4
-		if("Honk")
-			if ( !(last_honk && world.time < last_honk + 20) )
-				playsound(src, 'sound/items/bikehorn.ogg', 50, 1)
-				last_honk = world.time
-		if("Gas Scan")
-			if(scanmode == 5)
-				scanmode = 0
-			else if((!isnull(cartridge)) && (cartridge.access_atmos))
-				scanmode = 5
-		if("Toggle Beeping")
-			touch_silent = !touch_silent
-
-//MESSENGER/NOTE FUNCTIONS===================================
-
-		if ("Edit")
-			var/n = input(U, "Please enter message", name, notehtml) as message
-			if (in_range(src, U) && loc == U)
-				n = sanitizeSafe(n, extra = 0)
-				if (mode == 1)
-					note = html_decode(n)
-					notehtml = note
-					note = replacetext(note, "\n", "<br>")
-			else
-				ui.close()
-		if("Toggle Messenger")
-			toff = !toff
-		if("Toggle Ringer")//If viewing texts then erase them, if not then toggle silent status
-			message_silent = !message_silent
-		if("Toggle News")
-			news_silent = !news_silent
-		if("Clear")//Clears messages
-			if(href_list["option"] == "All")
-				tnote.Cut()
-				conversations.Cut()
-			if(href_list["option"] == "Convo")
-				var/new_tnote[0]
-				for(var/i in tnote)
-					if(i["target"] != active_conversation)
-						new_tnote[++new_tnote.len] = i
-				tnote = new_tnote
-				conversations.Remove(active_conversation)
-
-			active_conversation = null
-			if(mode==21)
-				mode=2
-
+			if(!isnull(cartridge))
+				var/turf/T = loc
+				if(ismob(T))
+					T = T.loc
+				var/obj/item/weapon/cartridge/C = cartridge
+				C.forceMove(T)
+				if(scanmode in C.programs)
+					scanmode = null
+				if(current_app in C.programs)
+					start_program(find_program(/datum/data/pda/app/main_menu))
+				if(C.radio)
+					C.radio.hostpda = null
+				for(var/datum/data/pda/P in notifying_programs)
+					if(P in C.programs)
+						P.unnotify()
+				cartridge = null
+				update_shortcuts()
+		if("Authenticate")//Checks for ID
+			id_check(usr, 1)
+		if("Retro")
+			retro_mode = !retro_mode
 		if("Ringtone")
-			var/t = input(U, "Please enter new ringtone", name, ttone) as text
-			if (in_range(src, U) && loc == U)
-				if (t)
-					if(src.hidden_uplink && hidden_uplink.check_trigger(U, lowertext(t), lowertext(lock_code)))
-						to_chat(U, "The PDA softly beeps.")
-						ui.close()
-					else
-						t = sanitize(t, 20)
-						ttone = t
-			else
-				ui.close()
-				return 0
-		if("Newstone")
-			var/t = input(U, "Please enter new news tone", name, newstone) as text
-			if (in_range(src, U) && loc == U)
-				if (t)
-					t = sanitize(t, 20)
-					newstone = t
-			else
-				ui.close()
-				return 0
-		if("Message")
-
-			var/obj/item/device/pda/P = locate(href_list["target"])
-			src.create_message(U, P, !href_list["notap"])
-			if(mode == 2)
-				if(href_list["target"] in conversations)            // Need to make sure the message went through, if not welp.
-					active_conversation = href_list["target"]
-					mode = 21
-
-		if("Select Conversation")
-			var/P = href_list["convo"]
-			for(var/n in conversations)
-				if(P == n)
-					active_conversation=P
-					mode=21
-		if("Select Feed")
-			var/n = href_list["name"]
-			for(var/f in feeds)
-				if(f["name"] == n)
-					active_feed = f
-					mode=61
-		if("Send Honk")//Honk virus
-			if(cartridge && cartridge.access_clown)//Cartridge checks are kind of unnecessary since everything is done through switch.
-				var/obj/item/device/pda/P = locate(href_list["target"])//Leaving it alone in case it may do something useful, I guess.
-				if(!isnull(P))
-					if (!P.toff && cartridge.charges > 0)
-						cartridge.charges--
-						U.show_message("<span class='notice'>Virus sent!</span>", 1)
-						P.honkamt = (rand(15,20))
-				else
-					to_chat(U, "PDA not found.")
-			else
-				ui.close()
-				return 0
-		if("Send Silence")//Silent virus
-			if(cartridge && cartridge.access_mime)
-				var/obj/item/device/pda/P = locate(href_list["target"])
-				if(!isnull(P))
-					if (!P.toff && cartridge.charges > 0)
-						cartridge.charges--
-						U.show_message("<span class='notice'>Virus sent!</span>", 1)
-						P.message_silent = 1
-						P.news_silent = 1
-						P.ttone = "silence"
-						P.newstone = "silence"
-				else
-					to_chat(U, "PDA not found.")
-			else
-				ui.close()
-				return 0
-
-
-//SYNDICATE FUNCTIONS===================================
-
-		if("Toggle Door")
-			if(cartridge && cartridge.access_remote_door)
-				for(var/obj/machinery/door/blast/M in machines)
-					if(M.id == cartridge.remote_door_id)
-						if(M.density)
-							M.open()
-						else
-							M.close()
-
-		if("Detonate")//Detonate PDA... maybe
-			if(cartridge && cartridge.access_detonate_pda)
-				var/obj/item/device/pda/P = locate(href_list["target"])
-				var/datum/reception/reception = get_reception(src, P, "", do_sleep = 0)
-				if(!(reception.message_server && reception.telecomms_reception & TELECOMMS_RECEPTION_SENDER))
-					U.show_message("<span class='warning'>An error flashes on your [src]: Connection unavailable</span>", 1)
-					return
-				if(reception.telecomms_reception & TELECOMMS_RECEPTION_RECEIVER == 0) // Does our recepient have a broadcaster on their level?
-					U.show_message("<span class='warning'>An error flashes on your [src]: Recipient unavailable</span>", 1)
-					return
-				if(!isnull(P))
-					if (!P.toff && cartridge.charges > 0)
-						cartridge.charges--
-
-						var/difficulty = 2
-
-						if(P.cartridge)
-							difficulty += P.cartridge.access_medical
-							difficulty += P.cartridge.access_security
-							difficulty += P.cartridge.access_engine
-							difficulty += P.cartridge.access_clown
-							difficulty += P.cartridge.access_janitor
-							if(P.hidden_uplink)
-								difficulty += 3
-
-						if(prob(difficulty))
-							U.show_message("<span class='warning'>An error flashes on your [src].</span>", 1)
-						else if (prob(difficulty * 7))
-							U.show_message("<span class='warning'>Energy feeds back into your [src]!</span>", 1)
-							ui.close()
-							detonate_act(src)
-							log_admin("[key_name(U)] just attempted to blow up [P] with the Detomatix cartridge but failed, blowing themselves up")
-							message_admins("[key_name_admin(U)] just attempted to blow up [P] with the Detomatix cartridge but failed.", 1)
-						else
-							U.show_message("<span class='notice'>Success!</span>", 1)
-							log_admin("[key_name(U)] just attempted to blow up [P] with the Detomatix cartridge and succeeded")
-							message_admins("[key_name_admin(U)] just attempted to blow up [P] with the Detomatix cartridge and succeeded.", 1)
-							detonate_act(P)
-					else
-						to_chat(U, "No charges left.")
-
-				else
-					to_chat(U, "PDA not found.")
-			else
-				U.unset_machine()
-				ui.close()
-				return 0
-
-//pAI FUNCTIONS===================================
-		if("pai")
-			if(pai)
-				if(pai.loc != src)
-					pai = null
-				else
-					switch(href_list["option"])
-						if("1")		// Configure pAI device
-							pai.attack_self(U)
-						if("2")		// Eject pAI device
-							var/turf/T = get_turf_or_move(src.loc)
-							if(T)
-								pai.loc = T
-								pai = null
-
+			return set_ringtone()
 		else
-			mode = text2num(href_list["choice"])
-			if(cartridge)
-				cartridge.mode = mode
+			if(current_app)
+				. = current_app.Topic(href, href_list)
 
 //EXTRA FUNCTIONS===================================
-
-	if (mode == 2||mode == 21)//To clear message overlays.
-		new_message = 0
-		update_icon()
-
-	if (mode == 6||mode == 61)//To clear news overlays.
-		new_news = 0
-		update_icon()
-
-	if ((honkamt > 0) && (prob(60)))//For clown virus.
+	if((honkamt > 0) && (prob(60)))//For clown virus.
 		honkamt--
-		playsound(src, 'sound/items/bikehorn.ogg', 30, 1)
+		playsound(loc, 'sound/items/bikehorn.ogg', 30, 1)
 
-	return 1 // return 1 tells it to refresh the UI in NanoUI
+	return // return 1 tells it to refresh the UI in NanoUI
 
 /obj/item/device/pda/update_icon()
 	..()
@@ -1230,8 +969,9 @@ var/global/list/obj/item/device/pda/PDAs = list()
 		return
 
 	if(can_use(usr))
-		mode = 0
-		SSnanoui.update_uis(src)
+		start_program(find_program(/datum/data/pda/app/main_menu))
+		notifying_programs.Cut()
+		overlays -= image('icons/obj/pda.dmi', "pda-r")
 		to_chat(usr, "<span class='notice'>You press the reset button on \the [src].</span>")
 	else
 		to_chat(usr, "<span class='notice'>You cannot do this while restrained.</span>")
@@ -1286,8 +1026,8 @@ var/global/list/obj/item/device/pda/PDAs = list()
 	if(ismob(loc))
 		var/mob/M = loc
 		M.put_in_hands(cartridge)
-	mode = 0
-	scanmode = 0
+	// mode = 0
+	// scanmode = 0
 	if (cartridge.radio)
 		cartridge.radio.hostpda = null
 	to_chat(usr, "<span class='notice'>You remove \the [cartridge] from the [name].</span>")
@@ -1363,128 +1103,132 @@ var/global/list/obj/item/device/pda/PDAs = list()
 	return
 
 /obj/item/device/pda/attack(mob/living/C as mob, mob/living/user as mob)
-	if (istype(C, /mob/living/carbon))
-		switch(scanmode)
-			if(1)
+	if (istype(C, /mob/living/carbon) && scanmode)
+		scanmode.scan_mob(C, user)
 
-				for (var/mob/O in viewers(C, null))
-					O.show_message("<span class='warning'>\The [user] has analyzed [C]'s vitals!</span>", 1)
+		// switch(scanmode)
+		// 	if(1)
 
-				user.show_message("<span class='notice'>Analyzing Results for [C]:</span>")
-				user.show_message("<span class='notice'>    Overall Status: [C.stat > 1 ? "dead" : "[C.health - C.halloss]% healthy"]</span>", 1)
-				user.show_message(text("<span class='notice'>    Damage Specifics:</span> <span class='[]'>[]</span>-<span class='[]'>[]</span>-<span class='[]'>[]</span>-<span class='[]'>[]</span>",
-						(C.getOxyLoss() > 50) ? "warning" : "", C.getOxyLoss(),
-						(C.getToxLoss() > 50) ? "warning" : "", C.getToxLoss(),
-						(C.getFireLoss() > 50) ? "warning" : "", C.getFireLoss(),
-						(C.getBruteLoss() > 50) ? "warning" : "", C.getBruteLoss()
-						), 1)
-				user.show_message("<span class='notice'>    Key: Suffocation/Toxin/Burns/Brute</span>", 1)
-				user.show_message("<span class='notice'>    Body Temperature: [C.bodytemperature-T0C]&deg;C ([C.bodytemperature*1.8-459.67]&deg;F)</span>", 1)
-				if(C.tod && (C.stat == DEAD || (C.status_flags & FAKEDEATH)))
-					user.show_message("<span class='notice'>    Time of Death: [C.tod]</span>")
-				if(istype(C, /mob/living/carbon/human))
-					var/mob/living/carbon/human/H = C
-					var/list/damaged = H.get_damaged_organs(1,1)
-					user.show_message("<span class='notice'>Localized Damage, Brute/Burn:</span>",1)
-					if(length(damaged)>0)
-						for(var/obj/item/organ/external/org in damaged)
-							user.show_message(text("<span class='notice'>     []: <span class='[]'>[]</span>-<span class='[]'>[]</span></span>",
-									capitalize(org.name), (org.brute_dam > 0) ? "warning" : "notice", org.brute_dam, (org.burn_dam > 0) ? "warning" : "notice", org.burn_dam),1)
-					else
-						user.show_message("<span class='notice'>    Limbs are OK.</span>",1)
+		// 		for (var/mob/O in viewers(C, null))
+		// 			O.show_message("<span class='warning'>\The [user] has analyzed [C]'s vitals!</span>", 1)
 
-			if(2)
-				if (!istype(C:dna, /datum/dna))
-					to_chat(user, "<span class='notice'>No fingerprints found on [C]</span>")
-				else
-					to_chat(user, text("<span class='notice'>\The [C]'s Fingerprints: [md5(C:dna.uni_identity)]</span>"))
-				if ( !(C:blood_DNA) )
-					to_chat(user, "<span class='notice'>No blood found on [C]</span>")
-					if(C:blood_DNA)
-						qdel(C:blood_DNA)
-				else
-					to_chat(user, "<span class='notice'>Blood found on [C]. Analysing...</span>")
-					spawn(15)
-						for(var/blood in C:blood_DNA)
-							to_chat(user, "<span class='notice'>Blood type: [C:blood_DNA[blood]]\nDNA: [blood]</span>")
+		// 		user.show_message("<span class='notice'>Analyzing Results for [C]:</span>")
+		// 		user.show_message("<span class='notice'>    Overall Status: [C.stat > 1 ? "dead" : "[C.health - C.halloss]% healthy"]</span>", 1)
+		// 		user.show_message(text("<span class='notice'>    Damage Specifics:</span> <span class='[]'>[]</span>-<span class='[]'>[]</span>-<span class='[]'>[]</span>-<span class='[]'>[]</span>",
+		// 				(C.getOxyLoss() > 50) ? "warning" : "", C.getOxyLoss(),
+		// 				(C.getToxLoss() > 50) ? "warning" : "", C.getToxLoss(),
+		// 				(C.getFireLoss() > 50) ? "warning" : "", C.getFireLoss(),
+		// 				(C.getBruteLoss() > 50) ? "warning" : "", C.getBruteLoss()
+		// 				), 1)
+		// 		user.show_message("<span class='notice'>    Key: Suffocation/Toxin/Burns/Brute</span>", 1)
+		// 		user.show_message("<span class='notice'>    Body Temperature: [C.bodytemperature-T0C]&deg;C ([C.bodytemperature*1.8-459.67]&deg;F)</span>", 1)
+		// 		if(C.tod && (C.stat == DEAD || (C.status_flags & FAKEDEATH)))
+		// 			user.show_message("<span class='notice'>    Time of Death: [C.tod]</span>")
+		// 		if(istype(C, /mob/living/carbon/human))
+		// 			var/mob/living/carbon/human/H = C
+		// 			var/list/damaged = H.get_damaged_organs(1,1)
+		// 			user.show_message("<span class='notice'>Localized Damage, Brute/Burn:</span>",1)
+		// 			if(length(damaged)>0)
+		// 				for(var/obj/item/organ/external/org in damaged)
+		// 					user.show_message(text("<span class='notice'>     []: <span class='[]'>[]</span>-<span class='[]'>[]</span></span>",
+		// 							capitalize(org.name), (org.brute_dam > 0) ? "warning" : "notice", org.brute_dam, (org.burn_dam > 0) ? "warning" : "notice", org.burn_dam),1)
+		// 			else
+		// 				user.show_message("<span class='notice'>    Limbs are OK.</span>",1)
 
-			if(4)
-				user.visible_message("<span class='warning'>\The [user] has analyzed [C]'s radiation levels!</span>", "<span class='notice'>You have analyzed [C]'s radiation levels!</span>")
-				to_chat(user, "<span class='notice'>Analyzing Results for [C]:</span>")
-				if(C.radiation)
-					to_chat(user, "<span class='notice'>Radiation Level: [C.radiation]</span>")
-				else
-					to_chat(user, "<span class='notice'>No radiation detected.</span>")
+		// 	if(2)
+		// 		if (!istype(C:dna, /datum/dna))
+		// 			to_chat(user, "<span class='notice'>No fingerprints found on [C]</span>")
+		// 		else
+		// 			to_chat(user, text("<span class='notice'>\The [C]'s Fingerprints: [md5(C:dna.uni_identity)]</span>"))
+		// 		if ( !(C:blood_DNA) )
+		// 			to_chat(user, "<span class='notice'>No blood found on [C]</span>")
+		// 			if(C:blood_DNA)
+		// 				qdel(C:blood_DNA)
+		// 		else
+		// 			to_chat(user, "<span class='notice'>Blood found on [C]. Analysing...</span>")
+		// 			spawn(15)
+		// 				for(var/blood in C:blood_DNA)
+		// 					to_chat(user, "<span class='notice'>Blood type: [C:blood_DNA[blood]]\nDNA: [blood]</span>")
+
+		// 	if(4)
+		// 		user.visible_message("<span class='warning'>\The [user] has analyzed [C]'s radiation levels!</span>", "<span class='notice'>You have analyzed [C]'s radiation levels!</span>")
+		// 		to_chat(user, "<span class='notice'>Analyzing Results for [C]:</span>")
+		// 		if(C.radiation)
+		// 			to_chat(user, "<span class='notice'>Radiation Level: [C.radiation]</span>")
+		// 		else
+		// 			to_chat(user, "<span class='notice'>No radiation detected.</span>")
 
 /obj/item/device/pda/afterattack(atom/A as mob|obj|turf|area, mob/user as mob, proximity)
-	if(!proximity) return
-	switch(scanmode)
+	if(proximity && scanmode)
+		scanmode.scan_atom(A, user)
+	// if(!proximity) return
+	// switch(scanmode)
 
-		if(3)
-			if(!isobj(A))
-				return
-			if(!isnull(A.reagents))
-				if(A.reagents.reagent_list.len > 0)
-					var/reagents_length = A.reagents.reagent_list.len
-					to_chat(user, "<span class='notice'>[reagents_length] chemical agent[reagents_length > 1 ? "s" : ""] found.</span>")
-					for (var/re in A.reagents.reagent_list)
-						to_chat(user, "<span class='notice'>    [re]</span>")
-				else
-					to_chat(user, "<span class='notice'>No active chemical agents found in [A].</span>")
-			else
-				to_chat(user, "<span class='notice'>No significantchemical agents found in [A].</span>")
+	// 	if(3)
+	// 		if(!isobj(A))
+	// 			return
+	// 		if(!isnull(A.reagents))
+	// 			if(A.reagents.reagent_list.len > 0)
+	// 				var/reagents_length = A.reagents.reagent_list.len
+	// 				to_chat(user, "<span class='notice'>[reagents_length] chemical agent[reagents_length > 1 ? "s" : ""] found.</span>")
+	// 				for (var/re in A.reagents.reagent_list)
+	// 					to_chat(user, "<span class='notice'>    [re]</span>")
+	// 			else
+	// 				to_chat(user, "<span class='notice'>No active chemical agents found in [A].</span>")
+	// 		else
+	// 			to_chat(user, "<span class='notice'>No significantchemical agents found in [A].</span>")
 
-		if(5)
-			analyze_gases(A, user)
+	// 	if(5)
+	// 		analyze_gases(A, user)
 
-	if (!scanmode && istype(A, /obj/item/weapon/paper) && owner)
-		// JMO 20140705: Makes scanned document show up properly in the notes. Not pretty for formatted documents,
-		// as this will clobber the HTML, but at least it lets you scan a document. You can restore the original
-		// notes by editing the note again. (Was going to allow you to edit, but scanned documents are too long.)
-		var/raw_scan = (A:info)
-		var/formatted_scan = ""
-		// Scrub out the tags (replacing a few formatting ones along the way)
+	// if (!scanmode && istype(A, /obj/item/weapon/paper) && owner)
+	// 	// JMO 20140705: Makes scanned document show up properly in the notes. Not pretty for formatted documents,
+	// 	// as this will clobber the HTML, but at least it lets you scan a document. You can restore the original
+	// 	// notes by editing the note again. (Was going to allow you to edit, but scanned documents are too long.)
+	// 	var/raw_scan = (A:info)
+	// 	var/formatted_scan = ""
+	// 	// Scrub out the tags (replacing a few formatting ones along the way)
 
-		// Find the beginning and end of the first tag.
-		var/tag_start = findtext(raw_scan,"<")
-		var/tag_stop = findtext(raw_scan,">")
+	// 	// Find the beginning and end of the first tag.
+	// 	var/tag_start = findtext(raw_scan,"<")
+	// 	var/tag_stop = findtext(raw_scan,">")
 
-		// Until we run out of complete tags...
-		while(tag_start&&tag_stop)
-			var/pre = copytext(raw_scan,1,tag_start) // Get the stuff that comes before the tag
-			var/tag = lowertext(copytext(raw_scan,tag_start+1,tag_stop)) // Get the tag so we can do intellegent replacement
-			var/tagend = findtext(tag," ") // Find the first space in the tag if there is one.
+	// 	// Until we run out of complete tags...
+	// 	while(tag_start&&tag_stop)
+	// 		var/pre = copytext(raw_scan,1,tag_start) // Get the stuff that comes before the tag
+	// 		var/tag = lowertext(copytext(raw_scan,tag_start+1,tag_stop)) // Get the tag so we can do intellegent replacement
+	// 		var/tagend = findtext(tag," ") // Find the first space in the tag if there is one.
 
-			// Anything that's before the tag can just be added as is.
-			formatted_scan = formatted_scan+pre
+	// 		// Anything that's before the tag can just be added as is.
+	// 		formatted_scan = formatted_scan+pre
 
-			// If we have a space after the tag (and presumably attributes) just crop that off.
-			if (tagend)
-				tag=copytext(tag,1,tagend)
+	// 		// If we have a space after the tag (and presumably attributes) just crop that off.
+	// 		if (tagend)
+	// 			tag=copytext(tag,1,tagend)
 
-			if (tag=="p"||tag=="/p"||tag=="br") // Check if it's I vertical space tag.
-				formatted_scan=formatted_scan+"<br>" // If so, add some padding in.
+	// 		if (tag=="p"||tag=="/p"||tag=="br") // Check if it's I vertical space tag.
+	// 			formatted_scan=formatted_scan+"<br>" // If so, add some padding in.
 
-			raw_scan = copytext(raw_scan,tag_stop+1) // continue on with the stuff after the tag
+	// 		raw_scan = copytext(raw_scan,tag_stop+1) // continue on with the stuff after the tag
 
-			// Look for the next tag in what's left
-			tag_start = findtext(raw_scan,"<")
-			tag_stop = findtext(raw_scan,">")
+	// 		// Look for the next tag in what's left
+	// 		tag_start = findtext(raw_scan,"<")
+	// 		tag_stop = findtext(raw_scan,">")
 
-		// Anything that is left in the page. just tack it on to the end as is
-		formatted_scan=formatted_scan+raw_scan
+	// 	// Anything that is left in the page. just tack it on to the end as is
+	// 	formatted_scan=formatted_scan+raw_scan
 
-    	// If there is something in there already, pad it out.
-		if (length(note)>0)
-			note = note + "<br><br>"
+    // 	// If there is something in there already, pad it out.
+	// 	if (length(note)>0)
+	// 		note = note + "<br><br>"
 
-    	// Store the scanned document to the notes
-		note = "Scanned Document. Edit to restore previous notes/delete scan.<br>----------<br>" + formatted_scan + "<br>"
-		// notehtml ISN'T set to allow user to get their old notes back. A better implementation would add a "scanned documents"
-		// feature to the PDA, which would better convey the availability of the feature, but this will work for now.
+    // 	// Store the scanned document to the notes
+	// 	note = "Scanned Document. Edit to restore previous notes/delete scan.<br>----------<br>" + formatted_scan + "<br>"
+	// 	// notehtml ISN'T set to allow user to get their old notes back. A better implementation would add a "scanned documents"
+	// 	// feature to the PDA, which would better convey the availability of the feature, but this will work for now.
 
-		// Inform the user
-		to_chat(user, "<span class='notice'>Paper scanned and OCRed to notekeeper.</span>") //concept of scanning paper copyright brainoblivion 2009
+	// 	// Inform the user
+	// 	to_chat(user, "<span class='notice'>Paper scanned and OCRed to notekeeper.</span>") //concept of scanning paper copyright brainoblivion 2009
 
 
 /obj/item/device/pda/proc/explode() //This needs tuning. //Sure did.
@@ -1501,8 +1245,12 @@ var/global/list/obj/item/device/pda/PDAs = list()
 		src.id.forceMove(get_turf(src.loc))
 	else
 		QDEL_NULL(src.id)
-	QDEL_NULL(src.cartridge)
-	QDEL_NULL(src.pai)
+
+	current_app = null
+	scanmode = null
+	QDEL_NULL(pai)
+	QDEL_LIST(programs)
+	QDEL_NULL(cartridge)
 	return ..()
 
 /obj/item/device/pda/clown/Crossed(atom/movable/AM as mob|obj) //Clown PDA is slippery.

code/modules/pda/pda_tgui.dm

@@ -0,0 +1,59 @@
+// Self contained file for all things TGUI
+/obj/item/device/pda/tgui_state(mob/user)
+	return GLOB.tgui_inventory_state
+
+/obj/item/device/pda/tgui_interact(mob/user, datum/tgui/ui)
+	ui = SStgui.try_update_ui(user, src, ui)
+	if(!ui)
+		ui = new(user, src, "Pda", "Personal Data Assistant")
+		ui.open()
+
+/obj/item/device/pda/tgui_data(mob/user, datum/tgui/ui, datum/tgui_state/state)
+	var/list/data = ..()
+
+	data["owner"] = owner					// Who is your daddy...
+	data["ownjob"] = ownjob					// ...and what does he do?
+
+	// update list of shortcuts, only if they changed
+	if(!shortcut_cache.len)
+		shortcut_cache = list()
+		shortcut_cat_order = list()
+		var/prog_list = programs.Copy()
+		if(cartridge)
+			prog_list |= cartridge.programs
+
+		for(var/A in prog_list)
+			var/datum/data/pda/P = A
+
+			if(P.hidden)
+				continue
+			var/list/cat
+			if(P.category in shortcut_cache)
+				cat = shortcut_cache[P.category]
+			else
+				cat = list()
+				shortcut_cache[P.category] = cat
+				shortcut_cat_order += P.category
+			cat |= list(list(name = P.name, icon = P.icon, notify_icon = P.notify_icon, ref = "\ref[P]"))
+
+		// force the order of a few core categories
+		shortcut_cat_order = list("General") \
+			+ sortList(shortcut_cat_order - list("General", "Scanners", "Utilities")) \
+			+ list("Scanners", "Utilities")
+
+	data["idInserted"] = (id ? 1 : 0)
+	data["idLink"] = (id ? text("[id.registered_name], [id.assignment]") : "--------")
+
+	data["useRetro"] = retro_mode
+
+	data["cartridge_name"] = cartridge ? cartridge.name : ""
+	data["stationTime"] = worldtime2stationtime(world.time)
+
+	data["app"] = list(
+		"name" = current_app.title,
+		"icon" = current_app.icon,
+		"template" = current_app.template,
+		"has_back" = current_app.has_back)
+	current_app.update_ui(user, data)
+
+	return data

code/modules/pda/utilities.dm

@@ -0,0 +1,200 @@
+/datum/data/pda/utility/flashlight
+	name = "Enable Flashlight"
+	icon = "lightbulb-o"
+
+	var/fon = 0 //Is the flashlight function on?
+	var/f_lum = 2 //Luminosity for the flashlight function
+
+/datum/data/pda/utility/flashlight/start()
+	fon = !fon
+	name = fon ? "Disable Flashlight" : "Enable Flashlight"
+	pda.update_shortcuts()
+	pda.set_light(fon ? f_lum : 0)
+
+/datum/data/pda/utility/honk
+	name = "Honk Synthesizer"
+	icon = "smile-o"
+	category = "Clown"
+
+	var/last_honk //Also no honk spamming that's bad too
+
+/datum/data/pda/utility/honk/start()
+	if(!(last_honk && world.time < last_honk + 20))
+		playsound(pda.loc, 'sound/items/bikehorn.ogg', 50, 1)
+		last_honk = world.time
+
+/datum/data/pda/utility/toggle_door
+	name = "Toggle Door"
+	icon = "external-link"
+	var/remote_door_id = ""
+
+// /datum/data/pda/utility/toggle_door/start()
+// 	for(var/obj/machinery/door/poddoor/M in airlocks)
+// 		if(M.id_tag == remote_door_id)
+// 			if(M.density)
+// 				M.open()
+// 			else
+// 				M.close()
+
+/datum/data/pda/utility/scanmode/medical
+	base_name = "Med Scanner"
+	icon = "heart-o"
+
+/datum/data/pda/utility/scanmode/medical/scan_mob(mob/living/C as mob, mob/living/user as mob)
+	C.visible_message("<span class=warning>[user] has analyzed [C]'s vitals!</span>")
+
+	user.show_message("<span class=notice>Analyzing Results for [C]:</span>")
+	user.show_message("<span class=notice>\t Overall Status: [C.stat > 1 ? "dead" : "[C.health]% healthy"]</span>", 1)
+	user.show_message("<span class=notice>\t Damage Specifics: [C.getOxyLoss() > 50 ? "</span><span class=warning>" : ""][C.getOxyLoss()]-[C.getToxLoss() > 50 ? "</span><span class=warning>" : "</span><span class=notice>"][C.getToxLoss()]-[C.getFireLoss() > 50 ? "</span><span class=warning>" : "</span><span class=notice>"][C.getFireLoss()]-[C.getBruteLoss() > 50 ? "</span><span class=warning>" : "</span><span class=notice>"][C.getBruteLoss()]</span>", 1)
+	user.show_message("<span class=notice>\t Key: Suffocation/Toxin/Burns/Brute</span>", 1)
+	user.show_message("<span class=notice>\t Body Temperature: [C.bodytemperature-T0C]&deg;C ([C.bodytemperature*1.8-459.67]&deg;F)</span>", 1)
+	if(C.tod && (C.stat == DEAD || (C.status_flags & FAKEDEATH)))
+		user.show_message("<span class=notice>\t Time of Death: [C.tod]</span>")
+	if(istype(C, /mob/living/carbon/human))
+		var/mob/living/carbon/human/H = C
+		var/list/damaged = H.get_damaged_organs(1,1)
+		user.show_message("<span class=notice>Localized Damage, Brute/Burn:</span>",1)
+		if(length(damaged)>0)
+			for(var/obj/item/organ/external/org in damaged)
+				user.show_message("<span class=notice>\t [capitalize(org.name)]: [org.brute_dam > 0 ? "<span class=warning>[org.brute_dam]</span>" : "0"]-[org.burn_dam > 0 ? "<span class=warning>[org.burn_dam]</span>" : "0"]", 1)
+		else
+			user.show_message("<span class=notice>\t Limbs are OK.",1)
+
+/datum/data/pda/utility/scanmode/dna
+	base_name = "DNA Scanner"
+	icon = "link"
+
+/datum/data/pda/utility/scanmode/dna/scan_mob(mob/living/C as mob, mob/living/user as mob)
+	if(istype(C, /mob/living/carbon/human))
+		var/mob/living/carbon/human/H = C
+		if(!istype(H.dna, /datum/dna))
+			to_chat(user, "<span class=notice>No fingerprints found on [H]</span>")
+		else
+			to_chat(user, "<span class=notice>[H]'s Fingerprints: [md5(H.dna.uni_identity)]</span>")
+	scan_blood(C, user)
+
+/datum/data/pda/utility/scanmode/dna/scan_atom(atom/A as mob|obj|turf|area, mob/user as mob)
+	scan_blood(A, user)
+
+/datum/data/pda/utility/scanmode/dna/proc/scan_blood(atom/A, mob/user)
+	if(!A.blood_DNA)
+		to_chat(user, "<span class=notice>No blood found on [A]</span>")
+		if(A.blood_DNA)
+			qdel(A.blood_DNA)
+	else
+		to_chat(user, "<span class=notice>Blood found on [A]. Analysing...</span>")
+		spawn(15)
+			for(var/blood in A.blood_DNA)
+				to_chat(user, "<span class=notice>Blood type: [A.blood_DNA[blood]]\nDNA: [blood]</span>")
+
+/datum/data/pda/utility/scanmode/halogen
+	base_name = "Halogen Counter"
+	icon = "exclamation-circle"
+
+/datum/data/pda/utility/scanmode/halogen/scan_mob(mob/living/C as mob, mob/living/user as mob)
+	C.visible_message("<span class=warning>[user] has analyzed [C]'s radiation levels!</span>")
+
+	user.show_message("<span class=notice>Analyzing Results for [C]:</span>")
+	if(C.radiation)
+		user.show_message("<span class=notice>Radiation Level: [C.radiation > 0 ? "</span><span class=danger>[C.radiation]" : "0"]</span>")
+	else
+		user.show_message("<span class=notice>No radiation detected.</span>")
+
+/datum/data/pda/utility/scanmode/reagent
+	base_name = "Reagent Scanner"
+	icon = "flask"
+
+/datum/data/pda/utility/scanmode/reagent/scan_atom(atom/A as mob|obj|turf|area, mob/user as mob)
+	if(!isnull(A.reagents))
+		if(A.reagents.reagent_list.len > 0)
+			var/reagents_length = A.reagents.reagent_list.len
+			to_chat(user, "<span class='notice'>[reagents_length] chemical agent[reagents_length > 1 ? "s" : ""] found.</span>")
+			for(var/re in A.reagents.reagent_list)
+				to_chat(user, "<span class='notice'>\t [re]</span>")
+		else
+			to_chat(user, "<span class='notice'>No active chemical agents found in [A].</span>")
+	else
+		to_chat(user, "<span class='notice'>No significant chemical agents found in [A].</span>")
+
+/datum/data/pda/utility/scanmode/gas
+	base_name = "Gas Scanner"
+	icon = "tachometer"
+
+/datum/data/pda/utility/scanmode/gas/scan_atom(atom/A as mob|obj|turf|area, mob/user as mob)
+	// if(istype(A, /obj/item/tank))
+	// 	var/obj/item/tank/T = A
+	// 	pda.atmosanalyzer_scan(T.air_contents, user, T)
+	// else if(istype(A, /obj/machinery/portable_atmospherics))
+	// 	var/obj/machinery/portable_atmospherics/T = A
+	// 	pda.atmosanalyzer_scan(T.air_contents, user, T)
+	// else if(istype(A, /obj/machinery/atmospherics/pipe))
+	// 	var/obj/machinery/atmospherics/pipe/T = A
+	// 	pda.atmosanalyzer_scan(T.parent.air, user, T)
+	// else if(istype(A, /obj/machinery/power/rad_collector))
+	// 	var/obj/machinery/power/rad_collector/T = A
+	// 	if(T.P)
+	// 		pda.atmosanalyzer_scan(T.P.air_contents, user, T)
+	// else if(istype(A, /obj/item/flamethrower))
+	// 	var/obj/item/flamethrower/T = A
+	// 	if(T.ptank)
+	// 		pda.atmosanalyzer_scan(T.ptank.air_contents, user, T)
+	// else if(istype(A, /obj/machinery/portable_atmospherics/scrubber/huge))
+	// 	var/obj/machinery/portable_atmospherics/scrubber/huge/T = A
+	// 	pda.atmosanalyzer_scan(T.air_contents, user, T)
+	// else if(istype(A, /obj/machinery/atmospherics/unary/tank))
+	// 	var/obj/machinery/atmospherics/unary/tank/T = A
+	// 	pda.atmosanalyzer_scan(T.air_contents, user, T)
+
+/datum/data/pda/utility/scanmode/notes
+	base_name = "Note Scanner"
+	icon = "clipboard"
+	var/datum/data/pda/app/notekeeper/notes
+
+/datum/data/pda/utility/scanmode/notes/start()
+	. = ..()
+	notes = pda.find_program(/datum/data/pda/app/notekeeper)
+
+/datum/data/pda/utility/scanmode/notes/scan_atom(atom/A as mob|obj|turf|area, mob/user as mob)
+	if(notes && istype(A, /obj/item/weapon/paper))
+		var/obj/item/weapon/paper/P = A
+		var/list/brlist = list("p", "/p", "br", "hr", "h1", "h2", "h3", "h4", "/h1", "/h2", "/h3", "/h4")
+
+		// JMO 20140705: Makes scanned document show up properly in the notes. Not pretty for formatted documents,
+		// as this will clobber the HTML, but at least it lets you scan a document. You can restore the original
+		// notes by editing the note again. (Was going to allow you to edit, but scanned documents are too long.)
+		var/raw_scan = sanitize_simple(P.info, list("\t" = "", "ÿ" = ""))
+		var/formatted_scan = ""
+		// Scrub out the tags (replacing a few formatting ones along the way)
+		// Find the beginning and end of the first tag.
+		var/tag_start = findtext(raw_scan, "<")
+		var/tag_stop = findtext(raw_scan, ">")
+		// Until we run out of complete tags...
+		while(tag_start && tag_stop)
+			var/pre = copytext(raw_scan, 1, tag_start) // Get the stuff that comes before the tag
+			var/tag = lowertext(copytext(raw_scan, tag_start + 1, tag_stop)) // Get the tag so we can do intellegent replacement
+			var/tagend = findtext(tag, " ") // Find the first space in the tag if there is one.
+			// Anything that's before the tag can just be added as is.
+			formatted_scan = formatted_scan + pre
+			// If we have a space after the tag (and presumably attributes) just crop that off.
+			if(tagend)
+				tag = copytext(tag, 1, tagend)
+			if(tag in brlist) // Check if it's I vertical space tag.
+				formatted_scan = formatted_scan + "<br>" // If so, add some padding in.
+			raw_scan = copytext(raw_scan, tag_stop + 1) // continue on with the stuff after the tag
+			// Look for the next tag in what's left
+			tag_start = findtext(raw_scan, "<")
+			tag_stop = findtext(raw_scan, ">")
+		// Anything that is left in the page. just tack it on to the end as is
+		formatted_scan = formatted_scan + raw_scan
+		// If there is something in there already, pad it out.
+		if(length(notes.note) > 0)
+			notes.note += "<br><br>"
+		// Store the scanned document to the notes
+		notes.note += "Scanned Document. Edit to restore previous notes/delete scan.<br>----------<br>" + formatted_scan + "<br>"
+		// notehtml ISN'T set to allow user to get their old notes back. A better implementation would add a "scanned documents"
+		// feature to the PDA, which would better convey the availability of the feature, but this will work for now.
+		// Inform the user
+		to_chat(user, "<span class=notice>Paper scanned and OCRed to notekeeper.</span>")//concept of scanning paper copyright brainoblivion 2009
+
+	else
+		to_chat(user, "<span class=warning>Error scanning [A].</span>")