/var/global/list/construction_frame_wall
/var/global/list/construction_frame_floor

/proc/populate_frame_types()
	//Create global frame type list if it hasn't been made already.
	construction_frame_wall = list()
	construction_frame_floor = list()
	for(var/R in subtypesof(/datum/frame/frame_types))
		var/datum/frame/frame_types/type = new R
		if(type.frame_style == FRAME_STYLE_WALL)
			construction_frame_wall += type
		else
			construction_frame_floor += type

//////////////////////////////
// Frame Type Datum - Describes the frame structures that can be created from a frame item.
//////////////////////////////
/datum/frame/frame_types
	var/icon/icon_override		// Icon to set on frame object when building. If null icon is unchanged.
	var/name					// Name assigned to the frame object.
	var/frame_size = 5			// Sheets of metal required to build.
	var/frame_class				// Determines construction method.  "machine", "computer", "alarm", or "display"
	var/circuit					// Type path of the circuit board that comes built in with this frame. Null to require adding a circuit.
	var/frame_style = FRAME_STYLE_FLOOR	// "floor" or "wall"
	var/x_offset				// For wall frames: pixel_x
	var/y_offset				// For wall frames: pixel_y

// Get the icon state to use at a given state.  Default implementation is based on the frame's name
/datum/frame/frame_types/proc/get_icon_state(var/state)
	var/type = lowertext(name)
	type = replacetext(type, " ", "_")
	return "[type]_[state]"

/datum/frame/frame_types/button
	name = "Button"
	frame_class = FRAME_CLASS_ALARM
	frame_size = 1
	frame_style = FRAME_STYLE_WALL
	x_offset = 24
	y_offset = 24

/datum/frame/frame_types/computer
	name = "Computer"
	icon_override = 'icons/obj/stock_parts_vr.dmi' //VOREStation Edit
	frame_class = FRAME_CLASS_COMPUTER

/datum/frame/frame_types/machine
	name = "Machine"
	icon_override = 'icons/obj/stock_parts_vr.dmi' //VOREStation Edit
	frame_class = FRAME_CLASS_MACHINE

/datum/frame/frame_types/conveyor
	name = "Conveyor"
	frame_class = FRAME_CLASS_MACHINE
	circuit = /obj/item/circuitboard/conveyor

/datum/frame/frame_types/photocopier
	name = "Photocopier"
	frame_class = FRAME_CLASS_MACHINE

/datum/frame/frame_types/washing_machine
	name = "Washing Machine"
	frame_class = FRAME_CLASS_MACHINE

/datum/frame/frame_types/medical_console
	name = "Medical Console"
	frame_class = FRAME_CLASS_COMPUTER

/datum/frame/frame_types/medical_pod
	name = "Medical Pod"
	frame_class = FRAME_CLASS_MACHINE

/datum/frame/frame_types/dna_analyzer
	name = "DNA Analyzer"
	frame_class = FRAME_CLASS_MACHINE

/datum/frame/frame_types/mass_driver
	name = "Mass Driver"
	frame_class = FRAME_CLASS_MACHINE
	circuit = /obj/item/circuitboard/mass_driver

/datum/frame/frame_types/holopad
	name = "Holopad"
	frame_class = FRAME_CLASS_COMPUTER
	frame_size = 4

/datum/frame/frame_types/microwave
	name = "Microwave"
	frame_class = FRAME_CLASS_MACHINE
	frame_size = 4

/datum/frame/frame_types/fax
	name = "Fax"
	frame_class = FRAME_CLASS_MACHINE
	frame_size = 3

/datum/frame/frame_types/recharger
	name = "Recharger"
	frame_class = FRAME_CLASS_MACHINE
	circuit = /obj/item/circuitboard/recharger
	frame_size = 3

/datum/frame/frame_types/cell_charger
	name = "Heavy-Duty Cell Charger"
	frame_class = FRAME_CLASS_MACHINE
	circuit = /obj/item/circuitboard/cell_charger
	frame_size = 3

/datum/frame/frame_types/grinder
	name = "Grinder"
	frame_class = FRAME_CLASS_MACHINE
	circuit = /obj/item/circuitboard/grinder
	frame_size = 3

/datum/frame/frame_types/reagent_distillery
	name = "Distillery"
	frame_class = FRAME_CLASS_MACHINE
	frame_size = 4

/datum/frame/frame_types/display
	name = "Display"
	frame_class = FRAME_CLASS_DISPLAY
	frame_style = FRAME_STYLE_WALL
	x_offset = 32
	y_offset = 32

