GLOBAL_VAR(bomb_set)

/obj/machinery/nuclearbomb
	name = "\improper Nuclear Fission Explosive"
	desc = "Uh oh. RUN!!!!"
	icon = 'modular_chomp/icons/obj/stationobjs.dmi' //chompedit, use the better one
	icon_state = "nuclearbomb0"
	density = TRUE
	var/deployable = 0.0
	var/extended = 0.0
	var/lighthack = 0
	var/opened = 0.0
	var/timeleft = 60.0
	var/timing = 0.0
	var/r_code = "ADMIN"
	var/code = ""
	var/yes_code = 0.0
	var/safety = 1.0
	var/obj/item/disk/nuclear/auth = null
	var/list/wires = list()
	var/light_wire
	var/safety_wire
	var/timing_wire
	var/removal_stage = 0 // 0 is no removal, 1 is covers removed, 2 is covers open,
	  					// 3 is sealant open, 4 is unwrenched, 5 is removed from bolts.
	use_power = USE_POWER_OFF

/obj/machinery/nuclearbomb/Initialize(mapload)
	. = ..()
	r_code = "[rand(10000, 99999.0)]"//Creates a random code upon object spawn.
	wires["Red"] = 0
	wires["Blue"] = 0
	wires["Green"] = 0
	wires["Marigold"] = 0
	wires["Fuschia"] = 0
	wires["Black"] = 0
	wires["Pearl"] = 0
	var/list/w = list("Red","Blue","Green","Marigold","Black","Fuschia","Pearl")
	light_wire = pick(w)
	w -= light_wire
	timing_wire = pick(w)
	w -= timing_wire
	safety_wire = pick(w)
	w -= safety_wire

/obj/machinery/nuclearbomb/process()
	if(timing)
		GLOB.bomb_set = 1 //So long as there is one nuke timing, it means one nuke is armed.
		timeleft--
		playsound(src, 'sound/items/timer.ogg',50) //chompedit... beep :)
		if(timeleft <= 0)
			explode()
		for(var/mob/M in viewers(1, src))
			if((M.client && M.machine == src))
				attack_hand(M)
	return ..()

