#define MASS_FILL			0
#define MASS_DELETE			1
#define SELECTIVE_DELETE	2
#define SELECTIVE_FILL		3
/proc/togglebuildmode(mob/M as mob in player_list)
	set name = "Toggle Build Mode"
	set category = "Special Verbs"
	//writepanic("[__FILE__].[__LINE__] (no type)([usr ? usr.ckey : ""])  \\/proc/togglebuildmode() called tick#: [world.time]")

	if(M.client)
		if(M.client.buildmode)
			log_admin("[key_name(usr)] has left build mode.")
			M.client.buildmode = 0
			M.client.show_popup_menus = 1
			var/obj/effect/bmode/buildholder/holder = null
			for(var/obj/effect/bmode/buildholder/H in buildmodeholders)
				if(H.cl == M.client)
					holder = H
					break
			if(holder) holder.buildmode.copycat = null
			if(M.client.buildmode_objs && M.client.buildmode_objs.len)
				for(var/BM in M.client.buildmode_objs)
					returnToPool(BM)
		else
			log_admin("[key_name(usr)] has entered build mode.")
			M.client.buildmode = 1
			M.client.show_popup_menus = 0

			var/obj/effect/bmode/buildholder/hold = getFromPool(/obj/effect/bmode/buildholder)
			hold.builddir = getFromPool(/obj/effect/bmode/builddir,hold)
			hold.buildhelp = getFromPool(/obj/effect/bmode/buildhelp,hold)
			hold.buildmode = getFromPool(/obj/effect/bmode/buildmode,hold)
			hold.buildquit = getFromPool(/obj/effect/bmode/buildquit,hold)
			M.client.screen += list(hold.builddir,hold.buildhelp,hold.buildmode,hold.buildquit)
			hold.cl = M.client
			M.client.buildmode_objs |= list(hold,hold.builddir,hold.buildhelp,hold.buildmode,hold.buildquit)

/obj/effect/bmode//Cleaning up the tree a bit
	density = 1
	anchored = 1
	layer = 20
	dir = NORTH
	icon = 'icons/misc/buildmode.dmi'
	var/obj/effect/bmode/buildholder/master = null

/obj/effect/bmode/New()
	..()
	master = loc

/obj/effect/bmode/Destroy()
	..()
	if(master && master.cl)
		master.cl.buildmode_objs &= ~src
		master.cl.screen -= src

/obj/effect/bmode/builddir
	icon_state = "build"
	screen_loc = "NORTH,WEST"
	Click()
		switch(dir)
			if(NORTH)
				dir = EAST
			if(EAST)
				dir = SOUTH
			if(SOUTH)
				dir = WEST
			if(WEST)
				dir = SOUTHWEST
			if(SOUTHWEST)
				dir = NORTH
		return 1
	DblClick(object,location,control,params)
		return Click(object,location,control,params)

