/////////////////////
//CONTENTS
//Global Vars and procs
//Topic() - A giant fuck tonne of admin options.
//Admin panels
//Admin procs
//

var/global/noir = 0

////////////////////////////////
/proc/message_admins(var/text, var/asay = 0, var/irc = 0)
	var/rendered = "<span class=\"admin\"><span class=\"prefix\">[irc ? "DISCORD:" : "ADMIN LOG:"]</span> <span class=\"message\">[text]</span></span>"
	for (var/client/C in clients)
		if(!C.holder)
			continue
		if (!asay && rank_to_level(C.holder.rank) < LEVEL_MOD) // No confidential info for goat farts (Convair880).
			continue
		if (C.player_mode)
			if (asay && C.player_mode_asay)
				boutput(C, replacetext(rendered, "%admin_ref%", "\ref[C.holder]"))
			else
				continue
		else
			boutput(C, replacetext(rendered, "%admin_ref%", "\ref[C.holder]")) //this doesnt fail if the placeholder doesnt exist ok dont worry
		LAGCHECK(LAG_LOW)

/proc/message_coders(var/text) //Shamelessly adapted from message_admins
	var/rendered = "<span class=\"admin\"><span class=\"prefix\">CODER LOG:</span> <span class=\"message\">[text]</span></span>"
	for (var/mob/M in mobs)
		if (M && M.client && M.client.holder && rank_to_level(M.client.holder.rank) >= LEVEL_CODER) //This is for edge cases where a coder needs a goddamn notification when it happens
			boutput(M, replacetext(rendered, "%admin_ref%", "\ref[M.client.holder]"))
		LAGCHECK(LAG_LOW)

/proc/message_coders_vardbg(var/text, var/datum/d)
	var/rendered
	for (var/mob/M in mobs)
		if (M && M.client && M.client.holder && rank_to_level(M.client.holder.rank) >= LEVEL_CODER)
			var/dbg_html = M.client.debug_variable("", d, 0)
			rendered = "<span class=\"admin\"><span class=\"prefix\">CODER LOG:</span> <span class=\"message\">[text]</span>[dbg_html]</span>"
			boutput(M, replacetext(rendered, "%admin_ref%", "\ref[M.client.holder]"))
		LAGCHECK(LAG_LOW)

/proc/message_attack(var/text) //Sends a message to folks when an attack goes down
	var/rendered = "<span class=\"admin\"><span class=\"prefix\">ATTACK LOG:</span> <span class=\"message\">[text]</span></span>"
	for (var/mob/M in mobs)
		if (M && M.client && M.client.holder && rank_to_level(M.client.holder.rank) >= LEVEL_MOD && M.client.holder.attacktoggle && !M.client.player_mode)
			boutput(M, replacetext(rendered, "%admin_ref%", "\ref[M.client.holder]"))
		LAGCHECK(LAG_LOW)

/proc/rank_to_level(var/rank)
	var/level = 0
	switch(rank)
		if("Host")
			level = LEVEL_HOST
		if("Coder")
			level = LEVEL_CODER
		if("Shit Person")
			level = LEVEL_SHITGUY
		if("Primary Administrator")
			level = LEVEL_PA
		if("Administrator")
			level = LEVEL_ADMIN
		if("Secondary Administrator")
			level = LEVEL_SA
		if("Moderator")
			level = LEVEL_MOD
		if("Goat Fart", "Ayn Rand's Armpit")
			level = LEVEL_BABBY
	return level

/proc/level_to_rank(var/level)
	var/rank = "ERROR"
	switch(level)
		if(LEVEL_HOST)
			rank = "Host"
		if(LEVEL_CODER)
			rank = "Coder"
		if(LEVEL_SHITGUY)
			rank = "Shit Person"
		if(LEVEL_PA)
			rank = "Primary Administrator"
		if(LEVEL_ADMIN)
			rank = "Administrator"
		if(LEVEL_SA)
			rank = "Secondary Administrator"
		if(LEVEL_MOD)
			rank = "Moderator"
		if(LEVEL_BABBY)
			rank = "Goat Fart or Ayn Rand's Armpit"
	return rank

