Merge pull request #13738 from dearmochi/tgui-medical

[TGUI] Medical Machines

code/modules/client/asset_cache.dm

@@ -309,6 +309,20 @@ GLOBAL_LIST_EMPTY(asset_datums)
 /datum/asset/chem_master/send(client)
 	send_asset_list(client, assets, verify)
 
+//Cloning pod sprites for UIs
+/datum/asset/cloning
+	var/assets = list()
+	var/verify = FALSE
+
+/datum/asset/cloning/register()
+	assets["pod_idle.gif"] = icon('icons/obj/cloning.dmi', "pod_idle")
+	assets["pod_cloning.gif"] = icon('icons/obj/cloning.dmi', "pod_cloning")
+	assets["pod_mess.gif"] = icon('icons/obj/cloning.dmi', "pod_mess")
+	for(var/asset_name in assets)
+		register_asset(asset_name, assets[asset_name])
+
+/datum/asset/cloning/send(client)
+	send_asset_list(client, assets, verify)
 
 //Pipe sprites for UIs
 /datum/asset/rpd

code/modules/reagents/chemistry/machinery/chem_dispenser.dm

@@ -24,6 +24,7 @@
 	var/list/hacked_reagents = list("toxin")
 	var/hack_message = "You disable the safety safeguards, enabling the \"Mad Scientist\" mode."
 	var/unhack_message = "You re-enable the safety safeguards, enabling the \"NT Standard\" mode."
+	var/is_drink = FALSE
 
 /obj/machinery/chem_dispenser/get_cell()
 	return cell
@@ -120,7 +121,6 @@
 		var/usedpower = cell.give(recharge_amount)
 		if(usedpower)
 			use_power(15 * recharge_amount)
-			SSnanoui.update_uis(src) // update all UIs attached to src
 		recharge_counter = 0
 		return
 	recharge_counter++
@@ -131,7 +131,6 @@
 	else
 		spawn(rand(0, 15))
 			stat |= NOPOWER
-	SSnanoui.update_uis(src) // update all UIs attached to src
 
 /obj/machinery/chem_dispenser/ex_act(severity)
 	if(severity < 3)
@@ -145,19 +144,17 @@
 		beaker = null
 		overlays.Cut()
 
-/obj/machinery/chem_dispenser/ui_interact(mob/user, ui_key = "main", datum/nanoui/ui = null, force_open = 1)
+/obj/machinery/chem_dispenser/tgui_interact(mob/user, ui_key = "main", datum/tgui/ui = null, force_open = FALSE, datum/tgui/master_ui = null, datum/tgui_state/state = GLOB.tgui_default_state)
 	// update the ui if it exists, returns null if no ui is passed/found
-	ui = SSnanoui.try_update_ui(user, src, ui_key, ui, force_open)
+	ui = SStgui.try_update_ui(user, src, ui_key, ui, force_open)
 	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
-		ui = new(user, src, ui_key, "chem_dispenser.tmpl", ui_title, 390, 655)
-		// open the new ui window
+		ui = new(user, src, ui_key, "ChemDispenser", ui_title, 390, 655)
 		ui.open()
 
-/obj/machinery/chem_dispenser/ui_data(mob/user, ui_key = "main", datum/topic_state/state = GLOB.default_state)
+/obj/machinery/chem_dispenser/tgui_data(mob/user)
 	var/data[0]
 
+	data["glass"] = is_drink
 	data["amount"] = amount
 	data["energy"] = cell.charge ? cell.charge * powerefficiency : "0" //To prevent NaN in the UI.
 	data["maxEnergy"] = cell.maxcharge * powerefficiency
@@ -187,63 +184,59 @@
 
 	return data
 
-/obj/machinery/chem_dispenser/Topic(href, href_list)
+/obj/machinery/chem_dispenser/tgui_act(actions, params)
 	if(..())
-		return TRUE
+		return
+	if(stat & (NOPOWER|BROKEN))
+		return
 
-	if(href_list["amount"])
-		amount = round(text2num(href_list["amount"]), 1) // round to nearest 1
-		if(amount < 0) // Since the user can actually type the commands himself, some sanity checking
-			amount = 0
-		if(amount > 100)
-			amount = 100
-
-	if(href_list["dispense"])
-		if(!is_operational() || QDELETED(cell))
-			return
-		if(beaker && dispensable_reagents.Find(href_list["dispense"]))
+	. = TRUE
+	switch(actions)
+		if("amount")
+			amount = clamp(round(text2num(params["amount"]), 1), 0, 50) // round to nearest 1 and clamp to 0 - 50
+		if("dispense")
+			if(!is_operational() || QDELETED(cell))
+				return
+			if(!beaker || !dispensable_reagents.Find(params["reagent"]))
+				return
 			var/datum/reagents/R = beaker.reagents
 			var/free = R.maximum_volume - R.total_volume
 			var/actual = min(amount, (cell.charge * powerefficiency) * 10, free)
-
 			if(!cell.use(actual / powerefficiency))
 				atom_say("Not enough energy to complete operation!")
 				return
-
-			R.add_reagent(href_list["dispense"], actual)
+			R.add_reagent(params["reagent"], actual)
 			overlays.Cut()
 			if(!icon_beaker)
-				icon_beaker = image('icons/obj/chemical.dmi', src, "disp_beaker") //randomize beaker overlay position.
+				icon_beaker = mutable_appearance('icons/obj/chemical.dmi', "disp_beaker") //randomize beaker overlay position.
 			icon_beaker.pixel_x = rand(-10, 5)
 			overlays += icon_beaker
-
-	if(href_list["remove"])
-		if(beaker)
-			if(href_list["removeamount"])
-				var/amount = text2num(href_list["removeamount"])
-				if(isnum(amount) && (amount > 0))
-					var/datum/reagents/R = beaker.reagents
-					var/id = href_list["remove"]
-					R.remove_reagent(id, amount)
-				else if(isnum(amount) && (amount == -1)) //Isolate instead
-					var/datum/reagents/R = beaker.reagents
-					var/id = href_list["remove"]
-					R.isolate_reagent(id)
-
-	if(href_list["ejectBeaker"])
-		if(beaker)
+		if("remove")
+			var/amount = text2num(params["amount"])
+			if(!beaker || !amount)
+				return
+			var/datum/reagents/R = beaker.reagents
+			var/id = params["reagent"]
+			if(amount > 0)
+				R.remove_reagent(id, amount)
+			else if(amount == -1) //Isolate instead
+				R.isolate_reagent(id)
+		if("ejectBeaker")
+			if(!beaker)
+				return
 			beaker.forceMove(loc)
 			if(Adjacent(usr) && !issilicon(usr))
 				usr.put_in_hands(beaker)
 			beaker = null
 			overlays.Cut()
+		else
+			return FALSE
 
 	add_fingerprint(usr)
-	return TRUE // update UIs attached to this object
 
 /obj/machinery/chem_dispenser/attackby(obj/item/I, mob/user, params)
 	if(exchange_parts(user, I))
-		SSnanoui.update_uis(src)
+		SStgui.update_uis(src)
 		return
 
 	if(isrobot(user))
@@ -263,9 +256,9 @@
 		beaker =  I
 		I.forceMove(src)
 		to_chat(user, "<span class='notice'>You set [I] on the machine.</span>")
-		SSnanoui.update_uis(src) // update all UIs attached to src
+		SStgui.update_uis(src) // update all UIs attached to src
 		if(!icon_beaker)
-			icon_beaker = image('icons/obj/chemical.dmi', src, "disp_beaker") //randomize beaker overlay position.
+			icon_beaker = mutable_appearance('icons/obj/chemical.dmi', "disp_beaker") //randomize beaker overlay position.
 		icon_beaker.pixel_x = rand(-10, 5)
 		overlays += icon_beaker
 		return