/obj/effect/bmode/buildhelp
	icon = 'icons/misc/buildmode.dmi'
	icon_state = "buildhelp"
	screen_loc = "NORTH,WEST+1"
	Click()
		switch(master.cl.buildmode)
			if(1)
				usr << "<span class='notice'>***********************************************************</span>"
				usr << "<span class='notice'>Click and drag to do a fill operation</span>"
				usr << "<span class='notice'>Left Mouse Button        = Construct / Upgrade</span>"
				usr << "<span class='notice'>Right Mouse Button       = Deconstruct / Delete / Downgrade</span>"
				usr << "<span class='notice'>Left Mouse Button + ctrl = R-Window</span>"
				usr << "<span class='notice'>Left Mouse Button + alt  = Airlock</span>"
				usr << ""
				usr << "<span class='notice'>Use the button in the upper left corner to</span>"
				usr << "<span class='notice'>change the direction of built objects.</span>"
				usr << "<span class='notice'>***********************************************************</span>"
			if(2)
				usr << "<span class='notice'>***********************************************************</span>"
				usr << "<span class='notice'>Click and drag to do a fill operation</span>"
				usr << "<span class='notice'>Right Mouse Button on buildmode button = Set object type</span>"
				usr << "<span class='notice'>Left Mouse Button on turf/obj          = Place objects</span>"
				usr << "<span class='notice'>Right Mouse Button                     = Delete objects</span>"
				usr << "<span class='notice'>Middle Mouse Button                    = Copy atom</span>"
				usr << ""
				usr << "<span class='notice'>Ctrl+Shift+Left Mouse Button           = Sets bottom left corner for fill mode</span>"
				usr << "<span class='notice'>Ctrl+Shift+Right Mouse Button           = Sets top right corner for fill mode</span>"

				usr << ""
				usr << "<span class='notice'>Use the button in the upper left corner to</span>"
				usr << "<span class='notice'>change the direction of built objects.</span>"
				usr << "<span class='notice'>***********************************************************</span>"
			if(3)
				usr << "<span class='notice'>***********************************************************</span>"
				usr << "<span class='notice'>Click and drag to do a mass edit operation</span>"
				usr << "<span class='notice'>Right Mouse Button on buildmode button = Select var(type) & value</span>"
				usr << "<span class='notice'>Left Mouse Button on turf/obj/mob      = Set var(type) & value</span>"
				usr << "<span class='notice'>Right Mouse Button on turf/obj/mob     = Reset var's value</span>"
				usr << "<span class='notice'>***********************************************************</span>"
			if(4)
				usr << "<span class='notice'>***********************************************************</span>"
				usr << "<span class='notice'>Left Mouse Button on turf/obj/mob      = Select</span>"
				usr << "<span class='notice'>Right Mouse Button on turf/obj/mob     = Throw</span>"
				usr << "<span class='notice'>***********************************************************</span>"
		return 1
	DblClick(object,location,control,params)
		return Click(object,location,control,params)

/obj/effect/bmode/buildquit
	icon_state = "buildquit"
	screen_loc = "NORTH,WEST+3"

	Click()
		togglebuildmode(master.cl.mob)
		return 1
	DblClick(object,location,control,params)
		return Click(object,location,control,params)

var/global/list/obj/effect/bmode/buildholder/buildmodeholders = list()
/obj/effect/bmode/buildholder
	density = 0
	anchored = 1
	var/client/cl = null
	var/obj/effect/bmode/builddir/builddir = null
	var/obj/effect/bmode/buildhelp/buildhelp = null
	var/obj/effect/bmode/buildmode/buildmode = null
	var/obj/effect/bmode/buildquit/buildquit = null
	var/atom/movable/throw_atom = null
	var/turf/fill_left
	var/turf/fill_right

obj/effect/bmode/buildholder/New()
	..()
	buildmodeholders |= src

/obj/effect/bmode/buildholder/Destroy()
	..()
	cl.screen -= list(builddir,buildhelp,buildmode,buildquit)
	cl.buildmode_objs &= ~list(builddir,buildhelp,buildmode,buildquit,src)
	buildmodeholders -= src

/obj/effect/bmode/buildmode
	icon_state = "buildmode1"
	screen_loc = "NORTH,WEST+2"
	var/varholder = "name"
	var/valueholder = "derp"
	var/objholder = /obj/structure/closet
	var/atom/copycat