/obj/machinery/nuclearbomb/attackby(obj/item/O as obj, mob/user as mob)
	if(O.has_tool_quality(TOOL_SCREWDRIVER))
		playsound(src, O.usesound, 50, 1)
		add_fingerprint(user)
		if(auth)
			if(opened == 0)
				opened = 1
				add_overlay("npanel_open")
				to_chat(user, "You unscrew the control panel of [src].")

			else
				opened = 0
				cut_overlay("npanel_open")
				to_chat(user, "You screw the control panel of [src] back on.")
		else
			if(opened == 0)
				to_chat(user, "The [src] emits a buzzing noise, the panel staying locked in.")
			if(opened == 1)
				opened = 0
				cut_overlay("npanel_open")
				to_chat(user, "You screw the control panel of [src] back on.")
			flick("nuclearbombc", src)

		return
	if(O.has_tool_quality(TOOL_WIRECUTTER) || istype(O, /obj/item/multitool))
		if(opened == 1)
			nukehack_win(user)
		return

	if(extended)
		if(istype(O, /obj/item/disk/nuclear))
			user.drop_item()
			O.loc = src
			auth = O
			add_fingerprint(user)
			return

	if(anchored)
		switch(removal_stage)
			if(0)
				if(O.has_tool_quality(TOOL_WELDER))

					var/obj/item/weldingtool/WT = O.get_welder()
					if(!WT.isOn()) return
					if(WT.get_fuel() < 5) // uses up 5 fuel.
						to_chat(user, span_warning("You need more fuel to complete this task."))
						return

					user.visible_message("[user] starts cutting loose the anchoring bolt covers on [src].", "You start cutting loose the anchoring bolt covers with [O]...")

					if(do_after(user, 4 SECONDS * WT.toolspeed, target = src))
						if(!src || !user || !WT.remove_fuel(5, user)) return
						user.visible_message("[user] cuts through the bolt covers on [src].", "You cut through the bolt cover.")
						removal_stage = 1
				return

			if(1)
				if(O.has_tool_quality(TOOL_CROWBAR))
					user.visible_message("[user] starts forcing open the bolt covers on [src].", "You start forcing open the anchoring bolt covers with [O]...")

					playsound(src, O.usesound, 50, 1)
					if(do_after(user,15 * O.toolspeed, target = src))
						if(!src || !user) return
						user.visible_message("[user] forces open the bolt covers on [src].", "You force open the bolt covers.")
						removal_stage = 2
				return

			if(2)
				if(O.has_tool_quality(TOOL_WELDER))

					var/obj/item/weldingtool/WT = O.get_welder()
					if(!WT.isOn()) return
					if(WT.get_fuel() < 5) // uses up 5 fuel.
						to_chat(user, span_warning("You need more fuel to complete this task."))
						return

					user.visible_message("[user] starts cutting apart the anchoring system sealant on [src].", "You start cutting apart the anchoring system's sealant with [O]...")
					playsound(src, WT.usesound, 50, 1)
					if(do_after(user, 4 SECONDS * WT.toolspeed, target = src))
						if(!src || !user || !WT.remove_fuel(5, user)) return
						user.visible_message("[user] cuts apart the anchoring system sealant on [src].", "You cut apart the anchoring system's sealant.")
						removal_stage = 3
				return

			if(3)
				if(O.has_tool_quality(TOOL_WRENCH))

					user.visible_message("[user] begins unwrenching the anchoring bolts on [src].", "You begin unwrenching the anchoring bolts...")
					playsound(src, O.usesound, 50, 1)
					if(do_after(user, 5 SECONDS * O.toolspeed, target = src))
						if(!src || !user) return
						user.visible_message("[user] unwrenches the anchoring bolts on [src].", "You unwrench the anchoring bolts.")
						removal_stage = 4
				return

			if(4)
				if(O.has_tool_quality(TOOL_CROWBAR))

					user.visible_message("[user] begins lifting [src] off of the anchors.", "You begin lifting the device off the anchors...")
					playsound(src, O.usesound, 50, 1)
					if(do_after(user, 8 SECONDS * O.toolspeed, target = src))
						if(!src || !user) return
						user.visible_message("[user] crowbars [src] off of the anchors. It can now be moved.", "You jam the crowbar under the nuclear device and lift it off its anchors. You can now move it!")
						anchored = FALSE
						removal_stage = 5
				return
	..()