/datum/frame/frame_types/supply_request_console
	name = "Supply Request Console"
	frame_class = FRAME_CLASS_DISPLAY
	frame_style = FRAME_STYLE_WALL
	x_offset = 32
	y_offset = 32

/datum/frame/frame_types/atm
	name = "ATM"
	frame_class = FRAME_CLASS_DISPLAY
	frame_size = 3
	frame_style = FRAME_STYLE_WALL
	x_offset = 32
	y_offset = 32

/datum/frame/frame_types/newscaster
	name = "Newscaster"
	frame_class = FRAME_CLASS_DISPLAY
	frame_size = 3
	frame_style = FRAME_STYLE_WALL
	x_offset = 28
	y_offset = 30

/datum/frame/frame_types/wall_charger
	name = "Wall Charger"
	frame_class = FRAME_CLASS_MACHINE
	circuit = /obj/item/circuitboard/recharger/wrecharger
	frame_size = 3
	frame_style = FRAME_STYLE_WALL
	x_offset = 32
	y_offset = 32

/datum/frame/frame_types/fire_alarm
	name = "Fire Alarm"
	frame_class = FRAME_CLASS_ALARM
	frame_size = 2
	frame_style = FRAME_STYLE_WALL
	x_offset = 24
	y_offset = 24

/datum/frame/frame_types/air_alarm
	name = "Air Alarm"
	icon_override = 'icons/obj/monitors_vr.dmi' //VOREStation Edit - Matching frame.
	frame_class = FRAME_CLASS_ALARM
	frame_size = 2
	frame_style = FRAME_STYLE_WALL
	x_offset = 24
	y_offset = 24

/datum/frame/frame_types/guest_pass_console
	name = "Guest Pass Console"
	frame_class = FRAME_CLASS_DISPLAY
	frame_size = 2
	frame_style = FRAME_STYLE_WALL
	x_offset = 30
	y_offset = 30

/datum/frame/frame_types/intercom
	name = "Intercom"
	frame_class = FRAME_CLASS_ALARM
	frame_size = 2
	frame_style = FRAME_STYLE_WALL
	x_offset = 28
	y_offset = 28

/datum/frame/frame_types/keycard_authenticator
	name = "Keycard Authenticator"
	frame_class = FRAME_CLASS_ALARM
	frame_size = 1
	frame_style = FRAME_STYLE_WALL
	x_offset = 24
	y_offset = 24

/datum/frame/frame_types/geiger
	name = "Geiger Counter"
	frame_class = FRAME_CLASS_ALARM
	frame_size = 2
	frame_style = FRAME_STYLE_WALL
	x_offset = 28
	y_offset = 28

/datum/frame/frame_types/arfgs
	name = "ARF Generator"
	frame_class = FRAME_CLASS_MACHINE
	frame_size = 3

/datum/frame/frame_types/injector_maker
	name = "Ready-to-Use Medicine 3000"
	frame_class = FRAME_CLASS_MACHINE
	circuit = /obj/machinery/atmospheric_field_generator
	frame_size = 3

//////////////////////////////
// Frame Object (Structure)
//////////////////////////////

/obj/structure/frame
	anchored = FALSE
	name = "frame"
	icon = 'icons/obj/stock_parts.dmi'
	icon_state = "machine_0"
	var/state = FRAME_PLACED
	var/obj/item/circuitboard/circuit = null
	var/need_circuit = TRUE
	var/datum/frame/frame_types/frame_type = new /datum/frame/frame_types/machine

	var/list/components = list()
	var/list/req_components = null
	var/list/req_component_names = null

/obj/structure/frame/computer //used for maps
	frame_type = new /datum/frame/frame_types/computer
	anchored = TRUE
	density = TRUE

/obj/structure/frame/examine(mob/user)
	. = ..()
	if(circuit)
		. += "It has \a [circuit] installed."

/obj/structure/frame/proc/update_desc()
	var/D
	if(req_components)
		var/list/component_list = new
		for(var/I in req_components)
			if(req_components[I] > 0)
				component_list += "[num2text(req_components[I])] [req_component_names[I]]"
		D = "Requires [english_list(component_list)]."
	desc = D

/obj/structure/frame/update_icon()
	..()
	if(frame_type.icon_override)
		icon = frame_type.icon_override
	icon_state = frame_type.get_icon_state(state)

/obj/structure/frame/proc/check_components(mob/user as mob)
	components = list()
	req_components = circuit.req_components.Copy()
	for(var/A in circuit.req_components)
		req_components[A] = circuit.req_components[A]
	req_component_names = circuit.req_components.Copy()
	for(var/obj/ct as anything in req_components)
		req_component_names[ct] = initial(ct.name)