/obj/effect/bmode/buildmode/Click(location, control, params)
	var/list/pa = params2list(params)

	if(pa.Find("left"))
		switch(master.cl.buildmode)
			if(1)
				master.cl.buildmode = 2
				src.icon_state = "buildmode2"
			if(2)
				master.cl.buildmode = 3
				src.icon_state = "buildmode3"
			if(3)
				master.cl.buildmode = 4
				src.icon_state = "buildmode4"
			if(4)
				master.cl.buildmode = 1
				src.icon_state = "buildmode1"

	else if(pa.Find("right"))
		switch(master.cl.buildmode)
			if(1)
				return 1
			if(2)
				copycat = null
				objholder = text2path(input(usr,"Enter typepath:" ,"Typepath","/obj/structure/closet"))
				if(!ispath(objholder))
					objholder = /obj/structure/closet
					alert("That path is not allowed.")
				else
					if(ispath(objholder,/mob) && !check_rights(R_DEBUG,0))
						objholder = /obj/structure/closet
			if(3)
				var/list/locked = list("vars", "key", "ckey", "client", "firemut", "ishulk", "telekinesis", "xray", "virus", "viruses", "cuffed", "ka", "last_eaten", "urine")

				master.buildmode.varholder = input(usr,"Enter variable name:" ,"Name", "name")
				if(master.buildmode.varholder in locked && !check_rights(R_DEBUG,0))
					return 1
				var/thetype = input(usr,"Select variable type:" ,"Type") in list("text","number","mob-reference","obj-reference","turf-reference")
				if(!thetype) return 1
				switch(thetype)
					if("text")
						master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value", "value") as text
					if("number")
						master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value", 123) as num
					if("mob-reference")
						master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value") as mob in mob_list
					if("obj-reference")
						master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value") as obj in world
					if("turf-reference")
						master.buildmode.valueholder = input(usr,"Enter variable value:" ,"Value") as turf in world
	return 1
/obj/effect/bmode/buildmode/DblClick(object,location,control,params)
	return Click(object,location,control,params)

/client/MouseWheel(object,delta_x,delta_y,location,control,params)
	if(istype(mob,/mob/dead/observer) || buildmode) //DEAD FAGS CAN ZOOM OUT THIS WILL END POORLY
		if(delta_y > 0)
			view--
		else
			view++
		view = max(view,1)
		haszoomed = 1
	..()