/obj/machinery/nuclearbomb/attack_hand(mob/user as mob)
	if(extended)
		if(!ishuman(user))
			to_chat(user, span_warning("You don't have the dexterity to do this!"))
			return 1

		user.set_machine(src)
		var/dat = text("<TT><B>Nuclear Fission Explosive</B><BR>\nAuth. Disk: <A href='byond://?src=\ref[];auth=1'>[]</A><HR>", src, (auth ? "++++++++++" : "----------"))
		if(auth)
			if(yes_code)
				dat += text("\n<B>Status</B>: []-[]<BR>\n<B>Timer</B>: []<BR>\n<BR>\nTimer: [] <A href='byond://?src=\ref[];timer=1'>Toggle</A><BR>\nTime: <A href='byond://?src=\ref[];time=-10'>-</A> <A href='byond://?src=\ref[];time=-1'>-</A> [] <A href='byond://?src=\ref[];time=1'>+</A> <A href='byond://?src=\ref[];time=10'>+</A><BR>\n<BR>\nSafety: [] <A href='byond://?src=\ref[];safety=1'>Toggle</A><BR>\nAnchor: [] <A href='byond://?src=\ref[];anchor=1'>Toggle</A><BR>\n", (timing ? "Func/Set" : "Functional"), (safety ? "Safe" : "Engaged"), timeleft, (timing ? "On" : "Off"), src, src, src, timeleft, src, src, (safety ? "On" : "Off"), src, (anchored ? "Engaged" : "Off"), src)
			else
				dat += text("\n<B>Status</B>: Auth. S2-[]<BR>\n<B>Timer</B>: []<BR>\n<BR>\nTimer: [] Toggle<BR>\nTime: - - [] + +<BR>\n<BR>\n[] Safety: Toggle<BR>\nAnchor: [] Toggle<BR>\n", (safety ? "Safe" : "Engaged"), timeleft, (timing ? "On" : "Off"), timeleft, (safety ? "On" : "Off"), (anchored ? "Engaged" : "Off"))
		else
			if(timing)
				dat += text("\n<B>Status</B>: Set-[]<BR>\n<B>Timer</B>: []<BR>\n<BR>\nTimer: [] Toggle<BR>\nTime: - - [] + +<BR>\n<BR>\nSafety: [] Toggle<BR>\nAnchor: [] Toggle<BR>\n", (safety ? "Safe" : "Engaged"), timeleft, (timing ? "On" : "Off"), timeleft, (safety ? "On" : "Off"), (anchored ? "Engaged" : "Off"))
			else
				dat += text("\n<B>Status</B>: Auth. S1-[]<BR>\n<B>Timer</B>: []<BR>\n<BR>\nTimer: [] Toggle<BR>\nTime: - - [] + +<BR>\n<BR>\nSafety: [] Toggle<BR>\nAnchor: [] Toggle<BR>\n", (safety ? "Safe" : "Engaged"), timeleft, (timing ? "On" : "Off"), timeleft, (safety ? "On" : "Off"), (anchored ? "Engaged" : "Off"))
		var/message = "AUTH"
		if(auth)
			message = text("[]", code)
			if(yes_code)
				message = "*****"
		dat += text("<HR>\n>[]<BR>\n<A href='byond://?src=\ref[];type=1'>1</A>-<A href='byond://?src=\ref[];type=2'>2</A>-<A href='byond://?src=\ref[];type=3'>3</A><BR>\n<A href='byond://?src=\ref[];type=4'>4</A>-<A href='byond://?src=\ref[];type=5'>5</A>-<A href='byond://?src=\ref[];type=6'>6</A><BR>\n<A href='byond://?src=\ref[];type=7'>7</A>-<A href='byond://?src=\ref[];type=8'>8</A>-<A href='byond://?src=\ref[];type=9'>9</A><BR>\n<A href='byond://?src=\ref[];type=R'>R</A>-<A href='byond://?src=\ref[];type=0'>0</A>-<A href='byond://?src=\ref[];type=E'>E</A><BR>\n</TT>", message, src, src, src, src, src, src, src, src, src, src, src, src)
		user << browse("<html>[dat]</html>", "window=nuclearbomb;size=300x400")
		onclose(user, "nuclearbomb")
	else if(deployable)
		if(removal_stage < 5)
			anchored = TRUE
			visible_message(span_warning("With a steely snap, bolts slide out of [src] and anchor it to the flooring!"))
		else
			visible_message(span_warning("\The [src] makes a highly unpleasant crunching noise. It looks like the anchoring bolts have been cut."))
		if(!lighthack)
			flick("nuclearbombc", src)
			icon_state = "nuclearbomb1"
		extended = 1
	return

/obj/machinery/nuclearbomb/proc/nukehack_win(mob/user as mob)
	var/dat = "<TT><B>Nuclear Fission Explosive</B><BR>\nNuclear Device Wires:</A><HR>"
	for(var/wire in wires)
		dat += text("[wire] Wire: <A href='byond://?src=\ref[src];wire=[wire];act=wire'>[wires[wire] ? "Mend" : "Cut"]</A> <A href='byond://?src=\ref[src];wire=[wire];act=pulse'>Pulse</A><BR>")
	dat += text("<HR>The device is [timing ? "shaking!" : "still"]<BR>")
	dat += text("The device is [safety ? "quiet" : "whirring"].<BR>")
	dat += text("The lights are [lighthack ? "static" : "functional"].<BR>")
	user << browse("<HTML><HEAD><TITLE>Bomb Defusion</TITLE></HEAD><BODY>[dat]</BODY></HTML>","window=nukebomb_hack")
	onclose(user, "nukebomb_hack")

/obj/machinery/nuclearbomb/verb/make_deployable()
	set category = "Object"
	set name = "Make Deployable"
	set src in oview(1)

	if(!usr.canmove || usr.stat || usr.restrained())
		return
	if(!ishuman(usr))
		to_chat(usr, span_warning("You don't have the dexterity to do this!"))
		return 1

	if(deployable)
		to_chat(usr, span_warning("You close several panels to make [src] undeployable."))
		deployable = 0
	else
		to_chat(usr, span_warning("You adjust some panels to make [src] deployable."))
		deployable = 1
	return

