cyberpresidentvanellope/Paradise
1
0
Fork 0
mirror of https://github.com/ParadiseSS13/Paradise.git synced 2026-07-18 02:24:11 +01:00
Code Issues Packages Projects Releases Wiki Activity

Adding debug command

Browse Source 
Adding the ability for Admin's to write out a json file full of debug
info for the Research and Development system.
This commit is contained in:
jack-fractal
2015-04-06 19:06:16 -04:00
parent 723d12eaa4
commit 1da136bd94
1 changed files with 43 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
code/modules/admin/admin_verbs.dm
+43
View File
@@ -60,6 +60,7 @@ var/list/admin_verbs_admin = list(
/client/proc/toggledrones,
/client/proc/man_up,
/client/proc/global_man_up,
/client/proc/write_RD_json,
/client/proc/delbook,
/client/proc/empty_ai_core_toggle_latejoin,
/client/proc/freeze,
@@ -685,3 +686,45 @@ var/list/admin_verbs_mentor = list(
log_admin("[key_name(usr)] told everyone to man up and deal with it.")
message_admins("\blue [key_name_admin(usr)] told everyone to man up and deal with it.", 1)
/client/proc/object_classes_to_origin_tech()
usr << "Creating origin classes..."
var/list/result = list()
for (var/C in (typesof(/obj)-/obj))
usr << "Processing... [C]"
if (initial(C:origin_tech))
var/list/origin_tech = params2list(initial(C:origin_tech))
for (var/t in origin_tech)
origin_tech[t]=text2num(origin_tech[t])
result[C]=list("tech"=origin_tech,"name"=initial(C:name))
return result
/client/proc/list_of_build_machines(var/C)
var/build_type=initial(C:build_type)
var/list/result=list()
result["IMPRINTER"]=(build_type & IMPRINTER) ? 1 : 0
result["PROTOLATHE"]=(build_type & PROTOLATHE) ? 1 : 0
result["AUTOLATHE"]=(build_type & AUTOLATHE) ? 1 : 0
result["CRAFTLATHE"]=(build_type & CRAFTLATHE) ? 1 : 0
result["MECHFAB"]=(build_type & MECHFAB) ? 1 : 0
result["PODFAB"]=(build_type & PODFAB) ? 1 : 0
return result
/client/proc/design_classes_to_materials_and_origin()
usr << "Creating designs..."
var/list/result=list()
for (var/C in (typesof(/datum/design)-/datum/design))
var/datum/design/instance = new C()
usr << "Processing... [C]" result[C]=list("materials"=instance.materials,"requires"=instance.req_tech,"lockbox"=instance.locked,"builds"=instance.build_path,"machines"=list_of_build_machines(C))
instance.Del()
return result
/client/proc/write_RD_json()
set category = "Admin"
set name = "Write RD Json"
set desc = "Writes a json file describing the R&D components."
text2file(list2json(list("objects"=object_classes_to_origin_tech(),"designs"=design_classes_to_materials_and_origin())),"data/origin_data.txt")