@@ -299,8 +292,7 @@
 		to_chat(user, unhack_message)
 		dispensable_reagents -= hacked_reagents
 		hackedcheck = FALSE
-	SSnanoui.update_uis(src)
-
+	SStgui.update_uis(src)
 
 /obj/machinery/chem_dispenser/screwdriver_act(mob/user, obj/item/I)
 	if(default_deconstruction_screwdriver(user, "[initial(icon_state)]-o", "[initial(icon_state)]", I))
@@ -321,14 +313,14 @@
 	return attack_hand(user)
 
 /obj/machinery/chem_dispenser/attack_ghost(mob/user)
-	if(user.can_admin_interact())
-		return attack_hand(user)
+	if(stat & BROKEN)
+		return
+	tgui_interact(user)
 
 /obj/machinery/chem_dispenser/attack_hand(mob/user)
 	if(stat & BROKEN)
 		return
-
-	ui_interact(user)
+	tgui_interact(user)
 
 /obj/machinery/chem_dispenser/soda
 	icon_state = "soda_dispenser"
@@ -342,6 +334,7 @@
 	hacked_reagents = list("thirteenloko")
 	hack_message = "You change the mode from 'McNano' to 'Pizza King'."
 	unhack_message = "You change the mode from 'Pizza King' to 'McNano'."
+	is_drink = TRUE
 
 /obj/machinery/chem_dispenser/soda/New()
 	..()
@@ -377,6 +370,7 @@
 	hacked_reagents = list("goldschlager", "patron", "absinthe", "ethanol", "nothing", "sake")
 	hack_message = "You disable the 'nanotrasen-are-cheap-bastards' lock, enabling hidden and very expensive boozes."
 	unhack_message = "You re-enable the 'nanotrasen-are-cheap-bastards' lock, disabling hidden and very expensive boozes."
+	is_drink = TRUE
 
 /obj/machinery/chem_dispenser/beer/New()
 	..()

code/modules/reagents/chemistry/machinery/chem_heater.dm

@@ -1,15 +1,19 @@
 /obj/machinery/chem_heater
 	name = "chemical heater"
-	density = 1
-	anchored = 1
+	density = TRUE
+	anchored = TRUE
 	icon = 'icons/obj/chemical.dmi'
 	icon_state = "mixer0b"
 	use_power = IDLE_POWER_USE
 	idle_power_usage = 40
-	resistance_flags = FIRE_PROOF | ACID_PROOF
+	resistance_flags = FIRE_PROOF|ACID_PROOF
 	var/obj/item/reagent_containers/beaker = null
 	var/desired_temp = T0C
 	var/on = FALSE
+	/// Whether this should auto-eject the beaker once done heating/cooling.
+	var/auto_eject = FALSE
+	/// The higher this number, the faster reagents will heat/cool.
+	var/speed_increase = 0
 
 /obj/machinery/chem_heater/New()
 	..()
@@ -19,35 +23,36 @@
 	component_parts += new /obj/item/stack/sheet/glass(null)
 	RefreshParts()
 
+/obj/machinery/chem_heater/RefreshParts()
+	speed_increase = initial(speed_increase)
+	for(var/obj/item/stock_parts/micro_laser/M in component_parts)
+		speed_increase += 5 * (M.rating - 1)
+
 /obj/machinery/chem_heater/process()
 	..()
-	if(stat & NOPOWER)
+	if(stat & (NOPOWER|BROKEN))
 		return
-	var/state_change = FALSE
 	if(on)
 		if(beaker)
 			if(!beaker.reagents.total_volume)
 				on = FALSE
-				SSnanoui.update_uis(src)
 				return
-			beaker.reagents.temperature_reagents(desired_temp)
-			beaker.reagents.temperature_reagents(desired_temp)
-			if(abs(beaker.reagents.chem_temp - desired_temp) <= 3)
+			beaker.reagents.temperature_reagents(desired_temp, max(1, 35 - speed_increase))
+			if(round(beaker.reagents.chem_temp) == round(desired_temp))
+				playsound(loc, 'sound/machines/ding.ogg', 50, 1)
 				on = FALSE
-			state_change = TRUE
-
-	if(state_change)
-		SSnanoui.update_uis(src)
+				if(auto_eject)
+					eject_beaker()
 
 /obj/machinery/chem_heater/proc/eject_beaker(mob/user)
 	if(beaker)
 		beaker.forceMove(get_turf(src))
-		if(Adjacent(user) && !issilicon(user))
+		if(user && Adjacent(user) && !issilicon(user))
 			user.put_in_hands(beaker)
 		beaker = null
 		icon_state = "mixer0b"
 		on = FALSE
-		SSnanoui.update_uis(src)
+		SStgui.update_uis(src)
 
 /obj/machinery/chem_heater/power_change()
 	if(powered())
@@ -55,7 +60,6 @@
 	else
 		spawn(rand(0, 15))
 			stat |= NOPOWER
-	SSnanoui.update_uis(src)
 
 /obj/machinery/chem_heater/attackby(obj/item/I, mob/user)
 	if(isrobot(user))
@@ -71,7 +75,7 @@
 			I.forceMove(src)
 			to_chat(user, "<span class='notice'>You add the beaker to the machine!</span>")
 			icon_state = "mixer1b"
-			SSnanoui.update_uis(src)
+			SStgui.update_uis(src)
 			return
 
 	if(exchange_parts(user, I))
@@ -95,62 +99,62 @@
 	default_deconstruction_crowbar(user, I)
 
 /obj/machinery/chem_heater/attack_hand(mob/user)
-	ui_interact(user)
+	tgui_interact(user)
 
 /obj/machinery/chem_heater/attack_ghost(mob/user)
-	if(user.can_admin_interact())
-		return attack_hand(user)
+	tgui_interact(user)
 
 /obj/machinery/chem_heater/attack_ai(mob/user)
 	add_hiddenprint(user)
 	return attack_hand(user)
 
-/obj/machinery/chem_heater/Topic(href, href_list)
+/obj/machinery/chem_heater/tgui_act(action, params)
 	if(..())
-		return FALSE
+		return
+	if(stat & (NOPOWER|BROKEN))
+		return
 
-	if(href_list["toggle_on"])
-		if(!beaker.reagents.total_volume)
-			return FALSE
-		on = !on
-		. = 1
-
-	if(href_list["adjust_temperature"])
-		var/val = href_list["adjust_temperature"]
-		if(isnum(val))
-			desired_temp = clamp(desired_temp+val, 0, 1000)
-		else if(val == "input")
-			var/target = input("Please input the target temperature", name) as num
-			desired_temp = clamp(target, 0, 1000)
+	. = TRUE
+	switch(action)
+		if("toggle_on")
+			on = !on
+		if("adjust_temperature")
+			desired_temp = clamp(text2num(params["target"]), 0, 1000)
+		if("eject_beaker")
+			eject_beaker(usr)
+			. = FALSE
+		if("toggle_autoeject")
+			auto_eject = !auto_eject
 		else
 			return FALSE
-		. = 1
+	add_fingerprint(usr)
 
-	if(href_list["eject_beaker"])
-		eject_beaker(usr)
-		. = 0 //updated in eject_beaker() already
-
-/obj/machinery/chem_heater/ui_interact(mob/user, ui_key = "main", datum/nanoui/ui = null)
+/obj/machinery/chem_heater/tgui_interact(mob/user, ui_key = "main", datum/tgui/ui = null, force_open = FALSE, datum/tgui/master_ui = null, datum/tgui_state/state = GLOB.tgui_default_state)
 	if(user.stat || user.restrained())
 		return
 
-	// update the ui if it exists, returns null if no ui is passed/found
-	ui = SSnanoui.try_update_ui(user, src, ui_key, ui)
+	ui = SStgui.try_update_ui(user, src, ui_key, ui, force_open)
 	if(!ui)