/obj/machinery/nuclearbomb/Topic(href, href_list)
	..()
	if(!usr.canmove || usr.stat || usr.restrained())
		return
	if((usr.contents.Find(src) || (in_range(src, usr) && istype(src.loc, /turf))))
		usr.set_machine(src)
		if(href_list["act"])
			var/temp_wire = href_list["wire"]
			if(href_list["act"] == "pulse")
				if(!istype(usr.get_active_hand(), /obj/item/multitool))
					to_chat(usr, "You need a multitool!")
				else
					if(wires[temp_wire])
						to_chat(usr, "You can't pulse a cut wire.")
					else
						if(light_wire == temp_wire)
							lighthack = !lighthack
							spawn(100) lighthack = !lighthack
						if(timing_wire == temp_wire)
							if(timing)
								explode()
						if(safety_wire == temp_wire)
							safety = !safety
							spawn(100) safety = !safety
							if(safety == 1)
								visible_message(span_notice("The [src] quiets down."))
								if(!lighthack)
									if(icon_state == "nuclearbomb2")
										icon_state = "nuclearbomb1"
							else
								visible_message(span_notice("The [src] emits a quiet whirling noise!"))
			if(href_list["act"] == "wire")
				var/obj/item/I = usr.get_active_hand()
				if(!I.has_tool_quality(TOOL_WIRECUTTER))
					to_chat(usr, "You need wirecutters!")
				else
					wires[temp_wire] = !wires[temp_wire]
					if(safety_wire == temp_wire)
						if(timing)
							explode()
					if(timing_wire == temp_wire)
						if(!lighthack)
							if(icon_state == "nuclearbomb2")
								icon_state = "nuclearbomb1"
						timing = 0
						GLOB.bomb_set = 0
						set_security_level("red") //chompedit
					if(light_wire == temp_wire)
						lighthack = !lighthack

		if(href_list["auth"])
			if(auth)
				auth.loc = src.loc
				yes_code = 0
				auth = null
			else
				var/obj/item/I = usr.get_active_hand()
				if(istype(I, /obj/item/disk/nuclear))
					usr.drop_item()
					I.loc = src
					auth = I
		if(auth)
			if(href_list["type"])
				if(href_list["type"] == "E")
					if(code == r_code)
						yes_code = 1
						code = null
					else
						code = "ERROR"
				else
					if(href_list["type"] == "R")
						yes_code = 0
						code = null
					else
						code += text("[]", href_list["type"])
						if(length(code) > 5)
							code = "ERROR"
			if(yes_code)
				if(href_list["time"])
					var/time = text2num(href_list["time"])
					timeleft += time
					timeleft = min(max(round(timeleft), 60), 600)
				if(href_list["timer"])
					if(timing == -1.0)
						return
					if(safety)
						to_chat(usr, span_warning("The safety is still on."))
						return
					timing = !(timing)
					if(timing)
						if(!lighthack)
							icon_state = "nuclearbomb2"
						if(!safety)
							GLOB.bomb_set = 1//There can still be issues with this reseting when there are multiple bombs. Not a big deal tho for Nuke/N
							set_security_level("delta")//chompedit
						else
							GLOB.bomb_set = 0
							set_security_level("red")
					else
						GLOB.bomb_set = 0
						set_security_level("red") //chompedit
						if(!lighthack)
							icon_state = "nuclearbomb1"
				if(href_list["safety"])
					safety = !(safety)
					if(safety)
						timing = 0
						GLOB.bomb_set = 0
						set_security_level("red") //chompedit
				if(href_list["anchor"])

					if(removal_stage == 5)
						anchored = FALSE
						visible_message(span_warning("\The [src] makes a highly unpleasant crunching noise. It looks like the anchoring bolts have been cut."))
						return

					anchored = !(anchored)
					if(anchored)
						visible_message(span_warning("With a steely snap, bolts slide out of [src] and anchor it to the flooring."))
					else
						visible_message(span_warning("The anchoring bolts slide back into the depths of [src]."))

		add_fingerprint(usr)
		for(var/mob/M in viewers(1, src))
			if((M.client && M.machine == src))
				attack_hand(M)
	else
		usr << browse(null, "window=nuclearbomb")
		return
	return