/obj/structure/frame/New(var/loc, var/dir, var/building = 0, var/datum/frame/frame_types/type, mob/user as mob)
	..()
	if(building)
		frame_type = type
		state = FRAME_PLACED

		if(dir)
			set_dir(dir)

		if(loc)
			src.loc = loc

		if(frame_type.x_offset)
			pixel_x = (dir & 3)? 0 : (dir == EAST ? -frame_type.x_offset : frame_type.x_offset)

		if(frame_type.y_offset)
			pixel_y = (dir & 3)? (dir == NORTH ? -frame_type.y_offset : frame_type.y_offset) : 0

		if(frame_type.circuit)
			need_circuit = FALSE
			circuit = new frame_type.circuit(src)

	if(frame_type.name == "Computer")
		density = TRUE

	if(frame_type.frame_class == FRAME_CLASS_MACHINE)
		density = TRUE

	update_icon()

/obj/structure/frame/attackby(obj/item/P as obj, mob/user as mob)
	if(P.has_tool_quality(TOOL_WRENCH))
		if(state == FRAME_PLACED && !anchored)
			to_chat(user, span_notice("You start to wrench the frame into place."))
			playsound(src, P.usesound, 50, 1)
			if(do_after(user, 20 * P.toolspeed))
				anchored = TRUE
				if(!need_circuit && circuit)
					state = FRAME_FASTENED
					check_components()
					update_desc()
					to_chat(user, span_notice("You wrench the frame into place and set the outer cover."))
				else
					to_chat(user, span_notice("You wrench the frame into place."))

		else if(state == FRAME_PLACED && anchored)
			playsound(src, P.usesound, 50, 1)
			if(do_after(user, 20 * P.toolspeed))
				to_chat(user, span_notice("You unfasten the frame."))
				anchored = FALSE

	else if(P.has_tool_quality(TOOL_WELDER))
		if(state == FRAME_PLACED)
			var/obj/item/weldingtool/WT = P.get_welder()
			if(WT.remove_fuel(0, user))
				playsound(src, P.usesound, 50, 1)
				if(do_after(user, 20 * P.toolspeed))
					if(src && WT.isOn())
						to_chat(user, span_notice("You deconstruct the frame."))
						new /obj/item/stack/material/steel(src.loc, frame_type.frame_size)
						qdel(src)
						return
			else if(!WT.remove_fuel(0, user))
				to_chat(user, "The welding tool must be on to complete this task.")
				return

	else if(istype(P, /obj/item/circuitboard) && need_circuit && !circuit)
		if(state == FRAME_PLACED && anchored)
			var/obj/item/circuitboard/B = P
			var/datum/frame/frame_types/board_type = B.board_type
			if(board_type.name == frame_type.name)
				playsound(src, 'sound/items/Deconstruct.ogg', 50, 1)
				to_chat(user, span_notice("You place the circuit board inside the frame."))
				circuit = P
				user.drop_item()
				P.loc = src
				state = FRAME_UNFASTENED
				if(frame_type.frame_class == FRAME_CLASS_MACHINE)
					check_components()
					update_desc()
			else
				to_chat(user, span_warning("This frame does not accept circuit boards of this type!"))
				return

	else if(P.has_tool_quality(TOOL_SCREWDRIVER))
		if(state == FRAME_UNFASTENED)
			if(need_circuit && circuit)
				playsound(src, P.usesound, 50, 1)
				to_chat(user, span_notice("You screw the circuit board into place."))
				state = FRAME_FASTENED

		else if(state == FRAME_FASTENED)
			if(need_circuit && circuit)
				playsound(src, P.usesound, 50, 1)
				to_chat(user, span_notice("You unfasten the circuit board."))
				state = FRAME_UNFASTENED

			else if(!need_circuit && circuit)
				playsound(src, P.usesound, 50, 1)
				to_chat(user, span_notice("You unfasten the outer cover."))
				state = FRAME_PLACED

		else if(state == FRAME_WIRED)
			if(frame_type.frame_class == FRAME_CLASS_MACHINE)
				var/component_check = 1
				for(var/R in req_components)
					if(req_components[R] > 0)
						component_check = 0
						break
				if(component_check)
					playsound(src, P.usesound, 50, 1)
					var/obj/machinery/new_machine = new circuit.build_path(src.loc, dir)
					// Handle machines that have allocated default parts in thier constructor.
					if(new_machine.component_parts)
						for(var/CP in new_machine.component_parts)
							qdel(CP)
						new_machine.component_parts.Cut()
					else
						new_machine.component_parts = list()

					circuit.construct(new_machine)

					for(var/obj/O in components)
						if(circuit.contain_parts)
							O.loc = new_machine
						else
							O.loc = null
						new_machine.component_parts += O

					circuit.loc = null
					new_machine.circuit = circuit

					new_machine.RefreshParts()

					new_machine.pixel_x = pixel_x
					new_machine.pixel_y = pixel_y
					qdel(src)
					return

			else if(frame_type.frame_class == FRAME_CLASS_ALARM)
				playsound(src, P.usesound, 50, 1)
				to_chat(user, span_notice("You fasten the cover."))
				var/obj/machinery/B = new circuit.build_path(src.loc)
				B.pixel_x = pixel_x
				B.pixel_y = pixel_y
				B.set_dir(dir)
				circuit.construct(B)
				circuit.loc = null
				B.circuit = circuit
				qdel(src)
				return

		else if(state == FRAME_PANELED)
			if(frame_type.frame_class == FRAME_CLASS_COMPUTER)
				playsound(src, P.usesound, 50, 1)
				to_chat(user, span_notice("You connect the monitor."))
				var/obj/machinery/B = new circuit.build_path(src.loc)
				B.pixel_x = pixel_x
				B.pixel_y = pixel_y
				B.set_dir(dir)
				circuit.construct(B)
				circuit.loc = null
				B.circuit = circuit
				qdel(src)
				return

			else if(frame_type.frame_class == FRAME_CLASS_DISPLAY)
				playsound(src, P.usesound, 50, 1)
				to_chat(user, span_notice("You connect the monitor."))
				var/obj/machinery/B = new circuit.build_path(src.loc)
				B.pixel_x = pixel_x
				B.pixel_y = pixel_y
				B.set_dir(dir)
				circuit.construct(B)
				circuit.loc = null
				B.circuit = circuit
				qdel(src)
				return

	else if(P.has_tool_quality(TOOL_CROWBAR))
		if(state == FRAME_UNFASTENED)
			if(need_circuit && circuit)
				playsound(src, P.usesound, 50, 1)
				to_chat(user, span_notice("You remove the circuit board."))
				state = FRAME_PLACED
				circuit.forceMove(src.loc)
				circuit = null
				if(frame_type.frame_class == FRAME_CLASS_MACHINE)
					req_components = null
				update_desc()

		else if(state == FRAME_WIRED)
			if(frame_type.frame_class == FRAME_CLASS_MACHINE)
				playsound(src, P.usesound, 50, 1)
				if(components.len == 0)
					to_chat(user, span_notice("There are no components to remove."))
				else
					to_chat(user, span_notice("You remove the components."))
					for(var/obj/item/W in components)
						W.forceMove(src.loc)
					check_components()
					update_desc()
					to_chat(user, desc)

		else if(state == FRAME_PANELED)
			if(frame_type.frame_class == FRAME_CLASS_COMPUTER)
				playsound(src, P.usesound, 50, 1)
				to_chat(user, span_notice("You remove the glass panel."))
				state = FRAME_WIRED
				new /obj/item/stack/material/glass(src.loc, 2)

			else if(frame_type.frame_class == FRAME_CLASS_DISPLAY)
				playsound(src, P.usesound, 50, 1)
				to_chat(user, span_notice("You remove the glass panel."))
				state = FRAME_WIRED
				new /obj/item/stack/material/glass(src.loc, 2)

	else if(istype(P, /obj/item/stack/cable_coil))
		if(state == FRAME_FASTENED)
			var/obj/item/stack/cable_coil/C = P
			if(C.get_amount() < 5)
				to_chat(user, span_warning("You need five coils of wire to add them to the frame."))
				return
			to_chat(user, span_notice("You start to add cables to the frame."))
			playsound(src, 'sound/items/Deconstruct.ogg', 50, 1)
			if(do_after(user, 20) && state == FRAME_FASTENED)
				if(C.use(5))
					to_chat(user, span_notice("You add cables to the frame."))
					state = FRAME_WIRED
					if(frame_type.frame_class == FRAME_CLASS_MACHINE)
						to_chat(user, desc)
		else if(state == FRAME_WIRED)
			if(frame_type.frame_class == FRAME_CLASS_MACHINE)
				for(var/I in req_components)
					if(istype(P, I) && (req_components[I] > 0))
						playsound(src, 'sound/items/Deconstruct.ogg', 50, 1)
						if(istype(P, /obj/item/stack/cable_coil))
							var/obj/item/stack/cable_coil/CP = P
							if(CP.get_amount() > 1)
								var/camt = min(CP.get_amount(), req_components[I]) // amount of cable to take, idealy amount required, but limited by amount provided
								var/obj/item/stack/cable_coil/CC = new /obj/item/stack/cable_coil(src, camt)
								CC.update_icon()
								CP.use(camt)
								components += CC
								req_components[I] -= camt
								update_desc()
								break

						user.drop_item()
						P.forceMove(src)
						components += P
						req_components[I]--
						update_desc()
						break
				to_chat(user, desc)

	else if(P.has_tool_quality(TOOL_WIRECUTTER))
		if(state == FRAME_WIRED)
			if( \
				frame_type.frame_class == FRAME_CLASS_COMPUTER || \
				frame_type.frame_class == FRAME_CLASS_DISPLAY || \
				frame_type.frame_class == FRAME_CLASS_ALARM || \
				frame_type.frame_class == FRAME_CLASS_MACHINE \
			)
				playsound(src, P.usesound, 50, 1)
				if (components.len == 0)
					to_chat(user, span_notice("You remove the cables."))
				else
					to_chat(user, span_notice("You remove the cables and components."))
					for(var/obj/item/W in components)
						W.forceMove(src.loc)
					check_components()
					update_desc()
				state = FRAME_FASTENED
				new /obj/item/stack/cable_coil(src.loc, 5)

	else if(istype(P, /obj/item/stack/material) && P.get_material_name() == MAT_GLASS)
		if(state == FRAME_WIRED)
			if(frame_type.frame_class == FRAME_CLASS_COMPUTER)
				var/obj/item/stack/G = P
				if(G.get_amount() < 2)
					to_chat(user, span_warning("You need two sheets of glass to put in the glass panel."))
					return
				playsound(src, 'sound/items/Deconstruct.ogg', 50, 1)
				to_chat(user, span_notice("You start to put in the glass panel."))
				if(do_after(user, 20) && state == FRAME_WIRED)
					if(G.use(2))
						to_chat(user, span_notice("You put in the glass panel."))
						state = FRAME_PANELED

			else if(frame_type.frame_class == FRAME_CLASS_DISPLAY)
				var/obj/item/stack/G = P
				if(G.get_amount() < 2)
					to_chat(user, span_warning("You need two sheets of glass to put in the glass panel."))
					return
				playsound(src, 'sound/items/Deconstruct.ogg', 50, 1)
				to_chat(user, span_notice("You start to put in the glass panel."))
				if(do_after(user, 20) && state == FRAME_WIRED)
					if(G.use(2))
						to_chat(user, span_notice("You put in the glass panel."))
						state = FRAME_PANELED

	else if(istype(P, /obj/item))
		if(state == FRAME_WIRED)
			if(frame_type.frame_class == FRAME_CLASS_MACHINE)
				for(var/I in req_components)
					if(istype(P, I) && (req_components[I] > 0))
						playsound(src, 'sound/items/Deconstruct.ogg', 50, 1)
						if(istype(P, /obj/item/stack))
							var/obj/item/stack/ST = P
							if(ST.get_amount() > 1)
								var/camt = min(ST.get_amount(), req_components[I]) // amount of stack to take, idealy amount required, but limited by amount provided
								var/obj/item/stack/NS = new ST.stacktype(src, camt)
								NS.update_icon()
								ST.use(camt)
								components += NS
								req_components[I] -= camt
								update_desc()
								break

						user.drop_item()
						P.forceMove(src)
						components += P
						req_components[I]--
						update_desc()
						break
				to_chat(user, desc)
				if(P && P.loc != src && !istype(P, /obj/item/stack/material))
					to_chat(user, span_warning("You cannot add that component to the machine!"))
					return

	update_icon()

/obj/structure/frame/verb/rotate_counterclockwise()
	set name = "Rotate Frame Counter-Clockwise"
	set category = "Object"
	set src in oview(1)

	if(usr.incapacitated())
		return FALSE

	if(anchored)
		to_chat(usr, "It is fastened to the floor therefore you can't rotate it!")
		return FALSE

	src.set_dir(turn(src.dir, 90))

	to_chat(usr, span_notice("You rotate the [src] to face [dir2text(dir)]!"))

	return


/obj/structure/frame/verb/rotate_clockwise()
	set name = "Rotate Frame Clockwise"
	set category = "Object"
	set src in oview(1)

	if(usr.incapacitated())
		return FALSE

	if(anchored)
		to_chat(usr, "It is fastened to the floor therefore you can't rotate it!")
		return FALSE

	src.set_dir(turn(src.dir, 270))

	to_chat(usr, span_notice("You rotate the [src] to face [dir2text(dir)]!"))

	return