-		ui = new(user, src, ui_key, "chem_heater.tmpl", "ChemHeater", 350, 270)
+		ui = new(user, src, ui_key, "ChemHeater", "Chemical Heater", 350, 270, master_ui, state)
 		ui.open()
 
-/obj/machinery/chem_heater/ui_data(mob/user, ui_key = "main", datum/topic_state/state = GLOB.default_state)
+/obj/machinery/chem_heater/tgui_data(mob/user)
 	var/data[0]
+	var/cur_temp = beaker ? beaker.reagents.chem_temp : null
 
 	data["targetTemp"] = desired_temp
+	data["targetTempReached"] = FALSE
+	data["autoEject"] = auto_eject
 	data["isActive"] = on
-	data["isBeakerLoaded"] = beaker ? 1 : 0
+	data["isBeakerLoaded"] = beaker ? TRUE : FALSE
 
-	data["currentTemp"] = beaker ? beaker.reagents.chem_temp : null
+	data["currentTemp"] = cur_temp
 	data["beakerCurrentVolume"] = beaker ? beaker.reagents.total_volume : null
 	data["beakerMaxVolume"] = beaker ? beaker.volume : null
 
+	if(cur_temp)
+		data["targetTempReached"] = round(cur_temp) == round(desired_temp)
+
 	//copy-pasted from chem dispenser
 	var/beakerContents[0]
 	if(beaker)

code/modules/reagents/chemistry/machinery/chem_master.dm

@@ -1,3 +1,9 @@
+#define MAX_PILL_SPRITE 20 //max icon state of the pill sprites
+#define MAX_MULTI_AMOUNT 20 // Max number of pills/patches that can be made at once
+#define MAX_UNITS_PER_PILL 100 // Max amount of units in a pill
+#define MAX_UNITS_PER_PATCH 30 // Max amount of units in a patch
+#define MAX_CUSTOM_NAME_LEN 64 // Max length of a custom pill/condiment/whatever
+
 /obj/machinery/chem_master
 	name = "\improper ChemMaster 3000"
 	density = TRUE
@@ -14,10 +20,12 @@
 	var/useramount = 30 // Last used amount
 	var/pillamount = 10
 	var/patchamount = 10
-	var/bottlesprite = "bottle"
-	var/pillsprite = "1"
+	var/bottlesprite = 1
+	var/pillsprite = 1
 	var/client/has_sprites = list()
 	var/printing = FALSE
+	var/static/list/pill_bottle_wrappers
+	var/static/list/bottle_styles
 
 /obj/machinery/chem_master/New()
 	..()
@@ -94,7 +102,7 @@
 		beaker = I
 		I.forceMove(src)
 		to_chat(user, "<span class='notice'>You add the beaker to the machine!</span>")
-		SSnanoui.update_uis(src)
+		SStgui.update_uis(src)
 		update_icon()
 
 	else if(istype(I, /obj/item/storage/pill_bottle))
@@ -109,14 +117,10 @@
 		loaded_pill_bottle = I
 		I.forceMove(src)
 		to_chat(user, "<span class='notice'>You add [I] into the dispenser slot!</span>")
-		SSnanoui.update_uis(src)
+		SStgui.update_uis(src)
 	else
 		return ..()
 
-
-
-
-
 /obj/machinery/chem_master/crowbar_act(mob/user, obj/item/I)
 	if(!panel_open)
 		return
@@ -142,319 +146,127 @@
 		power_change()
 		return TRUE
 
-/obj/machinery/chem_master/Topic(href, href_list)
+/obj/machinery/chem_master/tgui_act(action, params, datum/tgui/ui, datum/tgui_state/state)
 	if(..())
+		return
+	if(stat & (NOPOWER|BROKEN))
+		return
+
+	if(tgui_act_modal(action, params, ui, state))
 		return TRUE
 
 	add_fingerprint(usr)
 	usr.set_machine(src)
 
-
-	if(href_list["ejectp"])
-		if(loaded_pill_bottle)
-			loaded_pill_bottle.forceMove(loc)
-			loaded_pill_bottle = null
-	else if(href_list["change_pillbottle"])
-		if(loaded_pill_bottle)
-			var/list/wrappers = list("Default wrapper", "Red wrapper", "Green wrapper", "Pale green wrapper", "Blue wrapper", "Light blue wrapper", "Teal wrapper", "Yellow wrapper", "Orange wrapper", "Pink wrapper", "Brown wrapper")
-			var/chosen = input(usr, "Select a pillbottle wrapper", "Pillbottle wrapper", wrappers[1]) as null|anything in wrappers
-			if(!chosen)
+	. = TRUE
+	switch(action)
+		if("toggle")
+			mode = !mode
+		if("ejectp")
+			if(loaded_pill_bottle)
+				loaded_pill_bottle.forceMove(loc)
+				loaded_pill_bottle = null
+		if("print")
+			if(printing || condi)
 				return
-			var/color
-			switch(chosen)
-				if("Default wrapper")
-					loaded_pill_bottle.cut_overlays()
-					return
-				if("Red wrapper")
-					color = COLOR_RED
-				if("Green wrapper")
-					color = COLOR_GREEN
-				if("Pink wrapper")
-					color = COLOR_PINK
-				if("Teal wrapper")
-					color = COLOR_TEAL
-				if("Blue wrapper")
-					color = COLOR_BLUE
-				if("Brown wrapper")
-					color = COLOR_MAROON
-				if("Light blue wrapper")
-					color = COLOR_CYAN_BLUE
-				if("Yellow wrapper")
-					color = COLOR_YELLOW
-				if("Pale green wrapper")
-					color = COLOR_PALE_BTL_GREEN
-				if("Orange wrapper")
-					color = COLOR_ORANGE
-			loaded_pill_bottle.wrapper_color = color
-			loaded_pill_bottle.apply_wrap()
-	else if(href_list["close"])
-		usr << browse(null, "window=chem_master")
-		onclose(usr, "chem_master")
-		usr.unset_machine()
-		return
 
-	if(href_list["print_p"])
-		if(!printing)
+			var/idx = text2num(params["idx"]) || 0
+			var/from_beaker = text2num(params["beaker"]) || FALSE
+			var/reagent_list = from_beaker ? beaker.reagents.reagent_list : reagents.reagent_list
+			if(idx < 1 || idx > length(reagent_list))
+				return
+
+			var/datum/reagent/R = reagent_list[idx]
+
 			printing = TRUE
 			visible_message("<span class='notice'>[src] rattles and prints out a sheet of paper.</span>")
 			playsound(loc, 'sound/goonstation/machines/printer_dotmatrix.ogg', 50, 1)
+
 			var/obj/item/paper/P = new /obj/item/paper(loc)
-			P.info = "<CENTER><B>Chemical Analysis</B></CENTER><BR>"
+			P.info = "<center><b>Chemical Analysis</b></center><br>"
 			P.info += "<b>Time of analysis:</b> [station_time_timestamp()]<br><br>"
-			P.info += "<b>Chemical name:</b> [href_list["name"]]<br>"
-			if(href_list["name"] == "Blood")
-				var/datum/reagents/R = beaker.reagents
-				var/datum/reagent/blood/G
-				for(var/datum/reagent/F in R.reagent_list)
-					if(F.name == href_list["name"])
-						G = F
-						break
-				var/B = G.data["blood_type"]
-				var/C = G.data["blood_DNA"]
-				P.info += "<b>Description:</b><br>Blood Type: [B]<br>DNA: [C]"
+			P.info += "<b>Chemical name:</b> [R.name]<br>"
+			if(istype(R, /datum/reagent/blood))
+				var/datum/reagent/blood/B = R
+				P.info += "<b>Description:</b> N/A<br><b>Blood Type:</b> [B.data["blood_type"]]<br><b>DNA:</b> [B.data["blood_DNA"]]"
 			else
-				P.info += "<b>Description:</b> [href_list["desc"]]"
+				P.info += "<b>Description:</b> [R.description]"
 			P.info += "<br><br><b>Notes:</b><br>"
