mirror of
https://github.com/vgstation-coders/vgstation13.git
synced 2025-12-10 18:32:03 +00:00
4d9876fd65
>dd_replacetext and dd_replacetext_case are now replacetext and replacetextEx respectively. >replacetext and replacetextEx works using strings only; it doesn't convert it into a list and then back into a string. Fixes some dumb-dumbs in textlist and text2listEx > "<" where there should be a "<=" > no else case for when the separator is longer than the text (causing empty lists to be returned) git-svn-id: http://tgstation13.googlecode.com/svn/trunk@4971 316c924e-a436-60f5-8080-3fe189b3f50e
183 lines
8.0 KiB
Plaintext
183 lines
8.0 KiB
Plaintext
client/verb/tcssave()
|
|
set hidden = 1
|
|
if(mob.machine || issilicon(mob))
|
|
if((istype(mob.machine, /obj/machinery/computer/telecomms/traffic) && mob.machine in view(1, mob)) || issilicon(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") ) // 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
|
|
if(mob.machine || issilicon(mob))
|
|
if((istype(mob.machine, /obj/machinery/computer/telecomms/traffic) && mob.machine in view(1, mob)) || (issilicon(mob) && istype(mob.machine, /obj/machinery/computer/telecomms/traffic) ))
|
|
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
|
|
var/list/compileerrors = Server.compile() // then compile the code!
|
|
|
|
// Output all the compile-time errors
|
|
src << output(null, "tcserror")
|
|
|
|
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
|
|
if(mob.machine || issilicon(mob))
|
|
if((istype(mob.machine, /obj/machinery/computer/telecomms/traffic) && mob.machine in view(1, mob)) || (issilicon(mob) && istype(mob.machine, /obj/machinery/computer/telecomms/traffic) ))
|
|
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
|
|
var/list/compileerrors = Server.compile() // then compile the code!
|
|
|
|
// Output all the compile-time errors
|
|
src << output(null, "tcserror")
|
|
|
|
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
|
|
// Finally, we run the code!
|
|
src << output("<font color = blue>TCS compilation successful! Code executed.</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")
|
|
|
|
var/datum/signal/signal = new()
|
|
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
|
|
if(mob.machine || issilicon(mob))
|
|
if((istype(mob.machine, /obj/machinery/computer/telecomms/traffic) && mob.machine in view(1, mob)) || (issilicon(mob) && istype(mob.machine, /obj/machinery/computer/telecomms/traffic) ))
|
|
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
|
|
if(mob.machine || issilicon(mob))
|
|
if((istype(mob.machine, /obj/machinery/computer/telecomms/traffic) && mob.machine in view(1, mob)) || (issilicon(mob) && istype(mob.machine, /obj/machinery/computer/telecomms/traffic) ))
|
|
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")
|
|
|
|
|
|
|