vgstation13/code/modules/scripting/IDE.dm

client/verb/tcssave()
	set hidden = 1
	//writepanic("[__FILE__].[__LINE__] ([src.type])([usr ? usr.ckey : ""]) \\client/verb/tcssave()  called tick#: [world.time]")
	if(mob.machine || issilicon(mob))
		if(telecomms_check(mob))
			var/obj/machinery/computer/telecomms/traffic/Machine = mob.machine
			if(Machine.editingcode != mob)
				return

			if(Machine.SelectedServer)
				var/obj/machinery/telecomms/server/Server = Machine.SelectedServer
				var/tcscode=winget(src, "tcscode", "text")
				Server.setcode( tcscode ) // this actually saves the code from input to the server
				src << output(null, "tcserror") // clear the errors
			else
				src << output(null, "tcserror")
				src << output("<font color = red>Failed to save: Unable to locate server machine. (Back up your code before exiting the window!)</font color>", "tcserror")
		else
			src << output(null, "tcserror")
			src << output("<font color = red>Failed to save: Unable to locate machine. (Back up your code before exiting the window!)</font color>", "tcserror")
	else
		src << output(null, "tcserror")
		src << output("<font color = red>Failed to save: Unable to locate machine. (Back up your code before exiting the window!)</font color>", "tcserror")


client/verb/tcscompile()
	set hidden = 1
	//writepanic("[__FILE__].[__LINE__] ([src.type])([usr ? usr.ckey : ""]) \\client/verb/tcscompile()  called tick#: [world.time]")
	if(mob.machine || issilicon(mob))
		if(telecomms_check(mob))
			var/obj/machinery/computer/telecomms/traffic/Machine = mob.machine
			if(Machine.editingcode != mob)
				return

			if(Machine.SelectedServer)
				var/obj/machinery/telecomms/server/Server = Machine.SelectedServer
				Server.setcode( winget(src, "tcscode", "text") ) // save code first

				spawn(0)
					// Output all the compile-time errors
					src << output(null, "tcserror")
					src << output("<font color = black>Please wait, compiling...</font>", "tcserror")

					var/list/compileerrors = Server.compile(mob) // then compile the code!
					if(!telecomms_check(mob))
						return

					if(compileerrors.len)
						src << output("<b>Compile Errors</b>", "tcserror")
						for(var/scriptError/e in compileerrors)
							src << output("<font color = red>\t>[e.message]</font color>", "tcserror")
						src << output("([compileerrors.len] errors)", "tcserror")

						// Output compile errors to all other people viewing the code too
						for(var/mob/M in Machine.viewingcode)
							if(M.client)
								M << output(null, "tcserror")
								M << output("<b>Compile Errors</b>", "tcserror")
								for(var/scriptError/e in compileerrors)
									M << output("<font color = red>\t>[e.message]</font color>", "tcserror")
								M << output("([compileerrors.len] errors)", "tcserror")


					else
						src << output("<font color = blue>TCS compilation successful!</font color>", "tcserror")
						src << output("(0 errors)", "tcserror")

						for(var/mob/M in Machine.viewingcode)
							if(M.client)
								M << output("<font color = blue>TCS compilation successful!</font color>", "tcserror")
								M << output("(0 errors)", "tcserror")

			else
				src << output(null, "tcserror")
				src << output("<font color = red>Failed to compile: Unable to locate server machine. (Back up your code before exiting the window!)</font color>", "tcserror")
		else
			src << output(null, "tcserror")
			src << output("<font color = red>Failed to compile: Unable to locate machine. (Back up your code before exiting the window!)</font color>", "tcserror")
	else
		src << output(null, "tcserror")
		src << output("<font color = red>Failed to compile: Unable to locate machine. (Back up your code before exiting the window!)</font color>", "tcserror")