-			P.name = "Chemical Analysis - [href_list["name"]]"
-			printing = FALSE
+			P.name = "Chemical Analysis - [R.name]"
+			spawn(50)
+				printing = FALSE
+		else
+			. = FALSE
 
-	if(beaker)
-		var/datum/reagents/R = beaker.reagents
-		if(href_list["analyze"])
-			var/dat = ""
-			if(!condi)
-				if(href_list["name"] == "Blood")
-					var/datum/reagent/blood/G
-					for(var/datum/reagent/F in R.reagent_list)
-						if(F.name == href_list["name"])
-							G = F
-							break
-					var/A = G.name
-					var/B = G.data["blood_type"]
-					var/C = G.data["blood_DNA"]
-					dat += "<TITLE>Chemmaster 3000</TITLE>Chemical infos:<BR><BR>Name:<BR>[A]<BR><BR>Description:<BR>Blood Type: [B]<br>DNA: [C]"
-				else
-					dat += "<TITLE>Chemmaster 3000</TITLE>Chemical infos:<BR><BR>Name:<BR>[href_list["name"]]<BR><BR>Description:<BR>[href_list["desc"]]"
-				dat += "<BR><BR><A href='?src=[UID()];print_p=1;desc=[href_list["desc"]];name=[href_list["name"]]'>(Print Analysis)</A><BR>"
-				dat += "<A href='?src=[UID()];main=1'>(Back)</A>"
+	if(. || !beaker)
+		return
+
+	. = TRUE
+	var/datum/reagents/R = beaker.reagents
+	switch(action)
+		if("add")
+			var/id = params["id"]
+			var/amount = text2num(params["amount"])
+			if(!id || !amount)
+				return
+			R.trans_id_to(src, id, amount)
+		if("remove")
+			var/id = params["id"]
+			var/amount = text2num(params["amount"])
+			if(!id || !amount)
+				return
+			if(mode)
+				reagents.trans_id_to(beaker, id, amount)
 			else
-				dat += "<TITLE>Condimaster 3000</TITLE>Condiment infos:<BR><BR>Name:<BR>[href_list["name"]]<BR><BR>Description:<BR>[href_list["desc"]]<BR><BR><BR><A href='?src=[UID()];main=1'>(Back)</A>"
-			usr << browse(dat, "window=chem_master;size=575x500")
-			return
-
-		else if(href_list["add"])
-
-			if(href_list["amount"])
-				var/id = href_list["add"]
-				var/amount = text2num(href_list["amount"])
-				R.trans_id_to(src, id, amount)
-
-		else if(href_list["addcustom"])
-
-			var/id = href_list["addcustom"]
-			useramount = input("Select the amount to transfer.", 30, useramount) as num
-			useramount = isgoodnumber(useramount)
-			Topic(null, list("amount" = "[useramount]", "add" = "[id]"))
-
-		else if(href_list["remove"])
-
-			if(href_list["amount"])
-				var/id = href_list["remove"]
-				var/amount = text2num(href_list["amount"])
-				if(mode)
-					reagents.trans_id_to(beaker, id, amount)
-				else
-					reagents.remove_reagent(id, amount)
-
-
-		else if(href_list["removecustom"])
-
-			var/id = href_list["removecustom"]
-			useramount = input("Select the amount to transfer.", 30, useramount) as num
-			useramount = isgoodnumber(useramount)
-			Topic(null, list("amount" = "[useramount]", "remove" = "[id]"))
-
-		else if(href_list["toggle"])
-			mode = !mode
-
-		else if(href_list["main"])
-			attack_hand(usr)
-			return
-		else if(href_list["eject"])
-			if(beaker)
-				beaker.forceMove(get_turf(src))
-				if(Adjacent(usr) && !issilicon(usr))
-					usr.put_in_hands(beaker)
-				beaker = null
-				reagents.clear_reagents()
-				update_icon()
-		else if(href_list["createpill"] || href_list["createpill_multiple"])
-			if(!condi)
-				var/count = 1
-				if(href_list["createpill_multiple"])
-					count = input("Select the number of pills to make.", 10, pillamount) as num|null
-					if(count == null)
-						return
-					count = isgoodnumber(count)
-				if(count > 20)
-					count = 20	//Pevent people from creating huge stacks of pills easily. Maybe move the number to defines?
-				if(count <= 0)
-					return
-				var/amount_per_pill = reagents.total_volume / count
-				if(amount_per_pill > 100)
-					amount_per_pill = 100
-				var/name = clean_input("Name:","Name your pill!","[reagents.get_master_reagent_name()] ([amount_per_pill]u)")
-				if(!name)
-					return
-				name = reject_bad_text(name)
-				while(count--)
-					if(reagents.total_volume <= 0)
-						to_chat(usr, "<span class='notice'>Not enough reagents to create these pills!</span>")
-						return
-					var/obj/item/reagent_containers/food/pill/P = new/obj/item/reagent_containers/food/pill(loc)
-					if(!name)
-						name = reagents.get_master_reagent_name()
-					P.name = "[name] pill"
-					P.pixel_x = rand(-7, 7) //random position
-					P.pixel_y = rand(-7, 7)
-					P.icon_state = "pill"+pillsprite
-					reagents.trans_to(P, amount_per_pill)
-					if(loaded_pill_bottle && loaded_pill_bottle.type == /obj/item/storage/pill_bottle)
-						if(loaded_pill_bottle.contents.len < loaded_pill_bottle.storage_slots)
-							P.forceMove(loaded_pill_bottle)
-							updateUsrDialog()
-			else
-				var/name = clean_input("Name:", "Name your bag!", reagents.get_master_reagent_name())
-				if(!name)
-					return
-				name = reject_bad_text(name)
-				var/obj/item/reagent_containers/food/condiment/pack/P = new/obj/item/reagent_containers/food/condiment/pack(loc)
-				if(!name) name = reagents.get_master_reagent_name()
-				P.originalname = name
-				P.name = "[name] pack"
-				P.desc = "A small condiment pack. The label says it contains [name]."
-				reagents.trans_to(P, 10)
-		else if(href_list["createpatch"] || href_list["createpatch_multiple"])
-			if(!condi)
-				var/count = 1
-				if(href_list["createpatch_multiple"])
-					count = input("Select the number of patches to make.", 10, patchamount) as num|null
-					if(count == null)
-						return
-					count = isgoodnumber(count)
-				if(!count || count <= 0)
-					return
-				if(count > 20)
-					count = 20	//Pevent people from creating huge stacks of patches easily. Maybe move the number to defines?
-				var/amount_per_patch = reagents.total_volume/count
-				if(amount_per_patch > 30)
-					amount_per_patch = 30
-				var/name = clean_input("Name:", "Name your patch!", "[reagents.get_master_reagent_name()] ([amount_per_patch]u)")
-				if(!name)
-					return
-				name = reject_bad_text(name)
-				var/is_medical_patch = chemical_safety_check(reagents)
-				while(count--)
-					var/obj/item/reagent_containers/food/pill/patch/P = new/obj/item/reagent_containers/food/pill/patch(loc)
-					if(!name) name = reagents.get_master_reagent_name()
-					P.name = "[name] patch"
-					P.pixel_x = rand(-7, 7) //random position
-					P.pixel_y = rand(-7, 7)
-					reagents.trans_to(P,amount_per_patch)
-					if(is_medical_patch)
-						P.instant_application = TRUE
-						P.icon_state = "bandaid_med"
-					if(loaded_pill_bottle && loaded_pill_bottle.type == /obj/item/storage/pill_bottle/patch_pack)
-						if(loaded_pill_bottle.contents.len < loaded_pill_bottle.storage_slots)
-							P.forceMove(loaded_pill_bottle)
-							updateUsrDialog()
-
-		else if(href_list["createbottle"])
-			if(!condi)
-				var/name = clean_input("Name:", "Name your bottle!", reagents.get_master_reagent_name())
-				if(!name)
-					return
-				name = reject_bad_text(name)
-				var/obj/item/reagent_containers/glass/bottle/reagent/P = new/obj/item/reagent_containers/glass/bottle/reagent(loc)
-				if(!name)
-					name = reagents.get_master_reagent_name()
-				P.name = "[name] bottle"
-				P.pixel_x = rand(-7, 7) //random position
-				P.pixel_y = rand(-7, 7)
-				P.icon_state = bottlesprite
-				reagents.trans_to(P, 50)
-			else
-				var/obj/item/reagent_containers/food/condiment/P = new/obj/item/reagent_containers/food/condiment(loc)
-				reagents.trans_to(P, 50)
-		else if(href_list["change_pill"])
-			#define MAX_PILL_SPRITE 20 //max icon state of the pill sprites
-			var/dat = "<table>"
-			var/j = 0
-			for(var/i = 1 to MAX_PILL_SPRITE)
-				j++
-				if(j == 1)
-					dat += "<tr>"
-				dat += "<td><a href=\"?src=[UID()]&pill_sprite=[i]\"><img src=\"pill[i].png\" /></a></td>"
-				if(j == 5)
-					dat += "</tr>"
-					j = 0
-			dat += "</table>"
-			usr << browse(dat, "window=chem_master_iconsel;size=225x193")
-			return
-		else if(href_list["change_bottle"])
-			var/dat = "<table>"
-			var/j = 0
-			for(var/i in list("bottle", "small_bottle", "wide_bottle", "round_bottle", "reagent_bottle"))
-				j++
-				if(j == 1)
-					dat += "<tr>"
-				dat += "<td><a href=\"?src=[UID()]&bottle_sprite=[i]\"><img src=\"[i].png\" /></a></td>"
-				if(j == 5)
-					dat += "</tr>"
-					j = 0
-			dat += "</table>"
-			usr << browse(dat, "window=chem_master_iconsel;size=225x193")
-			return
-		else if(href_list["pill_sprite"])
-			pillsprite = href_list["pill_sprite"]
-			usr << browse(null, "window=chem_master_iconsel")
-		else if(href_list["bottle_sprite"])
-			bottlesprite = href_list["bottle_sprite"]
-			usr << browse(null, "window=chem_master_iconsel")
-
-	SSnanoui.update_uis(src)
+				reagents.remove_reagent(id, amount)
+		if("eject")
+			if(!beaker)
+				return
+			beaker.forceMove(get_turf(src))
+			if(Adjacent(usr) && !issilicon(usr))
+				usr.put_in_hands(beaker)
+			beaker = null
+			reagents.clear_reagents()
+			update_icon()
+		if("create_condi_bottle")
+			if(!condi || !reagents.total_volume)
+				return
+			var/obj/item/reagent_containers/food/condiment/P = new(loc)
+			reagents.trans_to(P, 50)
+		else
+			return FALSE
 
 /obj/machinery/chem_master/attack_ai(mob/user)
 	return attack_hand(user)
 
 /obj/machinery/chem_master/attack_ghost(mob/user)