/client/MouseDrop(src_object,over_object,src_location,over_location,src_control,over_control,params)
	if(!src.buildmode)
		return ..()
	var/obj/effect/bmode/buildholder/holder = null
	for(var/obj/effect/bmode/buildholder/H in buildmodeholders)
		if(H.cl == src)
			holder = H
			break
	if(!holder) return
	var/turf/start = get_turf(src_location)
	var/turf/end = get_turf(over_location)
	if(!start || !end) return
	switch(buildmode)
		if(1 to 2)
			var/list/fillturfs = block(start,end)
			if(fillturfs.len)
				if(alert("You're about to do a fill operation spanning [fillturfs.len] tiles, are you sure?","Panic","Yes","No") == "Yes")
					if(fillturfs.len > 150)
						if(alert("Are you completely sure about filling [fillturfs.len] tiles?","Panic!!!!","Yes","No") != "Yes")
							return
					var/areaAction = alert("FILL tiles or DELETE them? areaAction will destroy EVERYTHING IN THE SELECTED AREA", "Create or destroy, your chance to be a GOD","FILL","DELETE") == "DELETE"
					if(areaAction) areaAction = (alert("Selective(TYPE) Delete or MASS Delete?", "Scorched Earth or selective destruction?", "Selective", "MASS") == "Selective" ? 2 : 1)
					else
						areaAction = (alert("Mass FILL or Selective(Type => Type) FILL?", "Do they really need [fillturfs.len] of closets?", "Selective", "Mass") == "Selective" ? 3 : 0)

					var/whatfill = (buildmode == 1 ? input("What are we filling with?", "So many choices") as null|anything in list(/turf/simulated/floor,/turf/simulated/wall,/turf/simulated/wall/r_wall,/obj/machinery/door/airlock, /obj/structure/window/reinforced) : holder.buildmode.objholder)
					if(!whatfill) return
					var/msglog = "<span class='danger'>[key_name_admin(usr)] just buildmode"
					var/strict = 1
					var/chosen
					switch(areaAction)
						if(MASS_DELETE)
							msglog += " <big>DELETED EVERYTHING</big> in [fillturfs.len] tile\s "
						if(SELECTIVE_DELETE)
							chosen = easyTypeSelector()
							if(!chosen) return
							strict = alert("Delete all children of [chosen]?", "Children being all types and subtypes of [chosen]", "Yes", "No") == "No"
							msglog += " <big>DELETED [!strict ? "ALL TYPES OF " :""][chosen]</big> in [fillturfs.len] tile\s "
						if(SELECTIVE_FILL)
							chosen = easyTypeSelector()
							if(!chosen) return
							strict = alert("Change all children of [chosen]?", "Children being all types and subtypes of [chosen]", "Yes", "No") == "No"
							msglog += " Changed all [chosen] in [fillturfs.len] tile\s to [whatfill] "
						else
							msglog += " FILLED [fillturfs.len] tile\s with [whatfill] "
					msglog += "at ([formatJumpTo(start)] to [formatJumpTo(end)])</span>"
					message_admins(msglog)
					log_admin(msglog)
					usr << "<span class='notice'>If the server is lagging the operation will periodically sleep so the fill may take longer than typical.</span>"
					var/turf_op = ispath(whatfill, /turf)
					var/deletions = 0
					for(var/turf/T in fillturfs)
						if(areaAction == MASS_DELETE || areaAction == SELECTIVE_DELETE)
							if(ispath(chosen, /turf))
								T.ChangeTurf(chosen)
								deletions++
							else
								for(var/atom/thing in T.contents)
									if(thing==usr) continue
									if(areaAction == MASS_DELETE || (strict && thing.type == chosen) || istype(thing,chosen))
										qdel(thing)
									deletions++
									tcheck(80,1)
								if(areaAction == MASS_DELETE) T.ChangeTurf(get_base_turf(T.z))
						else
							if(turf_op)
								if(areaAction == SELECTIVE_FILL)
									if(strict)
										if(T.type != chosen) continue
									else
										if(!istype(T, chosen)) continue
								T.ChangeTurf(whatfill)
							else
								if(areaAction == SELECTIVE_FILL)
									for(var/atom/thing in T.contents)
										if(strict)
											if(thing.type != chosen) continue
										else
											if(!istype(thing, chosen)) continue
										var/atom/A = new whatfill(T)
										A.dir = thing.dir
										qdel(thing)
										tcheck(80,1)
								else
									var/obj/A = new whatfill(T)
									if(istype(A))
										A.dir = holder.builddir.dir
						tcheck(80,1)
					if(deletions) usr << "<span class='info'>Successfully deleted [deletions] [chosen]'\s</span>"
		if(3)
			var/list/fillturfs = block(start,end)
			if(fillturfs.len)
				if(alert("You're about to do a mass edit operation spanning [fillturfs.len] tiles, are you sure?","Panic","Yes","No") == "Yes")
					if(fillturfs.len > 150)
						if(alert("Are you completely sure about mass editng [fillturfs.len] tiles?","Panic!!!!","Yes","No") != "Yes")
							return

					var/areaAction = (alert("Selective(TYPE) Edit or MASS Edit?", "Editing things one by one sure is annoying", "Selective", "MASS") == "Selective" ? 2 : 1)
					var/reset = alert("Reset target variable to initial value?", "Aw shit cletus i dun fucked up", "Yes", "No") == "Yes" ? 1 : 0


					var/msglog = "<span class='danger'>[key_name_admin(usr)] just buildmode"
					var/strict = 1
					var/chosen
					switch(areaAction)
						if(MASS_DELETE)
							msglog += " <big>EDITED EVERYTHING</big> in [fillturfs.len] tile\s "
						if(SELECTIVE_DELETE)
							chosen = easyTypeSelector()
							if(!chosen) return
							strict = alert("Edit all children of [chosen]?", "Children being all types and subtypes of [chosen]", "Yes", "No") == "No"
							msglog += " <big>EDITED [!strict ? "ALL TYPES OF " :""][chosen]</big> in [fillturfs.len] tile\s "
						else
							return
					msglog += "at ([formatJumpTo(start)] to [formatJumpTo(end)])</span>"
					message_admins(msglog)
					log_admin(msglog)
					usr << "<span class='notice'>If the server is lagging the operation will periodically sleep so the mass edit may take longer than typical.</span>"
					var/edits = 0
					for(var/turf/T in fillturfs)
						if(ispath(chosen, /turf))
							setvar(holder.buildmode.varholder, holder.buildmode.valueholder, T, reset)
						else
							for(var/atom/thing in T.contents)
								if(thing==usr) continue
								if(areaAction == MASS_DELETE || (strict && thing.type == chosen) || istype(thing,chosen))
									setvar(holder.buildmode.varholder, holder.buildmode.valueholder, thing, reset)
									edits++
								tcheck(80,1)
						edits++
						tcheck(80,1)
					if(edits) usr << "<span class='info'>Successfully edited [edits] [chosen]'\s</span>"
		else return