client/verb/tcsrun()
	set hidden = 1
	//writepanic("[__FILE__].[__LINE__] ([src.type])([usr ? usr.ckey : ""]) \\client/verb/tcsrun()  called tick#: [world.time]")
	if(mob.machine || issilicon(mob))
		if(telecomms_check(mob))
			var/obj/machinery/computer/telecomms/traffic/Machine = mob.machine
			if(Machine.editingcode != mob)
				return

			if(Machine.SelectedServer)
				var/obj/machinery/telecomms/server/Server = Machine.SelectedServer

				var/datum/signal/signal = getFromDPool(/datum/signal)
				signal.data["message"] = ""
				if(Server.freq_listening.len > 0)
					signal.frequency = Server.freq_listening[1]
				else
					signal.frequency = 1459
				signal.data["name"] = ""
				signal.data["job"] = ""
				signal.data["reject"] = 0
				signal.data["server"] = Server

				Server.Compiler.Run(signal)


			else
				src << output(null, "tcserror")
				src << output("<font color = red>Failed to run: Unable to locate server machine. (Back up your code before exiting the window!)</font color>", "tcserror")
		else
			src << output(null, "tcserror")
			src << output("<font color = red>Failed to run: Unable to locate machine. (Back up your code before exiting the window!)</font color>", "tcserror")
	else
		src << output(null, "tcserror")
		src << output("<font color = red>Failed to run: Unable to locate machine. (Back up your code before exiting the window!)</font color>", "tcserror")


client/verb/exittcs()
	set hidden = 1
	//writepanic("[__FILE__].[__LINE__] ([src.type])([usr ? usr.ckey : ""]) \\client/verb/exittcs()  called tick#: [world.time]")
	if(mob.machine || issilicon(mob))
		if(telecomms_check(mob))
			var/obj/machinery/computer/telecomms/traffic/Machine = mob.machine
			if(Machine.editingcode == mob)
				Machine.storedcode = "[winget(mob, "tcscode", "text")]"
				Machine.editingcode = null
			else
				if(mob in Machine.viewingcode)
					Machine.viewingcode.Remove(mob)

client/verb/tcsrevert()
	set hidden = 1
	//writepanic("[__FILE__].[__LINE__] ([src.type])([usr ? usr.ckey : ""]) \\client/verb/tcsrevert()  called tick#: [world.time]")
	if(mob.machine || issilicon(mob))
		if(telecomms_check(mob))
			var/obj/machinery/computer/telecomms/traffic/Machine = mob.machine
			if(Machine.editingcode != mob)
				return

			if(Machine.SelectedServer)
				var/obj/machinery/telecomms/server/Server = Machine.SelectedServer

				// Replace quotation marks with quotation macros for proper winset() compatibility
				var/showcode = replacetext(Server.rawcode, "\\\"", "\\\\\"")
				showcode = replacetext(showcode, "\"", "\\\"")

				winset(mob, "tcscode", "text=\"[showcode]\"")

				src << output(null, "tcserror") // clear the errors
			else
				src << output(null, "tcserror")
				src << output("<font color = red>Failed to revert: Unable to locate server machine.</font color>", "tcserror")
		else
			src << output(null, "tcserror")
			src << output("<font color = red>Failed to revert: Unable to locate machine.</font color>", "tcserror")
	else
		src << output(null, "tcserror")
		src << output("<font color = red>Failed to revert: Unable to locate machine.</font color>", "tcserror")


client/verb/tcsclearmem()
	set hidden = 1
	//writepanic("[__FILE__].[__LINE__] ([src.type])([usr ? usr.ckey : ""]) \\client/verb/tcsclearmem()  called tick#: [world.time]")
	if(mob.machine || issilicon(mob))
		if(telecomms_check(mob))
			var/obj/machinery/computer/telecomms/traffic/Machine = mob.machine
			if(Machine.editingcode != mob)
				return

			if(Machine.SelectedServer)
				var/obj/machinery/telecomms/server/Server = Machine.SelectedServer
				Server.memory = list() // clear the memory
				// Show results
				src << output(null, "tcserror")
				src << output("<font color = blue>Server memory cleared!</font color>", "tcserror")
				for(var/mob/M in Machine.viewingcode)
					if(M.client)
						M << output("<font color = blue>Server memory cleared!</font color>", "tcserror")
			else
				src << output(null, "tcserror")
				src << output("<font color = red>Failed to clear memory: Unable to locate server machine.</font color>", "tcserror")
		else
			src << output(null, "tcserror")
			src << output("<font color = red>Failed to clear memory: Unable to locate machine.</font color>", "tcserror")
	else
		src << output(null, "tcserror")
		src << output("<font color = red>Failed to clear memory: Unable to locate machine.</font color>", "tcserror")

/proc/telecomms_check(var/mob/mob)
	//writepanic("[__FILE__].[__LINE__] (no type)([usr ? usr.ckey : ""])  \\/proc/telecomms_check() called tick#: [world.time]")
	if(mob && istype(mob.machine, /obj/machinery/computer/telecomms/traffic) && in_range(mob.machine, mob) || issilicon(mob) && istype(mob.machine, /obj/machinery/computer/telecomms/traffic))
		return 1
	return 0