-	if(user.can_admin_interact())
-		return attack_hand(user)
+	tgui_interact(user)
 
 /obj/machinery/chem_master/attack_hand(mob/user)
 	if(..())
 		return TRUE
-	ui_interact(user)
+	tgui_interact(user)
 
-/obj/machinery/chem_master/ui_interact(mob/user, ui_key = "main", datum/nanoui/ui = null, force_open = TRUE)
+/obj/machinery/chem_master/tgui_interact(mob/user, ui_key = "main", datum/tgui/ui = null, force_open = FALSE, datum/tgui/master_ui = null, datum/tgui_state/state = GLOB.tgui_default_state)
 	var/datum/asset/chem_master/assets = get_asset_datum(/datum/asset/chem_master)
 	assets.send(user)
 
-	ui = SSnanoui.try_update_ui(user, src, ui_key, ui, force_open)
+	ui = SStgui.try_update_ui(user, src, ui_key, ui, force_open)
 	if(!ui)
-		ui = new(user, src, ui_key, "chem_master.tmpl", name, 575, 500)
+		ui = new(user, src, ui_key, "ChemMaster", name, 575, 500)
 		ui.open()
 
-/obj/machinery/chem_master/ui_data(mob/user, ui_key = "main", datum/topic_state/state = GLOB.default_state)
+/obj/machinery/chem_master/tgui_data(mob/user)
 	var/data[0]
 
 	data["condi"] = condi
-	data["loaded_pill_bottle"] = (loaded_pill_bottle ? 1 : 0)
+	data["loaded_pill_bottle"] = loaded_pill_bottle ? TRUE : FALSE
 	if(loaded_pill_bottle)
+		data["loaded_pill_bottle_name"] = loaded_pill_bottle.name
 		data["loaded_pill_bottle_contents_len"] = loaded_pill_bottle.contents.len
 		data["loaded_pill_bottle_storage_slots"] = loaded_pill_bottle.storage_slots
 
-	data["beaker"] = (beaker ? 1 : 0)
+	data["beaker"] = beaker ? TRUE : FALSE
 	if(beaker)
 		var/list/beaker_reagents_list = list()
 		data["beaker_reagents"] = beaker_reagents_list
@@ -464,13 +276,255 @@
 		data["buffer_reagents"] = buffer_reagents_list
 		for(var/datum/reagent/R in reagents.reagent_list)
 			buffer_reagents_list[++buffer_reagents_list.len] = list("name" = R.name, "volume" = R.volume, "id" = R.id, "description" = R.description)
+	else
+		data["beaker_reagents"] = list()
+		data["buffer_reagents"] = list()
 
 	data["pillsprite"] = pillsprite
 	data["bottlesprite"] = bottlesprite
 	data["mode"] = mode
+	data["printing"] = printing
+
+	// Transfer modal information if there is one
+	data["modal"] = tgui_modal_data(src)
 
 	return data
 