/obj/machinery/nuclearbomb/ex_act(severity)
	return


#define NUKERANGE 80
/obj/machinery/nuclearbomb/proc/explode()
	if(safety)
		timing = 0
		return
	timing = -1.0
	yes_code = 0
	safety = 1
	if(!lighthack)
		icon_state = "nuclearbomb3"
	world << sound('sound/machines/Alarm.ogg')//chompedit, nuke is big event, make it global
	if(SSticker && SSticker.mode)
		SSticker.mode.explosion_in_progress = 1
	sleep(100)

	var/off_station = 0
	var/turf/bomb_location = get_turf(src)
	if(bomb_location && (bomb_location.z in using_map.station_levels))
		if((bomb_location.x < (128-NUKERANGE)) || (bomb_location.x > (128+NUKERANGE)) || (bomb_location.y < (128-NUKERANGE)) || (bomb_location.y > (128+NUKERANGE)))
			off_station = 1
	else
		off_station = 2

	if(SSticker)
		if(SSticker.mode && SSticker.mode.name == "Mercenary")
			var/obj/machinery/computer/shuttle_control/multi/syndicate/syndie_location = locate(/obj/machinery/computer/shuttle_control/multi/syndicate)
			if(syndie_location)
				SSticker.mode:syndies_didnt_escape = (syndie_location.z > 1 ? 0 : 1)	//muskets will make me change this, but it will do for now
			SSticker.mode:nuke_off_station = off_station

		switch(off_station)
			if(0)
				if(SSticker.mode.name == "mercenary")
					play_cinematic(/datum/cinematic/nuke/ops_victory)
				else
					play_cinematic(/datum/cinematic/nuke/self_destruct)

					// FIXME: Probably a better way
					for(var/mob/living/M in GLOB.living_mob_list)
						switch(M.z)
							if(0)	//inside a crate or something
								var/turf/T = get_turf(M)
								if(T && (T.z in using_map.station_levels))				//we don't use M.death(0) because it calls a for(/mob) loop and
									M.health = 0
									M.set_stat(DEAD)
							if(1)	//on a z-level 1 turf.
								M.health = 0
								M.set_stat(DEAD)
			if(1)
				if(SSticker.mode.name == "mercenary")
					play_cinematic(/datum/cinematic/nuke/ops_miss)
				else
					play_cinematic(/datum/cinematic/nuke/self_destruct_miss)
			if(2)
				play_cinematic(/datum/cinematic/nuke/far_explosion)

		if(SSticker.mode)
			SSticker.mode.explosion_in_progress = 0
			to_chat(world, span_boldannounce("The station was destoyed by the nuclear blast!"))

			SSticker.mode.station_was_nuked = (off_station<2)	//offstation==1 is a draw. the station becomes irradiated and needs to be evacuated.
															//kinda shit but I couldn't  get permission to do what I wanted to do.

			if(!SSticker.mode.check_finished())//If the mode does not deal with the nuke going off so just reboot because everyone is stuck as is
				to_chat(world, span_boldannounce("Resetting in 30 seconds!"))

				feedback_set_details("end_error","nuke - unhandled ending")

				if(blackbox)
					blackbox.save_all_data_to_sql()
				sleep(300)
				log_game("Rebooting due to nuclear detonation")
				world.Reboot()
				return
	return

#undef NUKERANGE

/obj/item/disk/nuclear/Initialize(mapload)
	. = ..()
	GLOB.nuke_disks += src

/obj/item/disk/nuclear/Destroy()
	if(!GLOB.nuke_disks.len && GLOB.blobstart.len > 0)
		var/obj/D = new /obj/item/disk/nuclear(pick(GLOB.blobstart))
		message_admins("[src], the last authentication disk, has been destroyed. Spawning [D] at ([D.x], [D.y], [D.z]).")
		log_game("[src], the last authentication disk, has been destroyed. Spawning [D] at ([D.x], [D.y], [D.z]).")
	. = ..()

/obj/item/disk/nuclear/touch_map_edge()
	qdel(src)