/proc/build_click(var/mob/user, buildmode, params, var/obj/object)
	//writepanic("[__FILE__].[__LINE__] (no type)([usr ? usr.ckey : ""])  \\/proc/build_click() called tick#: [world.time]")
	var/obj/effect/bmode/buildholder/holder = null
	for(var/obj/effect/bmode/buildholder/H in buildmodeholders)
		if(H.cl == user.client)
			holder = H
			break
	if(!holder) return
	var/list/pa = params2list(params)
	var/turf/RT = get_turf(object)
	switch(buildmode)
		if(1)
			if(istype(object,/turf) && pa.Find("left") && !pa.Find("alt") && !pa.Find("ctrl") )
				if(istype(object,/turf/space))
					var/turf/T = object
					T.ChangeTurf(/turf/simulated/floor)
					log_admin("[key_name(usr)] made a floor at [formatJumpTo(T)]")
					return
				else if(istype(object,/turf/simulated/floor))
					var/turf/T = object
					T.ChangeTurf(/turf/simulated/wall)
					log_admin("[key_name(usr)] made a wall at [formatJumpTo(T)]")
					return
				else if(istype(object,/turf/simulated/wall))
					var/turf/T = object
					T.ChangeTurf(/turf/simulated/wall/r_wall)
					log_admin("[key_name(usr)] made a rwall at [formatJumpTo(T)]")
					return
			else if(pa.Find("right"))
				if(istype(object,/turf/simulated/wall))
					var/turf/T = object
					T.ChangeTurf(/turf/simulated/floor)
					log_admin("[key_name(usr)] removed a wall at [formatJumpTo(T)]")
					return
				else if(istype(object,/turf/simulated/floor))
					var/turf/T = object
					T.ChangeTurf(/turf/space)
					log_admin("[key_name(usr)] removed flooring at [formatJumpTo(T)]")
					return
				else if(istype(object,/turf/simulated/wall/r_wall))
					var/turf/T = object
					T.ChangeTurf(/turf/simulated/wall)
					log_admin("[key_name(usr)] downgraded an rwall at [formatJumpTo(T)]")
					return
				else if(istype(object,/obj))
					del(object)
					return
			else if(istype(object,/turf) && pa.Find("alt") && pa.Find("left"))
				new/obj/machinery/door/airlock(get_turf(object))
				log_admin("[key_name(usr)] made an airlock at [formatJumpTo(RT)]")
			else if(istype(object,/turf) && pa.Find("ctrl") && pa.Find("left"))
				log_admin("[key_name(usr)] made a window at [formatJumpTo(RT)]")
				switch(holder.builddir.dir)
					if(NORTH)
						var/obj/structure/window/reinforced/WIN = new/obj/structure/window/reinforced(get_turf(object))
						WIN.dir = NORTH
					if(SOUTH)
						var/obj/structure/window/reinforced/WIN = new/obj/structure/window/reinforced(get_turf(object))
						WIN.dir = SOUTH
					if(EAST)
						var/obj/structure/window/reinforced/WIN = new/obj/structure/window/reinforced(get_turf(object))
						WIN.dir = EAST
					if(WEST)
						var/obj/structure/window/reinforced/WIN = new/obj/structure/window/reinforced(get_turf(object))
						WIN.dir = WEST
					if(SOUTHWEST)
						new/obj/structure/window/full/reinforced(get_turf(object))
		if(2)
			if(pa.Find("ctrl") && pa.Find("shift"))
				if(!holder)
					return
				if(pa.Find("left"))
					holder.fill_left = RT
					usr << "<span class='notice'>Set bottom left fill corner to ([formatJumpTo(RT)])</span>"
				else if(pa.Find("right"))
					holder.fill_right = RT
					usr << "<span class='notice'>Set top right fill corner to ([formatJumpTo(RT)])</span>"
				if(holder.fill_left && holder.fill_right)
					var/turf/start = holder.fill_left
					var/turf/end = holder.fill_right
					if(start.z != end.z)
						usr << "<span class='warning'>You can't do a fill across zlevels you silly person.</span>"
						holder.fill_left = null
						holder.fill_right = null
						return
					var/list/fillturfs = block(start,end)
					if(fillturfs.len)
						if(alert("You're about to do a fill operation spanning [fillturfs.len] tiles, are you sure?","Panic","Yes","No") == "Yes")
							if(fillturfs.len > 150)
								if(alert("Are you completely sure about filling [fillturfs.len] tiles?","Panic!!!!","Yes","No") != "Yes")
									holder.fill_left = null
									holder.fill_right = null
									usr << "<span class='notice'>Cleared filling corners.</span>"
									return
							var/areaAction = alert("FILL tiles or DELETE them? areaAction will destroy EVERYTHING IN THE SELECTED AREA", "Create or destroy, your chance to be a GOD","FILL","DELETE") == "DELETE"
							if(areaAction) areaAction = (alert("Selective(TYPE) Delete or MASS Delete?", "Scorched Earth or selective destruction?", "Selective", "MASS") == "Selective" ? 2 : 1)
							else
								areaAction = (alert("Mass FILL or Selective(Type => Type) FILL?", "Do they really need [fillturfs.len] of closets?", "Selective", "Mass") == "Selective" ? 3 : 0)
							var/msglog = "<span class='danger'>[key_name_admin(usr)] just buildmode"
							var/strict = 1
							var/chosen
							switch(areaAction)
								if(MASS_DELETE)
									msglog += " <big>DELETED EVERYTHING</big> in [fillturfs.len] tile\s "
								if(SELECTIVE_DELETE)
									chosen = easyTypeSelector()
									if(!chosen) return
									strict = alert("Delete all children of [chosen]?", "Children being all types and subtypes of [chosen]", "Yes", "No") == "No"
									msglog += " <big>DELETED [!strict ? "ALL TYPES OF " :""][chosen]</big> in [fillturfs.len] tile\s "
								if(SELECTIVE_FILL)
									chosen = easyTypeSelector()
									if(!chosen) return
									strict = alert("Change all children of [chosen]?", "Children being all types and subtypes of [chosen]", "Yes", "No") == "No"
									msglog += " Changed all [chosen] in [fillturfs.len] tile\s to [holder.buildmode.objholder] "
								else
									msglog += " FILLED [fillturfs.len] tile\s with [holder.buildmode.objholder] "
							msglog += "at ([formatJumpTo(start)] to [formatJumpTo(end)])</span>"
							message_admins(msglog)
							log_admin(msglog)
							usr << "<span class='notice'>If the server is lagging the operation will periodically sleep so the fill may take longer than typical.</span>"
							var/turf_op = ispath(holder.buildmode.objholder,/turf)
							var/deletions = 0
							for(var/turf/T in fillturfs)
								if(areaAction == MASS_DELETE || areaAction == SELECTIVE_DELETE)
									if(ispath(chosen, /turf))
										T.ChangeTurf(chosen)
										deletions++
									else
										for(var/atom/thing in T.contents)
											if(thing==usr) continue
											if(areaAction == MASS_DELETE || (strict && thing.type == chosen) || istype(thing,chosen))
												qdel(thing)
											deletions++
											tcheck(80,1)
										if(areaAction == MASS_DELETE) T.ChangeTurf(get_base_turf(T.z))
								else
									if(turf_op)
										if(areaAction == SELECTIVE_FILL)
											if(strict)
												if(T.type != chosen) continue
											else
												if(!istype(T, chosen)) continue
										T.ChangeTurf(holder.buildmode.objholder)
									else
										if(areaAction == SELECTIVE_FILL)
											for(var/atom/thing in T.contents)
												if(strict)
													if(thing.type != chosen) continue
												else
													if(!istype(thing, chosen)) continue
												var/atom/A = new holder.buildmode.objholder(T)
												A.dir = thing.dir
												qdel(thing)
												tcheck(80,1)
										else
											var/obj/A = new holder.buildmode.objholder(T)
											if(istype(A))
												A.dir = holder.builddir.dir
								tcheck(80,1)
							holder.fill_left = null
							holder.fill_right = null
							if(deletions) usr << "<span class='info'>Successfully deleted [deletions] [chosen]'\s</span>"
				return
			if(pa.Find("left"))
				if(holder.buildmode.copycat)
					if(isturf(holder.buildmode.copycat))
						var/turf/T = get_turf(object)
						T.ChangeTurf(holder.buildmode.copycat.type)
						spawn(1)
							T.icon = holder.buildmode.copycat.icon
							T.icon_state = holder.buildmode.copycat.icon_state
							T.dir = holder.builddir.dir
							if(holder.buildmode.copycat.overlays.len)
								T.overlays.len = 0
								for(var/i = 1; i <= holder.buildmode.copycat.overlays.len; i++)
									var/datum/thing = holder.buildmode.copycat.overlays[i]
									T.overlays += thing
							if(holder.buildmode.copycat.underlays.len)
								T.underlays.len = 0
								for(var/i = 1; i <= holder.buildmode.copycat.underlays.len; i++)
									var/datum/thing = holder.buildmode.copycat.underlays[i]
									T.underlays += thing
					else
						var/atom/movable/A = new holder.buildmode.copycat.type(get_turf(object))
						if(istype(A))
							A.dir = holder.builddir.dir
							A.icon = holder.buildmode.copycat.icon
							A.gender = holder.buildmode.copycat.gender
							A.name = holder.buildmode.copycat.name
							A.icon_state = holder.buildmode.copycat.icon_state
							A.alpha = holder.buildmode.copycat.alpha
							A.color = holder.buildmode.copycat.color
							A.maptext = holder.buildmode.copycat.maptext
							A.maptext_height = holder.buildmode.copycat.maptext_height
							A.maptext_width = holder.buildmode.copycat.maptext_width
							A.light_color = holder.buildmode.copycat.light_color
							A.luminosity = holder.buildmode.copycat.luminosity
							A.molten = holder.buildmode.copycat.molten
							A.pixel_x = holder.buildmode.copycat.pixel_x
							A.pixel_y = holder.buildmode.copycat.pixel_y
							A.invisibility = holder.buildmode.copycat.invisibility
							if(holder.buildmode.copycat.overlays.len)
								A.overlays.len = 0
								for(var/i = 1; i <= holder.buildmode.copycat.overlays.len; i++)
									var/datum/thing = holder.buildmode.copycat.overlays[i]
									A.overlays += thing
							if(holder.buildmode.copycat.underlays.len)
								A.underlays.len = 0
								for(var/i = 1; i <= holder.buildmode.copycat.underlays.len; i++)
									var/datum/thing = holder.buildmode.copycat.underlays[i]
									A.underlays += thing
					log_admin("[key_name(usr)] made a [holder.buildmode.copycat.type] at [formatJumpTo(RT)]")
				else
					if(ispath(holder.buildmode.objholder,/turf))
						var/turf/T = get_turf(object)
						T.ChangeTurf(holder.buildmode.objholder)
					else
						var/obj/A = new holder.buildmode.objholder (get_turf(object))
						if(istype(A))
							A.dir = holder.builddir.dir
					log_admin("[key_name(usr)] made a [holder.buildmode.objholder] at [formatJumpTo(RT)]")
			else if(pa.Find("right"))
				log_admin("[key_name(usr)] deleted a [object] at [formatJumpTo(RT)]")
				if(isobj(object)) del(object)
			else if(pa.Find("middle"))
				if(istype(object,/mob) && !check_rights(R_DEBUG,0))
					usr << "<span class='notice'>You don't have sufficient rights to clone [object.type]</span>"
				else
					if(ismob(object))
						holder.buildmode.objholder = object.type
						usr << "<span class='info'>You will now build [object.type] when clicking.</span>"
					else
						holder.buildmode.copycat = object
						usr << "<span class='info'>You will now build a lookalike of [object] when clicking.</span>"

		if(3)
			if(pa.Find("left")) //I cant believe this shit actually compiles.
				if(object.vars.Find(holder.buildmode.varholder))
					log_admin("[key_name(usr)] modified [object.name]'s [holder.buildmode.varholder] to [holder.buildmode.valueholder]")
					object.vars[holder.buildmode.varholder] = holder.buildmode.valueholder
				else
					usr << "<span class='warning'>[initial(object.name)] does not have a var called '[holder.buildmode.varholder]'</span>"
			if(pa.Find("right"))
				if(object.vars.Find(holder.buildmode.varholder))
					log_admin("[key_name(usr)] modified [object.name]'s [holder.buildmode.varholder] to [holder.buildmode.valueholder]")
					object.vars[holder.buildmode.varholder] = initial(object.vars[holder.buildmode.varholder])
				else
					usr << "<span class='warning'>[initial(object.name)] does not have a var called '[holder.buildmode.varholder]'</span>"

		if(4)
			if(pa.Find("left"))
				log_admin("[key_name(usr)] is selecting [object] for throwing at [formatJumpTo(RT)]")
				holder.throw_atom = object
			if(pa.Find("right"))
				if(holder.throw_atom)
					holder.throw_atom.throw_at(object, 10, 1)
					log_admin("[key_name(usr)] is throwing a [holder.throw_atom] at [object] - [formatJumpTo(RT)]")