+/**
+  * Called in tgui_act() to process modal actions
+  *
+  * Arguments:
+  * * action - The action passed by tgui
+  * * params - The params passed by tgui
+  */
+/obj/machinery/chem_master/proc/tgui_act_modal(action, params, datum/tgui/ui, datum/tgui_state/state)
+	. = TRUE
+	var/id = params["id"] // The modal's ID
+	var/list/arguments = istext(params["arguments"]) ? json_decode(params["arguments"]) : params["arguments"]
+	switch(tgui_modal_act(src, action, params))
+		if(TGUI_MODAL_OPEN)
+			switch(id)
+				if("analyze")
+					var/idx = text2num(arguments["idx"]) || 0
+					var/from_beaker = text2num(arguments["beaker"]) || FALSE
+					var/reagent_list = from_beaker ? beaker.reagents.reagent_list : reagents.reagent_list
+					if(idx < 1 || idx > length(reagent_list))
+						return
+
+					var/datum/reagent/R = reagent_list[idx]
+					var/list/result = list("idx" = idx, "name" = R.name, "desc" = R.description)
+					if(!condi && istype(R, /datum/reagent/blood))
+						var/datum/reagent/blood/B = R
+						result["blood_type"] = B.data["blood_type"]
+						result["blood_dna"] = B.data["blood_DNA"]
+
+					arguments["analysis"] = result
+					tgui_modal_message(src, id, "", null, arguments)
+				if("change_pill_bottle_style")
+					if(!loaded_pill_bottle)
+						return
+					if(!pill_bottle_wrappers)
+						pill_bottle_wrappers = list(
+							"CLEAR" = "Default",
+							COLOR_RED = "Red",
+							COLOR_GREEN = "Green",
+							COLOR_PALE_BTL_GREEN = "Pale green",
+							COLOR_BLUE = "Blue",
+							COLOR_CYAN_BLUE = "Light blue",
+							COLOR_TEAL = "Teal",
+							COLOR_YELLOW = "Yellow",
+							COLOR_ORANGE = "Orange",
+							COLOR_PINK = "Pink",
+							COLOR_MAROON = "Brown"
+						)
+					var/current = pill_bottle_wrappers[loaded_pill_bottle.wrapper_color] || "Default"
+					tgui_modal_choice(src, id, "Please select a pill bottle wrapper:", null, arguments, current, pill_bottle_wrappers)
+				if("addcustom")
+					if(!beaker || !beaker.reagents.total_volume)
+						return
+					tgui_modal_input(src, id, "Please enter the amount to transfer to buffer:", null, arguments, useramount)
+				if("removecustom")
+					if(!reagents.total_volume)
+						return
+					tgui_modal_input(src, id, "Please enter the amount to transfer to [mode ? "beaker" : "disposal"]:", null, arguments, useramount)
+				if("create_condi_pack")
+					if(!condi || !reagents.total_volume)
+						return
+					tgui_modal_input(src, id, "Please name your new condiment pack:", null, arguments, reagents.get_master_reagent_name(), MAX_CUSTOM_NAME_LEN)
+				if("create_pill")
+					if(condi || !reagents.total_volume)
+						return
+					var/num = round(text2num(arguments["num"] || 1))
+					if(!num)
+						return
+					arguments["num"] = num
+					var/amount_per_pill = clamp(reagents.total_volume / num, 0, MAX_UNITS_PER_PILL)
+					var/default_name = "[reagents.get_master_reagent_name()] ([amount_per_pill]u)"
+					var/pills_text = num == 1 ? "new pill" : "[num] new pills"
+					tgui_modal_input(src, id, "Please name your [pills_text]:", null, arguments, default_name, MAX_CUSTOM_NAME_LEN)
+				if("create_pill_multiple")
+					if(condi || !reagents.total_volume)
+						return
+					tgui_modal_input(src, id, "Please enter the amount of pills to make (max [MAX_MULTI_AMOUNT] at a time):", null, arguments, pillamount, 5)
+				if("change_pill_style")
+					var/list/choices = list()
+					for(var/i = 1 to MAX_PILL_SPRITE)
+						choices += "pill[i].png"
+					tgui_modal_bento(src, id, "Please select the new style for pills:", null, arguments, pillsprite, choices)
+				if("create_patch")
+					if(condi || !reagents.total_volume)
+						return
+					var/num = round(text2num(arguments["num"] || 1))
+					if(!num)
+						return
+					arguments["num"] = num
+					var/amount_per_patch = clamp(reagents.total_volume / num, 0, MAX_UNITS_PER_PATCH)
+					var/default_name = "[reagents.get_master_reagent_name()] ([amount_per_patch]u)"
+					var/patches_text = num == 1 ? "new patch" : "[num] new patches"
+					tgui_modal_input(src, id, "Please name your [patches_text]:", null, arguments, default_name, MAX_CUSTOM_NAME_LEN)
+				if("create_patch_multiple")
+					if(condi || !reagents.total_volume)
+						return
+					tgui_modal_input(src, id, "Please enter the amount of patches to make (max [MAX_MULTI_AMOUNT] at a time):", null, arguments, pillamount, 5)
+				if("create_bottle")
+					if(condi || !reagents.total_volume)
+						return
+					tgui_modal_input(src, id, "Please name your bottle:", null, arguments, reagents.get_master_reagent_name(), MAX_CUSTOM_NAME_LEN)
+				if("change_bottle_style")
+					if(!bottle_styles)
+						bottle_styles = list("bottle", "small_bottle", "wide_bottle", "round_bottle", "reagent_bottle")
+					var/list/bottle_styles_png = list()
+					for(var/style in bottle_styles)
+						bottle_styles_png += "[style].png"
+					tgui_modal_bento(src, id, "Please select the new style for bottles:", null, arguments, bottlesprite, bottle_styles_png)
+				else
+					return FALSE
+		if(TGUI_MODAL_ANSWER)
+			var/answer = params["answer"]
+			switch(id)
+				if("change_pill_bottle_style")
+					if(!pill_bottle_wrappers || !loaded_pill_bottle) // wat?
+						return
+					var/color = "CLEAR"
+					for(var/col in pill_bottle_wrappers)
+						var/col_name = pill_bottle_wrappers[col]
+						if(col_name == answer)
+							color = col
+							break
+					if(length(color) && color != "CLEAR")
+						loaded_pill_bottle.wrapper_color = color
+						loaded_pill_bottle.apply_wrap()
+					else
+						loaded_pill_bottle.wrapper_color = null
+						loaded_pill_bottle.cut_overlays()
+				if("addcustom")
+					var/amount = isgoodnumber(text2num(answer))
+					if(!amount || !arguments["id"])
+						return
+					tgui_act("add", list("id" = arguments["id"], "amount" = amount), ui, state)
+				if("removecustom")
+					var/amount = isgoodnumber(text2num(answer))
+					if(!amount || !arguments["id"])
+						return
+					tgui_act("remove", list("id" = arguments["id"], "amount" = amount), ui, state)
+				if("create_condi_pack")
+					if(!condi || !reagents.total_volume)
+						return
+					if(!length(answer))
+						answer = reagents.get_master_reagent_name()
+					var/obj/item/reagent_containers/food/condiment/pack/P = new(loc)
+					P.originalname = answer
+					P.name = "[answer] pack"
+					P.desc = "A small condiment pack. The label says it contains [answer]."
+					reagents.trans_to(P, 10)
+				if("create_pill")
+					if(condi || !reagents.total_volume)
+						return
+					var/count = clamp(round(text2num(arguments["num"]) || 0), 0, MAX_MULTI_AMOUNT)
+					if(!count)
+						return
+
+					if(!length(answer))
+						answer = reagents.get_master_reagent_name()
+					var/amount_per_pill = clamp(reagents.total_volume / count, 0, MAX_UNITS_PER_PILL)
+					while(count--)
+						if(reagents.total_volume <= 0)
+							to_chat(usr, "<span class='notice'>Not enough reagents to create these pills!</span>")
+							return
+
+						var/obj/item/reagent_containers/food/pill/P = new(loc)
+						P.name = "[answer] pill"
+						P.pixel_x = rand(-7, 7) // Random position
+						P.pixel_y = rand(-7, 7)
+						P.icon_state = "pill[pillsprite]"
+						reagents.trans_to(P, amount_per_pill)
+						// Load the pills in the bottle if there's one loaded
+						if(istype(loaded_pill_bottle) && length(loaded_pill_bottle.contents) < loaded_pill_bottle.storage_slots)
+							P.forceMove(loaded_pill_bottle)
+				if("create_pill_multiple")
+					if(condi || !reagents.total_volume)
+						return
+					tgui_act("modal_open", list("id" = "create_pill", "arguments" = list("num" = answer)), ui, state)
+				if("change_pill_style")
+					var/new_style = clamp(text2num(answer) || 0, 0, MAX_PILL_SPRITE)
+					if(!new_style)
+						return
+					pillsprite = new_style
+				if("create_patch")
+					if(condi || !reagents.total_volume)
+						return
+					var/count = clamp(round(text2num(arguments["num"]) || 0), 0, MAX_MULTI_AMOUNT)
+					if(!count)
+						return
+
+					if(!length(answer))
+						answer = reagents.get_master_reagent_name()
+					var/amount_per_patch = clamp(reagents.total_volume / count, 0, MAX_UNITS_PER_PATCH)
+					var/is_medical_patch = chemical_safety_check(reagents)
+					while(count--)
+						if(reagents.total_volume <= 0)
+							to_chat(usr, "<span class='notice'>Not enough reagents to create these patches!</span>")
+							return
+
+						var/obj/item/reagent_containers/food/pill/patch/P = new(loc)
+						P.name = "[answer] patch"
+						P.pixel_x = rand(-7, 7) // random position
+						P.pixel_y = rand(-7, 7)
+						reagents.trans_to(P, amount_per_patch)
+						if(is_medical_patch)
+							P.instant_application = TRUE
+							P.icon_state = "bandaid_med"
+						// Load the patches in the bottle if there's one loaded
+						if(istype(loaded_pill_bottle, /obj/item/storage/pill_bottle/patch_pack) && length(loaded_pill_bottle.contents) < loaded_pill_bottle.storage_slots)
+							P.forceMove(loaded_pill_bottle)
+				if("create_patch_multiple")
+					if(condi || !reagents.total_volume)
+						return
+					tgui_act("modal_open", list("id" = "create_patch", "arguments" = list("num" = answer)), ui, state)
+				if("create_bottle")
+					if(condi || !reagents.total_volume)
+						return
+
+					if(!length(answer))
+						answer = reagents.get_master_reagent_name()
+					var/obj/item/reagent_containers/glass/bottle/reagent/P = new(loc)
+					P.name = "[answer] bottle"
+					P.pixel_x = rand(-7, 7) // random position
+					P.pixel_y = rand(-7, 7)
+					P.icon_state = length(bottle_styles) && bottle_styles[bottlesprite] || "bottle"
+					reagents.trans_to(P, 50)
+				if("change_bottle_style")
+					if(!bottle_styles)
+						return
+					var/new_sprite = text2num(answer) || 1
+					if(new_sprite < 1 || new_sprite > length(bottle_styles))
+						return
+					bottlesprite = new_sprite
+				else
+					return FALSE
+		else
+			return FALSE
+
 /obj/machinery/chem_master/proc/isgoodnumber(num)
 	if(isnum(num))
 		if(num > 200)
