Machine Upgrade Update

- Partial port of tgstation/-tg-station#9813

code/modules/power/singularity/emitter.dm

@@ -16,6 +16,8 @@
 	var/active = 0
 	var/powered = 0
 	var/fire_delay = 100
+	var/maximum_fire_delay = 100
+	var/minimum_fire_delay = 20
 	var/last_shot = 0
 	var/shot_number = 0
 	var/state = 0
@@ -25,6 +27,30 @@
 	var/id_tag = null
 	var/datum/radio_frequency/radio_connection
 
+/obj/machinery/power/emitter/New()
+	..()
+	component_parts = list()
+	component_parts += new /obj/item/weapon/circuitboard/emitter(null)
+	component_parts += new /obj/item/weapon/stock_parts/micro_laser(null)
+	component_parts += new /obj/item/weapon/stock_parts/manipulator(null)
+	RefreshParts()
+
+/obj/machinery/power/emitter/RefreshParts()
+	var/max_firedelay = 120
+	var/firedelay = 120
+	var/min_firedelay = 24
+	var/power_usage = 350
+	for(var/obj/item/weapon/stock_parts/micro_laser/L in component_parts)
+		max_firedelay -= 20 * L.rating
+		min_firedelay -= 4 * L.rating
+		firedelay -= 20 * L.rating
+	maximum_fire_delay = max_firedelay
+	minimum_fire_delay = min_firedelay
+	fire_delay = firedelay
+	for(var/obj/item/weapon/stock_parts/manipulator/M in component_parts)
+		power_usage -= 50 * M.rating
+	active_power_usage = power_usage
+
 	//Radio remote control
 /obj/machinery/power/emitter/proc/set_frequency(new_frequency)
 	radio_controller.remove_object(src, frequency)
@@ -114,7 +140,7 @@
 				src.active = 1
 				user << "You turn on the [src]."
 				src.shot_number = 0
-				src.fire_delay = 100
+				src.fire_delay = maximum_fire_delay
 				message_admins("Emitter turned on by [key_name_admin(user)] in ([x],[y],[z] - <A HREF='?_src_=holder;adminplayerobservecoodjump=1;X=[x];Y=[y];Z=[z]'>JMP</a>)",0,1)
 				log_game("Emitter turned on by [key_name(user)] in ([x],[y],[z])")
 				investigate_log("turned <font color='green'>on</font> by [key_name(usr)]","singulo")
@@ -162,7 +188,7 @@
 			src.fire_delay = 2
 			src.shot_number ++
 		else
-			src.fire_delay = rand(20,100)
+			src.fire_delay = rand(minimum_fire_delay,maximum_fire_delay)
 			src.shot_number = 0
 
 		var/obj/item/projectile/beam/emitter/A = PoolOrNew(/obj/item/projectile/beam/emitter,src.loc)
@@ -269,6 +295,14 @@
 			user << "\red Access denied."
 		return
 
+	if(default_deconstruction_screwdriver(user, "emitter_open", "emitter", W))
+		return
+
+	if(exchange_parts(user, W))
+		return
+
+	default_deconstruction_crowbar(W)
+
 	..()
 	return