/proc/easyTypeSelector()
	//writepanic("[__FILE__].[__LINE__] (no type)([usr ? usr.ckey : ""])  \\/proc/easyTypeSelector() called tick#: [world.time]")
	var/chosen = null

	var/list/matches = new()
	var/O = input("What type? Leave as /atom to choose from a global list of types.", "Gibs me dat", "/atom") as text
	for(var/path in typesof(/atom))
		if(findtext("[path]", O))
			matches += path

	if(matches.len==0)
		usr << "<span class='warning'>No types of [O] found.</span>"
		return

	if(matches.len==1)
		chosen = matches[1]
	else
		chosen = input("Select an atom type", "Selected Atom", matches[1]) as null|anything in matches
		if(!chosen)
			return
	return chosen

/proc/setvar(varname, varvalue, atom/A, reset = 0)
	if(!reset) //I cant believe this shit actually compiles.
		if(A.vars.Find(varname))
			log_admin("[key_name(usr)] modified [A.name]'s [varname] to [varvalue]")
			A.vars[varname] = varvalue
	else
		if(A.vars.Find(varname))
			log_admin("[key_name(usr)] modified [A.name]'s [varname] to initial")
			A.vars[varname] = initial(A.vars[varname])

#undef BOTTOM_LEFT
#undef TOP_RIGHT
#undef MASS_FILL
#undef MASS_DELETE
#undef SELECTIVE_DELETE
#undef SELECTIVE_FILL