@@ -481,7 +535,7 @@
 			num = round(num)
 		return num
 	else
-		return 0
+		return FALSE
 
 /obj/machinery/chem_master/proc/chemical_safety_check(datum/reagents/R)
 	var/all_safe = TRUE
@@ -503,3 +557,9 @@
 	component_parts += new /obj/item/reagent_containers/glass/beaker(null)
 	component_parts += new /obj/item/reagent_containers/glass/beaker(null)
 	RefreshParts()
+
+#undef MAX_PILL_SPRITE
+#undef MAX_MULTI_AMOUNT
+#undef MAX_UNITS_PER_PILL
+#undef MAX_UNITS_PER_PATCH
+#undef MAX_CUSTOM_NAME_LEN

code/modules/tgui/modal.dm

@@ -0,0 +1,370 @@
+/**
+ * tgui modals
+ *
+ * Allows creation of modals within tgui.
+ */
+
+GLOBAL_LIST(tgui_modals)
+
+/**
+  * Call this from a proc that is called in tgui_act() to process modal actions
+  *
+  * Example: /obj/machinery/chem_master/proc/tgui_act_modal
+  * You can then switch based on the return value and show different
+  * modals depending on the answer.
+  * Arguments:
+  * * source - The source datum
+  * * action - The called action
+  * * params - The params to the action
+  */
+/datum/proc/tgui_modal_act(datum/source = src, action = "", params)
+	ASSERT(istype(source))
+
+	. = null
+	switch(action)
+		if("modal_open") // Params: id, arguments
+			return TGUI_MODAL_OPEN
+		if("modal_answer") // Params: id, answer, arguments
+			params["answer"] = tgui_modal_preprocess_answer(source, params["answer"])
+			if(tgui_modal_answer(source, params["id"], params["answer"])) // If there's a current modal with a delegate that returned TRUE, no need to continue
+				. = TGUI_MODAL_DELEGATE
+			else
+				. = TGUI_MODAL_ANSWER
+			tgui_modal_clear(source)
+		if("modal_close") // Params: id
+			tgui_modal_clear(source)
+			return TGUI_MODAL_CLOSE
+
+/**
+  * Call this from tgui_data() to return modal information if needed
+
+  * Arguments:
+  * * source - The source datum
+  */
+/datum/proc/tgui_modal_data(datum/source = src)
+	ASSERT(istype(source))
+
+	var/datum/tgui_modal/current = LAZYACCESS(GLOB.tgui_modals, source.UID())
+	if(!current)
+		return null
+
+	return current.to_data()
+
+/**
+  * Clears the current modal for a given datum
+  *
+  * Arguments:
+  * * source - The source datum
+  */
+/datum/proc/tgui_modal_clear(datum/source = src)
+	ASSERT(istype(source))
+
+	LAZYINITLIST(GLOB.tgui_modals)
+	var/datum/tgui_modal/previous = GLOB.tgui_modals[source.UID()]
+	if(!previous)
+		return FALSE
+
+	for(var/i in 1 to length(GLOB.tgui_modals))
+		var/key = GLOB.tgui_modals[i]
+		if(previous == GLOB.tgui_modals[key])
+			GLOB.tgui_modals.Cut(i, i + 1)
+			break
+
+	SStgui.update_uis(source)
+	return TRUE
+
+/**
+  * Opens a message TGUI modal
+  *
+  * Arguments:
+  * * source - The source datum
+  * * id - The ID of the modal
+  * * text - The text to display above the answers
+  * * delegate - The proc to call when closed
+  * * arguments - List of arguments passed to and from JS (mostly useful for chaining modals)
+  */
+/datum/proc/tgui_modal_message(datum/source = src, id, text = "Default modal message", delegate, arguments)
+	ASSERT(length(id))
+
+	var/datum/tgui_modal/modal = new(id, text, delegate, arguments)
+	return tgui_modal_new(source, modal)
+
+/**
+  * Opens a text input TGUI modal
+  *
+  * Arguments:
+  * * source - The source datum
+  * * id - The ID of the modal
+  * * text - The text to display above the answers
+  * * delegate - The proc to call when submitted
+  * * arguments - List of arguments passed to and from JS (mostly useful for chaining modals)
+  * * value - The default value of the input
+  * * max_length - The maximum char length of the input
+  */
+/datum/proc/tgui_modal_input(datum/source = src, id, text = "Default modal message", delegate, arguments, value = "", max_length = TGUI_MODAL_INPUT_MAX_LENGTH)
+	ASSERT(length(id))
+	ASSERT(max_length > 0)
+
+	var/datum/tgui_modal/input/modal = new(id, text, delegate, arguments, value, max_length)
+	return tgui_modal_new(source, modal)
+
+/**
+  * Opens a dropdown input TGUI modal
+  *
+  * Internally checks if the answer is in the list of choices.
+  * Arguments:
+  * * source - The source datum
+  * * id - The ID of the modal
+  * * text - The text to display above the answers
+  * * delegate - The proc to call when submitted
+  * * arguments - List of arguments passed to and from JS (mostly useful for chaining modals)
+  * * value - The default value of the dropdown
+  * * choices - The list of available choices in the dropdown
+  */
+/datum/proc/tgui_modal_choice(datum/source = src, id, text = "Default modal message", delegate, arguments, value = "", choices)
+	ASSERT(length(id))
+
+	var/datum/tgui_modal/input/choice/modal = new(id, text, delegate, arguments, value, choices)
+	return tgui_modal_new(source, modal)
+
+/**
+  * Opens a bento input TGUI modal
+  *
+  * Internally checks if the answer is in the list of choices.
+  * Arguments:
+  * * source - The source datum
+  * * id - The ID of the modal
+  * * text - The text to display above the answers
+  * * delegate - The proc to call when submitted
+  * * arguments - List of arguments passed to and from JS (mostly useful for chaining modals)
+  * * value - The default value of the bento
+  * * choices - The list of available choices in the bento
+  */
+/datum/proc/tgui_modal_bento(datum/source = src, id, text = "Default modal message", delegate, arguments, value, choices)
+	ASSERT(length(id))
+
+	var/datum/tgui_modal/input/bento/modal = new(id, text, delegate, arguments, value, choices)
+	return tgui_modal_new(source, modal)
+
+/**
+  * Opens a yes/no TGUI modal
+  *
+  * Arguments:
+  * * source - The source datum
+  * * id - The ID of the modal
+  * * text - The text to display above the answers
+  * * delegate - The proc to call when "Yes" is pressed
+  * * delegate_no - The proc to call when "No" is pressed
+  * * arguments - List of arguments passed to and from JS (mostly useful for chaining modals)
+  * * yes_text - The text to show in the "Yes" button
+  * * no_text - The text to show in the "No" button
+  */
+/datum/proc/tgui_modal_boolean(datum/source = src, id, text = "Default modal message", delegate, delegate_no, arguments, yes_text = "Yes", no_text = "No")
+	ASSERT(length(id))
+
+	var/datum/tgui_modal/boolean/modal = new(id, text, delegate, delegate_no, arguments, yes_text, no_text)
+	return tgui_modal_new(source, modal)
+
+/**
+  * Registers a given modal to a source. Private.
+  *
+  * Arguments:
+  * * source - The source datum
+  * * modal - The datum/tgui_modal to register
+  * * replace_previous - Whether any modal currently assigned to source should be replaced
+  * * instant_update - Whether the changes should reflect immediately
+  */
+/datum/proc/tgui_modal_new(datum/source = src, datum/tgui_modal/modal = null, replace_previous = TRUE, instant_update = TRUE)
+	ASSERT(istype(source))
+	ASSERT(istype(modal))
+
+	var/datum/tgui_modal/previous = LAZYACCESS(GLOB.tgui_modals, source.UID())
+	if(previous && !replace_previous)
+		return FALSE
+
+	modal.owning_source = source
+
+	// Previous one should get GC'd
+	LAZYSET(GLOB.tgui_modals, source.UID(), modal)
+	if(instant_update)
+		SStgui.update_uis(source)
+	return TRUE
+
+/**
+  * Calls the source's currently assigned modal's (if there is one) on_answer() proc. Private.
+  *
+  * Arguments:
+  * * source - The source datum
+  * * id - The ID of the modal
+  * * answer - The provided answer
+  */
+/datum/proc/tgui_modal_answer(datum/source = src, id, answer = "")
+	ASSERT(istype(source))
+
+	var/datum/tgui_modal/current = LAZYACCESS(GLOB.tgui_modals, source.UID())
+	if(!current)
+		return FALSE
+
+	return current.on_answer(answer)
+
+/**
+  * Passes an answer from JS through the modal's proc.
+  *
+  * Used namely for cutting the text short if it's longer
+  * than an input modal's max_length.
+  * Arguments:
+  * * source - The source datum
+  * * answer - The provided answer
+  */
+/datum/proc/tgui_modal_preprocess_answer(datum/source = src, answer = "")
+	ASSERT(istype(source))
+
+	var/datum/tgui_modal/current = LAZYACCESS(GLOB.tgui_modals, source.UID())
+	if(!current)
+		return answer
+
+	return current.preprocess_answer(answer)
+
+/**
+  * Modal datum (contains base information for a modal)
+  */
+/datum/tgui_modal
+	var/datum/owning_source
+	var/id
+	var/text
+	var/delegate
+	var/list/arguments
+	var/modal_type = "message"
+
+/datum/tgui_modal/New(id, text, delegate, list/arguments)
+	src.id = id
+	src.text = text
+	src.delegate = delegate
+	src.arguments = arguments
+
+/**
+  * Called when it's time to pre-process the answer before using it
+  *
+  * Arguments:
+  * * answer - The answer, a nullable text
+  */
+/datum/tgui_modal/proc/preprocess_answer(answer)
+	return reject_bad_text(answer, TGUI_MODAL_INPUT_MAX_LENGTH) // bleh
+
+/**
+  * Called when a modal receives an answer
+  *
+  * Arguments:
+  * * answer - The answer, a nullable text
+  */
+/datum/tgui_modal/proc/on_answer(answer)
+	if(delegate)
+		return call(owning_source, delegate)(answer, arguments)
+	return FALSE
+
+/**
+  * Creates a list that describes a modal visually to be passed to JS
+  */
+/datum/tgui_modal/proc/to_data()
+	. = list()
+	.["id"] = id
+	.["text"] = text
+	.["args"] = arguments || list()
+	.["type"] = modal_type
+
+/**
+  * Input modal - has a text entry that can be used to enter an answer
+  */
+/datum/tgui_modal/input
+	modal_type = "input"
+	var/value
+	var/max_length
+
+/datum/tgui_modal/input/New(id, text, delegate, list/arguments, value, max_length)
+	..(id, text, delegate, arguments)
+	src.value = value
+	src.max_length = max_length
+
+/datum/tgui_modal/input/preprocess_answer(answer)
+	. = ..(answer)
+	if(length(answer) > max_length)
+		. = copytext(., 1, max_length + 1)
+
+/datum/tgui_modal/input/to_data()
+	. = ..()
+	.["value"] = value
+
+/**
+  * Choice modal - has a dropdown menu that can be used to select an answer
+  */
+/datum/tgui_modal/input/choice
+	modal_type = "choice"
+	var/choices
+
+/datum/tgui_modal/input/choice/New(id, text, delegate, list/arguments, value, choices)
+	..(id, text, delegate, arguments, value, TGUI_MODAL_INPUT_MAX_LENGTH) // Max length doesn't really matter in dropdowns, but whatever
+	src.choices = choices
+
+/datum/tgui_modal/input/choice/on_answer(answer)
+	if(answer in choices) // Make sure the answer is actually in our choices!
+		return ..(answer, arguments)
+	return FALSE
+
+/datum/tgui_modal/input/choice/to_data()
+	. = ..()
+	.["choices"] = choices
+
+/**
+  * Bento modal - Similar to choice, it displays the choices in a grid of images
+  *
+  * The returned answer is the index of the choice.
+  */
+/datum/tgui_modal/input/bento
+	modal_type = "bento"
+	var/choices
+
+/datum/tgui_modal/input/bento/New(id, text, delegate, list/arguments, value, choices)
+	..(id, text, delegate, arguments, text2num(value), TGUI_MODAL_INPUT_MAX_LENGTH) // Max length doesn't really matter in here, but whatever
+	src.choices = choices
+
+/datum/tgui_modal/input/bento/preprocess_answer(answer)
+	return text2num(answer) || 0
+
+/datum/tgui_modal/input/bento/on_answer(answer)
+	if(answer >= 1 && answer <= length(choices)) // Make sure the answer index is actually in our indexes!
+		return ..(answer, arguments)
+	return FALSE
+
+/datum/tgui_modal/input/bento/to_data()
+	. = ..()
+	.["choices"] = choices
+
+/**
+  * Boolean modal - has yes/no buttons that do different actions depending on which is pressed
+  */
+/datum/tgui_modal/boolean
+	modal_type = "boolean"
+	var/delegate_no
+	var/yes_text
+	var/no_text
+
+/datum/tgui_modal/boolean/New(id, text, delegate, delegate_no, list/arguments, yes_text, no_text)
+	..(id, text, delegate, arguments)
+	src.delegate_no = delegate_no
+	src.yes_text = yes_text
+	src.no_text = no_text
+
+/datum/tgui_modal/boolean/preprocess_answer(answer)
+	return text2num(answer) || FALSE
+
+/datum/tgui_modal/boolean/on_answer(answer)
+	if(answer)
+		return ..(answer, arguments)
+	else if(delegate_no)
+		return call(owning_source, delegate_no)(arguments)
+	return FALSE
+
+/datum/tgui_modal/boolean/to_data()
+	. = ..()
+	.["yes_text"] = yes_text
+	.["no_text"] = no_text