/datum/admins/Topic(href, href_list)
	..()

	if (src.level < 0)
		alert("UM, EXCUSE ME??  YOU AREN'T AN ADMIN, GET DOWN FROM THERE!")
		usr << csound("sound/voice/farts/poo2.ogg")
		return

	if (usr.client != src.owner)
		message_admins("<span style=\"color:blue\">[key_name(usr)] has attempted to override the admin panel!</span>")
		logTheThing("admin", usr, null, "tried to use the admin panel without authorization.")
		logTheThing("diary", usr, null, "tried to use the admin panel without authorization.", "admin")
		return

	//Wires bad hack to update the player options menu on click, part 1
	//Also I guess it has sort of expanded now to correctly pick targets
	if (href_list["targetckey"])
		var/targetCkey = href_list["targetckey"]
		for (var/mob/M in mobs) //Find the mob ref for that nerd
			if (M.ckey == targetCkey)
				href_list["target"] = "\ref[M]"
				break
	else if (href_list["targetmob"])// they're logged out or an npc, but we still want to mess with their mob
		href_list["target"] = href_list["targetmob"]

	var/originWindow
	var/adminCkey = usr.client.ckey
	if (href_list["origin"])
		originWindow = href_list["origin"]

	if (!href_list["action"])
		//alert("You must define an action! Yell at Wire if you see this.")
		return
	switch(href_list["action"])
		if ("ah_mute")//gguhHUhguHUGH
			if (src.level >= LEVEL_PA)
				var/client/C = locate(href_list["target"])
				if(istype(C))
					C.cloud_put("adminhelp_banner", usr.client.key)
					src.show_chatbans(C)
		if ("ah_unmute")//guHGUHGUGHGUHG
			if (src.level >= LEVEL_PA)
				var/client/C = locate(href_list["target"])
				if(istype(C))
					C.cloud_put("adminhelp_banner", "")
					src.show_chatbans(C)
		if ("mh_mute")//AHDUASHDUHWUDHWDUHWDUWDH
			if (src.level >= LEVEL_PA)
				var/client/C = locate(href_list["target"])
				if(istype(C))
					C.cloud_put("mentorhelp_banner", usr.client.key)
					src.show_chatbans(C)
		if ("mh_unmute")//AAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
			if (src.level >= LEVEL_PA)
				var/client/C = locate(href_list["target"])
				if(istype(C))
					C.cloud_put("mentorhelp_banner", "")
					src.show_chatbans(C)

		if ("load_admin_prefs")
			if (src.level >= LEVEL_MOD)
				src.load_admin_prefs()
		if ("save_admin_prefs")
			if (src.level >= LEVEL_MOD)
				src.save_admin_prefs()
		if ("refresh_admin_prefs")
			if (src.level >= LEVEL_MOD)
				src.show_pref_window(usr)

		if ("toggle_extra_verbs")
			if (src.level >= LEVEL_CODER)
				usr.client.toggle_extra_verbs()
				src.show_pref_window(usr)
		if ("toggle_popup_verbs")
			if (src.level >= LEVEL_MOD)
				usr.client.toggle_popup_verbs()
				src.show_pref_window(usr)
		if ("toggle_server_toggles_tab")
			if (src.level >= LEVEL_MOD)
				usr.client.toggle_server_toggles_tab()
				src.show_pref_window(usr)
		if ("toggle_atom_verbs")
			if (src.level >= LEVEL_PA)
				usr.client.toggle_atom_verbs()
				src.show_pref_window(usr)
		if ("toggle_attack_messages")
			if (src.level >= LEVEL_MOD)
				usr.client.toggle_attack_messages()
				src.show_pref_window(usr)
		if ("toggle_hear_prayers")
			if (src.level >= LEVEL_MOD)
				usr.client.holder.hear_prayers = !usr.client.holder.hear_prayers
		if ("toggle_buildmode_view")
			if (src.level >= LEVEL_PA)
				usr.client.holder.buildmode_view = !usr.client.holder.buildmode_view
				src.show_pref_window(usr)
		if ("toggle_auto_stealth")
			if (src.level >= LEVEL_SA)
				src.auto_stealth = !(src.auto_stealth)
				boutput(usr, "<span style=\"color:blue\">Auto Stealth [src.auto_stealth ? "enabled" : "disabled"].</span>")
				if (src.auto_stealth)
					if (src.auto_alt_key)
						src.auto_alt_key = 0
					if (usr.client.alt_key)
						src.set_alt_key()
					if (!usr.client.stealth && !isnull(src.auto_stealth_name))
						src.set_stealth_mode(src.auto_stealth_name)
					else if (isnull(src.auto_stealth_name))
						var/new_key = input("Enter your desired display name.", "Fake Key", usr.client.key) as null|text
						if (!new_key)
							src.auto_stealth_name = null
							boutput(usr, "<span style=\"color:blue\">Auto Stealth name removed.</span>")
							return src.show_pref_window(usr)
						if (alert("Use \"[new_key]\" as your Auto Stealth name?", "Confirmation", "OK", "Cancel") == "OK")
							src.auto_stealth_name = new_key
							src.set_stealth_mode(src.auto_stealth_name)
						else
							src.auto_stealth_name = null
							boutput(usr, "<span style=\"color:blue\">Auto Stealth name removed.</span>")
							return src.show_pref_window(usr)
				src.show_pref_window(usr)
		if ("set_auto_stealth_name")
			if (src.level >= LEVEL_SA)
				var/new_key = input("Enter your desired display name.", "Fake Key", usr.client.key) as null|text
				if (!new_key)
					src.auto_stealth_name = null
					boutput(usr, "<span style=\"color:blue\">Auto Stealth name removed.</span>")
					return
				if (alert("Use \"[new_key]\" as your Auto Stealth name?", "Confirmation", "OK", "Cancel") == "OK")
					src.auto_stealth_name = new_key
					src.show_pref_window(usr)
				else
					src.auto_stealth_name = null
					boutput(usr, "<span style=\"color:blue\">Auto Stealth name removed.</span>")
					return
		if ("toggle_auto_alt_key")
			if (src.level >= LEVEL_SA)
				src.auto_alt_key = !(src.auto_alt_key)
				boutput(usr, "<span style=\"color:blue\">Auto Alt Key [src.auto_alt_key ? "enabled" : "disabled"].</span>")
				if (src.auto_alt_key)
					if (src.auto_stealth)
						src.auto_stealth = 0
					if (usr.client.stealth)
						src.set_stealth_mode()
					if (!usr.client.alt_key && !isnull(src.auto_alt_key_name))
						src.set_alt_key(src.auto_alt_key_name)
					else if (isnull(src.auto_alt_key_name))
						var/new_key = input("Enter your desired display name.", "Alt Key", usr.client.key) as null|text
						if (!new_key)
							src.auto_alt_key_name = null
							boutput(usr, "<span style=\"color:blue\">Auto Alt Key removed.</span>")
							return src.show_pref_window(usr)
						if (alert("Use \"[new_key]\" as your Auto Alt Key?", "Confirmation", "OK", "Cancel") == "OK")
							src.auto_alt_key_name = new_key
							src.set_alt_key(src.auto_alt_key_name)
						else
							src.auto_alt_key_name = null
							boutput(usr, "<span style=\"color:blue\">Auto Alt Key removed.</span>")
							return src.show_pref_window(usr)
				src.show_pref_window(usr)
		if ("set_auto_alt_key_name")
			if (src.level >= LEVEL_SA)
				var/new_key = input("Enter your desired display name.", "Alt Key", usr.client.key) as null|text
				if (!new_key)
					src.auto_alt_key_name = null
					boutput(usr, "<span style=\"color:blue\">Auto Alt Key removed.</span>")
					return
				if (alert("Use \"[new_key]\" as your Auto Alt Key?", "Confirmation", "OK", "Cancel") == "OK")
					src.auto_alt_key_name = new_key
					src.show_pref_window(usr)
				else
					src.auto_alt_key_name = null
					boutput(usr, "<span style=\"color:blue\">Auto Alt Key removed.</span>")
					return

		if ("refreshoptions")
			var/mob/M = locate(href_list["target"])
			if (!M) return
			usr.client.holder.playeropt(M)

		if("call_shuttle")
			if (src.level >= LEVEL_SA)
				switch(href_list["type"])
					if("1")
						if ((!( ticker ) || emergency_shuttle.location))
							return
						var/call_reason = input("Enter the reason for the shuttle call (or just hit OK to give no reason)","Shuttle Call Reason","") as null|text
						if(!call_reason)
							call_reason = "<span class='italic'>No reason given.</span>"
						emergency_shuttle.incall()
						boutput(world, "<span style=\"color:blue\"><B>Alert: The emergency shuttle has been called.</B></span>")
						boutput(world, "<span style=\"color:blue\">- - - <b>Reason:</b> [call_reason]<B></span>")
						boutput(world, "<span style=\"color:blue\"><B>It will arrive in [round(emergency_shuttle.timeleft()/60)] minutes.</B></span>")
						logTheThing("admin", usr, null,  "called the Emergency Shuttle (reason: [call_reason])")
						logTheThing("diary", usr, null, "called the Emergency Shuttle (reason: [call_reason])", "admin")
						message_admins("<span style=\"color:blue\">[key_name(usr)] called the Emergency Shuttle to the station</span>")

					if("2")
						if ((!( ticker ) || emergency_shuttle.location || emergency_shuttle.direction == 0))
							return
						switch(emergency_shuttle.direction)
							if(-1)
								emergency_shuttle.incall()
								var/call_reason = input("Enter the reason for the shuttle call (or just hit OK to give no reason)","Shuttle Call Reason","") as null|text
								if(!call_reason)
									call_reason = "<span class='italic'>No reason given.</span>"
								emergency_shuttle.incall()
								boutput(world, "<span style=\"color:blue\"><B>Alert: The emergency shuttle has been called.</B></span>")
								boutput(world, "<span style=\"color:blue\">- - - <b>Reason:</b> [call_reason]<B></span>")
								boutput(world, "<span style=\"color:blue\"><B>It will arrive in [round(emergency_shuttle.timeleft()/60)] minutes.</B></span>")
								logTheThing("admin", usr, null, "called the Emergency Shuttle (reason: [call_reason])")
								logTheThing("diary", usr, null, "called the Emergency Shuttle (reason: [call_reason])", "admin")
								message_admins("<span style=\"color:blue\">[key_name(usr)] called the Emergency Shuttle to the station</span>")
							if(1)
								emergency_shuttle.recall()
								boutput(world, "<span style=\"color:blue\"><B>Alert: The shuttle is going back!</B></span>")
								logTheThing("admin", usr, null, "sent the Emergency Shuttle back")
								logTheThing("diary", usr, null, "sent the Emergency Shuttle back", "admin")
								message_admins("<span style=\"color:blue\">[key_name(usr)] recalled the Emergency Shuttle</span>")
			else
				alert("You need to be at least a Secondary Administrator to do a shuttle call.")

		if("edit_shuttle_time")
			if (src.level >= LEVEL_PA)
				var/timeleft = input("Enter new shuttle duration (seconds):","Edit Shuttle Timeleft", emergency_shuttle.timeleft()) as null|num
				if (isnull(timeleft))
					return
				emergency_shuttle.settimeleft(timeleft)
				logTheThing("admin", usr, null, "edited the Emergency Shuttle's timeleft to [timeleft]")
				logTheThing("diary", usr, null, "edited the Emergency Shuttle's timeleft to [timeleft]", "admin")
				message_admins("<span style='color:blue'>[key_name(usr)] edited the Emergency Shuttle's timeleft to [timeleft]</span>")
			else
				alert("You need to be at least a Primary Administrator to edit the shuttle timer.")

		if("toggle_shuttle_calling")
			if (src.level >= LEVEL_PA)
				emergency_shuttle.disabled = !emergency_shuttle.disabled
				logTheThing("admin", usr, null, "[emergency_shuttle.disabled ? "dis" : "en"]abled calling the Emergency Shuttle")
				logTheThing("diary", usr, null, "[emergency_shuttle.disabled ? "dis" : "en"]abled calling the Emergency Shuttle", "admin")
				message_admins("<span style='color:blue'>[key_name(usr)] [emergency_shuttle.disabled ? "dis" : "en"]abled calling the Emergency Shuttle</span>")
				// someone forgetting about leaving shuttle calling disabled would be bad so let's inform the Admin Crew if it happens, just in case
				var/ircmsg[] = new()
				ircmsg["key"] = src.owner:key
				ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
				ircmsg["msg"] = "Has [emergency_shuttle.disabled ? "dis" : "en"]abled calling the Emergency Shuttle"
				ircbot.export("admin", ircmsg)
			else
				alert("You need to be at least a Primary Administrator to enable/disable shuttle calling.")

		if("toggle_shuttle_recalling")
			if (src.level >= LEVEL_PA)
				emergency_shuttle.can_recall = !emergency_shuttle.can_recall
				logTheThing("admin", usr, null, "[emergency_shuttle.can_recall ? "en" : "dis"]abled recalling the Emergency Shuttle")
				logTheThing("diary", usr, null, "[emergency_shuttle.can_recall ? "en" : "dis"]abled recalling the Emergency Shuttle", "admin")
				message_admins("<span style='color:blue'>[key_name(usr)] [emergency_shuttle.can_recall ? "en" : "dis"]abled recalling the Emergency Shuttle</span>")
			else
				alert("You need to be at least a Primary Administrator to enable/disable shuttle recalling.")

		if("notes")
			var/player = null
			var/mob/M = locate(href_list["target"])
			if(M)
				player = M.ckey
			else
				player = href_list["target"]
			if(!player)
				return
			src.viewPlayerNotes(player)

		if("notes2")
			var/player = href_list["target"]
			if(!player)
				return

			switch(href_list["type"])
				if("del")
					if(src.level < LEVEL_SA)
						alert("You need to be at least a Secondary Administrator to delete notes.")
						return

					if(href_list["id"])
						if(alert("Delete This Note?",,"Yes","No") == "No")
							return
						else
							var/noteId = href_list["id"]

							deletePlayerNote(noteId)
							src.viewPlayerNotes(player)

							logTheThing("admin", usr, null, "deleted note [noteId] belonging to [player].")
							logTheThing("diary", usr, null, "deleted note [noteId] belonging to [player].", "admin")
							message_admins("<span style=\"color:blue\">[key_name(usr)] deleted note [noteId] belonging to <A href='?src=%admin_ref%;action=notes&target=[player]'>[player]</A>.</span>")

							var/ircmsg[] = new()
							ircmsg["key"] = src.owner:key
							ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
							ircmsg["msg"] = "Deleted note [noteId] belonging to [player]"
							ircbot.export("admin", ircmsg)

				if("add")
					if(src.level < LEVEL_SA)
						alert("You need to be at least a Secondary Adminstrator to add notes.")
						return

					var/the_note = input("Write your note here!", "Note for [player]") as null|text
					if (isnull(the_note) || !length(the_note))
						return

					addPlayerNote(player, usr.ckey, the_note)
					SPAWN_DBG(2 SECONDS) src.viewPlayerNotes(player)

					logTheThing("admin", usr, null, "added a note for [player]: [the_note]")
					logTheThing("diary", usr, null, "added a note for [player]: [the_note]", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] added a note for <A href='?src=%admin_ref%;action=notes&target=[player]'>[player]</A>: [the_note]</span>")

					var/ircmsg[] = new()
					ircmsg["key"] = src.owner:key
					ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
					ircmsg["msg"] = "Added a note for [player]: [the_note]"
					ircbot.export("admin", ircmsg)

		if("viewcompids")
			var/player = href_list["targetckey"]

			if(src.tempmin)
				logTheThing("admin", usr, player, "tried to access the compIDs of %target%")
				logTheThing("diary", usr, player, "tried to access the compIDs of %target%", "admin")
				alert("You need to be an actual admin to view compIDs.")
				return

			view_client_compid_list(usr, player)

			return

		/////////////////////////////////////ban stuff
		if ("addban") //Add ban
			var/mob/M = (href_list["target"] ? locate(href_list["target"]) : null)
			usr.client.addBanDialog(M)

		if ("sharkban") //Add ban
			var/mob/M = (href_list["target"] ? locate(href_list["target"]) : null)
			usr.client.sharkban(M)

		if("unbane") //Edit ban
			if (src.level >= LEVEL_SA)
				var/id = html_decode(href_list["id"])
				var/ckey = html_decode(href_list["target"])
				var/compID = html_decode(href_list["compID"])
				var/ip = html_decode(href_list["ip"])
				var/reason = html_decode(href_list["reason"])
				var/timestamp = html_decode(href_list["timestamp"])

				usr.client.editBanDialog(id, ckey, compID, ip, reason, timestamp)
			else
				alert("You need to be at least a Secondary Administrator to edit bans.")

		if("unbanf") //Delete ban
			if (src.level >= LEVEL_SA)
				var/id = html_decode(href_list["id"])
				var/ckey = html_decode(href_list["target"])
				var/compID = html_decode(href_list["compID"])
				var/ip = html_decode(href_list["ip"])
				var/akey = usr.client.ckey

				usr.client.deleteBanDialog(id, ckey, compID, ip, akey)
			else
				alert("You need to be at least a Secondary Administrator to remove bans.")
		/////////////////////////////////////end ban stuff

		if("jobbanpanel")
			var/mob/M = locate(href_list["target"])
			var/dat = ""
			var/header = "<b>Pick Job to ban this guy from.<br>"
			var/body
	//		var/list/alljobs = get_all_jobs()
			var/jobs = ""

			if (!M) return

			for(var/job in uniquelist(occupations))
				if(job in list("Tourist","Mining Supervisor","Atmospheric Technician","Vice Officer"))
					continue
				if(jobban_isbanned(M, job))
					jobs += "<a href='?src=\ref[src];action=jobban;type=[job];target=\ref[M]'><font color=red>[replacetext(job, " ", "&nbsp")]</font></a> "
				else
					jobs += "<a href='?src=\ref[src];action=jobban;type=[job];target=\ref[M]'>[replacetext(job, " ", "&nbsp")]</a> " //why doesn't this work the stupid cunt

			if(jobban_isbanned(M, "Captain"))
				jobs += "<a href='?src=\ref[src];action=jobban;type=Captain;target=\ref[M]'><font color=red>Captain</font></a> "
			else
				jobs += "<a href='?src=\ref[src];action=jobban;type=Captain;target=\ref[M]'>Captain</a> " //why doesn't this work the stupid cunt

			if(jobban_isbanned(M, "Head of Security"))
				jobs += "<a href='?src=\ref[src];action=jobban;type=Head of Security;target=\ref[M]'><font color=red>Head of Security</font></a> "
			else
				jobs += "<a href='?src=\ref[src];action=jobban;type=Head of Security;target=\ref[M]'>Head of Security</a> "

			if(jobban_isbanned(M, "Syndicate"))
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Syndicate;target=\ref[M]'><font color=red>[replacetext("Syndicate", " ", "&nbsp")]</font></a> "
			else
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Syndicate;target=\ref[M]'>[replacetext("Syndicate", " ", "&nbsp")]</a> " //why doesn't this work the stupid cunt

			if(jobban_isbanned(M, "Special Respawn"))
				jobs += " <a href='?src=\ref[src];action=jobban;type=Special Respawn;target=\ref[M]'><font color=red>[replacetext("Special Respawn", " ", "&nbsp")]</font></a> "
			else
				jobs += " <a href='?src=\ref[src];action=jobban;type=Special Respawn;target=\ref[M]'>[replacetext("Special Respawn", " ", "&nbsp")]</a> "

			if(jobban_isbanned(M, "Engineering Department"))
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Engineering Department;target=\ref[M]'><font color=red>[replacetext("Engineering Department", " ", "&nbsp")]</font></a> "
			else
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Engineering Department;target=\ref[M]'>[replacetext("Engineering Department", " ", "&nbsp")]</a> "

			if(jobban_isbanned(M, "Security Department"))
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Security Department;target=\ref[M]'><font color=red>[replacetext("Security Department", " ", "&nbsp")]</font></a> "
			else
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Security Department;target=\ref[M]'>[replacetext("Security Department", " ", "&nbsp")]</a> "

			if(jobban_isbanned(M, "Heads of Staff"))
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Heads of Staff;target=\ref[M]'><font color=red>[replacetext("Heads of Staff", " ", "&nbsp")]</font></a> "
			else
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Heads of Staff;target=\ref[M]'>[replacetext("Heads of Staff", " ", "&nbsp")]</a> "

			if(jobban_isbanned(M, "Everything Except Assistant"))
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Everything Except Assistant;target=\ref[M]'><font color=red>[replacetext("Everything Except Assistant", " ", "&nbsp")]</font></a> "
			else
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Everything Except Assistant;target=\ref[M]'>[replacetext("Everything Except Assistant", " ", "&nbsp")]</a> "

			if(jobban_isbanned(M, "Ghostdrone"))
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Ghostdrone;target=\ref[M]'><font color=red>Ghostdrone</font></a> "
			else
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Ghostdrone;target=\ref[M]'>Ghostdrone</a> "

			if(jobban_isbanned(M, "Custom Names"))
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Custom Names;target=\ref[M]'><font color=red>[replacetext("Having a Custom Name", " ", "&nbsp")]</font></a> "
			else
				jobs += "<BR><a href='?src=\ref[src];action=jobban;type=Custom Names;target=\ref[M]'>[replacetext("Having a Custom Name", " ", "&nbsp")]</a> "


			body = "<br>[jobs]<br><br>"
			dat = "<tt>[header][body]</tt>"
			usr.Browse(dat, "window=jobban2;size=600x150")

		if("jobban")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				var/job = href_list["type"]
				if (!M) return
				if ((M.client && M.client.holder && (M.client.holder.level > src.level)))
					alert("You cannot perform this action. You must be of a higher administrative rank!")
					return
				if (jobban_isbanned(M, job))
					if(jobban_keylist.Find(text("[M.ckey] - Everything Except Assistant")) && job != "Everything Except Assistant")
						alert("This person is banned from Everything Except Assistant. You must lift that ban first.")
						return
					if(job in list("Mining Supervisor","Engineer","Atmospheric Technician","Miner","Mechanic"))
						if(jobban_keylist.Find(text("[M.ckey] - Engineering Department")))
							alert("This person is banned from Engineering Department. You must lift that ban first.")
							return
					if(job in list("Security Officer","Vice Officer","Detective"))
						if(jobban_keylist.Find(text("[M.ckey] - Security Department")))
							alert("This person is banned from Security Department. You must lift that ban first.")
							return
					if(job in list("Captain","Head of Personnel","Head of Security","Chief Engineer","Research Director"))
						if(jobban_keylist.Find(text("[M.ckey] - Heads of Staff")))
							alert("This person is banned from Heads of Staff. You must lift that ban first.")
							return
					logTheThing("admin", usr, M, "unbanned %target% from [job]")
					logTheThing("diary", usr, M, "unbanned %target% from [job]", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] unbanned [key_name(M)] from [job]</span>")
					addPlayerNote(M.ckey, usr.ckey, "[usr.ckey] unbanned [M.ckey] from [job]")
					jobban_unban(M, job)
					if (announce_jobbans) boutput(M, "<span style=\"color:red\"><b>[key_name(usr)] has lifted your [job] job-ban.</b></span>")
				else
					logTheThing("admin", usr, M, "banned %target% from [job]")
					logTheThing("diary", usr, M, "banned %target% from [job]", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] banned [key_name(M)] from [job]</span>")
					addPlayerNote(M.ckey, usr.ckey, "[usr.ckey] banned [M.ckey] from [job]")
					if(job == "Everything Except Assistant")
						if(jobban_keylist.Find(text("[M.ckey] - Engineering Department")))
							jobban_unban(M,"Engineering Department")
						if(jobban_keylist.Find(text("[M.ckey] - Security Department")))
							jobban_unban(M,"Security Department")
						if(jobban_keylist.Find(text("[M.ckey] - Heads of Staff")))
							jobban_unban(M,"Heads of Staff")
						for(var/Trank1 in uniquelist(occupations))
							if(jobban_keylist.Find(text("[M.ckey] - [Trank1]")))
								jobban_unban(M,Trank1)
					else if(job == "Engineering Department")
						for(var/Trank2 in list("Mining Supervisor","Engineer","Atmospheric Technician","Miner","Mechanic"))
							if(jobban_keylist.Find(text("[M.ckey] - [Trank2]")))
								jobban_unban(M,Trank2)
					else if(job == "Security Department")
						for(var/Trank3 in list("Security Officer","Vice Officer","Detective"))
							if(jobban_keylist.Find(text("[M.ckey] - [Trank3]")))
								jobban_unban(M,Trank3)
					else if(job == "Heads of Staff")
						for(var/Trank4 in list("Captain","Head of Personnel","Head of Security","Chief Engineer","Research Director"))
							if(jobban_keylist.Find(text("[M.ckey] - [Trank4]")))
								jobban_unban(M,Trank4)
					jobban_fullban(M, job)
					if (announce_jobbans) boutput(M, "<span style=\"color:red\"><b>[key_name(usr)] has job-banned you from [job].</b></span>")
			else
				alert("You need to be at least a Secondary Administrator to work with job bans.")

		if ("boot")
			var/mob/M = locate(href_list["target"])
			usr.client.cmd_boot(M)

		if ("removejobban")
			if (src.level >= LEVEL_CODER)
				var/t = href_list["target"]
				if(t)
					logTheThing("admin", usr, null, "removed [t]")
					logTheThing("diary", usr, null, "removed [t]", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] removed [t]</span>")
					jobban_remove(t)
			else
				alert("You need to be at least a Coder to remove job bans.")

		if ("mute")
			if (src.level >= LEVEL_MOD)
				var/mob/M = locate(href_list["target"])
				if (ismob(M) && M.client)
					var/muted = 0
					if (M.client.ismuted())
						M.client.unmute()
					else
						M.client.mute(-1)
						muted = 1
					logTheThing("admin", usr, M, "has [(muted ? "permanently muted" : "unmuted")] %target%")
					logTheThing("diary", usr, M, "has [(muted ? "permanently muted" : "unmuted")] %target%.", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] has [(muted ? "permanently muted" : "unmuted")] [key_name(M)].</span>")
					boutput(M, "You have been [(muted ? "permanently muted" : "unmuted")].")
			else
				alert("You need to be at least a Moderator to mute people.")

		if ("tempmute")
			if (src.level >= LEVEL_MOD)
				var/mob/M = locate(href_list["target"])
				if (ismob(M))
					var/muted = 0
					if (M.client.ismuted())
						M.client.unmute()
					else
						M.client.mute(60)
						muted = 1
					logTheThing("admin", usr, M, "has [(muted ? "temporarily muted" : "unmuted")] %target%")
					logTheThing("diary", usr, M, "has [(muted ? "temporarily muted" : "unmuted")] %target%.", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] has [(muted ? "temporarily muted" : "unmuted")] [key_name(M)].</span>")
					boutput(M, "You have been [(muted ? "temporarily muted" : "unmuted")].")
			else
				alert("You need to be at least a Moderator to mute people.")
		if ("banooc")
			if (src.level >= LEVEL_MOD)
				var/mob/M = locate(href_list["target"])
				if (ismob(M) && M.client)
					var/oocbanned = 0
					if (!oocban_isbanned(M))
						oocban_fullban(M)
						oocbanned = 1
					else
						oocban_unban(M)
					logTheThing("admin", usr, M, "has [(oocbanned ? "OOC Banned" : "OOC Unbanned")] %target%")
					logTheThing("diary", usr, M, "has [(oocbanned ? "OOC Banned" : "OOC Unbanned")] %target%.", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] has [(oocbanned ? "OOC Banned" : "OOC Unbanned")] [key_name(M)].</span>")

		if ("toggle_hide_mode")
			if (src.level >= LEVEL_SA)
				ticker.hide_mode = !ticker.hide_mode
				Topic(null, list("src" = "\ref[src]", "action" = "c_mode_panel"))
			else
				alert("You need to be at least a Secondary Administrator to hide the game mode.")

		if ("c_mode_panel") // I removed some broken/discontinued game modes here (Convair880).
			if (src.level >= LEVEL_SA)
				var/cmd = "c_mode_current"
				var/addltext = ""
				if (current_state > GAME_STATE_PREGAME)
					cmd = "c_mode_next"
					addltext = " next round"
				var/dat = {"
							<html><body><title>Select Round Mode</title>
							<B>What mode do you wish to play[addltext]?</B><br>
							Current mode is: <i>[master_mode]</i><br>
							Mode is <A href='?src=\ref[src];action=toggle_hide_mode'>[ticker.hide_mode ? "hidden" : "not hidden"]</a><br/>
							<HR>
							<b>Regular Modes:</b><br>
							<A href='?src=\ref[src];action=[cmd];type=secret'>Secret</A><br>
							<A href='?src=\ref[src];action=[cmd];type=action'>Secret: Action</A><br>
							<A href='?src=\ref[src];action=[cmd];type=intrigue'>Secret: Intrigue</A><br>
							<A href='?src=\ref[src];action=[cmd];type=mixed'>Mixed (Action)</A><br>
							<A href='?src=\ref[src];action=[cmd];type=mixed_rp'>Mixed (Mild)</A><br>
							<A href='?src=\ref[src];action=[cmd];type=traitor'>Traitor</A><br>
							<A href='?src=\ref[src];action=[cmd];type=nuclear'>Nuclear Emergency</A><br>
							<A href='?src=\ref[src];action=[cmd];type=wizard'>Wizard</A><br>
							<A href='?src=\ref[src];action=[cmd];type=changeling'>Changeling</A><br>
							<A href='?src=\ref[src];action=[cmd];type=vampire'>Vampire</A><br>
							<A href='?src=\ref[src];action=[cmd];type=blob'>Blob</A><br>
							<A href='?src=\ref[src];action=[cmd];type=conspiracy'>Conspiracy</A><br>
							<A href='?src=\ref[src];action=[cmd];type=spy_theft'>Spy Theft</A><br>
							<b>Other Modes</b><br>
							<A href='?src=\ref[src];action=[cmd];type=extended'>Extended</A><br>
							<A href='?src=\ref[src];action=[cmd];type=disaster'>Disaster (Beta)</A><br>
							<A href='?src=\ref[src];action=[cmd];type=spy'>Spy</A><br>
							<A href='?src=\ref[src];action=[cmd];type=revolution'>Revolution</A><br>
							<A href='?src=\ref[src];action=[cmd];type=revolution_extended'>Revolution (no time limit)</A><br>
							<A href='?src=\ref[src];action=[cmd];type=gang'>Gang War (Beta)</A><br>
							<A href='?src=\ref[src];action=[cmd];type=battle_royale'>Battle Royale</A><br>
							<A href='?src=\ref[src];action=[cmd];type=assday'>Ass Day Classic (For testing only.)</A><br>
							<A href='?src=\ref[src];action=[cmd];type=construction'>Construction (For testing only. Don't select this!)</A>
							</body></html>
						"}
				usr.Browse(dat, "window=c_mode")
			else
				alert("You need to be at least a Secondary Adminstrator to change the game mode.")

		if ("c_mode_current")
			if (src.level >= LEVEL_SA)
				if (current_state > GAME_STATE_PREGAME)
					return alert(usr, "The game has already started.", null, null, null, null)

				var/list/valid_modes = list("secret","action","intrigue","random","traitor","meteor","extended","monkey",
				"nuclear","blob","restructuring","wizard","revolution", "revolution_extended","malfunction",
				"spy","gang","disaster","changeling","vampire","mixed","mixed_rp", "construction","conspiracy","spy_theft","battle_royale", "vampire","assday")

				var/requestedMode = href_list["type"]
				if (requestedMode in valid_modes)
					logTheThing("admin", usr, null, "set the mode as [requestedMode].")
					logTheThing("diary", usr, null, "set the mode as [requestedMode].", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] set the mode as [requestedMode].</span>")
					world.save_mode(requestedMode)
					master_mode = requestedMode
					if(master_mode == "battle_royale")
						lobby_titlecard.icon_state += "_battle_royale"
					else
						lobby_titlecard.icon_state = "title_main"
					#ifdef MAP_OVERRIDE_OSHAN
						lobby_titlecard.icon_state = "title_oshan"
					#endif
					#ifdef MAP_OVERRIDE_MANTA
						lobby_titlecard.icon_state = "title_manta"
					#endif
					if (alert("Declare mode change to all players?","Mode Change","Yes","No") == "Yes")
						boutput(world, "<span style=\"color:blue\"><b>The mode is now: [requestedMode]</b></span>")
				else
					boutput(usr, "<span style=\"color:red\"><b>That is not a valid game mode!</b></span>")
			else
				alert("You need to be at least a Secondary Adminstrator to change the game mode.")

		if ("c_mode_next")
			if (src.level >= LEVEL_SA)
				var/newmode = href_list["type"]
				logTheThing("admin", usr, null, "set the next round's mode as [newmode].")
				logTheThing("diary", usr, null, "set the next round's mode as [newmode].", "admin")
				message_admins("<span style=\"color:blue\">[key_name(usr)] set the next round's mode as [newmode].</span>")
				world.save_mode(newmode)
				if (alert("Declare mode change to all players?","Mode Change","Yes","No") == "Yes")
					boutput(world, "<span style=\"color:blue\"><b>The next round's mode will be: [newmode]</b></span>")
			else
				alert("You need to be at least a Secondary Adminstrator to change the game mode.")

		if ("monkeyone")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if(!ismob(M))
					return
				if(ishuman(M))
					var/mob/living/carbon/human/N = M
					logTheThing("admin", usr, M, "attempting to monkeyize %target%")
					logTheThing("diary", usr, M, "attempting to monkeyize %target%", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] attempting to monkeyize [key_name(M)]</span>")
					N.monkeyize()
				else
					boutput(usr, "<span style=\"color:red\">You can't transform that mob type into a monkey.</span>")
					return
			else
				alert("You need to be at least a Secondary Adminstrator to monkeyize players.")

		if ("forcespeech")
			if (src.level >= LEVEL_PA)
				var/mob/M = locate(href_list["target"])
				if (ismob(M))
					var/speech = input("What will [M] say?", "Force speech", "")
					if(!speech)
						return
					M.say(speech)
					speech = copytext(sanitize(speech), 1, MAX_MESSAGE_LEN)
					logTheThing("admin", usr, M, "forced %target% to say: [speech]")
					logTheThing("diary", usr, M, "forced %target% to say: [speech]", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] forced [key_name(M)] to say: [speech]</span>")
			else
				alert("You need to be at least a Primary Administrator to force players to say things.")

		if ("prison")
			if (src.level >= LEVEL_MOD)
				var/mob/M = locate(href_list["target"])
				if (!M || !ismob(M)) return
				usr.client.cmd_admin_prison_unprison(M)
			else
				alert("You need to be at least a Moderator to send players to prison.")

		if ("shamecube")
			if (src.level >= LEVEL_MOD)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_shame_cube(M)
			else
				alert("You need to be at least a Moderator to shame cube a player.")

		if ("tdome")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if (!M) return

				var/team
				var/type = href_list["type"]
				if (type == "1")
					M.set_loc(pick(tdome1))
					team = "Team 1"
				else if (type == "2")
					M.set_loc(pick(tdome2))
					team = "Team 2"

				logTheThing("admin", usr, M, "sent %target% to the thunderdome. ([team])")
				logTheThing("diary", usr, M, "sent %target% to the thunderdome. ([team])", "admin")
				message_admins("[key_name(usr)] has sent [key_name(M)] to the thunderdome. ([team])")
				boutput(M, "<span style=\"color:blue\"><b>You have been sent to the Thunderdome. You are on [team].</b></span>")
				boutput(M, "<span style=\"color:blue\"><b>Prepare for combat. If you are not let out of the preparation area within a few minutes, please adminhelp. (F1 key)</b></span>")

			else
				alert("You need to be at least a Secondary Adminstrator to send players to Thunderdome.")

		if ("revive")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if (ismob(M))
					if(isobserver(M))
						alert("You can't revive a ghost! How does that even work?!")
						return
					if(config.allow_admin_rev)
						M.revive()
						message_admins("<span style=\"color:red\">Admin [key_name(usr)] healed / revived [key_name(M)]!</span>")
						logTheThing("admin", usr, M, "healed / revived %target%")
						logTheThing("diary", usr, M, "healed / revived %target%", "admin")
					else
						alert("Reviving is currently disabled.")
			else
				alert("You need to be at least a Primary Adminstrator to revive players.")

		if ("makeai")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				var/mob/newM = usr.client.cmd_admin_makeai(M)
				href_list["target"] = "\ref[newM]"
			else
				alert("You need to be at least a Secondary Adminstrator to turn players into AI units.")

		if ("makecyborg")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				var/mob/newM = usr.client.cmd_admin_makecyborg(M)
				href_list["target"] = "\ref[newM]"
			else
				alert("You need to be at least a Secondary Adminstrator to turn players into Cyborgs.")

		if ("makeghostdrone")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				var/mob/newM = usr.client.cmd_admin_makeghostdrone(M)
				href_list["target"] = "\ref[newM]"
			else
				alert("You need to be at least a Secondary Adminstrator to turn players into Ghostdrones.")

		if ("modifylimbs")
			if (src.level >= LEVEL_SA)
				var/mob/MC = locate(href_list["target"])
				if (MC && usr.client)
					usr.client.modify_parts(MC, usr)
			else
				alert("You need to be at least a Secondary Administrator to modify limbs.")


		if ("jumpto")
			if(src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				if (!istype(M, /mob/dead/target_observer))
					usr.client.jumptomob(M)
				else
					var/jumptarget = M.eye
					if (jumptarget)
						usr.client.jumptoturf(get_turf(jumptarget))
			else
				alert("You need to be at least a Secondary Adminstrator to jump to mobs.")

		if ("jumptocoords")
			if(src.level >= LEVEL_SA)
				var/list/coords = splittext(href_list["target"], ",")
				if (coords.len < 3) return
				usr.client.jumptocoord(text2num(coords[1]), text2num(coords[2]), text2num(coords[3]))
			else
				alert("You need to be at least a Secondary Adminstrator to jump to coords.")

		if ("getmob")
			if(( src.level >= LEVEL_SHITGUY ) || ((src.level >= LEVEL_SA) ))
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.Getmob(M)
			else
				alert("If you are below the rank of Shit Person, you need to be observing and at least a Secondary Administrator to get a player.")

		if ("sendmob")
			if(( src.level >= LEVEL_SHITGUY ) || ((src.level >= LEVEL_PA) ))
				var/mob/M = locate(href_list["target"])
				if (!M) return
				var/list/areas = list( )
				for (var/area/A in world)
					areas += A
					LAGCHECK(LAG_LOW)
				var/area = input(usr, "Select an area") as null|anything in areas
				if (area)
					usr.client.sendmob(M, area)
			else
				alert("If you are below the rank of Shit Person, you need to be observing and at least a Primary Administrator to get a player.")

		if ("gib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_gib(M)
			else
				alert("You need to be at least a Primary Admin to gib a dude.")

		if ("partygib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_partygib(M)
			else
				alert("You need to be at least a Primary Admin to party gib a dude.")

		if ("owlgib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_owlgib(M)
			else
				alert("A loud hooting noise is heard. It sounds angry. I guess you aren't allowed to do this.")

		if ("firegib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_firegib(M)
			else
				alert("You need to be at least a Primary Admin to fire gib a dude.")

		if ("elecgib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_elecgib(M)
			else
				alert("You need to be at least a Primary Admin to elec gib a dude.")

		if ("sharkgib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.sharkgib(M)
			else
				alert("You need to be at least a Primary Admin to shark gib a dude.")

		if ("icegib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_icegib(M)
			else
				alert("You need to be at least a Primary Admin to ice gib a dude.")

		if ("goldgib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_goldgib(M)
			else
				alert("You need to be at least a Primary Admin to gold gib a dude.")

		if("spidergib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_spidergib(M)
			else
				alert("You need to be at least a Primary Admin to spider gib a dude.")

		if("implodegib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_implodegib(M)
			else
				alert("You need to be at least a Primary Admin to implode a dude.")

		if("cluwnegib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_cluwnegib(M)
			else
				alert("You need to be at least a Primary Admin to cluwne gib a dude.")
		if ("tysongib")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_tysongib(M)
			else
				alert("You need to be at least a Primary Admin to tyson gib a dude.")
		if("damn")
			if(src.level >= LEVEL_PA)
				var/mob/M = locate(href_list["target"])
				if(!M || !M.mind) return
				if(M.mind.damned)
					usr.client.cmd_admin_adminundamn(M)
				else
					usr.client.cmd_admin_admindamn(M)
			else
				alert("You need to be at least a Primary Admin to damn a dude.")
		if("transform")
			if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
				var/mob/M = locate(href_list["target"])
				if (!ishuman(M))
					alert("This secret can only be used on human mobs.")
					return
				var/mob/living/carbon/human/H = M
				var/which = input("Transform them into what?","Transform") as null|anything in list("Monkey","Cyborg","Lizardman","Squidman","Martian","Skeleton","Flashman", "Kudzuman","Ghostdrone","Flubber")
				if (!which)
					return
				. = 0
				switch(which)
					if("Monkey")
						H.monkeyize()
					if("Cyborg")
						H.Robotize_MK2()
					if("Lizardman")
						H.set_mutantrace(/datum/mutantrace/lizard)
						. = 1
					if("Squidman")
						H.set_mutantrace(/datum/mutantrace/ithillid)
						. = 1
					if("Martian")
						H.set_mutantrace(/datum/mutantrace/martian)
						. = 1
					if("Skeleton")
						H.set_mutantrace(/datum/mutantrace/skeleton)
						. = 1
					if("Flashman")
						H.set_mutantrace(/datum/mutantrace/flashy)
						. = 1
					if("Kudzuman")
						H.set_mutantrace(/datum/mutantrace/kudzu)
						. = 1
					if("Ghostdrone")
						droneize(H, 0)
					if("Flubber")
						H.set_mutantrace(/datum/mutantrace/flubber)
				if(.)
					message_admins("<span style=\"color:blue\">[key_name(usr)] transformed [H.real_name] into a [which].</span>")
			else
				alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to transform a player.")

		if ("addbioeffect")
			if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
				var/mob/M = locate(href_list["target"])

				if (!ishuman(M))
					alert("You may only use this secret on human mobs.")
					return

				var/mob/living/carbon/human/X = M
				var/pick = input("Which effect(s)?","Give Bioeffects") as null|text
				if (!pick)
					return

				var/list/picklist = params2list(pick)
				if (picklist && picklist.len >= 1)
					var/string_version
					for(pick in picklist)
						X.bioHolder.AddEffect(pick)

						if (string_version)
							string_version = "[string_version], \"[pick]\""
						else
							string_version = "\"[pick]\""

					message_admins("[key_name(usr)] added the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] to [key_name(X)].")
			else
				alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to bioeffect a player.")

		if ("removebioeffect")
			if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
				var/mob/M = locate(href_list["target"])

				if (!ishuman(M))
					alert("You may only use this secret on human mobs.")
					return

				var/mob/living/carbon/human/X = M
				var/pick = input("Which effect(s)?","Remove Bioeffects") as null|text
				if (!pick)
					return

				var/list/picklist = params2list(pick)
				if (picklist && picklist.len >= 1)
					var/string_version
					for(pick in picklist)
						X.bioHolder.RemoveEffect(pick)

						if (string_version)
							string_version = "[string_version], \"[pick]\""
						else
							string_version = "\"[pick]\""

					message_admins("[key_name(usr)] removed the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] from [X.real_name].")
			else
				alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to bioeffect a player.")

		if ("removehandcuff")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if (istype(M))
					usr.client.cmd_admin_unhandcuff(M)
				else
					alert("Only mobs can have handcuffs, doofus! Are you trying to unhandcuff a shrub or something? Stop that!")

		if ("checkhealth")
			if (src.level >= LEVEL_SA)
				var/atom/A = locate(href_list["target"])
				if (A)
					usr.client.cmd_admin_check_health(A)

		if ("addreagent")
			if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
				var/mob/M = locate(href_list["target"])

				if (!ishuman(M))
					alert("You may only use this secret on human mobs.")
					return

				var/mob/living/carbon/human/X = M

				if(!X.reagents) X.create_reagents(100)

				var/list/L = list()
				var/searchFor = input(usr, "Look for a part of the reagent name (or leave blank for all)", "Add reagent") as null|text
				if(searchFor)
					for(var/R in childrentypesof(/datum/reagent))
						if(findtext("[R]", searchFor)) L += R
				else
					L = childrentypesof(/datum/reagent)

				var/type
				if(L.len == 1)
					type = L[1]
				else if(L.len > 1)
					type = input(usr,"Select Reagent:","Reagents",null) as null|anything in L
				else
					usr.show_text("No reagents matching that name", "red")
					return

				if(!type) return
				var/datum/reagent/reagent = new type()

				var/amount = input(usr,"Amount:","Amount",50) as null|num
				if(!amount) return

				X.reagents.add_reagent(reagent.id, amount)
				boutput(usr, "<span style=\"color:green\">Added [amount] units of [reagent.id] to [X.name]</span>")

				logTheThing("admin", usr, X, "added [amount] units of [reagent.id] to [X] at [log_loc(X)].")
				logTheThing("diary", usr, X, "added [amount] units of [reagent.id] to [X] at [log_loc(X)].", "admin")
				message_admins("[key_name(usr)] added [amount] units of [reagent.id] to [key_name(X)] at [log_loc(X)].")

			else
				alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to affect player reagents.")

		if ("checkreagent")
			if (src.level >= LEVEL_SA)
				var/atom/A = locate(href_list["target"])
				if (A)
					usr.client.cmd_admin_check_reagents(A)

		if ("removereagent")
			if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
				var/mob/M = locate(href_list["target"])

				if (!ishuman(M))
					alert("You may only use this secret on human mobs.")
					return

				var/mob/living/carbon/human/X = M
				var/pick = input("Which reagent(s)?","Remove Reagents") as null|text
				if (!pick)
					return

				var/list/picklist = params2list(pick)
				if (picklist && picklist.len >= 1)
					var/string_version

					for(pick in picklist)
						var/amt = input("How much of [pick]?","Remove Reagent") as null|num
						if(!amt || amt < 0)
							return

						if (X.reagents)
							X.reagents.remove_reagent(pick,amt)

						if (string_version)
							string_version = "[string_version], [amt] \"[pick]\""
						else
							string_version = "[amt] \"[pick]\""

					message_admins("[key_name(usr)] removed [string_version] from [X.real_name].")
			else
				alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to affect player reagents.")

		if ("possessmob")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M) return
				if (M == usr)
					releasemob(M)
				else
					possessmob(M)
			else
				alert("You need to be at least a Primary Administrator to possess or release mobs.")

		if ("checkcontents")
			if(( src.level >= LEVEL_PA ) || ((src.level >= LEVEL_SA) ))
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_check_contents(M)
			else
				alert("If you are below the rank of Primary Admin, you need to be observing and at least a Secondary Administrator to check player contents.")

		if ("dropcontents")
			if(( src.level >= LEVEL_SHITGUY ) || ((src.level >= LEVEL_PA) ))
				var/mob/M = locate(href_list["target"])
				if (!M) return
				if (alert(usr, "Make [M] drop everything?", "Confirmation", "Yes", "No") == "Yes")
					usr.client.cmd_admin_drop_everything(M)
			else
				alert("If you are below the rank of Shit Guy, you need to be observing and at least a Primary Admin to drop player contents.")

		if ("addabil")
			if (src.level >= LEVEL_PA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				if (!M.abilityHolder)
					alert("No ability holder detected. Create a holder first!")
					return
				var/ab_to_add = input("Which ability?", "Ability", null) as anything in childrentypesof(/datum/targetable)
				M.abilityHolder.addAbility(ab_to_add)
				M.abilityHolder.updateButtons()
				message_admins("[key_name(usr)] added ability [ab_to_add] to [key_name(M)].")
				logTheThing("admin", usr, M, "added ability [ab_to_add] to %target%.")
			else
				alert("You must be at least a Primary Administrator to do this!")

		if ("removeabil")
			if (src.level >= LEVEL_PA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				if (!M.abilityHolder)
					alert("No ability holder detected.")
					return
				var/ab_to_rem = input("Which ability?", "Ability", null) as anything in M.abilityHolder.abilities
				message_admins("[key_name(usr)] removed ability [ab_to_rem] from [key_name(M)].")
				logTheThing("admin", usr, M, "removed ability [ab_to_rem] from %target%.")
				M.abilityHolder.removeAbilityInstance(ab_to_rem)
				M.abilityHolder.updateButtons()
			else
				alert("You must be at least a Primary Administrator to do this!")

		if ("abilholder")
			if (src.level >= LEVEL_PA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				var/ab_to_add = input("Which holder?", "Ability", null) as anything in childrentypesof(/datum/abilityHolder)
				M.add_ability_holder(ab_to_add)
				M.abilityHolder.updateButtons()
				message_admins("[key_name(usr)] created abilityHolder [ab_to_add] for [key_name(M)].")
				logTheThing("admin", usr, M, "created abilityHolder [ab_to_add] for %target%.")
			else
				alert("You must be at least a Primary Administrator to do this!")

		if("subtlemsg")
			var/mob/M = locate(href_list["target"])
			if (!M) return
			usr.client.cmd_admin_subtle_message(M)

		if("adminalert")
			var/mob/M = locate(href_list["target"])
			if(!M) return
			usr.client.cmd_admin_alert(M)

		if ("makewraith")
			if( src.level < LEVEL_PA)
				alert("You must be at least a Primary Administrator to make someone a wraith.")
				return
			if(!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return
			if (alert("Make [M] a wraith?", "Make Wraith", "Yes", "No") == "Yes")
				var/datum/mind/mind = M.mind
				if (!mind)
					mind = new /datum/mind(  )
					mind.key = M.key
					mind.current = M
					ticker.minds += mind
					M.mind = mind
				if (mind.objectives)
					mind.objectives.len = 0
				else
					mind.objectives = list()
				switch (alert("Objectives?", "Objectives", "Custom", "Random", "None"))
					if ("Custom")
						var/WO = null
						do
							WO = input("What objective?", "Objective", null) as null|anything in childrentypesof(/datum/objective/specialist/wraith)
							if (WO)
								var/datum/objective/specialist/wraith/WObj = new WO()
								WObj.owner = mind
								WObj.set_up()
								mind.objectives += WObj
						while (WO != null)
					if ("Random")
						generate_wraith_objectives(mind)
				var/mob/wraith/Wr = M.wraithize()
				if (!Wr)
					if (!iswraith(mind.current))
						boutput(usr, "<span style=\"color:red\">Wraithization failed! Call 1-800-MARQUESAS for help.</span>")
						return
					else
						Wr = mind.current
				if (mind.objectives.len)
					boutput(Wr, "<b>Your objectives:</b>")
					var/obj_count = 1
					for (var/datum/objective/objective in mind.objectives)
						boutput(Wr, "<B>Objective #[obj_count]</B>: [objective.explanation_text]")
						obj_count++
				mind.special_role = "wraith"
				ticker.mode.Agimmicks += mind
				Wr.antagonist_overlay_refresh(1, 0)

		if ("makeblob")
			if( src.level < LEVEL_PA )
				alert("You must be at least a Primary Administrator to make someone a blob.")
				return
			if(!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return
			if (alert("Make [M] a blob?", "Make Blob", "Yes", "No") == "Yes")
				var/mob/B = M.blobize()
				if (B)
					if (B.mind)
						B.mind.special_role = "blob"
						ticker.mode.bestow_objective(B,/datum/objective/specialist/blob)
						//Bl.owner = B.mind
						//B.mind.objectives = list(Bl)

						var/i = 1
						for (var/datum/objective/Obj in B.mind.objectives)
							boutput(B, "<b>Objective #[i]</b>: [Obj.explanation_text]")
							i++
						ticker.mode.Agimmicks += B.mind
						B.antagonist_overlay_refresh(1, 0)

						SPAWN_DBG(0)
							var/newname = input(B, "You are a Blob. Please choose a name for yourself, it will show in the form: <name> the Blob", "Name change") as text

							if (newname)
								if (length(newname) >= 26) newname = copytext(newname, 1, 26)
								newname = replacetext(newname, ">", "'") + " the Blob"
								B.real_name = newname
								B.name = newname

		if ("makemacho")
			if( src.level < LEVEL_PA )
				alert("You must be at least a Primary Administrator to make someone a Macho Man.")
				return
			if(!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return
			if (alert("Make [M] a macho man?", "Make Macho", "Yes", "No") == "Yes")
				M.machoize()

		if ("makewelder")
			if( src.level < LEVEL_PA )
				alert("You must be at least a Primary Administrator to make someone a Welder.")
				return
			if(!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return
			if (alert("Make [M] a welder? Best used on a ghost.", "Make Welder", "Yes", "No") == "Yes")
				M.make_welder()

		if ("makecritter")
			if( src.level < LEVEL_PA )
				alert("You must be at least a Primary Administrator to make someone a Critter.")
				return
			if(!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return
			if (alert("Make [M] a critter?", "Make Critter", "Yes", "No") == "Yes")
				var/CT = input("What kind of critter?", "Make Critter", null) as null|anything in (childrentypesof(/mob/living/critter) - /mob/living/critter/small_animal - /mob/living/critter/aquatic)
				if (CT != null)
					if(M)
						M.critterize(CT)

		if ("makecube")
			if( src.level < LEVEL_PA )
				alert("You must be at least a Primary Administrator to make someone a Cube.")
				return
			if(!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return
			if (alert("Make [M] a cube?", "Make Cube", "Yes", "No") == "Yes")
				var/CT = input("What kind of cube?", "Make Cube", null) as null|anything in childrentypesof(/mob/living/carbon/cube)
				if (CT != null)
					var/amt = input("How long should it live?","Cube Lifetime") as null|num
					if(!amt)
						amt = INFINITY
					M.cubeize(amt, CT)

		// hacks are all i'm made of - cirr
		/*if ("makeintruder")
			if( src.level < LEVEL_PA)
				alert("You must be at least a Primary Administrator to make someone an intruder.")
				return
			if(!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return
			if (alert("Make [M] an eldritch intruder?", "Make Intruder", "Yes", "No") == "Yes")
				var/datum/mind/mind = M.mind
				if (!mind)
					mind = new /datum/mind(  )
					mind.key = M.key
					mind.current = M
					ticker.minds += mind
					M.mind = mind
				var/mob/living/intangible/intruder/In = M.intruderize()
				if (!In)
					if (!istype(mind.current, /mob/living/intangible/intruder))
						boutput(usr, "<span style=\"color:red\">Could not into intruder. Cirr is a dum and must be shamed.</span>")
						return
					else
						In = mind.current
				mind.special_role = "intruder"
				ticker.mode.Agimmicks += mind
				In.antagonist_overlay_refresh(1, 0)
		*/
		if ("makeflock")
			if( src.level < LEVEL_PA)
				alert("You must be at least a Primary Administrator to make someone a flockmind or flocktrace.")
				return
			if(!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return
			if (alert("Make [M] a flockmind or flocktrace?", "Make Flockmind", "Yes", "No") == "Yes")
				var/datum/mind/mind = M.mind
				if (!mind)
					mind = new /datum/mind()
					mind.key = M.key
					mind.current = M
					ticker.minds += mind
					M.mind = mind
				// if there's no existing flocks, default to making a flockmind
				// else, present choice: new flockmind of new flock, or new flocktrace of existing flock?
				var/datum/flock/chosen = null
				if(flocks.len > 0)
					var/flockName = input("Add to existing flock? (Hit Cancel to make new flockmind)","Flock Decide Time") as null|anything in flocks
					chosen = flocks[flockName]
				var/mob/living/intangible/flock/F = M.flockerize(chosen)
				if (!F)
					if (!istype(mind.current, /mob/living/intangible/flock))
						boutput(usr, "<span style=\"color:red\">Could not into flockmind. Cirr is a dum and must be shamed.</span>")
						return
					else
						F = mind.current
				if(istype(F, /mob/living/intangible/flock/flockmind))
					mind.special_role = "flockmind"
				else if(istype(F, /mob/living/intangible/flock/trace))
					mind.special_role = "flocktrace"
				ticker.mode.Agimmicks += mind
				F.antagonist_overlay_refresh(1, 0)


		if ("remove_traitor")
			if ( src.level < LEVEL_SA )
				alert("You must be at least a Secondary Administrator to remove someone's status as an antagonist.")
				return
			if (!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return
			if (alert("Remove [M]'s antag status?", "Remove Antag", "Yes", "No") == "Yes")
				if (!M) return
				if (!isturf(M.loc))
					// They could be in a pod or whatever, which would have unfortunate results when respawned (Convair880).
					alert(usr, "You currently cannot remove the antagonist status of somebody hiding in a pod, closet or other container.", "An error occurred")
					return
				remove_antag(M, usr, 0, 1)

		if ("traitor")
			if(!ticker || !ticker.mode)
				alert("The game hasn't started yet!")
				return
			var/mob/M = locate(href_list["target"])
			if (!M) return

			//independant of mode and can be traitors as well
			if(M.mind && (M.mind in miscreants))
				var/t = ""
				for(var/datum/objective/O in M.mind.objectives)
					if (istype(O, /datum/objective/miscreant))
						t += "[O.explanation_text]\n"
				alert("Miscreant! Objective: [t]")

			var/datum/game_mode/current_mode = ticker.mode
			if (istype(current_mode, /datum/game_mode/revolution))
				if(M.mind in current_mode:head_revolutionaries)
					alert("Head Revolutionary!")
					return
				else if(M.mind in current_mode:revolutionaries)
					alert("Revolutionary!")
					return
			else if (istype(current_mode, /datum/game_mode/nuclear))
				if(M.mind in current_mode:syndicates)
					alert("Syndicate Operative!", "[M.key]")
					return
			else if (istype(current_mode, /datum/game_mode/spy))
				if(M.mind in current_mode:leaders)
					var/datum/mind/antagonist = M.mind
					var/t = ""
					for(var/datum/objective/OB in antagonist.objectives)
						if (istype(OB, /datum/objective/crew) || istype(OB, /datum/objective/miscreant))
							continue
						t += "[OB.explanation_text]\n"
					if(antagonist.objectives.len == 0)
						t = "None defined."
					alert("Infiltrator. Objective(s):\n[t]", "[M.key]")
					return
			else if (istype(current_mode, /datum/game_mode/gang))
				if(M.mind in current_mode:leaders)
					alert("Leader of [M.mind.gang.gang_name].", "[M.key]")
					return
				for(var/datum/gang/G in current_mode:gangs)
					if(M.mind in G.members)
						alert("Member of [G.gang_name].", "[M.key]")
						return

			// traitor, or other modes where traitors/counteroperatives would be.
			if(M.mind in current_mode.traitors)
				var/datum/mind/antagonist = M.mind
				var/t = ""
				for(var/datum/objective/OB in antagonist.objectives)
					if (istype(OB, /datum/objective/crew) || istype(OB, /datum/objective/miscreant))
						continue
					t += "[OB.explanation_text]\n"
				if(antagonist.objectives.len == 0)
					t = "None defined."
				alert("Assigned [M.mind.special_role]. Objective(s):\n[t]", "[M.key]")
				return
			if(M.mind in ticker.mode.Agimmicks)
				var/datum/mind/antagonist = M.mind
				var/t = ""
				for(var/datum/objective/OB in antagonist.objectives)
					if (istype(OB, /datum/objective/crew) || istype(OB, /datum/objective/miscreant))
						continue
					t += "[OB.explanation_text]\n"
				if(antagonist.objectives.len == 0)
					t = "None defined."
				alert("Assigned [M.mind.special_role]. Objective(s):\n[t]", "[M.key]")
				return

			//they're nothing so turn them into a traitor!
			if(ishuman(M) || isAI(M) || isrobot(M) || iscritter(M))
				var/traitorize = "Cancel"
				traitorize = alert("Is not a traitor, make Traitor?", "Traitor", "Yes", "Cancel")
				if(traitorize == "Cancel")
					return
				if(traitorize == "Yes")
					if (issilicon(M))
						evilize(M, "traitor")
					else if (iscritter(M))
						// The only role that works for all critters at this point is hard-mode traitor, really. The majority of existing
						// roles don't work for them, most can't wear clothes and some don't even have arms and/or can pick things up.
						// That said, certain roles are mostly compatible and thus selectable.
						var/list/traitor_types = list("Hard-mode traitor", "Wrestler", "Grinch")
						var/selection = input(usr, "Select traitor type.", "Traitorize", "Traitor") in traitor_types
						switch (selection)
							if ("Hard-mode traitor")
								evilize(M, "traitor", "hardmode")
							else
								evilize(M, selection)
						/*	else
								SPAWN_DBG (0) alert("An error occurred, please try again.")*/
					else
						var/list/traitor_types = list("Traitor", "Wizard", "Changeling", "Vampire", "Werewolf", "Hunter", "Wrestler", "Grinch", "Omnitraitor", "Spy_Thief")
						if(ticker && ticker.mode && istype(ticker.mode, /datum/game_mode/gang))
							traitor_types += "Gang Leader"
						var/selection = input(usr, "Select traitor type.", "Traitorize", "Traitor") in traitor_types
						switch(selection)
							if("Traitor")
								if (alert("Hard Mode?","Treachery","Yes","No") == "Yes")
									evilize(M, "traitor", "hardmode")
								else
									evilize(M, "traitor")
							else
								evilize(M, selection)
							/*else
								SPAWN_DBG (0) alert("An error occurred, please try again.")*/
			//they're a ghost/hivebotthing/etc
			else
				alert("Cannot make this mob a traitor")

		if ("create_object")
			if (src.level >= LEVEL_PA)
				create_object(usr)
			else
				alert("You need to be at least a Primary Adminstrator to create objects.")

		if ("create_turf")
			if (src.level >= LEVEL_PA)
				create_turf(usr)
			else
				alert("You need to be at least a Primary Adminstrator to create turfs.")

		if ("create_mob")
			if (src.level >= LEVEL_PA) // Moved from SG to PA. They can do this through build mode anyway (Convair880).
				create_mob(usr)
			else
				alert("You need to be at least a Primary Administrator to create mobs.")

		if ("prom_demot")
			if (src.level >= LEVEL_PA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				var/client/C = M.client
				if(C.holder && (C.holder.level >= src.level) && C != usr.client)
					alert("This cannot be done as [C] isn't of a lower rank than you!")
					return
				var/dat = "[C] is a [C.holder ? "[C.holder.rank]" : "non-admin"]<br><br>Change [C]'s rank?<br>"
				if (C == usr.client)
					dat += "<strong>IF YOU DEMOTE YOURSELF YOU CANNOT UNDO IT FOR THE REST OF THE ROUND!!!</strong><br>"
				if (src.level >= LEVEL_CODER)
					dat += {"
							<A href='?src=\ref[src];action=chgadlvl;type=Coder;target=\ref[C]'>Coder</A><BR>
							<A href='?src=\ref[src];action=chgadlvl;type=Shit Person;target=\ref[C]'>Shit Person</A><BR>
							"}
				if (src.level >= LEVEL_SHITGUY)
					dat += "<A href='?src=\ref[src];action=chgadlvl;type=Primary Administrator;target=\ref[C]'>Primary Administrator</A><BR>"
				if (src.level >= LEVEL_PA)
					dat += {"
							<A href='?src=\ref[src];action=chgadlvl;type=Administrator;target=\ref[C]'>Administrator</A><BR>
							<A href='?src=\ref[src];action=chgadlvl;type=Secondary Administrator;target=\ref[C]'>Secondary Administrator</A><BR>
							<A href='?src=\ref[src];action=chgadlvl;type=Moderator;target=\ref[C]'>Moderator</A><BR>
							<A href='?src=\ref[src];action=chgadlvl;type=Ayn Rand%27s Armpit;target=\ref[C]'>Ayn Rand's Armpit</A><BR>
							<A href='?src=\ref[src];action=chgadlvl;type=Goat Fart;target=\ref[C]'>Goat Fart</A><BR>
							<A href='?src=\ref[src];action=chgadlvl;type=Remove;target=\ref[C]'>Remove Admin</A><BR>
							"}
				usr.Browse(dat, "window=prom_demot;size=480x300")
			else
				alert("You need to be at least a Primary Adminstrator to promote or demote.")

		if ("chgadlvl")
			if (src.level >= LEVEL_PA)
				var/rank = href_list["type"]
				var/client/C = locate(href_list["target"])
				if (!rank || !C) return

				if (C.holder && (C.holder.level >= src.level) && C != usr.client)
					alert("This cannot be done as [C] isn't of a lower rank than you!")
					return

				if (src.level < rank_to_level(rank))
					alert("You can't promote people above your own rank, dork.")
					return

				if (rank == "Remove")
					C.clear_admin_verbs()
					C.update_admins(null)
					logTheThing("admin", usr, C, "has removed %target%'s adminship")
					logTheThing("diary", usr, null, "has removed [C]'s adminship", "admin")
					message_admins("[key_name(usr)] has removed [C]'s adminship")

					var/ircmsg[] = new()
					ircmsg["key"] = usr.client.key
					ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
					ircmsg["msg"] = "has removed [C]'s adminship"
					ircbot.export("admin", ircmsg)

					admins.Remove(C.ckey)
					onlineAdmins.Remove(C)
				else
					C.clear_admin_verbs()
					C.update_admins(rank)
					logTheThing("admin", usr, C, "has made %target% a [rank]")
					logTheThing("diary", usr, null, "has made [C] a [rank]", "admin")
					message_admins("[key_name(usr)] has made [C] a [rank]")

					var/ircmsg[] = new()
					ircmsg["key"] = usr.client.key
					ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
					ircmsg["msg"] = "has made [C] a [rank]"
					ircbot.export("admin", ircmsg)

					admins[C.ckey] = rank
					onlineAdmins.Add(C)
			else
				alert("You need to be at least a Primary Adminstrator to promote or demote.")

		if ("object_list")
			if (src.level >= LEVEL_PA)
				if (config.allow_admin_spawning && (src.state == 2 || src.level >= LEVEL_PA))
					var/atom/loc = usr.loc

					var/type = href_list["type"]
					var/dirty_paths
					if (istext(type))
						dirty_paths = list(type)
					else if (islist(type))
						dirty_paths = type

					var/paths = list()
					var/removed_paths = list()
					for (var/dirty_path in dirty_paths)
						var/path = text2path(dirty_path)
						if (!path)
							removed_paths += dirty_path
						else if (!ispath(path, /obj) && !ispath(path, /turf) && !ispath(path, /mob))
							removed_paths += dirty_path
						else if (dirty_path in do_not_spawn && src.level < LEVEL_PA)
							removed_paths += dirty_path
						else if (ispath(path, /mob) && src.level < LEVEL_PA)
							removed_paths += dirty_path
						else
							paths += path
						LAGCHECK(LAG_LOW)

					if (!paths)
						return
					else if (length(paths) > 5)
						alert("Select five or less object types only, you colossal ass!")
						return
					else if (length(removed_paths))
						alert("Spawning of these objects is blocked:\n" + jointext(removed_paths, "\n"))
						return

					var/list/offset = splittext(href_list["offset"],",")
					var/number = CLAMP(text2num(href_list["object_count"]), 1, 100)
					var/X = offset.len > 0 ? text2num(offset[1]) : 0
					var/Y = offset.len > 1 ? text2num(offset[2]) : 0
					var/Z = offset.len > 2 ? text2num(offset[3]) : 0
					var/direction = text2num(href_list["one_direction"]) // forgive me

					for (var/i = 1 to number)
						switch (href_list["offset_type"])
							if ("absolute")
								for (var/path in paths)
									var/atom/thing = new path(locate(0 + X,0 + Y,0 + Z))
									thing.dir = direction ? direction : SOUTH
									LAGCHECK(LAG_LOW)

							if ("relative")
								if (loc)
									for (var/path in paths)
										var/atom/thing = new path(locate(loc.x + X,loc.y + Y,loc.z + Z))
										thing.dir = direction ? direction : SOUTH
										LAGCHECK(LAG_LOW)
								else
									return

						sleep(-1)

					if (number == 1)
						logTheThing("admin", usr, null, "created a [english_list(paths)]")
						logTheThing("diary", usr, null, "created a [english_list(paths)]", "admin")
						for(var/path in paths)
							if(ispath(path, /mob))
								message_admins("[key_name(usr)] created a [english_list(paths, 1)]")
								break
							LAGCHECK(LAG_LOW)
					else
						logTheThing("admin", usr, null, "created [number]ea [english_list(paths)]")
						logTheThing("diary", usr, null, "created [number]ea [english_list(paths)]", "admin")
						for(var/path in paths)
							if(ispath(path, /mob))
								message_admins("[key_name(usr)] created [number]ea [english_list(paths, 1)]")
								break
							LAGCHECK(LAG_LOW)
					return
				else
					alert("Object spawning is currently disabled for anyone below the rank of Administrator.")
					return
			else
				alert("You need to be at least an Adminstrator to spawn objects.")

		if ("polymorph")
			if (src.level >= LEVEL_SA) //gave SA+ restricted polymorph
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_polymorph(M)
			else
				alert("You need to be at least a Secondary Admin to polymorph a dude.")

		if ("modcolor")
			if (src.level >= LEVEL_SHITGUY)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				mod_color(M)
			else
				alert("You need to be at least a Shit Person to modify an icon.")

		if("giveantagtoken") //Gives player a token they can redeem to guarantee an antagonist role
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if (!M)
					return
				if (M.ckey && M.ckey == usr.ckey)
					alert(usr, "You cannot modify your own antag tokens.")
					return
				var/tokens = input(usr, "Current Tokens: [M.client.antag_tokens]","Set Antag Tokens to...") as null|num
				if (!tokens)
					return
				M.client.set_antag_tokens( tokens )
				if (tokens <= 0)
					logTheThing("admin", usr, M, "Removed all antag tokens from %target%")
					logTheThing("diary", usr, M, "Removed all antag tokens from %target%", "admin")
					message_admins("<span style=\"color:blue\">[key_name(usr)] removed all antag tokens from [key_name(M)]</span>")
				else
					logTheThing("admin", usr, M, "Set %target%'s Antag tokens  to [tokens].")
					logTheThing("diary", usr, M, "Set %target%'s Antag tokens  to [tokens].")
					message_admins( "[key_name(usr)] set [key_name(M)]'s Antag tokens to [tokens]." )
		if("setspacebux")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if (!M)
					return
				if (M.ckey && M.ckey == usr.ckey)
					alert(usr, "You cannot modify your own spacebux.")
					return
				var/spacebux = input(usr, "Current Spacebux: [M.client.persistent_bank]","Set Spacebux to...") as null|num
				if (!spacebux)
					return
				M.client.set_persistent_bank( spacebux )
				logTheThing("admin", usr, M, "Set %target%'s Persistent Bank (Spacebux) to [spacebux].")
				logTheThing("diary", usr, M, "Set %target%'s Persistent Bank (Spacebux) to [spacebux].")
				message_admins( "[key_name(usr)] set [key_name(M)]'s Persistent Bank (Spacebux) to [spacebux]." )
		if ("viewsave")
			if (src.level >= LEVEL_SHITGUY)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.view_save_data(M)
			else
				alert("You need to be at least a Shit Person to view save data.")

		if ("grantcontributor")
			if (src.level >= LEVEL_CODER)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				M.unlock_medal( "Contributor", 1 )
				logTheThing("admin", usr, M, "gave %target% contributor status.")
				logTheThing("diary", usr, M, "gave %target% contributor status.")
				message_admins( "[key_name(usr)] gave [key_name(M)] contributor status." )
			else
				alert("You need to be at least a Coder to grant the medal.")
		if ("revokecontributor")
			if (src.level >= LEVEL_CODER)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				var/suc = M.revoke_medal( "Contributor" )
				if(!suc)
					boutput( usr, "<span style='color:red'>Revoke failed, couldn't contact hub!</span>" )
				else if(suc)
					boutput( usr, "<span style='color:red'>Contributor medal revoked.</span>" )
					logTheThing("admin", usr, M, "revoked %target%'s contributor status.")
					logTheThing("diary", usr, M, "revoked %target%'s contributor status.")
					message_admins( "[key_name(usr)] revoked [key_name(M)]'s contributor status." )
				else
					boutput( usr, "<span style='color:red'>Failed to revoke, did they have the medal to begin with?</span>" )
			else
				alert("You need to be at least a Coder to revoke the medal.")



		if ("editvars")
			if (src.level >= LEVEL_PA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_modify_object_variables(M)
			else
				alert("You need to be at least a Primary Administrator to edit variables.")

		if ("viewvars")
			if (src.level >= LEVEL_PA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.debug_variables(M)
			else
				alert("You need to be at least a Primary Administrator to view variables.")

		if ("adminplayeropts")
			var/mob/M = locate(href_list["target"])
			if (!M) return
			usr.client.holder.playeropt(M)

		if ("secretsfun")
			if (src.level >= LEVEL_SA)
				switch(href_list["type"])
					if("sec_clothes")
						for(var/obj/item/clothing/under/O in world)
							del(O)
							LAGCHECK(LAG_LOW)
					if("sec_all_clothes")
						for(var/obj/item/clothing/O in world)
							del(O)
							LAGCHECK(LAG_LOW)
					if("sec_classic1")
						for(var/obj/item/clothing/suit/fire/O in world)
							del(O)
							LAGCHECK(LAG_LOW)
						for(var/obj/grille/O in world)
							del(O)
							LAGCHECK(LAG_LOW)
						for(var/obj/machinery/vehicle/pod/O in machines)
							for(var/atom/movable/A in O)
								A.set_loc(O.loc)
							del(O)
							LAGCHECK(LAG_LOW)

					if("transform_one")
						var/who = input("Transform who?","Transform") as null|mob in world
						if (!who)
							return
						if (!ishuman(who))
							alert("This secret can only be used on human mobs.")
							return
						var/mob/living/carbon/human/H = who
						var/which = input("Transform them into what?","Transform") as null|anything in list("Monkey","Cyborg","Lizardman","Squidman","Martian","Skeleton","Flashman")
						if (!which)
							return
						switch(which)
							if("Monkey") H.monkeyize()
							if("Cyborg") H.Robotize_MK2()
							if("Lizardman")
								H.set_mutantrace(/datum/mutantrace/lizard)
							if("Squidman")
								H.set_mutantrace(/datum/mutantrace/ithillid)
							if("Martian")
								H.set_mutantrace(/datum/mutantrace/martian)
							if("Skeleton")
								H.set_mutantrace(/datum/mutantrace/skeleton)
							if("Flashman")
								H.set_mutantrace(/datum/mutantrace/flashy)
						message_admins("<span style=\"color:blue\">[key_name(usr)] transformed [H.real_name] into a [which].</span>")
						logTheThing("admin", usr, null, "transformed [H.real_name] into a [which].")
						logTheThing("diary", usr, null, "transformed [H.real_name] into a [which].", "admin")

					if("transform_all")
						var/which = input("Transform everyone into what?","Transform") as null|anything in list("Monkey","Cyborg","Lizardman","Squidman","Martian","Skeleton","Flashman")
						for(var/mob/living/carbon/human/H in mobs)
							switch(which)
								if("Monkey") H.monkeyize()
								if("Cyborg") H.Robotize_MK2()
								if("Lizardman")
									H.set_mutantrace(/datum/mutantrace/lizard)
								if("Squidman")
									H.set_mutantrace(/datum/mutantrace/ithillid)
								if("Martian")
									H.set_mutantrace(/datum/mutantrace/martian)
								if("Skeleton")
									H.set_mutantrace(/datum/mutantrace/skeleton)
								if("Flashman")
									H.set_mutantrace(/datum/mutantrace/flashy)
							LAGCHECK(LAG_LOW)
						message_admins("<span style=\"color:blue\">[key_name(usr)] transformed everyone into a [which].</span>")
						logTheThing("admin", usr, null, "transformed everyone into a [which].")
						logTheThing("diary", usr, null, "transformed everyone into a [which].", "admin")
					if("prisonwarp")
						if(!ticker)
							alert("The game hasn't started yet!", null, null, null, null, null)
							return
						message_admins("<span style=\"color:blue\">[key_name(usr)] teleported all players to the prison zone.</span>")
						logTheThing("admin", usr, null, "teleported all players to the prison zone.")
						logTheThing("diary", usr, null, "teleported all players to the prison zone.", "admin")
						for(var/mob/living/carbon/human/H in mobs)
							var/turf/loc = find_loc(H)
							var/security = 0
							if(loc.z > 1 || prisonwarped.Find(H))
								//don't warp them if they aren't ready or are already there
								continue
							H.changeStatus("paralysis", 70)
							if(H.wear_id)
								for(var/A in H.wear_id:access)
									if(A == access_security)
										security++
							if(!security)
								//teleport person to cell
								H.set_loc(pick(prisonwarp))
							else
								//teleport security person
								H.set_loc(pick(prisonsecuritywarp))
							prisonwarped += H
							LAGCHECK(LAG_LOW)
					if("traitor_all")
						if (src.level >= LEVEL_SA)
							if(!ticker)
								alert("The game hasn't started yet!")
								return

							var/which_traitor = input("What kind of traitor?","Everyone's a Traitor") as null|anything in list("Traitor","Wizard","Changeling","Werewolf","Vampire","Hunter","Wrestler","Grinch","Omnitraitor")
							if(!which_traitor)
								return
							var/hardmode = null
							if (which_traitor == "Traitor")
								if (alert("Hard Mode?","Everyone's a Traitor","Yes","No") == "Yes")
									hardmode = "hardmode"
							var/custom_objective = input("What should the objective be?","Everyone's a Traitor") as null|text
							if (!custom_objective)
								return
							var/escape_objective = input("Which escaping objective?") as null|anything in typesof(/datum/objective/escape/) + "None"
							if (!escape_objective)
								return

							if (escape_objective == "None")
								escape_objective = null

							for(var/mob/living/carbon/human/H in mobs)
								if(isdead(H) || !(H.client)) continue
								if(checktraitor(H)) continue
								evilize(H, which_traitor, hardmode, custom_objective, escape_objective)

							message_admins("<span style=\"color:blue\">[key_name(usr)] made everyone a[hardmode ? " hard-mode" : ""] [which_traitor]. Objective is [custom_objective]</span>")
							logTheThing("admin", usr, null, "made everyone a[hardmode ? " hard-mode" : ""] [which_traitor]. Objective is [custom_objective]")
							logTheThing("diary", usr, null, "made everyone a[hardmode ? " hard-mode" : ""] [which_traitor]. Objective is [custom_objective]", "admin")
						else
							alert("You're not of a high enough rank to do this")
					if("flicklights")
						while(!usr.stat)
							//knock yourself out to stop the ghosts
							for(var/mob/M in mobs)
								if(M.client && !isdead(M) && prob(25))
									var/area/AffectedArea = get_area(M)
									if(AffectedArea.name != "Space" && AffectedArea.name != "Ocean" && AffectedArea.name != "Engine Walls" && AffectedArea.name != "Chemical Lab Test Chamber" && AffectedArea.name != "Escape Shuttle" && AffectedArea.name != "Arrival Area" && AffectedArea.name != "Arrival Shuttle" && AffectedArea.name != "start area" && AffectedArea.name != "Engine Combustion Chamber")
										AffectedArea.power_light = 0
										AffectedArea.power_change()
										SPAWN_DBG(rand(55,185))
											AffectedArea.power_light = 1
											AffectedArea.power_change()
										var/Message = rand(1,4)
										switch(Message)
											if(1)
												M.show_message(text("<span style=\"color:blue\">You shudder as if cold...</span>"), 1)
											if(2)
												M.show_message(text("<span style=\"color:blue\">You feel something gliding across your back...</span>"), 1)
											if(3)
												M.show_message(text("<span style=\"color:blue\">Your eyes twitch, you feel like something you can't see is here...</span>"), 1)
											if(4)
												M.show_message(text("<span style=\"color:blue\">You notice something moving out of the corner of your eye, but nothing is there...</span>"), 1)
										for(var/obj/W in orange(5,M))
											if(prob(25) && !W.anchored)
												step_rand(W)
							sleep(rand(100,1000))
						for(var/mob/M in mobs)
							if(M.client && !isdead(M))
								M.show_message(text("<span style=\"color:blue\">The chilling wind suddenly stops...</span>"), 1)
							LAGCHECK(LAG_LOW)
					if("stupify")
						if (src.level >= LEVEL_SHITGUY)
							if (alert("Do you wish to give everyone brain damage?", "Confirmation", "Yes", "No") != "Yes")
								return
							for (var/mob/living/carbon/human/H in mobs)
								if (H.get_brain_damage() < 60)
									if (H.client)
										H.show_text("<B>You suddenly feel stupid.</B>","red")
									H.take_brain_damage(min(60 - H.get_brain_damage(), 60)) // 100+ brain damage is lethal.
									LAGCHECK(LAG_LOW)
								else
									continue
							message_admins("[key_name(usr)] gave everybody severe brain damage.")
							logTheThing("admin", usr, null, "gave everybody severe brain damage.")
							logTheThing("diary", usr, null, "gave everybody severe brain damage.", "admin")
						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return
					// FUN SECRETS CODE
					if ("randomguns")
						if (src.level >= LEVEL_PA)
							if (alert("Do you want to give everyone a gun?", "Confirmation", "Yes", "No") != "Yes")
								return
							for (var/mob/living/L in mobs)
								new /obj/random_item_spawner/kineticgun(get_turf(L))
							message_admins("[key_name(usr)] gave everyone a random firearm.")
							logTheThing("admin", usr, null, "gave everyone a random firearm.")
							logTheThing("diary", usr, null, "gave everyone a random firearm.", "admin")
						else
							alert("You must be at least a Primary Administrator")
							return

					if	("swaprooms")
						if (src.level >= LEVEL_PA)
							message_admins("Alrighty, messing up the rooms now ... please wait.")
							fuckthestationuphorribly()
							message_admins("[key_name(usr)] swapped the stations rooms.")
							logTheThing("admin", usr, null, "swapped the stations rooms.")
							logTheThing("diary", usr, null, "swapped the stations rooms.", "admin")
						else
							alert("You must be at least a Primary Administrator")
							return

					if	("timewarp")
						if (src.level >= LEVEL_PA)
							var/timedelay = input(usr,"Delay before time warp? 10 = 1 second",src.name) as num|null
							if (!isnum(timedelay) || timedelay < 1)
								return
							boutput(usr, text("<span style=\"color:red\"><B>Preparing to warp time</B></span>"))
							timeywimey(timedelay)
							boutput(usr, text("<span style=\"color:red\"><B>Time warped!</B></span>"))
							logTheThing("admin", usr, null, "triggered a time warp.")
							logTheThing("diary", usr, null, "triggered a time warp.", "admin")
						else
							alert("You must be at least a Primary Administrator")
							return

					if ("bioeffect_help")
						var/be_string = "To add or remove multiple bioeffects enter multiple IDs separated by semicolons.<br><br><b>All Bio Effect IDs</b><hr>"
						for(var/S in bioEffectList)
							be_string += "[S]<br>"
						usr.Browse(be_string,"window=bioeffect_help;size=300x600")

					if ("reagent_help")
						var/r_string = "To add or remove multiple reagents enter multiple IDs separated by semicolons.<br><br><b>All Reagent IDs</b><hr>"
						for(var/R in reagents_cache)
							r_string += "[R]<br>"
						usr.Browse(r_string,"window=reagent_help;size=300x600")

					if ("add_bioeffect_one","remove_bioeffect_one")
						if (src.level >= LEVEL_PA)

							var/adding = href_list["type"] == "add_bioeffect_one"
							var/who = input("Which player?","[adding ? "Give" : "Remove"] Bioeffects") as null|mob in world

							if (!who)
								return

							if (!ishuman(who))
								alert("You may only use this secret on human mobs.")
								return

							var/mob/living/carbon/human/X = who
							var/pick = input("Which effect(s)?","[adding ? "Give" : "Remove"] Bioeffects") as null|text

							if (!pick)
								return

							var/list/picklist = params2list(pick)

							if (picklist && picklist.len >= 1)
								var/string_version

								for(pick in picklist)
									if (adding)
										X.bioHolder.AddEffect(pick)
									else
										X.bioHolder.RemoveEffect(pick)

									if (string_version)
										string_version = "[string_version], \"[pick]\""
									else
										string_version = "\"[pick]\""

								message_admins("[key_name(usr)] [adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] [key_name(X)].")
								logTheThing("admin", usr, null, "[adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] [key_name(X)].")
								logTheThing("diary", usr, null, "[adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] [key_name(X)].", "admin")
						else
							alert("You must be at least a Primary Administrator to bioeffect players.")
							return

					if ("add_reagent_one","remove_reagent_one")
						if (src.level >= LEVEL_PA)

							var/adding = href_list["type"] == "add_reagent_one"
							var/who = input("Which player?","[adding ? "Add" : "Remove"] Reagents") as null|mob in world

							if (!who)
								return

							if (!ishuman(who))
								alert("You may only use this secret on human mobs.")
								return

							var/mob/living/carbon/human/X = who
							var/pick = input("Which reagent(s)?","[adding ? "Add" : "Remove"] Reagents") as null|text

							if (!pick)
								return

							var/list/picklist = params2list(pick)

							if (picklist && picklist.len >= 1)
								var/string_version

								for(pick in picklist)
									var/amt = input("How much of [pick]?","[adding ? "Add" : "Remove"] Reagent") as null|num
									if(!amt || amt < 0)
										return

									if (adding)
										if (X.reagents)
											X.reagents.add_reagent(pick,amt)
									else
										if (X.reagents)
											X.reagents.remove_reagent(pick,amt)

									if (string_version)
										string_version = "[string_version], [amt] \"[pick]\""
									else
										string_version = "[amt] \"[pick]\""

								message_admins("[key_name(usr)] [adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] [key_name(X)].")
								logTheThing("admin", usr, null, "[adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] [key_name(X)].")
								logTheThing("diary", usr, null, "[adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] [key_name(X)].", "admin")
						else
							alert("You must be at least a Primary Administrator to affect player reagents.")
							return

					if ("add_bioeffect_all","remove_bioeffect_all")
						if (src.level >= LEVEL_PA)
							var/adding = href_list["type"] == "add_bioeffect_all"
							var/pick = input("Which effect(s)?","[adding ? "Give" : "Remove"] Bioeffects [adding ? "to" : "from"] Everyone") as null|text
							if (!pick)
								return

							var/list/picklist = params2list(pick)

							if (picklist && picklist.len >= 1)
								var/string_version
								for(pick in picklist)
									if (string_version)
										string_version = "[string_version], \"[pick]\""
									else
										string_version = "\"[pick]\""

								SPAWN_DBG(0)
									for(var/mob/living/carbon/X in mobs)
										for(pick in picklist)
											if (adding)
												X.bioHolder.AddEffect(pick)
											else
												X.bioHolder.RemoveEffect(pick)
										sleep(1)

								message_admins("[key_name(usr)] [adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] everyone.")
								logTheThing("admin", usr, null, "[adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] everyone.")
								logTheThing("diary", usr, null, "[adding ? "added" : "removed"] the [string_version] bio-effect[picklist.len > 1 ? "s" : ""] [adding ? "to" : "from"] everyone.", "admin")
						else
							alert("You must be at least a Primary Administrator to bioeffect players.")
							return

					if ("add_reagent_all","remove_reagent_all")
						if (src.level >= LEVEL_PA)

							var/adding = href_list["type"] == "add_reagent_all"
							var/pick = input("Which reagent(s)?","[adding ? "Add" : "Remove"] Reagents [adding ? "to" : "from"] Everyone") as null|text
							if (!pick)
								return

							var/list/picklist = params2list(pick)

							if (picklist && picklist.len >= 1)
								var/string_version

								for(pick in picklist)
									var/amt = input("How much of [pick]?","[adding ? "Add" : "Remove"] Reagent") as null|num
									picklist[pick] = amt

									if (string_version)
										string_version = "[string_version], [amt] \"[pick]\""
									else
										string_version = "[amt] \"[pick]\""

								SPAWN_DBG(0)
									for(var/mob/living/carbon/X in mobs)
										for(pick in picklist)
											var/amt = picklist[pick]
											if(!amt)
												continue
											if (adding)
												if (X.reagents)
													X.reagents.add_reagent(pick,amt)
											else
												if (X.reagents)
													X.reagents.remove_reagent(pick,amt)
										sleep(1)

								message_admins("[key_name(usr)] [adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] everyone.")
								logTheThing("admin", usr, null, "[adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] everyone.")
								logTheThing("diary", usr, null, "[adding ? "added" : "removed"] [string_version] [adding ? "to" : "from"] everyone.", "admin")

						else
							alert("You must be at least a Primary Administrator to affect player reagents.")
							return

					if ("ballpit")
						if (src.level >= LEVEL_SA)
							message_admins("[key_name(usr)] began replacing all Z1 pools will ballpits.")
							for (var/obj/poolwater/W in world)
								if (atom_emergency_stop)
									message_admins("[key_name(usr)]'s command to replace all Z1 floors and walls with wooden ones was terminated due to the atom emerygency stop!")
									return
								if (W.z != 1)
									break
								if (W.icon_state != "ballpitwater")
									W.icon_state = "ballpitwater"
									W.name = "ball pit"
									W.float_anim = 0
								LAGCHECK(LAG_LOW)
							for (var/obj/pool/P in world)
								if (atom_emergency_stop)
									message_admins("[key_name(usr)]'s command to replace all Z1 floors and walls with wooden ones was terminated due to the atom emerygency stop!")
									return
								if (P.z != 1)
									break
								if (P.icon_state == "pool_in_misc")
									P.icon_state = "ballpit_in_misc"
								else if (P.icon_state == "pool_in")
									P.icon_state = "ballpit_in"
								else if (P.icon_state == "pool")
									P.icon_state = "ballpit"
								LAGCHECK(LAG_LOW)
							for (var/turf/simulated/pool/P in world)
								if (atom_emergency_stop)
									message_admins("[key_name(usr)]'s command to replace all Z1 floors and walls with wooden ones was terminated due to the atom emerygency stop!")
									return
								if (P.z != 1)
									break
								if (P.icon_state == "poolwaterfloor")
									P.icon_state = "ballpitfloor"
									P.name = "ball pit"
								LAGCHECK(LAG_LOW)
							message_admins("[key_name(usr)] replaced all Z1 pools with ballpits.")
							logTheThing("admin", usr, null, "replaced z1 pools with ballpits.")
							logTheThing("diary", usr, null, "replaced z1 pools with ballpits.", "admin")
						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return

					if ("woodstation")
						if (src.level >= LEVEL_PA)
							message_admins("[key_name(usr)] began replacing all Z1 floors and walls with wooden ones.")
							var/nornwalls = 0
							if (map_settings && map_settings.walls == /turf/simulated/wall/auto/supernorn)
								nornwalls = 1
							for (var/turf/simulated/wall/W in world)
								if (atom_emergency_stop)
									message_admins("[key_name(usr)]'s command to replace all Z1 floors and walls with wooden ones was terminated due to the atom emerygency stop!")
									return
								if (W.z != 1)
									break
								if (nornwalls)
									var/turf/simulated/wall/auto/AW = W
									if (istype(AW))
										if (AW.icon != 'icons/turf/walls_wood.dmi')
											AW.icon = 'icons/turf/walls_wood.dmi'
											if (istype(AW, /turf/simulated/wall/auto/reinforced))
												AW.icon_state = copytext(W.icon_state,2)
											if (AW.connect_image) // I will get you to work you shit fuck butt FART OVERLAY
												AW.connect_image = image(AW.icon, "connect[AW.connect_overlay_dir]")
												AW.UpdateOverlays(AW.connect_image, "connect")
								else
									if (W.icon_state != "wooden")
										W.icon = 'icons/turf/walls.dmi'
										W.icon_state = "wooden"
								LAGCHECK(LAG_LOW)
							for (var/turf/simulated/floor/F in world)
								if (atom_emergency_stop)
									message_admins("[key_name(usr)]'s command to replace all Z1 floors and walls with wooden ones was terminated due to the atom emerygency stop!")
									return
								if (F.z != 1)
									break
								if (istype(F, /turf/simulated/floor/carpet))
									continue
								if (F.icon_state != "wooden")
									F.icon_state = "wooden"
									F.step_material = "step_wood"
								LAGCHECK(LAG_LOW)
							message_admins("[key_name(usr)] replaced all Z1 floors and walls with wooden ones.")
							logTheThing("admin", usr, null, "replaced z1 floors and walls with wooden doors.")
							logTheThing("diary", usr, null, "replaced z1 floors and walls with wooden doors.", "admin")
						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return

					if ("yeolde")
						if (src.level >= LEVEL_PA)
							message_admins("[key_name(usr)] began replacing all Z1 airlocks with wooden doors.")
							for (var/obj/machinery/door/D in doors)
								if (atom_emergency_stop)
									message_admins("[key_name(usr)]'s command to replace all Z1 airlocks with wooden doors was terminated due to the atom emerygency stop!")
									return
								if (D.z != 1)
									break
								if (istype(D, /obj/machinery/door/poddoor/) || istype(D, /obj/machinery/door/firedoor/) || istype(D, /obj/machinery/door/window/))
									continue
								new /obj/machinery/door/unpowered/wood(get_turf(D))
								qdel(D)
								LAGCHECK(LAG_LOW)
							message_admins("[key_name(usr)] replaced all Z1 airlocks with wooden doors.")
							logTheThing("admin", usr, null, "replaced z1 airlocks with wooden doors.")
							logTheThing("diary", usr, null, "replaced z1 airlocks with wooden doors.", "admin")
						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return

					if("fakeguns")
						if (src.level >= LEVEL_SHITGUY)
							for(var/obj/item/W in world)
								if(istype(W, /obj/item/clothing) || istype(W, /obj/item/card/id) || istype(W, /obj/item/disk) || istype(W, /obj/item/tank))
									continue
								W.icon = 'icons/obj/gun.dmi'
								W.icon_state = "revolver"
								W.item_state = "gun"
								LAGCHECK(LAG_LOW)
							message_admins("[key_name(usr)] made every item look like a gun")
							logTheThing("admin", usr, null, "used Fake Gun secret.")
							logTheThing("diary", usr, null, "used Fake Gun secret.", "admin")
						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return

					if("flipstation")
						var/direction = input("Which way?", "Which direction?", "Normal") in list("Normal", "Rotated CW", "Rotated CCW", "Upside down")
						var/setdir = NORTH
						switch (direction)
							if ("Rotated CW")
								setdir = WEST
							if ("Rotated CCW")
								setdir = EAST
							if ("Upside down")
								setdir = SOUTH
						if (src.level >= LEVEL_SHITGUY)
							for(var/mob/M in mobs)
								if(M.client)
									M.client.dir = setdir
								LAGCHECK(LAG_LOW)
							message_admins("[key_name(usr)] set station direction to [direction].")
							logTheThing("admin", src, null, "set station direction to [direction].")
							logTheThing("diary", src, null, "set station direction to [direction]", "admin")
						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return

					if("raiseundead")
						if (src.level >= LEVEL_SHITGUY)
							for(var/mob/living/carbon/human/H in mobs) //Only humans can be zombies!
								if(!isdead(H)) //Not dead!
									continue
								if(istype(H.mutantrace, /datum/mutantrace/zombie))
									continue //Already a zombie!

								qdel(H.mutantrace)
								H.set_mutantrace(/datum/mutantrace/zombie)
								setalive(H) //Set stat back to zero so we can call death()
								H.death()//Calling death() again means that the zombies will rise after ~20 seconds.
								LAGCHECK(LAG_LOW)

							message_admins("[key_name(usr)] has brought back all dead humans as zombies.")
							logTheThing("admin", usr, null, "brought back all dead humans as zombies.")
							logTheThing("diary", usr, null, "brought back all dead humans as zombies", "admin")
						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return

					if("forcerandomnames")
						if (src.level >= LEVEL_PA)
							if(current_state > GAME_STATE_PREGAME)
								alert("You can only only trigger this before the game starts, sorry pal!")
								return

							force_random_names = 1

							for(var/client/C in clients)
								if (!C.preferences)
									continue
								C.preferences.be_random_name = 1

							message_admins("[key_name(usr)] has set all players to use random names this round.")
							logTheThing("admin", usr, null, "set all players to use random names.")
							logTheThing("diary", usr, null, "set all players to use random names.", "admin")
						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return

					if("forcerandomlooks")
						if (src.level >= LEVEL_PA)
							if(current_state > GAME_STATE_PREGAME)
								alert("You can only only trigger this before the game starts, sorry pal!")
								return

							force_random_looks = 1

							for(var/client/C in clients)
								if (!C.preferences)
									continue
								C.preferences.be_random_look = 1

							message_admins("[key_name(usr)] has set all players to use random appearances this round.")
							logTheThing("admin", usr, null, "set all players to use random appearances.")
							logTheThing("diary", usr, null, "set all players to use random appearances.", "admin")
						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return

					if("sawarms")
						if (src.level >= LEVEL_SHITGUY)
							for (var/mob/living/carbon/human/M in world)
								if (!ismonkey(M))
									for (var/obj/item/parts/human_parts/arm/P in M)
										P.sever()
										var/obj/item/parts/human_parts/arm/sawarm = null

										if (P.slot == "l_arm")
											sawarm = new /obj/item/parts/human_parts/arm/left/item(M)
											M.limbs.l_arm = sawarm
										else
											sawarm = new /obj/item/parts/human_parts/arm/right/item(M)
											M.limbs.r_arm = sawarm
										if (!sawarm) return

										sawarm.holder = M
										sawarm.remove_stage = 0
										sawarm:set_item(new /obj/item/saw/elimbinator())


									playsound(M, "sound/machines/chainsaw_red.ogg", 60, 1)
									M.update_body()
							message_admins("[key_name(usr)] has given everyone new arms.")
							logTheThing("admin", usr, null, "used the Saw Arms secret.")
							logTheThing("diary", usr, null, "used the Saw Arms secret.", "admin")

						else
							alert("You cannot perform this action. You must be of a higher administrative rank!")
							return

					if("emag_all_things")
						if (src.level >= LEVEL_SHITGUY)
							if (alert("Do you really want to emag everything?","Bad Idea", "Yes", "No") == "Yes")
								message_admins("[key_name(usr)] has started emagging everything!")
								logTheThing("admin", usr, null, "used the Emag Everything secret.")
								logTheThing("diary", usr, null, "used the Emag Everything secret.", "admin")
								//DO IT!
								for(var/atom/A as mob|obj in world)
									if(A)
										A.emag_act(null,null)
									LAGCHECK(LAG_LOW)
								message_admins("[key_name(usr)] has emagged everything!")
							else
								return

						else
							alert("You need to be at least a shit person to emag everything")
							return

					if("shakecamera")
						if (src.level >= LEVEL_SHITGUY)
							var/intensity = input("Enter intensity of the shaking effect. (2 or over  will also cause mobs to trip over.)","Shaking intensity",null) as num|null
							if (!intensity)
								return
							var/time = input("Enter lenght of the shaking effect.(In milliseconds, don't use more then 400 unless you want players to complain.) ", "Lenght of shaking effect", 1) as num
							logTheThing("admin", src, null, "created a shake effect (intensity [intensity], lenght [time])")
							logTheThing("diary", src, null, "created a shake effect (intensity [intensity], lenght [time])", "admin")
							message_admins("[key_name(usr)] has created a shake effect (intensity [intensity], lenght [time]).")
							for (var/mob/M in mobs)
								SPAWN_DBG(0)
									shake_camera(M, time, intensity)
								if (intensity >= 2)
									M.changeStatus("weakened", 2 SECONDS)

						else
							alert("You need to be at least a shit person to emag everything")
							return

					if("creepifystation")
						if (src.level >= LEVEL_SHITGUY)
							if (alert("Are you sure you should creepify the station? There's no going back.", "PARENTAL CONTROL", "Sure thing!", "Not really.") == "Sure thing!")
								message_admins("[key_name(usr)] creepified the station.")
								logTheThing("admin", usr, null, "used the Creepify Station button")
								logTheThing("diary", usr, null, "used the Creepify Station button", "admin")
							creepify_station()
						else
							alert("You need to be at least a shit person to emag everything")
							return

					if ("noir")
						if(src.level >= LEVEL_SHITGUY)
							if (noir)
								if (alert("Had enough of noir?", "Good decisions", "Yes!", "Never!") == "Yes!")
									noir = 0
									for (var/mob/M in world)
										if (M.client)
											animate_fade_from_grayscale(M.client, 50)
									message_admins("[key_name(usr)] undid placing the station in noir mode.")
									logTheThing("admin", usr, null, "used the Noir secret to remove noir")
									logTheThing("diary", usr, null, "used the Noir secret to remove noir", "admin")
							if (alert("Are you sure you should noir?", "PARENTAL CONTROL", "Sure thing!", "Not really.") == "Sure thing!")
								noir = 1
								for (var/mob/M in world)
									if (M.client)
										animate_fade_grayscale(M.client, 50)
									LAGCHECK(LAG_LOW)
								message_admins("[key_name(usr)] placed the station in noir mode.")
								logTheThing("admin", usr, null, "used the Noir secret")
								logTheThing("diary", usr, null, "used the Noir secret", "admin")

					if("the_great_switcharoo")
						if(src.level >= LEVEL_SHITGUY) //Will be SG when tested
							if (alert("Do you really wanna do the great switcharoo?", "Awoo, awoo", "Sure thing!", "Not really.") == "Sure thing!")

								var/list/mob/living/people_to_swap = list()

								for(var/mob/living/L in world) //Build the swaplist
									if(L && L.key && L.mind && !isdead(L) && (ishuman(L) || issilicon(L)))
										people_to_swap += L
									LAGCHECK(LAG_LOW)

								if(people_to_swap.len > 1) //Jenny Antonsson switches bodies with herself! #wow #whoa
									message_admins("[key_name(usr)] did The Great Switcharoo")
									logTheThing("admin", usr, null, "used The Great Switcharoo secret")
									logTheThing("diary", usr, null, "used The Great Switcharoo secret", "admin")

									var/mob/A = pick(people_to_swap)
									do //More random
										people_to_swap -= A
										var/mob/B = pick(people_to_swap)
										if(A && A.mind && B)
											A.mind.swap_with(B)
										A = B
										LAGCHECK(LAG_LOW)
									while(people_to_swap.len > 0)

							else
								return
						else
							alert("You are not a shit enough guy to switcharoo, bub.")


					if("fartyparty")
						if(src.level >= LEVEL_SHITGUY) //Will be SG when tested
							if (farty_party)
								farty_party = 0
								deep_farting = 0
								message_admins("[key_name(usr)] stopped the farty party, ok everyone go home")
							else
								farty_party = 1
								deep_farting = 1
								message_admins("[key_name(usr)] IS GETTIN THIS FARTY PARTY STARTED")
						logTheThing("admin", usr, null, "used Farty Party secret")
						logTheThing("diary", usr, null, "used Farty Party secret", "admin")

					else
				if (usr) logTheThing("admin", usr, null, "used secret [href_list["secretsfun"]]")
				logTheThing("diary", usr, null, "used secret [href_list["secretsfun"]]", "admin")
			else
				alert("You need to be at least an Adminstrator to use the secrets panel.")
				return

		if ("secretsdebug")
			if (src.level >= LEVEL_CODER)
				switch(href_list["type"])
					if("budget")
						src.owner:debug_variables(wagesystem)
					if("market")
						src.owner:debug_variables(shippingmarket)
					if("genetics")
						src.owner:debug_variables(genResearch)
					if("jobs")
						src.owner:debug_variables(job_controls)
					if("hydro")
						src.owner:debug_variables(hydro_controls)
					if("manuf")
						src.owner:debug_variables(manuf_controls)
					if("radio")
						src.owner:debug_variables(radio_controller)
					if("randevent")
						src.owner:debug_variables(random_events)
					if("disease")
						src.owner:debug_variables(disease_controls)
					if("mechanic")
						src.owner:debug_variables(mechanic_controls)
					if("artifact")
						src.owner:debug_variables(artifact_controls)
					if("gauntlet")
						src.owner:debug_variables(gauntlet_controller)
					if("colosseum")
						src.owner:debug_variables(colosseum_controller)
					if("stock")
						src.owner:debug_variables(stockExchange)
					if("emshuttle")
						src.owner:debug_variables(emergency_shuttle)
					if("datacore")
						src.owner:debug_variables(data_core)
					if("miningcontrols")
						src.owner:debug_variables(mining_controls)
					if("goonhub")
						src.owner:debug_variables(goonhub)
					if("mapsettings")
						src.owner:debug_variables(map_settings)
					if("ghostnotifications")
						src.owner:debug_variables(ghost_notifier)
					if("overlays")
						overlaytest()
					if("overlaysrem")
						removerlays()
					if("globals")
						src.owner:debug_variables("GLOB")
			else
				alert("You need to be at least a Coder to use debugging secrets.")

		if ("secretsadmin")
			if (src.level >= LEVEL_MOD)
				var/ok = 0

				switch(href_list["type"])
	/*
					if("clear_bombs")
						for(var/obj/item/assembly/radio_bomb/O in world)
							qdel(O)
						for(var/obj/item/assembly/proximity_bomb/O in world)
							qdel(O)
						for(var/obj/item/assembly/time_bomb/O in world)
							qdel(O)
						ok = 1
	*/

					if("check_antagonist")
						if (ticker && ticker.mode && current_state >= GAME_STATE_PLAYING)
							var/dat = "<html><head><title>Round Status</title></head><body><h1><B>Round Status</B></h1>"
							dat += "Current Game Mode: <B>[ticker.mode.name]</B><BR>"
							dat += "Round Duration: <B>[round(world.time / 36000)]:[add_zero(world.time / 600 % 60, 2)]:[world.time / 100 % 6][world.time / 100 % 10]</B><BR>"

							if (istype(ticker.mode, /datum/game_mode/nuclear))
								var/datum/game_mode/nuclear/NN = ticker.mode
								dat += "<br><table cellspacing=5><tr><td><B>Syndicates</B></td><td></td></tr>"
								for(var/datum/mind/N in NN.syndicates)
									var/mob/M = N.current
									if(!M) continue
									dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
									dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td></tr>"

								// This basic bit of info was missing, even though you could look up the
								// location of the old auth disk here in the past (Convair880).
								dat += "</table><br><table><tr><td><b>Nuclear bomb:</b></td></tr>"
								if (NN.the_bomb && istype(NN.the_bomb, /obj/machinery/nuclearbomb/))
									var/turf/T = get_turf(NN.the_bomb)
									dat += "<tr><td>Location:"
									if (T && istype(T, /turf))
										dat += " <a href='?src=\ref[src];action=jumptocoords;target=[T.x],[T.y],[T.z]'>[T.x],[T.y],[T.z]</a> ([get_area(NN.the_bomb)])</tr></td>"
									else
										dat += " Found (unknown location)</tr></td>"
								else
									dat += "<tr><td>N/A (destroyed or not associated with objective)</tr></td>"

								dat += "<tr><td>Target area:"
								if (!isnull(NN.target_location_type))
									dat += " [NN.target_location_name]</tr></td>"
								else
									dat += " Unknown or not assigned</tr></td>"

								dat += "</table>"

							else if (istype(ticker.mode, /datum/game_mode/revolution))
								dat += "<br><table cellspacing=5><tr><td><B>Revolutionaries</B></td><td></td></tr>"
								for(var/datum/mind/N in ticker.mode:head_revolutionaries)
									var/mob/M = N.current
									if(!M) continue
									dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a> <b>(Leader)</b>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
									dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td></tr>"
								for(var/datum/mind/N in ticker.mode:revolutionaries)
									var/mob/M = N.current
									if(!M) continue
									dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
									dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td></tr>"
								dat += "</table><table cellspacing=5><tr><td><B>Target(s)</B></td><td></td><td><B>Location</B></td></tr>"
								for(var/datum/mind/N in ticker.mode:get_living_heads())
									var/mob/M = N.current
									if(!M) continue
									dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
									dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
									var/turf/mob_loc = get_turf_loc(M)
									dat += "<td>[mob_loc.loc]</td></tr>"
								dat += "</table>"

							else if (istype(ticker.mode, /datum/game_mode/spy))
								if(ticker.mode:leaders.len > 0)
									dat += "<br><table cellspacing=5><tr><td><B>Infiltrators:</B></td><td></td><tr>"
									for(var/datum/mind/leader in ticker.mode:leaders)
										var/mob/M = leader.current
										if(!M) continue
										dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[key_name(M)]</a>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
										dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
										dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"

									dat += "</table>"
								else
									dat += "There are no infiltrators."

								if(ticker.mode:spies.len > 0)
									dat += "<br><table cellspacing=5><tr><td><B>Brainwashed Followers:</B></td><td></td><tr>"
									for(var/datum/mind/spy in ticker.mode:spies)
										var/mob/M = spy.current
										if(!M) continue
										dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
										dat += "<td>Obeys: "
										var/datum/mind/obeycheck = ticker.mode:spies[spy]
										if (istype(obeycheck) && obeycheck.current)
											dat += "[obeycheck.current.ckey]"
										else
											dat += "Nobody!"
										dat += "</td><td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td></tr>"

									dat += "</table>"
								else
									dat += "There are no brainwashed followers."

							else if (istype(ticker.mode, /datum/game_mode/gang))
								if (ticker.mode:leaders.len > 0)
									for(var/datum/mind/leader in ticker.mode:leaders)
										var/mob/M = leader.current
										var/datum/gang/gang = leader.gang
										dat += "<br><table cellspacing=5><tr><td>([format_frequency(gang.gang_frequency)]) <B>[gang.gang_name]:</B></td><td></td><tr>"
										dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[key_name(M)]</a>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
										dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
										dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"
										for(var/datum/mind/member in gang.members)
											if(member.current != null)
												dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[key_name(member.current)]</a>[member.current.client ? "" : " <i>(logged out)</i>"][isdead(member.current) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
												dat += "<td><a href='?action=priv_msg&target=[member.ckey]'>PM</A></td>"
												dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[member.current]'>Show Objective</A></td></tr>"
									dat += "</table>"
								else
									dat += "There are no gangs."

							if (ticker.mode.traitors.len > 0)
								dat += "<br><table cellspacing=5><tr><td><B>Traitors</B></td><td></td><td></td></tr>"
								for (var/datum/mind/traitor in ticker.mode.traitors)
									var/mob/M = traitor.current
									if (!M) continue
									dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
									dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
									dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"
								dat += "</table>"

							if(ticker.mode.Agimmicks.len > 0)
								dat += "<br><table cellspacing=5><tr><td><B>Misc Foes</B></td><td></td><td></td></tr>"
								for(var/datum/mind/gimmick in ticker.mode.Agimmicks)
									var/mob/M = gimmick.current
									if(!M) continue
									dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
									dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
									dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"
								dat += "</table>"

							if(miscreants.len > 0)
								dat += "<br><table cellspacing=5><tr><td><B>Miscreants</B></td><td></td><td></td></tr>"
								for(var/datum/mind/miscreant in miscreants)
									var/mob/M = miscreant.current
									if(!M) continue
									dat += "<tr><td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[M.real_name]</a>[M.client ? "" : " <i>(logged out)</i>"][isdead(M) ? " <b><font color=red>(DEAD)</font></b>" : ""]</td>"
									dat += "<td><a href='?action=priv_msg&target=[M.ckey]'>PM</A></td>"
									dat += "<td><A HREF='?src=\ref[src];action=traitor;target=\ref[M]'>Show Objective</A></td></tr>"
								dat += "</table>"

							if (istype(ticker.mode, /datum/game_mode/spy_theft) || ticker.mode.spy_market)
								var/datum/game_mode/spy_theft/game = istype(ticker.mode, /datum/game_mode/spy_theft) ? ticker.mode : ticker.mode.spy_market

								var/refresh_time_formatted = round((game.last_refresh_time + game.bounty_refresh_interval)/10 ,1)
								refresh_time_formatted = "[round(refresh_time_formatted / 3600)]:[add_zero(round(refresh_time_formatted % 3600 / 60), 2)]:[add_zero(num2text(refresh_time_formatted % 60), 2)]"

								dat += "<br><tr><td><B>Current Bounties (Refresh at [refresh_time_formatted])  </B></td><td></td></tr>"
								for(var/datum/bounty_item/B in game.active_bounties)
									var/atext = ""
									if (B.reveal_area && B.item && !B.claimed)
										atext = "<br>(Last Seen : [get_area(B.item)])"
									var/rtext = ""
									if (B.reward)
										rtext = "<br><b>Reward</b> : [B.reward.name]"

									dat += "<br><br><tr><td><b>[B.name]</b>[rtext][atext]<br> [(B.claimed) ? "(<b>CLAIMED</b>)" : "(Deliver : <b>[B.delivery_area ? B.delivery_area : "Anywhere"]</b>)"]</td></tr>"

							dat += "</body></html>"
							usr.Browse(dat, "window=roundstatus;size=400x500")
						else
							alert("The game hasn't started yet!")
					if("shuttle_panel")
						if (current_state >= GAME_STATE_PLAYING)
							var/dat = "<html><head><title>Shuttle Controls</title></head><body><h1><B>Shuttle Controls</B></h1>"
							dat += "Round Duration: <B>[round(world.time / 36000)]:[add_zero(world.time / 600 % 60, 2)]:[world.time / 100 % 6][world.time / 100 % 10]</B><BR>"
							dat += "<B>Emergency shuttle:</B><BR>"
							if (!emergency_shuttle.online)
								dat += "<a href='?src=\ref[src];action=call_shuttle&type=1'>Call Shuttle</a><br>"
							else
								var/timeleft = emergency_shuttle.timeleft()
								switch(emergency_shuttle.location)
									if(0)
										dat += "ETA: <a href='?src=\ref[src];action=edit_shuttle_time'>[(timeleft / 60) % 60]:[add_zero(num2text(timeleft % 60), 2)]</a><BR>"
										dat += "<a href='?src=\ref[src];action=call_shuttle&type=2'>Send Back</a><br>"
									if(1)
										dat += "ETA: <a href='?src=\ref[src];action=edit_shuttle_time'>[(timeleft / 60) % 60]:[add_zero(num2text(timeleft % 60), 2)]</a><BR>"
							dat += "</body></html>"
							usr.Browse(dat, "window=roundstatus;size=400x500")
					if("manifest")
						var/dat = "<B>Showing Crew Manifest.</B><HR>"
						dat += "<table cellspacing=5><tr><th>Name</th><th>Original Position</th><th>Position</th></tr>"
						for(var/mob/living/carbon/human/H in mobs)
							if(H.ckey)
								dat += "<tr><td>[H.name]</td><td>[(H.mind ? H.mind.assigned_role : "Unknown Position")]</td><td>[(istype(H.wear_id, /obj/item/card/id) || istype(H.wear_id, /obj/item/device/pda2)) ? "[H.wear_id:assignment]" : "Unknown Position"]</td></tr>"
							LAGCHECK(LAG_LOW)
						dat += "</table>"
						usr.Browse(dat, "window=manifest;size=440x410")
					if("jobcaps")
						job_controls.job_config()
					if("randomevents")
						random_events.event_config()
					if("pathology")
						pathogen_controller.cdc_main(src)
					if("motives")
						simsController.showControls(usr)
					if("artifacts")
						artifact_controls.config()
					if("ghostnotifier")
						ghost_notifier.config()
					if("unelectrify_all")
						for(var/obj/machinery/door/airlock/D)
							D.secondsElectrified = 0
							LAGCHECK(LAG_LOW)
						message_admins("Admin [key_name(usr)] de-electrified all airlocks.")
						logTheThing("admin", usr, null, "de-electrified all airlocks.")
						logTheThing("diary", usr, null, "de-electrified all airlocks.", "admin")
					if("DNA")
						var/dat = "<B>Showing DNA from blood.</B><HR>"
						dat += "<table cellspacing=5><tr><th>Name</th><th>DNA</th><th>Blood Type</th></tr>"
						for(var/mob/living/carbon/human/H in mobs)
							if(H.ckey)
								dat += "<tr><td>[H]</td><td>[H.bioHolder.Uid]</td><td>[H.bioHolder.bloodType]</td></tr>"
							LAGCHECK(LAG_LOW)
						dat += "</table>"
						usr.Browse(dat, "window=DNA;size=440x410")
					if("fingerprints")
						var/dat = "<B>Showing Fingerprints.</B><HR>"
						dat += "<table cellspacing=5><tr><th>Name</th><th>Fingerprints</th></tr>"
						for(var/mob/living/carbon/human/H in mobs)
							if(H.ckey)
								if(H.bioHolder.Uid)
									dat += "<tr><td>[H]</td><td>[md5(H.bioHolder.Uid)]</td></tr>"
								else if(!H.bioHolder.Uid)
									dat += "<tr><td>[H]</td><td>H.bioHolder.Uid = null</td></tr>"
							LAGCHECK(LAG_LOW)
						dat += "</table>"
						usr.Browse(dat, "window=fingerprints;size=440x410")
					else
				if (usr)
					logTheThing("admin", usr, null, "used secret [href_list["secretsadmin"]]")
					logTheThing("diary", usr, null, "used secret [href_list["secretsadmin"]]", "admin")
					if (ok)
						boutput(world, text("<B>A secret has been activated by []!</B>", usr.key))
				return
			else
				alert("You cannot perform this action. You must be of a higher administrative rank!", null, null, null, null, null)

		if ("view_logs")
			if ((src.level >= LEVEL_MOD) && !src.tempmin)
				var/gettxt
				var/logType = href_list["type"]
				var/preSearch
				if (href_list["presearch"])
					preSearch = href_list["presearch"]
				if (findtext(logType, "string") && !preSearch)
					gettxt = input("What are you searching for?","Log by String") as null|text
					if (!gettxt) return
				else if (preSearch)
					gettxt = preSearch

				var/adminLogHtml = get_log_data_html(logType, gettxt, src)

				usr.Browse(adminLogHtml, "window=[logType]_log_[gettxt];size=750x500")
			else
				alert("You cannot perform this action. You must be of a higher administrative rank!", null, null, null, null, null)

		if ("view_logs_pathology_strain")
			if (src.level >= LEVEL_MOD)
				var/gettxt
				if (href_list["presearch"])
					gettxt = href_list["presearch"]
				else
					gettxt = input("Which pathogen tree?", "Pathogen tree") in pathogen_controller.pathogen_trees

				var/adminLogHtml = get_log_data_html("pathology", gettxt, src)
				usr.Browse(adminLogHtml, "window=pathology_log;size=750x500")

		if ("s_rez")
			if (src.level >= LEVEL_SHITGUY)
				switch(href_list["type"])
					if("spawn_syndies")
						var/datum/special_respawn/SR = new /datum/special_respawn/
						var/amount = input(usr,"Amount to respawn:","Spawn Syndicates",3) as num
						if(!amount) return
						SR.spawn_syndies(amount)
						logTheThing("admin", src, null, "has spawned [amount] syndicate operatives.")
						logTheThing("diary", src, null, "has spawned [amount] syndicate operatives.", "admin")

					if("spawn_normal")
						var/datum/special_respawn/SR = new /datum/special_respawn/
						var/amount = input(usr,"Amount to respawn:","Spawn Normal Players",3) as num
						if(!amount) return
						SR.spawn_normal(amount)
						logTheThing("admin", src, null, "has spawned [amount] normal players.")
						logTheThing("diary", src, null, "has spawned [amount] normal players.", "admin")

					if("spawn_job")
						var/datum/special_respawn/SR = new /datum/special_respawn/
						var/list/jobs = job_controls.staple_jobs + job_controls.special_jobs
						var/datum/job/job = input(usr,"Select job to spawn players as:","Respawn Panel",null) as null|anything in jobs
						if(!job) return
						var/amount = input(usr,"Amount to respawn:","Spawn Normal Players",3) as num
						if(!amount) return
						SR.spawn_as_job(amount,job)
						logTheThing("admin", src, null, "has spawned [amount] normal players.")
						logTheThing("diary", src, null, "has spawned [amount] normal players.", "admin")

	/*				if("spawn_commandos")
						var/datum/special_respawn/SR = new /datum/special_respawn/
						SR.spawn_commandos(3)

					if("spawn_turds")
						var/datum/special_respawn/SR = new /datum/special_respawn/
						var/amount = input(usr,"Amount to respawn:","Spawn TURDS",3) as num
						if(!amount) return
						SR.spawn_TURDS(amount)
						logTheThing("admin", src, null, "has spawned [amount] TURDS.")
						logTheThing("diary", src, null, "has spawned [amount] TURDS.", "admin")

					if("spawn_smilingman")
						var/datum/special_respawn/SR = new /datum/special_respawn/
						SR.spawn_smilingman(1)
						logTheThing("admin", src, null, "has spawned a Smiling Man.")
						logTheThing("diary", src, null, "has spawned a Smiling Man.", "admin")
	*/

					if("spawn_welder")
						var/datum/special_respawn/SR = new /datum/special_respawn
						SR.spawn_welder(1)
						logTheThing("admin", src, null, "has spawned a Welder.")

					if("spawn_custom")
						var/datum/special_respawn/SR = new /datum/special_respawn
						var/blType = input(usr, "Select a mob type", "Spawn Custom") as null|anything in typesof(/mob/living)
						if(!blType) return
						var/amount = input(usr, "Amount to respawn:", "Spawn Custom",3) as num
						if(!amount) return
						SR.spawn_custom(blType, amount)
						logTheThing("admin", src, null, "has spawned [amount] mobs of type [blType].")
						logTheThing("diary", src, null, "has spawned [amount] mobs of type [blType].", "admin")

					if("spawn_wizards")

					if("spawn_aliens")

					else
			else
				alert("You cannot perform this action. You must be of a higher administrative rank!", null, null, null, null, null)
		if ("respawntarget")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				var/mob/newM = usr.client.respawn_target(M)
				href_list["target"] = "\ref[newM]"
			else
				alert ("You must be at least a Secondary Admin to respawn a target.")
		if ("showrules")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.show_rules_to_player(M)
			else
				alert ("You must be at least a Secondary Admin to show rules to a player.")
		if ("warn")
			if (src.level >= LEVEL_SA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.warn(M)
			else
				alert ("You must be at least a Secondary Admin to warn a player.")
		if ("clownify")
			if (src.level >= LEVEL_PA)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_clownify(M)
			else
				alert ("You must be at least a Primary Admin to clownify a player.")
		if ("plainmsg")
			if (src.level >= LEVEL_MOD)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				usr.client.cmd_admin_plain_message(M)
			else
				alert ("You must be at least a Moderator to plain message a player.")
		if ("humanize")
			if (src.level >= LEVEL_SA) // Moved from SG to PA (Convair880). And then back (Somepotato)
				var/mob/M = locate(href_list["target"])
				if (!M) return
				var/mob/newM = usr.client.cmd_admin_humanize(M)
				href_list["target"] = "\ref[newM]"
			else
				alert ("You must be at least a Primary Admin to humanize a player.")
		if ("chatbans")
			if( src.level >= LEVEL_PA )
				var/mob/M = locate(href_list["target"])
				if (!M || !M.client)
					alert( "That player doesn't exist!" )
					return
				src.show_chatbans(M.client)
			else
				alert( "You must be at least a Primary Admin to manage chat bans." )
		if ("change_station_name")
			if (!station_name_changing)
				return alert("Station name changing is currently disabled.")

			if (src.level >= LEVEL_MOD)
				usr.openStationNameChangeWindow(src, "action=change_station_name_2")
			else
				alert ("You must be at least a Moderator to change the station name.")
		if ("change_station_name_2")
			if (!station_name_changing)
				return alert("Station name changing is currently disabled.")

			if (src.level >= LEVEL_MOD)
				var/newName = href_list["newName"]
				if (set_station_name(usr, newName))
					command_alert("The new station name is [station_name]", "Station Naming Ceremony Completion Detection Algorithm")

				usr.Browse(null, "window=stationnamechanger")
				src.Game()

		if ("switch_map")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to switch maps.")

			usr.client.cmd_change_map()

		if ("start_map_vote")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to start map votes.")

			if (!mapSwitcher.votingAllowed)
				return alert("Map votes are currently toggled off.")

			usr.client.cmd_start_map_vote()

		if ("end_map_vote")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to end map votes.")

			usr.client.cmd_end_map_vote()

		if ("cancel_map_vote")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to cancel map votes.")

			usr.client.cmd_cancel_map_vote()

		if ("view_runtimes")
			if (src.level < LEVEL_SA)
				return alert("You must be at least a Secondary Admin to view runtimes.")

			usr.client.cmd_view_runtimes()

		if ("viewantaghistory")
			if (src.level < LEVEL_SA)
				return alert("You must be at least a Secondary Admin to view antag history.")

			usr.client.cmd_antag_history(href_list["targetckey"])

		if ("show_player_stats")
			if (src.level < LEVEL_SA)
				return alert("You must be at least a Secondary Admin to view player stats.")

			//Shortcut to popup with defined params if present, otherwise just call verb
			if (href_list["targetckey"])
				src.showPlayerStats(href_list["targetckey"])
			else
				usr.client.cmd_admin_show_player_stats()

		if ("show_player_ips")
			if (src.level < LEVEL_SA)
				return alert("You must be at least a Secondary Admin to view player IPs.")

			//Shortcut to popup with defined params if present, otherwise just call verb
			if (href_list["ckey"])
				var/ckey = href_list["ckey"]
				src.showPlayerIPs(ckey)
			else
				usr.client.cmd_admin_show_player_ips()

		if ("show_player_compids")
			if (src.level < LEVEL_SA)
				return alert("You must be at least a Secondary Admin to view player Computer IDs.")

			//Shortcut to popup with defined params if present, otherwise just call verb
			if (href_list["ckey"])
				var/ckey = href_list["ckey"]
				src.showPlayerCompIDs(ckey)
			else
				usr.client.cmd_admin_show_player_compids()

		if ("lightweight_doors")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to do this.")

			usr.client.lightweight_doors()

		if ("lightweight_lights")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to do this.")

			usr.client.lightweight_lights()

		if ("slow_atmos")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to do this.")

			usr.client.slow_atmos()

		if ("slow_fluids")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to do this.")

			usr.client.slow_fluids()

		if ("special_sea_fullbright")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to do this.")

			usr.client.special_fullbright()

		if ("slow_ticklag")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to do this.")

			usr.client.slow_ticklag()

		if ("disable_deletions")
			if (src.level < LEVEL_PA)
				return alert("You must be at least a Primary Admin to do this.")

			usr.client.disable_deletions()

		else
			world << "Undefined action [href_list["action"]]"

	//Wires bad hack part 2
	sleep(5)
	switch (originWindow)
		if ("adminplayeropts")
			if (href_list["targetckey"])
				var/targetCkey = href_list["targetckey"]
				for (var/mob/M in mobs) //The ref may have changed with our actions, find it again
					if (M.ckey == targetCkey)
						href_list["target"] = "\ref[M]"
						continue
				var/mob/target = locate(href_list["target"])
				for (var/mob/M in mobs) //We can't even trust that the admin ref hasnt changed
					if (adminCkey == M.ckey)
						usr = M
						continue
				usr.client.holder.playeropt(target)

///////////////////////////////////////////////////////////////////////////////////////////////Panels

/datum/admins/proc/player()
	var/dat = {"<html>
<head>
	<title>Player Menu</title>
	<style>
		table, td, th {
			border-collapse: collapse;
			border: 1px solid rgba(80, 80, 80, .6);
			font-size: 100%;
		}
		th { background: rgba(80, 80, 80, .6); }
		td, th {
			margin:	0;
			padding: 0.25em 0.5em;
		}
	</style>
</head>
<body>
	<table>
		<tr>
			<th colspan='2'>Key</th>
			<th>Name</th>
			<th>Real Name</th>
			<th>Assigned Role</th>
			<th>Special Role</th>
			<th>Type</th>
			<th>Computer ID</th>
			<th>IP</th>
			<th>Joined</th>
		</tr>
		"}

	var/list/mobs = sortmobs()

	for(var/mob/M in mobs)
		if (M.ckey)
			dat += {"
			<tr>
				<td><a href='?src=\ref[src];action=adminplayeropts;target=\ref[M]'>[(M.client ? "[M.client]" : "<em style='opacity: 0.75;'>[M.ckey]</em>")]</a></td>
				<td align="center"><a href='?action=priv_msg&target=[M.ckey]'>PM</a></td>
				<td>[M.name]</td>
				<td>[M.real_name ? "[M.real_name]" : "<em>no real_name</em>"]</td>
				<td>[M.mind ? M.mind.assigned_role : "<em>(no mind/role?)</em>"]</td>
				<td><a href='?src=\ref[src];action=traitor;target=\ref[M]'>[M.mind ? (M.mind.special_role ? "<strong style='color: red;'>" + M.mind.special_role + "</strong>" : "<em>(none)</em>") : "<em>(no mind?)</em>"]</td>
				<td>[M.type]</td>
				<td align="center">[M.computer_id ? M.computer_id : "None"]</td>
				<td align="center">[M.lastKnownIP]</td>
				<td align="center">[M.client ? M.client.joined_date : "<em>(no client)</em>"]</td>
			</tr>
			"}
			LAGCHECK(LAG_LOW)

	dat += {"
		</table>
	</body>
</html>
"}

	usr.Browse(dat, "window=players;size=1035x480")


/datum/admins/proc/s_respawn()
	var/dat = "<html><head><title>Respawn Panel</title></head>"
	dat += {"
			<BR>
			<A href='?src=\ref[src];action=s_rez;type=spawn_normal'>Spawn normal players</A><BR>
			<A href='?src=\ref[src];action=s_rez;type=spawn_job'>Spawn normal players as a job</A><BR>
			<A href='?src=\ref[src];action=s_rez;type=spawn_syndies'>Spawn a Syndicate attack force</A><BR>
			<A href='?src=\ref[src];action=s_rez;type=spawn_syndies'>Spawn a Welder</A><BR>
			<A href='?src=\ref[src];action=s_rez;type=spawn_custom'>Spawn a custom mob type</A><BR>
			"}
	usr.Browse(dat, "window=SRespawn")

	// Someone else removed these but left the (non-functional) buttons. Move back inside the dat section and uncomment to re-add. - IM
	// <A href='?src=\ref[src];action=s_rez;type=spawn_commandos'>Spawn a force of commandos</A><BR>
	// <A href='?src=\ref[src];action=s_rez;type=spawn_turds'>Spawn a T.U.R.D.S. attack force</A><BR>
	// <A href='?src=\ref[src];action=s_rez;type=spawn_smilingman'>Spawn a Smiling Man</A><BR>

/datum/admins/proc/buildjobbanspanel()
	set background = 1
	if (building_jobbans != 0)
		boutput(usr, "Rebuild in progress, please try again later.")
		return

	if (alert("Fix a corrupted local panel or force a complete rebuild of the server's panel?","Select Rebuild Type","Local Fix","Server Rebuild") == "Local Fix")
		var/jobban_dialog_text = replacetext(grabResource("html/admin/jobbans_list.html"), "null /* raw_bans */", "\"[global_jobban_cache]\"");
		usr.Browse(replacetext(jobban_dialog_text, "null /* ref_src */", "\"\ref[src]\""),"file=jobbans.html;display=0")
		current_jobbans_rev = global_jobban_cache_rev
		jobbans_last_cached = world.timeofday
		boutput(usr, "Refresh complete, your panel now matches the server's. If you need to edit a ban that was created after the build time shown please do a server rebuild.")
	else
		boutput(usr, "Rebuilding server cache...")

		building_jobbans = 1

		var/buf = ""
		jobban_count = 0
		for(var/t in jobban_keylist) if (t)
			jobban_count++
			buf += text("[t];")

		global_jobban_cache = buf
		global_jobban_cache_rev++
		global_jobban_cache_built = world.timeofday

		building_jobbans = 0
		boutput(usr, "Rebuild complete, everyone's job ban panel is now up to date with the latest job bans.")


/datum/admins/var/current_jobbans_rev = 0
/datum/admins/var/jobbans_last_cached = 0
/datum/admins/proc/Jobbans()
	set background = 1
	if (src.level >= LEVEL_CODER)
		if (current_jobbans_rev == 0 || current_jobbans_rev < global_jobban_cache_rev) // the cache is newer than our panel
			var/jobban_dialog_text = replacetext(grabResource("html/admin/jobbans_list.html"), "null /* raw_bans */", "\"[global_jobban_cache]\"");
			usr.Browse(replacetext(jobban_dialog_text, "null /* ref_src */", "\"\ref[src]\""),"file=jobbans.html;display=0")
			current_jobbans_rev = global_jobban_cache_rev
			jobbans_last_cached = world.timeofday

		usr.Browse("<html><head><title>Ban Management</title><style type=\"text/css\">body{font-size: 8pt; font-family: Verdana, sans-serif;}</style></head><body><iframe src=\"jobbans.html\"width=\"100%\" height=\"90%\"></iframe>[jobban_count] job bans. banlist built at [time2text(global_jobban_cache_built)] and downloaded at [time2text(jobbans_last_cached)]</body>", "window=jobbanp;size=400x800")

/datum/admins/proc/Game()
	if (!usr) // somehoooow
		return
	// ADMIN PANEL HTML IS HERE
	var/dat = "<title>Admin Game Panel</title>"

	dat += {"<style>
				a {text-decoration:none}
				.optionGroup {padding:5px; margin-bottom:8px; border:1px solid black}
				.optionGroup .title {display:block; color:white; background:black; padding: 2px 5px; margin: -5px -5px 2px -5px}
			</style>"}

	dat += "<div class='optionGroup' style='border-color:#AEC6CF'><b class='title' style='background:#AEC6CF'>Game Info</b>"

	//Map name
	dat += "Current map: <A href='?src=\ref[src];action=switch_map'>[getMapNameFromID(map_setting)]</A>"
	if (mapSwitcher.next)
		dat += " (Next map: [mapSwitcher.next])"

	if (mapSwitcher.votingAllowed)
		dat += " (Vote: <A href='?src=\ref[src];action=start_map_vote'>Start</A> | <A href='?src=\ref[src];action=end_map_vote'>End</A> | <A href='?src=\ref[src];action=cancel_map_vote'>Cancel</A>)"

	dat += "<br>"

	//Station name
	dat += "Station Name: <A href='?src=\ref[src];action=change_station_name'>[station_name()]</A><br>"

	var/shuttletext = " " //setup shuttle message
	if(!emergency_shuttle) return // runtime error fix
	if (emergency_shuttle.online)
		switch(emergency_shuttle.location)
			if(0)// centcom
				if (emergency_shuttle.direction == 1)
					shuttletext = "Coming to Station (ETA: [round(emergency_shuttle.timeleft()/60)])"
				if (emergency_shuttle.direction == -1)
					shuttletext = "Returning to Centcom (ETA: [round(emergency_shuttle.timeleft()/60)])"
			if(1)// ss13
				shuttletext = "Arrived at Station (ETD: [round(emergency_shuttle.timeleft()/60)])"
			if(2)// evacuated
				shuttletext = "Evacuated to Centcom"
			else
				shuttletext = "Unknown"
	else
		shuttletext = "Idle"


	if (ticker)
		if (current_state >= GAME_STATE_PLAYING)
			dat += "Current Mode: [ticker.mode.name], Timer at [round(world.time / 36000)]:[add_zero(world.time / 600 % 60, 2)]:[world.time / 100 % 6][world.time / 100 % 10]<br>"
			if (src.level >= LEVEL_MOD)
				dat += "<A href='?src=\ref[src];action=c_mode_panel'>Change Next Round's Game Mode</A><br>"
			if (emergency_shuttle.online)
				dat += "<a href='?src=\ref[src];action=call_shuttle&type=2'><b>Shuttle Status:</b></a> <a href='?src=\ref[src];action=edit_shuttle_time'>[shuttletext]</a>"
			else
				dat += "<a href='?src=\ref[src];action=call_shuttle&type=1'><b>Shuttle Status:</b></a> <a href='?src=\ref[src];action=edit_shuttle_time'>[shuttletext]</a>"
			dat += "<br>Players Can Call: [src.level >= LEVEL_PA ? "<a href='?src=\ref[src];action=toggle_shuttle_calling'>" : null][emergency_shuttle.disabled ? "No" : "Yes"][src.level >= LEVEL_PA ? "</a>" : null]"
			dat += " | Players Can Recall: [src.level >= LEVEL_PA ? "<a href='?src=\ref[src];action=toggle_shuttle_recalling'>" : null][emergency_shuttle.can_recall ? "Yes" : "No"][src.level >= LEVEL_PA ? "</a>" : null]"
		else if (current_state <= GAME_STATE_PREGAME)
			dat += "Current Mode: [master_mode], Game has not started yet.<br>"
			if (src.level >= LEVEL_MOD)
				dat += "<A href='?src=\ref[src];action=c_mode_panel'>Change Game Mode</A><br>"
			dat += "<b>Force players to use random names:</b> <A href='?src=\ref[src];action=secretsfun;type=forcerandomnames'>[force_random_names ? "Yes" : "No"]</a><br>"
			dat += "<b>Force players to use random appearances:</b> <A href='?src=\ref[src];action=secretsfun;type=forcerandomlooks'>[force_random_looks ? "Yes" : "No"]</a><br>"
			//dat += "<A href='?src=\ref[src];action=secretsfun;type=forcerandomnames'>Politely suggest all players use random names</a>" // lol

	if (src.level >= LEVEL_PA)
		dat += "<hr>"
		dat += "<A href='?src=\ref[src];action=create_object'>Create Object</A><br>"
		dat += "<A href='?src=\ref[src];action=create_turf'>Create Turf</A><br>"
		dat += "<A href='?src=\ref[src];action=create_mob'>Create Mob</A>"
		// Moved from SG to PA. They can do this through build mode anyway (Convair880).

	dat += "</div>"

	dat += {"<hr><div class='optionGroup' style='border-color:#FF6961'><b class='title' style='background:#FF6961'>Admin Tools</b>
				<A href='?src=\ref[src];action=secretsadmin;type=check_antagonist'>Antagonists</A><BR>
				<A href='?src=\ref[src];action=secretsadmin;type=jobcaps'>Job Controls</A><BR>
				<A href='?src=\ref[src];action=secretsadmin;type=randomevents'>Random Event Controls</A><BR>
				<A href='?src=\ref[src];action=secretsadmin;type=artifacts'>Artifact Controls</A><BR>
				<A href='?src=\ref[src];action=secretsadmin;type=pathology'>CDC</A><BR>
				<A href='?src=\ref[src];action=secretsadmin;type=motives'>Motive Control</A><BR>
				<A href='?src=\ref[src];action=secretsadmin;type=ghostnotifier'>Ghost Notification Controls</A><BR>
				<A href='?src=\ref[src];action=secretsadmin;type=unelectrify_all'>De-electrify all Airlocks</A><BR>
				<A href='?src=\ref[src];action=secretsadmin;type=manifest'>Crew Manifest</A> |
				<A href='?src=\ref[src];action=secretsadmin;type=DNA'>Blood DNA</A> |
				<A href='?src=\ref[src];action=secretsadmin;type=fingerprints'>Fingerprints</A>
			"}

	dat += "</div>"

	if (src.level >= LEVEL_SHITGUY)
		dat += {"<hr><div class='optionGroup' style='border-color:#FFB347'><b class='title' style='background:#FFB347'>Coder Tools</b>
					<A href='?src=\ref[src];action=secretsdebug;type=budget'>Wages/Money</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=market'>Shipping Market</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=genetics'>Genetics Research</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=jobs'>Jobs</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=hydro'>Hydroponics</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=manuf'>Manufacturing</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=radio'>Communications</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=randevent'>Random Events</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=disease'>Diseases</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=mechanic'>Mechanics</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=artifact'>Artifacts</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=gauntlet'>Gauntlet</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=colosseum'>Colosseum</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=stock'>Stock Market</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=emshuttle'>Emergency Shuttle</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=datacore'>Data Core</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=miningcontrols'>Mining Controls</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=goonhub'>Goonhub</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=mapsettings'>Map Settings</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=ghostnotifications'>Ghost Notifications</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=overlays'>Overlays</A>
					<A href='?src=\ref[src];action=secretsdebug;type=overlaysrem'>(Remove)</A> |
					<A href='?src=\ref[src];action=secretsdebug;type=globals'>Global Variables</A>
				"}

		dat += "</div>"

	dat += {"<hr><div class='optionGroup' style='border-color:#77DD77'><b class='title' style='background:#77DD77'>Logs</b>
				<A href='?src=\ref[src];action=view_logs;type=all_logs_string'>Search all Logs</A><BR>
				<A href='?src=\ref[src];action=view_logs;type=speech_log'>Speech Log </A>
				<A href='?src=\ref[src];action=view_logs;type=speech_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=combat_log'>Combat Log </A>
				<A href='?src=\ref[src];action=view_logs;type=combat_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=ooc_log'>OOC Log </A>
				<A href='?src=\ref[src];action=view_logs;type=ooc_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=station_log'>Station Log </A>
				<A href='?src=\ref[src];action=view_logs;type=station_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=pdamsg_log'>PDA Message Log </A>
				<A href='?src=\ref[src];action=view_logs;type=pdamsg_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=telepathy_log'>Telepathy Log </A>
				<A href='?src=\ref[src];action=view_logs;type=telepathy_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=admin_log'>Admin Log</A>
				<A href='?src=\ref[src];action=view_logs;type=admin_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=debug_log'>Debug Log</A>
				<A href='?src=\ref[src];action=view_logs;type=debug_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=admin_help_log'>Adminhelp Log</A>
				<A href='?src=\ref[src];action=view_logs;type=admin_help_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=mentor_help_log'>Mentorhelp Log</A>
				<A href='?src=\ref[src];action=view_logs;type=mentor_help_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=bombing_log'>Bombing Log</A>
				<A href='?src=\ref[src];action=view_logs;type=bombing_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=signalers_log'>Signaler Log</A>
				<A href='?src=\ref[src];action=view_logs;type=signalers_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=atmos_log'>Atmos Log</A>
				<A href='?src=\ref[src];action=view_logs;type=atmos_log_string'><small>(Search)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=pathology_log'>Pathology Log</A>
				<A href='?src=\ref[src];action=view_logs;type=pathology_log_string'><small>(Search)</small></A>
				<A href='?src=\ref[src];action=view_logs_pathology_strain'><small>(Find pathogen)</small></A><BR>
				<A href='?src=\ref[src];action=view_logs;type=vehicle_log'>Vehicle Log</A>
				<A href='?src=\ref[src];action=view_logs;type=vehicle_log_string'><small>(Search)</small></A><br>
				<hr>
				<A href='?src=\ref[src];action=view_runtimes'>View Runtimes</A>
			"}

	dat += "</div>"

	// FUN SECRETS PANEL
	if (src.level >= LEVEL_PA || (src.level == LEVEL_SA && usr.client.holder.state == 2))
		dat += {"<hr><div class='optionGroup' style='border-color:#B57EDC'><b class='title' style='background:#B57EDC'>Fun Secrets</b>
					<b>Transformation:</b>
						<A href='?src=\ref[src];action=secretsfun;type=transform_one'>One</A> *
						<A href='?src=\ref[src];action=secretsfun;type=transform_all'>All</A><BR>
					<b>Add Bio-Effect<A href='?src=\ref[src];action=secretsfun;type=bioeffect_help'>*</a>:</b>
						<A href='?src=\ref[src];action=secretsfun;type=add_bioeffect_one'>One</A> *
						<A href='?src=\ref[src];action=secretsfun;type=add_bioeffect_all'>All</A><BR>
					<b>Remove Bio-Effect:</b>
						<A href='?src=\ref[src];action=secretsfun;type=remove_bioeffect_one'>One</A> *
						<A href='?src=\ref[src];action=secretsfun;type=remove_bioeffect_all'>All</A><BR>
					<b>Add Reagent<A href='?src=\ref[src];action=secretsfun;type=reagent_help'>*</a>:</b>
						<A href='?src=\ref[src];action=secretsfun;type=add_reagent_one'>One</A> *
						<A href='?src=\ref[src];action=secretsfun;type=add_reagent_all'>All</A><BR>
					<b>Remove Reagent:</b>
						<A href='?src=\ref[src];action=secretsfun;type=remove_reagent_one'>One</A> *
						<A href='?src=\ref[src];action=secretsfun;type=remove_reagent_all'>All</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=traitor_all'>Make everyone an Antagonist</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=stupify'>Give everyone severe brain damage</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=flipstation'>Set station direction</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=yeolde'>Replace all airlocks with doors</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=woodstation'>Replace all floors and walls with wood</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=ballpit'>Replace all pools with ballpits</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=raiseundead'>Raise all human corpses as undead</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=swaprooms'>Swap station rooms around</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=randomguns'>Give everyone a random firearm</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=timewarp'>Set up a time warp</A><BR>
				"}
	if (src.level >= LEVEL_SHITGUY)
		dat += {"<A href='?src=\ref[src];action=secretsfun;type=sawarms'>Give everyone saws for arms</A><BR>
				<A href='?src=\ref[src];action=secretsfun;type=emag_all_things'>Emag everything</A><BR>
				<A href='?src=\ref[src];action=secretsfun;type=noir'>Noir</A><BR>
				<A href='?src=\ref[src];action=secretsfun;type=the_great_switcharoo'>The Great Switcharoo</A><BR>
				<A href='?src=\ref[src];action=secretsfun;type=fartyparty'>Farty Party All The Time</A><BR>
		"}

	if (src.level >= LEVEL_SHITGUY || (src.level == LEVEL_SA && usr.client.holder.state == 2))
		dat += {"<hr><div class='optionGroup' style='border-color:#92BB78'><b class='title' style='background:#92BB78'>Roleplaying Panel</b>
					<A href='?src=\ref[src];action=secretsfun;type=shakecamera'>Apply camera shake</A><BR>
					<A href='?src=\ref[src];action=secretsfun;type=creepifystation'>Creepify station</A><BR>
				"}

	dat += "</div>"

	usr.Browse(dat, "window=gamepanel")
	return

/datum/admins/proc/restart()
	set category = "Special Verbs"
	set name = "Restart"
	set desc= "Restarts the world"

	if (mapSwitcher.locked)
		return alert("The map switcher is currently compiling the map for next round. You must wait until it finishes.")

	var/confirm = alert("Restart the game world?", "Restart", "Yes", "Cancel")
	if(confirm == "Cancel")
		return
	if(confirm == "Yes")
		boutput(world, "<span style=\"color:red\"><b>Restarting world!</b></span> <span style=\"color:blue\">Initiated by [admin_key(usr.client, 1)]!</span>")
		logTheThing("admin", usr, null, "initiated a reboot.")
		logTheThing("diary", usr, null, "initiated a reboot.", "admin")

		var/ircmsg[] = new()
		ircmsg["key"] = usr.client.key
		ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
		ircmsg["msg"] = "manually restarted the server."
		ircbot.export("admin", ircmsg)

		round_end_data(2) //Wire: Export round end packet (manual restart)

		sleep(30)
		Reboot_server()

/datum/admins/proc/announce()
	set category = "Special Verbs"
	set name = "Announce"
	set desc="Announce your desires to the world"
	var/message = input("Global message to send:", "Admin Announce", null, null)  as message
	if (message)
		if(usr.client.holder.rank != "Coder" && usr.client.holder.rank != "Host")
			message = adminscrub(message,500)
		boutput(world, "<span style=\"color:blue\"><b>[admin_key(usr.client, 1)] Announces:</b><br>&emsp; [message]</span>")
		logTheThing("admin", usr, null, ": [message]")
		logTheThing("diary", usr, null, ": [message]", "admin")

/datum/admins/proc/startnow()
	set category = "Special Verbs"
	set desc="Start the round RIGHT NOW"
	set name="Start Now"
	if(!ticker)
		alert("Unable to start the game as it is not set up.")
		return
	if(current_state <= GAME_STATE_PREGAME)
		current_state = GAME_STATE_SETTING_UP
		logTheThing("admin", usr, null, "has started the game.")
		logTheThing("diary", usr, null, "has started the game.", "admin")
		message_admins("<font color='blue'>[usr.key] has started the game.</font>")
		return 1
	else
		//alert("Game has already started you fucking jerk, stop spamming up the chat :ARGH:") //no, FUCK YOU coder, for making this annoying popup
		boutput(usr,"Game is already started.")
		return 0

/datum/admins/proc/delay_start()
	set category = "Special Verbs"
	set desc="Delay the game start"
	set name="Delay Round Start"

	if (current_state > GAME_STATE_PREGAME)
		return alert("Too late... The game has already started!", null, null, null, null, null)
	game_start_delayed = !(game_start_delayed)

	if (game_start_delayed)
		boutput(world, "<b>The game start has been delayed.</b>")
		logTheThing("admin", usr, null, "delayed the game start.")
		logTheThing("diary", usr, null, "delayed the game start.", "admin")
		message_admins("<font color='blue'>[usr.key] has delayed the game start.</font>")
	else
		boutput(world, "<b>The game will start soon.</b>")
		logTheThing("admin", usr, null, "removed the game start delay.")
		logTheThing("diary", usr, null, "removed the game start delay.", "admin")
		message_admins("<font color='blue'>[usr.key] has removed the game start delay.</font>")

/datum/admins/proc/delay_end()
	set category = "Special Verbs"
	set desc="Delay the server restart"
	set name="Delay Round End"

	if (game_end_delayed == 2)
		logTheThing("admin", usr, null, "removed the restart delay and triggered an immediate restart.")
		logTheThing("diary", usr, null, "removed the restart delay and triggered an immediate restart.", "admin")
		message_admins("<font color='blue'>[usr.key] removed the restart delay and triggered an immediate restart.</font>")
		ircbot.event("roundend")
		Reboot_server()

	else if (game_end_delayed == 0)
		game_end_delayed = 1
		game_end_delayer = usr.key
		logTheThing("admin", usr, null, "delayed the server restart.")
		logTheThing("diary", usr, null, "delayed the server restart.", "admin")
		message_admins("<font color='blue'>[usr.key] delayed the server restart.</font>")

		var/ircmsg[] = new()
		ircmsg["key"] = (usr && usr.client) ? usr.client.key : "NULL"
		ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
		ircmsg["msg"] = "has delayed the server restart."
		ircbot.export("admin", ircmsg)

	else if (game_end_delayed == 1)
		game_end_delayed = 0
		game_end_delayer = null
		logTheThing("admin", usr, null, "removed the restart delay.")
		logTheThing("diary", usr, null, "removed the restart delay.", "admin")
		message_admins("<font color='blue'>[usr.key] removed the restart delay.</font>")

		var/ircmsg[] = new()
		ircmsg["key"] = (usr && usr.client) ? usr.client.key : "NULL"
		ircmsg["name"] = (usr && usr.real_name) ? usr.real_name : "NULL"
		ircmsg["msg"] = "has removed the server restart delay."
		ircbot.export("admin", ircmsg)

/mob/proc/revive()
	if(ishuman(src))
		var/mob/living/carbon/human/H = src
		H.full_heal()
		H.remove_ailments() // don't spawn with heart failure
	return

////////////////////////////////////////////////////////////////////////////////////////////////ADMIN HELPER PROCS

/proc/checktraitor(mob/M as mob)
	set popup_menu = 0
	if(!M || !M.mind || !ticker || !ticker.mode)
		return 0

	if (istraitor(M))
		return 1

	if (istype(ticker.mode, /datum/game_mode/revolution))
		if(M.mind in (ticker.mode:head_revolutionaries + ticker.mode:revolutionaries))
			return 1
	else if (istype(ticker.mode, /datum/game_mode/nuclear))
		if(M.mind in ticker.mode:syndicates)
			return 1
	else if (istype(ticker.mode, /datum/game_mode/spy))
		if(M.mind in (ticker.mode:leaders + ticker.mode:spies))
			return 1
	else if (istype(ticker.mode, /datum/game_mode/gang))
		if(M.mind in (ticker.mode:leaders))
			return 1
		for(var/datum/gang/G in ticker.mode:gangs)
			if(M.mind in G.members)
				return 1

	if(M.mind in ticker.mode:traitors)
		return 1
	if(M.mind in ticker.mode:Agimmicks)
		return 1

	return 0

/datum/admins/proc/evilize(mob/M as mob, var/traitor_type, var/special = null, var/mass_traitor_obj = null, var/mass_traitor_esc = null)
	if (!M || !traitor_type)
		boutput(usr, "<span style=\"color:red\">No mob or traitor type specified.</span>")
		return
	if (!src.level >= LEVEL_SA)
		boutput(usr, "<span style=\"color:red\">You need to be a Secondary Administrator or above to use this command.</span>")
		return
	if(isdead(M) || isobserver(M))
		boutput(usr, "<span style=\"color:red\">You cannot make someone who is dead an antagonist.</span>")
		return
	if (istype(M,/mob/new_player/))
		boutput(usr, "<span style=\"color:red\">You cannot make someone who has not entered the game an antagonist.</span>")
		return
	if (!M.client)
		boutput(usr, "<span style=\"color:red\">You cannot make someone who is logged out an antagonist.</span>")
		return
	if(checktraitor(M))
		boutput(usr, "<span style=\"color:red\">That person is already an antagonist.</span>")
		return
	if(!(ticker && ticker.mode && istype(ticker.mode, /datum/game_mode/gang)) && traitor_type == "gang leader")
		boutput(usr, "<span style=\"color:red\">Gang Leaders are currently restricted to gang mode only.</span>")
		return

	traitor_type = lowertext(traitor_type)
	special = lowertext(special)

	if(mass_traitor_obj)
		var/datum/objective/custom_objective = new /datum/objective(mass_traitor_obj)
		custom_objective.owner = M.mind
		M.mind.objectives += custom_objective

		if(mass_traitor_esc)
			var/datum/objective/escape/escape_objective = new mass_traitor_esc
			escape_objective.owner = M.mind
			M.mind.objectives += escape_objective
	else
		var/list/eligible_objectives = list()
		if (ishuman(M) || iscritter(M))
			eligible_objectives = typesof(/datum/objective/regular/) + typesof(/datum/objective/escape/)
		else if (issilicon(M))
			eligible_objectives = list(/datum/objective/regular,/datum/objective/regular/assassinate,
			/datum/objective/regular/force_evac_time,/datum/objective/regular/gimmick,/datum/objective/escape,/datum/objective/escape/hijack,
			/datum/objective/escape/survive,/datum/objective/escape/kamikaze)
			/*if (isrobot(M))
				eligible_objectives += /datum/objective/regular/borgdeath*/
			traitor_type = "traitor"
		switch(traitor_type)
			if ("changeling")
				eligible_objectives += /datum/objective/specialist/absorb
			if ("werewolf")
				eligible_objectives += /datum/objective/specialist/werewolf/feed
			if ("vampire")
				eligible_objectives += /datum/objective/specialist/drinkblood
			if ("hunter")
				eligible_objectives += /datum/objective/specialist/hunter/trophy
			if ("grinch")
				eligible_objectives += /datum/objective/specialist/ruin_xmas
			if ("gang leader")
				var/datum/objective/gangObjective = new /datum/objective/specialist/gang(  )
				gangObjective.owner = M.mind
				M.mind.objectives += gangObjective
		var/done = 0
		var/select_objective = null
		var/datum/objective/new_objective = null
		var/custom_text = "Go hog wild!"
		while (done != 1)
			select_objective = input(usr, "Add a new objective. Hit cancel when finished adding.", "Traitor Objectives") as null|anything in eligible_objectives
			if (!select_objective)
				done = 1
				break
			if (select_objective == /datum/objective/regular)
				custom_text = input(usr,"Enter custom objective text.","Traitor Objectives","Go hog wild!") as null|text
				if (custom_text)
					new_objective = new select_objective(custom_text)
					new_objective.owner = M.mind
					new_objective.set_up()
					M.mind.objectives += new_objective
				else
					boutput(usr, "<span style=\"color:red\">No text was entered. Objective not given.</span>")
			else
				new_objective = new select_objective
				new_objective.owner = M.mind
				new_objective.set_up()
				M.mind.objectives += new_objective

		if (M.mind.objectives.len < 1)
			boutput(usr, "<span style=\"color:red\">Not enough objectives specified.</span>")
			return

	if (isAI(M))
		var/mob/living/silicon/ai/A = M
		A.syndicate = 1
		A.syndicate_possible = 1
		A.handle_robot_antagonist_status("admin", 0, usr)
	else if (isrobot(M))
		var/mob/living/silicon/robot/R = M
		if (R.dependent)
			boutput(usr, "<span style=\"color:red\">You can't evilize AI-controlled shells.</span>")
			return
		R.syndicate = 1
		R.syndicate_possible = 1
		R.handle_robot_antagonist_status("admin", 0, usr)
	else if (ishuman(M) || iscritter(M))
		switch(traitor_type)
			if("traitor")
				M.show_text("<h2><font color=red><B>You have defected and become a traitor!</B></font></h2>", "red")
				if(special != "hardmode")
					M.mind.special_role = "traitor"
					M.verbs += /client/proc/gearspawn_traitor
					SHOW_TRAITOR_RADIO_TIPS(M)
				else
					M.mind.special_role = "hard-mode traitor"
					SHOW_TRAITOR_HARDMODE_TIPS(M)
			if("changeling")
				M.mind.special_role = "changeling"
				M.show_text("<h2><font color=red><B>You have mutated into a changeling!</B></font></h2>", "red")
				M.make_changeling()
			if("wizard")
				M.mind.special_role = "wizard"
				M.show_text("<h2><font color=red><B>You have been seduced by magic and become a wizard!</B></font></h2>", "red")
				SHOW_ADMINWIZARD_TIPS(M)
				M.verbs += /client/proc/gearspawn_wizard
			if("vampire")
				M.mind.special_role = "vampire"
				M.show_text("<h2><font color=red><B>You have joined the ranks of the undead and are now a vampire!</B></font></h2>", "red")
				M.make_vampire()
			if("hunter")
				M.mind.special_role = "hunter"
				M.mind.assigned_role = "Hunter"
				M.show_text("<h2><font color=red><B>You have become a hunter!</B></font></h2>", "red")
				M.make_hunter()
			if("wrestler")
				M.mind.special_role = "wrestler"
				M.show_text("<h2><font color=red><B>You feel an urgent need to wrestle!</B></font></h2>", "red")
				M.make_wrestler(1)
			if("werewolf")
				M.mind.special_role = "werewolf"
				M.show_text("<h2><font color=red><B>You have become a werewolf!</B></font></h2>", "red")
				M.make_werewolf(1)
			if("grinch")
				M.mind.special_role = "grinch"
				M.make_grinch()
				M.show_text("<h2><font color=red><B>You have become a grinch!</B></font></h2>", "red")
			if("gang leader")
				// hi so this tried in the past to make someone a gang leader without, uh, giving them a gang
				// seeing as gang leaders are only allowed during the gang gamemode, this should work
				// error checks included anyways
				if(istype(ticker)) // the day we assume the foundation of the world exists is the day it crumbles into sand
					var/datum/game_mode/gang/G = ticker.mode
					if(istype(G))
						G.generate_gang(M.mind)
					else
						boutput(usr, "<span class='text-red'>The game mode isn't gang (or something is deeply fucked up).</span>")
						return

				boutput(M, "<h1><font color=red>You are the leader of the [M.mind.gang.gang_name] gang!</font></h1>")
				boutput(M, "<span style=\"color:red\">You must recruit people to your cause and fight other gangs!</span>")
				boutput(M, "<span style=\"color:red\">You may kill anyone you want, but are advised to convince them to join you instead!</span>")
				boutput(M, "<span style=\"color:red\">You can use the Set Gang Base command once which will make your current area into your gang's base and spawn a locker.</span>")
				boutput(M, "<span style=\"color:red\">You can get gear from your gang's locker. You must store guns, drugs and cash there for points.</span>")
				boutput(M, "<span style=\"color:red\">People can join your gang by reading a flyer, obtained from your gang locker.</span>")
				boutput(M, "<span style=\"color:red\">Your objectives are to <b>kill the opposing gang leaders</b>, and <b>stash guns, drugs and cash in your locker</b>.</span>")
				M.verbs += /client/proc/set_gang_base
				alert(M, "Use the Set Gang Base verb to claim a home turf, and start recruiting people with flyers from the locker!", "You are a gang leader!")
			if("omnitraitor")
				M.mind.special_role = "omnitraitor"
				M.verbs += /client/proc/gearspawn_traitor
				M.verbs += /client/proc/gearspawn_wizard
				M.make_changeling()
				M.make_vampire()
				M.make_werewolf(1)
				M.make_wrestler(1)
				M.make_grinch()
				M.show_text("<h2><font color=red><B>You have become an omnitraitor!</B></font></h2>", "red")
				SHOW_TRAITOR_OMNI_TIPS(M)
			if("spy_thief")
				if (M.stat || !isliving(M) || isintangible(M) || !ishuman(M) || !M.mind)
					return
				M.show_text("<h1><font color=red><B>You have defected to a Spy Thief!</B></font></h1>", "red")
				M.mind.special_role = "spy_thief"
				var/mob/living/carbon/human/tmob = M
				var/objective_set_path = /datum/objective_set/spy_theft
				new objective_set_path(M.mind)
				equip_spy_theft(tmob)

	else
		M.show_text("<h2><font color=red><B>You have become evil and are now an antagonist!</B></font></h2>", "red")

	if (!(M.mind in ticker.mode.Agimmicks))
		ticker.mode.Agimmicks += M.mind

	if (M.mind.current)
		M.mind.current.antagonist_overlay_refresh(1, 0)

	var/obj_count = 1
	for(var/datum/objective/OBJ in M.mind.objectives)
		boutput(M, "<B>Objective #[obj_count]</B>: [OBJ.explanation_text]")
		obj_count++

	//to stop spamming during traitor all secret
	if(!mass_traitor_obj)
		logTheThing("admin", usr, M, "made %target% a[special ? " [special]" : ""] [traitor_type].")
		logTheThing("diary", usr, M, "made %target% a[special ? " [special]" : ""] [traitor_type].", "admin")
		message_admins("<span style=\"color:blue\">[key_name(usr)] has made [key_name(M)] a[special ? " [special]" : ""] [traitor_type].</span>")
	return

/datum/admins/proc/get_item_desc(var/target)
	switch (target)
		if (1)
			return "a fully loaded laser gun"
		if (2)
			return "a hand teleporter"
		if (3)
			return "a fully armed and heated plasma bomb"
		if (4)
			return "a jet pack"
		if (5)
			return "an ID card with universal access"
		if (6)
			return "a captain's dark green jumpsuit"
		else
			return "Error: Invalid theft target: [target]"

/proc/get_matches_string(var/text, var/list/possibles)
	var/list/matches = new()
	for (var/possible in possibles)
		if (findtext(possible, text))
			matches += possible

	return matches

/proc/get_one_match_string(var/text, var/list/possibles)
	var/list/matches = get_matches_string(text, possibles)
	if (matches.len == 0)
		return null
	var/chosen
	if (matches.len == 1)
		chosen = matches[1]
	else
		chosen = input("Select a match", "matches for pattern", null) as null|anything in matches
		if (!chosen)
			return null

	return chosen

/proc/get_matches(var/object, var/base = /atom)
	var/list/types = typesof(base)

	var/list/matches = new()

	for(var/path in types)
		if(findtext("[path]", object))
			matches += path

	return matches

/proc/get_one_match(var/object, var/base = /atom)
	var/list/matches = get_matches(object, base)

	if(matches.len==0)
		return null

	var/chosen
	if(matches.len==1)
		chosen = matches[1]
	else
		var/safe_matches = matches - list(/database, /client, /icon, /sound, /savefile)
		chosen = input("Select an atom type", "Matches for pattern", null) as null|anything in safe_matches
		if(!chosen)
			return null

	return chosen

/datum/admins/proc/spawn_atom(var/object as text)
	set category = "Special Verbs"
	set desc="(atom path) Spawn an atom"
	set name="Spawn"

	if (usr.client.holder.level >= LEVEL_CODER)
		var/chosen = get_one_match(object)

		if (chosen)
			if (ispath(chosen, /turf))
				var/turf/location = get_turf(usr)
				if (location)
					location.ReplaceWith(chosen, handle_air = 0)
			else
				var/atom/movable/A = new chosen()
				A.set_loc(usr.loc)
				if (usr.client.flourish)
					spawn_animation1(A)
			logTheThing("admin", usr, null, "spawned [chosen] at ([showCoords(usr.x, usr.y, usr.z)])")
			logTheThing("diary", usr, null, "spawned [chosen] at ([showCoords(usr.x, usr.y, usr.z, 1)])", "admin")

	else
		alert("You cannot perform this action. You must be of a higher administrative rank!", null, null, null, null, null)
		return

/datum/admins/proc/show_chatbans(var/client/C)//do not use this as an example of how to write DM please.
	if( !C.cloud_available() )
		alert( "Failed to communicate to Goonhub." )
		return
	var/built = {"<title>Chat Bans (todo: prettify)</title>"}
	if(C.cloud_get( "adminhelp_banner" ))
		built += "<a href='?src=\ref[src];target=\ref[C];action=ah_unmute' style='color:red'>Adminhelp Mute</a> (Last by [C.cloud_get( "adminhelp_banner" )])<br/>"
		logTheThing("admin", src, C, "unmuted %target% from adminhelping.")
	else
		built += "<a href='?src=\ref[src];target=\ref[C];action=ah_mute'>Adminhelp Mute</a><br/>"
		logTheThing("admin", src, C, "muted %target% from adminhelping.")

	if(C.cloud_get( "mentorhelp_banner" ))
		built += "<a href='?src=\ref[src];target=\ref[C];action=mh_unmute' style='color:red'>Mentorhelp Mute</a> (Last by [C.cloud_get( "mentorhelp_banner" )])<br/>"
		logTheThing("admin", src, C, "unmuted %target% from mentorhelping.")
	else
		built += "<a href='?src=\ref[src];target=\ref[C];action=mh_mute'>Mentorhelp Mute</a><br/>"
		logTheThing("admin", src, C, "muted %target% from mentorhelping.")

	usr.Browse(built, "window=chatban;size=500x100")

/client/proc/respawn_target(mob/M as mob in world, var/forced = 0)
	set name = "Respawn Target"
	set category = null
	set desc = "Respawn a mob"
	set popup_menu = 0
	if (!M) return

	if (!forced && alert(src, "Respawn [M]?", "Confirmation", "Yes", "No") != "Yes")
		return

	logTheThing("admin", src, M, "respawned %target%")
	logTheThing("diary", src, M, "respawned %target%.", "admin")
	message_admins("[key_name(src)] respawned [key_name(M)].")

	var/mob/new_player/newM = new()
	newM.adminspawned = 1

	newM.key = M.key
	if (M.mind)
		M.mind.damned = 0
		M.mind.transfer_to(newM)
	newM.Login()
	newM.sight = SEE_TURFS //otherwise the HUD remains in the login screen
	qdel(M)

	boutput(newM, "<b>You have been respawned.</b>")
	return newM

/client/proc/respawn_self()
	set name = "Respawn Self"
	set category = "Special Verbs"
	set desc = "Respawn yourself"

	if(!isobserver(usr))
		boutput(usr, "You can't respawn unless you're dead!")
		return

	logTheThing("admin", src, null, "respawned themselves.")
	logTheThing("diary", src, null, "respawned themselves.", "admin")
	message_admins("[key_name(src)] respawned themselves.")

	var/mob/new_player/M = new()

	M.key = usr.client.key
	M.Login()

/client/proc/smnoclip()
	set name = "Planar Shift"
	set category = "Smiling Man Powers"
	set desc = "Shift planes to toggle moving through walls and objects."

	if(!isliving(usr))
		return

	usr.client.flying = !usr.client.flying
	boutput(usr, "You are [usr.client.flying ? "now" : "no longer"] flying through matter.")

/client/Move(NewLoc, direct)
	if(usr.client.flying)
		if(!isturf(usr.loc))
			usr.set_loc(get_turf(usr))

		if(NewLoc)
			usr.set_loc(NewLoc)
			src.mob.dir = direct
			return

		if((direct & NORTH) && usr.y < world.maxy)
			usr.y++
		if((direct & SOUTH) && usr.y > 1)
			usr.y--
		if((direct & EAST) && usr.x < world.maxx)
			usr.x++
		if((direct & WEST) && usr.x > 1)
			usr.x--

		src.mob.dir = direct
	else
		..()

/*
/mob/living/carbon/proc/cloak()
	//Buggy as heck because of the way updating clothing works (it clears all invisibility variables and sets them based on if you have a cloaking device on or not)
	//It also clears overlays so the overlay will dissapear and bluh, I don't want to add another variable sooo this is what you get I guess.
	//If the overlay dissapears you lose the cloaking too, so just retype cloak-self and it should work again
	//If you don't lay down or force yourself to update clothing via fire or whatever it should be good enough to use for the purpose of spying on shitlords I guess.
	set name = "Cloak self"
	set category = "Special Verbs"
	set desc = "Make yourself invisible!"

	if (!iscarbon(usr))
		boutput(usr, "Sorry, you have to be alive!")
		return

	if(!(usr.invisibility == 100))
		boutput(usr, "You are now cloaked")
		usr.set_clothing_icon_dirty()

		usr.overlays += image("icon" = 'icons/mob/mob.dmi', "icon_state" = "shield")

		usr.invisibility = 100
	else
		boutput(usr, "You are no longer cloaked")

		usr.set_clothing_icon_dirty()
		usr.invisibility = 0
*/
//
//
//ALL DONE
//*********************************************************************************************************
//
//